HPADÿÿ0JAdd Programà®­‰=ûaûa°žÞ®žAdd New Program¯#B%5-Handler Select; Begin help; End; Òž57X  ï:*HFN”ž|F1=Helpon1GGpÿ³Ï»handler help; begin go to page id 21 of pad "home.hlp"; end; handler openpad; begin if not fromHelp() then push recent; pass; end; handler cancel; begin pop page; end; ïžÏäå7home.hlp“21’*7X fromhelp;:y‘/*7^*Šb$‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚‚± A‚d New Program ½±ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾Ðp‚‡‘0ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡ÿ‡û‡` À‡H‡Ë&handler select; begin get line (the currentline of me) of page field "list"; put page field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; put ddir & it into page field "Program File Name"; send "select" to page button "Ok"; end; Ò7&7Xlist%##Xf€g Ú cXXXXXFiles in%## XXX\ Xl——>.\ XX X ,XProgram File Name%X XselectXOkL ‰*P ÀžËList0 0P0r0o0g0r0a0m0 0±‡±‡±‡±‡±‡¡p‡Èžÿÿpÿ‡‡H‡P@FFiles inr0o0g0r0a0m0 0±‡±‡±‡±‡±‡1p‡,Â7ÿÿÿ‡H¶owhandler keypress(k); begin if key(k) is "enter" then send "select" to page button "Ok" else pass; end;æ787enterX   W:+selectXOkL ‰$/*P J¼Àh Program file namea0m0 0±‡±‡±‡±‡±‡tp‡Àÿÿÿ‡ž$4,Handler Select; Begin global pinfo; put getfile() into fname; if not FileExists(fname) then begin answer "The specified program does not exist." with "Ok"; exit; end; put proper(GetPrefix(fname)) into description; put fname & "," & GetExt(page field "Work File Name") & ",,," & GetDirPart(fname) & ",true" into info; set the lockscreen to true; put page field "Work File Name" into wname; go to page 1 of pad "run"; put description after the last line of field "Programs"; put info after the last line of field "Program Info"; answer "Would you like to edit the program title and run parameters?" with "Yes","No"; if it is "Yes" then begin send "editprogram" the number of lines of field "Programs" to this page; if wname is not empty then put wname into page field "load this file"; end else begin send "SortPrograms" to this page; if wname is not empty then begin put info into pinfo; send "runfile" wname to this page; end; end; End;Òž47X getfile;: XXX    ;:y2OkThe specified program does not exist. XU*   getprefix;:   4: XXX,true   getdirpart;:,,,XWork File Name%##  getext;:, ,,,,, XXXX " PXWork File Name%## XXXrun“1’ XPrograms&Xl——A   XProgram Info&Xl——A  NoYesWould you like to edit the program title and run parameters? XUYesX+SXPrograms&##Aeditprogram` ‰ . Xload this file%X X$FSortPrograms` ‰ .& pinfoXXX runfile` ‰*H;? žr Ok Button0o0g0r0a0m0 0±‡±‡±‡±‡±‡1‡GGpÿ‡OB¯%5-Handler Select; Begin cancel; End;Ò657X  :*HBJÜž\Cancelcel0o0g0r0a0m0 0±‡±‡±‡±‡±‡1‡GGpÿ‡O‡H‡À´Ä¼handler select; begin get line (the currentline of me) of page field "dirs"; if char 1 of it = "[" then begin put page field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; delete char 1 of it; delete the last char of it; get trim(it); get fullname(ddir & it); end else get the directory of it; put it into page field "Files in"; reread; end;ÒÄ7Xdirs%##Xf€g Ú cXXXX[XX1+‹XFiles in%## XXX\ Xl>.\ XX XX1 WXXl> WX   6:XXXXX ,   a:XXXX$X   #:XXXXXXFiles in%X XX reread;:*P /„öšDirs0 0P0r0o0g0r0a0m0 0±‡±‡±‡±‡±‡¡p‡töšÿÿpÿ‡HPHOWork File Name!*-p„žÿÿpÿë ´â¼handler reread; begin get page field "Files in"; put the dirs of it into dlist; put substitute(drives(),",",return) after the last line of dlist; put dlist into page field "Dirs"; if the last character of it is not "\" then put "\" after it; put the files of (it & "*.EXE," & it & "*.COM," & it & "*.BAT") into page field "list"; set the startline of page field "list" to 1; set the startline of page field "dirs" to 1; end; handler openpage; begin put empty into page field "Work File Name"; put empty into page field "Program File Name"; if page field "files in" is empty then put the directory into page field "files in"; set the focus to page field "Program File Name"; reread; end; function _getfile(fname); begin get fname; if ":" is not in it then begin put page field "Files In" into dname; if "\" is not in it then begin if the last char of dname is not "\" then put "\" after dname; if FileExists(dname & it) then get dname & it else get FindFile(it); end else put char 1 to 2 of dname before it; end; put fullname(it) into fname; if not FileExists(fname) then return empty else return fname; end; handler notthere; begin answer "The specified program does not exist." with "Ok"; exit to hyperpad; end; function getfile; begin put page field "Program File Name" into fname; if "." is in fname then get _getfile(fname) else begin get _getfile(fname & ".bat"); if it is empty then get _getfile(fname & ".exe"); if it is empty then get _getfile(fname & ".com"); end; if it is empty then notthere; return it; end; handler mark; begin end;€7âéö)€‚–*€£ +€‚è þæ $reread7XFiles in%##XXXXX   E: XXXX  Y:,   P: Xl——A   XDirs%X X\XXl——>. \XXX *.BATX*.COM,X*.EXE,X,,,,,   ":Xlist%X XXlist%  Ë 1 PXdirs%  Ë 1 P*7XWork File Name%X XXProgram File Name%X XXfiles in%##+X  #:Xfiles in%X XXProgram File Name% hX reread;:*$ _getfile87X XXX :x±XFiles In%## XXX \xq\ Xl——>.\ XX   ,   ;:  , XXX$    ]: XXX$ X21 XX     a:XXXXX   ;:y9$X9*$ notthere7OkThe specified program does not exist. XU0**$ getfile7XProgram File Name%## XXX .w!   _getfile;:XXXX$.bat ,  _getfile;:XXXXX+%.exe ,  _getfile;:XXXXX+%.com ,  _getfile;:XXXXX+X notthere;:X9*7*Dµ‹ÿõÚÆĿ܇³Æ³Û‡³Æ³Û‡³Æ³Û‡³Æ³Û‡³— Other drivesŠType in the fu‚l path„³Û‡³—and directories‡name of the program you‚³Û‡³­ want to a‚d into the…³Û‡³­Program Name box. Or,„³Û‡³­use the File and‰³Û‡³­Directory list boxes…³Û‡³­to locate the program,ƒ³Û‡³­then select Ok.Š³Û‡³Æ³Û‡³Æ³Û‡³Æ³Û‡³Æ³Û‡ÀÆÄÙÛˆÈßÿ¤- Select a program to run and then select OK.£ ÿõÈ€‡È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡†È€‡‡È€‡ÿ£Ð0A |i! µ˜ ê R  êÂ*