HPAD 0 Jd2Rj|7P Run Program6Edit ProgramECommandsg6OpP NScan/.ȢcTO6{P )VRMZR ]3*F=B=:=6=.=*=vhWW#*'*+*-*1*4*H*Z*b*t*UW~ &= u&AG&=u~FN_]UVF~~vFvvJ3@FNuFV^]UWV~t ^_]ːFFVF^&G&WFV^&w&7IFP * F~~FVvN~&5F;|v^&&WFVF~oFFFF9F}\~+FFFvv&0RPvv&1RPb3 ~&F&&F&NuFFF9F|6 6*+ ːːUWV~u   u ^_]ˍFFVF^&G&WFV^&w&7J3@P*FV^&&WFV^&&WFVvvFF ~UHF+vvv&1RPvv3vvJ3F9v~ ^& FF;v|vvv*"~yt o(=D*^*=*=غ` !L!VW=ؾ#_^3VW=ؾ _^;s Et2..ːU׋v ؎3~ǨtI]U~3I]Uv ^ t-&'C:t,A<ɀ A,A<ɀ A:t]sortinitapplysortsortterm =p==FFFFFFFFThis program requires HyperPAD. $SORT|B%5-Handler Select; Begin help; End; 57X  :*H FN F1=Helpon1GGpOPH&IS PIF ITEM.1/*41p07p[7G?handler cancel; begin go to page "Run Program"; end;7G7Run Program*sM" HyperPAD 2.2 Brightbil-Roberts & Co.бp0@  & p >(80Handler Select; Begin go home; End; 87*HIO Homeutton0m001GGp-- EXE, EXT, KEYS, PARMS, WORK FILE DIR handler runprogram; begin global pinfo,cline; put item 2 of pinfo into wext; if wext <> empty then begin answer "Load a work file?" with "Yes","No","Cancel"; if it is "Cancel" or it is empty then exit; if it is "Yes" then begin put item 5 of pinfo into wdir; if the last char of wdir is not "\" then put "\" after wdir; put fileopen("Work File","Work filename:",wdir & "*." & wext) into wname; if wname is empty then exit; put GetDirPart(wname) into item 5 of line cline of field "Program Info"; push this page; runfile(wname); exit; end; end; push this page; runit(wname); end; handler select; begin global pinfo,cline; if the shiftkey is "down" then editprogram the currentline of me else begin put the currentline of me into cline; put line cline of field "program info" into pinfo; runprogram; end; end;ow$ runprogram7pinfoX2 XXX .0CancelNoYesLoad a work file? XUX+CancelX+2*YesX+pinfoX5 XXX\ Xl>.\ XX Work FileWork filename: *. ,,   N: XXX +*   getdirpart;:XProgram Info&Xcline5 X`]   runfile;:*`]   runit;:*7downX  :+ fg c  editprogram;:$Xfg cclineXXXXprogram info&##XclinepinfoXXXX runprogram;:*P;x9Programsp4pP PProgram InfoppB%5-Handler Select; Begin help; End; 57X  :*HFN7F1=Helpon1GGpOZ& HyperPAD 2.2 Brightbil-Roberts & Co. Programsıp0!@ X@HH6.function askdeletecurrent; begin put the currentline of field "Programs" into cline; get line cline of field "Programs"; if it is not empty then begin answer "Are you sure you want to remove" && quote & it & quote && "from the Programs list?"; if it is not "Ok" then exit to hyperpad; end else exit to hyperpad; return cline; end; handler deleteprograms(plist); begin put the number of items of plist into nm; for i = nm down to 1 do begin delete line (item i of plist) of field "Programs"; delete line (item i of plist) of field "Program Info"; end; set the focus to field "Programs"; end; Handler Select; Begin get the markedlines of field "programs"; if it is empty then get askdeletecurrent(); deleteprograms it; End;:.$askdeletecurrent7XPrograms&  c XXXXPrograms&##X XXXXX.Yfrom the Programs list?XAre you sure you want to remove-,,-XXUOkX.0*$0* 9*$deleteprograms87X@ XXX  XXX1 4ZXPrograms&XXX  WXProgram Info&XXX  W1  XXX$XPrograms& h*7Xprograms&  cXXXXX+ X askdeletecurrent;:XXXXX  deleteprograms;:*Hh:_3-Removev1 p3zI6.>6Handler Select; Begin go to pad "add"; End;7>7add *H  B82-Addtonv1 p2yU64D<Handler Select; Begin go to page "Commands"; End;D7Commands*H=  =4-Misc.ds..v1 p4{6Handler Select; Begin if field "Programs" is empty then exit; get the markedlines of field "Programs"; if it is empty then get the currentline of field "Programs" else put field "Programs" into field "Programs"; editprogram item 1 of it; End; 7XPrograms&##+*XPrograms&  cXXXXX+XPrograms&  cXXXX$&XPrograms&##XPrograms&X XXX1  editprogram;:*H> 1-Edit..v1 p1x -- EXE, EXT, KEYS, PARMS, WORK FILE DIR handler domenu(d); begin if d is not "next" and d is not "previous" then pass; end; handler openPage; begin set the focus to field "Programs"; end; handler checkList; begin if field "Programs" is empty then begin answer "The program list is empty." with "Ok","Scan Disk","Add One Program"; if it is "Scan Disk" then begin go to page "Commands"; send "select" to page button id 5; end else if it is "Add One Program" then send "select" to pg btn "2-Add"; end; end; function translate(s,fname); begin put substitute(s,"",GetFilePart(fname)) into s; put substitute(s,"",GetDirPart(fname)) into s; put substitute(s,"",fname) into s; put substitute(s,"",GetPrefix(fname)) into s; get GetDirPart(fname); if the last char of it <> "\" then put "\" after it; put substitute(s,"",it) into s; return s; end; handler runfile(wname); begin global pinfo; put item 3 of pinfo into lcmd; if lcmd is not empty then begin record translate(lcmd,wname); playback; put empty into wname; end; runit(wname); end; handler runit(wname); begin global pinfo; get (item 1 of pinfo) && translate(item 4 of pinfo,wname); pop page; if item 6 of pinfo then run it with programdirectory else run it; end; handler editprogram(l); begin put line l of field "Programs" into description; get line l of field "Program Info"; go to page "Edit Program"; put l into page field "Saved"; put description into page field "Program Description"; put item 1 of it into page field "Program Path"; put item 2 of it into page field "Work File Extension"; put item 3 of it into page field "Keystrokes"; put item 4 of it into page field "Command Line Parameters"; put item 5 of it into page field "Work File Directory"; set the check of page button id 10 to item 6 of it; end; handler tobutton; begin get the markedlines of field "programs"; if it is empty then get the currentline of field "Programs"; set the lockscreen to true; get item 1 of it; domenu "new button"; put the number of page buttons into bnum; put line it of field "program info" into pinfo; put line it of field "programs" into description; set the withedge of page button bnum to false; set the name of page button bnum to description; set the color of page button bnum to 23; set the shadow of page button bnum to true; set the rect of page button bnum to 10,10,10 + length(description) + 2,11; set the hiliteiffocus of page button bnum to true; put "handler Select;" & return & "begin" & return into s; get (item 1 of pinfo) && translate(item 4 of pinfo,""); put " run ^"" & it & quote after s; if item 6 of pinfo then put " with programdirectory;" after s; put return & "end;" after s; set the script of page button bnum to s; domenu "Cut Button"; domenu "Browse"; set the lockscreen to false; answer "The button has been created. Navigate to the pad you want to paste the button into (make sure the userlevel is set to Authoring) and select Edit - Paste Button" with "Ok"; end; handler sortprograms; begin put field "programs" into names; put field "program info" into info; sortinit names; put applysort(names) into field "programs"; put applysort(info) into field "program info"; sortterm; end; handler help; begin go to page id 45 of pad "home.hlp"; end;  "+;2 87previousX.nextX.1/*7XPrograms& h*$ checklist7XPrograms&##+Add One ProgramScan DiskOkThe program list is empty. XUScan DiskX+"CommandsselectX5N $.Add One ProgramX+selectX2-AddL *$ translate87X   getfilepart;:   P:XXXXX   getdirpart;:   P:XXXXX    P:XXXXX   getprefix;:   P:XXXX   getdirpart;: XXX\ Xl>.\ XX X    P:XXXXX9*$ runfile87pinfoX3 XXX .6 X  translate;:   :X  :XXXXX  runit;:*$runit87pinfoX4X  translate;:pinfoX1- XXX^pinfoX6  H$ XH*$ editprogram87XPrograms&##XX XXXXProgram Info&##XX XXXEdit ProgramXXSaved%X X XProgram Description%X X X1XProgram Path%X X X2XWork File Extension%X X X3XKeystrokes%X X X4XCommand Line Parameters%X X X5XWork File Directory%X XX10N  X6 P*$ tobutton7Xprograms&  cXXXXX+XPrograms&  cXXXXX " PXX1XXXXnew button   :XD XXXXprogram info&##XX XXXXprograms&##XX XXXX L  PX L  X  PX L  23 PX L   PX L  )112    :101010 PX L   P begin handler Select;,,, XXX X4  translate;: X1-XXXXX run ",, XX  X6% with programdirectory; XX end; , XX X L  Z  PCut Button   :Browse   :X " POkThe button has been created. Navigate to the pad you want to paste the button into (make sure the userlevel is set to Authoring) and select Edit - Paste Button XU*$sortprograms7Xprograms&## XXXXprogram info&## XXX   sortinit;:   applysort;:Xprograms&X X   applysort;:Xprogram info&X XX sortterm;:*7home.hlp45*fڥܨProgramsۨäĴ۩'Use  to highlight a program, then pres ENTER.0) 5U3I^H 47Y-- EXE, EXT, KEYS, PARMS, WORK FILE DIR Handler Select; Begin global pinfo; put page field "Saved" into cline; put trim(page field "Program Description") into description; get page field "Program Path" & "," & page field "Work File Extension" & "," & page field "Keystrokes" & "," & page field "Command Line Parameters" & "," & page field "Work File Directory" & "," & the check of page button id 10; put page field "load this file" into wname; go to page "Run Program"; put description into line cline of field "Programs"; put it into line cline of field "Program Info"; send "sortprograms" to this page; if wname is not empty then begin put it into pinfo; send "runfile" wname to this page; end; End;f7XSaved%## XXXXProgram Description%##   6: XXXX10N  c,XWork File Directory%##,XCommand Line Parameters%##,XKeystrokes%##,XWork File Extension%##,XProgram Path%##,,,,,,,,,,XXXXXload this file%## XXXRun Program XPrograms&X  XXXProgram Info&X  Xsortprograms`  .$XpinfoXXX runfile` *HAE h:7Ok Button1GGpOD'7/Handler Select; Begin cancel; End; 77X  :*HGOh:<Cancelton1GGpOHP7Program description4pHPJProgram pathtpHP  J Command line parameterstpHP J Work file directorytpHP Work File Extension$p\HPJKeystrokesd5p(7 HP  *Saved!pH7pHe $Run from program directoryp HPe hPload this fileN[0pPp Handler Select; Begin answer "Ok to remove program ^"" & trim(page field "program description") & "^"?"; if it is "Ok" then begin get page field "Saved"; cancel; send "deleteprograms" it to page button id 3; end; End; : 7"?Xprogram description%##   6:Ok to remove program ",,XXUOkX+;XSaved%##XXXXX  :XdeleteprogramsX3N *H Lh:2@3-Removen1p3z/{handler keypresss(k); begin if key(k) is "enter" then send "select" to page button "Ok" else pass; end;} handler cancel; begin if page field "load this file" is not empty then pop page else go to page "run program"; end; handler openpage; begin put empty into page field "load this file"; set the focus to page field id 3; end; handler help; begin go to page id 25 of pad "home.hlp"; end;7Xload this file%##.^$run program*7Xload this file%X XX3' h*7home.hlp25*z Edit Program ܆ۆۆۆۆۆۆۆۆWork file extension:.ۆ ۆۆۆۆۆۇUse TAB to move betwe%n fields, F2 to edit, then select Ok.0ɀˇe BKD6;^<<<=&=x====H>^>>>?.????AHg8H@Handler Select; Begin domenu "Run Program..."; End; H7Run Program...   :*H % \B8IFQuickly run a program..100p6Handler Select; Begin get environment("comspec"); if it is empty then get FindFile("COMMAND.COM"); if it is empty then answer "Unable to locate COMMAND.COM. The location of this file must be included in your path." else run it; End;7comspec   &:XXXXX+COMMAND.COM   ]:XXXXX+_Unable to locate COMMAND.COM. The location of this file must be included in your path.XXU$XXH*H+ E  5FGo to DOS promptmpt100p5|D'7/Handler Select; Begin cancel; End; 77X  :*HGO ICancelton1GGpO6pxHandler Select; Begin go to page "scan"; put substitute(drives(),",",return) into page field "drives"; End;67scanX  Y:,   P:Xdrives%X X*H % O6IScan for programs..100p5|6%Handler Select; Begin go to page "Run Program"; put the userlevel into saved; set the userlevel to 4; if the userlevel < 4 then begin answer "Unable to create the button." with "Ok"; end; send "tobutton" to this page; set the userlevel to saved; End;%7Run ProgramX %c XXXX %4 P4X %c5(OkUnable to create the button. XUtobutton` X %  P*H+ E JCreate buttonn button100p4{whandler cancel; begin go to page "Run Program"; end; handler help; begin go to page id 35 of pad "home.hlp"; end;7Run Program*7home.hlp35*gf Run Program  Comands ܋ What comand do you want to do?ۋۋۋۋۋۋۋۋۋۋۋۍUse TAB to highlight a but on, then pres ENTER.00À) L>M3FFHGIKJ;LHD'7/Handler Select; Begin cancel; End; 77X  :*H4<O6NCancelton1GGpODh\0/A: C: D: E: F: G: L: P: Q: S: T: U: V: X: Y: Z:D#3+Handler Select; Begin scan; End;637X scan;:*P "ODrivesO6ppD#3+handler select; begin scan; end;637X scan;:*H.2O6VPOk Button1GGpO0KaShandler scan; begin get the markedlines of page field "Drives"; if it is empty then get the currentline of page field "Drives"; put page field "Drives" into dlist; put the number of items of it into numdrives; go to page 1; for i = 1 to numdrives do begin push this page; put field "program info" into duplist; go to page 5 of pad "setup"; send "scandisk" char 1 of line (item i of it) of dlist,duplist to this page; pop page; end; send "sortprograms" to this page; end; handler help; begin go to page id 37 of pad "home.hlp"; end; as$scan7XDrives%  cXXXXX+XDrives%  cXXXXXDrives%## XXXX@ XXX11 XXX  6q`]Xprogram info&## XXXsetup5  XXX 1scandisk` ^1  XXX$sortprograms` *7home.hlp37*2 Run a Program  Scan for Programs ڪܣWhat drive do you want to scan?ۣۣۣۣۣۣۣۣۣۣۣۣۣۣۣۣۤPres ENTER to select a drive leter, ALT for comands00% PqTN.OxOPP