HPAD0|J`Design Label¡!A/f/fMhandler openpage; begin global print_pgs; set the focus to fld "label"; set the check of button id 19 to (whichitem(print_pgs,the currentpage) > 0); end; handler pick; begin global print_pgs; put empty into print_pgs; show button id 18; show button id 19; end; handler closepad; begin hide button id 18; hide button id 19; end; handler cancel; begin global print_pgs; if the visible of button id 19 then begin pop page; send "ReceivePages" print_pgs to this page; put empty into print_pgs; end else go to pad "pad"; end; Handler help; begin go to pg 1 of pad "label.hlp"; end; Handler GetLabel; begin global Labeldata; put fld "label" into labeldata; end; D7Xlabel& hX19O  0print_pgsX  7:  whichitem;:3 P*$pick7print_pgsXXXX18O  *R PX19O  *R P*7X18O  *S PX19O  *S P*7X19O  *c:^print_pgsReceivePages` print_pgsXXX$pad *7label.hlp1*$ getlabel7Xlabel&##labeldataXXX*JMZJ )!#'*>PXjUWVF~tFFVF^&_&&WFVF^&_&&WFVvFVFV~&=,tG&=u~F&* t&'vvvvF t^&,~uv tFFFv RP^_]ːː/!‹UV!]UN1V!r3]O!r3 t o:Tغ8 !L!VWؾZZ#_^VWؾZZ _^;s Et2..Uv ^ t-&'C:t,A<ɀ A,A<ɀ A:t]whichitemFFFFFFFFThis program requires HyperPAD. $WITEMp fhandler select; begin if the visible of button id 19 then begin cancel; exit; end; put the currentpage into cp; push this page; go to page "setup" of pad "lprint"; put "Getlabel" into pg fld "printlabelrtn"; put "Label" into pg fld "rtnpad"; put cp into pg fld "pages"; put 1 into pg fld "Copies"; send "set1" 17 to this page; send "set2" 10 to this page; end;7X19O  *c X  :*X  7: XXX`]setuplprintGetlabelXprintlabelrtn%X XLabelXrtnpad%X X Xpages%X X1XCopies%X X17set1` 10set2` *H)1-Printn1 p1xP FLabelp[2B:Handler Select; Begin domenu "previous"; End; B7previous   :*H #&-w Button1GGpS.>6Handler Select; Begin domenu "next"; End; >7next   :*H *-w Button1GGpW.>6handler select; begin domenu "new page"; end;>7new page   :*H s2-New Label1 p2yB%5-Handler Select; Begin help; End; 57X  :*HFNF1=Helpon1GGpD'7/Handler Select; Begin cancel; End; 77X  :*HCG Button1GGp>(80Handler Select; Begin go home; End; 87*HIO44Homeutton1GGpHandler Select; Begin global print_pgs; put the currentpage into cp; get whichitem(print_pgs,cp); set the check of button id 19 to it is 0; if it is 0 then put cp after the last item of print_pgs else delete item it of print_pgs; End;7X  7: XXXprint_pgs   whichitem;:XXXXX19O  0X+ P0X+* print_pgsXl@  $print_pgsXX W*H< Include This Page100pI?HH Merge?tonpO\ HyperPAD 2.2 Brightbil-Roberts & Co. Print Labelsھ܏ۏۏۏۏۏۏۏۏۏې7Type in the title and label content, then select Print.p009@ )Ztqe HQPIHyperPAD 2.0 Brightbill-Roberts & Co. Copyright 1990 1 of 1 Program + Pads disk