HPADAÿÿ0JXškt škô À ³tFške„¾ 0Ÿ¸sprint Program½3B%5-Handler Select; Begin help; End; Òž57X  ï:*HFNXš|F1=Helpon1GGpÿ3g;handler printScripts(padName); begin put the visible of msg into savedMsg; show msg; set the lockMessages to true; set the printer to on; _printScripts(padName); set the printer to off; set the visible of msg to savedMsg; end; handler printMany; begin put the markedLines of page field "List" into lineNums; put page field "List" into pList; put the number of items of lineNums into n; answer "Ok to print scripts from" && n && "pads?"; if it is not "Ok" then exit to hyperPAD; set the printer to on; set the lockMessages to true; for i = 1 to n do _printScripts line (item i of lineNums) of pList; set the printer to off; exit to HyperPAD; end; handler _printScripts(padName); begin global outbuffer,lastline; put 1 into lastline; put the check of pg button "backgrounds" into backScript; put the check of pg button "pages" into pageScript; put the check of pg button "pad" into padScript; put the check of pg button "background buttons" into bbuttonScript; put the check of pg button "background fields" into bfieldScript; put the check of pg button "page buttons" into pbuttonScript; put the check of pg button "page fields" into pfieldScript; go to pad padName; put the userlevel into savedUserLevel; set the userlevel to 5; push this page; go to page 1; if padScript then flushScript "Script of Pad" && the longname of pad,the script of pad; if backScript then begin put the number of backgrounds into total; for i = 1 to total do begin go to background i; flushScript "Script of" && (the longname of background i),the script of this background; if bbuttonScript then begin put the number of background buttons into n; for j = 1 to n do flushScript "Script of" && the longname of bg btn j,the script of bg btn j; end; if bfieldScript then begin put the number of background fields into n; for j = 1 to n do flushScript "Script of" && the longname of field j,the script of bg fld j; end; end; end; if pageScript then begin put the number of pages into total; for i = 1 to total do begin go to page i; flushScript "Script of" && the longname of this page,the script of this page; if pbuttonScript then begin put the number of page buttons into n; for j = 1 to n do flushScript "Script of" && the longname of page button j,the script of pg button j; end; if pfieldScript then begin put the number of page fields into n; for j = 1 to n do flushScript "Script of" && the longname of page field j,the script of pg field j; end; end; end; set the userLevel to savedUserLevel; pop page; go to pad "sprint"; end; handler flushScript(title,scriptText); begin put title; if scriptText is empty then exit; get repeatChar(65,"-"); flush it & return & title & return & it & return & scriptText & return; end; handler flush(b); begin global lastline; put the number of lines of b into numLines; for j = 1 to numLines do begin print line j of b & return; add 1 to lastLine; if lastline >= 60 then begin print formfeed; put 1 into lastline; end; end; end; handler help; begin go to pg id 14 of pad "Sprint.hlp"; end; handler cancel; begin go to pad "pad"; end; €žg €ä €é €E€¾ï\t$printscripts87  *c XXX  *R PX Ý  PX Ñ ‚à PX  _printscripts;:X Ñ ‚ß P  *  P*$ printmany7XList%  á c XXXXList%## XXX @ XXXpads? Ok to print scripts from--XXUOkX.0*X Ñ ‚à PX Ý  P1 XXX  6A X X   _printscripts;:1  XXX$³ÿX Ñ ‚ß P0**$_printscripts87 1lastlineXXXXbackgroundsL  Å c XXXXpagesL  Å c XXXXpadL  Å c XXXXbackground buttonsL  Å c XXXXbackground fieldsL  Å c XXXXpage buttonsL  Å c XXXXpage fieldsL  Å c XXXX X %c XXXX %5 P`]1 3  È cScript of Pad-  Zc  flushscript;: jG XXX1 XXX  6G  „   È cScript of-t  Zc  flushscript;: sXF XXX1 XXX  6OX M  È cScript of-X M  Zc  flushscript;:1  XXX$¥ÿ sXE XXX1 XXX  6OX &  È cScript of-X &  Zc  flushscript;:1  XXX$¥ÿ1  XXX$­þ bB XXX1 XXX  6? `  È cScript of-`  Zc  flushscript;: sXD XXX1 XXX  6OX L  È cScript of-X L  Zc  flushscript;:1  XXX$¥ÿ sXC XXX1 XXX  6OX %  È cScript of-X %  Zc  flushscript;:1  XXX$¥ÿ1  XXX$µþX %  P^sprint *$ flushscript87X)X X +*65-   Z: XXX   X ,,,,,,,  flush;:*$flush87XA XXX1 XXX  6g XX ,}1lastlineXXXV60lastline4}1lastlineXXX1  XXX$ÿ*7Sprint.hlp“14’*7pad *‡_$‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚‚± Print Scripts¿±ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¾Ð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 "Pad Name"; send "select" to page button "Print"; end; Òž 7Xlist%##Xf€g Ú cXXXXXFiles in%## XXX\ Xl——>.\ XX X ,XPad Name%X XselectXPrintL ‰*P ”–šAList0 0P0r0o0g0r0a0m0 0±‡±‡±‡±‡±‡¡p‡´§šÿÿpÿ‡‡H‡P@KFiles inr0o0g0r0a0m0 0±‡±‡±‡±‡±‡4p‡0žÿÿÿ‡B¯%5-Handler Select; Begin cancel; End;Ò657X  :*HCGÀž¼¼celcel0o0g0r0a0m0 0±‡±‡±‡±‡±‡1‡GGpÿ‡C.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‡Äžÿÿpÿ‡"Hž C:\CONFIG.SYSPH H Work File Name!*-pžÿÿpÿHP KPad nameŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽtpŽ4[šÿŽà$4,handler select; begin if the markedLines of page field "List" is not empty then printMany; put page field "pad name" into padName; if padName is empty then exit; answer "Ok to print scripts from ^"" & trim(padName) & "^"?"; if it is not "Ok" then exit; printscripts padName; end;Òš47XList%  á c.X printmany;:Xpad name%## XXX +*"?    6:Ok to print scripts from ",,XXUOkX.*   printscripts;:*H CJ8xšR#PrintScriptstions000000010GGp0IOH1 H BackgroundscriptsŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽ´ŽCCpÿŽH1 H PagesptssriptsŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽ´ŽCCpÿŽH1 H PadScrptsScriptsÍŽÍŽÍŽÍŽÍŽÍŽÍŽ´ŽCCpÿŽH1HBackground buttonssiptsÍŽÍŽÍŽÍŽ´ŽCCpÿŽH1HBackground fieldssiptsŽÍŽÍŽÍŽÍŽ´ŽCCpÿŽH1HPage buttonscriptsÍŽÍŽÍŽÍŽÍŽÍŽÍŽ´ŽCCpÿŽH1HPage fieldscriptsŽÍŽÍŽÍŽÍŽÍŽÍŽÍŽ´ŽCCpÿŽ‰Ç×Ïhandler select; begin put the currentdirectory into page field "Files In"; reread; set the check of page button id 19 to false; set the check of page button id 18 to true; set the check of page button id 17 to false; set the check of page button id 22 to true; set the check of page button id 23 to true; set the check of page button id 20 to false; set the check of page button id 21 to false; end; Òž×7X â cXFiles In%X XX reread;:X19N  Å PX18N  Å  PX17N  Å PX22N  Å  PX23N  Å  PX20N  Å PX21N  Å P*H3Až„'Set Defaultstions00000001000pÿ0IO<¯&6.Handler Select; Begin go home; End;Òž67‹*HIOLžY*Homelcel0o0g0r0a0m0 0±‡±‡±‡±‡±‡1‡GGpÿ‡C.Oñemhandler reread; begin get page field "Files in"; put the dirs of it into page field "dirs"; put substitute(drives(),",",return) after the last line of page field "dirs"; if the last character of it is not "\" then put "\" after it; put the files of (it & "*.PAD") 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 "Pad Name"; if page field "files in" is empty then put the directory into page field "files in"; set the focus to page field "Pad 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; €žét€‚ä$reread7XFiles in%##XXXXX   E:Xdirs%X XX  Y:,   P:Xdirs%Xl——A  \XXl——>. \XXX *.PADX,   ":Xlist%X XXlist%  Ë 1 PXdirs%  Ë 1 P*7XPad Name%X XXfiles in%##+X  #:Xfiles in%X XXPad Name% hX reread;:*$ _getfile87X XXX :x±XFiles In%## XXX \xq\ Xl——>.\ XX   ,   ;:  , XXX$    ]: XXX$ X21 XX     a:XXXXX   ;:y9$X9*çc€ÿõÚÆĿ܇ ³Pad Name:¼³Û‡ÃÆÄ´Û‡³Æ³Û‡³– Other drives¤³Û‡³–and directories:ƒ Include scripts from:†³Û‡³ªÚ˜Ä¿‚³Û‡³ª³˜³‚³Û‡³ª³˜³‚³Û‡³ª³˜³‚³Û‡³ª³˜³‚³Û‡³ª³˜³‚³Û‡³ª³˜³‚³Û‡³ª³˜³‚³Û‡³ªÀ˜ÄÙ‚³Û‡³Æ³Û‡³Æ³Û‡ÀÆÄÙÛˆÈßÿ¥&Select a pad to print, then select Ok.©ÿõÈ€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡È€‡‚³“€‡‚³“€‡È€ˆÈ€ÿ¤Ð0e á*Ô1+TjJ""t"˜"ê"#4%~%È%&\&¦&ð&:'*—*