' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-( p Ұ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` F d£֠Ԡz# u`'' *** "HOME SUBR" ****':HM03'(1)'ML1211:(ML):" ";:(25ML):" ";:'HM1ı':HM1:10005 **< >*** TOWCOM --- ***< >* THE ONED OF REC.S X MATCH FOUND ***:  MAIN SUBR ERROR ***Q(# ****************h-# *** END ***2# ****************4# ONERR GOTO 07#10000:::"BYE":1010,191:1011,157:2043,255:1012,56:214,09# NEW:FP:END' *****************'' *** "HOME SUBR" ****':HM03'(1)'ML1211:(ML):" ";:(25ML):" ";:'HM1ı':HM1:10005 **< >*** TOWCOM --- ***< >* THE ONED OF REC.S X MATCH FOUND ***:  MAIN SUBR ERROR ***Q(# ****************h-# *** END ***2# ****************4# ONERR GOTO 07#10000:::"BYE":1010,191:1011,157:2043,255:1012,56:214,09# NEW:FP:END' *****************'' *** "HOME SUBR" ****':HM03'(1)'ML1211:(ML):" ";:(25ML):" ";:'HM1ı':HM1:10005 **< >*** TOWCOM --- ***< >* THE ONED OF REC.S X MATCH FOUND ***:  MAIN SUBR ERROR ***Q(# ****************h-# *** END ***2# ****************4# ONERR GOTO 07#10000:::"BYE":1010,191:1011,157:2043,255:1012,56:214,09# NEW:FP:END' *****************CONSIST OF ONLY NUMBER AND/OR LETTERS ... ":ZC11000::345PCR$(IN$,1,1)nD$;"OPENT0.";CR$;",D";DRD$;"READT0.";CR$;",R0":NR500RN1NR: ALL RECORDSD$;"READT0.";CR$;",R";RN:RE$RE$IN$600300  ENCONSIST OF ONLY NUMBER AND/OR LETTERS ... ":ZC11000::345PCR$(IN$,1,1)nD$;"OPENT0.";CR$;",D";DRD$;"READT0.";CR$;",R0":NR500RN1NR: ALL RECORDSD$;"READT0.";CR$;",R";RN:RE$RE$IN$600300  ENCONSIST OF ONLY NUMBER AND/OR LETTERS ... ":ZC11000::345PCR$(IN$,1,1)nD$;"OPENT0.";CR$;",D";DRD$;"READT0.";CR$;",R0":NR500RN1NR: ALL RECORDSD$;"READT0.";CR$;",R";RN:RE$RE$IN$600300  ENISK ..."_360,cD$;"VERIFYT0.A,D";DRqdDT1:(20):(3):" ":364zh335l800m(9):(16):"";IN$rZC1(IN$):(IN$,ZC,1)" "380sw385=|(20):"YOUR INPUTS MUST BEGIN WITH AND > TO CONTINUE OR <";::"ESC";::"> TO ESCAPE ";:RE$YVT912:(VT):" "::(9):(5):"YOUR WORD: ____________________":(16):(2):"MY RESPONSE:"\DT1ī364^(20):(3)::"PLEASE WAIT";::": CHECKING DISK ..."_360,cD$;"VERIFYT0.A,D";DRqdDT1:(20):(3):" ":364zh335l800m(9):(16):"";IN$rZC1(IN$):(IN$,ZC,1)" "380sw385=|(20):"YOUR INPUTS MUST BEGIN WITH AND > TO CONTINUE OR <";::"ESC";::"> TO ESCAPE ";:RE$YVT912:(VT):" "::(9):(5):"YOUR WORD: ____________________":(16):(2):"MY RESPONSE:"\DT1ī364^(20):(3)::"PLEASE WAIT";::": CHECKING DISK ..."_360,cD$;"VERIFYT0.A,D";DRqdDT1:(20):(3):" ":364zh335l800m(9):(16):"";IN$rZC1(IN$):(IN$,ZC,1)" "380sw385=|(20):"YOUR INPUTS MUST BEGIN WITH AND > TO CONTINUE OR <";::"ESC";::"> TO ESCAPE ";:RE$YVT912:(VT):" "::(9):(5):"YOUR WORD: ____________________":(16):(2):"MY RESPONSE:"\DT1ī364^(20):(3)::"PLEASE WAIT";::": CHECKING DONE IN."TJ(20):(2):"PRESS <";::"RETURN";::"> TO BEGIN CONVERSATION ";:RE$OVT920:(VT):" "::SS(SS%):SS(SS%)6T(10):"PUT THE DATA DISK IN DRIVE ";::DR;::" AND PRESS <";::"RETURN";::"ONE IN."TJ(20):(2):"PRESS <";::"RETURN";::"> TO BEGIN CONVERSATION ";:RE$OVT920:(VT):" "::SS(SS%):SS(SS%)6T(10):"PUT THE DATA DISK IN DRIVE ";::DR;::" AND PRESS <";::"RETURN";::"ONE IN."TJ(20):(2):"PRESS <";::"RETURN";::"> TO BEGIN CONVERSATION ";:RE$OVT920:(VT):" "::SS(SS%):SS(SS%)6T(10):"PUT THE DATA DISK IN DRIVE ";::DR;::" AND PRESS <";::"RETURN";::"*********:;10000:(3):(11)::"TALKING WITH TOWCOM":Y@(10):(3):"INSTRUCTONS:"E(12):(2):"ALL YOU DO IS TYPE IN SINGLE WORDS, AND I WILL THEN RESPOND AS WELL AS I CAN. IF I DO NOT KNOW A GOOD REPLY, THEN I WILL ASK YOU TO TYPE z#???????????     Ұ԰ð͠͠ϠȠҮ󠠠԰ð͠ՠԠ ԰ð͠ղZC$"|/-\"\ 7WE1(WE$):ZC1(ZC$):(1):(WE):(ZC$,ZC,1)::(1):(WE):(WE$,WE,1): <XC018:ZC1(ZC$):(1):(WE1):(ZC$,ZC,1):: A(1):(WE1):" ":(4);"RUNT0WC0M" WWC0M" # POKE 214,128 & POKE 1012,0 :(4);"NOMONC,I,O"L::FR(0):-::255:WE$" WELCOME TO TOWCOM -- THE ONE-WORD COMMUNICATIONS PROGRAM. ALL YOU DO IS TYPE IN SINGLE WORDS AND I'LL DO THE REST. SOUND FUN ?? IT IS ...." 2   - WORD *<% >* COMMUNICATIONS *<@ >* PROGRAM ... BY *<[  >* TIM R. GARRETT *<v  >* OF *<  >* TRI-GEM , INC. *<  >* (C) 1984 USA *<  >******************<  X^^^^^^^^^^^^^^^^^^X3  02D$(4):SS%16336:2043,0:DR0DR1Y:(4);"NOMONC,I,O":(4);"CLOSE" POKE 1010,102 & POKE 1011,213 & POKE 1012,112 & POKE 214,128 XVVVVVVVVVVVVVVVVVVX >******************< >*** TOWCOM --- ***< >* THE ONE !  UNICATION PROCESS"3 -(14):(2):"4. QUIT TOWCOM"z 2(17):(7):"SELECTION: ";:RE$:(RE$)49(RE$)52SS(SS%):50 7(17):(18)::RE$:ZC1150::GT(RE$): <GT100,200,300,9000 d **************** i * INIT D.-DISK * n ********* -- SET UP MAIN MENU --o :10000:255:(2):(7):" TOWCOM -- COMMAND MENU ": (8):(2):"1. FORMAT AN AUXILIARY DATA DISK" #(10):(2):"2. SELECT DATA DISK LOCATION (NOW ";DR;")" ((12):(2):"3. BEGIN THE COMM(13)ī00 (9):(10)::"DO NOT INTERRUPT":6 @ 149^ "":D$;"VERIFYCOMTST,D1" 10000:(10):(2)::"REMOVE THE TOWCOM DISK AND INSERT A ";::" ";::" BLANK";::" DATA DISK IN DRIVE ONE ":T(20):(3):"PRESS T******* oIE1IE0:0+ pRE$(27)ī03 s0d x10000::(3):(7):"INITIALIZE A DATA DISK" }:"":2)"INSERT A ";::"BLANK";::" DISK IN DRIVE ONE AND PRESS TO CONTINUE OR TO GO BACK TO MAIN MENU ... ";:RE$ RE$1"0D$;"WRITET0.";(AS);",R0":0:D$;"CLOSE"](20):(10):"CREATING FILE '";(AS);"'"x:B57A65:B90:155D$;"BSAVECOMTST,A$4000,L$2":D$;"LOCKCOMTST" 10000::(10):(5):SS(SS%):SS(SS%):"INITIALIZATION PROCESS COMPLETED"::ZCO TRY AGAIN OR":(21):(7):" TO RETURN TO MAIN MENU ... ";:RE$:SS(SS%):100^191w ** INIT PROCEED **42344,76:44723,4:46922,96:(20):(10):"FORMATTING DISK":D$;"INITDATA,D1,V000"A48:B57ASAB:D$;"OPENT0.";(AS);",D FIX HOME SUBRO03000::00* ** INIT ERROR **:::"A DISK INITIALIZATION ERROR HAS OCCURRED":::"--> CHECK TO MAKE SURE THAT YOUR NEW DATA DISK IS IN THE SELECTED DRIVE AND THAT THE DISK DRIVE DOOR IS CLOSED.":IEIE116368,0*IE2ğ:03000::00* ** INIT ERROR **:::"A DISK INITIALIZATION ERROR HAS OCCURRED":::"--> CHECK TO MAKE SURE THAT YOUR NEW DATA DISK IS IN THE SELECTED DRIVE AND THAT THE DISK DRIVE DOOR IS CLOSED.":IEIE116368,0*IE2ğ:1"0D$;"WRITET0.";(AS);",R0":0:D$;"CLOSE"](20):(10):"CREATING FILE '";(AS);"'"x:B57A65:B90:155D$;"BSAVECOMTST,A$4000,L$2":D$;"LOCKCOMTST" 10000::(10):(5):SS(SS%):SS(SS%):"INITIALIZATION PROCESS COMPLETED"::ZCO TRY AGAIN OR":(21):(7):" TO RETURN TO MAIN MENU ... ";:RE$:SS(SS%):100^191w ** INIT PROCEED **42344,76:44723,4:46922,96:(20):(10):"FORMATTING DISK":D$;"INITDATA,D1,V000"A48:B57ASAB:D$;"OPENT0.";(AS);",D(13)ī00 (9):(10)::"DO NOT INTERRUPT":6 @ 149^ "":D$;"VERIFYCOMTST,D1" 10000:(10):(2)::"REMOVE THE TOWCOM DISK AND INSERT A ";::" ";::" BLANK";::" DATA DISK IN DRIVE ONE ":T(20):(3):"PRESS T******* oIE1IE0:0+ pRE$(27)ī03 s0d x10000::(3):(7):"INITIALIZE A DATA DISK" }:"":2)"INSERT A ";::"BLANK";::" DISK IN DRIVE ONE AND PRESS TO CONTINUE OR TO GO BACK TO MAIN MENU ... ";:RE$ RE$UNICATION PROCESS"3 -(14):(2):"4. QUIT TOWCOM"z 2(17):(7):"SELECTION: ";:RE$:(RE$)49(RE$)52SS(SS%):50 7(17):(18)::RE$:ZC1150::GT(RE$): <GT100,200,300,9000 d **************** i * INIT D.-DISK * n ********* -- SET UP MAIN MENU --o :10000:255:(2):(7):" TOWCOM -- COMMAND MENU ": (8):(2):"1. FORMAT AN AUXILIARY DATA DISK" #(10):(2):"2. SELECT DATA DISK LOCATION (NOW ";DR;")" ((12):(2):"3. BEGIN THE COMM - WORD *<% >* COMMUNICATIONS *<@ >* PROGRAM ... BY *<[  >* TIM R. GARRETT *<v  >* OF *<  >* TRI-GEM , INC. *<  >* (C) 1984 USA *<  >******************<  X^^^^^^^^^^^^^^^^^^X3  02D$(4):SS%16336:2043,0:DR0DR1Y:(4);"NOMONC,I,O":(4);"CLOSE" POKE 1010,102 & POKE 1011,213 & POKE 1012,112 & POKE 214,128 XVVVVVVVVVVVVVVVVVVX >******************< >*** TOWCOM --- ***< >* THE ONE     "  " I THINK YOU HAVE A FAULTY DATA DISK! "E(8):"PRESS A KEY..."](16384)127ī100p16368,0:197 **************** * D.-DISK LOC. * **************** ONERR GOTO 010000:(5):(3)::"SELECTING DATA DISK LOCATION":@" I THINK YOU HAVE A FAULTY DATA DISK! "E(8):"PRESS A KEY..."](16384)127ī100p16368,0:197 **************** * D.-DISK LOC. * **************** ONERR GOTO 010000:(5):(3)::"SELECTING DATA DISK LOCATION":2(8):(5):"CHOOSE APPROPRIATE DRIVE # ... "(13):(5):"1. DISK DRIVE ONE":(16):(5):"2. DISK DRIVE TWO":(8):(36):RE$RE$"1"RE$"2"SS(SS%):SS(SS%):225DR(RE$):0, ***************1 * MAIN PROGR. * 6 ******2(8):(5):"CHOOSE APPROPRIATE DRIVE # ... "(13):(5):"1. DISK DRIVE ONE":(16):(5):"2. DISK DRIVE TWO":(8):(36):RE$RE$"1"RE$"2"SS(SS%):SS(SS%):225DR(RE$):0, ***************1 * MAIN PROGR. * 6 ******2(8):(5):"CHOOSE APPROPRIATE DRIVE # ... "(13):(5):"1. DISK DRIVE ONE":(16):(5):"2. DISK DRIVE TWO":(8):(36):RE$RE$"1"RE$"2"SS(SS%):SS(SS%):225DR(RE$):0, ***************1 * MAIN PROGR. * 6 ******" I THINK YOU HAVE A FAULTY DATA DISK! "E(8):"PRESS A KEY..."](16384)127ī100p16368,0:197 **************** * D.-DISK LOC. * **************** ONERR GOTO 010000:(5):(3)::"SELECTING DATA DISK LOCATION":03000::00* ** INIT ERROR **:::"A DISK INITIALIZATION ERROR HAS OCCURRED":::"--> CHECK TO MAKE SURE THAT YOUR NEW DATA DISK IS IN THE SELECTED DRIVE AND THAT THE DISK DRIVE DOOR IS CLOSED.":IEIE116368,0*IE2ğ:1"0D$;"WRITET0.";(AS);",R0":0:D$;"CLOSE"](20):(10):"CREATING FILE '";(AS);"'"x:B57A65:B90:155D$;"BSAVECOMTST,A$4000,L$2":D$;"LOCKCOMTST" 10000::(10):(5):SS(SS%):SS(SS%):"INITIALIZATION PROCESS COMPLETED"::ZCO TRY AGAIN OR":(21):(7):" TO RETURN TO MAIN MENU ... ";:RE$:SS(SS%):100^191w ** INIT PROCEED **42344,76:44723,4:46922,96:(20):(10):"FORMATTING DISK":D$;"INITDATA,D1,V000"A48:B57ASAB:D$;"OPENT0.";(AS);",D(13)ī00 (9):(10)::"DO NOT INTERRUPT":6 @ 149^ "":D$;"VERIFYCOMTST,D1" 10000:(10):(2)::"REMOVE THE TOWCOM DISK AND INSERT A ";::" ";::" BLANK";::" DATA DISK IN DRIVE ONE ":T(20):(3):"PRESS T******* oIE1IE0:0+ pRE$(27)ī03 s0d x10000::(3):(7):"INITIALIZE A DATA DISK" }:"":2)"INSERT A ";::"BLANK";::" DISK IN DRIVE ONE AND PRESS TO CONTINUE OR TO GO BACK TO MAIN MENU ... ";:RE$ RE$UNICATION PROCESS"3 -(14):(2):"4. QUIT TOWCOM"z 2(17):(7):"SELECTION: ";:RE$:(RE$)49(RE$)52SS(SS%):50 7(17):(18)::RE$:ZC1150::GT(RE$): <GT100,200,300,9000 d **************** i * INIT D.-DISK * n ********* -- SET UP MAIN MENU --o :10000:255:(2):(7):" TOWCOM -- COMMAND MENU ": (8):(2):"1. FORMAT AN AUXILIARY DATA DISK" #(10):(2):"2. SELECT DATA DISK LOCATION (NOW ";DR;")" ((12):(2):"3. BEGIN THE COMM - WORD *<% >* COMMUNICATIONS *<@ >* PROGRAM ... BY *<[  >* TIM R. GARRETT *<v  >* OF *<  >* TRI-GEM , INC. *<  >* (C) 1984 USA *<  >******************<  X^^^^^^^^^^^^^^^^^^X3  02D$(4):SS%16336:2043,0:DR0DR1Y:(4);"NOMONC,I,O":(4);"CLOSE" POKE 1010,102 & POKE 1011,213 & POKE 1012,112 & POKE 214,128 XVVVVVVVVVVVVVVVVVVX >******************< >*** TOWCOM --- ***< >* THE ONE          *********:;10000:(3):(11)::"TALKING WITH TOWCOM":Y@(10):(3):"INSTRUCTONS:"E(12):(2):"ALL YOU DO IS TYPE IN SINGLE WORDS, AND I WILL THEN RESPOND AS WELL AS I CAN. IF I DO NOT KNOW A GOOD REPLY, THEN I WILL ASK YOU TO TYPE *********:;10000:(3):(11)::"TALKING WITH TOWCOM":Y@(10):(3):"INSTRUCTONS:"E(12):(2):"ALL YOU DO IS TYPE IN SINGLE WORDS, AND I WILL THEN RESPOND AS WELL AS I CAN. IF I DO NOT KNOW A GOOD REPLY, THEN I WILL ASK YOU TO TYPE