HPAD!ÿÿÿ0|UJdos pageÖI B¶€Ô˜ç 1Ħš Z8P )K!ˆ°function appendslash(dirname); begin if the last character of dirname is not "\" then put "\" after dirname; return dirname; end; handler help; begin go to page id 6 of pad "dos.hlp"; end; handler removemarks; begin put field "list" into field "list"; put 0 into field "Bytes Marked"; put 0 into field "Marked Files"; end; handler nofiles; begin answer "No files have been marked. Use  to highlight a file, then press SPACE to mark it." with "Ok"; set the focus to field "List"; exit to hyperpad; end; handler openpage; begin put "Page" && currentpage() && "of" && the number of pages into field "Page Number"; end; €‚°ïñ€€péî$ appendslash87\XXl——>. \XXX X9*7dos.hlp“6’*$ removemarks7Xlist&##Xlist&X X0XBytes Marked&X X0XMarked Files&X X*$ nofiles7OkNo files have been marked. Use  to highlight a file, then press SPACE to mark it. XUXList& h0**7BofX  7:Page---XPage Number&X X*´MZ´ ÿÿuy%*05,5$5 5 éÖÏÉ •u^WQ3, ****#*&*:*L*T*f*¸P¸º4RPš-$ƒÄËU‹ìƒ~t¸ë¸Pš‰*RPš„*]ÂU‹ìƒìƒ~t¸‹å]Ëš!¸º4RPš$ƒÄ ÀtÇFþÿvþè¤ÿš=ëÍF‰FúŒVüƒFúÄ^ú&ÿwþ&ÿwüšŽ*RP¸APšƒÄ=É÷Ù‰Nþë»U‹ìƒìƒ~t¸‹å]Ëš!¸º4RPš$ƒÄ Àt¸Pè0ÿš=ëÑF‰FüŒVþƒFüÄ^ü&ÿwþ&ÿwüšŽ*RPš=É÷ÙQëÇËËU‹ì3ÛŠfÅVÍ!]sC‹ÃËU‹ìÅV´;Í!r‹ÚŠ€êA´Í!r3Àë¸]ÊU‹ì´=ŠF ÅVÍ!s¸ÿÿ]ËU‹ì´<3ÉÅVÍ!s¸ÿÿ]ËU‹ì´>‹^Í!¸s¸ÿÿ]ËU‹ì´?‹^ÅV‹N Í!s¸ÿÿ]ËU‹ì´@‹^ÅV‹N Í!s¸ÿÿ]ËU‹ì´BŠF ‹^‹V‹N Í!]ËU‹ìÅV´AÍ!]ËSQR¸5ŽØ‹Ç2äPšƒÄZY[ϸ$5Í!.‰.Œº¸$%Í!˸$%.‹.ŽÍ!Ë‹Å‹ìŒÚÅ^‰‰‰w‰g‹N‰O‹N‰O ‰W ŒWŽÚ‹è3ÀË‹Í‹ì‹F Àu@Å^ƒ?u‹éË‹‹wú‹gŽWû‹ì‹O‰N‹O ‰N‹/ÇŽ_ Ëì56*P*5*¸5ŽØºB´ Í!¸LÍ!VW¸5ŽØ¾d¿dè#_^šËVW¸5ŽØ¾d¿dè _^šË;÷sƒï‹ EtòÿëîÃ2ä.ÿ.° éôÿ°éïÿ°éêÿOKERRORDeleteFileChangeDir 5:5²This program requires HyperPAD. $DELFILE0Ÿ P@PDirectoryFiles±‡±‡±‡±‡±‡±‡±‡±‡±‡0ppžÿôjŒrhandler setmark(dx); begin put line (the currentline of me) of field "list" into cline; put the trim of char 13 to 23 of cline into sz; adjust_num_marked dx * 1,dx * sz; end; handler mark(l); begin if line (the currentline of me) of field "list" is empty then exit; setmark 1; pass; end; handler unmark(l); begin setmark -1; pass; end; handler select; begin get word 1 of line (the currentline of me) of field "list"; if it is empty then exit; put field "directory" into dname; set the lockscreen to true; go to page "run" of pad "dosmisc"; send "runprogram" dname,it to this page; end;€7ŒþÿOÒm$ setmark87Xlist&##Xf€g Ú c XXX X2313   6: XXX1X! X!  adjust_num_marked;:*87Xlist&##Xf€g Ú c+*1  setmark;:/*871[  setmark;:/*7Xlist&##Xf€g Ú c1 XXXXX+*Xdirectory&## XXXX " Pdosmisc“run’X runprogram` ‰*P .Ìž¹ListList±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡p‡(•špÿ‡P@Number of files±‡±‡±‡±‡±‡±‡±‡±‡±‡0p¸žÿP @2LMarked files‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡0p°žÿP @2LBytes marked‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡0p¼žÿP @Viewingrked‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡0pŒžÿcK[SHandler Select; Begin go to the previous page of this background; End; Ò3[7tˆ*H47dÂ7I Newtn‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1‡GGpÿ‡_GWOHandler Select; Begin go to the next page of this background; End; Ò3W7t‡*H;>lÂ7ø Newtn‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1‡GGpÿ‡W-=5Handler Select; Begin cycle "copy"; End; Òž=7copy  cycle;:*H"Hž£4-Copyn‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡4{iyqHandler Select; Begin set the lockscreen to true; get character 1 of field "directory"; go to pad "dostree"; find it in field "tree of drive"; if the result is "not found" then begin go to the last page; send "domenu" "new page" to hyperpad; set the lockscreen to false; send "reread" it to this background; end End; Òy7X " PXdirectory&##X1XXXXdostree XXXtree of drive&  knot foundX  :+5Bnew pagedomenuX‰X " PXrereadt ‰*H Ľ7F2-Treen‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡2yB%5-Handler Select; Begin help; End; Òž57X  ï:*HFNX£š®F1=Helpn‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1‡GGpÿ‡­8H@Handler Select; Begin put the markedlines of field "list" into mlist; if mlist is empty then nofiles; put the number of items of mlist into numitems; answer "Ok to delete" && numitems && "files?"; if it is not "ok" then exit; put field "directory" into dname; put appendslash(dname) into dname; for i = 1 to numitems do begin hilite line (item i of mlist) of field "list"; get dname & word 1 of line (item i of mlist) of field "list"; get DeleteFile(it); if it is not "Ok" then exit to HyperPAD; end; reread; End;ÒžH7Xlist&  á c XXX +X nofiles;: @ XXXfiles? Ok to delete--XXUokX.*Xdirectory&## XXX   appendslash;: XXX1 XXX  6ŽXlist&X X  \Xlist&##X X 1  ,XXXXX  deletefile;:XXXXOkX.0*1  XXX$fÿX reread;:*H-4Ô½7<6-Delete‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡6}V,<4Handler Select; Begin cycle "move"; End; Òž<7move  cycle;:*H%*ܽ755-Moven‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡5|Öw‡Handler Select; Begin put field "directory" into destdir; pop page; docycle destdir; modivisible false; End; Òž‡7Xdirectory&## XXX^   docycle;:  modivisible;:*H7=øž×DoIt!‡1‡pÿ‡•!\ldHandler Select; Begin set the lockscreen to true; modivisible false; pop page; End; Òžl7X " P  modivisible;:^*HAHžùCancelestination‡1‡pÿ‡>(80Handler Select; Begin go home; End; Ò487‹*H#IO°½7Ú Homewtn‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1‡GGpÿ‡¯ˆ˜Handler Select; Begin get popup(55,18,"&Reread Directory,&New Page,&Find File,&DOS Command"); case it of 1 : begin reread; pass; end; 2 : domenu "New Page"; 3 : begin get char 1 of field "directory"; go to pad "dosfind"; put it & ":" into field "Drive to Search"; end; 4 : go to page 1 of pad "doscmd"; 0 : exit; end; End; Òš˜75518&Reread Directory,&New Page,&Find File,&DOS Command   O:XXXXX$$º1+X reread;:/$ãÿ2+New Page   è:$Äÿ3+QXdirectory&##X1XXXXdosfind :X,XDrive to Search&X X$kÿ4+doscmd“1’$Rÿ0+*$Fÿ*H$7=Ôžd!7-Misc.Commands±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡7~?QgYhandler select; begin put appendslash(field "directory") into cdir; get trim(line (the currentline of me) of field "dirs"); if it is "." or it is empty then exit; if it is ".." then put fullname(cdir & "..") into cdir else put it after cdir; put cdir into field "directory"; reread; end; handler mark; begin end;Òžgþ:7Xdirectory&##  appendslash;: XXXXdirs&##Xf€g Ú c   6:XXXXX+.X+2*..X+ .. ,   a: XXX$X XX  Xdirectory&X XX reread;:*7*P( 0Bl½š_$dirs‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡p<•špÿH‡! <Reading directory, please wait..‡5‡GGpÿ‡P)@/Sorted byd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡0pÈžÿ,šª¢Handler Select; Begin put the markedlines of field "list" into mlist; put field "directory" into d; if the last char of d is not "\" then put "\" after d; put field "list" into list; if mlist is empty then begin get d & word 1 of line (the currentline of field "list") of list; ask "File to browse" with it; if it is empty then exit; get fullname(it); end else begin put the number of items of mlist into n; get empty; for i = 1 to n do put d & word 1 of line (item i of mlist) of list after the last item of it; end; go to pad "view"; send "viewfile" it to this page; End;Òžª7Xlist&  á c XXXXdirectory&## XXX\ Xl——>.\ XX Xlist&## XXX +c XXlist&  Ú c1  ,XXXXXFile to browse XTX+*X   a:XXXX$ @ XXXXXXX1 XXX  6M X X 1  ,XXl——@  1  XXX$§ÿview Xviewfile` ‰*H‡+@G잎'8-Browse‡±‡±‡±‡ÍÍÍÍÍÍÍÍ1 p8 m}uHandler Select; Begin get popup(17,18,"&All Files,&Programs,&Mask,&Search"); case it of 0 : exit; 1 : put "All Files" into field "Viewing"; 2 : put "Programs" into field "Viewing"; 3 : begin ask "New Mask:" with field "Viewing"; if it is empty then exit; put upper(it) into field "Viewing"; end; 4 : begin set the lockscreen to true; put field "list" into flist; put field "directory" into dname; go to page "search" of pad "dosmisc"; send "searchfiles" dname,flist to this page; exit; end; end; reread; pass; End; Òž}71718&All Files,&Programs,&Mask,&Search   O:XXXXX$$20+*$ñÿ1+"All FilesXViewing&X X$Çÿ2+!ProgramsXViewing&X X$žÿ3+NXViewing&##New Mask: XTX+*X   2:XViewing&X X$Hÿ4+rX " PXlist&## XXXXdirectory&## XXXdosmisc“search’  searchfiles` ‰*$ÎþX reread;:/*H, „ž,3-FileSpecc‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡3zYQaYHandler Select; Begin if field "list" is empty then exit; put "&Name,&Extension,&Size,&DateTime" into s; get popup(1,18,s); if it is 0 then exit; put it into sm; get popup(1,20,"&Ascending,&Descending"); if it = 0 then exit; if it = 2 then add 4 to sm; put sm into line 2 of field "Sorted By"; reread; pass; End; Òža7Xlist&##+*&Name,&Extension,&Size,&DateTime XXX118    O:XXXX0X+*X XXX120&Ascending,&Descending   O:XXXX0X+*2X+ 4 XXXV XSorted By&X2 XX reread;:/*H-,ž\01-Sorth Spec‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡1x$¯Å·handler select; begin get line (the currentline of me) of field "Drives"; put the directory of it into field "directory"; reread; pass; end; handler mark; begin end;Ò7Åþ7XDrives&##Xf€g Ú cXXXXX   #:Xdirectory&X XX reread;:/*7*P.DN ½73Drives‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡p|½7pÿP/@!/Page Number&##Create new pageA 00pc@ž pÿ  M  handler printsm; begin get line 2 of field "sorted by"; put "Name,Extension,Size,Time" into n; if it > 4 then begin put "" into a; subtract 4 from it; end; put item it of n & a into line 1 of field "sorted by"; end; handler break; begin hide button id 33; end; handler reread; begin show button id 33; set the lockscreen to true; put empty into field "list"; put field "Directory" into cdir; put field "Viewing" into mask; set the filesortmethod to line 2 of field "Sorted By"; printsm; put appendslash(cdir) into path; if mask is "Searched Files" then begin put "All Files" into field "Viewing"; put "*.*" after path; end else if mask is "programs" then put (path & "*.exe," & path & "*.com," & path & "*.bat") into path else if mask is "All Files" then put "*.*" after path else begin put the number of items of mask into n; for i = 1 to n do put path before char 1 of item i of mask; put mask into path; end; put the longfiles of path into flist; put substitute(drives(),",",return) into field "Drives"; put flist into field "List"; put the number of lines of flist into field "Number of Files"; put substitute(substitute(dirs(cdir),"[",empty),"]",empty) into field "dirs"; set the startline of field "list" to 1; set the startline of field "dirs" to 1; put 0 into field "Marked Files"; put 0 into field "Bytes Marked"; adjust_num_marked 0,0; hide button id 33; set the lockscreen to false; end; handler adjust_num_marked(n,sz); begin add n to field "Marked Files"; add sz to field "Bytes Marked"; end; handler setpage(dname); begin put "All Files" into field "Viewing"; put "Name" & return & 1 into field "Sorted By"; put upper(dname) into field "directory"; reread; end; handler makenewpage(dname); begin send "domenu" "new page" to hyperpad; setpage dname; end; handler domenu(d); begin if d = "New Page" then begin ask "Create new page for directory:" with field "directory"; if it is empty then exit; get fullname(it); put the dir into sd; put changedir(it) into rc; put changedir(sd) into sd; if rc = "Ok" then makenewpage fullname(it) else answer "Invalid directory." with "Ok"; end else pass; end; handler cycle(cycle_rtn_name); begin global cyclename,filecommand; if field "Marked Files" is zero then nofiles; put field "directory" into dname; put the markedlines of field "list" into mlist; removemarks; put the number of items of mlist into numitems; put empty into markedfiles; get field "list"; for i = 1 to numitems do put word 1 of line (item i of mlist) of it into line i of markedfiles; get empty; set the lockscreen to true; put field "directory" into dname; go to page cycle_rtn_name of pad "dosmisc"; send "settransfer" dname,markedfiles to this page; end; handler select; begin set the focus to field "list"; end; handler openpad; begin set the focus to field "list"; pass; end; €žM ñò €è !€H"€ž#€%èžf$€x†Òõä$ printsm7Xsorted by&##X2XXXXName,Extension,Size,Time XXX4X3 XXX4XXX V  XX,Xsorted by&X1 X*7X33O  *S P*$reread7X33O  *R PX " PXlist&X XXDirectory&## XXXXViewing&## XXXX -XSorted By&##X2 PX printsm;:   appendslash;: XXXSearched Files +3All FilesXViewing&X X*.* XX $Ôprograms +5*.bat *.com, *.exe, ,,,,, XXX$All Files +*.* XX $f @ XXX1 XXX  61  X 1  1  XXX$Ãÿ  XXX    8: XXXX  Y:,   P:XDrives&X X XList&X X AXNumber of Files&X X    E:[   P:]   P:Xdirs&X XXlist&  Ë 1 PXdirs&  Ë 1 P0XMarked Files&X X0XBytes Marked&X X00  adjust_num_marked;:X33O  *S PX " P*$adjust_num_marked87XXMarked Files&X XV XBytes Marked&X XV*$ setpage87All FilesXViewing&X X1 Name,,XSorted By&X XX   2:Xdirectory&X XX reread;:*$ makenewpage87new pagedomenuX‰X  setpage;:*87New PageX+Xdirectory&##Create new page for directory:  T +*    a: XXXX  #: XXX   changedir;: XXX   changedir;: XXXOk +&    a:  makenewpage;:$ OkInvalid directory.  U$/*$cycle870XMarked Files&##+X nofiles;:Xdirectory&## XXXXlist&  á c XXXX removemarks;: @ XXX XXXXlist&## XXX1 XXX  6A X X 1  X  X1  XXX$³ÿ XXXX " PXdirectory&## XXXdosmisc“X’  settransfer` ‰*7Xlist& h*7Xlist& h/*ï»0‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚‚±DOSShe‚lñÿò Files:© Directories:‡ Drives:ÿÿÿÿÿÿÿÿÿÿÿ°UseSPACE/RIGHT BU‚TONtomarkprograms,ALTforco‚mands.•Ðp‚‡‹0Çÿñ®0“0‹0ÿÿÿÿÿÿÿÿÿÿÿ­Ð0u@Ë4åH0g¯S¥÷®Yüdòë¯ !$ &ò&<'¼+0·2'4y4€H+€H€H €H €H €H(€H)€H.€H/€H9 ÿÿMJcJyJJ¥J»JÑJçJýJK