HPAD0|JtreeN9B1Z9z  handler openpad; begin push recent; pop page into it; if "dos.hlp" is not in it and "help.pad" is not in it then push recent; set the focus to field "tree"; set the check of button "Selecting" to false; pass; end; handler cancel; begin pop page; end; t7_XXXXXhelp.padxXdos.hlpx1Xtree& hXSelectingM  P/*7^*MZ7 =LBa>a6a2as\UO& [IB<~F bT3,@@-L1L5L7L;L>LRLdLlL~LP`RP1EːU~tPLRP L]U WV+FF+P<(~6VLFVRP^&&WRPbU5<(>(t&Gt/&.t܋ÌRPU@ tvvVL뒸PPbURPPUPbUPAP : ud~v^_]Ð~vPU}F^+~;|^&&Wƣ$&RPvvbU PvvU6&6$U@ t v^_]vvU^F&GP:P : uj뿐vPvvbUvvL+^_]ÐU~t]ːFFV%@`RPE t+PA@ɐF^&_^F&w&7PbUPUF؀\t Ƈ\ƇPPUPPFPL P;P :<I=Q^&w&7:P :CUvv9P :]U FFV~t]˚%@`RPE tFvA@ΐF^&G&WFVRP LRP}=ىNŐːːU3ۊfV!]sC˴/!‹UV!]UN1V!r3]O!r3SQRa؋2PZY[$5!..$%!$%..!ŋ^wgNONO W Wڋ3ˋ͋F u@^?uwgWONO N/_  zup0aNLhLa&Laغ\ !L!VWaؾ~~#_^VWaؾ~~ _^;s Et2..'U׋~3u~ +؎FFtI]U׋v ؎3~ǨtI]U~3I]OKERROR\*.**.**.*%c:\DeleteBranchMakeDira(a0FFFFFFFFThis program requires HyperPAD. $p MZpN !NJB>$c\ nHA.9{0(2$haZA:#{"{"6HPbPRP9ːU FP~u~u]À~u+]U&HFRP@&&6&6&6 u+]øRPP&&&WFRP ]ÐU WV+FFF&9tF&&FF&1 PPvv vvF&&H&;~&&t릐&>t,v v~tPPvvv vPvv uRP!w&3 tz~vHVFV u&&RP^&&WRP^=w&&>u`&&Gt׎&&.tNj&RP@ uhvvV th~v~vg tRP؍-FVFF9F|^&&WFFV RPvv^Pvv&^&&WFRP@Fv vF9F}+Pm uF&eFvvF^_]ːUFFV~t]ˍFFV-{RP  t0&6&6PRPI{]˃F^&G&WFV^&&*PPFP FP!PRP F^&LJF~ |w&&&+&&'P&&&vv+P&&&WFVRPHF^&? u&&6&6U WV&&&WFVF~~%NF~&= tG&=u~FFFV FV~^v&= t &GF&=uv^^~F^&^_]ːU WVF~t ^_]ˍFFVF^&G&W&&F^&w&wHF&&&&WFV~&= tG&=u~FFvAG&=u~F+^KC^&F&= tG&=u~FAF;F‰FV뭉N긜&F~}FF~RP^&7=RPFF^v;wN 0 then begin find the second character of item it of dlist in field "tree of drive"; if the result is "not found" then begin domenu "new page"; reread the second char of item it of dlist; end; set the focus to field "tree"; end; End;7X  Y: XXX ,&,,   P: XXX& XX 11    O:XXXX0X3 XXIXXtree of drive&  knot foundX  :+4new page   : XXI  reread;:Xtree& h*H !1-View Tree1 p1xP,,Tree of drivereread;:00 !psHk^nfHandler Select; Begin reread field "tree of drive"; set the focus to field "tree"; End; n7Xtree of drive&##  reread;:Xtree& h*HL<%2-Reread Tree1 p2yB%5-Handler Select; Begin help; End; 457X  :*H FN-&F1=Helpe1GGpP @+DBytes Freevereread;:00 1psLk|Handler Select; Begin put the markedlines of field "tree" into mlist; if mlist is empty then begin answer "There are no marked directories"; exit; end; put the number of items of mlist into numitems; put empty into dd; for i = 1 to numitems do begin put fulldir(field "tree",item i of mlist) into branch; answer "Ok to remove all files and directories under" && branch; case it of "Ok" : begin if DeleteBranch(branch) = "ERROR" then begin answer "Error deleting branch" && branch with "Ok"; end else put branch after the last line of dd; end; "Cancel" : exit; otherwise :; end; end; if dd is not empty then begin put the number of lines of dd into nl; set the lockscreen to true; push this page; go to pad "dos"; for i = 1 to nl do begin find line i of dd; if the result is not empty then begin put char 1 to 3 of field "directory" into field "directory"; send "reread" to this page; end; end; pop page; reread field "tree of drive"; end; End;7Xtree&  c XXX +&There are no marked directoriesXXU* @ XXX XXX1 XXX  6Xtree&## X   fulldir;: XXX Ok to remove all files and directories under-XXUX$$Ok+pERROR   deletebranch;:+)Ok Error deleting branch- XU$  XlA  $Cancel+*$s1  XXX$ . A XXXX " P`]dos 1 XXX  6w X XX kX  :.AXdirectory&##X31Xdirectory&X Xreread` 1  XXX$}^Xtree of drive&##  reread;:*H8F@ '6-Delete Branch1 p6}H >Reading Treef0 0d0r0i0v0e0:00050GGp0"Handler Select; Begin get fulldir(field "tree",the currentline of field "tree"); ask "New directory:" with it; if it is empty then exit; get MakeDir(it); if it is "error" then answer "Unable to make directory" with "Ok" else reread field "tree of drive"; End; "7Xtree&##Xtree&  c  fulldir;:XXXXXNew directory: XTX+*X  makedir;:XXXXerrorX+'OkUnable to make directory XU$&Xtree of drive&##  reread;:*H,5/4-Make Dirge1 p4{B%5-Handler Select; Begin cancel; End;57X  :*H EOd^1ESC=Doneree1GGpO8H@Handler Select; Begin go to the previous page; End; H7=*H;>l1ad Tree1GGpK4D<Handler Select; Begin go to the next page; End; D7<*H@Cd2ad Tree1GGpH0, A Selectingp-I5handler reread(drv); begin put the first char of drv into field "tree of drive"; show button "Reading Tree"; set the lockscreen to true; put empty into field "tree"; get the ReadTree of drv; hide button "Reading Tree"; if it is "ERROR" then begin put "<< Press ALT+2 >>" into field "tree"; answer "Unable to read tree" with "Ok" end else begin put it into field "tree"; put the diskspace of drv into field "bytes free"; set the lockscreen to false; end; end; handler break; begin hide button "Reading Tree"; end; handler help; begin { global hideit; if the check of button "Selecting" then put 30 into p else put 31 into p; put 1 into hideit; go to page id p of pad "dos.hlp"; put empty into hideit; } go to pg 1 of pad "dos.hlp"; end;I$reread87XXIXtree of drive&X XXReading TreeM  *R PX " PXtree&X XX  readtree;: XXXXReading TreeM  *S PERROR +H<< Press ALT+2 >>Xtree&X XOkUnable to read tree  U$C Xtree&X XX   :Xbytes free&X XX " P*7XReading TreeM  *S P*7dos.hlp1*!H HyperPAD 2.2 Brightbil-Roberts & Co. DOS Tre  Tre of :ڞܯۯۯۯۯ۰Pres&  to highlight a directory, then pres ENTER.p00뇠·0I@h3+8 c!$$%q&&..11=223HZeHa H 999