' +JJJJ ?\>m0M='+l> /+l  ӍԠ٠Ġٮčɭ0LL Լ ռ ռ ռ`HJ>݌h Hh݌`S6`LxQɿu  ة֩JJJJIЅ֠],LWH鷎JJJJx  f5巬 췌`GG FGx (`(8`z𷭷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,&"ԠĠٮ  !"#$%&'()*+,-./0123456789:;<=>?+ 0+ 0+824+82<<+ 0+ 0*#8*!6*?!5*#<"0#<)#=*4!5(.-:::20 $=-/"0(,&#:-#=-"**'>' -*-#<-*#8- -/"0 +9-+9---+;-"(::3;-#;-3<-38-47!)("4?94=9/,  +-#<-*#<-+--?#:-**$24>:-->--?;680^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCFG8`0($ p,&" L鷭  d@LҦ{|LFBBbL`y".Q`pNФbptťܥm2<(-Py0\|66e< L鷭巬 췌`x (`(8`z𷭷I`B` ` `Ӝu`y".Q`pNФbptťܥm2<(-Py0\|66e<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 yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`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-XϠٿԠŠˠĠ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`  d̠֠Y)xꪽ)' `LV0^*^*>&` aI꽌ɪVLɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`868:16368,0:"MORE (Y/N) ":"OR C TO CHANGE ";A$:A$"N"ıV&* A$"C"İ2400:2345p&+ (A$)0A$"Y"ī2350&- 2800:REZ1&. R&3 2281&` REMOTE CHANGE&e 22:958&j L1SV(2):1900:]'l LL0:L1SV(2):LLLL(L$(L)):L:(LL6)SV(1)āRNNTT:1:10:SRR16% (16384)155Ĺ16368,0:@% 9100% AB0:CH16:(SC$,CH,1)(CC$(RN(R)),CH,1)(SC$,CH,1)"!"ABAB1% CH% AB62350% 10100:PP1:EZ1ī2355% OPT5İ3500:2350%! OPT4İ3600%$ OPT4İ800>&) 21:$OPT4İ3600$800U$21:958:"MORE (Y/N)":"OR C TO CHANGE ";A$:A$"N"ım$A$"C"İ2400:2270$(A$)0A$"Y"2280$2800:REZ1$R$OPT5İ4080:$21:958:13:"END OF FILE"$90:$SELECT RECORD BY CATEGORY% SC$IN$ST$RC$#2#SELECT RECORD BY LINESN#RNNTT:1:10:SRR1m#(16384)155Ĺ16368,0:x#10100#EZ1ī2281#L17:FM0:(SL$(L))0FM1:2250#A$SL$(L):B$L$(L):500#FM02280#L:PP1#OPT5İ3500:2280"İ10500::1500:2170."|(ST$)2ST$"!!"A"(ST$)22180}"N1SX:ST$SY$(N)ST$SX$(N):21:36:958:ST$:2180"N:ST$(ST$,2)"22:958:"ENTER 2 DIGIT CATEGORY CODE : ";RC$"RC$""İ10400:2180"(RC$)2RC$"!!"#L$(L)A$(L):L!f2199Y!p20:958:SM1:20:"ENTER NAME OR INITIALS : ";A$s!q(A$)2IN$A$:2170!r(A$)12160!s(A$)0IN$"!!":2170!u82:20:36:958:IN$!z21:958:"ENTER STATE NAME OR 2 DIGIT CODE : ";ST$"{ST$"":"(L OR C) ";A$:A$"L"A$"C"21309 D(A$)0A$"1"a FNN(A$):NN0RNN:RTTRRSR1y QSC$"!!!!!!":SM1: RA$"C"2160 WSM0 \L1SV(2):2L1:868:1700 ^2L1:13:868:A$(L):(A$(L))0Ģ2L1:15:"< SELECT ALL >"!aSORD SM1:R0:2100'27007SM0İ2200GSM1İ2300M3b4 SELECT OPTIONS>SV(2)SV(2)1:1500:L1SV(2)1:2L1:15:"< SELECT ALL >":L:SV(2)SV(2)1% C21:"SELECT MODE: L: SELECT BY LINE":16:"C: SELECT BY INDEX CODESA$)0İ1400:1890!?RC$(A$,2)7D(A$)0RC$"!!"AN1450abSV(2)23:1:PT$(SV(2)1)gk|lCHANGE A RECORDv1700{A$(L)"!"L$(L)"":1930(A$(L))0L$(L)A$(L)2L1:12:868:" ";L$(L);:868 CHANGE A REC1:38:IN$&DEFINE CATEGORYKSV(2)23:1::PT$(SV(2)1);:U140021:958:5:"ENTER 2 DIGIT CATEGORY CODE"&23:3:"PRESS CTRL Q TO SEE CATEGORY CODES"0SV(2)23:13:A$:A$""İ10400::1500:1600:1800<Y1(00L51750&A$(L)""1750910500::1500eOPT1āI14:2I1:13:A$(I)::1740I1SV(2):2I1:13:L$(I):L5:17102L1:PT$(L);:OPT1OP3Č868:" ";A$(L)L1ī1792A$A$(1):82IN$"!!"1799 (R)),2)(L1SV(2):2L1:PT$(L):LESV(2)23:PT$(SV(2)1)M80S?g@ REFRESH LINESTL1SV(2):2L1:13:L$(L):LINPUT RECORD2L1:1::PT$(L)2L1::12:OPT1Č868A$(L)(A$(L),1)(5)ġ::2PT2:2400:1090K0xPRINT CATEGORY+CODE HRC$(CC$(RN(R)),2)\PRINT CAT+CODESV(2)23:13:X0:"(";RC$;") : ";:N1CX:RC$CX$(N)ĺCY$(N):X1N:X0ĺ"UNDEFINED"SET UP SCREEN1:"RECORD # ";SRR1;:38:(CC$(RN01800:900E21:958:"ANY CHANGES (Y/N) ";A$:A$"Y"1080|$Y1::1500:1600:1450:OF1:OPT2:830:OPT1:OF0810000:TTTT1:900:70B20:958:21:"MORE (Y/N) ":"OR C TO CHANGE ";A$:A$"Y"(A$)01000DA$"N"(A$)0ıEO92 19%RTT1:RN(R)R::1500/:80GL1SV(2):1700:LSOP3ěq L1SV(2):L$(L)A$(L):L LL0:L1SV(2):LLLL(L$(L)):L:(LL6)SV(1)ĺ:::7:"<>"::"PRESS RETURN TO CONTINUE";A$:100$L$(1):82:N1SX:L$(5)SY$(N)ST$(SX$(N),2):940PN:ST$(L$(5),2)g(IN$)2IN$"!!"~(ST$)2ST$"!!"(RC$)2RC$"!!"CC$(RN(R))IN$ST$RC$ ADD A RECORDTTSV(6)ė:10:10::"<>"::TES" 6SX6N1SX$6SX$(N)06SY$(N)76NN6D$;"CLOSE STATES"T6l6 WRITE STATE CODES6D$;"OPEN STATES"6D$;"WRITE STATES"6SX6N1SX6&SX$(N)60SY$(N)6:N6DD$;"CLOSE STATES"6W7X ACCESS CATEGORIEANGE *****"5I03000:'5:6000?5d PRINT STATE CODESE5iS5nN1SX25xN;":";SX$(N);":";SY$(N);:20:N1;":";SX$(N1);":";SY$(N1)5}(37)23ĄA$:(37)5N55READ STATE CODES5205D$;"OPEN STATES"6D$;"READ STA92:6000a4"ENTER STATE CODE : ";SX$(N):"ENTER STATE NAME : ";SY$(N):SX$(N)(SX$(N),2):CF14"MORE (Y/N) ";A$:A$"N"6090460104CF1İ690044 NON-EXISTANT RECORD OR OUT OF RANGE4:4(5) 5(10):"**** NO RECORD TO CHDE OR 2: CHANGE A CODE QUIT HIT RETURN "s3A$:X(A$):(A$)0X0X260903X2Ą"ENTER NUMBER TO CHANGE : ";N:N1NSX6100 4X1SXSX1:NSX:SXSV(4)SXSV(4):::07:"<>":::: PRINT FORMATD223:868:"SAVE THIS FORMAT (Y/N) ";A$:A$"Y"ı^2D$;"OPEN ";FO$;",V0"r2 D$;"WRITE";FO$2*N1SV(3)24FO(N)2>N2HD$;"CLOSE"2o:2p ACCESS STATE CODES2qCF02z6500:M3"DO YOU WANT TO 1: ADD A NEW COA$,1)"Y"FO(N)1+1(A$,1)"Y"FO(N)0T1((37)):FO$(N);" ";:FO(N)0ĺ"NO"h1FO(N)1ĺ"YES"n11 READ PRINT FORMAT1181D$;"OPEN ";FO$;",V0"1D$;"READ ";FO$1N1SV(3)1FO(N)1N1D$;"CLOSE"1  2  WRITE0FO(5)1FO(5)1J0 CHECK PRINTER FORMAT FOR LINES GREATER THEN 255"0FO(1)((FO(2)FO(4))FO(3))254ė::(10):"*** LINES TOO LONG REFORMAT PRINTER***":I04000:::500005900:0N21::FO$(N);::(36):A$0(A$)053101( ";A$:A$"Y"ıE/U23:868:4::" PRESS RETURN TO SKIP "::958i/ZN1SV(3):N8N9İ5300:5253/\N21::FO$(N);::(36):A$/d(A$)05250/nFO(N)(A$)/sFO(4)0FO(4)1/tFO(5)1FO(5)1/((37)):FO$(N);" ";FO(N)/N34140."A$A$(SP$,F4)!.,N'.g>. SET PRINT FORMATm.:04:"PRINTER / MODEM FORMAT VARIABLES."~.:N1SV(3).N8N95130.FO$(N);:FO(N)0ĺ"NO".FO(N)1ĺ"YES".:. FO$(N);FO(N)::/P23:868:"ANY CHANGES (Y/N)-KZ136:P$(KZ)"":KZ-*- FIX 8-P04099b-MP1F3:L16:L$(L)"":L:4020:Ml-90:w-S$" "-A$(SP$,F1)-N1F3-LLF2(P$((N1)6L)):LL0A$A$P$((N1)6L):4125-A$A$P$((N1)6L)(SP$,LL)-.NF(L$(L))F2P$((Z1)6L)(L$(L),F2)-,L@,F90L$(7)""X,P$((Z1)65)L$(7),P$((Z1)64)((L$(4)", "L$(5)" "L$(6)),F2),ZF34079,3700,400:L14F9:4100:A$:L,F524060,L1F51::L,450:Z0:PPF38+P$((EZ1)6L)P$((EZ1)6L1):P$((EZ1)6L1)""C+L:EZI+]+OUT TO PRINTER+F1FO(1):F2FO(2):F3FO(3):F4FO(4):F5FO(5):F6FO(6):F7FO(7):F8FO(8):F9FO(9):FAFO(10)+P0+Z0:2000:+&,ZZ1:L13:P$((Z1)6L)L$(L):00:14001*$21:"CALL (Y/N) ";A$:A$"Y"İ500007*.Z*t ELIMINATE BLANK LINES TO PTRn*~EZ1F3:L14*Z1(P$((EZ1)6L))*Z103730*Z31*Z21Z1*Z30Z2Z1:3718*(P$((EZ1)6L),Z2,1)" "Z30*Z2+Z30ī3740 STARTING RECORD NUMBER : ";A$:NN(A$):NNSRNN(TTSR1)NNSR\) NNNNSR1:20:958:v) COMPUTE JUMP TO REC) EZ(A$)) EZSREZ(TTSR1)EZR1:2830) EZEZSR1) ) PRINT CODE) 2500:4020:) TELE CODE*:1500:16(L$(1))F2KK2:L$(1)L$(1)" ":K>( L$(1)L$(1)(SRR1)D(' \(( SLOT/DRIVE CHANGE{(2 (A$,1)"S"(A$)02660(< S((A$,2,1))(F (A$)3D1:(P D((A$,1)):D2D1D1(Z (d S(47081)16:D(47082)( A) 20:958::"ENTER:20::7:"<>"::"PRESS RETURN TO CONTINUE";A$:2400{'p Y1:1800:900:70:10000't 22:958:' SPECIAL PRINTER OUT' KK((SRR1))' F80ı' (L$(1))F2KK2550' L$(1)(L$(1),F2KK2)$( KN20000FN EXTRACT TITLE&FNX3ıDFNA$(A$,(A$)X1):20000VFR DATA DISK?lF R216,0:D$"CLOSE"GR:10:"THIS IS NOT AN ADDRESS BOOK DATA DISK":::"PRESS RETURN TO FORMAT IT OR PRESS ANY OTHER KEY TO START OVER":A$:(A$)139NI1X:(A$,I,1)" "200305E:N:IN$"!"(A$,1):LE>N(A$,1)"."20100TERNX1mE\N(A$,X,1)"."20200EfN(A$,X,1)" "ıEpNXX1:X(A$)ıEN20060EN EXTRACT POST SCRIPTENXX1EN(A$,X,1)" "20150EN20110ENA$(A$,X1)F RECORD R#Df+D$;"OPEN INDEX2,L12"DDp+D$;"WRITE INDEX2,R";RN(R)1bDz+CC$(RN(R));",";RN(RN(R))rD+D$;"CLOSE"xD+D. CALLEM LOGICD.P0:Z0:2000D N NAME COMPRESSORD!N(A$)1(A$,1)" "A$(A$,(A$)1):20001D4NX(A$):X0A$"!!"E* CTRL Q ****C(:7500:90#C(9C) ***CTRL Q II***MC):6500:::90SCg)dC*READ INDEX2pC*TT0ıC+D$;"OPEN INDEX2,L12"C +RR1TTC+20C+D$;"READ INDEX2,R";RR1C +CC$(RR),RN(RR)C*+RRC4+D$;"CLOSE"C[+ D\+WRITE INDEX2Bx'EZ0By'20:R1RTTR11Bz'RN(R)1EZ1:VB~'D$;"OPEN ADRFILE,L";SV(1);",V0"wB'D$;"READ ADRFILE,R";RN(R)1B'KZ17:L$(KZ)"":KZB'L$(1),L$(2),L$(3),L$(4),L$(5),L$(6),L$(7)B'D$;"CLOSE ADRFILE"B'OPT5CC$(RN(R))""B' C(***AVING THIS RECORD"A'189A'D$;"OPEN ADRFILE,L";SV(1)[A$'D$;"WRITE ADRFILE,R";RN(R)1A.'L$(1);",";L$(2);",";L$(3);",";L$(4);",";L$(5);",";L$(6);",";L$(7)A8'D$;"CLOSE ADRFILE"As'At' READ RECORD #RAu' GET CATEGORY INFOAv'SM1İ9100RN(R)1!@#CC$(RN(R)),RN(RN(R))8@#D$;"CLOSE INDEX2">@#U@' WRITE RECORD #R@'LL0:L1SV(2):LLLL(L$(L))::LLSV(1)6ĺ::7:7:"<>"::92:200@'R0RTT1:RN(R)R@'OPT1RN(R)TT1A'20:958:21:11:"SN TWO MINUTES"0?0 D$"INIT HELLO,V1,S";S;",D";DF?: D$"DELETE HELLO"u?D :10:06:"PREPARING DATA DISK. STAND BY"?X 70:50:5910:6900?l MM1:100?(#50000?# READ INDEX2 FILE FOR RECORD R?#D$;"OPEN INDEX2,L12,V0"@#D$;"READ INDEX2,R"; CLOSE HANGING STATES FILE=> ERROR OCCURED HAVE NEW DISKM> D$"CLOSE":X> 216,0> :5:"ENTER STARTING RECORD NUMBER: ";SR:TT0> SR1SR1> R0: TO STOP SWITCH AND ERROR FROM CHECK IN SUB 70 ROUTINE?& :6:3:"INITALIZING DISK DONE I=dEZ=fN1EZ:A$:A$:N4=hD$;"CLOSE STATES"?=j216,0^=r:4:15::"WARNING."::d=v=w8:"THIS IS AN OLD DATA DISK"=|:8:"PRESS # TO INITIALIZE DISK":4:"OR ANY OTHER KEY TO RETURN TO MENU"=A$:A$"#"ı=>D$"CLOSE":::" WARNING. ":f>":::70008X1Ą"ENTER 2 DIGIT CODE : ";CX$(CX):"CATEGORY DESCRIPTION : ";CY$(CX):CX$(CX)(CX$(CX),2):7090G9X2Ą"CATEGORY NUMBER TO CHANGE : ";N:NCX:"ENTER 2 DIGIT CODE S 7YFF07b75007::"DO YOU WANT TO 1: ADD A CATEGORY 2: CHANGE A CATEGORY SELECT 1 - 4 3: DELETE A CATEGORY 4: PRINT CATEGORIES ";A$:X(A$)7X1X470907X0X4FF1M8:X1OUTINEIUù34,20&IZúD$;"PR#";FO(10)KIú(145);L$(7);(10):II11000:eIù1625116FO(10),136IúD$;"PR#0":23::868:"PRESS ANY KEY TO DISENGAGE MODEM ";:A$:D$;"PR#";FO(10):(154):D$;"PR#0"Iù34,0I×:ARS BETWEEN LABELS : ","LINES TO SKIP BETWEEN LABELS : "H2u"PRINTER SLOT NUMBER : ","PRINTER SPEED (1 - 255) : ","PRINT RECORD NUMBER (Y/N) : ","PRINT TELEPHONE NUMBER (Y/N) : ","MICRO-MODEM SLOT NUMBER : "IPò RINGEMUP R GRA$GR8210G&R27G0u"1: NAME :","2: COMPANY:","3: STREET :","4: CITY :","5: STATE :","6: ZIP :","7: PHONE :","CATEGORY :"@H1u "LEFT MARGIN : ","CHARACTERS PER LABEL : ","LABELS ACROSS FORM : ","CHz"#????????    !ز"Ӡ Ԍé٠Šޠ̠ӠĠޠӠرӠԠ ŠϠ ̷ԠCԷ٠Ԯʠٮʠ ٮʠ RUN APPLESOFT":  480( 495. ' "BLOAD ^TTY"% "MAXFILES 2". 999=  GOTO 490V "EXEC ^MOVEDOWN":p "EXEC ^MOVEDOWNP": "RUN DUAL DISK COPY" "BRUN ^COPY" &"RUN DUAL DISK UPDATE PROGRAM" +"RUN ^UPDATE": 0"RUN INTEGER HELLO PROGRAM" 5"0$ ^A$"O"ĺ"RUN OPTIONS PROGRAM"B hA$"O"ĺ"BRUN ^OPTIONS"[ r FIX INTEGER HIMEMf w76,82r |77,152 "BLOAD ^SUPER-TEXT,A$3800" 10555,0 "BLOAD @MATH,A$6080" "BLOAD ^PARAMS,A$6000" "BLOAD ^PATCH" "MON I,O,C"6898,190 E17:5; F"AFTER ENTERING THE EDITOR PRESS "B O5l P"CTRL-L TO LOAD EDITOR INSTRUCTIONS"t U:z V Y5 Z"PRESS RETURN TO CONTINUE . . ." ,A$:A$""ī370 6CV(37):(CV) JA$"C"ī500 TA$"U"ī550 YA$"I"ī56ORE; MD. 21201"% "RUN MAIL7.1.T"+ "E "RUN MAIL7.1.T"K h:6:"IF YOUR APPLE IS EQUIPPED WITH" <6:"AN APPLESOFT BOARD, TURN THE" =6:"APPLESOFT BOARD SWITCH ON (UP)." > POKE OUT VOLUME CHECK @16900,76:16899,6:1- "NOMON I,O,C";6:11:"THE ADDRESS BOOK "m11:3:"COPYRIGHT (C) 1980 BY MUSE SOFTWARE"10:"ALL RIGHTS RESERVED"(16:10::"CRACKED BY THE WHIP": c21:10:"MUSE COMPUTER CENTER":10:"330 NORTH CHARLES ST":10:"BALTIM     "2: CATEGORY CODES"3b:"1 OR 2 ";X:X1X2600BlX1ī6000Lv7000f VIEW SELECTED RECORDr*:150041600:14009OPT2899>L1SV(2):1900:L:Y1:1800:Y0HOF1ıR10000:900:70ASSEMBLE CATEGORY CODE A(7)   TURN PRINTER OFFCD$"":D$;"NOMON I,O,C":D$:RD$;"PR#0"[255azCHECK STRING/STRING*FM0:Q1(A$):Q2(B$):Q2Q1557+Q31Q2Q11:A$(B$,Q3,Q1)FM1,Q3-X:5:"SELECT :"::"1: STATE CODES":AND PRESS RETURN "::25:A$::10:15:"THANK YOU"=c2600KdX10370rhD$;"RUN SORT7.2,S";S;",D";D;",V0"xmrD$;"RUN COPY, S";S;",D";D;",V0"w:200 TURN PRINTER ON:10:10:"PRINTING......"D$;"PR#";FO(6)FOZ)"":EZ#1OPX:OPT1OPTOPT1<2OPT1OPT3OD$DT$T4TT0X2X43256X1000,2000,12000,4000,5000,600,8000,340,365,340@399E:10:" NO RECORDS ON DISK":I13000::200T3^10:3:" INSERT ";::"PROGRAM";::" DISK T ADDRESSES":)"9: CHANGE DATA DISK"K32,7::"10: COPY DATA DISK"W32,0:,23:" ENTER OPTION # ";A$:X(A$):A$"Q"100-A$"9"ė:I1TT:CC$(I)"":20.X1X10200/X2X4ī305 0"CLEARING MEMORY . .":EZ1TT:CC$(E:32,8::::AB0:R163:"1: ADD AN ADDRESS":Z"2: VIEW / CHANGE ADDRESSES":p"3: TELEPHONE":"4: PRINT LABELS":"5: CHANGE PRINTER FORMAT":"6: ACCESS STATE/CATEGORY CODES": "7: START NEW DATA DISK":"8: SORT HERE !!!!!!!!nO6:12:"THE ADDRESS BOOK":8:12:"BY MUSE SOFTWARE"12:10:"STARTING RECORD : ";SR::10:"RECORDS ON DISK : ";TT:6:"DATE OF LAST CHANGE : ";OD$MM0199MM0:90:200 MENU255OF0:YXX1:86&Z CARRIAGE RETURN5[34,21::g\23:7::" PRESS RETURN TO CONTINUE ";A$::_"(";(CC$(R),2);") : ";:PRINT CATEGORY`X0:N1CX:(CC$(R),2)CX$(N)ĺCY$(N);:868:X1:aN:X0ĺ"UNDEFINED";:868:bd STAROSE"MR0ıN11100 OBPSV(2)25:N140:"*";:N:`R20000: EXTRACT INITIALSvS(A$)0IN$"!!"TC$(A$,1):X2:N1(A$):(A$,N,1)" "86UN:IN$"!"(A$,1):VB$(A$,X):(B$,1)" "B$(B$,X):B$(B$,2):IN$C$(B$,1)N :D$;"CLOSE CATS" ;C <D$;"OPEN INDEX1,S";S;",D";D;",V0"Y >D$;"READ INDEX1"o @SR:TT:FO$:OD$ BD$;"CLOSE" C216,0 D11000 E FD$;"OPEN INDEX1" HD$;"WRITE INDEX1" I(DT$)0DT$OD$ JSR:TT:FO$:DT$LD$;"CL: READ CATEGORIES) )D$;"OPEN CATS,V0"= *D$;"READ CATS"E +CXQ ,N1CX] -CX$(N)i .CY$(N)p /N 0D$;"CLOSE CATS" 1 2 WRITE CATEGORIES 3D$;"OPEN CATS,V0" 4D$;"WRITE CATS" 5CX 6N1CX 7CX$(N) 8CY$(N) 9V(2)7: NUMBER OF LINES PER RECORD\ "SV(3)10: NUMBER OF FIELDS IN PRINTER FORMAT RECORD #SV(4)60: MAX NUMBER OF STATE CODES $:SV(5)40: MAX NUMBER OF CATEGORY CODES %SV(6)700: NUMBER OF RECORDS PER DISKETTE &FO$"FORMAT" ' (20ODAY'S DATE : ";DT$:14:868:DF1 14:3:" INSERT ";::"DATA";::" DISK AND PRESS RETURN "::25::A$::14:15:"THANK YOU" 21000 2600:60:40:5800:6800 MM1:100  DEFINE SYSTEM VARIABLE SV(1)120:LENGTH OF RECORD# !S4)16 N1SV(2)1:PT$(N):N:N1SV(3):FO$(N):NV 6:12:"THE ADDRESS BOOK." 19:04:"COPYRIGHT (C) 1980 MUSE SOFTWARE":21:10:"MUSE COMPUTER CENTER":10:"330 NORTH CHARLES ST":10:"BALTIMORE; MD. 21201" DF126" 14:3:"ENTER TA"MAXFILES 1":39584::%-30`SP$" "r D$(141)"" D$;"NOMON I,O,C" MR700:NC36:SR0:TT0RN(MR),CC$(MR),CX$(40),CY$(40),SX$(60),SY$(60),P$(36)FO(10),L$(10),A$(10) F0(                     N(A$,X,1)" "ı'pNXX1:X(A$)ı2N20060MN EXTRACT POST SCRIPT^NXX1:X2ıwN(A$,X,1)" "20150N20110NA$(A$,X1)N20000N EXTRACT TITLENX3ıNA$(A$,(A$)X1):20000:I1TT:RN(I)I::30004> EXTRACT LAST NAME=>FL1L>(A$)0ı_>20000:X(A$)p>XX1:X1ı>(A$,X,1)" "A$(A$,(A$)X):>16020 N NAME COMPRESSOR4NX(A$)>N(A$,1)"."20100RNX1\N(A$,X,1)"."20200fN INDEX2,L12"p+RR1TT<z+20:D$;"WRITE INDEX2,R";RR1T+CC$(RR);",";RN(RR)\+RRl+D$;"CLOSE"r+~+UNSORT+D$;"OPEN INDEX2"+RR1TT+D$;"WRITE INDEX2,R";RR1+CC$(RR);",";RR++11160:UNSORT:25:26E,R";R17'L$(1),L$(2),L$(3),L$(4),L$(5),L$(6),L$(7)O'D$;"CLOSE ADRFILE"U'f*READ INDEX2+D$;"OPEN INDEX2,L12" +RR1TT+20:D$;"READ INDEX2,R";RR1 +CC$(RR),RN(RR)*+RR4+D$;"CLOSE"[+\+ WRITE INDEX2 f+D$;"OPERYE25:26JR1TT#T900f^A$(CC$(R),2):WC,((A$,1)):WC1,((A$,1)):WC2,0:WCWC3mhR||800:3050(# SORT BY LAST NAME2#SF1:FL1:5100t' READ RECORD #Ry'20~'D$;"OPEN ADRFILE,L";SV(1);",V0"'D$;"READ ADRFILEA$(CC$(R),3,2):WC,((A$,1)):WC1,((A$,1)):WC2,0:WCWC3LR[800:3050qXSORT BY INITIALS}]25:26bR1TTl900vA$(CC$(R),2):WC1,((A$,1)):WC,((A$,1)):WC2,0:WCWC3R800:3050@ SORT BY CATEGO):37895,TT(X256):37896,X'|37888_:10:18:"DONE.":15:12:"REARRANGING DISK."lNT22528w11000I1TTRN(I)(NT(2I)2)256((NT(2I)1))I3000p SORT BY STATE CODEu25:26zR1TT900(A$):LL0A$"":LL1(\FL1İ16000G]LL(A$):LL0A$"":LL1g_LL13000TTLL(13000TT)dI1LL:WC,((A$,I,1)):WCWC1::WC,0:WCWC1n5:958:"READING SORT KEY #";R:8:958:A$R:10:15:"SORTING..."rX(TT256:WC24576SF5ī6000) SF8ī70009SF9ī8000JSF10ī9000[SF1115000m25:2600:60:5:"READING ";TT;" SORT KEYS"PR1TT:10100UQ(WC256):PC,WC(Q256):PC1,Q:PCPC2XNC,0:NC1,0:NCNC2ZA$L$(SF):LL:"6: ZIP") 10:"7: TELEPHONE NUMBER"{ 10:"8: INITIALS *":10:"9: CATEGORY CODE *":9:"10: LAST NAME" 9:"11: CHRONOLOGICAL *" 22:"(*) FAST SORT":15 :"SELECT (1-11) ";SF SF1SF11ī5020 PC20480:NC22528D PRESS RETURN ":8 :20:A$::12:15:"THANK YOU."B 2600f D$;"RUN MAIL7.1.T,S";S;",D"D:q SLORT :2:"SELECT SORT FIELD" 4:10:"1: NAME":10:"2: COMPANY" 10:"3: STREET":10:"4: CITY" 10:"5: STATE *":10,0:NCNC2 * ( SLOT/DRIVE CHANGEI 2 (A$,1)"S"(A$)02660\ < S((A$,2,1))o F (A$)3D1: P D((A$,1)):D2D1D1 Z d S(47081)16:D(47082) EXIT 11100 :12::" INSERT ";::"PROGRAM";::" DISK ANE" E d:5000#  CODESORTN %X(TT256):37895,TT(X256):37896,XY *37888f 4NT22528r >I1TT HRN(I)(NT(2I)2)256(NT(2I)1) R \11100  INCREMENT SUB Q(WC256):PC,WC(Q256):PC1,Q:PCPC2 NC,0:NC1GHTS RESERVED"( D$;"BLOAD SLORT.OBJ"1 100 :14:" INSERT ";::"DATA";::" DISK AND PRESS RETURN "::15:A$:::14:15:"THANK YOU.": 2600:60:11000: <D$"OPEN INDEX1,S";S;",D";D >D$;"READ INDEX1" @SR,TT,FO$ DD$;"CLOS 20479FL0)SV(1)120; D$(141)""Q D$;"NOMON I,O,C"l MR800:NC36:SR0:TT0RN(MR),A$(100),CC$(MR):6:12:"THE ADDRESS BOOK ":8:15:"SORT MODULE" 19:03:"COPYRIGHT (C) 1980 BY MUSE SOFTWARE":11:"ALL RI     OCOPY.OBJ":L  216,0,1010,89:1011,255:1012,90D ADDRESS BOOK COPYOD$""d:5:10:"SELECT"::15:"1: SINGLE DISK COPY"::15:"2: DUAL DISK COPY"::10:"ENTER 1 OR 2 >";X:X1X2100nX2300D$;"BRUN UNICOPY.OBJ": ,D$;"BRUN DU RȭS` ͔ ؔ Lq8.?r.?rr Aq:Fa(Šî)E@E()F.?r.?rE()FE(ְ)PMZQddeM]Ġq.?r.?r.q q q.?r.?r_L PX``` *` *` #m`ȱLsLbRS`hh`  LƔ ? T L 0 ` ``RS`mm  T z# /o L   /   / ɍɛL' ;LO   Cf g /` o YQR-U.V +U,V[P | Y * o *QR | *QR B **#L L  C( ) / ɛ ɍLL "L`Z@L  C /L1  C / : : : :  / L H 8 h 8 9 : ; Ly . . . . ``` P C /ljjjj  C /m  C /njjjj  C Ī ӠΠϠԠ, ŠϠĠ˺ҺO ӠΠϠŠҠӠŠϠZPL L X : : C / C* + / CQ ! CR M N / ɛ X ;Z R  ` 8 R +U,V R VL! `Qhh` 8 R +U,V R VLY lNmO`nNoO`KL `YL L ŠϠĠҠ˪ ŠϠŠϠŠ˪ ˠŠ hoL o ɍɱɲL )m  C /nJJJJ ɍɱLH ɸLH n  C /o ɍɱɲL )olnmo : : XL `%$$$ C `lNmOYQR R  `nNoOYQRŠٮ ҠӠŠϠԠҮ* ӠΠϠŠҠٍҠӠŠϠh Ǯy ĠӠΠϠŮ) `  C /鷍lnJJJJ ɍɱL ɸL l C /귍mH  L  X Cpq / "`89 `%$ "`M`^`جKL ```rӠˠРҠԠҠҠŠҺŠԠҠŠŠҠӠΠϠ     T z# P Ǯ ǮQiQ` i    M L` )  * ` +  , `I ԠҠĠӠj ԠŠĠӠ X :   >G H * ɍ X  > *` X :   >h i * ɍ X  > *` Ǯ鷍I귍J TLM(P)Q VK T X > *  : :LM  ) + * , )  *   PQLM    - L# QɕL PQ+  ,   LM    : L# QɕLn L * >| } * >L ! >MJ * ɛ XUL U@L  >  *L  >= > * : : : : * ɛL ɍL L H 8 h 8 9 : ; L . . . . ```ŠϠĠҠ˪ ŠϠŠϠŠ˪? ˠŠĪ\ ӠΠϠԠ~ ŠϠĠ˺Һ ӠΠϠԠҠӠŠϠUKLL X : : > L X >kl * "`34 `%$ "`H`Y`جFG ```mӠˠРT >L M  `T >L M  `Lhh`FG `TLR L        + 'A@JJJJ ?]> C F=MA=>??l>2JJJ C F=MA=>??l>2JJJ