' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&" $H Hh$@A H@AhL߼  !"#$%&'()*+,-./0123456789:;<=>?   9'. ""  (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#0"4))+8049 + ; +.!)E(R9 h8 0 ! `H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`@A   /` $ /`L|HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  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õ`  \ 濭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 i / ]ƴ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䵍䵩m嵍`"L ŵ8ŵH ~(`# d½ӠƠz# u`(I):B(I1):C(I2)&íA0ďA,BC-ÂI37DZO LINK TO CMD PROCESSORW"D$b650000o@:21:1|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1"8 ERROR HANDLERBCONTROL"pbD$;OPEN$(0)+zbD$;WRITE$(0)QbN(1)","N(2)","N(3)","N(4)","N(5)wbC(1)","C(2)","C(3)","C(4)","C(5)bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bPò A/P LOGOZ×:dà8nLOCBEEP25ÁILOCLOC1203A,0,0,0,0,0+V 50,180,80,100,0,0,0,0,0,0O"V 9,80,30,180,9,80,9,60,20,200b b WRITE STATUSbD$"OPEN CONTROL,S6,D1,V0" bD$"WRITE CONTROL,R1"*bS0","S1","S2","S3","S4","S5","S6>bPR","PL","LW","LH","LCRbFL$","CM","CS$\bD$"CLOSE "","""Pò A/P LOGO"Z×:#"dà23"nLOCBEEP25A"xA11:A22V"ÁILOCLOC1203u"A(I):B(IA1):C(IA2)"í(A)ďA,BC"ÂI"7DZ":(4);"RUN APPLEPOST,S6,D1"" :(4);"BLOAD CHAIN,S6,D1,A520""520"STATUS MODULE,S6,D1""P CODE"! "INDEX."%! "STATUS"N! "THIS COMMAND DISPLAYS THE NUMBER"v! "OF NAMES IN THE LIST & THE SORT"! "STATUS OF THE INDICES."! "NEWLIST"!" "THIS COMMAND IS USED TO CHANGE"!$ "NAME AND ADDRESS LISTS."," ""Oà "END","","LOCATE & EDIT NAMES USING"E "THE ZIP CODE AS AN IDENTIFIER."U "ZIPLIST"| "THE ZIPLIST COMMAND PRODUCES A"  "LIST OF THE NAMES IN ZIP"  "CODE ORDER."  "ZIPSORT" "THE ZIPSORT COMMAND FORCES"! "RE-SORTING OF THE ZIDEX INTO THE FILES."! "TONE"F✃ "THE TONE COMMAND ENABLES THE"a䜃 "TONE GENERATOR.",""p꜃ "UPDATE"윃 "THE UPDATE COMMAND FORCES " "RE-SORTING OF ALL SYSTEM" "INDICES." "ZIPFIND" "THE ZIPFIND COMMAND IS USED TO " "TERMINATES APPLEPOST OPERATION","",""8̜ "SELECT"^Μ "THE SELECT COMMAND DEFINES A "М "SET OF CRITERIA USED TO SELECT"Ҝ "NAMES FOR PRINTING."֜ "SOUNDEX"؜ "THE SOUNDEX COMMAND INITIATES"ڜ "SORTING OF THE SOUNDEX"ܜ "IN"PRINTER"* "THIS COMMAND IS USED TO "G "INFORM THE APPLEPOST"q "SYSTEM OF THE PRINTER PARAMETERS."œ "PURGE"Ĝ "THIS COMMAND REMOVES FROM "Ɯ "THE LIST ALL NAMES WHICH"Ȝ "HAVE 'DELETE' IN THE UTILITY FIELD."ʜ "QUIT")THE NAMES"- "IN THE ENTRY FILE INTO THE"F "MAIN DATA FILES."S "MUTE" "MUTE DISABLES THE TONE GENERATOR","","" "PHONELIST" "THIS COMMAND PRODUCES"  "A LIST OF NAMES AND TELEPHONE" "NUMBERS FROM THE FILES."  ABELS."| "LABELS"5~ "THIS COMMAND INITIATES"U "THE PRINTING OF MAILING"{ "LABELS ON THE SYSTEM PRINTER." "LIST" "THIS COMMAND INITIATES LISTING" "OF THE NAMES AND ADDRESSES.","" "MERGE"  "THIS COMMAND MERGES IS UNCERTIAN."h "EXPLAIN"Ej "YOU ARE NOW USING THE EXPLAIN"hl "COMMAND. IF YOU NEED MORE"n "HELP, SEE THE MANUAL."r "FORMAT"t "THIS COMMAND IS USED TO INFORM"v "THE APPLEPOST SYSTEM OF THE"w "SIZE AND SHAPE OF THE L SORT KEY."T "ENTER"=V "THIS COMMAND IS USED TO PUT"bW "NEW NAMES AND ADDRESSES INTO"X "THE APPLEPOST SYSTEM."^ "FIND"` "THIS COMMAND WILL LOCATE AND EDIT"b "A NAME IN THE FILES EVEN IF THE"c "SPELLING OF THE SORT KEYTURN ";A$v30000ryE$:1 QUIT COMMAND<ˆ50000G̈22:4pֈ"SESSION CONCLUDED. . . THANK YOU."v@ EXPLAIN DATAJ "EDIT"L "PERMITS THE MODIFICATION OF"M"ANY LINE OF A NAME OR ADDRESS" N "WITH THE EXCEPTION OF THED"30300uA$B$30120#u:88uB$;" COMMAND :"@u:JuC$:XuT2:1300buE$:puT1:1300zuF$:uT0:1300uv"PRESS RETURN ";A$ v30000\vfvA$;" IS NOT A VALID COMMAND"pv::uvT1:1300 zv"PRESS REERRSUBRLEF(216).VEL(218)(219)256<`EC(222)NjEC25563000Yt63500_0):C(I2)í(A)ďA,BC!ÂI'7DZC LINK TO CMD PROCESSORK"D$V650000c@:21:1nT25100|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1"8 ERROR HANDLERB(0 )?  @ PɠɢH8$姪h  0 0$$P$ ħĨ()H8i"ȩȩ0 )Ph`SE$(0)bPò A/P LOGOZ×:dà9nLOCBEEP25ÁILOCLOC1203 A(I):B(I1:$ LL&eŧ'܅3I΅ijlkћћiܥLLީeȅȱȱ Ī$$$ Ɉ$$ħ (褧$к PɍXɛu$Ĩɕ I"(:(4);"BLOAD CHAIN,S6,D1,A520"F520"STATUS MODULE,S6,D1"\8 ERROR HANDLERiBERRSUBRwLEF(216)VEL(218)(219)256`EC(222)jEC25563000t63500 DON'T CHANGE 63999 IN ANY WAY(122)256(121)39 LOGO Z×:dà9$nLOCBEEP259ÁILOCLOC1203VA(I):B(I1):C(I2)fí(A)ďA,BCmÂIs7DZ LINK TO CMD PROCESSOR"D$650000@:21:1T25100|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"NOMON80,100,0,0,0,0,0,06"V 9,80,30,180,9,80,9,60,20,200I b WRITE STATUSZpbD$;OPEN$(0)lzbD$;WRITE$(0)bN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)","C(3)","C(4)","C(5)bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bPò A/P " ADDRESS",25#R "CITY, ST",206&R "ZIP CODE",9J0R " ATTN",20^:R " PHONE",12rDR "SORT KEY",10NR " UTILITY",10U TONE DATAU 9,80,30,180,9,80,9,60,0,0V 20,20,0,0,0,0,0,0,0,0V 10,10,0,0,0,0,0,0,0,0V 50,180,RIABLE INIT!*N(KEY)466350014ND$;OBJECT$<>NT19IHNR$(T)""PRNT[NT18eNC$,ClNTwNT04NT109NT(T,T1)NT1NTLOT1$"":T2$""VOT139:T1$T1$(34):T2$T2$" ":Q:RR " NAME",25R) VEL(218)(219)256( `EC(222): jEC25563000E t63500K TA,BC ÂI7DZ/ LINK TO CMD PROCESSOR7"D$B650000O@:21:1ZT25100k|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1"8 ERROR HANDLERBERRSUBR LEF(216$;WRITE$(0)1bN(1)","N(2)","N(3)","N(4)","N(5)WbC(1)","C(2)","C(3)","C(4)","C(5)}bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bPò A/P LOGOZ×:dà8nLOCBEEP25ÁILOCLOC1203A(I):B(I1):C(I2)íA0()H8,*iȩȩh`Tb WRITE STATUSabD$"OPEN CONTROL,S6,D1,V0"{ bD$"WRITE CONTROL,R1"*bS0","S1","S2","S3","S4","S5","S6>bPR","PL","LW","LH","LCRbFL$","CM","CS$\bD$"CLOSE CONTROL"pbD$;OPEN$(0) zbD()H8i"ȩȩ0 )Ph`)Ph`h`$*,*$ Ɉ$$* (,*$-м PɍZɛn$+ɕ,(0 )?  @ PɠɢH8$*h) 0 0,$$,P$,*+ћiܥLLީeȅȱȱ Ī$$$ Ɉ$$ħ (褧$к PɍXɛu$Ĩɕī(0 )?  @ PɠɢH8$姪h  0 0$$P$ ħĨERRSUBRLEF(216)/VEL(218)(219)256=`EC(222)OjEC25563000Zt63500` DON'T CHANGE 63999 IN ANY WAY(122)256(121)38:$ LL&eŧ'܅3I΅ijlkћ `/U*U*U*U*U*Uz `=}}}}}==o  `+U*U*U*U*U*uBBBB `A8p`A8p`A p+U*W_*Uz p_*U*U*U*} pW*U*U*U*U*U*uBB@ p Up{{~?uw?| pW*U*U*U*U*U*u p_* p+U*U*U*U*Uz@@B p p+U*U*U*U*U*u  p p/U*U*U*U*U*Uj@  p/U*U*U*U*U*Uj p=}}}}}=?o  p+U*U*U*U*U*uBBbB p `/U*_~*Uz `W*U*U*U*} `W*U*U*U*U*U*}~>>>B< `?}_~ L256 `EC(222)# jEC25563000. t635004 LINK TO CMD PROCESSOR "D$+6500008@:21:1CJ25100T|:D$;CHAIN$v520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1"8 ERROR HANDLERBERRSUBRLEF(216) VEL(218)(219)"N(2)","N(3)","N(4)","N(5)@bC(1)","C(2)","C(3)","C(4)","C(5)fbD(1)","D(2)","D(3)","D(4)","D(5)xbD$;CLOSE$(0)~bPò A/P LOGOZ×:dà8nLOCBEEP25ÁILOCLOC1203A(I):B(I1):C(I2)íA0ďA,BCÂI7DZu$Ĩɕī(0 )?  @ PɠɢH8$姪h  0 0$$P$ ħĨ()H8i"ȩȩ0 )Ph` )Ph`Ph`$ATUSpbD$;OPEN$(0)zbD$;WRITE$(0)bN(1)",6(121)38:$ LL&eŧ'܅3I΅ijlkћћiܥLLީeȅȱȱ Ī$$$ Ɉ$$ħ (褧$к PɍXɛROCESSOR,S6,D1"4 :(4);"BLOAD CHAIN,S6,D1,A520"R520"STATUS MODULE,S6,D1"h8 ERROR HANDLERuBERRSUBRLEF(216)VEL(218)(219)256`EC(222)jEC25563000t63500 DON'T CHANGE 63999 IN ANY WAY (122)25(4)","D(5)bD$;CLOSE$(0)"b1Pò A/P LOGO9Z×:@dà8PnLOCBEEP25eÁILOCLOC1203A(I):B(I1):C(I2)íA0ďA,BCÂI7DZ LINK TO CMD PROCESSOR"D$650000@:21:1|:D$;CHAIN$520"COMMAND PV 10,10,0,0,0,0,0,0,0,0>V 50,180,80,100,0,0,0,0,0,0b"V 9,80,30,180,9,80,9,60,20,200u b WRITE STATUSpbD$;OPEN$(0)zbD$;WRITE$(0)bN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)","C(3)","C(4)","C(5) bD(1)","D(2)","D(3)","DNT Q:R'R " NAME",25;R " ADDRESS",25OR "CITY, ST",20b&R "ZIP CODE",9v0R " ATTN",20:R " PHONE",12DR "SORT KEY",10NR " UTILITY",10U TONE DATAU 9,80,30,180,9,80,9,60,0,0V 20,20,0,0,0,0,0,0,0,01;D$;FETCH$(FL);R#;SDX,PTR5;SDXXS15310<;RG;SRR1Z;D$;CLOSE$(FL)`>t N VARIABLE INIT*N(KEY)46635004ND$;OBJECT$HNNN(2)N(3)N(4)N(5)4NT18NC$,CNTNT04NT109NT(T,T1)NT1ELETED" =6="OR SYSTEM CAPACITY IS INCREASED":P="BY DOING A MERGE":r="PLEASE PRESS RETURN. ";T$=D(5)1: SYSTEM NOW FULL=25100=CM3CM0: STOP ENTERING=11000 N VARIABLE INIT*N(KEY)46635004ND$;OBJECT$ ::7*"="ALL AVAILABLE DATA FILES HAVE"06=V@="BEEN FILLED TO CAPACITY. THERE"\J=sT="ARE CURRENTLY ";^=N(2)N(3)N(4)N(5)4;h=" NAMES IN THE LIST."r=|="THE SYSTEM WILL ACCEPT NO NEW"=="NAMES UNTIL SOME ENTRIES ARE DN$(X))6)&dbPR","PL","LW","LH","LCRbFL$","CM","CS$\bD$"CLOSE CONTROL"b0u TRANSFER DOS STRINGS5u12000:uD$;"OPEN";OBJECT$NT04NT109+NT(T,T1)5NT1,T=N:CNSU TONE DATAwU 30,134,15,80,15,1,15,80,0,0V 30,80,80,150,0,0,0,0,0,0 V 10,80,10,50,10,80,10,50,0,0V 15,40,5,1,15,40,0,0,0,0"V 50,50,0,0,0,0,0,0,0,0 ^017"LK0DJd@ PRINT LABELS SCREENjJqL4~NV1932P4,34VRVT9^V2130h8,30VrV|4~I15X,X,X,X,X,X,X,X,X,XII022 0^3b"TYPE R TO REPEAT THE LABEL CHECK. "9dWf"PRESS ESCAPE TO QUIT. "_lA$snA$(27)41030vA$"R"37660A$(13)3770037500: CLR BUFRX PAGE BREAK]PD039050b24lT1:1300!v"PRESS F$(0)BF$(0)(T$,LW)1BF$(1)BF$(1)(T3$,LW)M BF$(2)BF$(2)(T4$,LW)hBF$(3)BF$(3)(T$,LW)pLB}:10:5!"* * LABEL ALIGNMENT CHECK * *""37400: PRINT ITDN8X"PRESS RETURN TO BEGIN PRINTING LABELS,"]T1:130FER STRINGSI04$BF$(I)""+I1G LABEL ALIGNMENTT$("******************************"T2$T2$T2$,LW)T3$(" LABEL ALIGNMENT CHECK"T2$T2$T2$,LW)T4$(" ***** ********* *****"T2$T2$T2$,LW)LB1LCB::37100, PRINT LABEL SUBROUTINE5800?"1:1O'33,1:35,1Z,W03w1(BF$(W))0ĺ" ":374406BF$(W);41000@WELH537475JW5LH1O(10);TWY" "c900h33,40:35,24r | CLEAR BUF4LXLW&bPR","PL","LW","LH","LCRbFL$","CM","CS$\bD$"CLOSE CONTROL"pbD$;OPEN$(0)zbD$;WRITE$(0)bN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)"NT(T,T1)NT1NTN/U TONE DATAXU 120,98,70,86,30,98,120,117,120,117V 10,60,10,150,10,40,10,150,10,20V 10,80,5,1,10,80,5,1,10,60V 20,80,10,60,20,80,0,0,0,0"V 70,117,30,138,70,117,30,110,240,117 b WRITE STATUSUNSPECIFIED INTERFACE CARD"JV6V1PC$"PARALLEL PRINTER INTERFACE CARD"o`6V2PC$"SERIAL INTERFACE CARD"j6V3PC$"COMMUNICATIONS INTERFACE CARD"t6 N VARIABLE INIT*N(KEY)46635004ND$;OBJECT$>N1000NT04NT109 3ITT253X1X1(I)!3I)"3V06,3XX1ıC.3X(T5)Q03X1(T7)e63X72X172V1y@3X56X124V2J3X24X156V3T3V0ı31390036:1:" ";3868320(PC$)23PC$5L6 SET CARD NAMEQ6V0PC$"0X9X100012550016:1J0"A NUMBER BETWEEN 10 AND 999 PLEASE!"U014:1`012420l1PL(X)x110:191PL;" LINES PER PAGE. "$1120902 CHECK FOR CARD TYPE2T49152X92562X0:X102ITT252XX(I)2I 1:958:800"SLOT #";X9;" DOES NOT CONTAIN"V06:"AN APPLE I/O INTERFACE CARD"a012300s0PR(X9):S6V~ 08:33*0PRp014:1z09580"HOW MANY LINES PER PAGE ?";0T2:13000J$(PL)0H128:H230011000X(J$)E CARD MISSING)":14:39&/T2:13003/J$(PR)C/H138:H238M/1100^/I%2712320k/X9(J$)/X91X9712280/13000/V1V312303/12310/16:1:9580"ONLY SLOTS #1 THRU #7 ARE POSSIBLE!" 014:1:12210 016:"DONET25100 |:D$;CHAIN$B520"COMMAND PROCESSOR,S6,D1"g :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1"8 ERROR HANDLERBERRSUBRLEF(216)VEL(218)(219)256`EC(222)jEC25563000t63500 ,"C(3)","C(4)","C(5):bD(1)","D(2)","D(3)","D(4)","D(5)LbD$;CLOSE$(0)RbaPò A/P LOGOiZ×:pdà2nLOCBEEP25ÁILOCLOC1203A(I):B(I1):C(I2)íA0ďA,BCÂI7DZ LINK TO CMD PROCESSOR6 LOGO ALREADY bD$"OPEN CONTROL,S6,D1,V0"8 bD$"WRITE CONTROL,R1"^*bS0","S1","S2","S3","S4","S5","S6z>bPR","PL","LW","LH","LCRbFL$","CM","CS$\bD$"CLOSE CONTROL"pbD$;OPEN$(0)zbD$;WRITE$(0)bN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)"NSQ((N))%NXB(40SQ)2:YBXB+N;U TONE DATAXU 30,100,0,0,0,0,0,0,0,0xV 30,100,30,100,0,0,0,0,0,0V 30,100,30,100,30,100,0,0,0,0V 30,100,30,100,30,100,30,100,0,0"V 10,50,0,0,0,0,0,0,0,0^WRITE$(X) b WRITE STATUS:1 /10,D/"ANY CHANGES ? ";:I/T2:1300SN/J$" ":H125:H227]X/1100tb/(J$,1)"Y"12200l/(J$,1)"N"ıv/12090//14:1/958/"IN WHICH SLOT IS THE INTERFACE CARD ? "/20/"(PRESS ESC IF INTERFAC.13900.1:2>."P R I N T E R P A R A M E T E R S"H/4:5m/"THE PRINTER IS CONNECTED TO A"t/6/20((PC$)2):PC$/8:7/"WHICH IS LOCATED IN SLOT #";PR/10:5&/"IT WILL PRINT ";PL;" LINES PER PAGE."0/:/142:33"."THERE ARE "LC" LABEL(S) ACROSS THE FORM"AJ.18:958MT.19:13[Y.T2:1300o^."ANY CHANGES "wc.19h.J$"?":H125:H227r.1100|.(J$,1)"Y"11340.(J$,1)"N"11850.18:1:958.. PRINTER DATA.::VS6 8:958-19:1:-"HOW MANY LABELS ACROSS THE FORM "B-19Y-J$"?":H134:H234g-T3:1300q-1100-J$"?"11850-LC((J$))-LC1LC611800-21:1."THERE MUST BE FEWER THAN 6 LABELS ACROSS THE FORM.".11700.1 LINES"-19& -J$"?":H120:H2224-T3:1300>-1100P-J$"?"11670`-LH((J$))w(-LH3LH100116502-21:3<-"LABELS MUST MORE THAN 3 AND"F-" LESS THEN 100 LINES HIGH"P-11510-10:8:868-LH" LINES HIGH"-1,1100t,J$"?"11500(~,LW((J$))@,LW29LW13311450K,21:3r,"LABELS MUST BE MORE THAN 29 AND"," LESS THAN 132 CHARACTERS WIDE.",11340,8:8:868,LW" CHARACTERS WIDE",18:958,19:8-"NEW HEIGHT = 6:3+"LABELS ARE :"#+8:8=+LW" CHARACTERS WIDE"H,10:8],LH" LINES HIGH"h$,12:3.,"THERE ARE "LC" LABEL(S) ACROSS THE FORM"G,11850L,19:8V,"NEW WIDTH = CHARACTERS"[,19`,J$"?":H120:H222e,T3:1300j* VOICE/MUTE COMMANDS(+CM1S117 +CM2S10? +22e*+" THE TONE GENERATOR HAS BEEN ";x4+S1ĺ"ENABLED">+S10ĺ"DISABLED"H+T0:1300R+T4:1300[++ LABEL FORMATS+:+4:3+"LABEL FORMAT SPECIFICATIONS"+ TONES101370#T10827(T(T,T1)01370K2BEEP1,T(T,T1)a<BEEP2,T(T,T11)kFBEEPsPT1yZ' MAIN PROGRAM'20000$'CM1İ11000&'CM2İ11000.'CM11İ112008'CM13İ12000(**25100*630001040:J$""8 ZI$:I%(I$):I1ES%(0):I%ES%(I)1134? \IP ^I$" "1124f `(J$)H2H11132 bJ$J$I$:1040:1114 dI%81130 f(J$)21110 hJ$(J$,(J$)1):1040:1114 jI%363000 l(7);:1114 nJ$""J$K$ p.5)):' $KEN(RD(J)):IRD((JK))7 &J%((DG))U (I$(1I):I5E9I$" ." *J$(K)(I$"00000000",2,J%):J0K0J$"-"J$ , LINPUT J$,PRINT OLD NK%1:1108 PINPUT J$,DONT PRINT OLD RK%0 TK$J$ VJ$"":K%J$K$ X%):I%(I%(J$))2(J$):A PRINT J$ IN H1H2 AND PLACE CURSORT 1044:H1I%:j PRINT J$ IN H1H2 1022:PR%01050 H1:I$;:RL$"L"ĖH1(J$)  H12OP$I$(OP$,H21): OP$(OP$,H11)I$MID(OP$,H21): "DG1J$((J J$ TO FIT H1H2 I%H2H11< MAKE I$ WIDTH I% FROM J$Y (J$)I%I$(AS$,I%):o (J$)I%I$J$: RL$"R"I$(SP$J$,I%): RL$"L"I$(J$SP$,I%):I%(J$): (J$)I%1I$J$" ":I%I%1: I$((SP$,(I%(J$))2)J$SP$,IOSUBS EXTRACT4 H11:H239:DG1:RL$"R"::DEFAULTSi SP$"":AS$"":I139:SP$SP$" ":AS$AS$"*":I ES%(0)2:ES%(1)13:ES%(2)27 ROUND FCN RD(X)(XDG.5)DG ENTIER FCN EN(X)(X)((X)) :END INIT  MAKE I$ FROM  *************************?APPLE II MAILING LIST PKG_ UTILITY MODULE .|( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************d ONERR GOTO 6380010000  I                 01370 T1082) (T(T,T1)01370= 2BEEP1,T(T,T1)S <BEEP2,T(T,T11)] FBEEPe PT1k Z  CONVERT ZIP CODE X$X$"000000" X10:X30 X16 X3X31 X2((X$,X3,1)) X2321532 X264X2X27 X2X24714000 50000 22:1: "ONE MOMENT PLEASE . . ."[ "THE INDEX MUST BE UPDATED"j D$;CHAIN$ 520"ZIPSORT MODULE,S6,D1"  PAINT ENTRY FORMAT  (4) P18 C$,C C$;": ";R$(P)  P   TONE S1h  *************************?APPLE II MAILING LIST PKG^ ZIPFIND MODULE .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************d6380020000 D(2)0N(1)1,D1" uPò A/P LOGO!Z×:(dà68nLOCBEEP25MÁILOCLOC1203jA(I):B(I1):C(I2){íA0ďA,BCÂI7DZALWAYS RUN APPLESOFT"50000@:21:1 :(4);"RUN APPLEPOST,S6,D1"M,0,0,0,V 30,100,30,100,30,100,30,100,0,0H"V 10,50,0,0,0,0,0,0,0,0^0u NO COMMON BLOCKj:u10:10Du"APPLEPOST HAS CRASHED"Nu:10Xu" R E - L O A D I N G"]u:10bu" A P P L E P O S T"luI13000::vu(4);"RUN APPLEPOST,S6 NT04NT109#NT(T,T1)+NT12NT:N:YNNN(1)N(2)N(3)N(4)N(5)hNSQ((N))yNSQ10SQ10NXB(40SQ)2:YBXBNU TONE DATAU 30,100,0,0,0,0,0,0,0,0V 30,100,30,100,0,0,0,0,0,0V 30,100,30,100,30,100,0S T I C"8,B,I2J2J17L,"O";I;":";OPEN$(I)PV,"C";I;":";CLOSE$(I)i`,"F";I;":";FETCH$(I)j,"W";I;":";WRITE$(I)o,t,T1$y,~,I," PRESS RETURN ";:T$:,T$(27)J9,J, N VARIABLE INIT*ND$;OBJECT$+"ERRLINE=";EL#+"S6=";S6,:21;+"ERRSUBR=";ERRSUBRC+:N+I15e+"D(";I;")=";D(I),m+13+"N(";I;")=";N(I),+25+"C(";I;")=";C(I)+I++" PRESS RETURN";T$$,J03),.,"A P P L E P O S T D I A G N O "S1=";S1,:13 R+"PR=";PR,:242W+"BEEP=";BEEPE\+"S2=";S2,:13Xf+"PL=";PL,:23xk+"HIMEM=";(116)256(115)p+"S3=";S3,:13z+"LW=";LW,:21+"ERRCODE=";EC+"S4=";S4,:13+"LC=";LC,:21+"ERRFLAG=";EF+"S5=";S5,:21)T$"DUMP"11000$ )T$"DEBUG"ı* *Y +"A P P L E P O S T D I A G N O S T I C"_ +u +" FL$ = ";FL$ +" CS$ = ";CS$ $+" CHAIN$ = ";CHAIN$ &+"OBJECT$ = ";OBJECT$ *+ 4+"S0=";S0,:13 >+"CM=";CM,:25 C+"KEY=";KEY H+ZIP CODE INDEX IS ";% F(D(2)ĺ"UN";4 P("SORTED.": Z(X ("THE SOUNDEX INDEX IS ";q (D(1)D(2)ĺ"ALSO "; (D(1)ĺ"UN"; ("SORTED." ):"SELECT MODE IS "; )D(4)ĺ"ENABLED." )D(4)ĺ"DISABLED." h)23:5 r)"PRESS RETURN ";T$ |0 'Y0Y1# 'P(XY1000)10E '"THE LIST CURRENTLY HOLDS ";V 'X;" NAMES."\ ' '"IT IS FILLED TO ";P;"% OF CAPACITY." ' '"THE ENTRY FILE "; 'N(1)1ĺ"HAS ";N(1)1;" ADDITIONAL NAMES." 'N(1)1ĺ"IS EMPTY." ' <("THE  B'6, L'"-----------------------------"< Q'KEY30000B V'T X'EF12810078^ Z'11:x \'"ERROR ENCOUNTERED" ^': `'X$FL$" LIST STATUS" j'(40(X$))2 t'X$: 'XN(2)N(3)N(4)N(5)4 'YC(2)C(3)C(4)C(5)4 ' 'X0X0000 810000 B63000&  TONE5 S101370C T1082W (T(T,T1)01370k 2BEEP1,T(T,T1) <BEEP2,T(T,T11) FBEEP PT1 Z ' MAIN PROGRAM ': $'12 )'"A P P L E P O S T" .'3:8 8'"S Y S T E M S T A T U S"  *************************?APPLE II MAILING LIST PKG^ S T A T U S M O D U L E{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************d216,0n63000 STATUS $2        X20X236X20* X1X1X236(6X)1 "XJ ,X1(((X1)10000))P 6` ' PAGE EDITf $'l .'{ 8'(1):(12) B'"NAME & ADDRESS EDIT" L'T4$ V'1200 t' ~'X10: TEMP DIRTY FLG 'P18 'P13P2 'P211 'P710500 ERROR HANDLERBERRSUBR-LEF(216)FVEL(218)(219)256T`EC(222)fjEC25563000qt63500wA FILES ARE EMPTY":24?:8:"NOTHING TO SORT & INDEX";:63100[ LINK TO CMD PROCESSORc"D$n650000{@:21:1J25100|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1"8S0","S1","S2","S3","S4","S5","S6=bPR","PL","LW","LH","LCQbFL$","CM","CS$acD$;"CLOSE"gcvPò A/P LOGO~Z×:dà1nLOCBEEP25ÁILOCLOC1203A(I):B(I1):C(I2)íA0ďA,BCÂI7DZ050000::22:10:"ALL0,0,0,0,0 b WRITE STATUS-pbD$;OPEN$(0)?zbD$;WRITE$(0)ebN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)","C(3)","C(4)","C(5)bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bD$;"OPEN CONTROL,S6,D1"bD$;"WRITE CONTROL,R1"!bN(4)N(5)4zNSQ1((N))6NXB((40SQ)2):YBXBANT04MNT109ZNT(T,T1)bNT1iNToNU TONE DATAU 15,150,10,80,5,100,0,0,0,0V 5,10,0,0,0,0,0,0,0,0V 0,0,0,0,0,0,0,0,0,0V 0,0,0,0,0,0,0,0,0,0 "V 0,0,0,0,0,CLOSE$(F)'F'$: BAILOUT/:D(0)0E:CM10CS$"FIND"]:CM6CS$"ZIPSORT"r:CM10CM6S31}:50000:25100:D$;"RUN APPLEPOST,S6,D1" N INITIALIZE VARIABLES*N(KEY)46635004ND$;OBJECT$>N: pNNN(2)N(3): READING THE FILES"%B'K%(N),P%(N)0L'F25BQ'N(F)110200SV'D$;OPEN$(F)c`'R1N(F)1wj'D$;FETCH$(F);Rt'S19~'S$(S)'S'N1N11'K%(N1)((S$(9)))'P%(N1)F1000R'1(K%(N1)1000)'PSN1:2040'R 'D$;0:20402#D(1)1:25100+<#D$;OPEN$(7)2F#0>K#PS1NSP#D$;WRITE$(7);PSgZ#K%(PS):P%(PS)o_#D$yn#2040x#PS#D$;CLOSE$(7)#D(1)0#25100'' LOAD THE ARRAY'N150050000$'N10.':22:58'"SOUNDEX SORT P%(0) bOP0:PSI:2000$ 53002 L MSG SUB? V:22:6c j"SOUNDEX SORT : SORTING PHASE"o t23:21 ~"0% COMPLETE" MF0  @ SORT FINISHED (# FILE WRITE *#:22:1 ,#"SOUNDEX SORT : WRITING THE INDEX FILE" .#00#PSUU1 pU16300/ K%(1)K%(0):P%(1)P%(0)C OP0:PS1:2000M 88000U JLc IJ:JJ2 d2(JU)6600,6700,7000 K%(J)K%(J1)JJ1 ,K%(0)K%(J)7000 K%(I)K%(J):P%(I)P%(J) OPJ:PSI:2000 6400 XK%(I)K%(0):P%(I)) PL(N2)1:UN" L15700, LL1H |K%(0)K%(L):P%(0)P%(L)\ OPL:PS0:2000f 6300 DK%(0)K%(U):P%(0)P%(U) NOPU:PS0:2000 K%(U)K%(1):P%(U)P%(1) OP1:PSU:2000 MFİ7500 23:21 (((NU)N)100);"%";  SUBROUTINE N1500ı, Y1YB(OPSQ)I X1XB(OP((Y1YB)SQ))V X1,Y1)h YYB(PSSQ)v N1500ı XXB(PS((YYB)SQ)) X,Y   HEAPSORT :22:5 "SOUNDEX SORT : PRESORT PHASE" MF1  FROM KNUTH (VOL3000) N(1)N(2)N(3)N(4)N(5)562000: N(1)11070E 50000P 22:1 "NEW ENTRIES MUST BE MERGED INTO THE FILE" 10:". . . ONE MOMENT PLEASE" $D$;CHAIN$ )520"MERGE MODULE,S6,D1" .10000 85000 B15000  CONVERSIONx  *************************?APPLE II MAILING LIST PKG^ SOUNDEX MODULE .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800 SETUP PARAMETERS 20         I)0ASC$(I)""AI$AI15/A17500FASC(I)0I116500YASC(I)016900`AI{B23:1:958:T3:1300B"ARE THESE LIMITS CORRECT ?";T$B(T$)016900"BT$(T$,1):T$"N"16580,BT$"Y"169006BhB INPUT ROUTINET ")@"CHARACTER POSITIONS TO SEARCH."/@W@"YOU MAY SPECIFY UP TO 5 FLOATING"lA"SELECT CODES."t A:A"SELECT FIRST LAST"A"CODE CHARACTER CHARACTER"AAI15ASC(I)0ASL(I)0ASU(1300'@"FLOATING SELECT CODES ? ";T$:@(T$)016510I@T$(T$,1)R@P20`@T$"N"ıs@T$"Y"16510|@:3@P21@"PLEASE ENTER THE CODES YOU WISH TO"@"FIND WITHIN THE UTILITY FIELD."@@"ALSO SPECIFY THE FIRST AND LASITY";?17000$?P5$T2$:P6$T3$/?21:1=@T3:1300b@"ARE THESE LIMITS CORRECT ?";T$u@(T$)016380@T$(T$,1)$@T$"N"16200.@T$"Y"16380t@ FLOATING SELECT CODES~@:10@"DO YOU WISH TO DEFINE ANY"@@T0:?"VALUES YOU WISH TO INCLUDE IN YOUR"Vf?"SELECTED LIST FOR EACH OF THE FOLLOWING:"bp?11:15}z?"MINIMUM MAXIMUM"?13?"SORT KEY",?17000?P1$T2$:P2$T3$?15?"ZIP CODE",?17000?P3$T2$:P4$T3$?17?"UTIL SELECTIONS ";?T0:1300=?P1ĺ"SELECTION CRITERIA ";E?T$X ?(T$)016100g*?T$(T$,1)4?T$"Y"ĭT$"N"161006?P30:T$"Y"P31>?D(4)1C?P1P3D(4)0E?P319000H?:5R?"PLEASE ENTER THE MINIMUM AND MAXIMUM"&\REVIOUSLY DEFINED SELECTIONS ? ";T$6>(T$)016010E>T$(T$,1)a>T$"Y"ĭT$"N"16010j>P10{>T$"Y"P11>:N(1)1ĺ" SELECT IGNORES YOUR UNMERGED ENTRIES">10>"DO YOU WISH TO DEFINE" ??P1ĺ"CRITERIA FOR ADDITIONAL8' THE ABOVE PREVENTS A CTRL-C WHILE WRITING A RECORD?'RQ'D$;CLOSE$(F)X'F^(}> ENTER SELECTION CRITERIA>:>N(1)1ĺ" SELECT IGNORES YOUR UNMERGED ENTRIES">10>"DO YOU WISH TO RETAIN ALL">>T0:1300#>"P1: COUNT ALL IF NOT RETAINING+'54CL='PSN11:2040T'CP(S$(9))10215t'CP0N2N21: CNT REMOVED'D$;WRITE$(F);R'D(4)1'T$(13)(34)'(34);S$(1);T$;S$(2);T$;S$(3);T$;S$(4);T$;S$(5);T$;S$(6);T$;S$(7);T$;S$(8);T$;S$(9) `'R1N(F)1# j'D$;FETCH$(F);R. t'S199 ~'S$(S)@ 'SL 'N1N11\ 'CP(S$(9))f '3000y 'CL((S$(9))) 'T4:1300 'CL010160 '1300:CP0N2N21: CNT RETAINED 'P1CP0N3N31: CNT NEW ONES IF RETAINING'P1N3N3))3300 J 3800 I4 S9((S9)(1))D S$(9)(S9)J <^ ' SCAN THE FILEd ' $'N10:N20:N30: N2=RETAIN-REMOVED CNT ;N3=NEW SELECT CNT .' 3'22:10 8'"PROCESSING SELECTIONS" L'F25 Q'N(F)110230 V'D$;OPEN$(F) S$(4)P3$3800# P4$N$30757 S$(4)P4$3800H  P5$N$3085\  S$(8)P5$3800m P6$N$3100  S$(8)P6$3800  P203310 FLOATING CODES I15 SC(I)03300 JSL(I)SU(I)(SC$(I))1 SC$(I)(S$(8),J,(SC$(I) X1,Y1) YYB(PSSQ): XXB(PS((YYB)SQ))C X,YI f EVALUATE SELECT STATUSv S9(S$(9)) N$"" P10S9(S9) S$(9)(S9) P1$N$3045 S$(7)P1$3800 P2$N$3055 S$(7)P2$3800 P3$N$30656000 810000 :N3ī18000* <185005 B63000A  TONEP S101370^ T1082r (T(T,T1)01370 2BEEP1,T(T,T1) <BEEP2,T(T,T11) FBEEP PT1 Z  CONVERSION SUBROUTINE Y1YB(OPSQ) X1XB(OP((Y1YB)SQ))  *************************?APPLE II MAILING LIST PKG^ SELECT MODULE .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800 SELECT$20000 .1             nLOCBEEP25"ÁILOCLOC1203?A(I):B(I1):C(I2)PíA0ďA,BCWÂI]7DZy LINK TO CMD PROCESSOR"D$650000@:21:1|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATU 9,80,30,180,9,80,9,60,20,2002 b WRITE STATUSCpbD$;OPEN$(0)UzbD$;WRITE$(0){bN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)","C(3)","C(4)","C(5)bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bPò A/P LOGOZ×:dà5 CITY, ST",20&R "ZIP CODE",930R " ATTN",20G:R " PHONE",12[DR "SORT KEY",10oNR " UTILITY",10U TONE DATAU 9,80,30,180,9,80,9,60,0,0V 20,20,0,0,0,0,0,0,0,0V 10,10,0,0,0,0,0,0,0,0V 50,180,80,100,0,0,0,0,0,0"VTR;SDXXS15310;R&;SRR19;D$;CLOSE$(FL)?;S N VARIABLE INITc*NKEY63500s4ND$;OBJECT$~NT18NC$,CNTNT04NT109NT(T,T1)NT1NTQ:RR " NAME",25R " ADDRESS",25 R ";OPEN$(FL)*;L1:UN(2)N(3)N(4)N(5)4;$;R((LU)2)J);UL15230_.;D$;FETCH$(FL);RlB;SDX,PTR~V;XSSDX15210`;UR1:15140j;XSSDX15230t;LR1:15140~; BACKPEDAL;R115310;RR11;D$;FETCH$(FL);R;SDX,P0:1300(9LC1T1&*9LC114440C+9"PRESS RETURN TO QUIT,"J092q59"OR SELECT A NAME BY NUMBER. ";T$:9(T$)014000N9T(T$)X9T1TLC14620b914440: FILE SEARCH:FL6:X$XS$:1500:XSX1:X$XT$:1500:XTX1 ;D$$J8(T$)014480 T8T(T$)C^8(S$(4)"000000",6)XT$14600Xh8FX(LC(T)1000)mm8RXLC(T)FX1000xr812500|8:12008110008K120:LC(K)0:K8LC0:5:9588SRSR18142619D$;"CLOSE"9LC014140922:2&9T00",6)XT$146008LCLC1+ 8LC(LC)PTR<81:LC10Ė2E8LC;Z84:(S$(1),25);i831:S$(4)w"8T1:1300,8LC151450068D$;CLOSE$(FL):FX0<822:1>8T0:1300@8"PRESS RETURN TO SEE MORE,"E8"OR SELECT A NAME BY NUMBER. ";T$;OPEN$(6)37SRN(2)N(3)N(4)N(5)4SR114600H7D$;FETCH$(6);SRU7SDX,PTRh7FL(PTR1000){7RNPTRFL10007FLFXĺD$;CLOSE$(FL)7FLFXĺD$;OPEN$(FL)7FXFL7D$;FETCH$(FL);RN7S197S$(S)7S7(S$(4)"0000420027 FAILURE MESSAGE%<718:6JF7"N O T H I N G O N F I L E"VP7K115dZ7T2:1300kd7K{f7K1900:Kn714000x7 SELECTION MENU}7LC0:FX07:127T4:13007"ZIP CODE SEARCH"77T1$71500075 7D0R190R$(R)1R,1D$;CLOSE$(FX)21F6 FIND THE ITEML6W618:7v6"(PRESS RETURN TO QUIT.)"614:36T0:13006"PLEASE ENTER A ZIP CODE : ";T$6(T$)0630006XS$(T$"000000",6)6XT$(T$"ZZZZZZ",6)711)"N"11000H+T3:13008R+X1D(2)D(2)1:25100C\+12000Nf+14000_. FILE WRITEq.D$;OPEN$(FX).D$;WRITE$(FX);RX.R19/(34);R$(R)/R/D$;CLOSE$(FX)0/0 FILE READ 0D$;OPEN$(FX)0D$;FETCH$(FX);RX'(T2$,C) )P, * REQUEST VERIFICATION7 *22:1U *"TYPE 'DELETE' INTO THE" +"UTILITY FIELD TO DELETE THIS NAME." +19:25 +"ANY" +25 +T0:1300 +"CHANGES ? ";T$ *+19:868 4+20:868 >+(T$,1)"Y"10070 C+(T$,'C$,C '(P1):(P2)$ '(T1$,C)3 'T1:1300I '(R$(P))010170X 'T2:1300d '(P11){ '(P2): REPOSITION 'J$R$(P):IN$J$ '639,C '63999 '(IN$)0J$(IN$,(IN$)) 'P4ĭR$(P)J$X11 'R$(P)J$ '(P1):(P2) ,S6,D1,A520"*520"STATUS MODULE,S6,D1"@8 ERROR HANDLERMBERRSUBR[LEF(216)tVEL(218)(219)256`EC(222)jEC25563000t63500IÂI 7DZ<050000:22:10:"ALL FILES ARE EMPTY":24:8c:"NOTHING TO SORT & INDEX";:63100 LINK TO CMD PROCESSOR"D$650000@:21:1J1300T25100|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1"  :(4);"BLOAD CHAINRROR HANDLERBERRSUBR'LEF(216)@VEL(218)(219)256N`EC(222)`jEC25563000kt63500q3500TI25563000t63500A(I):B(I1):C(I2),íA0ďA,BC3ÂI97DZU LINK TO CMD PROCESSOR]"D$h650000u@:21:1T25100|:D$;CHAIN$520"COMMAND PROCESSOR,S6,D1" :(4);"BLOAD CHAIN,S6,D1,A520"520"STATUS MODULE,S6,D1" 8 E WRITE STATUSpbD$;OPEN$(0)1zbD$;WRITE$(0)WbN(1)","N(2)","N(3)","N(4)","N(5)}bC(1)","C(2)","C(3)","C(4)","C(5)bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bPò A/P LOGOZ×:dà5nLOCBEEP25ÁILOCLOC12030$$P$ ħĨ()H8i"ȩȩ0 )Ph`h)Ph`Ph`I0,0,0,0,0,0,0,0V 10,10,0,0,0,0,0,0,0,0V 50,180,80,100,0,0,0,0,0,0"V 9,80,30,180,9,80,9,60,20,200 b'܅3I΅ijlkћћiܥLLީeȅȱȱ Ī$$$ Ɉ$$ħ (褧$к PɍXɛu$Ĩɕī(0 )?  @ PɠɢH8$姪h  0 S MODULE,S6,D1"%8 ERROR HANDLER2BERRSUBR@LEF(216)YVEL(218)(219)256g`EC(222)yjEC25563000t63500 DON'T CHANGE 63999 IN ANY WAY(122)256(121)38:$ LL&eŧά΍íҮՠЮύΠōάήʮҮʮύϠɠҮȠȮɍԮħӠŮԠ̬Įβñɍɍ٠΍ĠōԠ΍Πԍά΍íҮͮɍҮĮؠŠčӠԬɍ΍ĭĠ΍Ġōά΍í٠΍Πԍά΍í٠΍ŠōάŠ΍Ġԍά΍ĭ     z#??   ӠŠ ٠Š ĠŠԠŠ !Ů̠"Ů٠ŮűŮؠŮР ԠŠ ؠŠ ĠŠϠ"ŠŠԠŠԠˠԠŠ ŠŠ ԠϠΠĠҠ̠ԠŠ٠ŠS6,D1"!bD$;"WRITE CONTROL,R1"GbS0","S1","S2","S3","S4","S5","S6cbPR","PL","LW","LH","LCwbFL$","CM","CS$cD$;"CLOSE"cPò A/P LOGOZ×:dà2nLOCBEEP25ÁILOCLOC1203A(I):B(I1):C(I2)íA0ďA,BC(1),D(2),D(3),D(4),D(5))bD$;CLOSE$(0)/bB b WRITE STATUSSpbD$;OPEN$(0)ezbD$;WRITE$(0)bN(1)","N(2)","N(3)","N(4)","N(5)bC(1)","C(2)","C(3)","C(4)","C(5)bD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)bD$;"OPEN CONTROL,aPR,PL,LW,LH,LC"aFL$,CM,CS$=aD$"READ CONTROL,R100"HaX07VaOPEN$(X)eaCLOSE$(X)taFETCH$(X)aWRITE$(X)aXaD$;"CLOSE"aD$;OPEN$(0)aD$;FETCH$(0)aN(1),N(2),N(3),N(4),N(5)aC(1),C(2),C(3),C(4),C(5)aDU TONE DATA/U 15,150,10,80,5,100,0,0,0,0JV 5,10,0,0,0,0,0,0,0,0dV 0,0,0,0,0,0,0,0,0,0~V 0,0,0,0,0,0,0,0,0,0"V 0,0,0,0,0,0,0,0,0,0a PICKUP STATUSaD$"OPEN CONTROL,S6,D1,V0"aD$"READ CONTROL,R1"aS0,S1,S2,S3,S4,S5,S6:CM7CS$"ZIPFIND":25100=:D$;"RUN APPLEPOST,S6,D1"X N INITIALIZE VARIABLESn*N(KEY)4663500~4ND$;OBJECT$pNNN(2)N(3)N(4)N(5)4zNSQ1((N))NXB((40SQ)2):YBXBNT04NT109NT(T,T1)NT1NTN: A-F=11;G-L=12;M-R=13;S-Z=14-'X14X146'1XF'PSN1:2040M'R_'D$;CLOSE$(F)f'Fl'z: BAILOUT:50000:CM7CM16S31:CM17CS$"LIST":CM18CS$"ZIPLIST":CM19CS$"LABELS":CM20CS$"PHONELIST"25Q'N(F)110200&V'D$;OPEN$(F)6`'R1N(F)1Jj'D$;FETCH$(F);RUt'S19`~'S$(S)g'Ss'N1N11'X$S$(4)" "'1500'K(N1)X1'P%(N1)F1000R'X(X$)48'X0X0'X9X17X10'X1110164'X(X17)611#0K#PS1N$P#D$;WRITE$(6);PS7Z#K(PS):P%(PS)?_#D$In#2040Qx#PSc#D$;CLOSE$(6)n#D(2)0y#25100'' LOAD THE ARRAY'N1500İ50000$'N10.'::21:68'"ZIP CODE SORT : READING THE FILES"B'K(N),P%(N)L'FUBV:21:64j"ZIP CODE SORT : SORTING PHASE"@t22:23T~"0% COMPLETE"]MF0cw@ SORT FINISHED(# FILE WRITE*#:21:1,#"ZIP CODE SORT : WRITING THE INDEX FILE".#00#PS0:20402#D(2)1:25100<#D$;OPEN$(6)F)P%(0) OP0:PS1:2000% 88000- JL; IJ:JJ2X d2(JU)6600,6700,7000o K(J)K(J1)JJ1 ,K(0)K(J)7000 K(I)K(J):P%(I)P%(J) OPJ:PSI:2000 6400 XK(I)K(0):P%(I)P%(0) bOP0:PSI:2000 5300L MSG S0 LL1% |K(0)K(L):P%(0)P%(L)9 OPL:PS0:2000C 6300] DK(0)K(U):P%(0)P%(U)q NOPU:PS0:2000 K(U)K(1):P%(U)P%(1) OP1:PSU:2000 MFİ7500 22:22 (((NU)N)100);"% "; UU1 pU16300 K(1)K(0):P%(1B(OPSQ)' X1XB(OP((Y1YB)SQ))4 X1,Y1)F YYB(PSSQ)T N1500ıo XXB(PS((YYB)SQ))x X,Y~   HEAPSORT :21:5 "ZIP CODE SORT : PRESORT PHASE" MF1  FROM KNUTH (VOL3) PL(N2)1:UN L1570 X$X$"000000" X10:X30+ X167 X3X31L X2((X$,X3,1))\ X2321532o X264X2X27| X2X247 X20X236X20 X1X1X236(6X) "X ,X1(((X1)10000)) 6  CONVERSION SUBROUTINE N1500ı Y1Y000) N(1)N(2)N(3)N(4)N(5)562000: N(1)11040E 22:1u "NEW ENTRIES MUST BE MERGED INTO THE FILE"} 10 ". . . ONE MOMENT PLEASE" D$;CHAIN$ 520"MERGE MODULE,S6,D1" 10000 85000 B15000  CONVERT ZIP CODE  *************************?APPLE II MAILING LIST PKG^ ZIPSORT MODULE .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************d63800 SETUP PARAMETERS 20     130E 6CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$ @CH639:1000:B$B$(C):CH:1:868:B$:D$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P): D(16384):K128āK175:K:K(0):130I 16368,0:KK176:K1K5300] 1:868:K5Ā "PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": B$;:198::K$:K(K$)48 ,K17KT163d::D$(4):D$"CATALOG":B(37)2:B22B22}nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCVxCV:24:A$"TYPE LETTER TO RUN,OR LOAD=1,LOCK=2,UNLOCK=3,DELETE=4,EXIT=5..."& B$"RUN":1:(A$,39);:A$(A$,2)(A$,1):K  OGO JUST B4 CHAIN4|:D$;"BLOAD CHAIN,S6,D1,A520"V520"COMMAND PROCESSOR,S6,D1"\"E OR MORE OF THE DISKS NOW ON THE"+$:2Q."SYSTEM CANNOT BE READ. DO YOU "\835100kPò A/P LOGOsZ×:zdà9ÁIPIXPIX1203A(I):B(I1):C(I2)íA0ďA,BCÂI7DZ LINK TO CMD PROCESSORJS3İ50000: LORES L PRESS RETURN. ";T$䉫30000.H::10:2YR"PLEASE REMOVE THE WRITE-PROTECT TAB"_\f"FROM THE DISKETTE(S). THEN PRESS RETURN";p"";T$z30000 LINK TO NEWLISTD$;CHAIN$520"NEWLIST MODULE,S6,D1"::8:2""ONON THE SYSTEM. DO YOU"!:2L&"WISH TO CHANGE TO ANOTHER LIST? ";T$R0a:T$(T$,1)sDT$"Y"35500NT$"N"35040X:10:2b"PLEASE INSERT THE DISK(S) WITH "l:2v"THE ";FL$;" LIST INTO THE SYSTEM.":2"THENvuIu216,0u0 FILE SEARCH BOMBS=ERRSUBRKˆET(222)YֈET255iji؈ET435400zڈET635600::8刖2ꈺ"ONE OR MORE OF THE REQUIRED DATA":2"FILES FOR THE ";FL$;" LIST IS NOT":2"CURRENTLY L","LW","LH","LC$>bFL$","CM","CS$4HbD$;"CLOSE":RbS0u TEST FOR FL$ FILES_:u35000~?uD$;"UNLOCK CONTROL,S6,D1"DuI05IuIĭN(I)130070NuT$(OPEN$(I),5,80)SuJ0XuIJ5buT$(T$,1,(T$)J)luT$"UNLOCK "T$quD$;T$aD$;FETCH$(0)/aN(1),N(2),N(3),N(4),N(5)MaC(1),C(2),C(3),C(4),C(5)kaD(1),D(2),D(3),D(4),D(5)}bD$;CLOSE$(0)b b WRITE STATUSbD$;"OPEN CONTROL,S6,D1" bD$;"WRITE CONTROL,R1"*bS0","S1","S2","S3","S4","S5","S64bPR","PTROL,S6,D1,V0"'aD$"READ CONTROL,R1"AaS0,S1,S2,S3,S4,S5,S6UaPR,PL,LW,LH,LCeaFL$,CM,CS$aD$"READ CONTROL,R100"aX07aOPEN$(X)aCLOSE$(X)aFETCH$(X)aWRITE$(X)aXaD$;"CLOSE"aa30000aD$;OPEN$(0)EEP1,T(T,T1)# RBEEP2,T(T,T11)- \BEEP5 fT1< pTB zP  FANFARE[ L01f I09r T(L,I){ I,L   30,86,30,86,30,86,80,65,40,78  200,65,0,0,0,0,0,0,0,0 (# TEST FOR FL$ FILES a PICKUP STATUSaD$"OPEN CON APPLE COMPUTER INC " 9= "THE SOFTWARE WORKS INC"I I139[ T1$T1$(34)k T2$T2$" "r &I} 025062 lS3CM0 vXS3:S30 25100 S3X 63000  TONE "900 %T01 4T1082 >T(T,T1)0890 HBMUST 'DELETE LOGO' AND THEN PUT APPLESOFT ON THE APPLE POST DISKETTE ********************** JD$;"BLOAD LOGO";HD$ T800 ^16297,0 h16300,0 r16301,0 |16304,0  21:9 "(C) COPYRIGHT 1979 BY" 8 "CHAIN$"BLOAD CHAIN,A520"HD$3 D$;"NOMON C,I,O"X ,OBJECT$"BLOAD OBJECT BLOCK"HD$h 6D$;OBJECT$ @25000: READ CONTROL 4 S3 ES3İ50000:500: NO LOGO H(2)48İ800:50000:380j I********************** TO USE RAM APPLESOFT YOU  nR$(10),S$(10),N(5),D(5)< xBF$(5),LB$(5),C(5),T(4,9)T SR(5),LC(20),RP(5)l OPEN$(7),CLOSE$(7) FETCH$(7),WRITE$(7) VARIABLE INIT BEEP770 PIXBEEP25 ERRSUBRBEEP150 KEY46.0633863 HD$",S6,D1" D$(4) ]  *************************?APPLE II MAILING LIST PKGZ A P P L E P O S Tz# (BOOTSTRAP) .( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<************************* d::216,0      膢 ȱ " <67 L  8ij v vo>? "MERGE","MERGE",-12H? "SOUNDEX","SOUNDEX",-4R? "ZIPSORT","ZIPSORT",-5@B " ","NOP",0JB " ","NOP",0TB "QUIT","NOP",0^B "END","END",0N  N VARIT","UTILITY",11&> "EDIT","EDIT",14A> "LABELS","OUTPUT",19[> "STATUS","STATUS",8t> "PURGE","PURGE",16> "LIST","OUTPUT",17> "UPDATE","SOUNDEX",6? "FIND","FIND",10 ? "PHONELIST","OUTPUT",20? "MUTE","UTILITY",2 ? "ZI$" "6C014085%6CH(36)86CH1Ĺ36,CH2A7C$,L7C(C)W 714060]7c7n> DATA> "EXPLAIN","NOP",0> "SELECT","SELECT",15> "NEWLIST","NEWLIST",9> "ENTER","ENTRY",3> "PRINTER","UTILITY",13> "FORMA";CS$;" COMMAND."::1153016 DISPLAY COMMANDS76?6:H6(4)Y6FL$;" LIST"b6(7)~6"VALID COMMANDS ARE :"66C$,C1$,C6C$"END"140956C3D(5)1C$" "6N(1)N(2)N(3)N(4)N(5)614075 6C6C7C13C10CRE FULL":U,"NO NEW ENTRIES MAY BE ADDED"::"UNTIL SYSTEM CAPACITY IS INCREASED"[,}-"BY DOING A MERGE COMMAND": -"PLEASE PRESS RETURN";T$:10020P-:7:"ALL FILES ARE EMPTY":Z-"YOU SHOULD ENTER YOUR DATA":d-"BEFORE USING THE 520"UTILITY MODULE,S6,D1"68,520"EDIT MODULE,S6,D1"TB,520"SELECT MODULE,S6,D1"qL,520"PURGE MODULE,S6,D1"V,520"OUTPUT MODULE,S6,D1"`,520"OUTPUT MODULE,S6,D1"j,520"OUTPUT MODULE,S6,D1"t,520"OUTPUT MODULE,S6,D1" ,:7:"ALL FILES ALE,S6,D1"(+520"ZIPSORT MODULE,S6,D1"G+520"SOUNDEX MODULE,S6,D1"f+520"ZIPFIND MODULE,S6,D1"+520"STATUS MODULE,S6,D1",520"NEWLIST MODULE,S6,D1",520"FIND MODULE,S6,D1",520"UTILITY MODULE,S6,D1"$,520"MERGE MODULE,S6,D1".,,11210,11220,11230,11240,11250,11255,11260,11270,11280,11290,11300,11310,11320,11330,11340,11350,11360,11370,11380,11390 p+"FATAL COMMAND": +520"UTILITY MODULE,S6,D1" +520"UTILITY MODULE,S6,D1" +520"ENTRY MODULE,S6,D1" +520"SOUNDEX MODU0000 %+CS$"QUIT"350001 *+CM3D(5)111500W 4+N(1)N(2)N(3)N(4)N(5)511066} 5+CM6CM7CM0CM13CM1011600 :+CP$CP$" MODULE" >+50000 @+X15((CP$)2) C+22:(X) H+"LOADING THE "CP$ R+CM(CM) \+D$;CHAIN$x f+CM11200(10120 )CS$" IS NOT VALID"% )4 )T1:1300i )K10āI1600:I:10020: 1ST CHR NEVER MATCHED ")"DO YOU MEAN ";CD$; ,)"? ";T$ 6)(T$,1)"Y"11000 @)CM0 J)10020 *CMC1 +CS$CD$ +CP$C1$ +T3:1300 +CS$"EXPLAIN"3(CS$)010560 t' BEST MATCH$ ~'. 'K10= 'C$,CP$,CMQ 'C$"END"10500c 'C$CS$11030s 'I1(CS$) '(C$,I,1)(CS$,I,1)10200 'I 'IK110120: USE FIRST MATCH OF N 'I110120 'K1I 'CD$C$ 'C1$CP$ (C1CM 00  TONE S101370+ T1082? (T(T,T1)01370S 2BEEP1,T(T,T1)i <BEEP2,T(T,T11)s FBEEP{ PT1 Z ' BEGIN '20000 $'S310085 )'14000 .' 8' B'"COMMAND:"; L'T2:1300 V'" ";CS$ `' e'S30 j'  *************************?APPLE II MAILING LIST PKG^ COMMAND PROCESSOR .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************A63000PZKEY63500 100          جӶı̰ŠŮ؍ĠŮجҍŠŮجҍĮЬҍĮЬҍĮجӶIJְ̱Į؍ĮجҍĮجҍŮųĠŮųҍŠŮųҍΠŮŴӴı̱ŠŮŴĠŮŴҍŠŮŴҍΠŮЬӶı̰ŠŮЍĠŮЬҍŠŮЬҍΠŮŬҍŠŮ٬ҍΠŮűӶı̱ŠŮűĠŮűҍŠŮűҍΠŮŲӵı̱ŠŮŲĠŮŲҍŠŮŲҍΠŮųӵı̱ŠŬԍҍΠŮ̬ӶıŠŮ̍ĠŮ̬ҍŠŮ̬ҍΠŮ٬Ӷı̱ŠŮٍĠŮ   R " NAME",25(R " ADDRESS",25<R "CITY, ST",20O&R "ZIP CODE",9c0R " ATTN",20w:R " PHONE",12DR "SORT KEY",10NR " UTILITY",10U TONE DATAU 9,80,30,180,9,80,9,60,0,0V 20,20,0,0,0,0,0,0,0,0 V 10,10,0,0,0;S19;S$(S);S2;S$(7)R$(7)153109;RH;SR(FL)R1[;D$;CLOSE$(FL)c;FLi>} N VARIABLE INIT*N(KEY)46635004ND$;OBJECT$NT18NC$,CNTNT04NT109NT(T,T1)NT1NTQ:R5320;D$;OPEN$(FL)(;L1:UN(FL)19$;R((LU)2)H);UL15320].;D$;FETCH$(FL);Rh8;S19sB;S$(S)zL;SV;R$(7)S$(7)15210`;UR1:15140j;R$(7)S$(7)15230t;LR1:15140~; BACKPEDAL;RR11;D$;FETCH$(FL);R 922:2!9T0:1300%&9LC1T15(9LC114680S+9"PRESS RETURN TO QUIT, "Z09259"OR SELECT A NAME BY NUMBER. ";T$:9(T$)014000N9T(T$)X9T1TLC14620b914440: COLLISION DETECTOR:FL15:SR(FL)0;N(FL)11";T$J8(T$)014480#T8T(T$)7^8T1TLC14390Lh8FX(LC(T)1000)am8RXLC(T)FX1000lr812500x|8:12008110008K120:LC(K)0:K8LC0:5:9588SR(FL)SR(FL)18SR(FL)N(FL)146008142909D$;CLOSE$(FL)9FL 7S197S$(S)7S!7D$97S$(7)R$(7)14600E8LCLC1_ 8LC(LC)1000FLSR(FL)p82:LC10Ė3y8LC;88:S$(1)"8T1:1300,8LC15145006822:1;8T0:1300@8"PRESS RETURN TO SEE MORE":" OR SELECT A NAME BY NUMBER. O N F I L E"P7K115(Z7T2:1300/d7K?f7K1900:KJn714000_x7 SELECTION MENUh}7LC07:(29((R$(7))))27"SORT KEY = ";R$(7)77T1$757FL157SR(FL)0146107D$;OPEN$(FL)7D$;FETCH$(FL);SR(FL)TO"618:7,6"(PRESS RETURN TO QUIT)"7614:7I6"EDIT : ";T$\6(T$)063000o7R$(7)(T$,10)z 718:77"* S E A R C H I N G *"7T4:1300(71500027SR(1)SR(2)SR(3)SR(4)SR(5)014200<718:6F7"N O T H I N G /D$;CLOSE$(FX)0/)0 FILE READ ;0D$;OPEN$(FX)Q0D$;FETCH$(FX);RX\0R19g0R$(R)n1R1D$;CLOSE$(FX)16 FIND THE ITEM6610:76T0:13006"PLEASE TYPE THE SORT KEY"6:76"FOR THE NAME YOU WISH 70 C+(T$,1)"N"11000) H+T3:1300D R+VD(2)D(2)1:25100O \+12000Z f+14000k . FILE WRITE} .D$;OPEN$(FX) .D$;WRITE$(FX);RX .T$(13)(34) /(34);R$(1);T$;R$(2);T$;R$(3);T$;R$(4);T$;R$(5);T$;R$(6);T$;R$(7);T$;R$(8);T$;R$(9)(P1):(P2) '(T2$,C) )P: * REQUEST VERIFICATIONE *22:1c *"TYPE 'DELETE' INTO THE" +"UTILITY FIELD TO DELETE THIS ITEM" +19:25 +"ANY" +25 +T0:1300 +"CHANGES ? ";T$ *+19:868 4+20:868 >+(T$,1)"Y"100 '(P1):(P2)$ 'H1P2:H2P2C12 '(T1$,C)A 'T1:1300W '(R$(P))010170f 'T2:1300r '(P11) '(P2): REPOSITION 'J$R$(P):IN$J$ '639,C '63999 '(IN$)0J$(IN$,(IN$)) 'P4ĭR$(P)J$V1 'R$(P)J$ ')01370 2BEEP1,T(T,T1)2 <BEEP2,T(T,T11)< FBEEPD PT1J ZZ ' PAGE EDIT` $'f .'u 8'(1):(12) B'"NAME & ADDRESS EDIT" L'T4$ V'1200 t' ~'V0: TEMP DIRTY FLAG 'P18 'P13P2 'P211 'P710500 'C$,C ROUTINES BEGIN AT 10005 x OTHERS AT 20000. MAINL PROGRAM AT 14000R ] 20000h 14000  PAINT ENTRY FORMAT  (4) P18 C$,C C$;": ";R$(P)  P   TONE S101370 T1082 (T(T,T1B  *************************?APPLE II MAILING LIST PKG^ E D I T M O D U L E .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800d SPEED SENSITIVE SUB- n          )L;S V;R$(7)S$(7)152101`;UR1:15140Hj;R$(7)S$(7)15230Yt;LR1:15140i~; BACKPEDALw;RR11;D$;FETCH$(FL);R;S19;S$(S);S;S$(7)R$(7)15310;R;SR(FL)R1;D$;CLOSE$(FL);FL>  N VACHAIN$#(3520"MERGE MODULE,S6,D1".,3R19;63R$(R)""B@3RMJ310020f: COLLISION DETECTORr:FL15:SR(FL)0;N(FL)115320;D$;OPEN$(FL);L1:UN(FL)1$;R((LU)2));UL15320.;D$;FETCH$(FL);R8;S19B;S$(S7);T$;S$(8);T$;S$(9)N/R12D$;WRITE$(1);R1D2T$(13)(34)2(34);R$(1);T$;R$(2);T$;R$(3);T$;R$(4);T$;R$(5);T$;R$(6);T$;R$(7);T$;R$(8);T$;R$(9)2D$;CLOSE$(1)2N(1)N(1)13D(1)1:D(2)1325200"3N(1)C(1)13100#3%3D$; MERGE INTO ENTRY FILE(.D$;OPEN$(1);.RN(1)101J.R013000^.D$;FETCH$(1);Ri/S19t/S$(S){/S&/S$(7)R$(7)130000/D$;WRITE$(1);R1:/T$(13)(34)D/(34);S$(1);T$;S$(2);T$;S$(3);T$;S$(4);T$;S$(5);T$;S$(6);T$;S$(.FL .23:10(."HIT RETURN : ";T$H. REPAINT SCREEN AND RETURNN".X,.1200d6.20:22r;.T4:1300@."DO YOU STILL"J.22T."WISH TO ENTER"^.22h."THIS NAME ? ";T$r.(T$,1)"Y"12000|.(T$,1)"N"13100.11830.4)--SR(FL)SR(FL)1(-LCLC18-LC611760C-20:1n-"HIT RETURN TO SEE ADDITIONAL NAMES,"-"TYPE QUIT TO RETURN TO ENTRY SCREEN ";T$-(T$)011750-(T$,1)"Q"11700-11800-LC0:-11535-D$;CLOSE$(FL)000+(T$,1)"Y"11140$,LC0*,6,FL15I-N(FL)111770]-SR(FL)011770o -D$;OPEN$(FL)-SR(FL)N(FL)11770-D$;FETCH$(FL),SR(FL)-S19(-S$(S)2-S<-S$(7)R$(7)11770F-D$P-1:S$(1)-S$(2);" ";S$(T3:1300M+D$;"NOMON I"&R+1500=\+R$(7)"AAA"12000Hf+15000sz+SR(1)SR(2)SR(3)SR(4)SR(5)012000~+21:1+"THERE ARE OTHER NAMES WITH THIS SORT KEY"+23:8+T4:1300+"DO YOU WISH TO SEE THEM ? ";T$+(T$,1)"N"12((R$(1),Q,1)" "10248!(Q;(R$(7)(R$(1),Q1,10)A (H)Pc* REQUEST VERIFICATIONs+(20):(25)~+"ANY" +(25)+T0:1300 +"CHANGES ? ";T$*+(20):8684+(21):868>+(T$,1)"Y"10070C+(T$,1)"N"11000 H+TH 'IN$R$(P):J$IN$# '63999B '(IN$)0J$(IN$,(IN$))Z '(J$,1)" "10204i 'J$(J$,2)t '10188 'P1J$""ĺ:D$;"NOMON I":63000 'R$(P)J$ '(P1):(P2) '(T2$,C) 'P110250 '(R$(7))10250 (Q(R$(1))11 .' 8'(1):(12)- B'"N E W E N T R Y"6 L'T4$@ V'1200F t'Q 'P18_ 'P13P2j 'P211t 'C$,C '(P1):(P2) '(T1$,C) 'T1:1300 '(R$(P))010170 'T2:1300 '(P11) '(P2): REPOSITION '639,C: PASS LENG ,Q$(T$,1) 6SX2(T$)7 @(T$,SX,1)"0"1650Y J(T$,SX,1)(T$,SX1,1)1650n TQ$Q$(T$,SX,1)v rSX |Q$((((Q$"0000",4)))1) R$(9)(Q$,4) ((R$(9)))0R$(9)"0001"  ' MAIN PROGRAM '20000 $':D$;"MON I"2BEEP1,T(T,T1)' <BEEP2,T(T,T11)1 FBEEP9 PT1? ZM  SOUNDEXr Q$"001230120022455012623010202"| T$"" (R$(7))0R$(7)"AAA" SX1(R$(7)) V((R$(7),SX,1)) V64V64 V90V64 T$T$(Q$,V63,1) "SX ROUTINES BEGIN AT 10005 x OTHERS AT 20000. MAINL PROGRAM AT 10000R ] 10000v  PAINT ENTRY FORMAT|  (4) P18 C$,C C$;": ";R$(P)  P   TONE S101370 T1082 (T(T,T1)01370   *************************?APPLE II MAILING LIST PKG^ E N T R Y M O D U L E{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800d SPEED SENSITIVE SUB- n     TECTOR:XS(R$(9)):FL7(:SR0:;D$;OPEN$(FL)Z;L1:UN(2)N(3)N(4)N(5)4k$;R((LU)2)z);UL15320.;D$;FETCH$(FL);RB;SDX,PTRV;XSSDX15210`;UR1:15140j;XSSDX15230t;LR1:15140~; BACKPEDAL;RR18SRSR18SRN14262+9D$;CLOSE$(7)6922:2D9T0:1300S 9LC1TLCc&9LC114440+9"PRESS RETURN TO QUIT, "09259"OR SELECT A NAME BY NUMBER. ";T$:9(T$)014000N9T(T$)X9T1TLC14620b914440: COLLISION DE:1;8T0:1300T@8"PRESS RETURN TO SEE MORE":" OR SELECT A NAME BY NUMBER";T$gJ8(T$)014480sT8T(T$)^8T1TLC14390h8FX(LC(T)1000)m8RXLC(T)FX1000r812500|8:12008110008K120:LC(K)0:K8LC0:5:958(PTR1000)7RNPTRFL1000/7D$;OPEN$(FL)E7D$;FETCH$(FL);RNP7S19[7S$(S)b7Su7D$;CLOSE$(FL)7((S$(9)))(R$(9))146008LCLC1 8LC(LC)PTR82:LC10Ė38LC;88:S$(1)"8T1:1300,8LC15145006822F7"N O T H I N G O N F I L E".P7K115<Z7T2:1300Cd7KSf7K1900:K^n714000sx7 SELECTION MENU|}7LC07:(29((R$(7))))27"PHONETIC = ";R$(7)77T1$757D$;OPEN$(7)7D$;FETCH$(7);SR7SDX,PTR 7FL6:7'6"FOR THE NAME YOU WISH TO"2618:7Q6"(PRESS RETURN TO QUIT.)"\614:7n6"EDIT : ";T$6(T$)0630007R$(7)(T$,10)71500 718:77"* S E A R C H I N G *"7T4:1300(71500027SR014200<718:6"T$;R$(6);T$;R$(7);T$;R$(8);T$;R$(9)6/D$;CLOSE$(FX)<0/M0 FILE READ _0D$;OPEN$(FX)u0D$;FETCH$(FX);RX0R190R$(R)1R1D$;CLOSE$(FX)16 FIND THE ITEM6610:76T0:13006"PLEASE TYPE THE SORT KEY"868>+(T$,1)"Y"100704C+(T$,1)"N"11000CH+T3:1300^M+VD(2)D(2)1:25100hR+1500s\+12000~f+14000. FILE WRITE.D$;OPEN$(FX).D$;WRITE$(FX);RX.T$(13)(34)#/(34);R$(1);T$;R$(2);T$;R$(3);T$;R$(4);T$;R$(5);$V1'R$(P)J$#'(P1):(P2)1'(T2$,C)8)PS* REQUEST VERIFICATION^*22:1|*"TYPE 'DELETE' INTO THE"+"UTILITY FIELD TO DELETE THIS NAME."+19:25+"ANY" +25+T0:1300 +"CHANGES ? ";T$*+19:8684+20:'P13P2 'P211$ 'P710500. 'C$,C> '(P1):(P2)L '(T1$,C)[ 'T1:1300q '(R$(P))010170 'T2:1300 '(P11) '(P2): REPOSITION 'J$R$(P):IN$J$ '639,C '63999 '(IN$)0J$(IN$,(IN$))'P4ĭR$(P)JQ$(T$,SX,1) rSX7 |Q$((((Q$"0000",4)))1)I R$(9)(Q$,4)i ((R$(9)))0R$(9)"0001"o  ' PAGE EDIT $' .' 8'(1):(12) ='1900 B'"NAME & ADDRESS EDIT" L'T4$ V'1200 t' ~'V0: TEMP DIRTY FLG 'P18 22455012623010202" T$""8 (R$(7))0R$(7)"AAA"K SX1(R$(7))b V((R$(7),SX,1))q V64V64 V90V64 T$T$(Q$,V63,1) "SX ,Q$(T$,1) 6SX2(T$) @(T$,SX,1)"0"1650 J(T$,SX,1)(T$,SX1,1)1650 TQ$ PAINT ENTRY FORMAT % (4)0 P18: C$,CM C$;": ";R$(P)S Z P` l  TONE{ S101370 T1082 (T(T,T1)01370 2BEEP1,T(T,T1) <BEEP2,T(T,T11) FBEEP PT1 Z  SOUNDEX Q$"0012301200 ROUTINES BEGIN AT 10005 x OTHERS AT 20000. MAINL PROGRAM AT 14000W 20000n D(1)0N(1)1200y 22:1 50000 "ONE MOMENT PLEASE . . ." "THE INDEX MUST BE UPDATED" D$;CHAIN$ 520"SOUNDEX MODULE,S6,D1" 14000   *************************?APPLE II MAILING LIST PKG^ F I N D M O D U L E .{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800d SPEED SENSITIVE SUB- n          `{{~uw/ `U*U*U*U*U*U*u `*} `+U*U*U*U*Uj<8<Z `A8p`A8p`A `+U*U*U*U*U*u  ` `/U*U*U*U*U*Uj<  `?U*U*U*U*U*Uj `AA}aA=Co  `+U*U*U*U*U*uZ~Rr ` @/UjW~*U~ @U*U*U*U*u @_*U*U*U*U*U*}BBBBB @/}W~ O@{{~ww| @U*U*U*U*U*U*u @*} @*U*U*U*U*UjDZ @ @ @ @+U*U*U*U*U*u  @ @/U*U*U*U*U*Uz   @?U*U*U*U*U*U* @===}}==}o  @+U*U*U*U*U*UZBJ @ @Wz @U*U*U*U*U @_*U*U*U*U*U*$BBBBB @/uWz V@{{~ww? @U*U*U*U*U*U*U @+u @*U*U*U*U*U*BDBf  @+U*U*U*U*U*u  @ @/U*U*U*U*U*U~B   @?U*U*U*U*U*U*u @[==}}===o  @+U*U*U*U*U*Uf$FB @ @Wz @?U*U*U*U*U @_*U*U*U*U*U*>>~><<| @+uUz @{{~ww? @?U*U*U*U*U*U*U @x~+Uw @_*U*U*U*U*U*<D<|~B  @+U*U*U*U*U*u  @ @/U*U*U*U*U*U~8<|  @?U*U*U*U*U*U*U @gAA}ACC  @/U*U*U*U*U*UB88B< @           NTINUE ? ";";"";T$:T$(T$,1)4;T$"Y"15339G;T$"N"15306_;15600: FULL UP ITq;50000:21:8;"INITIALIZING THE "W$(D(3)1)" DISK";D$;"INIT";NF$;DI$(D)+520"SOUNDEX MODULE,S6,D1"H+520"ZIPSORT MODULE,S6,D1": NEW DISK INITIALIZER:D(3)615600:::^)N(F)N(1)N(F)1-h)D(1)1:D(2)1:N(1)1Or) SET CAPACITY OF ENTRY FILESZ|)C(1)0e)F25)C(1)(C(F)N(F))C(1)C(F)N(F))F)C(1)25C(1)25)25100)C(1)015000* BAILOUT +CM363000+50000+D$;CHAIN$5 +(1)1(EFİ9100!(MFİ90009(S$(7)R$(7)10520C(9200S(MFMFMF1a)MFİ9000l)10550v)9300")EFEFEF1,)EFİ91006)LOCLOCLOC1@)LOCMF10470B)4:PSLOC1D)LOC0İ550J)D$;CLOSE$(1)T)D$;CLOSE$(F)(N(1)110300 (PS0N(1)2'(120(5508((PSJ2(N(F)110400`<(PS0N(F)N(1)3gF(4zP(PSN(F)1Ġ0Z(YBYCd(550n(PS( MERGE(S$(7)"":R$(7)""(D$;OPEN$(1)(D$;OPEN$(F)(LOCN(F)N(1)2(MFN(F)1:EFNTRIES"&B'12::"DO NOT INTERRUPT":<t' FIND FILE SPACEG~'F25d'C(F)N(F)N(1)210200k'Fv'15000' PLOT THE SCREEN'SQ((N(F)N(1)))'SQ10SQ10'SQSQE(SQ)'XB(39SQ)2:YCXB5'N(1)010300(YBYC32);T$;R$(3);T$;R$(4);T$;R$(5);T$;R$(6);T$;R$(7);T$;R$(8);T$;R$(9)I |$D$W $YBYC:ECi $PSLOC1:550v $R$(7)"" $T1:1300 $ ' BEGIN MAIN PROGRAM '20000 'N(1)N(2)N(3)N(4)N(5)562000 $': .'22:88'"MERGING THE NEW EN(34)_ $(34);S$(1);T$;S$(2);T$;S$(3);T$;S$(4);T$;S$(5);T$;S$(6);T$;S$(7);T$;S$(8);T$;S$(9)g $D$u ,$YBYC:MC 6$PSLOC1:550 @$S$(7)"" J$T2:1300 O$ T$ WRITE NEW RECORD ^$D$;WRITE$(F);LOC h$T$(13)(34)A r$(34);R$(1);T$;R$(x#PSMF1:0:550 #T3:1300% #< # READ ENTRY FILEQ #D$;FETCH$(1);EF\ #I19g #R$(I)n #Iv #D$ #YBYC3:OPEF1:500 #ECX1,Y1) #PSEF1:0:550 #T4:1300 # # WRITE OLD RECORD #D$;WRITE$(F);LOC $T$(13)X,Y D  TONE$ S1013702 T1082F (T(T,T1)01370Z 2BEEP1,T(T,T1)p <BEEP2,T(T,T11)z FBEEP P Z (# READ MAIN FILE 2#D$;FETCH$(F);MF <#I19 F#S$(I) P#I Z#D$ d#YBYC:OPMF1:500 n#MCX1,Y1) ROUTINES BEGIN AT 10005 x OTHERS AT 20000. MAINL PROGRAM AT 10000R j E(X)(X2(X2))u 10000  POSITION PLOT Y1YB(OPSQ) X1XB(OP((Y1YB)SQ))  &YYB(PSSQ) 0XXB(PS((YYB)SQ)) 5PS0580 :  *************************?APPLE II MAILING LIST PKG^ M E R G E M O D U L E{( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800d SPEED SENSITIVE SUB- n          L$;".ENTRY"";R$;FL$;".ENTRY,R"9;W$;FL$;".ENTRY,R"D;I03Z;F$".FILE"(I1)n;S6(I0)(I2);D1((I2)I2);O$;FL$;F$;",S";S;",D";D;",L155";C$;FL$;F$0T1:1300H0"PRESS RETURN. ";T$R0103002: NEW DISK INIT::10:3:"PLEASE LABEL A BLANK DISK THUSLY: "::15IS NOT" S/:X/"ON THE DISKETTE IN DRIVE 2 (SLOT 6). "@]/jb/"PLEASE CHECK THAT THE PROPER DISK "pg/~i/T1:1300l/"HAS BEEN INSERTED, THEN PRESS RETURN"n/p/"(OR PRESS ESCAPE TO QUIT)";r/T$:v/T$(27)63000/10300 / INSERTED AND THAT THE"-/+//T1:1300R0/"DOOR TO THE DRIVE IS CLOSED. "X2/q4/"THEN PRESS RETURN"w5/6/"(OR PRESS ESCAPE TO QUIT)";8/T$:9/T$(27)63000:/10300D/ET612200I/:10N/"THE FILE NAMED ";FL$;".CTRL .ET(222).ET25563000M/ET2ET3ET5ET7ET8ET1312100V/:6/"THE SYSTEM IS UNABLE TO READ THE DISK"/!/"IN DRIVE NUMBER TWO (SLOT 6). PLEASE"#/&/"RE-CHECK THAT THE CORRECT DISK HAS"(/+/"BEEN PROPERLY! ("(OR PRESS ESCAPE TO QUIT)";/ (T0:1300= (T1:1300K (T2:1300W ((20:20a 2(T$:u 7(T$(27)63000 <( TRY TO FIND THE .CTRL FILE F(12000 P(D$;"UNLOCK";FL$;".CTRL,S6,D2" Z(30000 d( . LOCAL ERROR HANDLER .ERRSUBR D BEFORE : ";T$ 'T$(T$,1)0 'T$"Y"10200B 'T$"N"15000M '10100i ' LOAD FILE I/O STRINGSw ':10:10 '"INSERT THE DISK(S) WITH" ':13(FL$)2 '"THE ";FL$;" LIST INTO THE" ':10 ("SYSTEM, THEN PRESS RETURN" (:10OGRAM '3000 $'2000. .'(FL$)13100608 8'3100F :'T1:1300Q B'10020a L'T$(FL$,1){ V'T$"@"T$"Z"10100 `'3200 b'T1:1300 j'10020 t':12 y'20(7(FL$)2) ~'"HAS THE ";FL$;" LIST" 'T2:1300 ':10 '"BEEN USEHAT IS THE NAME OF" :122 "THE NEW LIST?"8 E  :8:10a & "PLEASE SELECT A NAME"j 0 :8 : "WITH 12 OR FEWER LETTERS." D :8:8 "THE FIRST CHARACTER MUST" :8 "BE A LETTER FROM A TO Z."  ' BEGIN MAIN PR  TONE S101370) T1082= (T(T,T1)01370Q 2BEEP1,T(T,T1)g <BEEP2,T(T,T11)q FBEEPy PT1 Z  INPUT NAME 14:13 (T1$,12) 13:13 T0:1300 "";FL$ (FL$)063000  :8:10 "W"  *************************?APPLE II MAILING LIST PKG^ NEWLIST MODULE .y( COPYRIGHT (C) 1979- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800d20000n10000 x63000     0 L`     " """" "" "" ""hhߚHH`\ۄe\ۄe_{ L&bN(1)","N(2)","N(3)","N(4)","N(5)LbC(1)","C(2)","C(3)","C(4)","C(5)rbD(1)","D(2)","D(3)","D(4)","D(5)bD$;CLOSE$(0)b LIST COMMANDSˆ2500̈LK0NC1N(1)N(2)N(3)N(4)N(5)5&CM1610000,11500,0,10000(SELİ 23,24,17,27,28,17+ Z 20,20,18,25,26,18CZ 20,20,18,21,30,19[Z 23,24,21,27,28,21s(Z 23,28,22,21,30,232Z 21,28,25,21,28,26 NTF N:e NNN(1)N(2)N(3)N(4)N(5)t NSQ((N)) NSQ10SQ10 NXB(40SQ)2:YBXB N U TONE DATA U 30,100,0,0,0,0,0,0,0,0 V 30,100,30,100,0,0,0,0,0,0V 30,100,30,;T$;S$(5);T$;S$(6);T$;S$(7);T$;S$(8);T$;S$(9)4 'RF 'D$;CLOSE$(F)M 'FS (i * RESET FULL FLAGt *C(1)0 +F25 +C(F)N(F)C(1)C(1)C(F)N(F) +F +C(1)25C(1)25 *+C(1)0D(5)0 4+ N VARIABLE INIT *NKEY63500 4NF)1 j'D$;FETCH$(F);R# t'S19. ~'S$(S)5 'SU '(S$(8),6)"DELETE"10170a 'DRDR1q 'N(F)N(F)1 'D(1)1:D(2)1 '10215 'PSN1:2040 'N1N11 'D$;WRITE$(F);RDR 'T$(13)(34)- '(34);S$(1);T$;S$(2);T$;S$(3);T$;S$(4) X1,Y1) YYB(PSSQ), N1500ıG XXB(PS((YYB)SQ))P X,YV j ' SCAN THE FILE} 'N1500İ50000 ':2 $'N10 .' 3'22:10 8'"PROCESSING DELETIONS" L'F25 Q'N(F)110230 V'D$;OPEN$(F) ['DR0 `'R1N(20000 810000 B11000& L630002  TONEA S101370O T1082c (T(T,T1)01370w 2BEEP1,T(T,T1) <BEEP2,T(T,T11) FBEEP PT1 Z  CONVERSION SUBROUTINE N1500ı Y1YB(OPSQ) X1XB(OP((Y1YB)SQ))_  *************************?APPLE II MAILING LIST PKG_ P U R G E M O D U L E .|( COPYRIGHT (C) 1979 BY- APPLE COMPUTER INC.2 THE SOFTWARE WORKS, INC.<*************************F63800 PURGE63800 $     جӶı̰ŠŮ؍ĠŮجҍŠŮجҍŮųĠŮųҍŠŮųҍΠŮŴӴı̱ŠŮŴĠŮŴҍŠŮŴҍΠŮЬӶı̰ŠŮЍĠŮЬҍŠŮЬҍΠŮŬҍŠŮ٬ҍΠŮűӶı̱ŠŮűĠŮűҍŠŮűҍΠŮŲӵı̱ŠŮŲĠŮŲҍŠŮŲҍΠŮųӵı̱ŠͱΠŮ̬ӶıŠŮ̍ĠŮ̬ҍŠŮ̬ҍΠŮ٬Ӷı̱ŠŮٍĠŮ!! ! ! ΍í٠΍Ġōά΍íɠҮՠЮύΠōάήʮҮʮύϠԠ΍ΠԍάԠ΍Πԍά΍íҮͮɍҮĮؠŠčӠԬɍ"" "