S&#Ю(0)::ГMASTERMAIL 1.7 0502883&FХ13000,32550:Бж5000:╣ Г0│32602& ╣ Г9│6010:М I$(1200):Е  Ж(32714)│99 з51 :Д Бж10:Бе70' Ю:Бж60:З б(36,175);" ENTER FILE NAME "; б(47,175);д13);"/DAT"; б(47,175);:З@196,":";:╗ЙFL$:FL$│ О(FL$,8):З@205,"/DAT"; б(47,175)'ЕFL$│""зFL$│"LIST"'1ЕFF│1зР :Д Бж1200'_(N│Nл1:─#1,N:Е К(D5$)│255 з Ъ:N│Nм1:Р::Д40'М*─#1,N:З@450,"RECORD# "N;" ZIP ";D6$:Бе40'Ш2N│Nм1:Р( 3АX│32710 е32713:NX│ Ж(X):N│(Nн10)лNX:ЛX:N│Nм1000:LF│(32715л Ж(32715)):АX│32716 еLF:FL│ Ж(X):FL$│FL$л Л(FL):ЛX(:Бе70(U<Ю0:З@0, б(35,255);"MASTERMAIL (C) SUB-ROUTINES"; б(34,255);:Р(ПFЮ(0):Бж60:З:З  б(4,207);" M E N U "; б(19,207):Бж2000)PЗ,," C COMPRESS LIST K KILL DUPLICATES R RETURN TO MAIN MENU S SORT LIST")6ZMU$│"CcKkrRSs":Бж1000:I│ Ю(MU$,I$):ЕI│0 з90)edЮ(0):ИI Бе 110,110,200,200,300,300,350,350)tn:ГCOMPRESS)ХxБж60:З,," COMPRESS UTILITY")╠zЗ@354,"OLD NEW LOCATION";:K$│" ":R│0)√}Бж1200:АX│1еN:─#1,X:Е О(D4$,5)│K$з126:Д150*~Е О(D2$,5)│K$з127:Д150*1Е О(D5$,5)│K$з130:Д150*DВR│Rл1:ЛX:Бе152*rЦNL│XмR:┼#1,NL:З@418,X;:З@433,NL;:ЛX:Бе160*╬ШK$│ Л(255):АNF│(NLл1) е(Xл1):╘D1$│K$:╘D2$│K$:╘D3$│K$:╘D4$│K$:╘D5$│K$:╘D6$│K$:┼#1,NF:ЛNF*▐аN│NL:Ъ:Бе70*°╚Щ"I",#1,"ZIP/DAT":R│1+,╔Е М(1)зЪ:Бе205::Д Й#1,I:I$(R)│ И(I):R│Rл1:Бе201+l═Бж60:З,," NAMES DELEDTED ":З@385,"CHECKING FILE# RECORD#"+и╨Бж1200:АX│1еN:─#1,( Й(I$(X))):З@416,X;" "; Й(I$(X))+┴╥ЕD6$│K6$ з212 :Д 250+┌╘ЕD3$│K3$ з216 :Д 250+є╪ЕD2$│K2$ з218 :Д 250,┌K2$│D2$:K3$│D3$:K6$│D6$,n▄╘D1$│"":╘D2$│"":╘D3$│"":╘D4$│"":╘D5$│"":╘D6$│"":┼#1,XX:З@290,K2$:З@322,K3$:XX│ Й(I$(X)):ЛX,Щ·K2$│D2$:K3$│D3$:K6$│D6$:XX│ Й(I$(X)):Л,вБе70,╜,Х200,32500:О"MAIL/BAS",╚^В SORT-`Ю(0):Бж60:З,, б(5,175);"SORT SELECTION "; б(10,175);:З:З-abЗ" CODE":З" <1> LINE 1":З" <2> LINE 2":З" <3> LINE 3":З" TOWN":З" ZIP CODE"-ФdБж1000:MU$│"Cc123TtZz":I│ Ю(MU$,I$):ЕI│0 з 356-ЮfБе405-оhI$(X)│D1$:Р-╛jI$(X)│D2$:Р-╬lI$(X)│D3$:Р-▐nI$(X)│D4$:Р-юpI$(X)│D5$:Р-■rI$(X)│D6$:Р.ПБе399.РВ SORT.|ХБж1200:АX│1еN:─#1,X:ИI Бж360,360,362,364,366,368,368,370,370:I$(X)│( О((I$(X)),5)л И((Xл1000))):ЛX:Ъ.ЙЦL│X:NN│N.ЮЩЗ" SORTING".▐ЪN│ Э(I$(0)):Т32600, Б(Nо256):Т32601,Nм Б(Nо256)н256:X│ Г(0).ыЯN│NN:X│L/вИI Бе420,420,421,422,423,424,424,425,425/1дSS$│"CODE/DAT":Бе430/KеSS$│"LINE1/DAT":Бе430/eжSS$│"LINE2/DAT":Бе430/зSS$│"LINE3/DAT":Бе430/ШиSS$│"TOWN/DAT":Бе430/░йSS$│"ZIP/DAT":Бе430/└оЩ"O",#1,SS$/ё░АX│0е(Nм1):┘#1,( Й( П(I$(X),4))м1000):ЛX:Ъ#1/·ъБе7009чТ1535,181:З@480, б(6,181);" ENTER YOUR CHOICE "; б(6,181);0РшТ1535,181:З@480, б(6,170);" ENTER YOUR CHOICE "; б(6,170);:I$│ Т:Е I$│""з 999 :Д Р0╖░╣ Г9│6000:Щ"D",#1,FL$л"/DAT:0",1061║╣ Г9│6010:╨#1,8  з D1$,23  з D2$,23  з D3$,23  з D4$,19  з D5$,10  з D6$:Р1,╨З" USED ";N;д16);"FREE ";1000мN:Р1UИB│0:АI│32600 е32704:НA:ТI,A:B│BлA:ЛI1╓НЖ 0,0,174,140,251,52,16,238,228,174,94,48,31,79,52,18,166,196,39,42,166,196,230,69,160,69,36,2,230,196,52,1,174,66,16,174,712OТЖ 109,69,38,4,50,97,32,41,166,128,160,160,39,4,50,97,32,5,90,38,243,53,1,35,24,174,66,16,174,71,175,71,16,175,66,1662┼ЧЖ 196,230,69,231,196,167,69,234,69,234,228,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,572╦ЬР2√pЮ4:З@320,"FILE NOT ON DISK - START OVER";:К3RzЮ3:З@320, Л( Ж(32552)); Л( Ж(32553));" ERROR":З"HIT ENTER TO CONTINUE";:╗ЙXX$:Бе70 196,230,69,231,196,167,69,234,69,234,228,231,228,51,69,174,97,48,31,175,97,38,176,166,228,50,99,38,161,50,98,572╦ЬР2√pЮ4:З@320,"FILE NOT ON DISK - START OVER";:К3R                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ч&╣ Г9│6000&)Х14000,32500:МA$(400)&KЕ  Ж(32714)│99 з7 :Д Бж4:Бе11&╨Ю:Бж10:З б(36,175);" ENTER FILE NAME "; б(47,175);д13);"/DAT"; б(47,175);:З@228,":";:╗ЙFL$:FL$│ О(FL$,8):З@205,"/DAT"; б(47,175)&чЕFL$│""зFL$│"LIST"&эР'.LF│(32715л Ж(32715)):АX│32716 еLF:FL│ Ж(X):FL$│FL$л Л(FL):ЛX'7Бе11'u Ю(0):З б(36,191);"MASTERMAIL (C) FORMLETTER"; б(35,191):Р'└ Бж10:З б(6,207);" SET-UP MENU "; б(13,207):MU$│"sSmMoOcCrRdDtFpP12lL&"(Т З"INGLE AILL. ADDR. PENING LOSING <1>.PAGE/LINES <2>.PG./LINES ETURN ADDR. OAD TEXT FILE ATE <&>MAIN MENU":З б(6,175);"

