Category : Word Processors
Archive   : HP22D2.ZIP
Filename : SPRINT.PAD

HPAD
Aÿÿ0

JXškt škô 
À ³tFške„¾ 0Ÿ¸
sprint Program½3B%5-Handler Select;
Begin
help;
End;


Ò
ž57
X


ï:*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$printscripts8
7

*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**$_printscripts8
7
1lastlineXXXXbackgroundsL

Åc
XXXXpagesL

Åc
XXXXpadL

Åc
XXXXbackground buttonsL

Åc
XXXXbackground fieldsL

Åc
XXXXpage buttonsL

Åc
XXXXpage fieldsL

Åc
XXXXX
%c
XXXX
%5

P`]1
3

ÈcScript of Pad-

Zc


flushscript;:
j
G
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$­þ
b
B
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*$
flushscript87
X)X
X

+
*65-


Z:
XXX


 X
,,,,,,,



flush;:*$flush8
7XA
XXX1
XXX

6g XX
,}
1lastlineXXXV60lastline4}
1lastlineXXX1

XXX$ÿ*7
Sprint.hlp“14’*7
pad*‡_$‚ 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
ÚcXXXXXFiles 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;
Ò
657
X


:*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
ÚcXXXX[XX1+‹XFiles in%##

XXX\

Xl>.\

XX
XX1

WXXl>

WX



6:XXXXX

,



a:XXXX$X



#:XXXXXXFiles in%X
XX

reread;:*P

-Ìž`Dirs0 0P0r0o0g0r0a0m0 0±‡±‡±‡±‡±‡¡p‡Äžÿÿpÿ‡"Hž

C:\CONFIG.SYSP
H 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;
Ò
š4
7XList%


á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ÿŽH1HPadScrptsScripts͎͎͎͎͎͎͎´ŽCCpÿŽH
1HBackground buttonssipts͎͎͎͎´ŽCCpÿŽH
1HBackground 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;



Ò
ž×
7
X
âcXFiles 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ñemhandler 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€‚ä$reread7
XFiles in%##XXXXX



E:Xdirs%X
XX

Y:,


P:Xdirs%Xl——A

\XXl——>.
\XXX
*.PADX,



":Xlist%X
XXlist%


Ë1

PXdirs%


Ë1

P*7
XPad Name%X
XXfiles in%##+X

#:Xfiles in%X
XXPad Name%

hX

reread;:*$
_getfile8
7X

XXX

:x±XFiles In%##
XXX

\xq\
Xl——>.\
XX



,



;:


,

XXX$





]:

XXX$
X21

XX







a:XXXXX



;:y9$X9*ç
c
€ÿõ
ÚÆĿ܇³Pad Name:¼³Û‡
ÃÆÄ´Û‡
³Æ³Û‡
³– Other drives¤³Û‡
³–and directories:ƒ Include scripts from:†³Û‡
³ª
ژÄ
¿‚³Û‡
³ª
³˜
³‚³Û‡
³ª
³˜
³‚³Û‡
³ª
³˜
³‚³Û‡
³ª
³˜
³‚³Û‡
³ª
³˜
³‚³Û‡
³ª
³˜
³‚³Û‡
³ª
³˜
³‚³Û‡
³ª
À˜Ä
ق³Û‡
³Æ³Û‡
³Æ³Û‡
ÀÆÄÙۈÈßÿ¥&Select a pad to print, then select Ok.©ÿõÈ
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡È
€‡‚³“
€‡‚³“
€‡È
€ˆȀÿ¤Ð0e á*Ô1
+TjJ""t"˜"ê"#4%~%È%&\&¦&ð&:'*—*