HPAD’’0|3 J±definelabelī- ž“–fš ˜'setupNaŚ£L¦(Äž|†Alabel_listaŚ£L¦(Äž|†o^O‡muhandler domenu(d); begin case d of "Next" : ; "Previous" : ; "First" : ; "Last" : ; "New Page" : ; "Delete Page" : ; "Cut Page" : ; otherwise : pass; end; end; handler help; begin go to pg 1 of pad "lprint.hlp"; end; handler cancel; begin pop page; end; handler openpad; begin if not fromHelp() then push recent; pass; end;辏ļ.ä487X$$wNext+$ļ’Previous+$Ż’First+$Ī’Last+$Ą’New Page+$®’Delete Page+$™’Cut Page+$‡’/*7lprint.hlp“1’*7^*7X fromhelp;:y‘/*dMZd ’’›/##2 22'łā85####!#$#8#J#R#d#ĖĖU‹ģƒģVĒFīø‰FöPš‚#‰Fņ‰VōÄ^ņ&Ä&Ę’v ’vš-ƒÄ‰Füƒ~üé)‹F‹V ‰Fų‰VśĒFģė’Fų’FģÄ^ų&ŠˆFź Ąt < t‹F9Fģ~į‹F9Fģ’FģėU‹FF‹V ‰Fų‰Vś‹F‰Fģė’Nģ’Nųƒ~ģ| Ä^ų&€? uėƒ~ģ}‹F‰Fģė€~źt’Fų’FģÄ^ų&ŠˆFź< tē‹Fģ)FüH‰Fž Ą|‹ČŒ^źÅv‹Ł€8 t€8 uIyńŽ^ź‰Nž’Fž’vō’vņ‹FöFž@Pš›#’vž’v ’vÄ^ņ&‹&‹WFöHRPš(-ƒÄ Ä^ņ&Ä7vö‹^ž&Ę@’ Ä^ņ&Ä^ö‹vž&ʋĘ@Fö’Fī‹F9Fī|ƒ~ö~‹^öÄvņ&Ä4&Ę@ž‹Fņ‹Vōė ‹FģFéØž^‹å]ĀU‹ģƒģƒ~tø‹å]ĖF‰FšŒVņƒFšÄ^š&‹Gü&‹Wž‰Fö‰VųƒFš‹^š&’wž&’wüš–#‰FžƒFšÄ^š&’wž&’wüš–#‰Fō’vų’vöš‡#Ä^ö&’w&’7’vž’vōč迉Fś‰VüRPš‘#’vų’vöšŒ#ø‹å]Ėģ 24#N#2 #ø2ŽŲŗ"“ Ķ!øLĶ!VWø2ŽŲ¾DæDč#_^šĖVWø2ŽŲ¾DæDč _^šĖ;÷sƒļ‹ Etņ’ėīĆ2ä.’. °éō’°éļ’°éź’° éå’° éą’°éŪ’U‹ģ‹×Ä~3Ą¹’’ņ®÷ŃI‘‹ś]ĖU‹ģWVÄ~Åv ‹ß‹Nć ¬ ĄtŖāų2ĄóŖ‹ĆŒĀ^_‹å]Ėformat2žThis program requires HyperPAD. $FORMAT ĶB%5-handler select; begin help; end; Ņž57X  ļ:*H‡DLžE F1=Helpon‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡GGp’‡Q ‡ķ õhandler leftmargin; begin print repchar(item 4 of page field "label type",space); end; handler Gatherinfo; begin Global LabelData,data; get page field "label type"; put item 12 of it - item 8 of it - item 9 of it into height; put item 13 of it - item 10 of it - item 11 of it into Wid; put format(labeldata,wid,height) into labeldata; get the number of lines of labeldata; put repchar(height-it,return) after labeldata; if the check of page button "center" then for i = 1 to height do begin get length(line i of labeldata); if it > 0 then put repchar((wid - it) div 2,space) before char 1 of line i of labeldata; end; put labeldata & return after data; end; Handler Printlabels; begin global data; get page field "label type"; put item 2 of it into lab_across; put item 4 of it into pg_left_margin; put item 7 of it into Vert; put item 8 of it into Lab_top_Margin; put item 9 of it into Lab_bottom_Margin; put item 10 of it into Lab_left_Margin; put item 11 of it into Lab_Right_Margin; put item 12 of it - Lab_Top_Margin - lab_bottom_margin into Height; put item 13 of it - Lab_Left_Margin - Lab_Right_Margin into Wid; print repchar(Lab_Top_Margin,return); for i = 1 to height do begin get repchar(pg_left_margin,space); for j = 1 to lab_across do begin put repchar(Lab_Left_Margin,space) after it; put line i + (height * (j-1)) of data into l; if j <> lab_across then put l & repchar(Wid - length(l) + Vert + Lab_Right_Margin,space) after it else put l after it; end; print it & return; end; print repchar(Lab_Bottom_Margin,return); put empty into data; end;€ž €H€ $ leftmargin7Xlabel type%##X4   Z:}*$ gatherinfo7Xlabel type%##XXXXXX9XX8XX12  XXXXX11XX10XX13  XXXlabeldata    format;:labeldataXXXlabeldataAXXXXX     Z:labeldataXX XcenterL  Å c•1 XXX  6}labeldataX    :XXXX0X392X  o   Z:labeldataX 1  1  XXX$w’ labeldata,dataXX *$ printlabels7 Xlabel type%##XXXXXX2 XXXXX4 XXXXX7 XXXXX8 XXXXX9 XXXXX10 XXXXX11 XXX  XX12  XXX  XX13  XXX    Z:}1 XXX  6ū    Z:XXXX1 XXX  6­    Z:XXX dataX1  !  XXX  .<      :     Z: ,XXX $ XXX 1  XXX$G’ X,}1  XXX$łž    Z:}dataXXX*‰_&‚ HyperPAD 2.2Ø Brightbi‚l-Roberts & Co.‚‚± Label Printer æ±’’’’’’’’’’’’’’¾Šp‚‡0’‡’‡’‡’‡’‡’‡’‡’‡’‡’‡’‡’‡’‡’‡­‡Š0@Ó &‰ C&6.Handler select; begin cancel; end; Ņž67X  :*H‡DL4žČCancelton‡‡‡‡‡‡‡‡‡‡‡‡1‡GGp’‡"fvnHandler Select; Begin put pg fld "description" & repchar(24,space) & "," & pg field "labels across" & "," & pg field "labels down" & "," & pg field "page left margin" & "," & pg field "page top margin" & "," & pg field "Horizontal" & "," & pg field "Vertical" & "," & pg field "label top Margin" & "," & pg field "label bottom Margin" & "," & pg field "Left" & "," & pg field "Right" & "," & pg field "Height" & "," & pg field "Width" into nlabel; go to page "label_list"; put nlabel into line (item 2 of pg fld "Lastone") of pg fld (item 1 of pg fld "Lastone"); End; Ņžv7XWidth%##,XHeight%##,XRight%##,XLeft%##,Xlabel bottom Margin%##,Xlabel top Margin%##,XVertical%##,XHorizontal%##,Xpage top margin%##,Xpage left margin%##,Xlabels down%##,Xlabels across%##,24   Z:Xdescription%##,,,,,,,,,,,,,,,,,,,,,,,,, XXXlabel_list XXLastone%##X1%XXLastone%##X2 X*H‡=AžWOk Button‡‡‡‡‡‡‡‡‡‡‡‡1‡GGp’‡HP :HLabels Across%pž’’’HP 8 < Labels Downs%p(ž’’’HP 8 G Page Left Margin%pųž’’’HP 7GPage Top Margin%pž’’’HP 2BHorizontalDistance Between5pčž’’’HP 2@VerticalDistance Between5pĄž’’’ HP ' * Label Top Margin Between%00p ž’’’ HP ' * Label Bottom Margintween%00p¤ž’’’ HP LeftMarginarginntween500p¬ž’’’ HP $RightMarginargintween500p“ž’’’ HP   Heightight Margintween%00p¼ž’’’HPWidthight Margintween500pČž’’’HP,Descriptions%00pøž’’’Y‡6F>handler cancel; begin go to page "label_list"; end;žF7label_list*.}­‚File‚Edit‚Database‚Go‚T‚ols‚Objects‚ Workspace’¾Ś‚Ä[PrintLabels]·Äæ܄³É³Ū„³¬ Label dimensions:ˆ ‚³Ū„³†„ ƃċ†Ä“ŒŚ™Ä悳Ū„³ˆĀ–°Top:…³Acro‚s:‘³‚³Ū„ ³Height:³‚°’²‚°Œ³Down:‡ (tracter=0)³‚³Ū„³ˆ³‚°’²‚°ŒĄ™ÄŁ‚³Ū„³ˆ³‚°’²‚°Bo‚tom:… Page margins:³Ū„³ˆĮ–°ŠŚ™Ä悳Ū„³Š’Œ³Left:Œ‡ ³‚³Ū„³¬³Top:‡ ³‚³Ū„³¬Ą™ÄŁ‚³Ū„³­Betw‚e n labels:ƒˆ ‚³Ū„³‚Label discription: —Ś™Ä悳Ū„³¬³’‡ ³‚³Ū„³¬³’‡ ³‚³Ū„³¬Ą™ÄŁ‚³Ū„ĄÉÄŁŪ…Ėß Ļ ŃFi‚l/ out label size specifications, then select Ok.œĻp‚‡Ģ„‡Ė‡ƒ‡Ė€ƒ‡Ė€ƒ‡Ė€ƒ‡Ė€ƒ‡‹–pŖ€ƒ‡‹–pŖ€ƒ‡‹–pŖ€ƒ‡‹–pŖ€ƒ‡‹–pŖ€ƒ‡Ė€ƒ‡Ė€ƒ‡Ė€ƒ‡Ė€ƒ‡Ė€ƒ‡Ė€‡‚Ė€‡‚Ė€‡‚Ė€‡ƒĖ€’ó $h$ {ÅŪ-C•«ż e { Ķ ć 5!K!!³!""m"ƒ"Õ"ė"=#S#„#»#H”lš1P  Copies5p0ž’’’ž æÕĒhandler topmargin; begin print repchar(item 5 of page field "label type",return); end; Handler Select; Begin global LabelData,data; put pg fld "rtnPAD" into rtnpad; put pg fld "Copies" into numcopies"; put page field "PrintLabelRtn" into rtn; if the check of pg button "all" then begin set the lockScreen to true; push this page; go to pad rtnpad; put the number of pgs into n; pop page; for npgs = 1 to n do put npgs into item npgs of pg fld "Pages"; set the lockScreen to false; end else if pg field "pages" is empty then begin answer "You must first select some pages to print. Do this by selecting the PICK button next to the Pages field" with "Ok"; exit; end; set the printer to on; push this page; show pg button id 24; set the lockScreen to true; topmargin; put the number of items of pg fld "pages" into n; put 0 into acrosscount; put 0 into downcount; get page field "label type"; put item 2 of it into labelsacross; put item 3 of it into labelsdown; put item 6 of it into hor; put empty into data; put 1 into x; while x <= n do begin put item x of pg fld "pages" into pageid; push this page; go to page pageid of pad rtnPAD; send rtn to this pad; pop page; for z = 1 to numcopies do begin gatherinfo; add 1 to acrosscount; if acrosscount >= labelsacross then begin printlabels; put 0 into acrosscount; add 1 to downcount; if downcount >= labelsdown then begin if labelsdown is not 0 then begin print formfeed; topmargin; end else print repchar(hor,return); put 0 into downcount; end else begin print repchar(hor,return); end; end; end; add 1 to x; end; if acrosscount > 0 then begin printlabels; end; delete data; delete labeldata; set the printer to off; hide pg button id 24; pop page; set the lockscreen to false; End;€žÕŅ $ topmargin7Xlabel type%##X5   Z:}*7XrtnPAD%## XXXXCopies%## XXXXPrintLabelRtn%## XXXXallL  Å ctX " P`]  B XXX^1 XXX  60 XPages%X  X1  XXX$Ä’X " P$‰Xpages%##+tOkYou must first select some pages to print. Do this by selecting the PICK button next to the Pages field XU*X Ń ‚ą P`]X24N  *R PX " PX topmargin;:Xpages%##@ XXX0 XXX0 XXXXlabel type%##XXXXXX2 XXXXX3 XXXXX6 XXXdataXXX1 XXX  66Xpages%##X  XXX`] “ ’  ‰^1 XXX  6ÕX gatherinfo;:1 XXXV  4–X printlabels;:0 XXX1 XXXV  4I0 .}X topmargin;:$    Z:}0 XXX$    Z:}1  XXX$’1 XXXV$¾ž0 3X printlabels;:dataXXWlabeldataXXWX Ń ‚ß PX24N  *S P^X " P*H‡8<˜ž…(Ok Button‡‡‡‡‡‡‡‡‡‡‡‡1‡GGp’‡PH5PPrintLabelRtnrgintween5 plž’’’ H˜lš GetBusiness]2B:Handler Select; Begin set2 the id of me; End; ŅžB7fg ,c  set2;:*H‡   ˜tšC6AllButton‡‡‡‡‡‡‡‡‡‡‡‡°"‡p’‡]2B:Handler Select; Begin set2 the id of me; End; ŅžB7fg ,c  set2;:*H‡    tšģ6Selected:‡‡‡‡‡‡‡‡‡‡‡‡°#‡p’‡P H ,Pages%pž’’’ HP @ 5Label typeµp4®š’’’P Hąž<;;My labels ,1,0,2,0,2,0,1,0,0,0,10,40Y66F>Handler Select; Begin go to pg "label_list"; End; ŅžF7label_list*H‡ AFlž”8Pickutton‡‡‡‡‡‡‡‡‡‡‡‡1‡0p’‡ó6¤“¬Handler Select; Begin global print_pgs; send "select" to pg button "Selected:"; push this page; go to pad pg fld "rtnpad"; send "pick" to this page; end;Ņž“7selectXSelected:L ‰`]Xrtnpad%## pick` ‰*H‡  œžF9Pickutton‡‡‡‡‡‡‡‡‡‡‡‡1‡0p’‡C&6.Handler select; begin cancel; end; Ņž67X  :*H‡>FŒž…:Cancelton‡‡‡‡‡‡‡‡‡‡‡‡1‡GGp’‡PH<ORtnPadbelRtnrgintween5 p¤ž’’’H lšphone]2B:Handler Select; Begin set1 the id of me; End; ŅžB7fg ,c  set1;:*H‡3 @ Ųtš‚;Leftutton‡±‡±‡±‡ÄÄÄÄÄÄÄÄ°#p’]2B:Handler Select; Begin set1 the id of me; End; ŅžB7fg ,c  set1;:*H‡3 @ ątš+<Centerdn‡±‡±‡±‡ÄÄÄÄÄÄÄÄ°"p’H‡ :Printing.........‡‡‡‡‡‡‡‡5‡GGp’‡‚p›·£handler set1(bid); begin set the check of pg button "Center" to false; set the check of pg button "Left" to false; set the check of pg button id bid to true; end; handler set2(bid); begin set the check of pg button "All" to false; set the check of pg button "Selected:" to false; set the check of pg button id bid to true; end; handler receivepages(p); begin put p into page field "Pages"; end;€ž·€€U$set187XCenterL  Å  PXLeftL  Å  PXXN  Å  P*$set287XAllL  Å  PXSelected:L  Å  PXXN  Å  P*$receivepages87XXPages%X X*qf’’’šŚæÄæ܎³æ³ĆæÄ“³ Pages to print:’ …Align:³³Ś”Äæ…Ś“Ä泏³³”³…³“³³³³”³…³“³³³Ą”ÄŁ…Ą“ÄŁ³³æ³³æ³³æ³³æ³³æ³ĄæÄŁĮß’’ŹPre‚s/ Pick to select pages to print, then select Ok.›’’’šĮ€ŽĮŽĮŽĮŽĮŽĮŽĮŽĮŽĮŽĮŽĮŽĮŽĮŽĮĮ€’’’š] =¢?(3(…5Ļ5!6¢6K7•7ē7ż7O8ü8;:Ź:;f;į;Š<Ō<{‡H‡ÜžgfęAvery (5160) 3x10 1 x 2.5" ,3,10,0,0,0,2,0,0,1,0,6,25 Avery (5161) 2x10 1 x 4" ,2,10,0,0,1,2,0,0,1,0,5,39 Avery (5162) 2x7 1.3"x4" ,2,7,0,2,0,2,0,0,1,1,8,40 Avery (5163) 2x5 2"x4" ,2,5,0,0,1,2,0,0,1,0,11,39 Avery (5164) 2x3 3.3"x4" ,2,3,0,0,1,3,0,0,0,0,19,39 Avery (5197) 2x6 4"x1.5" ,2,6,0,3,0,3,0,0,1,0,9,39 Avery (5196) 3x3 2.7"x2.7" ,3,3,0,8,2,2,0,0,0,0,16,26 Avery (5267) 4x20 .5"x1.7" ,4,20,2,2,0,3,0,0,0,0,3,18~ąščHandler Select; Begin get the number of lines of page field "custom"; put "Custom" & "," & (it + 1) into pg fld "lastone"; go to page "definelabel"; for x = 1 to the number of pg fields do put "" into pg fld x; End;Ņžš7Xcustom%##AXXXX1X,Custom,,Xlastone%X Xdefinelabel1 XXXXC 6%X %X X1  XXX$Ń’*H‡ ØžńC1-New Labelpe‡‡‡‡‡‡‡‡‡‡1 ‡p‡1xRŹŚŅhandler select; begin get the currentline of me; put the name of me & "," & it into pg fld "lastone"; get line (it) of pg fld "custom"; go to pg "setup"; put it into pg fld "label type"; end;ŅžŚ7f€g Ś cXXXXX,f‡g Xc,,Xlastone%X XXcustom%##XXXXXXsetupXXlabel type%X X*P‡(\ž»ECustomLabels‡‡‡‡‡‡‡‡‡‡p‡4ž’’’‡Ł‡H‡@žÅÄsAvery (4143) x2 4"x1" ,2,0,0,0,1,1,0,0,1,1,5,40 Avery (4144) x3 2.5"x1" ,3,0,0,0,1,1,0,0,1,1,5,25 Avery (4145) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4146) x1 4"x1.5" ,1,0,0,0,1,0,1,0,1,1,8,41 Avery (4160) x1 3.5"x2.5" ,1,0,0,0,1,0,2,2,3,3,14,35 Avery (4162) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4163) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4166) x2 3"x5" ,1,0,0,0,1,0,1,1,1,1,17,50 Avery (4168) x1 2.2"x4" ,1,0,0,0,3,0,1,0,1,1,10,40 Avery (4169) x1 3"x5" ,1,0,0,0,4,0,2,2,2,2,14,50 Avery (4240) x1 4.7"x1.2" ,1,0,0,0,2,0,0,0,1,0,7,48 Avery (4241) x1 2.7"x2.7" ,1,0,0,0,2,0,1,0,1,1,16,27 Avery (4249) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4250) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4251) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4253) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35 Avery (4254) x1 3.5"x1" ,1,0,0,0,1,1,0,0,1,1,5,35ü5E=Handler Select; Begin if pg fld "lastOne" is empty then answer "Highlight a label, then select Ok." with "Ok" else begin put line (item 2 of pg fld "Lastone") of pg fld (item 1 of pg fld "Lastone") into newlabel; go to page "setup"; put newlabel into pg fld "label type"; end; End;ŅžE7XlastOne%##+1OkHighlight a label, then select Ok. XU$jXXLastone%##X1%##XXLastone%##X2 XXXsetup Xlabel type%X X*H ;?HžUse TAB to select a label type,  to select a label, then pre‚s ENTER.ˆ’õĒ€ˆ‚¢0‚Ÿ0‚ˆĒˆĒˆĒˆĒˆĒˆĒˆĒˆĒˆ‚¢0£ˆĒˆĒˆĒˆĒˆĒˆĒˆĒŠʀŌŠŠE ćZŹ\ tAqEGaG:N„NOTÜV|X ZrZ‘Z