HPAD0|PJ()search;Copy9=Move>RunHiqhandler help; begin go to page 1 of pad "dos.hlp"; end; handler cancel; begin go to pad "dos"; end;7dos.hlp1*7dos *2 MZ2Q t`\TPHD<8 C8*HC<-& X5i;)eWF8&le_Chh tttttt0tBtJt\t~ ~PRP3mːUWV+FFPPP&64ZP&6(&6&&64MZ+F&+*;~Z&0&&&&8u֎&6*&(RP&62&60&, u^_]Ðt+^_]Î&+*@FV+Pvv.UF~t]ˍFFV'hRPm tvtRPtCh]ːF^&G&WFVF^&G&WFVRPt&0&2RP~&*F^&w&wt t0~ ~&,&.PztFVRPt&&&(+P^&w&7Z&4@tF&649ZvvtvvtːU&VF&F&$F&F &RPRPRP~ &]UvvAPY]U~t PtRPt]U 'hRPm tFvCh]ˍFFV~uF^&G&WFVRPtRP\=ىNU'hRPm tFv@Ch]ˍFFV~uF^&G&WFVF^&G&WFV^&w&7^&w&7n=ىNU&+FFFFFFڌV܃~t]˚'hRPm t;+PCh~~ v9Z~~ v9Zvvt릐F^&G&WFމVF^&G&WFVPztFV t+P^&w&7ZF }i^&w&7$ZF }MP^&w&7vMZF ~FP^&w&7vfZFF9Ft%v9Z^&w&7ZF~FWFFFFPFPl~FWFFFFPFPl~ːːU3ۊfV!]sCU=F V!s]U<3V!s]U>^!s]U?^VN !s]U@^VN !s]UBF ^VN !]UVA!]˴/!‹UV!]UN1V!r3]O!r3SQR؋2PZY[$5!.. $%!$%..!ŋ^wgNONO W Wڋ3ˋ͋F u@^?uwgWONO N/_ 6,tFttغr !L!VWؾ#_^VWؾ _^;s Et2.. U~3I]UWVN'~3ˋv D3&:EwtIIы^_]UVW~]MUu} !W~ ]MUuE r3H~ u _^]UVW~]MUuu ~]_!W~E~ ]MUuE r3H~ u _^]UWVv~ N>AZ $& t tFG:r:w:r:w:u3:t rIIы^_]OKERRORSearchCopyFileRenameFileDeleteFileV*This program requires HyperPAD. $DOSMISC/*"handler mark; begin end; *7*P bListpP L files from400p#handler keypress(k); begin if key(k) = "ENTER" then send "select" to page button "Ok" else pass; end; handler closeField; begin put fullname(the value of me) into me; end;87ENTERX   W:+selectXOkL $/*7fg c   a:fX X*PBD7Destinationf00pD'7/Handler Select; Begin cancel; End; 77X  :*HCK Cancelel10GpC.Ohandler select; begin set the lockscreen to true; go to pad "dostree"; set the check of button "Selecting" to true; set the focus to field "tree"; end;7X " Pdostree XSelectingM   PXtree& h*HEK>Pickeeon100p2y?P   Number of files!pH Confirm overwriting?pB%5-Handler Select; Begin help; End; 57X  :*H FNF1=Helpon1GGpO M  handler error(cmd,s,d); begin answer "Error" && cmd & "ing file" && s && "to" && d with "Ok"; exit to hyperpad; end; handler move(source,dest); begin if char 1 of source is char 1 of dest then begin get DeleteFile(dest); get RenameFile(source,dest); if it is not "ok" then error "mov",source,dest; end else begin get CopyFile(source,dest); if it is not "ok" then error "mov",source,dest else get DeleteFile(source); end; end; handler copy(source,dest); begin get CopyFile(source,dest); if it is not "ok" then error "copy",source,dest; end; handler docommand(command,dest); begin get the last character of dest; if (it is not "\") and not ((length(dest) is 2) and (it is ":")) then put "\" after dest; put field "list" into flist; put the number of lines of flist into numitems; put field "Files from" into source; if the last character of source is not "\" then put "\" after source; for i = 1 to numitems do begin hilite line i of field "list"; get line i of flist; put dest & it into d; put source & it into s; put true into doit; if the check of button id 10 then begin if FileExists(d) then begin answer "Ok to overwrite" && d & "?" with "Yes","No"; put it is "Yes" into doit; end; end; if doit then send command s,d to this page; end; end; handler cycle(command); begin if field "Destination" is empty then begin set the focus to field "destination"; answer "You have not specified a destination directory. Choose Pick to select from a list." with "Ok"; exit; end; docommand command,field "destination"; pop page into dummy; go to pad "dos"; if Command = "move" then send "reread" to this page; end; handler settransfer(dirname,flist); begin put dirname into field "files from"; put flist into field "list"; put the number of lines of flist into field "Number of files"; set the focus to field "Destination"; end; handler setdestination(dest); begin put dest into field "destination"; set the insertpoint of field "destination" to the length of dest + 1; send "select" to page button "Ok"; end; handler help; begin go to pg 1 of pad "dos.hlp"; end;M      <$error87Ok to ing fileXError-,---  U0**$move87 X1XX1+o   deletefile;: XXXX   renamefile;: XXXok .movX   error;:$kX   copyfile;: XXXok .movX   error;:$ X  deletefile;: XXX*$copy87X   copyfile;: XXXok .copyX   error;:*$ docommand87 Xl> XXX: +2    :+1y\ .1\ XX Xlist&## XXX A XXXXFiles from&## XXX\ Xl>.\ XX 1 XXX  6Xlist&X  \ X  XXX  , XXX  , XXX XXXX10O  cP    ;:?NoYes? Ok to overwrite-,  UYes + XXX   X` 1  XXX$*$cycle87XDestination&##+tXdestination& hOkYou have not specified a destination directory. Choose Pick to select from a list.  U*XXdestination&##  docommand;:_ XXXdos moveX+reread` *$ settransfer87XXfiles from&X X Xlist&X X AXNumber of files&X XXDestination& h*$setdestination87XXdestination&X XXdestination&  1X   : PselectXOkL *7dos.hlp1*~ HyperPAD 2.2 Brightbil-Roberts & Co. DOS Comands ܄ۄۄۄۄۄۄType in the directory to files to, thenۄ select Ok.ۄۄSelect Pick to chose the directoryۄ from a list.ۄۄۄۄۄۄۅ"Use TAB to highlight a field or but on, then pres ENTER.p0ˀ01@h& \0zZB%5-Handler Select; Begin help; End; 57X  :*HFN(F1=Helpon1GGpO_& HyperPAD 2.2 Brightbil-Roberts & Co. DOS Comands p00@F)P)(Ht|handler keypress(k); begin if key(k) = "enter" then send "select" to page button "start search" else pass; end;687enterX   W:+!selectXstart searchL $/*PI<*Search Fort00p$HCase Sensitivep# handler Select; begin if page field "search for" is empty then exit; put page field "directory" into dname; if the last character of dname is not "\" then put "\" after dname; put page field "search list" into flist; put the number of lines of flist into numitems; get the rect of page field "found"; put (item 4 of it) - (item 2 of it) - 3 into h; put 0 into numfound; put empty into page field "Found"; show page button id 13; for i = 1 to numitems do begin get the first word of line i of flist; hilite line i of page field "search list"; put dname before it; if search( it, page field "search for", the check of page button "Case Sensitive") then begin add 1 to numfound; put line i of flist after the last line of page field "found"; if numfound >= h then set the startline of page field "Found" to (numfound - h); end; end; hide page button id 13; end; 6 7Xsearch for%##+*Xdirectory%## XXX\ Xl>.\ XX Xsearch list%## XXX A XXXXfound%  )cXXXX3XX2XX4 XXX0 XXXXFound%X XX13N  *R P1 XXX  6 X I XXXXXsearch list%X  \ XXX XXsearch for%##XCase SensitiveL  c  search;:\1 XXXV X Xfound%XlA    4XFound%    P1  XXX$X13N  *S P*H&46k+Start Search100p1xOHP Search Listp HpC:\PIDirectory400p HP $Foundp0yHandler Select; Begin if page field "found" is empty then begin answer "Unable to set the view -- there are no files found." with "Ok"; exit; end; put page field "found" into flist; put page field "directory" into dname; go to pad "dos"; put "Searched Files" into field "Viewing"; put dname into field "Directory"; put flist into field "list"; End; 7Xfound%##+@OkUnable to set the view -- there are no files found. XU*Xfound%## XXXXdirectory%## XXXdos Searched FilesXViewing&X X XDirectory&X X Xlist&X X*H 6@d3Set Viewwew100p2yOC&6.handler Select; begin cancel; end; 67X  :*H BJL5Cancelch1GGpC.OP' KT!pDpxoType the text to search for in the Search For field, then select Start Search. HyperPAD adds files that contain the text to the Found list. When done, select Set View to copy the Found List back to your DOS view.H  FSearching; Ctrl+Break to abort.5oop)dlhandler searchfiles(dname,flist); begin put flist into page field "search list"; put dname into page field "directory"; put empty into page field "Found"; end; handler break; begin hide page button id 13; end; handler help; begin go to page id 11 of pad "dos.hlp"; end; handler openpage; begin set the focus to page field "Search For"; end;#$ searchfiles87 Xsearch list%X XXXdirectory%X XXFound%X X*7X13N  *S P*7dos.hlp11*7XSearch For% h*ox Search ܅ۅۅۅۅۅۅۅۅۅۅۅۅۅۅۅۅۆ"Use TAB to highlight a field or but on, then pres ENTER.0ʀM 7: )*!+111B2\2225 6j667HHH HW-=5Handler Select; Begin cycle "copy"; End; =7copy  cycle;:*H=A5<OkCopyon10GpOO_7$ Copy Copy To:copy0% <;; <<<HHH HW-=5Handler Select; Begin cycle "move"; End; =7move  cycle;:*H=A<=OkCopyon10GpOO_7$ Move Move To:move0% [>`=v===>P D Load Command400p  handler runprogram(dname,pname); begin global pinfo; push recent; put GetExt(pname) into ext; put dname into fname; if the last char of fname is not "\" then put "\" after fname; put pname after fname; case ext of "exe" :; "com" :; "pad" : begin pop page into dummy; go to pad fname; exit; end; "bat" : put fullname(environment("COMSPEC")) && "/c" && fname into fname; otherwise : begin set the lockscreen to true; set the lockmessages to true; show msg; put "Searching for this file type..."; go to page 1 of pad "run"; get field "Program Info"; put the number of lines of it into n; put 1 into i; while i <= n and item 2 of line i of it is not ext do add 1 to i; hide msg; if i <= n then begin set the lockmessages to false; put line i of it into pinfo; send "runfile" fname to this page; exit; end; answer "A program that uses this type of file cannot be found. Do you want to add it?" with "Yes","No"; if it is "Yes" then begin set the lockmessages to true; go to pad "Add"; put dname into page field "Files In"; send "openpage" to this page; set the focus to page field "Program File Name"; put fname into page field "Work File Name"; end else pop page; exit; end; end; pop page; run fname with programdirectory; end;$ runprogram87   getext;: XXXX XXX\ Xl>.\ XX   XX  $$oexe+$com+$pad+_ XXX  *$bat+4 /cCOMSPEC   &:   a:-- XXX$X " PX  P  *R PSearching for this file type...)X Xrun1XProgram Info&## XXX A XXX1 XXX  X 2.  611 XXXV$  *S P  6;X P X pinfoXXX runfile` *NoYesA program that uses this type of file cannot be found. Do you want to add it?  UYes +tX  PAdd XXFiles In%X Xopenpage` XProgram File Name% h XWork File Name%X X$^*^  H*T." Run Program 0 K?QH>>