RINT LETTER "; б(10,175);:Бж87(Є I│ Ю(MU$,I$):ЕI│0 з11 :ДИI Бе15,15,20,20,40,40,23,23,48,48,31,31,82,82,52,52,41,46,21,21,99)ЕMR▓60 з52 :Д J$│ б(MR,32))3Бж10:U│1:З"NAME LINE:";:╗ЙD2$)LЗ"LINE #2 :";:╗ЙD3$)eЗ"LINE #3 :";:╗ЙD4$)УЗ"CITY & ST:";:╗ЙD5$:З"ZIP CODE :";:╗ЙD6$)їБж10:З,,D2$:ЗD3$:ЗD4$:ЗD5$;" ";D6$:З@416," IS THIS CORRECT (Y/N)":Бж87:ЕI$│"Y"▒I$│"y"з11 :Д15*ВБж10:З@320,"PLACE DISK WITH FSET/DAT IN DRIVE #0 AND HIT ENTER";:╗ЙX$:Щ"D",#1,"FSET/DAT:0",5:╨#1,5 зD8$:─#1,1202:LN│ Й(D8$):Ъ#1:Бе11*ЁБж10:З:З" ENTER COMPL. NAME OF TEXT FILE EXAMPLE ":╗ЙTL$:Щ"I",#1,TL$:AL│1:З" NOW LOADING ";TF$+Й#1,A$(AL):Е  М(1)зЪ#1:Бе11 :ДAL│ALл1:Бе22+╙Бж10:З"DEFAULT= SINCERELY, (RETURN NAME & COMP.":З"DO YOU WANT TO CHANGE IT (Y/N)":Бж87:ЕI$│"N"▒I$│"n"з11:ДЗ@256,"YOU HAVE 3 LINES-->":╗Й"#1 ";EA$:╗Й"#2 ";EB$:╗Й"#3 ";EC$:Бе11+¤Й"YOU HAVE 3 LINES ENTER LINE #1";EA$,Й"ENTER LINE #2";EB$,4Й"ENTER LINE #3";EC$:Бе11,SЕEA$│"" з EA$│"Sincerely,",iЕEB$│"" з EB$│RN$,ЕEC$│"" з EC$│RC$,ЕР,аБж10:Й"ENTER MONTH";MO,░ Е MO▓12 з31,╢!П,┬"Н I,MO$,╪#Е I│MO з 36 :Д 34,ь$Й"ENTER DAY";DA,№%ЕDA▓31 з36 -&Й"ENTER YEAR";YE-'Бе11-ж(Бж10:З"DEFAULT= DEAR (1.LINE NAME":З"DO YOU WANT TO CHANGE IT (Y/N) ":Бж87:ЕI$│"N"▒I$│"n"з11 :ДЗ@262,">>NEW OPENING-->":╗ЙOP$:OP│1:Бе11-╥)Бж10:Й"ENTER TEXT LINES FOR 1. PAGE";LK-р*Бж43:Бе11-·+LI│200:ЕLK▓1 зLI│LK:Р.,Р. -Бе11.>.Бж10:Й"ENTER LINES PER PAGE (2. AND UP)";LA:Бе11.G/Бе11.П0Бж10:З,,"RETURN ADDRESSE":Й"NAME";RN$:Й"COMPANY";RC$:Й"ADDRESS";RA$.▓1Й"TOWN";RT$:Й"STATE & ZIP";RS$.╗2RA│2.─3Бе11/4U│1:Бж10:З@320,"ENTER LEFT MARGIN VALUE ";:ЙMR:J$│ б(M                                                                                                                                                                                                                                                                (    ┼"╔$%&'╔)*+,-./01234567┴└           LIST DAT  zFORM BAS!ъMAIL BAS#╘X П VFSET DAT 81 П (V1 П *▄                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                R,32)/<5Бж10:З@160,"PRINT CODE (Y/N) ":Бж87:Бж88:ЕX│1 зP1│1/q6З@192,"PRINT 1.LINE (Y/N) ":Бж87:Бж88:ЕX│1 зP2│1/з7З@224,"PRINT 2.LINE (Y/N) ":Бж87:Бж88:ЕX│1 з P3│1/▄8З@256,"PRINT 3.LINE (Y/N) ":Бж87:Бж88:ЕX│1 зP4│1089Бж43:Бж10:З@320,"DO YOU WANT TO STOP BETWEEN PAGES (Y/N)":Бж87:ЕI$│"Y"▒I$│"y"з SP│10Л:З@320,"DO YOU WANT TO STOP BETWEEN LETTERS (Y/N)":Бж87:ЕI$│"Y"▒I$│"y"зSO│10ю;Бж10:З:З"ENTER ESC CHR. FOR T.O.F. FOR DEFAULT (CHR$(12) HIT ENTER";:ЙTF:ЕTF┤1 ▒TF▓31 зTF│120¤PA│1:LI│LK:З#м2,д30)J$RN$:З#м2,д30)J$RC$:З#м2,д30)J$RA$:З#м2,д30)J$RT$;", ";RS$:З#м2, б(1,13)21?ЕU│LN з 11 :Д Щ"D",#1,"FSET/DAT:0",5:╨#1,5  зD8$:─#1,U:UU│ Й(D8$):Ъ#1:З"READING RECORD# ";UU:Щ"D",#2,FL$л":0",106:╨#2,8  з D1$,23  з D2$,23  з D3$,23  з D4$,19  з D5$,10  з D6$:─#2,UU2R@ЗD1$:ЗD2$:ЗD3$:ЗD4$:ЗD5$;D6$2fAЕP1│1з З#м2,D1$2zBЕP2│1з З#м2,D2$2ОCЕP3│1з З#м2,D3$2вDЕP4│1з З#м2,D4$2╝EЗ#м2,D5$;D6$; б(3,13)2уFЗ#м2,J$MO$;"";DA",";YE:З#м2, Л(13)3!GЕOP│1 з З#м2,J$OP$ :Д З#м2,J$;"Dear ";D2$:З#м2, Л(32):Ъ#13.HАA│1 еAL3SIЕ Р(A$(A),1,2)│( Л(94)л"k") з ЛA3рJES$│ Л(94):ES│ Ю(A$(A),ES$):ЕES▓0 з  Р(A$(A),ES)│ Л(32): Р(A$(A),(ESл1))│ Л(27):ES│0:Е  Р(A$(A),(ESл2))│"I" зБж86:ES│0:Бе74 :Д ES│0:Бе744$KES$│ Л(13):ES│ Ю(A$(A),ES$):ЕES▓0 з  Р(A$(A),ES)│ Л(0):ES│0Бе754BLЗ#м2,J$A$(A):ЕA│LI зБж 834НMЛA:Бж27:З#м2, Л(13):З#м2,J$EA$ Л(13) Л(13) Л(13):З#м2,J$EB$:З#м2,J$EC$4├NБж10:З::З"PRINTING LETTER #";(Uл1);" OUT OF "LN:Ъ4┌OЕU▓LN з11 :Д U│Uл14ЄPЗ#м2,TF$:ЕSO│1зБж904√QБе615RБе115SPA│(PAл1)5^TЕSP│1 зБж90 :Д З#м2,TF$:З#м2,д40)"PAGE #";PA:З#м2, б(1,13):LI│(LIлLA):Р5dUР5уVIM$│"":З@384, б(127,128);:З@416, Л(255);" ENTER INSERTION AND HIT ENTER"; Л(255);:╗ЙIM$:З#м2,IM$;:З@384, б(127,128):RETRUN6sWТ1535,170:З@480, б(6,170);" ENTER YOUR CHOICE "; б(6,170);:I$│ Т:Т1535,181:З@480, б(6,181);" ENTER YOUR CHOICE "; б(6,181);:ЕI$│""з 87 :Д Р6РXX│0:ЕI$│"Y" ▒ I$│"y"зX│16ЦYР6╣Z╗Й"HIT ENTER TO CONTINUE";N$:Р6╓[Й"ARE YOU SURE (Y/N)";N$6Ї\ЕN$│"Y"▒N$│"y"з Р :Д Бе116·]Р7^Р7 _Бе117`LI│6:Р7ЛaЖ 1,January,2,February,3,March,4,April,5,May,6,June,7,July,8,August,9,September,10,October,11,November,12,December7╝b:Ю4:З320,"ENCOUNTED ERROR":АX│1е1200:ЛX:Бе117цcЮ4:З@330,"LOADING MAIN PGM.";:О"MAIL"з Р :Д Бе116·]Р7^ ,╤Ю0:Бж16:Бе197:1 ╧7Х6200,32550:М R(1011):Бе187PЕ Ж(32714)│99 з3 :Д5─АX│32710е32713:NX│ Ж(X):N│(Nн10)лNX:ЛX:N│Nм1000:LF│ Ж(32715)л32715:АX│32716 еLF:FL│ Ж(X):FL$│FL$л Л(FL):ЛX:Бе17╦:Г╘Ю(0)|З@96, б(74,191); б(2,144); б(20,163); б(10,191); б(2,144); б(20,175); б(10,191); б(2,144); б(20,175); б(10,191); б(2,144); б(7,172); б(6,175); б(7,172); б(18,191);ч╣ Г9│6040:З Л(144); б(6,175); Л(144); б(24,191); Л(144); б(6,175); Л(144); б(6,191);:I│ г(0):ЕI▓17 з81їБж10:Бе17# ЕFF│1з З@454,"SETUP FOR NEW DISK";:Р :Д Р╒ Ю(0):Бж16:╣ Г9│6020:З б(36,175);" ENTER FILE NAME "; б(47,175);д13);"/DAT"; б(47,175);:З@325,"FOR DEFAULT HIT ";:Бж9:З@196,":";:╗ЙFL$:FL$│ О(FL$,6):ЕFL$│""зFL$│"LIST"Ў З@197,FL$л"/DAT"; б(47,175); ЕFF│1з Бе82 :Д Бж1638 ╣ Г9│6035:З@389,"READING RECORD # ";jN│Nл1:З@406,N;:─#1,N:Е К(D5$)│255 з Ъ :Д Бе14vN│Nм1:Р┬╣ Г9│6025:З@0, б(33,191);"MASTERMAIL (C)1983 CERATEC INC"; б(33,191);:РSA│0:DE│0:ED│0:F│0:Ю(0):Бж16:З:З  б(4,207);" MAIN MENU "; б(17,207):Бж167╠З,," A ADD ADDRESSES D DELETE ADDRESSES E EDIT ADDRESSES F FORM LETTER P PRINT ROUTINES S SORT ROUTINES" MU$│"AasSDdEePpFf":Бж161:I│ Ю(MU$,I$):ЕI│0 з191Ю(0):ИI Бе23,23,44,44,47,47,52,52,85,85,21,21:Бе44Ю:Бж16:З@324,"LOADING FORMLETTER ROUTINE":Х200,32000:О"FORM/BAS"╛Е N┤1200 з 24 :Д Ю(0):З@330,"DISK FULL";:АX│1е2000:ЛX:Бе17ЄЮ(0):CO$│ Л(170):XF$│" ADD FUNCTION ":Бж25:Бе268Бж16:З б(33,159);XF$; б(3,159);"FREE ";1000мN:З@156, б(36,159);:РbЗ@192, Л(159);"CODE";д15); б(18,159);фЗ"LINE1";д31); б(2,159);"LINE2";д31); б(2,159);"LINE3";д31); б(2,159);"CT&ST";д27); б(6,159);"ZIP";д18); б(46,159):ЕED│1 з 69АI│1е6:ИI Бж 29,30,31,32,33,34:ЛI:Бе35_З@199,CO$;:CT│10:C$│"":АC│2еCT:Бж168:З@200,C$:З@208, б(17,159);:ЛC:AC$│C$:РоЗ@231,CO$;:CT│25:C$│"":АC│2еCT:Бж168:З@232,C$:З@255, б(2,159);:ЛC:A1$│C$:Р¤З@263,CO$;:C$│"":CT│25:АC│2еCT:Бж168:З@264,C$:З@287, б(2,159);:ЛC:A2$│C$:РL З@295,CO$;:C$│"":CT│25:АC│2еCT:Бж168:З@296,C$:З@319, б(2,159);:ЛC:A3$│C$:РЫ!З@327,CO$;:C$│"":CT│21:АC│2еCT:Бж168:З@328,C$:З@347, б(6,159);:ЛC:AT$│C$:Ръ"З@359,CO$;:C$│"":CT│12:АC│2еCT:Бж168:З@360,C$:З@370, б(46,159):ЛC:AZ$│C$:Рa#ЕDE│1 з49 :ДЗ@416, б(4,191);" CORRECT (Y/N) "; б(45,191);:Бж161:ЕI$│"N"▒I$│"n" з36 :Д Е I$│"Y"▒I$│"y" з 38 :Д Бе35р$XF$│" EDITING MODE ":Бж25:CO$│ Л(250):З@448,"CODE, 1, 2, 3, TOWN, ZIP Which?";:MU$│"Cc123TtZz":Бж161:I│ Ю(MU$,I$):ЕI│0 з36 %ИI Бж 29,29,30,31,32,33,33,34,34:Бе35*&ЕED▓0 ▒ DE▓0 з N│N :Д N│Nл14'Бж163n(╘D1$│AC$:╘D2$│A1$:╘D3$│A2$:╘D4$│A3$:╘D5$│AT$:╘D6$│AZ$Й)ЕED│1 з ┼#1,F :Д ┼#1,Nз*Ъ#1:ЕED│1 з72 :ДЕDE│1 з51·+З@416, б(4,255);"ANOTHER ENTRY (Y/N)"; б(9,255);:Бж161:ЕI$│"Y"▒I$│"y"з23 :Д 17F,NS$│ И(Nл1000):АX│2е5:PO$│ Р(NS$,X,1):PO│ Й(PO$):XX│(Xл32708):ТXX,PO:ЛX┤-L│ З(FL$):Т32715,L:Т32714,99:АX│1еL:PO$│ Р(FL$,X,1):PO│ К(PO$):XX│(Xл32715):ТXX,PO:ЛX:Т32722,77:Т32723,68╪.Е I▓8 з Бе22 :Д Ъ:О"X/"л Л(143)ъ/В DELETE MODE 0XF$│"DELETE MODE":DE│1:Бе53 Ъ1З@416, б(4,239);" DELETE (Y/N) S=STOP"; б(44,239);:Бж161:ЕI$│"Y"▒I$│"y"з AC$│"":A1$│"":A2$│"":A3$│"":AT$│"":AZ$│"":Бе39::Д ЕSA▓1 з50 :ДБе47 ║2ЕI$│"S"▒I$│"s" з 47 :Д Бе77!3З@416, б(4,207);" DELETE MORE (Y/N) "; б(9,207);:Бж161:ЕI$│"Y"▒I$│"y"з 48 :Д Бе17!64XF$│" EDIT MODE ":F│0:Ю(0):В EDIT!Ш5Бж16:З:З б(4,207);XF$; б(17,207),,;" SEARCH FOR: (C) CODE LINE (1) LINE 1 ""]6З" (2) LINE 2 (3) LINE 3 (R) RETURN (T) TOWM (Z) ZIP CODE (S) SEL. BY REC.""╦7MU$│"Cc123RrTtzZsS":Бж161:I│ Ю(MU$,I$):ЕI│0 з55 :Д Ю(0):Бж16:ИI Бе 56,56,56,56,56,17,17,56,56,56,56,74,74"Ў8З,," ENTER SEARCH LINE":╗ЙX$:F│0:Бж163#9F│Fл1:─#1,F#:З@328,D1$:З@360,D2$#H;ИI Бе60,60,61,62,79,63,63,64,64,65,65#wX$│X$л( б((23м З(X$)),32)):ЕX$│D3$ з68 :Д 66$ ?X$│X$л( б((23м З(X$)),32)):ЕX$│D4$ з68 :Д 66$9@X$│X$л( б(19м З(X$),32)):ЕX$│D5$ з68 :Д 66$gAX$│X$л( б(10м З(X$),32)):ЕX$│D6$ з68 :Д66$ЮBЕ F│N з Ъ#1:З" RECORD NOT FOUND":АX│1е1000:ЛX:Бе52$зCБе57$╘DED│1:XF$│" TARGET ADDR. ":Ю(0):Бж25:Бе26%4EAC$│D1$:A1$│D2$:A2$│D3$:A3$│D4$:AT$│D5$:AZ$│D6$:З@200,AC$;:З@232,A1$;:З@264,A2$;:З@296,A3$;%NFЗ@328,AT$;:З@360,AZ$;%[GЪ#1:Бе35%┬HЕDE│1 з51 :Д З@416, б(4,255);"ANOTHER CORRECTION Y/N"; б(6,255);:Бж161:ЕI$│"y" ▒I$│"Y" з73 :Д Бе17%╓IЕ SA▓1 з77 :Д52&JJЕSA▓0з76 :ДЗ,," (S) SINGLE RECORD (M) MULTIPLE RECORDS":MU$│"SsmM":Бж161:SA│ Ю(MU$,I$):ЕSA│0 з74&wKЗ@322,"ENTER (STARTING) REC. #";:ЙF:Бе78&НLИSA Бе75,75,77,77&ЧMF│Fл1&мNБж163:─#1,F:Бе68&╣OЪ#1:Бе17&┐PС&╥QFF│1:Бе10:АMAT' RЕ  г(0)┤49 з З@320," YOU DON'T HAVE 49 GRANS FREE ON THIS DISK":К::Д Бе83'*SБж163'жTX$│ Л(255):АX│1е1001:З@452,"FORMATING ";X;" OF 1000";:╘D1$│X$:╘D2$│X$:╘D3$│X$:╘D4$│X$:╘D5$│X$:╘D6$│X$:┼#1,X:ЛX:Ъ#1:Бе17'═UDP│0:TL│0:RR│0:LC│0:LA│0:LB│0:PR│0'╓VЮ(0)( WБж16:Бж167:З б(4,207);" PRINT MENU "; б(16,207);(╦XЗ@192," C CODE SELECTION D DISK OUTPUT F FORMAT PRINTING P PRINT R RETURN T PRINT TEST LABLE")YMU$│"pPcCfFdDtTRr ":Бж161:I│ Ю(MU$,I$):ЕI│0 з 89)2ZИ I Бе 93,93,94,94,132,132,92,92,91,91,17,17)Б[X$│ Л(13):XX$│ б(25,88):З#м2,X$;XX$;X$;XX$;X$;XX$;X$;XX$;"ZIP-CODEXX":Бе85)│\PD│1:Щ"D",#2,"FSET/DAT:0",5:╨#2,5 з D8$:Бе104)╜]Бе104)·^Ю(0):Бж16:З:З б(4,207);" CODE PRINT ROUTINE "; б(8,207);*X_З" CODE ENTRY":З@224, б(36,175);"ENTER LETTER CODE"; б(15,175); б(17,207); б(43,175);*╙`З@292, б(17,207);:C$│"":CT│19:АC│2еCT:Бж168:З@292, б(17,143);:З@292,C$;:ЛC:З@416, б(8,191);" CORRECT (Y/N) "; б(9,191)+aБж161:ЕI$│"Y"▒I$│"y"з L1$│C$:З@416, б(32,144);::ДЗ@416, б(32,144):Бе96+WbЗ@266,"NUMBER CODE"; б(15,175); б(4,207); б(54,175);+ЇcЗ@292, б(4,207);:C$│"":CT│6:АC│2еCT:Бж168:З@292, б(4,143);:З@292,C$;:ЛC:З@416, б(8,191);" CORRECT (Y/N) "; б(9,191):Бж161:ЕI$│"Y"▒I$│"y"зLA│ Й(C$):ДБе99, dЗ@416, б(32,144);,ЬeЗ@164," ENTER SUB CODE";:З@305, б(4,207);:C$│"":CT│6:АC│2еCT:Бж168:З@305, б(4,143);:З@305,C$;:ЛC:З@416, б(8,191);" CORRECT (Y/N) "; б(9,191);,уfБж161:ЕI$│"Y"▒I$│"y"зLB│ Й(C$):LC│2:Бе86::ДЗ@416, б(32,144);:Бе101,ьgБе86-╕hЮ0:Бж16:╣ Г9│6010:З б(4,207);" PRINT PRIORITY "; б(12,207):З:З" 1 FIRST LINE 2 SECOND LINE T TOWN Z ZIP CODE N NONE"-╓iЗ" R RETURN TO MAIN MENU".jMU$│"12tTZznNrR":Бж161:I│ Ю(MU$,I$):ЕI│0 з106.7kИI Бе108,109,110,110,111,111,112,112,17,17.QlPF$│"LINE1/DAT":Бе113.kmPF$│"LINE2/DAT":Бе113.ДnPF$│"TOWN/DAT":Бе113.ЬoPF$│"ZIP/DAT":Бе113.╝pNM│N:АR│1еN:R(R)│R:ЛR:Бе116.╤qNM│0:Щ"I",#1,PF$.ёr╣ Г9│6030:NM│NMл1:Й#1,R(NM)/ sЕ  М(1) з Ъ#1 :Д Бе114/(t╣ Г9│6025:В PRINT LABLE/>uЕPD┤1 з118 :ДPR│0/wvЕPR│0з PA│1:PT│0:PS│2:PC│0:P1│1:P2│1:P3│1:PE│69:PP│0/╟wЮ:З@417,"HIT S TO STOP, P TO PAUSE";:ЕPE▓0 з З#м2, Л(27); Л(PE) :Д З#м2," "0 xЗ@165,"ADJUST PRINTER":З@197,"THEN HIT ENTER";:╗ЙX$:X$│ Л(13)0~yБж16:Бж175:З@229,"NOW PRINTING "(TLл1);" - ";(TLлPA) Л(13):АX│1еPA:З" ";P2$(I):I│Iл1:ЛX:Бж122:TL│TLлPA:Бе1210▀zЕPD▓0 з130 :Д I│1:ЕPC│0з123 :ДАX│1еPA:З#м2,"#";PX(I);" ";P1$(I);дPTнI);:I│Iл1:ЛX:З#м2,X$;д0)1${I│1:ЕP1│0з124 :ДАX│1еPA:З#м2,P2$(I);дPTнI);:I│Iл1:ЛX:З#м2,X$;д0)1k|I│1:ЕP2│0 з125 :Д АX│1еPA:З#м2,P3$(I);дPTнI);:I│Iл1:ЛX:З#м2,X$;д0)1▓}I│1:ЕP3│0 з126 :Д АX│1еPA:З#м2,P4$(I);дPTнI);:I│Iл1:ЛX:З#м2,X$;д0)1∙~I│1:АX│1еPA:З#м2,P5$(I);P6$(I);дPTнI);:I│Iл1:ЛX:З#м2, б(PS,13);д0)2#ЕPP│0 з 128 :Д Е PP┤(TLл(2нPA)) з 1292;АЕTL▓NM з Бе131 :Д Р2ЕБЗ@448, б(4,207);" HIT ENTER TO CONTINUE "; б(4,207);:Бж161:PP│PPлPP:Р2╠В╨#2,5 зD8$:FF$│ И(R(RR)):╫D8$│FF$:┼#2,PD:ЗPD;" ";FF$:PD│PDл1:Бе1273ГЕPD┤1 з17 :Д FF$│ И(PD):╨#2,5 зD8$:╫D8$│FF$:┼#2,1202:Ъ#2:Бе173&ДЮ(0)::ГPRINT FORMAT3[ЕБж16:З б(4,207);" PRINTER FORMATING "; б(9,207);3АЖЗ" FUNCTION DEFAULT SET"3ъЗЗ"AD. P. LINE":З"TAB SET >30":З"SET SPACE":З"PRINT CODE":З"PRINT LINE1":З"PRINT LINE2":З"PRINT LINE3"4 ИЗ"SET ESC CHR":З"SET STOP"4mЙЗ@178,"1";:З@209,"00":З@242,"2";:З@274,"N":З@306,"Y":З@338,"Y":З@370,"Y":З@401,"69":З@432,"000"4вКЗ@448, б(4,255);" U USE,S SET,L LOAD"; б(9,255);4╨ЛMU$│"UuSsLl":Бж161:I│ Ю(MU$,I$):ЕI│0 з1394ёМИI Бе141,141,142,142,159,1595(НPA│1:PT│0:PS│2:PC│0:P1│1:P2│1:P3│1:PE│69:PP│0:Бе8558ОCO$│ Л(175)5yПАI│1е9:C│2:ИI Бж144,145,146,147,148,149,150,151,152:ЛI:Бе1535оРPA│0:C$│"":З@186,CO$;:Бж168:PA│ Й(C$):З@187,PA:Р5эСPT│0:C$│"":З@218,CO$;:АC│2е3:Бж168:З@219,C$:ЛC:PT│ Й(C$):Р6"ТPS│0:C$│"":З@250,CO$;:Бж168:PS│ Й(C$):З@251,PS:Р6eУPC│0:C$│"":З@282,CO$;:Бж168:З@283,C$:ЕC$│"Y"▒C$│"y"з PC│1 :Д Р6жФC$│"":P1│0:З@314,CO$;:Бж168:З@315,C$:Бж165:ЕY│0 з Р :ДP1│1:Р6чХP2│0:C$│"":З@346,CO$;:Бж168:З@347,C$:Бж165:ЕY│0 зР :Д P2│1:Р7)ЦP3│0:C$│"":З@378,CO$;:Бж168:З@379,C$:Бж165:ЕY│0 з Р :Д P3│1:Р7hЧPE│0:C$│"":З@410,CO$;:АC│2е3:Бж168:З@411,C$:ЛC:PE│ Й(C$):Р7зШPP│0:C$│"":З@442,CO$;:АC│2е4:Бж168:З@443,C$:ЛC:PP│ Й(C$):Р7їЩЗ@448, б(4,159);" ALL CORRECT Y/N "; б(11,159);:Бж161:ЕI$│"Y"▒I$│"y" з1568SЪЗ@448," A, T, S, C, 1, 2, 3, E, P -??":MU$│"aAtTsScC123eEpP":Бж161:I│ Ю(MU$,I$):ЕI│0 з1548оЫC│2:CO$│ Л(255):ИI Бж144,144,145,145,146,146,147,147,148,149,150,151,151,152,152:Бе1539ЬPR│1:З@448, б(4,255);" SAVE SET (Y/N) "; б(12,255);:Бж161:ЕI$│"Y"▒I$│"y"з 157 :Д Бе869ЭЩ"O",#1,"SET/DAT"9JЮ┘#1,PA,PT,PS,PC,P1,P2,P3,PE,PP:Ъ#1:Бе869jЯ╣ Г9│6000:Щ"I",#1,"SET/DAT"9еаЙ#1,PA,PT,PS,PC,P1,P2,P3,PE,PP:Ъ#1:PR│1:╣ Г9│6025:Бе869ъбТ1535,170:З@480, б(6,170);" ENTER YOUR CHOICE "; б(6,170);:I$│ Т:9вТ1535,181:З@480, б(6,181);" ENTER YOUR CHOICE "; б(6,181);:ЕI$│""з161 :Д Р:VгЩ"D",#1,FL$л"/DAT:0",106:Ыд╨#1,8  з D1$,23  з D2$,23  з D3$,23  з D4$,19  з D5$,10  з D6$:Р:║еЕC$│"Y"▒C$│"y" з Y│1 :ДY│0:└жР:цзЗ" USED ";N;д16);"FREE ";1000мN:Р:■иCN$│ Т:ЕCN$│""з168 ;8йЕ К(CN$)│8 зC│Cм2:ЕC┤1зБе174 :ДC$│ О(C$,( З(C$)м1)):Р;OкЕ К(CN$)│13зC│CT:Р;hлЕ К(CN$)┤32з C│Cм1:Р;ВмЕC│CT за199,2:C│Cм1:Р;ТнC$│C$лCN$:Р;воC│1:C$│"":Р;╗пБж163:АI│1 еPA:Бж184;ї░ЕRR│N зЗ"END OF FILE":Ъ#1:Бе196::ДRR│RRл1:─#1,(R(RR))<;▒З@165,"TOTAL LABELS ON DISK ";NM:З@197,"NOW CHECKING RECORD# ";RR╗АA│32552 е 32585:НDD$:V│ Й("&H"лDD$):ТA,V:ЛA:в32555:Бе2>{╝Ж 00,00,00,30,8D,00,04,BF,01,92,39,E7,8C,F2,C1,0E,26,01,39,BD,AD,33,BD,A4,26,FC,09,71,BD,AE,B4,7E,AD,9E>╜╜Ю3:З@320,"YOU HAVE NOT SAVED A SET YET!";:АX│1е800:ЛX:Ъ:Бе132?╛Ю3:З@321,PF$:З" HAS NOT BEEN SORTED YET!":АX│1 е700:ЛX:Ъ:Бе104?=┐Ю3:З@320," YOU ENTERED A BAD FILE NAME":АX│1е1000:ЛX:Бе8?В└Ю3:З@320, Л( Ж(32552)); Л( Ж(32553));" ERROR " :АX│1е800:ЛX:Бе17?╣┴Ю3:З@320,"READ ERROR IN FILE";PF$:АX│1е800:Ъ:Бе104@┬Ю4:З@320,"READ "; Л( Ж(32552)); Л( Ж(32553));" ERROR IN ";FL$л"DAT:1 IN RECORD #";N:К@:├Ю4:З@320,"DRIVE 1 NOT AVAILABLE":К@к─ЕZE│1 з Бе131 :Д А ZE│I е PAл4:P1$(ZE)│"":P2$(ZE)│"":P3$(ZE)│"":P4$(ZE)│"":P5$(ZE)│"":P6$(ZE)│"":ЛZE:ZE│1:Р@╡┼└1:Бе1@╨╞ЕZE│1 з Бе131 :ДI│PA РЖ(32552)); Л( Ж(32553));" ERROR IN ";FL$л"DA