HPAD 0|D Jset_uprfzfsf[&letters 2set_upsfH,J4Bx0^g1xf 7`9IAhandler help; begin go to pg 1 of pad "letter.hlp"; end;I7letter.hlp1*dMZd /##2 22'85####!#$#8#J#R#d#ːːUVFFP#FV^&&v v-F~)FV FVFFF^&F t < tF9F~F9FFUFFV FVFFNN~| ^&? u~}FF~tFF^&F< tF)FHF |Ȍ^vـ8 t8 uIy^NFvvFF@P#vv v^&&WFHRP(- ^&7v^&@ ^&^v&@FFF9F|~~^v&4&@FV FF^]U~t]ːFFVF^&G&WFVF^&w&w#FF^&w&w#Fvv#^&w&7vvFVRP#vv#]ː 24#N#2 #2غ" !L!VW2ؾDD#_^VW2ؾDD _^;s Et2..  U~3I]UWV~v ߋN t2Ì^_]format2This program requires HyperPAD. $FORMAT@PLeft margin4pP!1Right margin4pP#1Top margin4pP#4Bottom margin4pP) L NameTitletpP( L TitleitletpP& L CompanyletpP& L AddressletptP ) L Cityssletp}P (:Statesletp} P ;LZipesletp} P &DClosingletp} D'7/Handler Select; Begin cancel; End; 77X  :*HgFN.Cancelith Phone Padfg h dfgh d f1dGGpLC.OPHeightr4p8 PWidthr4p< Handler Select; Begin put "&Sincerely yours,&Very truly yours,Sin&cerely,&Cordially,&Respectfully,&Regards" into list; get popup(46,17,list); if it is 0 then exit; put substitute(item it of list,"&",empty) into field "closing"; end;7&Sincerely yours,&Very truly yours,Sin&cerely,&Cordially,&Respectfully,&Regards XXX4617    O:XXXX0X+* XX&   P:Xclosing&X X*HgFKbPick With Phone Padfg h dfgh d f1d00pL?IHandler Select; Begin set the printer to on; show pg button "printing..."; set the lockscreen to true; Print_It; hide pg button "printing..."; cancel; set the lockscreen to false; end;7X  PXprinting...L  *R PX " PX print_it;:Xprinting...L  *S PX  :X " P*Hg@DHfOkect Addressesprint h dfgh d f1dGGpLOB%5-Handler Select; Begin help; End; 757X  :*HFNF1=Helpls1GGp4{emHandler cancel; begin pop page; end; Handler Print_it; begin global LastLine,print_pgs; put fld "Width" into wid; put fld "Height" into lnt; put fld "Left Margin" into L_Mar; put fld "Right Margin" into R_Mar; put fld "Top Margin" into T_Mar; put fld "Bottom Margin" into Bt_Mar; pop page; put format(field "letter",wid-L_Mar-R_Mar,1000) into notes; push this page; go back; put the number of items of print_pgs into n; for z= 1 to n do begin go to pg (item z of print_pgs) of pad "Phone"; put fld "Salutation" && fld "first name" && fld "Last Name"&return into holder; put fld "Title"&return after holder; put fld "company"&return after holder; put fld "address"&return after holder; put fld "City" & "," && fld "state" && fld "Zip" & return & return & return & return after holder; put "Dear" && fld "Salutation" && fld "Last name" & "," after holder; get the number of lines of holder; for tmp = 1 to it do if line tmp of holder is empty then delete line tmp of holder; domenu "back"; put the longdate & return & return before holder; put notes after holder; flush repchar(T_Mar,return); flush repchar(wid - L_Mar - 30," "); flush fld "Company" & return; flush repchar(wid - L_Mar - 30," "); flush fld "Address" & return; flush repchar(wid - L_Mar - 30," "); flush fld "city" & "," && fld "state" && fld "zip" & return & return; put the number of lines of holder into tmp; for l = 1 to tmp do flush repchar(l_mar," ") & (line l of holder) & return; flush repchar(1,return); flush repchar(l_mar," "); flush fld "closing" & "," & return & return & return & return; flush repchar(l_mar," "); flush fld "Name" & return; flush repchar(l_mar," "); flush fld "title"; flush formfeed; end; set the printer to off; end; handler flush(b); begin global lastline,bt_mar,lnt; put lastline + 1 into lastline; if (lastline = (lnt - bt_Mar)) then begin print formfeed; put 1 into lastline; end; Print b; end;L7^*$ print_it7 XWidth&## XXXXHeight&## XXXXLeft Margin&## XXXXRight Margin&## XXXXTop Margin&## XXXXBottom Margin&## XXX^Xletter&##    1000  format;: XXX`]print_pgs@ XXX1 XXX  6Phoneprint_pgsX  XLast Name&##Xfirst name&##XSalutation&##--, XXX XTitle&##, XX  Xcompany&##, XX  Xaddress&##, XX  XZip&##Xstate&##,XCity&##,--,,,, XX ,XLast name&##XSalutation&##Dear--, XX  AXXXX1 XXXX 69 X + X  W1  XXX$back   : X  :,, XX   XX     Z:  flush;:30      Z:  flush;: XCompany&##,  flush;:30      Z:  flush;: XAddress&##,  flush;:30      Z:  flush;: Xzip&##Xstate&##,Xcity&##,--,,  flush;: A XXX1 XXX  6F X     Z:,,  flush;:1  XXX$1   Z:  flush;:    Z:  flush;: ,Xclosing&##,,,,,  flush;:    Z:  flush;: XName&##,  flush;:    Z:  flush;:Xtitle&##  flush;:  flush;:1  XXX$gX  P*$flush871lastlinelastlineXXXbt_marlnt lastline+}1lastlineXXXX}*n HyperPAD 2.2 Brightbil-Roberts & Co. Let er Print ÂmÃڛž Ă͂̈́ ̈́ [ From ] Ă͂Ă̈́ ̈́  ą͎     ͑    ̈́ĂĂăĂ͂    ͂ă̈́Ă͂͂    ĄĂ͂ĂĆ  è   Ăēق  ܉ ÉČ  "Specify print margins and your adres, then select Ok.p0ppppppppppppppp0Y@G# V L B 8t?PMLetter)p0pJu~Handler Select; Begin global print_pgs; get field "Print Pages"; if it is empty then begin answer "Choose ^"3-Pick Addresses^" to selected pages from your Phone pad to merge with the letter." with "Ok"; set the focus to background button id 20; end else begin put it into print_pgs; push this page; go to pg "Set_up"; end; End;7XPrint Pages&##XXXXX+rOkChoose "3-Pick Addresses" to selected pages from your Phone pad to merge with the letter. XUX20O h$ Xprint_pgsXXX`]Set_up*H @'1-Print..1p1x[2B:Handler Select; Begin domenu "previous"; End; 8B7previous   :*H #&B8)w Button1GGpS.>6Handler Select; Begin domenu "next"; End; 8>7next   :*H(+B8E*w Button1GGpuUe]Handler Select; Begin domenu "new page"; set the focus to field "letter"; End; 8e7new page   :Xletter& h*H B8*2-Newon1p2y>(80Handler Select; Begin go home; End; 887*HIOB8+Homeutton1GGpD'7/Handler Select; Begin cancel; End; 877X  :*H CGB8F,eutton1GGpPPPrint Pagest$previous+ 1pTO6p^nfHandler Select; Begin push this page; go to pad "Phone"; send "Pick" to this page; end;n7`]Phone Pick` *Hg (-3-Pick Addressessest h dfgh d f1dpL3zB%5-Handler Select; Begin help; End; 757X  :*HFN-F1=Helpls1GGp4{Vhandler receivepages(p); begin put p into field "print pages"; end; handler cancel; begin go to pad "pad"; end; handler domenu(d); begin case d of "next" : go to the next page of this background; "previous" : go to the previous page of this background; "first" : go to the first page of this background; "last" : go to the last page of this background; otherwise : pass; end; end;$receivepages87XXprint pages&X X*7pad *87X$$Nnext+t$previous+t$first+ t $last+t$/*:\ HyperPAD 2.2 Brightbil-Roberts & Co. Write a Leter ۅType in your leter, then pick some adreses, then select Print.p0χχχχχχχχχχχχχχχχχˀ09@.0 &T))*r++,,-B.pHp5pHp5H5pHpL5HJ Your namepHpxO6 Your title"pHplO6 Your company (pHppO6Your street addressL HAdO6 Your Cityp HphO6 Your State H`O6 Your Zip!p Hp[ RespectfullyHH65 H80H =Printing...5GGpW1" Print a Leter 0M I4 [2s222222 3J3j333333H A project is now underway in France to determine what technology should be used in a regional and national network for the country's scientific community. Several U.S. and French vendors are performing compatibility tests on two networks linked by a dedicated line. The network members exchange information and share computer resources, and they are looking for the technology that can solve the problem of their overburdened Ethernet network. We would appreciate any information you might be able to provide.Hf47