' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ՊЀР* @A@AЪЀРРՀРтЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀЀРЀЀЀՊԪЀРՂժL$",L200"ND$"READ "L$",R0"'XSR3vI1SRID$"READ "L$",R"IrN$(I),A$(I),C$(I),S$(I),Z$(I),P$(I)yID$"CLOSE"936:11:" DO YOU HAVE A FORMATTED DISK TO "::" TRANSFER THE DATA TO (Y/N)? ";:XX$XX$"Y"XX$ IT TO ANOTHER."C17:" PRESS ANY KEY WHEN YOU ARE READY TO":r" CHOOSE THE FILE TO BE COPIED.";:A$|313012:"ENTER NAME OF DESTINATION FILE : ";TF$:TF$TF$" ML"936:12:" READING FROM DISK..." :D$"OPEN " "F$",L200"u1641-{D$"OPEN "F$",L200"D|D$"WRITE "F$",R0"K0ZD$"CLOSE"936:12:" ** FILE CONTENTS INITIALIZED **":II11500:II608::"THIS SELECTION ALLOWS YOU TO COPY DATA":"FROM ONE DISK AND WRITE"N"60^D$"DELETE "F$Sh936:12:11:"** FILE REMOVED **":I11000:I:60i936:10:"THERE IS ALREADY A FILE ON THE DISK BY":j" THAT NAME. PLEASE DELETE IT FIRST.":II12000:II:936:D$"RENAME L200,"F$:70r1659 sD$"RENAMEEASE"::" CREATE A NEW DATA DISK AT THE GREEN"::" VALLEY MENU BEFORE CONTINUING./24:" HIT ANY KEY TO CONTINUE.";:A$060@936:12:"DO YOU REALLY WANT TO ";::"DELETE";::" IT (Y/N)?";JA$::A$"Y"A$"N"1600TA$"617:" SELECTION :";:L$:L$"3"60TL$"2"İ3150:F$L$:1600f"L$"1"1520y':C$"7":3160,22:" ENTER A NEW FILE NAME :";F$:F$F$" ML"-LTR64101650X.LTR649Č936:10:"YOU HAVE TEN FILES ON THIS DISK. PL/N)? ";Y$:+Y$"Y"Y$"N"1490<Y$"Y"1290BRD$;"CLOSE"Z60936:7:" DO YOU WANT TO:":10:" 1. START A NEW FILE."12:" 2. ERASE AN OLD FILE.":14:" 3. RETURN TO MENU. ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪREATED BY"9-G :" ANY OTHER PROGRAM THAN 'MAIL LIST'."i-I 24:" HIT ANY KEY TO CONTINUE.";:A$-N 936:24:" SELECT LETTER OR HIT RETURN TO ABORT.";:1:-X CA$"CATALOG":OP$"OPEN ":NO$"NOMON"-] MAX$"W":D$(4)::D$;NO$;"C,I,O" .b : :" ENTER THE ENDING RANGE :";E\, B0B750E0E750EB(B)B(E)E3060i,& ERERv,0 CS$"":|,: ,D CA$"CATALOG":OP$"OPEN ":NO$"NOMON",E 936:8:" ";::"*WARNING*": -F 12:"DO NOT ATTEMPT TO LOAD FILES C"";CS$#+ (CS$)24CS$(CS$,24)++ 12U+ (30(CS$))2);"SEARCH BY '"CS$"'."+ 17:" CORRECT (Y/N)? ";:Y$+ Y$"Y"Y$"N"Ģ13::3030+ Y$"N"2960+ B1:ER:+ 11+ D$+ " ENTER THE BEGINNING RANGE :";B*,LE."3*^ 14:" SEARCH AGAIN (Y/N) ?";:Y$T*h Y$"Y"Y$"N"Ģ13::2910Z*r p*| (Y$,1)"Y"2300x* 60~* * C$"2"3060* 5* " ENTER THE BEGINNING OF THE NAME TO"::" SEARCH BY FOR CORRECTIONS."+ :3::">>";:::NX$;:868:A$A$" APT."NX$T) 23::" IS THIS CORRECT (Y/N) ?";:Y$::n) Y$"Y"Y$"N"2830)" Y$"N"2550), D$"WRITE "F$",R"I)6 N$","A$","C$","S$","Z$","P$)@ I:34,0)J D$"CLOSE"*T :10:" SEARCHED ENTIRE ADDRESS FI4300:NZ$GOOD$:NZ$""ĢV:10:Z$;:868P( NZ$""ĢV:10:NZ$;:868:Z$NZ$( VV1:V:LN23:10:4300:NP$GOOD$:NP$""ĢV:10:P$( NP$""ĢV:10:NP$;:868:P$NP$( VV1:V:LN10:10:4300:NX$GOOD$:NX$""ĢV:10:AP$) NX$""ĢV:10 NA$""ĢV:10(NA$):868:A$NA$_' VV1:V:LN24:10:4300:NC$GOOD$:NC$""ĢV:10:C$' NC$""ĢV:10(NC$):868:C$NC$' VV1:V:LN2:10:4300:NS$GOOD$:NS$""ĢV:10:S$' NS$""ĢV:10(NS$):868:S$NS$)( VV1:V:LN10:10:ECTIONS TO A LINE, RETYPE "::"IT; OTHERWISE PRESS RETURN TO POSTION "::"CURSOR AT NEXT FIELD."&Z 4:V4:LN24:10:4300:NN$GOOD$:NN$""ĢV:10:N$&n NN$""Ģ4:10(NN$):868:N$NN$&x VV1:V:LN24:10:4300:NA$GOOD$:NA$""ĢV:10:A$%'68% 8:10:Z$;:868:/% 9:10:P$;:868G% 10:10:AP$;:868Z%( :CS$""2620v%2 (N$,(CS$))CS$2880%< 22:"IS THIS THE RECORD TO MAKE CORRECTIONS"::"ON .... (Y/N) ?";:Y$::%F Y$"N"Ģ20:958:2880c&P 13:958:"TO MAKE CORRD$$ II1(A$)2O$ (A$,II,1)"A"(A$,II1,1)"P"(A$,II2,1)"T"2548W$ IIh$ AP$"":2550$ AP$(A$,II4):A$(A$,II2)$ 3:25:"RECORD"L$;I;R$:15$ 4:10:N$;:868$ 5:10:A$;:868$ 6:10:C$;:868:% 7:10:S$;:8,0:# 2:15:"SEARCHING"&# HT10:# 4:"NAME :"N# 5:"ADDRESS :"b# 6:"CITY :"v# 7:"STATE :"# 8:"ZIP :"# 9:"PHONE :"# 10:"APT. # :"# 34,12:15# IBE# D$"READ "F$",R"I# N$,A$,C$,S$,Z$,P$$ SEARCH BY:"2" 12:" 1) NAME"W"$ 14:" 2) RECORD #"". 17:" ENTER SEARCH CODE: ";:C$"8 C$"1"C$"2"2310"B "L C(C$)"V D$"OPEN "F$",L200"` D$"READ "F$",R0""j R"t D$"~ 2960# 34ER OF RECORDS USED --";RH!:" NUMBER OF RECORDS AVAILABLE --";500z!:" NUMBER OF RECORDS REMAINING --";500R!21:" HIT ANY KEY TO CONTINUE ";:A$!60!3130:F$L$:D$(4):L$" "(91):R$(93)" "!! 9" " AG1EFLAG0:60 4:60- >D$:D$"CLOSE"J HD$"OPEN"TF$",L200,D"TD$a RD$"WRITE"TF$",R0"j \"0"y fD$"CLOSE" pEFLAG1:1850 z3130: F$L$ D$"OPEN "F$",L200 D$"READ "F$",R0" R D$"CLOSE" 10!" TOTAL NUMB)","S$(I)","Z$(I)","P$(I):I4D$"WRITE "TF$",R0"<SRKD$"CLOSE"S15x" TRANSFER IS COMPLETED.":" ";SR" RECORDS : ";L$:" ";SR" RECORDS : ";TF$24:" PRESS ANY KEY TO CONTINUE.";:A$ *EFL"N"1942XX$"N"10000936:12:" INSERT THE DESTINATION DISK NOW.":24:" PRESS ANY KEY TO CONTINUE.";:XX$:936:12:" WRITING TO DISK...":D$"OPEN "TF$",L200"I1SR:D$"WRITE "TF$",R"IN$(I)","A$(I)","C$(I(QUIT) FUNCTION":"TO EXIT. 'RESET' MAY DAMAGE YOUR FILE."o=D24:" PRESS ANY KEY TO CONTINUE.";:A$::=d24:" PRESS ANY KEY TO CONTINUE.";:A$:936=e=(#RR1GOOD$""=2#RR1GOOD$(GOOD$,RR1)=<#RRRR1==#23:1:8680>F#DISK IN THE DRIVE NOW."::255Q<11:"NOTE: ALL MENU COMMANDS LOAD IN YOUR"<&"MAILING LIST FROM THE DISK EACH TIME"<0"YOU EXECUTE A COMMAND. THEREFORE THERE"<:"ISN'T A 'LOAD DATA' OPTION IN THE MENU.":=;::"BE SURE TO USE THE 'Q' ZZ$:(RR1RRLN)(RR0RRLNTT0)Ģ23:1:868:9030t;RRLNĢ23:5:"MAXIMUM LENGTH OF "LN" REACHED.";:9030;TT1GOOD$"*"ı;4310;:23:868:V1:;936:4:6:"THE ADDRESSER - MAILING LIST"::<8:50::"INSERT YOUR DATA 0J:::12:" **ERROR** YOU'D BETTER TRY AGAIN!!":I1500:I10ĺ"";k:I:::(4)"PR#0":936:60x:GOOD$"":RR0:ZZ$:(ZZ$)134350:(ZZ$)8RR09000:(ZZ$)27ZZ$","4310:RRLN43108;RRRR1:ZZ$;:GOOD$GOOD$0"9E84283S9:936:10:" I/O ERROR - CHECK YOUR DISK DRIVE.":6500:60b9E542879936:12:" -END OF INFORMATION ENCOUNTERED-":6500:E1137014219609E44289:936:12:" YOUR DISK IS WRITE-PROTECTED.":6500:6E"F$".SORT,R0"8"REC1(8,D$"CLOSE"<86D$"DELETE "F$"X8@D$"RENAME"F$".SORT,"F$`8J608(13)A$ĺ:D$"CLOSE":363084240823:14::"**ABORTED**";:I12000:I:::609936:::D$:E(222):E1(218)(219)256::E11370ĺD$"PR#KSP)Y$7J7I4712:16:"WRITING.":958P7D$"OPEN"F$".SORT,L200"g7D$"OPEN"F$",L200"r7R(0)7I0REC7D$"READ"F$",R"D(I)7N$,A$,C$,S$,Z$,P$7D$"WRITE"F$".SORT,R"I17N$","A$","C$","S$","Z$","P$7I8D$"WRITX16<I16:SPIN(I);6FX2:12:"AT DEPTH "I" OF 6."J6PXX(37)1[6ZSPREC4020y6dJSPREC:Y$N$(J):YD(J)6nKJSP0SP6xXX1:12:"SUB LEVELS >"J" >"K" "6Y$N$(K)40006D(KSP)D(K):N$(KSP)N$(K)6K7D(KSP)Y:N$(16:"READING.":(5D$;"OPEN"F$",L200">5D$;"READ"F$",R0"G5RECU5RECREC1b5I0RECo5D(I)I15D$"READ"F$",R"I15IN$(1),DU$,DU$,IN$(2),IN$(3),IN$(4)5 N$(I)IN$(SC)5I5D$"CLOSE"5(12:16:"SORTING.";:X(37):62XANT TO SORT BY :"14`10:" 1) NAME"74aT4j" 2) STATE"Z4kz4t" 3) ZIP CODE"4u4~" 4) PHONE NUMBER"4::16:"CHOICE :";:SC$44SC$"1"SC$"4"366044SC(SC$)512::TSCH,V) 3 N64:BSC13N8013 BSC10N32B3BSC11N48f3X015:H,V)XT$T$(XN):n3:3$ SORT PROGRAM3. SORT ADDRESS FILES38IN(1)14:IN(2)10:IN(3)6:IN(4)4:IN(5)2:IN(6)13B3130:F$L$3L4V7:" DO YOU WBSC10TSC0SP0-2 BSC10TSC0SPSP1<2 SP23530B2 {2 MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,2532 POKE 216,0: POKE MEM + 1463,12: POKE MEM + 1464,2532 19::L$(T$,6,(T$))2 (L$,5)" ML "31302 3 BSCH,V1)0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)3440A1f L1p T$OP$1z JX21VSEL1:J:1:" ";::VSEL:1:9581 I21:1::" ";:2:T$;:1 VI:H737:3560:TSC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V12 0 XXX1ĺFILE$;+0 :" ";::XXX1ĺN$;10 90 :G0 C$"7"ı[0* VSEL0VSEL2404 VSEL:1:37):6::" CHOICE :";:16368,0:A$0> A$(13)ĢVSEL:15::A$" ";:0H TSC14,2VSEL2):BSC14,2VSEL1)0R A$(LTR)A$"A"4270;1\ ILE$" "=/ 1,V)4FILE$" ":LTRLTR1:XXX1T/ TEST$N$:N$(LTR)/ 1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$/ TEST$" "N$" "VSELV21:3360/ " ";:50,63192(LOCK$" ")/ XXX0ĺ" ";::"*";::FILE$;1::D$;CA$0.l 4:" CURRENT ADDRESS LISTS :"N.v X1452:(5,X)11)ĂXu. LTR64:XX1:VX442::V21:1. LOCK$" ":0,V)10LOCK$":". XXX0. 1,V)1FILE$" ". 1,V)2FILE$" "/ 1,V)9FIߪժժժժժߪժ?xCppp@pժժժժժժ?xaa~x@|pժժժժߪp|~p<`ժժժժתߪժת?x?x~xppתתժתߪժժժժժժߪժժժժժߪժժժժժժժժժժժߪժ?xCpxp@pժժժժժ?xaa~p@|pժժժߪp|x<`תժժժתתժת?x?x~?xppתתժתתժժժժժժߪժժժժժժߪժߪժժժժժMMANDS LOAD IN YOUR"4&"MAILING LIST FROM THE DISK EACH TIME" 50"YOU EXECUTE A COMMAND. THEREFORE THERE";5:"IS NO 'LOAD DATA' COMMAND IN THE MENU."x5D24:2::"HIT ANY KEY WHEN READY TO CONTINUE.";:A$::A3GOOD$""3ZZ$3(ZZ$)1343503(ZZ$)2743103ZZ$;:GOOD$GOOD$ZZ$:43104:E4936:4:13:"THE ADDRESSER"::" MAILING LIST UTILITY"{48::"INSERT YOUR DATA DISK IN THE DRIVE NOW.":414:"NOTE: ALL MENU CONOW.":936:4:13:"THE ADDRESSER"::" MAILING LIST UTILITY":ZZ$;:GOOD$GOOD$ZZ$:4310(ZZ$)27ZZ$","4310(ZZ$)134350ZZ$GOOD$""I:::(4)"PR#0":936:60I:::(4)"PR#0":936:222:60ONTINUE.";:A$:::"IS NO 'LOAD DATA COMMAND IN THE MENU."0"YOU EXECUTE A COMMAND. THEREFORE THERE"&"MAILING LIST FROM THE DISK EACH TIME"14:"NOTE: ALL MENU COMMANDS LOAD IN YOUR"8::"INSERT YOUR DATA DISK IN THE DRIVE A:uA$"N"A$"Y"30000/ADuA$"N"Č936:60ANu936:12::" INSERT YOUR MASTER DISK IN THE DRIVE"::24:7:"PRESS ANY KEY TO CONTINUE";:TE$AXu30030Alu:936:12:14:"LOADING...."AvuD$"RUN MENU"D24:2::"HIT ANY KEY WHEN READY TO C36:12:" FORMATTING DISK NOW.".@j'D@t'(4)"INIT HELLO"\@'(4)"DELETE HELLO"@'936:12:" DISK INITIALIZED":24:" PRESS ANY KEY TO CONTINUE.";:XX$@'1945@0u936:12:"ARE YOU SURE YOU WANT TO QUIT (Y/N)?";:A$SKETTE TO BE FORMATTED IN"::" THE DRIVE AT THIS TIME.":13:14::"** WARNING **":?B'17:" ALL DATA ON THE DISK WILL BE DESTROYED"::21:" DO YOU WANT TO CONTINUE (Y/N)? ";:XX$?L'XX$"N"XX$"Y"Ģ14::10050?V'XX$"N"60(@`'9V:HT:" ":V:HT:GOOD$;G>G#RR0TT1Ė1:651Q>P#4342[>'936>'12:" DO YOU WANT TO FORMAT A DISKETTE"::" AT THIS TIME (Y/N)? ";:XX$>$'XX$"Y"XX$"N"10000>.'XX$"N"60]?8'936:7:" INSERT THE DI ժժժժתժתժժժժժժժתժժժժժժժ?xCp>@pCpժתժժߪժժժժժժߪ?x|~|A`pժժժժժתժת?xx|p`pתժժߪժժժժժժߪժժժժߪժߪժժժժժժժߪժժժժժߪժժ?xCp`p@pժժժժߪժ?xaa~?x@|pߪժժժժߪp ||`<`ժժժժתߪժת?x?x~|ppתתժߪժժժժժժߪժժժժժߪժժժժժժz#????     ՠԠŠ"ՠ Ӳ)ˠծԠѠŠҠ?à:35:A$O<O - SUBROUTINE TO PRINT TEXT WITH CLICKS.BOKO150ZOI1(A$)jO(A$,I,1);zOX(16336)OIOO255O19:35OA$O20010COA$"DO NOT SAVE DATA TO THIS DISK."M$O7:5X.O20400~8OA$"PLEASE FORMAT A WORK DISK AT"BO9:6LO20400VOA$"THE MAIN MENU."`O11:13jO20400tOA$"PRESS ANY KEY TO CONTINUE."~O19:8:20400O19I139:" ";:I:pN"zN20010HNA$"WE STRONGLY SUGGEST THAT YOU"SN10:6^N20400NA$"MAKE A BACKUP COPY OF THIS"N12:7N20400NA$"DISKETTE"N14:15N20400NA$"PRESS ANY KEY TO CONTINUE."N19:8N20400N 1,THE ADDRESSOR, 1,THE CASINO>1,RUSTY NAILI N20090S*N936p4N3:3::I337:" ";:I>NI421:I:3:" ";:37:" ";:IHN21:3:I337:" ";:IRN1:1::I139:" ";:I\NI222:I:1:" ";:39:" ";:IfN23:1:A) TT(A)2ĺ"BRUN";A$(A)8 ^T(A)3ĺ"EXEC";A$(A)J hER(222):20P rk | DATA FOR DESCRIPTIONs  2  THE ADDRESSOR  THE MAILING LIST UTILITY DATA FOR PROGRAM NAMES 1-APPLESOFT 2-BINARY 3-TEXT FILE  1TINUE.";:A$:- #:12:13:"FORMATTING..." )(4)"INIT HELLO,D1":(4)"DELETE HELLO,D1"::17:"DONE"::2:"INSERT MASTER DISK"; ,AN1ĺ" AND PRESS RETURN";:A$:A$: @AN2ĺ"RUN MENUQ" A::12:14:"LOADING..." JT(A)1ĺ"RUN"A$(5:1102 VTV1(X)2:HT15.4:A$"WHICH ONE?":110N A$:KB(A$):A$""240c KB1KBN2240 VTV1(X)2:HT25.5:A$(KB):110::AKB:: AN321 AN1300 "::10:5:"INSERT BLANK DISK IN DRIVE ONE":24:7:"PRESS ANY KEY TO CONUBLISHING 1985":110G :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") CREATE WORK DISK":VTV1(X):HT12.5:110:XX1  A$(X)") QUIT":VTV1(X):HT12.(X1)14.0(X1.2):H ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764Q d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY P 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<QA0FV(1)10.6:V(2)11.8 PX05:V1     ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               @0ic i[ 0``::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"D *42K 22X d TARGETEZ 50)POKE 214,255: POKE 2049,1 :::8:8:"THESE AND MANY MORE FINE"::10:"PROGRAMS CAN BE FOUND"::13:"AT YOUR NEARBY":A$::14:A$;" STORE""BLOAD QUIT TITLE,A$2000"230,32:16300,0:16297,0:16302,0:16304,0< (A$: HERE ARE NO ENTRIES IN YOUR FILE.":D$"PR#0":6500:1500G>(9)"40N"TFI1REClPD$;"READ "F$",R";IZN$,A$,C$,S$,Z$,P$dD$nN$:A$:C$;",";S$;" "Z$xD$;"PR#0"(9);(73)12:" ANOTHER PRINT OUT (YFOR MALFUNCTION."I24:7::"PRESS ANY KEY TO CONTINUE.";::A$:1241:11:" POSTION PAPER AND PRESS RETURN.";:A$:A$(13)1280 D$"PR#1"D$;"OPEN "F$",L200"(D$;"READ "F$",R0"2REC<D$8=REC0Č936:12:" TOT #1"::11:"AND READY TO PRINT."W15:" DO YOU WANT TO CONTINUE (Y/N)? ";:A$xA$"N"A$"Y"Ģ23::1260A$"N"60255,1:832:Z9(255):Z911280Z91ė:11:" UNABLE TO COMMUNICATE WITH PRINTER."::" CHECK YOUR PRINTER  (37)41220^D$:24:" TO CONTINUE ";:A$::D$"CLOSE":60mD$"CLOSE"REC0Ģ12:" THERE ARE NO ENTRIES IN THIS FILE.";I13000:I603130:F$L$#9:"MAKE SURE YOUR PRINTER IS IN SLD$"OPEN "F$",L200".$D$"READ "F$",R0"7.RECI8:REC01220VBI1REClLD$"READ "F$",R"IVN$,A$,C$,ST$,Z$,P$`N$jA$tC$","ST$" "Z$uP$~(37)201190D$:24:" TO CONTINUE ";:A$:zN$","A$","C$","S$","Z$","P$'D$0640JD$;"WRITE ";L$;",R0"SRX0ZRnD$;"CLOSE ";L$~34,0::60D$:D$"CLOSE""1071"D$"OPEN "L$",L200D$"WRITE "L$",R0"0D$"CLOSE"6003130:F$L$:Z$GOOD$(AP$""A$A$" APT."AP$Z "PHONE : ";:VV1:LN23:4300:P$GOOD$b422>" IS THIS CORRECT (Y/N)? ";:Y$HRY$"Y"Y$"N"820\Y$"N"ĉ:480]II29:II:868:IIfRR1pD$;"WRITE ";L$;",R";RN$"*"920A"ADDRESS : ";:VV1:LN24:4300:A$GOOD$t"APARTMENT # : ";:VV1:LN10:4300:AP$GOOD$"CITY : ";:VV1:LN24:4300:C$GOOD$"STATE : ";:VV1:LN2:4300:S$GOOD$ "ZIP CODE : ";:VV1:LN10:4300E : ";::"*":D34,9'N17-7HT15k10:" NOW ENTERING NUMBER: ";R123:" TYPE * AT NAME TO QUIT.";TT111:"NAME : ";:V12:LN24:4300:N$GOOD$24:1:868TT012:"APARTMENT # : 12A "Z "CITY : ST.LOUIS " "STATE : MO " "ZIPCODE : 52126 " &"PHONE : 306-431-1526 "07:22:"TO EXIT:NAM MAILING LIST": RX1640' RX1B D$;"OPEN ";L$;",L200"[ D$;"READ ";L$;",R0"b Rj D$ 2::"EXAMPLE ENTRY : (USE NO COMMAS) " "NAME : PETERSON MARK J " "ADDRESS : 1234 LOUISIANA CT. "+ C1C9240 "H ,C1520,3620,1030,450,2170,1240,320,2290,1710,350W 614::250c @:3160 J24:" ";::"HIT ANY KEY TO CONTINUE";:A$: T60 ^30000 (13)A$ĺ:D$"CLOSE":40 420 3130 : 6:"THE ADDRESSER -SPLAY FILE INFORMATION."< 6:"6) PRINT MAILING LABELS."b 6:"7) LIST ALL FILES ON DISK."} 6:"8) EDIT A LIST." 6:"9) DISK FILE TRANSFER." 17:6:"Q) QUIT." 22 15::"SELECTION :";::C$ C$"Q"350 C(C$) 23:I:2:" ";:39:" ";:I8 I24:2:I239:" ";:I> Jl d3:7::"THE ADDRESSER - MAILING LIST": x7:6:"1) CREATE OR DELETE DATA FILE." 6:"2) SORT DATA." 6:"3) DISPLAY DATA TO SCREEN." 6:"4) ADD DATA." 6:"5) DI=(4)"BLOAD PCHK"` N$(500),D(500),IN(6),IN$(4),A$(500),C$(500),S$(500),Z$(500),P$(500)j4360X1010(1010):Y1011(1011)(D$(4)2 POKE 1010,0:POKE 1011,3:CALL -1169<34,0:936F4280G:1:2:I239:" ";:I HI2                     `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L ΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|pժժժߪp~`~<`ߪժժժתתժת?x?x~?xppתߪժתժժժժժժժߪժժߪժժժժߪժժߪժժժժժժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժժժߪժժժתתժߪ?x?x~?xpCpתߪժתժժժժժժժߪߪժժߪժժתժժժתժժժժժժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժժժߪժժժתժժߪ?x|~?xpCpתժתժժժժժժժժߪժժժתժժתժժժתժժժժժժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժժժߪժժժתժժߪ?x|~x`Ap תժתժժժժժתժժߪժժժ