HPADY’’0|,JĢ3vBv ­fĄ(ŲĄ@b€¢¢¢¢ E6B÷ś}^Ż4 …š\÷ixMŽ7b¼ŲÄhandler cancel; begin global print_pgs; if the visible of button id 64 then begin pop page; send "ReceivePages" print_pgs to this page; put empty into print_pgs; end else go to pad "pad"; end; handler GetBusiness; begin global LabelData; get field "Salutation"; if it & "X" <> "X" then put space after it; put field "First Name" && field "Last Name" after it; put field "Title" after the last line of it; put field "Company" after the last line of it; put field "Address" after the last line of it; put field "City" & "," && field "State" && field "Zip" && field "Country" after the last line of it; put it into LabelData; End; handler GetPersonal; Begin global LabelData; get field "First Name" && field "Last Name"; put field "Address" after the last line of it; put field "City" & "," && field "State" && field "Zip" && field "Country" after the last line of it; put it into LabelData; End;6Ų€-€‹7X64O  *c:^print_pgsReceivePages` ‰print_pgsXXX$pad *$ getbusiness7XSalutation&##XXXXXXX,. XXX XLast Name&##XFirst Name&##-XXX XTitle&##XXl——A  XCompany&##XXl——A  XAddress&##XXl——A  XCountry&##XZip&##XState&##,XCity&##,---XXl——A  XlabeldataXXX*$ getpersonal7XLast Name&##XFirst Name&##-XXXXXAddress&##XXl——A  XCountry&##XZip&##XState&##,XCity&##,---XXl——A  XlabeldataXXX*JMZJ ’’ų)ÕĪ–!#'*>PXjU‹ģƒģWVĒFśƒ~téčF‰FīŒVšƒFīÄ^ī&Ä_ü&‹&‹W‰Fü‰VžƒFīÄ^ī&Ä_ü&‹&‹W‰Fź‰Vģ‹vņ‹Fü‹Vž‰Fö‰VųÄ~üė&€=,tG&€=uó‰~üŒFž‹ß&Š*䋹 öt&ˆ'’vģ’vź’vų’vöšƒÄ‰Fō ötÄ^ü&Ę,ƒ~ōu‰vņė öt’Fü’Fśė’ĒFśė萒vśš RPšø^_‹å]ĖĖĖ“/Ķ!ŒĀ‹ĆĖU‹ģ“ÅVĶ!]ŹU‹ģ“N¹1ÅVĶ!r3Ąėø]Ź“OĶ!r3ĄėøĖ° ét° éoģ:TøŽŲŗ8“ Ķ!øLĶ!VWøŽŲ¾ZæZč#_^šąĖVWøŽŲ¾ZæZč _^šāĖ;÷sƒļ‹ Etņ’ėīĆ2ä.’.U‹ģ‹ÖÅv Ä^°’ Ąt-¬&Š'C:ątó,A<ɀį ĮA†ą,A<ɀį ĮA:ÄtÓĄ’˜‹ņ]ĖwhichitemFFFFFFFFThis program requires HyperPAD. $WITEM8ą ’Žīęhandler select; begin put "&First Name,&Last Name,&Company,C&ity,&State,&Zip" into list; get popup(1,16,list); if it = 0 then exit; get item it of list; delete char offset("&",it) of it; sort by field it; end;Ņšī7&First Name,&Last Name,&Company,C&ity,&State,&Zip XXX116    O:XXXX0X+* XXXXXXXX&X   : W YXX&##Z*HŌĄ>1-Sort Functions00000001 0p01xwē÷ļhandler select; begin global lastfind; ask "Find what?" with lastfind; if it is empty then exit; put it into lastfind; find part it; if the result is "not found" then answer "Can't find ^"" & it & "^"." with "OK"; end;Ņž÷7lastfindFind what? XTX+*XlastfindXXXX X knot foundX  :+ OK".XCan't find ",, XU*H ž2-Find Functions00000001 0p02yP  Salutationr4p”ž’P EFirst name4p ž’P ELast name4p˜ž’PETitleon4p ž’P ECompany4pœž’P E Address1tp€{š’P / City4p“ž’P 0 State4phĄ’P#Zip4p¼ž’P  2Work phone4päž ’P! 2Home phone4p|ž ’P" 2Fax phone4pŠž ’G0@8Handler Select; Begin go to next page; End; Ņž@7<*H*),`ž· Button±±±±±±±±±±±1ŽGGp’ŽOK4D<Handler Select; Begin go to previous page; End; ŅžD7=*H+$'hžJ Button±±±±±±±±±±±1ŽGGp’ŽO}¼ĢÄhandler select; begin get field "hook"; if it is empty then begin push this page; set the lockscreen to true; get the id of this page; go to the last page of pad "pnotes"; send "domenu" "new page" to hyperpad; put it into field "hook"; get the id of this page; pop page; set the lockScreen to false; put it into field "hook"; end; go to page id it of pad "pnotes"; end;ŅžĢ7Xhook&##XXXXX+`]X " P`  ,cXXXXpnotes“B’new pagedomenuX‰XXhook&X X`  ,cXXXX^X " PXXhook&X Xpnotes“X’*H- 4žį4-Notetitntetstst t±‡±‡±‡±‡±‡1 ŽpŽ4{>(80Handler Select; Begin go home; End; Ņ787‹*H/IOxžŖHomehton1GGp’P3(>OHookNumber4Ģž ’B%5-Handler Select; Begin help; End; Ņž57X  ļ:*H4FN“ž†F1=Helpon‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1ŽGGp’Ž‚‡-=5handler select; begin if the visible of button id 64 then begin cancel; exit; end; answer "What type of label do you want to print?" with "Business", "Personal","Cancel"; if it is empty or it is "Cancel" then exit; put the currentpage into cp; push this page; go to page "setup" of pad "lprint"; put "Get" & it into pg fld "printlabelrtn"; put "phone" into pg fld "rtnpad"; put empty into pg fld "pages"; 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;Ņž=7X64O  *c X  :*CancelPersonalBusinessWhat type of label do you want to print? XUCancelX+X+2*X  7: XXX`]lprint“setup’XGet,Xprintlabelrtn%X XphoneXrtnpad%X XXpages%X X XPages%X X1Xcopies%X X17set1` ‰10set2` ‰*H7$ž3-Printn‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 ‡p‡3zP9 +Country4pŠž ’P:`'Ememo‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡"!pŽŌžp’ŽB%5-Handler Select; Begin cancel; End;Ņ857X  :*H;CGœž†!¼eutton0±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡‡1‡GGp’‡8RbZhandler select; begin put "&Home phone,&Work phone,&Fax phone" into fnames; get popup(35,19,fnames); if it is 0 then exit; get item it of fnames; delete char 1 of it; get field it; if it is empty then exit; go to pad "dial"; show button id 12; put it into field "Number to dial"; set the focus to button id 12; end;Ņb7&Home phone,&Work phone,&Fax phone XXX3519    O:XXXX0X+* XXXXXXXX1 WXX&##XXXXX+*dial X12O  *R PXXNumber to dial&X XX12O h*H<"'Tž"5-Dialtitntetstst t±‡±‡±‡±‡±‡1 ŽpŽ5|c!handler select; begin put field "First Name" && field "last Name" into n; if trim(n) is empty then begin answer "You must first enter a name to track" with "Ok"; Exit; end; put field "Company" into c; put field "Work Phone" into p; go to pad "outgoing"; find n in field "To"; if the result is "not found" then begin go to the last page; send "Domenu" "new page" to HyperPAD; put n into field "To"; put c into field "Of"; put p into field "Phone Number"; end; end;Ņž!7Xlast Name&##XFirst Name&##- XXX    6:+1OkYou must first enter a name to track XU*XCompany&## XXXXWork Phone&## XXXoutgoing XXTo&  knot foundX  :+\Bnew pageDomenuX‰ XTo&X X XOf&X X XPhone Number&X X*H=*6€ž˜$6-Track Calltntetstst t±‡±‡±‡±‡±‡1 ŽpŽ6}Y0@8handler select; begin domenu "new page"; end;Ņ6@7new page   č:*H?8<džG(7-Newoingtitntetstst t±‡±‡±‡±‡±‡1 ŽpŽ7~±‡’Handler Select; Begin global print_pgs; put the currentpage into cp; get whichitem(print_pgs,cp); set the check of button id 67 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;:XXXXX67O  Å 0X+ P0X+* print_pgsXl——@  $print_pgsXX W*H‡@ žģ(’ Include This PageŽŽŽŽŽŽ1Ž00pŽI?H‡CH Merge?ton‡±‡±‡±‡ŽŽŽŽŽŽŽŽ Žp’Ž»€ŗˆhandler deletePage; begin set the lockScreen to true; get field "hook"; if it is not empty then begin push this page; go to page id it of pad "pnotes"; send "domenu" "delete page" to hyperpad; pop page; put empty into field "hook"; put empty into field "Memo"; end; pass; end; handler domenu(d); begin if d is "new page" then begin go to the last page; send "domenu" "new page" to hyperpad; set the focus to field "first name"; end else pass; end; handler newpage; begin set the focus to field "first name"; end; handler openpad; begin set the focus to field "first name"; pass; end; handler closepad; begin hide button id 64; hide button id 67; end; handler openpage; begin global print_pgs; get empty; if field "hook" is not empty then get "Note Attached"; put it into field "memo"; set the check of button id 67 to (whichitem(print_pgs,the currentpage) > 0); end; handler help; begin go to pg id 6 of pad "phone.hlp"; end; handler pick; begin global print_pgs; put empty into print_pgs; show button id 64; show button id 67; end;įœŗč:ąä˜å°é×ļœ`$€ev7X " PXhook&##XXXXX.Q`]pnotes“X’delete pagedomenuX‰^Xhook&X XXMemo&X X/*87new pageX+.Bnew pagedomenuX‰Xfirst name& h$/*7Xfirst name& h*7Xfirst name& h/*7X64O  *S PX67O  *S P*7XXXXXhook&##.Note AttachedXXXXXXmemo&X XX67O  Å 0print_pgsX  7:  whichitem;:3 P*7phone.hlp“6’*$pick7print_pgsXXXX64O  *R PX67O  *R P*ŚZ|‚ HyperPAD 2.2Ø Brightbi‚l-Roberts & Co.‚‚± Phone Ā±‚tƒ±ÖŚæÄæ܍ÕŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¼-³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒĘŲO¼-³Ū ŒĘŲO¾³Ū ŒĘŲO¾³Ū ŒŌŲO¾³Ū ĄæÄŁŪ ŽĄß‡ ’ņPre‚s TAB to move betw‚e n fields, F2 to edit, ALT for co‚mands.Šp‚‡‡0ևƎ˜‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€Ž‡Į€‡Ą€’‡©‡ŠŠ0…@3+š1D Ņ•ß1ƒÕ'yĖoĮe—`ź4Ź˜ ā 4!Ź!N$ż'¢(Ÿ*é*€`žMr.€H O6John€ žSmith/€lžTechnical Support Engineer-€ōžBrightbill-Roberts & Co.6€H@ž"!!120 East Washington St. Suite 421€ģž Syracuse€H\ĄNY€äž13202# €ąž(315) 474-3400#!€<ž(315) 474-3400#"€Høž(315) 472-17323€H‡9€‡°žUSA:€HM ’’ S4m4ˆ4¤4Õ45<5[5t55µ5Ś5’56/6€Hf€H_€H€H_€H€H_€H€H_€H €H_!€H"€H_3€H9€H_:€HM’’ ”6Ŗ6Ą6Ö6ģ677.7D7Z7p7†7œ7²7Č7