Jb 128 MAIL & PHONE BY ''SOCKETS'' (C)1986, DONATED TO PUBLIC DOMAINoc PRINTER CODES ON LINES 641-646}d%: 1252n(14)xR$,R:I1R:O$(I)::"128 MAIL & PHONE"7,"AME (AST AME IRST)","DDRESS","ITY","TATE","IP ODE" "OME HONE","ATEGORY"'FO$(143)11280" RESS '' FOR HELP "FO$"PDATE IST  "FO$"IEW IST "FO$"RINT PTIONS "FO$"UIT & AVE "A$:10010A$"U"1290:240: *** UPDATE MODE SELECTED ***A$A$"A"330: *** ADDING NAMES ***LA$"D"410: *** DELETING NAMES ***{A$"E"620: *** EDITING NAMES ***A$"V"1330:280: *** VIEW MODE SELECTED ***A$A$"I"570: *** DISPLAY BY ITEM NUMBER ***A$"S" 450: *** SEARCH FOR STRING ***.A$"P"641E"A$"H"1360:180,A$"Q"640::"ǒ TO ...."(142):&:6A$(13)160@ 180J1280:1300:LN330TA$:A$""A:370^A$"XX"A:AA1:340hA$"END"340< r" TEM :"A"":I1R:O$(I):W$(I)"":W$(I)::W$(I)""160y |:W$(0)"XX"(34)","(A):ZA1010000:K0:(147)"" IZZR:I;"DATA"(34)W$(K):KK1::"GOTO"LN"":AA1 208,11:I08:842I,13:: 1280:1310 !A$"":""28):A$:(A$)0160G!:"":Z(A$)1010000:Z"DATA"(34)""(34)"," (A$)l!IZ1ZR:I::"GOTO410":400|!1281:1340!""33):B$:B$""160!H0:A$:A$"END"30)" ": 2:160!A$""A:470"A:I1R:A$(I):(A$(I),(B$))B$H1":H0470V""TEM: "A"":I1R:""O$(I);"":" "A$(I):v""IT NY EY TO ROCEED""A$"Q1"&1330:1340:35)""B$"0470":1280:1350:W0"DA$"":""28):A$:A(A$):A$""A11602#N(10000A10):A$:A$"XX"30)" Œ": 2:570^#XA$:I1R:A$(I)::Q1:510:Q0:W1g#b570w#l1280:1320#vW1:580:W0:"":I1R::W$(I):LN620:380#25)"RITING PDATED ILE....":"@0:"R$,8:$TM$(27)(82)(4): TOP MARGIN 3 BLANK LINESK$BM$(27)(78)(3): BOT MARGIN 3 BLANK LINES$CM$(27)(79) : CANCEL TOP & BOT MARGINS$FF$(12) : FORM FEED$EI$(27)(87)(1): DOUBLE WIDTH PRINT IN%EO$(27)(87)(0): DOUBLE WIDTH PRINT OUTQ%1280:" RINT ODE ":25)" "x%20)"1.AME/DDRESS/HONE - "%20)"2.AME/DDRESS/HONE - "%20)"3.AME/DDRESS/HONE - TEM"%20)"4.AILING ABELS ----- "#&20)"5.AILING ABELS ----- "Q&20)"6.AILING ABELS ----- TEM"x&20)"7.HONE IST --------- "&20)"8.HONE IST --------- "&20)"9.ILE NDEX ( # , AME , ATEGORY )"&Z$&Z$(13)160&Z(Z$) ' Z1Z9750'1,4,7:10010M' Z810,990,1180,1020,1020,1180,810,990,810'*1270:Q$" ":Z1Q$"AME/DDRESS/HONE"'4Z9Q$" "'>1:1:1:1,TM$;:1,BM$;:1010:1,CM$;:1,FF$:1:650 (HC$(2)"AAA":C$(1)"1":D$(2)"ZZZ"(RB$:B$"END"920/(\B$""850T(fB$"XX"850:ՁI1R1:B$(I):o(p(Z2B$(R1)Q$)850(z(Z8B$(R1)Q$)850(B$(2)C$(2)B$(2)D$(2)I1R1:D$(I)B$(I):(850((D$(1))(C$(1))10010:)(D$(1))1D$(1)"0"D$(1)O)(Z7Z8)1,"##############################";D$(2);:1," "D$(R))Z31,(10);" "D$(2):1," "D$(3):1," "D$(4)", "D$(5)" "D$(6):1," "D$(7)" ("D$(8)")"*Z91,D$(1)" ";:1,"##############################";D$(2);:1," "D$(R1).*I1R1:C$(I)D$(I)::D$(2)"ZZZ">*10010:850a*1270:1:1:1:1,TM$;:1,BM$;*10010:Q$"":25);:"HICH ATEGORY";Q$:Q$""1,CM$;:1,FF$:1:650*1:1:1:1,EI$;:1," "Q$;:1,EO$:1:840:Z2Z81000:Վ+1270:Z41040B+10010:Q$"":25);:"HICH ATEGORY";Q$:Q$""1:650e+B$:B$"END"(Z3)1090,1030x+B$"XX"1040+$I1R1:D$(I):+.(Z4Z5D$(R1)Q$)1100+81040+B1:650+LI1(D$(2))+V(D$(2),I,1)" "XI:I(D$(2)),`X(D$(2))1,D$(2):1160!,jIL,tN2$(D$(2),X):N1$(D$(2),(D$(2))X)_,~1,N1$;" ";N2$,1,D$(3):1,D$(4);", ";D$(5);" ";D$(6),1,(10)(10):,1270,25);:Q0:"HICH TEM";Q:Q11:650,(10000Q10):B$-B$"XX"A:Չ1250-I2R1:D$(I):1-Z61100:1190-1," "D$(2):1," "D$(3):1," "D$(4)", "D$(5)" "D$(6):1," "D$(7)" "D$(8):1:1190-25)"O ISTING ON ILE": 3:1:650.15)" ŠӠϠ٠ҠŠ͠Ҡՠ! ": 5:160-."Ǒ":S.25)" ON PTION "Z"":.:"128 AIL & HONE IST":60)" ӠӠ":+/:"128 AIL & HONE IST":/ 1280:" PDATE ODE ":" "FO$"DD AMES "20)" "FO$"ELETE AMES "40)" "FO$"DIT AMES":/" PDATE ODE ":" DDING AMES: NPUT 0'S FOR NKNOWNS, 'S.":#0" PDATE ODE ":" ELETING AMES: HICH TEM ":_0(" PDATE ODE ":" DITING AMES: HICH TEM ":021280:" IEW ODE ":" "FO$"TRING EARCH "20)" "FO$"TEM EARCH ":0<" IEW ODE ":" TRING EARCH: EGINNING HAR'S ":%1F" IEW ODE ":" TEM EARCH: HICH TEM ":1P1280:" ELP CREEN ":" ̠":" RESS ǟ LETTER TO MAKE A SELECTION FROM THE MENU."1Q" RESS Ο WITH NO DATA TO CANCEL CURRENT SELECTION."22U" Š ":" ğ NAMES; ş NAMES BY TEM O.; ԟ NAMES BY TEM O."2V" נԠ":" IEW A SELECTED NAME BY TEM O. USING ͟ SEARCH. IEW ALL NAMES THAT MATCH"2W" THE INPUT EGINNING HARACTERS WITH ǟ SEARCH. HIS WORKS ON FIELD."D3X" OR EXAMPLE, TO SEE ALL NAMES IN RIZONA, ENTER 'RIZONA', OR 'RIZ'."3Z" ԠӠ":" URN PRINTER ON AND ALIGN PAPER OR LABELS BEFORE SELECTING OPTION. OU CAN"3\" PRINT... //ş AN ADDRESS BOOK IN ALPHABETICAL ORDER"D4]" ӟ STANDARD 3-1/2'' 1'' ADDRESS LABELS"4^" Šԟ NAME & PHONE ONLY IN ALPHABETICAL ORDER, VERY CONVENIENT"4_" WHEN POSTED ON THE WALL OR DESK NEAR THE PHONE"A5`" ؟ TEM O., AME, & ATECORY, IN ALPHABETICAL ORDER; FOLD "5a" AND KEEP INSIDE DISK JACKET FOR QUICK REFERENCE"5d" Ԡ& Š":" EXIT PROGRAM USING THIS FUNCTION, OR UPDATES WILL NOT BE SAVED TO DISK."6x6'"XX", 1'6'"OE OHN & ANE=6'"1571 ISK RIVEQ6'"OMPUTERVILLE_6'"FPANICl6'"1234566 '"312-123-45676!'"AMPLE6$'"", 26.'"", 368'"", 46B'"", 56L'"", 66V'"", 76 N"END"O