' +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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   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- ( 0  ՠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`110RROR CODE NUMBER = ";(222):216,0:12:"PRESS RETURN";:43:B$:107x+958:::5:"STARTING RECORD NO.(DEFAULT=1)";+E%3:U%1:27:A(A$):A1AK%A1++,D$"PR#"SL%:P$;:CN%ČCN%+1IAK%:G,I:F$:2:I:107+6D%4300,@X%1:5:I.*D$"WRITEFS2.0,R0":J1:D$"CLOSE":107i*K%2ĉ::10:" NOT ENOUGH RECORDS TO SORT":43:107o**(222)5225*I(218)(219)256:I123I124Ĺ216,0:D$"OPEN FS2.0":D$"WRITE FS2.0":0:J0:D$"CLOSE":125*107D+::10:"E38143,K%:D$"BSAVE"K$",A";38142K%121;",L";K%1212:C1%0P)J:K$"":Y%,0:)D$"OPENFS2.0":D$"READFS2.0":J:D$"CLOSE":D$"OPENFS2.0,L20":I1J:D$"READFS2.0,R"I:A$:A$B$KI*I:KJāIK1J:D$"READFS2.0,R"I:A$:D$"WRITEFS2.0,R"I1:A$:91,93,94,200,195,200#(RN%61077(K1%2:200:107u(D$"OPEN FS2.0,D"K1%:D$"READ FS2.0":I:D$"CLOSE":I0ı(J1I:D$"OPEN FS2.0,L20":D$"READ FS2.0,R"J:K$:D$"CLOSE":D$"BLOAD"K$:Y%,(38143):K%(Y%):X%6A1:94:204;)B$N$:81:C1%'" 1)..PRINT ONE 2)..PRINT FROM 3)..PRINT ALL RECORDS THIS FILE 4)..PRINT ALL FILES DISK 1 5)..PRINT ALL FILES DISK 2 6)..PRINT ALL FILES BOTH DISKS WHICH?":Z%6:46:RN%D%:RN%4İ41'RN%3C1%ė:128(K1%1:RN%..ALL FILES DISK 2 4)..ALL FILES BOTH DISKS SELECT SEARCH RANGE":Z%4:46:RN%D%:RN%1C1%İ128:C1%0}&RN%1İ41&76&80:107&K1%1:200:RN%2107&K1%2:200:107&X%6:34,18:88::::5:12:" TURN PRINTER ON "::A1DDED TO OR MODIFIED"::::3:"SAVE TO DISK BEFORE CONTINUING (Y/N)":44:A$"N"ġ:110a%%12:958:" 1)..DISPLAY RESULTS 2)..PRINT LABELS":Z%2:46:D%2SP%1n&12:958:" 1)..CURRENT FILE ONLY 2)..ALL FILES DISK 1 3)20":D$"WRITEFS2.0,R"J1:K$:D$"WRITEFS2.0,R0":J1:D$"CLOSE":107$~:" DELETE ";A$;" FILE (Y/N)?":B$A$:44:A$"Y"110$16:958:18:14(B$)2::" DELETING ";B$;" "::1:868:3:D$"DELETE";B$;",D";K1%:210[%::10:6::"RECORDS A SAVING ";A$;" "::38143,K%:D$"BSAVE";A$",D";K1%;",A";38142K%121;",L";K%1212:C1%0:FL%0:D$"OPENFS2.0":D$"READFS2.0":J:D$"CLOSE"#|JĺD$"OPEN FS2.0,L20":I1J:D$"READ FS2.0,R"I:A$:FL%FL%(A$K$):I:D$"CLOSE":FL%107D$}D$"OPENFS2.0,LFILE ";K$R"x::37,(37)2:E%19:U%15:C8:27:A$""ė:D$"CATALOG,D";K1%:119f"yD%122,123,126"z16:958:K$A$:18:14(A$)2::" LOADING ";A$;" "::C1%0:D$"BLOAD";A$;",D";K1%:Y%,(38143):110#{41:16:958:K$A$:18:14(A$)2::":936:D$"CATALOG,D";K1%:::10:"PRESS RETURN"::A$::107X!uD%2Ģ17:13:"SAVE"!v:D%1C1%ĺ"SAVE MODIFIED WORKING FILE FIRST (Y/N)?":44:D%1:19:868:A$"Y"D%2:117 "w:" INPUT FILE NAME (RETURN FOR CATALOG)":K$""ĺ"PRESS ':' FOR rX%3:16:958:17:5:"DISK DRIVE 1 OR 2 (DEFAULT=1)?":44:K1%D%:K1%2K1%1 s17:868:" 1)..LOAD 2)..SAVE 3)..DELETE 4)..CATALOG SELECT WHICH?":Z%4:46:17:956:17::" READY TO LOAD ":D%3Ģ17:13:"DELETE">!tD%4ĉ:)...EDIT 5)...SEARCH 6)...SORT 7)...DISK ACCESS 8)...PRINT LABELS 9)...TERMINATE"p22:17:"RECORDS IN FILE ";::K%::20(K$)1:"CURRENT FILE IS ";::K$::22:1:"WHICH?";:Z%9:46:D%3D%4D%6İ41qD%51,52,69,66,132,72,114,170,95R l:108m216,0:220nK%(Y%):SP%0:N1%0:G%0:SR%0:X%0:Q%0:M%0:RN%0:C%0:F%0:R%0:W%0:P%1:L%0:::C1%Ğ:21:1:" RECORDS HAVE BEEN MODIFIED ":Vo1:10:"MAIN MENU 1)...START A NEW FILE 2)...ADD RECORDS 3)...LIST 4T 1979 BY SYNERGISTIC SOFTWARE":D$"BLOADMLFILES,A$9500,D1":1013,76:1014,0:1015,149:Y%,0jF,F$F$(0),12;F$(1),18;F$(2),25;F$(3),16;F$(4),4;F$(5),10;F$(6),12;F$(7),20;F$(8),4:I08:T%(I):L1%(I):M$(I):I:L1%(9)kD$:D$"CLOSE":D$"PR#0":10900:Y%801: 12,1,FIRST NAME,18,3,LAST NAME,25,5,STREET,16,7,CITY,4,9,STATE,10,11,ZIPCODE,12,13,PHONE,20,15,COMMENT,4,17,CODE,21\i::8:4:"MAILING LIST DATABASE-VERSION 2.0":11:3:"BY CHRISTOPHER ANSON & ROBERT CLARDY":43:D$(4):23:" COPYRIGHMc:34,19:N1%0Ģ19:25:"RECORD # "K%1:15:L$""Ė(20((L$)2)):L$Sdte1::Q19:2Q1:Q:Q::f:::::2:"MODIFY WHICH FIELD?"gX%1:W%1:45:54:W%0:E1182:E:1:" ":E:hF$(8),T%(8),H%(8),M$(8),L1%(9):K%0:D1%8E19:2:" ";:40:" ";:E:2:39):::8:"PRESS ESC. TO STOP PRINTOUT":34,10:32,2:33,37:35,18:8:12:"RECORD ";::"1 ";::" OF ";K%:C%10:F%1:5:_C1%İ128`22:"END(Y/N)":44:A$"Y"Āa107b::Q08:12Q:3:M$(Q);":":Q$" FILE":43:XQ%0:::" NUMBER OF COPIES (DEFAULT=1)?";:255:P%(A$)::21:"PRINT AN ADDITIONAL FIELD (Y/N)?":44:A$"Y"ıYR%0ė:98Z:21:"SELECT ADDTIONAL FIELD";:45:Q%C:[R%1:93]::C0:250^::10:2::38);:),(D1%)1:(D1%)1(D1%)K%86HSA(D1%):E1%2įG,A:C$F$(K)82wTA%C:SP%R%1:F%1:94:CA%:(D1%)K%82USP%0N1%1:56:CA%:(D1%)K%82VE1%1B$" "B$:(B$)T%(C)181W::10:8:"NO MORE RECORDS FOUND IN":18(K$)2:KEY":"FOR ";M$(C);" FIELD.":E%T%(C):U%14:25:B$A$:E1%4CF1%:B$N$:L,F$(K)A$:C$F$(K):79NE1%3ė:"SECOND FIELD":F1%C:N$A$:45:KC:E1%4:77ON$B$:SR%1:RN%155,160,165,160P::" SEARCHING ":QD1%,0!RL,F$(C)B$:S,F$(C,F$(B%(2)),F$(B%(3)):107L12:1:958:" 1)..SEARCH FOR A SUBSTRING 2)..SEARCH FOR ONE FIELD 3)..SEARCH FOR TWO FIELDS WHICH SEARCH OPTION?":Z%3:46:E1%D%:98:19:958::21:R%1:"SEARCH WHICH FIELD?":45`M:21:"ENTER SEARCH K958::" SORT BY 1, 2, OR 3 FIELDS?":Z%3:46::98:B%(1)1:B%(2)1:B%(3)1:I1D%:20I:1I:"SELECT SORT FIELD # ";I:45:B%(I)C:B%(I1)C:B%(I2)C:II::15:" SORTING ":::7:E(K%2660):"ALLOW APPROXIMATELY ";E;" SECONDS":X,F$(B%(1))1:10:250#C56:AA1:AK%167,D107E8:250:L%1:10:958:" 1)..QUICK LIST 2)..FULL LIST 3)..FULL LIST TO PRINTER 4)..ROSTER LIST TO PRINTER WHICH?";:Z%4:46:D%1G%1:71FM%1:D%3P%1:F%1G310H215:14:1:R%1:88:AS%:5:R%0:57@;A$"E"İ102:AS%:P,A:C1%1:57P<A$"D"64=21:"DELETE RECORD(Y/N)?":44:A$"Y"57>AK%āEA1K%:G,E:P,E1:E?K%K%1:AA1:C1%(D1%):Y%,K%:D1%,C1%(C1%0):C1%1:@(A$)1357A BN1%12C:14:F$(C):H841:98:19:34:A;" ":G,A:C08:55:C:X%19:25:"RTN=CONTINUE":25:"ESC=RTN TO MENU":25:"E = EDIT ":25:"D = DELETE ":25:"P = PRINT LABEL";:SR%Ģ23:2:"SEARCH IN PROGRESS":44:S%A:A$"P"C%21:F%NEW FILE NAME":U%1:25:K$A$s4K%214ĉ::10:"WORKING FILE IS FULL (215 RECORDS). PRESS RETURN.":H$:1105N1%1:X%1:C1%1:L,F$"":98:C08:54:C:P,K%1:K%K%1:AK%:57:526:E%T%(C):AAW%(K%1)(W%0):U%14:25:L,F$(C)A$790:46"-101:Z%9:46:CD%1:D.23:1:A$:D$;:A$(27)107c/D%(A$)48:D%15D%D%7w0Z%50D%35ı1D%1D%Z%4623:12:"STARTING A NEW FILE ERASES ALL RECORDS IN MEMORY":E%0:U%1:C9:25:Y%,0:K%0:E%19:19:"ENTER (A$,((U%1)(M1%))1)I&U%(E%M1%1)U%E%M1%:37,V%:U%:" ";:28b'A$I$H$:U%U%1:28(P,K%1:G,A(A1):A$F$(C):G,K%1:Y%,K%:1:V%2:868:)K%0ĉ::10:1:"THERE ARE NO RECORDS ON FILE":43:107*+E11000:E:,Z%M1%(((U%1)M1%)1)):V%2:868:f!H$(8)U%U%1:U%M1%1U%M1%:A$"":37,V%1:U%:" ";:28"U%M1%H$(8)J$(A$,U%M1%):U%:" ";:28#H$(21)H$(J$,(U%1)M1%,1):H$""H$(32)$U%M1%A$"":A$H$:U%U%1:28%U%M1%I$=CONTINUE":25:"ESC=RTN TO MENU";:L1%(C) M1%U%:A$"":H$"":I$"":V%(37):V%2:U%:I1E%:"'";:I:W%ĢV%1:14:F$(C):J$F$(C) V%1:U%:H$:H$;:H$(27)107 U%M1%H$":"32 X%3A$K$: X%40# H$(13)A$(A$,(U%1)F%)Ĺ33,40:# AAB(B0):F%6B L%I%4AK%1I%I%1:6 X%6RN%4Ģ23:7:"RTN TO CONT / ESC TO MENU";:44:AK%1C%0:5  (F$(C))0A$(F$(C),T%(C)J%1,1):A$(32)A$(160)J%J%1:J%T%(C)23  22* 25:"RTNT%:F$(2);:L::L0B1:G,AL:J%1:C3:23:36,TB%LLT%:(F$(3),1,17J%);", ";F$(4);" ";F$(5); L::L0B1:G,AL:36,TB%LLT%:L%ĺF$(6)" "F$(7)" "F$(8); Q%ĺF$(Q%); L::F%L%0āE1SK%::E F%M%ĺ 2:D D$"PR#0":(R%;:CN%ČCN%< M%ĺ"............................REC. # ";A G,A:G%J%1:C1:23:(F$(1),1,19J%);", ";F$(0);" ";:37:A:AA1:2:6b D1P%:L0B1:G,AL:J%1:C0:23:36,TB%LLT%:(F$(0),1,13J%);" ";F$(1);:L::L0B1:G,AL:36,TB%LLP$;:CN%ČCN% G%Ĺ35,20# h :I%1:16368,0:G%Ģ21:8:"PRESS ESC. TO STOP LIST";:35,20:u AK%21 F%L%0X%1Ĺ33,37:8:19::A;:17:3:: BNL%(ANL%K%2)(K%A1)(ANL%K%1):BB(L%0)(R%0):C%1:F%ĺD$"PR#"SL%:P$ $0SL%1:NL%2:LT%28:SK%2:P$"":CN%0:TB%0n"MAXFILES1":12000:40993,24:40994,234:40995,234:104 C%(37):D%(16384):D%155Ĺ16368,0:E%0::34,22:D$"PR#0":23:D%A:C9:26:AD%:::F%X%1Ĺ34,10:35,18:32,2:33,37::D$"PR#"SL%:          $(2);:L:a+L0B1:G,AL:J%1:C3:23:36,TB%LLT%:(F$(3),1,14J%);", ";F$(4);" ";F$(5);+L::L0B1:G,AL:36,TB%LLT%:L%ĺF$(6)" "F$(7)" "F$(8);+Q%ĺF$(Q%);+L::F%L%0āE1SK%::E+2:D:27:A(A$):A1AK%A1*>*,D$"PR#"SL%:P$;:CN%ČCN%^*1IAK%:G,I:F$:2:I:107l*6D%4300}*@X%1:5:110 +D1P%:L0B1:G,AL:36,TB%LLT%:F$(0);:L::L0B1:G,AL:36,TB%LLT%:F$(1);:L::L0B1:G,AL:36,TB%LLT%:FI(218)(219)256:I123I124Ĺ216,0:D$"OPEN FS2.0":D$"WRITE FS2.0":0:J0:D$"CLOSE":125h)107)::10:"ERROR CODE NUMBER = ";(222):216,0:12:"PRESS RETURN";:43:B$:107)958:::5:"STARTING RECORD NO.(DEFAULT=1)";*E%3:U%1:ENFS2.0,L20":I1J:D$"READFS2.0,R"I:A$:A$B$KI{(I:KJāIK1J:D$"READFS2.0,R"I:A$:D$"WRITEFS2.0,R"I1:A$:I(D$"WRITEFS2.0,R0":J1:D$"CLOSE":107(K%2ĉ::10:" NOT ENOUGH RECORDS TO SORT":43:107(((222)5225_)EN FS2.0,L20":D$"READ FS2.0,R"J:K$:D$"CLOSE":D$"BLOAD"K$:Y%,(38143):K%(Y%):X%6A1:94:204'B$N$:81:C1%Ĺ38143,K%:D$"BSAVE"K$",A";38142K%121;",L";K%1212:C1%0'J:K$"":Y%,0:4(D$"OPENFS2.0":D$"READFS2.0":J:D$"CLOSE":D$"OPISK 2 6)..PRINT ALL FILES BOTH DISKS WHICH?":Z%6:46:RN%D%:RN%4İ41i&RN%3C1%ė:128&K1%1:RN%91,93,94,200,195,200&RN%6107&K1%2:200:107&D$"OPEN FS2.0,D"K1%:D$"READ FS2.0":I:D$"CLOSE":I0ıe'J1I:D$"OP%80:107%%K1%1:200:RN%21079%K1%2:200:107w%X%6:34,18:88::::5:12:" TURN PRINTER ON "::A1S&" 1)..PRINT ONE 2)..PRINT FROM 3)..PRINT ALL RECORDS THIS FILE 4)..PRINT ALL FILES DISK 1 5)..PRINT ALL FILES DLTS 2)..PRINT LABELS":Z%2:46:D%2SP%1$12:958:" 1)..CURRENT FILE ONLY 2)..ALL FILES DISK 1 3)..ALL FILES DISK 2 4)..ALL FILES BOTH DISKS SELECT SEARCH RANGE":Z%4:46:RN%D%:RN%1C1%İ128:C1%0$RN%1İ41$76 6:958:18:14(B$)2::" DELETING ";B$;" "::1:868:3:D$"DELETE";B$;",D";K1%:210#::10:6::"RECORDS ADDED TO OR MODIFIED"::::3:"SAVE TO DISK BEFORE CONTINUING (Y/N)":44:A$"N"ġ:110#.$12:958:" 1)..DISPLAY RESULOSE"e"|JĺD$"OPEN FS2.0,L20":I1J:D$"READ FS2.0,R"I:A$:FL%FL%(A$K$):I:D$"CLOSE":FL%107"}D$"OPENFS2.0,L20":D$"WRITEFS2.0,R"J1:K$:D$"WRITEFS2.0,R0":J1:D$"CLOSE":107"~:" DELETE ";A$;" FILE (Y/N)?":B$A$:44:A$"Y"110[#1)2::" LOADING ";A$;" "::C1%0:D$"BLOAD";A$;",D";K1%:Y%,(38143):110"{41:16:958:K$A$:18:14(A$)2::" SAVING ";A$;" "::38143,K%:D$"BSAVE";A$",D";K1%;",A";38142K%121;",L";K%1212:C1%0:FL%0:D$"OPENFS2.0":D$"READFS2.0":J:D$"CIRST (Y/N)?":44:D%1:19:868:A$"Y"D%2:117 w:" INPUT FILE NAME (RETURN FOR CATALOG)":K$""ĺ"PRESS ':' FOR FILE ";K$ x::37,(37)2:E%19:U%15:C8:27:A$""ė:D$"CATALOG,D";K1%:119 yD%122,123,126L!z16:958:K$A$:18:14(A$E 4)..CATALOG SELECT WHICH?":Z%4:46:17:956:17::" READY TO LOAD ":D%3Ģ17:13:"DELETE"tD%4ĉ::936:D$"CATALOG,D";K1%:::10:"PRESS RETURN"::A$::107uD%2Ģ17:13:"SAVE"1 v:D%1C1%ĺ"SAVE MODIFIED WORKING FILE F$)1:"CURRENT FILE IS ";::K$::22:1:"WHICH?";:Z%9:46:D%3D%4D%6İ41vqD%51,52,69,66,132,72,114,170,95rX%3:16:958:17:5:"DISK DRIVE 1 OR 2 (DEFAULT=1)?":44:K1%D%:K1%2K1%1ks17:868:" 1)..LOAD 2)..SAVE 3)..DELET" RECORDS HAVE BEEN MODIFIED ":o1:10:"MAIN MENU 1)...START A NEW FILE 2)...ADD RECORDS 3)...LIST 4)...EDIT 5)...SEARCH 6)...SORT 7)...DISK ACCESS 8)...PRINT LABELS 9)...TERMINATE"Pp22:17:"RECORDS IN FILE ";::K%::20(K),13;F$(4),2;F$(5),9;F$(6),12;F$(7),10;F$(8),3:I08:T%(I):L1%(I):M$(I):I:L1%(9)ykD$:D$"CLOSE":D$"PR#0":109l:108m216,0:220+nK%(Y%):SP%0:N1%0:G%0:SR%0:X%0:Q%0:M%0:RN%0:C%0:F%0:R%0:W%0:P%1:L%0:::C1%Ğ:21:1:::8:4:"MAILING LIST DATABASE-VERSION 2.2":11:3:"BY CHRISTOPHER ANSON & ROBERT CLARDY":43:D$(4):23:" COPYRIGHT 1979 BY SYNERGISTIC SOFTWARE":D$"BLOADMLFILES,A$9500,D1":1013,76:1014,0:1015,149:Y%,0VjF,F$F$(0),24;F$(1),24;F$(2),24;F$(3::2:"MODIFY WHICH FIELD?"RgX%1:W%1:45:54:W%0:E1182:E:1:" ":E:hF$(8),T%(8),H%(8),M$(8),L1%(9):K%0:D1%800:Y%801: 24,1,NAME 1,24,3,NAME 2,24,5,STREET,13,7,CITY,2,9,STATE,9,11,ZIPCODE,12,13,PHONE,10,15,COMMENT,3,17,CODE,21i ";::" OF ";K%:C%10:F%1:5:._C1%İ128P`22:"END(Y/N)":44:A$"Y"ĀYa107b::Q08:12Q:3:M$(Q);":":Qc:34,19:N1%0Ģ19:25:"RECORD # "K%1:15:L$""Ė(20((L$)2)):L$de1::Q19:2Q1:Q:Q::f:::A$"Y"ıYR%0ė:98IZ:21:"SELECT ADDTIONAL FIELD";:45:Q%C:V[R%1:93g]::C0:250 ^::10:2::38);:E19:2:" ";:40:" ";:E:2:39):::8:"PRESS ESC. TO STOP PRINTOUT":34,10:32,2:33,37:35,18:8:12:"RECORD ";::"1 %0N1%1:56:CA%:(D1%)K%82GVE1%1B$" "B$:(B$)T%(C)181W::10:8:"NO MORE RECORDS FOUND IN":18(K$)2:K$" FILE":43: XQ%0:::" NUMBER OF COPIES (DEFAULT=1)?";:255:P%(A$)::21:"PRINT AN ADDITIONAL FIELD (Y/N)?":44:1%C:N$A$:45:KC:E1%4:77AON$B$:SR%1:RN%155,160,165,160^P::" SEARCHING ":iQD1%,0RL,F$(C)B$:S,F$(C),(D1%)1:(D1%)1(D1%)K%86SA(D1%):E1%2įG,A:C$F$(K)82TA%C:SP%R%1:F%1:94:CA%:(D1%)K%82 USPO FIELDS WHICH SEARCH OPTION?":Z%3:46:E1%D%:98:19:958::21:R%1:"SEARCH WHICH FIELD?":45M:21:"ENTER SEARCH KEY":"FOR ";M$(C);" FIELD.":E%T%(C):U%14:25:B$A$:E1%4CF1%:B$N$:L,F$(K)A$:C$F$(K):79NE1%3ė:"SECOND FIELD":F45:B%(I)C:B%(I1)C:B%(I2)C:II::15:" SORTING ":::7:E(K%2660):"ALLOW APPROXIMATELY ";E;" SECONDS":X,F$(B%(1)),F$(B%(2)),F$(B%(3)):107fL12:1:958:" 1)..SEARCH FOR A SUBSTRING 2)..SEARCH FOR ONE FIELD 3)..SEARCH FOR TWST TO PRINTER 4)..ROSTER LIST TO PRINTER WHICH?";:Z%4:46:D%1G%1:71jFM%1:D%3P%1:F%1sG310!H215:14:958::" SORT BY 1, 2, OR 3 FIELDS?":Z%3:46::98:B%(1)1:B%(2)1:B%(3)1:I1D%:20I:1I:"SELECT SORT FIELD # ";I:#>AK%āEA1K%:G,E:P,E1:E`?K%K%1:AA1:C1%(D1%):Y%,K%:D1%,C1%(C1%0):C1%1:r@(A$)1357xABN1%1:10:250C56:AA1:AK%167D107QE8:250:L%1:10:958:" 1)..QUICK LIST 2)..FULL LIST 3)..FULL LI"E = EDIT ":25:"D = DELETE ":25:"P = PRINT LABEL";:SR%Ģ23:2:"SEARCH IN PROGRESS":44:S%A:A$"P"C%21:F%1:R%1:88:AS%:5:R%0:57;A$"E"İ102:AS%:P,A:C1%1:57<A$"D"64=21:"DELETE RECORD(Y/N)?":44:A$"Y"57%1:C1%1:L,F$"":98:C08:54:C:P,K%1:K%K%1:AK%:57:52{6:E%T%(C):AAW%(K%1)(W%0):U%14:25:L,F$(C)A$712C:14:F$(C):841:98:19:34:A;" ":G,A:C08:55:C:X%1b9:25:"RTN=CONTINUE":25:"ESC=RTN TO MENU":25:1D%Z%4623:12:"STARTING A NEW FILE ERASES ALL RECORDS IN MEMORY":E%0:U%1:C9:25:Y%,0:K%0:E%19:19:"ENTER NEW FILE NAME":U%1:25:K$A$4K%214ĉ::10:"WORKING FILE IS FULL (215 RECORDS). PRESS RETURN.":H$:110A5N1%1:X(C):G,K%1:Y%,K%:1:V%2:868:a)K%0ĉ::10:1:"THERE ARE NO RECORDS ON FILE":43:107g*z+E11000:E:,Z%90:46-101:Z%9:46:CD%1:.23:1:A$:D$;:A$(27)107/D%(A$)48:D%15D%D%70Z%50D%35ı 1D%(A$,U%M1%):U%:" ";:28M #H$(21)H$(J$,(U%1)M1%,1):H$""H$(32)q $U%M1%A$"":A$H$:U%U%1:28 %U%M1%I$(A$,((U%1)(M1%))1) &U%(E%M1%1)U%E%M1%:37,V%:U%:" ";:28 'A$I$H$:U%U%1:28#(P,K%1:G,A(A1):A$F$):J$F$(C)/ V%1:U%:H$:H$;:H$(27)107F U%M1%H$":"32X X%3A$K$:c X%40 H$(13)A$(A$,(U%1)M1%(((U%1)M1%)1)):V%2:868: !H$(8)U%U%1:U%M1%1U%M1%:A$"":37,V%1:U%:" ";:28 "U%M1%H$(8)J$K%1C%0:5 e (F$(C))0A$(F$(C),T%(C)J%1,1):A$(32)A$(160)J%J%1:J%T%(C)23k s 22 25:"RTN=CONTINUE":25:"ESC=RTN TO MENU";:L1%(C) M1%U%:A$"":H$"":I$"":V%(37):V%2:U%:I1E%:"'";:I:W%ĢV%1:14:F$(C;:CN%ČCN%< M%ĺ"............................REC. # ";Ae G,A:G%:F$(0);:37:A:AA1:2:6n 400 D$"PR#0":(R%F%)Ĺ33,40: AAB(B0):F%6 L%I%3AK%1I%I%1:6 X%6RN%4Ģ23:7:"RTN TO CONT / ESC TO MENU";:44:AP$;:CN%ČCN% G%Ĺ35,20# h :I%1:16368,0:G%Ģ21:8:"PRESS ESC. TO STOP LIST";:35,20:u AK%21 F%L%0X%1Ĺ33,37:8:19::A;:17:3:: BNL%(ANL%K%2)(K%A1)(ANL%K%1):BB(L%0)(R%0):C%1:F%ĺD$"PR#"SL%:P$#0SL%1:NL%2:LT%28:SK%2:P$"":CN%0:TB%0n"MAXFILES1":12000:40993,24:40994,234:40995,234:104 C%(37):D%(16384):D%155Ĺ16368,0:E%0::34,22:D$"PR#0":23:D%A:C9:26:AD%:::F%X%1Ĺ34,10:35,18:32,2:33,37::D$"PR#"SL%:              I:F$:2:I:107+6D%4300/+@X%1:5:110$"CLOSE":J0:125*107o*::10:"ERROR CODE NUMBER = ";(222):216,0:12:"PRESS RETURN";:43:B$:107*958:::5:"STARTING RECORD NO.(DEFAULT=1)";*E%3:U%1:27:A(A$):A1AK%A1**,D$"PR#"SL%:P$;:CN%ČCN%+1IAK%:G,R"I:A$:D$"WRITEFS2.1,R"I1:A$:IO)D$"WRITEFS2.1,R0":J1:D$"CLOSE":107)K%2ĉ::10:" NOT ENOUGH RECORDS TO SORT":43:107))(222)5225*I(218)(219)256:I123I124Ĺ216,0:D$"CLOSE":D$"OPENFS2.1":D$"WRITE FS2.1":0:D(Y%):X%6A1:94:204\(B$N$:81:C1%ĺD$"BSAVE"K$",A"38642121K%;",L"121K%2:C1%0q(J:K$"":Y%,0:(D$"OPENFS2.1":D$"READFS2.1":J:D$"CLOSE":D$"OPENFS2.1,L20":I1J:D$"READFS2.1,R"I:A$:A$B$KI#)I:KJāIK1J:D$"READFS2.1,1'RN%3C1%ė:128;'K1%1:RN%91,93,94,200,195,200J'RN%6107^'K1%2:200:107'D$"OPEN FS2.1,D"K1%:D$"READ FS2.1":I:D$"CLOSE":I0ı(C1%0:J1I:D$"OPEN FS2.1,L20":D$"READ FS2.1,R"J:K$:D$"CLOSE":D$"BLOAD"K$:Y%,(38143):K%:5:12:" TURN PRINTER ON "::A1'" 1)..PRINT ONE 2)..PRINT FROM 3)..PRINT ALL RECORDS THIS FILE 4)..PRINT ALL FILES DISK 1 5)..PRINT ALL FILES DISK 2 6)..PRINT ALL FILES BOTH DISKS WHICH?":Z%6:46:RN%D%:RN%4İ4ENT FILE ONLY 2)..ALL FILES DISK 1 3)..ALL FILES DISK 2 4)..ALL FILES BOTH DISKS SELECT SEARCH RANGE":Z%4:46:RN%D%:RN%1C1%İ128%RN%1İ41%76%80:107%K1%1:200:RN%2107%K1%2:200:107%&X%6:34,18:88:::$;",D";K1%:210$::10:6::"RECORDS ADDED TO OR MODIFIED"::::3:"SAVE TO DISK BEFORE CONTINUING (Y/N)":44:A$"N"ġ:110$$12:958:" 1)..DISPLAY RESULTS 2)..PRINT LABELS":Z%2:46:D%2SP%1%12:958:" 1)..CURR:I:D$"CLOSE":FL%107q#}D$"OPENFS2.1,L20":D$"WRITE FS2.1,R"J1:K$:D$"WRITE FS2.1,R0":J1:D$"CLOSE":107#~:" DELETE ";A$;" FILE (Y/N)?":B$A$:44:A$"Y"110$16:958:18:14(B$)2::" DELETING ";B$;" "::1:868:3:D$"DELETE";B41:16:958:K$A$:18:14(A$)2::" SAVING ";A$;" "::38143,K%:D$"BSAVE";A$",D";K1%;",A";38142K%(F$);",L";K%(F$)2:D$"OPENFS2.1":D$"READFS2.1":J:D$"CLOSE"#|C1%0:FL%0:JĺD$"OPENFS2.1,L20":I1J:D$"READ FS2.1,R"I:A$:FL%FL%(A$K$)N FOR CATALOG)":K$""ĺ"PRESS ':' FOR FILE ";K$z!x::37,(37)2:E%19:U%15:C8:27:A$""ė:D$"CATALOG,D";K1%:119!yD%122,123,126!z16:958:K$A$:18:14(A$)2::" LOADING ";A$;" "::C1%0:D$"BLOAD";A$;",D";K1%:Y%,(38143):110"{ ":D%3Ģ17:13:"DELETE"f tD%4ĉ::936:D$"CATALOG,D";K1%:::10:"PRESS RETURN"::A$::107 uD%2Ģ17:13:"SAVE" v:D%1C1%ĺ"SAVE MODIFIED WORKING FILE FIRST (Y/N)?":44:D%1:19:868:A$"Y"D%2:1171!w:" INPUT FILE NAME (RETUR%qD%51,52,69,66,132,72,114,170,95zrX%3:16:958:17:5:"DISK DRIVE 1 OR 2 (DEFAULT=1)?":44:K1%D%:K1%2K1%1 s17:868:" 1)..LOAD 2)..SAVE 3)..DELETE 4)..CATALOG SELECT WHICH?":Z%4:46:17:956:17::" READY TO LOAD NEW FILE 2)...ADD RECORDS 3)...LIST 4)...EDIT 5)...SEARCH 6)...SORT 7)...DISK ACCESS 8)...PRINT LABELS 9)...TERMINATE"p22:17:"RECORDS IN FILE ";::K%::20(K$)1:"CURRENT FILE IS ";::K$::22:1:"WHICH?";:Z%9:46:D%3D%4D%6İ41M$(I):I:L1%(9)(kD$:D$"PR#0":1093l:108Dm216,0:220nK%(Y%):SP%0:N1%0:G%0:SR%0:X%0:Q%0:M%0:RN%0:C%0:F%0:R%0:W%0:P%1:L%0:::C1%Ğ:21:1:" RECORDS HAVE BEEN MODIFIED ":~o1:10:"MAIN MENU 1)...START A 3:"BY CHRISTOPHER ANSON & ROBERT CLARDY":43:D$(4):23:" COPYRIGHT 1979 BY SYNERGISTIC SOFTWARE":D$"BLOADMLFILES,A$9500,D1":1013,76:1014,0:1015,149:Y%,0jF,F$F$(0),24;F$(1),24;F$(2),24;F$(3),24;F$(4),12;F$(5),8;F$(6),5:I06:T%(I):L1%(I):gX%1:W%1:45:54:W%0:E1142:E:1:" ":E:hF$(6),T%(6),H%(6),M$(6),L1%(9):K%0:D1%800:Y%801: 24,1,LINE 1,24,3,LINE 2,24,5,LINE 3,24,7,LINE 4,12,9,LINE 5,8,11,OTHER,5,13,CODE,21i::8:4:"MAILING LIST DATABASE-VERSION 2.1":11:_C1%İ1280`22:"END(Y/N)":44:A$"Y"Ā9a107`b::Q06:12Q:3:M$(Q);":":Qc:34,19:N1%0Ģ19:25:"RECORD # "K%1:15:L$""Ė(20((L$)2)):L$de1::Q17:2Q1:Q:Q::f:::::2:"MODIFY WHICH FIELD?"221:"SELECT ADDTIONAL FIELD";:45:Q%C:6[R%1:93G]::C9:250^::10:2::38);:E19:2:" ";:40:" ";:E:2:39):::8:"PRESS ESC. TO STOP PRINTOUT":34,10:32,2:33,37:35,18:8:12:"RECORD ";::"1 ";::" OF ";K%:C%10:F%1:5:'VE1%1B$" "B$:(B$)T%(C)181oW::10:8:"NO MORE RECORDS FOUND IN":18(K$)2:K$" FILE":43:XQ%0:::" NUMBER OF COPIES (DEFAULT=1)?";:255:P%(A$)::21:"PRINT AN ADDITIONAL FIELD (Y/N)?":44:A$"Y"ıYR%0ė:98)Z:N$B$:SR%1:RN%155,160,165,160>P::" SEARCHING ":IQD1%,0RL,F$(C)B$:S,F$(C),(D1%)1:(D1%)1(D1%)K%86SA(D1%):E1%2įG,A:C$F$(K)82TA%C:SP%R%1:F%1:94:CA%:(D1%)K%82USP%0N1%1:56:CA%:(D1%)K%82?":Z%3:46:E1%D%:98:19:958::21:R%1:"SEARCH WHICH FIELD?":45M:21:"ENTER SEARCH KEY":"FOR ";M$(C);" FIELD.":E%T%(C):U%14:25:B$A$:E1%4CF1%:B$N$:L,F$(K)A$:C$F$(K):79NE1%3ė:"SECOND FIELD":F1%C:N$A$:45:KC:E1%4:77!OIzI::15:" SORTING ":::7:E(K%2660):"ALLOW APPROXIMATELY ";E;" SECONDS":X,F$(B%(1)),F$(B%(2)),F$(B%(3)):107FL12:1:958:" 1)..SEARCH FOR A SUBSTRING 2)..SEARCH FOR ONE FIELD 3)..SEARCH FOR TWO FIELDS WHICH SEARCH OPTIONT TO PRINTER WHICH?";:Z%4:46:D%1G%1:71JFM%1:D%3P%1:F%1SG310H215:14:958::" SORT BY 1, 2, OR 3 FIELDS?":Z%3:46::98:B%(1)1:B%(2)1:B%(3)1:I1D%:20I:1I:"SELECT SORT FIELD # ";I:45:B%(I)C:B%(I1)C:B%(I2)C::E@?K%K%1:AA1:C1%(D1%):Y%,K%:D1%,C1%(C1%0):C1%1:R@(A$)1357XAkBN1%1:10:250C56:AA1:AK%167D1071E8:250:L%1:10:958:" 1)..QUICK LIST 2)..FULL LIST 3)..FULL LIST TO PRINTER 4)..ROSTER LISTE ":25:"P = PRINT LABEL";:SR%Ģ23:2:"SEARCH IN PROGRESS"|:44:S%A:A$"P"C%21:F%1:R%1:88:AS%:5:R%0:57;A$"E"İ102:AS%:P,A:C1%1:57<A$"D"64=21:"DELETE RECORD(Y/N)?":44:A$"Y"57>AK%āEA1K%:G,E:P,E14:C:P,K%1:K%K%1:AK%:57:52[6:E%T%(C):AAW%(K%1)(W%0):U%14:25:L,F$(C)A$s712C:14:F$(C):841:98:19:34:A;" ":G,A:C06:55:C:X%1B9:25:"RTN=CONTINUE":25:"ESC=RTN TO MENU":25:"E = EDIT ":25:"D = DELETARTING A NEW FILE ERASES ALL RECORDS IN MEMORY":E%0:U%1:C9:25:Y%,0:K%0:E%19:19:"ENTER NEW FILE NAME":U%1:25:K$A$4K%214ĉ::10:"WORKING FILE IS FULL (215 RECORDS). PRESS RETURN.":H$:110!5N1%1:X%1:C1%1:L,F$"":98:C06:58:A)K%0ĉ::10:1:"THERE ARE NO RECORDS ON FILE":43:107G*Z+E11000:E:h,Z%90:46-101:Z%7:46:CD%1:.23:1:A$:D$;:A$(27)107/D%(A$)48:D%15D%D%70Z%50D%35ı1D%1D%Z%462~3:12:"S$(21)H$(J$,(U%1)M1%,1):H$""H$(32)Q$U%M1%A$"":A$H$:U%U%1:28w%U%M1%I$(A$,((U%1)(M1%))1)&U%(E%M1%1)U%E%M1%:37,V%:U%:" ";:28'A$I$H$:U%U%1:28(P,K%1:G,A(A1):A$F$(C):G,K%1:Y%,K%:1:V%2:86;:H$(27)107& U%M1%H$":"328 X%3A$K$:C X%40 H$(13)A$(A$,(U%1)M1%(((U%1)M1%)1)):V%2:868: !H$(8)U%U%1:U%M1%1U%M1%:A$"":37,V%1:U%:" ";:28 "U%M1%H$(8)J$(A$,U%M1%):U%:" ";:28-#HX%6RN%4Ģ23:7:"RTN TO CONT / ESC TO MENU";:44:AK%1C%0:5K S 22 25:"RTN=CONTINUE":25:"ESC=RTN TO MENU";:L1%(C) M1%U%:A$"":H$"":I$"":V%(37):V%2:U%:I1E%:"'";:I:W%ĢV%1:14:F$(C):J$F$(C) V%1:U%:H$:H$L:36,TB%LLT%:F$(3);:L:^ L0B1:G,AL:36,TB%LLT%:L%ĺF$(4)" "F$(5)" "F$(6);o Q%ĺF$(Q%); L::F%L%0āE1SK%::E F%M%ĺ 2:D D$"PR#0":(R%F%)Ĺ33,40: AAB(B0):F%6 L%I%3AK%1I%I%1:6E ;:CN%ČCN%< M%ĺ"............................REC. # ";Ad G,A:G%ĺF$(0);:37:A:AA1:2:6 D1P%:L0B1:G,AL:36,TB%LLT%:F$(0);:L::L0B1:G,AL:36,TB%LLT%:F$(1);:L::L0B1:G,AL:36,TB%LLT%:F$(2);:L::L0B1:G,AȺP$;:CN%ČCN% G%Ĺ35,20# h :I%1:16368,0:G%Ģ21:8:"PRESS ESC. TO STOP LIST";:35,20:u AK%21 F%L%0X%1Ĺ33,37:8:19::A;:17:3:: BNL%(ANL%K%2)(K%A1)(ANL%K%1):BB(L%0)(R%0):C%1:F%ĺD$"PR#"SL%:P$4#0SL%1:NL%2:LT%28:SK%2:P$"":CN%0:TB%0n"MAXFILES1":12000:40993,24:40994,234:40995,234:104 C%(37):D%(16384):D%155Ĺ16368,0:E%0::34,22:D$"PR#0":23:D%A:C9:26:AD%:::F%X%1Ĺ34,10:35,18:32,2:33,37::D$"PR#"SL%:                 D%(6)12:FD%(7)10:FD%(8)3:;F$(4),2;F$(5),9;F$(6),12;F$(7),10;F$(8),3:H$(0)"NAME 1":H$(1)"NAME 2":H$(2)"ADDRESS 3":H$(3)"CITY":H$(4)"STATE":H$(5)"ZIPCODE":H$(6)"PHONE":H$(7)"COMMENT":H$(8)"CODE":NF%7#INF%9$IFD%(0)24:FD%(1)24:FD%(2)24:FD%(3)13:FD%(4)2:FD%(5)9:F,24;F$(4),12;F$(5),8;F$(6),5:H$(0)"LINE 1":H$(1)"LINE 2":H$(2)"LINE 3":H$(3)"LINE 4":H$(4)"LINE 5":H$(5)"OTHER":H$(6)"CODE":NF%7">IFD%(0)24:FD%(1)24:FD%(2)24:FD%(3)24:FD%(4)12:FD%(5)8:FD%(6)5:#pIF,F$F$(0),24;F$(1),24;F$(2),24;F$(3),13!DHF,F$F$(0),12;F$(1),18;F$(2),25;F$(3),16;F$(4),4;F$(5),10;F$(6),12;F$(7),20;F$(8),4:FIRST NAME,12,LAST NAME,18,STREET,25,CITY,16,STATE,4,ZIPCODE,10,PHONE,12,COMMENT,20,CODE,4:I08:H$(I),FD%(I):I:NF%9:" IF,F$F$(0),24;F$(1),24;F$(2),24;F$(3) DRIVE 1 AND PRESS RETURN.":"";B$::14:" DO NOT TOUCH YOUR APPLE UNTIL INSTRUCTED TO DO SO!!!!!!!":7040 %::8:"THE SORT HAS BEEN COMPLETED." %"REMOVE YOUR NEW DATA DISK FROM "I$ %" AND LABEL IT AS THE "M$" DATA DISK ":!%D$"CLOSE":1<#2000:7900:2220:4120:4480:4320:4600;$4620E$5780$Q%10U%M%P%ė:10:"ALL FILES HAVE BEEN USED AND CONVERTED.":9480$:10:"ENTER MORE FILES (Y/N)??";A$:A$"Y"9380l %" PLEASE PLACE A BLANK, INITIALIZED DISK INTO),R$(5),V%(5),W$(5,4),U$(5,9),F1%(5),FD%(9),H$(9),F$(9)E$",S6,D1,V0":G$",S6,D2,V0":I$",S6,D1,V0": E$ IS THE SLOT,DRIVE,VOLUME OF THE DISK FROM WHICH FILES WILL BE READ. G$ IS A SCRATCH DISK, AND I$ IS THE DISK ON WHICH RESULTS WILL BE STORED. $:D$"CLOSE":NR%,0:E1%0:E2%U%ı.9490D$"OPEN"R$(Y%)",L122"G$:D$"READ"R$(Y%)",R"F1%(Y%):768:A$(A$,1):C$:L,F$A$:B0NF%1:U$(Y%,B)F$(B):B:7E1%0:Y%0:D1%1:J1%0:Z%J1%:A1%J1%:G1%1:H1%2:I1%3:U%0:K1%0:D110000:O26015:B%(5(C1):I0NF%1:U$(C,I)U$(C1,I):I,C5Q%Q%1:ML,(NR%):V$M$"."(C1%):D$;"BSAVE";V$;",A"38142E1%RL%;",L";E1%RL%2;I$:L,F$"":C1RD%:P,C:C:C1%C1%1$D$"OPENFS2."T%",L20":D$"WRITEFS2."T%",R0":C1%1:D$"WRITEFS2."T%",R"C1%1:VCE12:"PROCESSED "E2%" OF "U%" RECORDS":E1%E1%1:E2%E2%1pI0NF%1:L,F$(I)U$(Y%,I):I:P,E1%E2%U%E1%RD%J%İ7440F1%(Y%)F1%(Y%)1:F1%(Y%)(V%(Y%)1)İ7660:'Y%Q%āCY%(Q%1):F1%(C)F1%(C1):V%(C)V%(C1):R$(C)R$ PRESS 'X' TO EXIT PROGRAM.":B$:D$:216,0:6360AB$"X"ĀGsQ%āC1Q%:3C:1:C;".....";R$(C):CyNR%,0:K1Q%:Y%K:7660:KQ%1İ7280:7120Q%0Y%1:7360:716047440pY%1:C2Q%:U$(Y%,B%)U$(C,B%)Y%C",R":D$"BLOAD";R$(C);E$:NR%,(ML)X,F$(B%),F$(B%),F$(B%):12(R$(C))2:"CONVERTING "R$(C)" FILE":O$:K1V%(C):G,K:S$;K1:F$:K:C$:C:S%Q%1:3:6:"ERROR CODE "(222)" IN LINE ";(218)(219)256" CORECT CONDITION AND PRESS RETURN.ITIONAL FILES OR TO BEGIN THE MERGE PROCESS."" PLACE A BLANK, INITIALIZED DISKETTE IN DRIVE 2";:" AND PRESS RETURN.";A$:CS%Q%::12:13(R$(C))2$"SORTING "R$(C)" FILE":O$D$"OPEN"R$(C)",L"(RL%1)G$:C$D$"CLOSE":S$D$"WRITE"R$(C)VE BEEN CONVERTED":"PRESS RETURN TO CONTINUE":"";B$:MR%S%1:R%R%1X6360.:3:"LEAVE THE DISK IN DRIVE 1 ":" THE FILE WILL BE SORTED AND CONVERTED. FOUR BELLS WILL SOUND UPON COMPLETION. THIS SIGNALS THE SYSTEM IS READY FOR ADDO SORT FILES ALREADY ENTERED":"ENTER 'M' TO ENTER MORE FILES":"ENTER 'X' TO EXIT PROGRAM":"";A$:A$""ıA$"M"I%S%1:IS%Q%:U%U%V%(I):V%(I)0:I:46200A$"X"Ą"QUIT(Y/N)?";A$:A$"Y"9640D56207S%1Q%ė:"ALL FILES HAEPTED FOR SORTING":I1(I%1):I;".....";R$(I):I:V%(Q%)0:Q%I%1:I%I%1"TOTAL NUMBER OF RECORDS ENTERED = ";U%:" ANY ADDITIONAL FILES ENTERED MUST CONTAIN NO MORE THAN ";((RD%J%)P%)U%;" RECORDS IN TOTAL"r" PRESS RETURN T'X' TO EXIT PROGRAM ";A$:A$""ıMA$"X"Ą"QUIT(Y/N)?";A$:A$"Y"9640Y:5260216,0::6:R$(I%);" FILE IS NOT ON THIS DISK OR IS NOT A GOOD FILE. PRESS RETURN.":"";A$:5380I%I%1:4700:9400V|::"THESE FILES HAVE BEEN ACC(U%X%):U%X%(RD%J%)P%55008PU%U%X%:I%Q%5120nxQ%4ĉ::11:"ALL FILES HAVE BEEN USED"::5300::" THERE ARE ";(M%P%)U%;" RECORD LOCATIONS LEFT IN THE SORT FILE "!" PRESS RETURN TO CONVERT THE FILES ENTERED ENTER R$(F%)A$::4880(R%ĭS%1Q%52405:5380I%I%1:10:"PROCESSING "R$(I%)" FILE":R$(I%)""ĺD$"BLOAD";R$(I%);E$:NR%,(ML)(X%(NR%):V%(I%)X%:" CURRENT FILE CONTAINS ";X%;" RECORDS TOTAL RECORDS=";U%X%;" RECORDS LEFT=";(M%P%)R THE CHANGE FOR FILE #";F%:"ENTER 'D' TO DELETE FILE":"";A$:A$""ĺD$"CATALOG,D1":"PRESS RETURN":"";B$::6380:4960tA$"D"Q%14880(A$"D")(Q%1)āHF%Q%1:R$(H)R$(H1):V%(H)V%(H1):H:Q%Q%1:1:"USED ";Q%;" OF 10 FILES":4880:"IS EVERYTHING CORRECT(Y/N)??":"";A$:A$"Y"A$"N"4880N$A$"Y"5080816:958:16:"ENTER THE NUMBER OF THE FILE YOU WISH TO CHANGE(";S%;"-";Q%;")";" (ENTER -1 TO EXIT)":"";A$:F%(A$):F%14880L(F%S%)(F%Q%)4920z`18:"ENTEFILES":R%Ģ1:19:"/USED ";U%;" OF "M%P%;" REC"@Q%44880QQ%0İ6380]Q%Q%118:958:18:"ENTER FILE NAME #";Q%:"";R$(Q%):R$(Q%)""ĺD$"CATALOG"E$:"PRESS RETURN":B$::6380:4800R$(Q%)"F"4720Q%Q%1=:6380:18EASE PLACE THE DISK "; "WITH THE FILES TO BE SORTED IN DRIVE 1.":" CONTINUE(Y/N)";A$:A$"Y"Ą"QUIT(Y/N)";A$:A$"Y"9640\::22:"PRESS RETURN FOR CATALOG":"ENTER 'F' WHEN FINISHED WITH EACH DISK":35,20:34,21p1:"USED ";Q%;" OF 5 $""4480 < Q%0:C15:R$(C)"":C:I%0:R%0:S%1: ::"YOU MAY ENTER UP TO 5 DIFFERENT FILES FROM UP TO 5 DIFFERENT DISKS BUT YOU MUST WORK ON ONE DISK AT A TIME. WHEN YOU ARE FINSIHED WITH THAT ONE THEN MOVE ON TO THE NEXT ONE. PL;M%;" TOTAL # OF FILLER RECORDS PER FILE=";J%;" MAXIMUM # OF FULL RECORDS PER DISK=";M%P% 0" TOTAL # OF NEW FILES=";P%:" IS THIS TO YOUR LIKING?(Y/N)";B$:B$"Y"4320 X ::12:"ENTER THE NAME FOR THE NEW SERIES OF FILES---->";M$:MK%DRL%:M%RD%J%:P%K%RD%::4:P%J%P%RD%P%Ģ10:"TOO MANY FREE SPACES REQUESTED":"PRESS RETURN":B$:4320\ " ****FILE CRITERIA**** TOTAL # OF RECORDS ON DISK=";RD%P%;" TOTAL # OF RECORDS PER FILE=";RD%;" TOTAL # OF REAL RECORDS PER FILE="1:C1;".....";H$(C):CU 958:"SELECT SORT FIELD":A$:H%(A$):H%1H%NF%4240c B%H%1: ::1:"*****FILE FREE SPACE*****":8:"ENTER THE NUMBER OF RECORDS YOU WISH LEFT EMPTY AT THE END OF EACH NEW FILE ";A$:J%(A$):J%04320r :"*****MAIL LIST TYPE*****":6:"1)..MAIL LIST 2.0 2)..MAIL LIST 2.1 3)..MAIL LIST 2.2 ":"";A$:T%(A$):T%1T%32220 RL%121:RD%215:NR%801:ML38143:T%18500,18700,18800:T%T%1: ::1:"*****SELECT SORT FIELD******":C0(NF%1):C3:x:(4)"MAXFILES1":12000:A$"":D$(4):D$"BLOADMLFILES,A$9500,D1":40993,24:40994,234:40995,234:1013,76:1014,0:1015,149:9020B768790:C:B,C:B:162,0,32,117,253,160,2:138,145,105,200,169,0:145,105,200,169,2,145:105,76,57,213:|                   VE MLFILES,A$6000,L$41D" :::"PRESS RETURN TO TERMINATE AND ANY OTHER KEY TO REVIEW THE INSTRUCTIONS.":A$:A$(13)60 :D$:D$"CATALOG":, YOU WILL ALSO NEED THE FILE 'MLFILES'. THIS FILE CONTAINS THE MACHINE LANGUAGE PARTS OF THE PROGRAM." :" 'MLFILES' SHOULD BE SIMPLY BLOADED,THEN BSAVED STARTING AT A$6000 WITH A LENGTH OF L$41D." :"EXAMPLE OF SAVE:"::" BSAIES OF 4 ADJACENT LABLES PROVIDES THE 100 DESIRED LABELS."h:" PRESS ANY KEY TO CONTINUE";:A$:::" FINAL NOTE "o::" IF YOU DO TRANSFER YOUR CUSTOMIZED VERSION OF MAILING LIST DATABASE TO A NEW DISKS WELL AS VERTICALLY."" FOR EXAMPLE, PRINTING 100 COPIES OFYOUR RETURN ADDRESS 4 LABELS ADJACENT COULD BE DONE BY ENTERING YOUR RECORD INTO A BLANK FILE, DUPLICATING IT 3 TIMES, AND PRINTING 25 COPIES OF YOUR";"4 RECORD FILE. 25 COPE LABELS ARE AD- JACENT TO EACH OTHER. IF YOU WISH TO PRINT MANY COPIES OF ONLY ONE LABEL (SUCH AS YOUR OWN RETURN ADDRESS), IT""WOULD BE FASTER AND MORE PAPER EFFICIENTTO HAVE DUPLICATE COPIES OF THAT RECORD PRINTED ADJACENT TO EACH OTHER AEY";:A$::" APPLICATION NOTE ":::" WHEN MULTIPLE COPIES OF LABELS ARE PRINTED AND THE OUTPUT FORMAT IS SET FOR2 OR MORE ADJACENT LABELS, THE DUPLICATE";"LABELS ARE PRINTED VERTICALLY ABOVE EACHOTHER WHILE SUCCESSIV PROGRAM. THE REQUIRED BLOAD SHOULD BE APPENDED TO THE END OF LINE 0.":"AN EXAMPLE WOULD BE:"::"0 SL%=0:NL%=2:LT%=30:SK%=2:P$="(162);(162);":CN%=786 :PRINT CHR$(4);"(162);"BLOAD PRINTDRIVE";(162):" PRESS ANY K$320-$83E).":"2)..SET THE VARIABLE SL% IN LINE 0 TO 0 AND CN% TO THE CALL ADDRESS OF YOUR PRINTER DRIVER ROUTINE (A CALL 786 WOULD REQUIRE ' CN% = 786 ').":T:"3)..THE PRINTER DRIVER ROUTINE MUST BE BLOADED AT THE START OF THE::"I";::"120N";(162)@^:"PRESS ANY KEY":A$:FLAG0700 :" UTILIZING PRINTER DRIVER ROUTINES WITH THE MAILING LIST DATABASE REQUIRES THREE STEPS:"::"1)..USE A PRINTER DRIVER ROUTINE THAT DOES NOT REQUIRE LOCATIONS 800-830 ( (WHERE ";::"I";::" IS":"A CONTROL I). IN THIS CASE, THE VARIABLE'P$'IN LINE 0 SHOULD BE SET AS:"::13:"P$=";(162);J:"I";::"80N";(162);:T:" 120 COLUMN OUTPUT (REQUIRED FOR 4 LABELS ADJACENT) WOULD REQUIRE:"::13:"P$=";(162); YOU WILL NEED TO USE THE P$ VARIABLE."6:" AN EXAMPLE OF THIS VARIABLE'S USE WOULD BE THE REQUIREMENT OF THE APPLE PARALLEL INTERFACE CARD. AFTER THE 'PR#X', A 'PRINT ";::"I";:{@"80N' IS REQUIRED TO":"ALLOW FOR 80 COLUMN OUTPUTBLES(P$ AND CN%) ARE NOT REQUIRED AND SHOULDBE LEFT AT THEIR DEFAULT VALUES.":t" PRESS ANY KEY":A$:700*,:2:" IF YOUR PRINTER REQUIRES EITHER A 'PR#X' OR A 'CALL XXXX' FOLLOWED BY A PRINTER CONTROL MESSAGE TO YOUR PRINTER,:" IF A 'PR#X' IS ALL THAT IS REQUIREDBY YOUR PRINTER AND INTERFACE, THEN THE ONLY PRINTER CONTROL VARIABLE IN LINE 0 THAT SHOULD BE ALTERED IS 'SL%'. IT SHOULD BE SET TO YOUR OWN I/O SLOT NUMBER.":O" THE OTHER PRINTER CONTROL VARIAPRINT MODE CONTROL CHARACTERS. (PARALLEL CARDS, ETC.) 3)...PRINTER REQUIRES A PRINTER DRIVER ROUTINE."5:"4)...BOTH 2 AND 3.";A$:I%(A$):I%1I%4150FLAG0:I%4FLAG1I%170,300,500,300:10THE PRE-";"VIOUS PAGE ARE USED DIFFERENTLY BY THE VARIOUS PRINTER/INTERFACE TYPES. SELECT THE TYPE THAT APPEARS TO MOST CLOSELY MATCH YOUR OWN NEEDS:":5:"1)...PRINTER REQUIRES 'PR#X' ONLY 2)...PRINTER REQUIRES ADDITIONAL EVICES REQUIRE A VARIETY OF DIFFERENT ACTIVATING AND" x"CONTROLLING MECHANISMS. EVERY EFFORT HASBEEN MADE TO PROVIDE A SIMPLE MEANS OF INCORPORATING THESE REQUIREMENTS INTO THE MAILING LIST DATABASE PROGRAM."::" THE VARIABLES DESCRIBED ON N% CALL NUMBER FOR PRINTER DRIVER ROUTINE (DEFAULT=0)"i" TB% TAB TO THE LEFTMOST LAGEL (DEFAULT=0)";9nA$:::10::" PRINTER REQUIREMENTS ":::" VARIOUS TYPES OF PRINTERS AND PRINTER INTERFACE DDEFAULT=28)":" SK% NUMBER OF LINES TO SKIP VERTICALLY BETWEEN 4-LINE LABELS (DEFAULT=2)"Kd" P$ PRINTER CONTROL CHARACTERS. USED WITH PARALLEL INTERFACE CARDS, ETC. (DEFAULT=NULL) CTER DETAIL ON THE REQUIREMENTS OF DIFFERENT TYPES OF PRINTERS, PRESS ANY KEY."P:"VARIABLE";:22:" USE "::" SL% PRINTER I/O SLOT (DEFAULT=1)"~Z" NL% NUMBER OF ADJACENT LABELS (DEFAULT=1) LT% LENGTH OF LABEL (UP. PRESS ANY KEY FOR INSTRUCTIONS.";. 2A$e <::" LABEL PRINTING FORMAT SPECIFICATION ":: ="LINE 0 OF THE MAILING LIST DATABASE PROGRAM CONTAINS ALL OF THE VARIABLES REQUIRED TO FORMAT THE LABEL OUTPUT OF THE PROGRAM."QF"FOR GREAUR OUTPUT FORMAT REQUIREMENTS. SINCE ONLY THE MAILING LIST PROGRAM IS NORMALLY REQUIRED, IT IS";& ("RECOMMENDED THAT ONCE IT HAS BEEN MODIFIED, IT SHOULD BE USED TO 'INIT' A NEW WORKING DISK AND THAT YOUR ORIGINAL DISKETTE BE RETAINED STRICTLY AS A BACKR SORTING A WHOLE" "DISKETTE, A TEXT FILE CONVERSION PROGRAM, A PROGRAM FOR CORRECTING LINE FEED PROBLEMS OF CERTAIN PRINTERS, AND" ""AND THIS GREETING PROGRAM WHICH PROVIDESINSTRUCTIONS FOR MODIFYING LINE 0 OF THE";` #"MAILING LIST TO SUIT YOI2ĺD$"RUN MAILING LIST 2.1"C I3ĺD$"RUN MAILING LIST 2.2"f I4ĺD$"RUN SORT/MERGE INTRO" I5ĺD$"RUN CONVERT-TEXT" I623 :" THIS DISKETTE CONTAINS 6 PROGRAMS: 3 MAILING LIST DATABASES, A SEPARATE SORT/MERGE UTILITY FO ";d "4)...RUN SORT/MERGE UTILITY 5)...RUN CONVERTER PROGRAM":12:"(TEXT MAIL FILES)": 6:"6)...INSTRUCTIONS FOR MODIFYING THE MAILING LIST PROGRAMS WHICH ONE"; 23:10:A$:D$ I(A$):I1ĺD$"RUN MAILING LIST 2.0"  D$(4) :{ 2:10:"MAILING LIST DATABASE"::15:"VERSION 2.0"::2:"BY CHRISTOPHER ANSON & ROBERT CLARDY" 9:6:"1)...RUN MAILING LIST DATABASE 2.0 2)...RUN MAILING LIST DATABASE 2.1 3)...RUN MAILING LIST DATABASE 2.2                  ~**********************8**********************T** COPYRIGHT 1979 ***p** BY SYNERGISTIC ***** SOFTWARE, INC. ***********************************************BER ";(222);" AT LINE ";(218)(219)256:216,0:a4:"ERROR CODE NUMBER ";(222);:216,0:tI11500:I:L**********************V**********************`** FILES CONVERTER **j** BY ROBERT CLARDY **t** & CHRIS ANSON **S NAMED MLFILES"::"INSERT PROPER DISK AND PRESS RETURN":A$:D$:216,0:20eXFLAG2(222)15800}bL%200:FLAG21:120(222)5(222)42Ĺ216,0:D$"CLOSE":D$"OPEN FS2."TYPE%1:D$"WRITE FS2."TYPE%1:0:D$"CLOSE":2103 :T"ERROR CODE NUM10:"THE RECORDS OF TEXT FILE ";::FL$::"HAVE BEEN CONVERTED AND STORED ON DISK #1 IN THE FILE ";::F2$;T%1ĺ"1 & ";F2$;"2";:T%2ĺ" & ";F2$;"3";:T%3ĺ" & ";F2$;"4":L:::"THE DISK IN DRIVE 1 DOES NOT CONTAIN THEREQUIRED ROUTINE2."TYPE%1:T2%:D$"CLOSE":D$"OPENFS2."TYPE%1",L20":T%āI1T%:D$"WRITEFS2."TYPE%1",R"T2%I:F2$(I):I:D$"WRITEFS2."TYPE%1",R0":T2%T%:250D$"WRITE FS2."TYPE%1",R"T2%1:F2$:D$"WRITE FS2."TYPE%1",R0":T2%1D$"CLOSE":800m::N.":A$:D$\K%(801):38143,K%:D$"BSAVE ";F2$;T$;",A";38142K%121;",L";K%1212;",D1"R0ė:10:"REINSERT THE DISK CONTAINING THE TEXT FILES TO BE CONVERTED AND PRESS RETURN.":A$:D$:801,0:110750D$"OPENFS2."TYPE%1:D$"READFS""jTYPE%2įL,F$(0)N$:L,F$(1)E$:L,F$(2)A$:L,F$(3)C$:L,F$(4)P$:L,F$(5)DX$:L,F$(6)DA$:P,I|I:D$"CLOSE"T$"":T%T$(48T%) ::10:"INSERT DISK ON WHICH YOUR NEW FILES WILLBE STORED INTO DRIVE 1 AT THIS TIME AND PRESS RETURC$(C$,(C$)1):143<H062(TYPE%1):L,F$(H)"":HTYPE%1įL,F$(0)FIR$:L,F$(1)N$:L,F$(2)A$:L,F$(3)C$:L,F$(4)S$:L,F$(5)Z$:L,F$(6)P$:L,F$(7)DX$:L,F$(8)DA$:P,ITYPE%2N$FIR$" "N$:C$C$", "S$" "Z$:E$""E$N$:N$,C$,S$,Z$,P$,DA$,DX$,M: FIR$=FIRST NAME, N$=LAST NAME, E$=OPTIONAL FIELD, A$=ADDRESS,C$=CITY, S$=STATE, Z$=ZIP CODE, P$=PHONE, DA$=COMMENT,DX$=CODE, M=NEXT RECORD NUM.TYPE%2ĭ(FIR$,1)" "FIR$(FIR$,(FIR$)1):142TYPE%2ĭ(C$,1)" "OSE"OdL%140:L% = LENGTH OF EACH RECORD IN THE RANDOM ACCESS TEXT FILE.lnJR:R215J215:T%T%1pR216T%T%T%1sRR215xD$"OPEN";FL$;",L";L%;",D1"}I1JKT%:K0KK1D$"READ ";FL$;",R";IK215FIR$,N$,E$,A$ING LIST FILES NOW."vVTYPE%1įF,F$F$(0),12;F$(1),18;F$(2),25;F$(3),16;F$(4),4;F$(5),10;F$(6),12;F$(7),20;F$(8),4WTYPE%2įF,F$F$(0),24;F$(1),24;F$(2),24;F$(3),24;F$(4),12;F$(5),8;F$(6),5ZD$"OPEN ";FL$;",D1"\D$"READ ";FL$:R_D$"CLR CATALOG)? ";F2$4 BF2$""ĺD$"CATALOG,D1":65 C:"DO YOU WISH TO CONVERT TO (1) FIXED FIELD FORMAT (VERSION 2.0) OR (2) FREE FIELD FORMAT (VERSION 2.1)? (PRESS 1 OR 2)";TYPE% DTYPE%1TYPE%267U::10:"CONVERTING MAIL:" PRESS RETURN WHEN READY TO BEGIN."6 2A$:D$< 7 <:"WHAT IS THE NAME OF THE TEXT FILE (PRESS RETURN FOR CATALOG)? ";FL$:FL$""ĺD$"CATALOG,D1":60 A:"WHAT IS THE NAME OF THE FILE YOU WISH THE NEW RECORDS STORED IN (RETURN FOTHAT EVENT, YOU WILL" ."NEED TO CHANGE THE LENGTH VARIABLE L% INLINE NUMBER 100 TO THE VALUE USED IN YOUR FILES. LINE 140 MAY ALSO REQUIRE MODIFICATION IF THE FIELDS OF YOUR TEXT RECORDS ARE NOT IN THE ORDER SPECIFIED IN THE DOCUMENTATION."* /"BE REQUIRED. INSERT THE DISK WITH THE TEXT FILES ON IT INTO DRIVE #1." -" THE ASSUMED LENGTH OF EACH TEXT FILE RECORD IS 140 CHARS. OR 200 CHARS. IF NEITHER OF THESE VALUES ARE CORRECT FOR YOUR FILES, AN ERROR CODE NUMBER 5 WILL OCCUR. IN 1013,76:1014,0:1015,149:800,0:801,0 ::" THE CONVERTER PROGRAM WILL CONVERT EXISTING MAILING LIST TEXT FILES (SUCH AS THOSE USED BY THE APMAIL PROGRAM) INTO FILES USABLE BY THE MAILING LIST DATABASE PROGRAM. ONE DISK DRIVE WILL"J ((4)"MAXFILES 1""12000y ::10:7:"MAILING LIST FILE CONVERTER"::4:"BY ROBERT CLARDY AND CHRIS ANSON"22:"COPYRIGHT 1979 BY SYNERGISTIC SOFTWARE"D$(4)500D$;"BLOAD MLFILES,A$9500,D1"I1500:I600*       305E LOS DOMINOS CA01234 213/465/2145PATIENT AA-12MR. RAYMOND R. THOMPSON TAYLOR MANUFACTURING CO.12345 WEST HOLLYWOOD ST.SANTA MONICA CA01387 213-465-1234V. PRES. A-1 THOMPSON R.F.D. 213 BOX 12 ADLEYVILLE VA45123 415 347 9876TREAS. MP.JOHN JOHNSON 213 MAJOR AVE. N.W. CALGARY, ALBERTA CANADA 2NZ 31A CANADA CLIENT B51ALEXANDER JACKSON, III 4321 S. ARNOLD AVE. APT.P.O. BOX 2198 5221 CENTRLAL AVE. ANDERSONVILLEKS32654 321-198-6578 32-ZZJOSEPH P. STANFORD 121 ALEXANDRIA WAY ST. RUPERT, QUEBEC CANADA 2V5 M2R 221-432-8765VP MKTG. ARLINGTON IRON WORKS ATTN: MARGARETIP ADAMS MASTERSON COMPLEX BARTON AIR FORCE BASE RENTON IL98234 UNIT 32ABEST MRS. PATRICIA ADAMS 12345 S.W. 197TH AVE. APARTMENT 32C BEAULAH MI21055 543-123-5684CLIENT AAAHAROLD P. SMITH DDR. RONALD PATTERSON APPLETON MEDICAL CENTER 9700 MAIN STREET BOYTON OH23986 654-147-0980CAR-VASC1965 JOHN P. JONES, III ABERCROMBIE ENGINEERING 321 AMBER PLACE FULLTON VA21875 432-456-9275ENGINEER EC.MAJOR PHIL 305E LOS DOMINOS, CA 01234 213/465/2145PATIENT AA-12MR. RAYMOND R. THOMPSON TAYLOR MANUFACTURING CO.12345 WEST HOLLYWOOD ST.SANTA MONICA, CA 01387213-465-1234V. PRES.21-34 THOMPSON R.F.D. 213 BOX 12 ADLEYVILLE, VA 45123 415 347 9876TREAS. COMP.JOHN JOHNSON 213 MAJOR AVE. N.W. THE MAYFIELD COMPLEX CALGARY, ALBERTA, CANADA2NZ 31A CLIENT 21-1 ALEXANDER JACKSON, III 4321 S. ARNOLD AVE. APT.P.O. BOX 2198 ANDERSONVILLE, KANSAS 32654 321-198-6578 32-ZZJOSEPH P. STANFORD 121 ALEXANDRIA WAY ST. RUPERT, QUEBEC CANADA 3N5 2V5 221-432-8765VP MKTG. ARLINGTON IRON WORKS ATTN: MARGARETIP ADAMS MASTERSON COMPLEX BARTON AIR FORCE BASE RENTON, ILL. 98234 UNIT 32ABEST MRS. PATRICIA ADAMS 12345 S.W. 197TH AVE. APARTMENT 32C BEAULAH, MICH. 21055 543-123-5684CLIENT AAAAAHAROLD P. SMITH DDR. RONALD PATTERSON APPLETON MEDICAL CENTER 9700 MAIN STREET BOYTON, OHIO 23986 654-147-0980CAR-VASC1965 JOHN P. JONES, III 321 AMBER PLACE FULLTON, VIRGINIA 21875 432-456-9275ENGINEERELEC.MAJOR PHIL COLORADO SPRINGSWI 88888 333-9999 CLIENT 8 MARY LOU ANNSMITH 444 MAIN ST. BOSTON FL 77777 444-8888 EMPLOYEE 6 . INTERSTATE DR. BELLETON MASS45915 432-654-9875BELTON LABORATORY VP2 ZACARIAH JOHANNSON, III R.F.D.21 BOX 213 MISSION RIDGE VT 21990 NONE 2B GEORGE SMITH-BROWN 456 BROADWAY P.O. BOX 4321 DERRYMORE WISC78340 UNLISTED OWNS WESTERN CLARION422*MRS. ALICE FITZ-PATRICK 1900 WEST 8TH AVENUE OLTON PENN78905 UNKNOWN AMERICAN RED CROSS AA-1JOSEPH P. MASTERSON, JR. 1234 S.W SLOACOM 5292 W. MARTINET AMPSON NJ 78208 837/848/8738FRENCH/GERMAN INTERPCOMPALBERT JOHNSON 123 REDFERN DRIVE BOISE ID 74927 281-944-937448K APPLE II+,2 DISKMEMBWILLIAM ANDERSON DCLIFFORD J. JACKSON, JR. P.O. BOX 4921 FT. LARSON GA 78301 746-292-5945EAST COAST PURCHASERVENDJEREMY BLACKSTONE ROUTE 21-ANDERSON LANE ALLEYTON MO 84362 282-584-3927PATIENT 4-E JOHN      ) *+ ė L-# `bc `qr ė`чy(#`bi%dqY'O& jL  Hh"𥉅` 8 !Lט   L-&`&  㗭( х`8"Ɔ  !٩ `XL d   w ՗() ė ܗ*+ L- aqi # `8"``abc`deqr`#%`#'` # ` ߅` d #ȱPȱQ# P Ъ {$0Lvݩ {ڥ##ȱȱ` ,LL Lޕ`PQP&Q Pm"PQ8PQ`Sq d ɚLޕHqi  d v  hQȱPP`Fq d ߅PȩQ L a 抠ȥPȩePdPȥQ ;~ ˥P" ʝ`G! d n!( "`P* d n!!Lޕ! "`L P`Lޢ5LRL #IePPLϕ27)ĺD$"LOAD MERGE 2":6 A$(13)ĺD$"RUN MERGE 2"< 1 AND 2 RESPECTIVELY." n:" IF YOU DO NOT HAVE YOUR DISK DRIVESIN THESE LOCATIONS, HALT THE PROGRAM AT THIS TIME AND MODIFY LINE 7930 OF THE MERGE PROGRAM AS REQUIRED. PRESS RETURN TO CONTINUE, ESC TO MODIFY THE MERGE PROGRAM." xA$:D$:A$( THEY WILL BE PRESORTED,TEMPORARILY SAVED TO A BLANK DISK, THEN MERGED ONTO A FINAL DISK. THE RESULTANT FILES WILL BE GIVEN A NEW NAME. " i" THE PROGRAM REQUIRES THE USE OF TWO DISK DRIVES. THE PROGRAM ASSUMES THAT THEY ARE IN SLOT 6, DRIVES =  D$(4)d::3:"MAILING LIST DATABASE SORT/MERGE UTILITY":6:" THE SORT/MERGE UTILITY IS PROVIDED TO ENABLE THE USER TO SORT ONE ENTIRE DISK OF DATA FILES SIMULTANEOUSLY. THE" e"FILES TO BE SORTED MAY BE SELECTED FROM DIFFERENT DISKS.ĠǠԠԠ̺ԠƠƥĠ̥ΠҠŠϠ˥ԠҤԠōƠƥĠͥΠԠҤˠǠԠŠǠԠź±ԢҠ͠ӠΠĢ ĠǠԠԠ̺ԠƠƥĠ̥ΠҠŠϠ˥ԠҤԠōƠƥĠͥΠԠҤˠǠԠŠǠԠź±ԢҠ͠ӠΠĢ ĠǠԠԠ̺ԠƠƥĠ̥ΠҠŠϠ˥ԠҤԠōˠǠԠŠǠԠź±ԢҠ͠ӠΠĢz#     ϮŲ ԭԠ ՠ Š ǠԠ% ǠԠ%ǠԠ&ز ز ز ԯŠϠӠϮŲϮŲ