);::P25: GB1 B13 2:@G,(128);::/C ** ENEMY UP **/ B29 : BB32:@B32,(128);:@B64,(3,128);:/, ** ENEMY DOWN **/6 B41629 : BB32:@B32,(3,128);:/ ** YOU DIE !!!! **/0:@B,B$;:@B33,C$;0@LB15,BR$;:@LB1532,BR$;0(@A,D$;0R"O2T5CCT15CT5CD#T15DT5DCCO1T7BO2T5C"0 G1 1000::A(13)32:MM1: 1000:300X G1 25::@B,(151)(159)(155);:@B32,(157)(159)(158);1 b G1 25::@B,(159)(159)(159);:@B32,(159)(159)(159);1*gP761sl G1 175::A(12)32:SCSC10:NONO1: NO0 5000 : 1000:1 ** SCOREBOARD **1 M0 1500 : SCEM 20001: 1016: 10202X312:X418:@LK,(2,12716(9X4))30)(2,12716X4);:LKLK32:::LK02A@480,(2,239);: 1534,191: 1535,1912jX5(Y$):X5(X52)256(X53):2@9,"ROBOT COMMAND";2X52@70,"YOU HAVE";SC;"POINTS";2 X52 M1 @134,"YOU HAVE 1 MAN LEFT"; : @134,"YOU HAVE";M;"MEN LEFT";3X530@195,"YOUR SHIELDS ARE AT:";SE;"%";38X53_@291,"PRESS TO CONTINUE";3$ (338)191 X5:KSKS1 : KS0: 10703% KS15 KS0:510: 1060 : 10603.3ܞ:" YOU HAVE LOST!!"4:" YOUR MISSION WAS A COMPLETE FAILURE! YOU HAVE BEEN DEMOTED TO JANITOR OF YOUR BATTALION, AND HAVE BEEN SENTENCED TO A LIFE OF PEELING POTATOES!!!"5O SCHS HSSC::"BUT YOU DID MANAGE TO KILL THE HIGHEST AMOUNT OF ROBOTS IN THE HISTORY OF YOUR BATTALION, SO PLEASE ENTER YOUR INITIALS. (NO MORE THAN FOUR PLEASE!!)": G1 4500:: 15605s"ENTER YOUR INITIALS ";:IN$5 (IN$)4 15805 5 10165@9,"ROBOT COMMAND";5 HS90 @73,"HIGH SCORE:";HS; : @72,"HIGH SCORE:";HS;6 @105,"SCORED BY:";IN$;61"KS0:@201,"ANOTHER GAME?";6S#X3$: X3$"" X5:KSKS16{$ X3$"Y" X3$"N" X5:KSKS16% X3$"Y" KS0:276& X3$"N" YN$"Y" : 65494,0: : X3$"N" :6' KS16 510:KS0: 15716( 15717X,:" YOU HAVE DISGRACED YOUR ENTIRE STARFLEET!! BUT I CAN'T SAY I DIDN'T WARN YOU!!!"76::"DOES ANYONE ELSE WANT TO PLAY":"(BESIDES YOU)";: AG$: AG$"Y" AG$"YES" 27 : : YN$"Y" 65494,0: : 8YО0:@270,A1$;:@27032,A2$;:@27064,A3$;:@203,"BONUS MAN";: G1 2000::MM1:EMEM100: SE75 SESE25: 1015 : 10158 WQ1 : WQ0::" ROBOT COMMAND"8 :" BY STEVE SKRZYNIARZ"9S ‡:" YOU HAVE BEEN INVADED BY ENEMY ROBOTS FROM ANOTHER SOLAR SYSTEMWHO WISH TO CONQUER YOU. YOU MUST DESTROY ALL FIFTY OF THE ROBOTS IN ORDER TO WIN."9 ̇" USE THE UP AND DOWN ARROW KEYS TO MOVE YOUR MAN, THE SPACEBAR TO FIRE, AND THE ENTER KEY TO USE SHIELDS."9 և:" PRESS ANY KEY TO CONTINUE": W$: W$"" 3040 : : " IF YOU ARE HIT IN THE LEGS, FEAR NOT, FOR YOU HAVE PROTECT- IVE COVERINGS TO RESIST THE BLOW. BUT IF YOU GET HIT IN THE HEAD, YOU'RE DEAD!";| " YOU WILL GET AN EXTRA MAN AT EVERY HUNDRED POINTS. ALSO, WHEN YOU USE SHIELDS,YOUR SHIELD'S ENERGY DECREASES BY 2.5 POINTS. IF YOUR SHIELD'S ENERGY REACHES ZERO, YOU CAN'T USE IT ANYMORE."; " AFTER EVERY EXTRA MAN, IF YOUR SHIELD ENERGY IS LESS THAN 75%, YOU WILL GAIN 25% SHIELD ENERGY.";< " PRESS ANY KEY TO CONTINUE";<) W$: W$"" 3080 : :"AFTER HEARING YOU DEFEATED THE ROBOTS, YOU HAVE BEEN PROMOTED TO GENERAL!!">HSSC>s::"PLEASE ENTER YOUR INITIALS, GENERAL, AND YOU CAN ENTER UP TO TEN.";:IN$> (IN$)10 5040>ā 1560>XZ1128:Z225629:Z3Z233>] 7010: 7040>b0:@10,"ROBOT COMMAND";? l@Z1,A1$;:@Z132,A2$;:@Z164,A3$;:@Z2,B$;:@Z3,C$;?2v DL1 75:?8{?Z AG1 4:Z1Z132: 7010:? AGZ21 256 2:@AG,(226);::P25?0:@10,"ROBOT COMMAND";:@Z1,D$;:@Z2,B$;:@Z3,C$;: QZ1 150::"O2T5CCT15CT5CD#T15DT5DCCO1T7BO2T5C"@  AG1 1000::@'': *******************@B': ** ROBOT COMMAND **@]'$: *******************@x'.: BY STEVE SKRZYNIARZ@'8: FOR 16-32K COLOR@'B: COMPUTER WITH COLOR@'L: EXTENDED BASIC@'V: *******************CD#T15DT5DCCO1T7BO2T5C"@  AGH$;" PC= ";:H(16371)256(16372):124:H$8Si"DP= ";:H(16373):122:H$8\j308k@484,"PRESS [ENTER] TO CONTINUE";8l(13)1088m8n"ADDRESS: ";A$:A("&H"A$)8o A0 A65535 "INVALID ADDRESS":1108p9q:6)"TAPE OR DISK ? (T/D)"94rK$:K$"T"DN1:1179EsK$"D"1149NtDN19lu:8)"FILENAME: ";: F$9v:" READY ";:DN1 "DISK"; :"TAPE";9w" - PRESS [ENTER]"9x(13)1209y9zH$(H):(H$)2 H$"0"H$9{:|H$(H):$} (H$)4 H$"0"H$:125:*~1:1179EsK$"D"1149NtDN19lu:8)"FILENAME: ";: F$9v:" READY ";:DN1 "DISK"; :"TAPE";9w" - PRESS [ENTER]"9x(13)1209y9zH$(H):(H$)2 H$"0"H$9{:|H$& 500: 03&##9 J& J&ZZZ-9##9厀 J& J&ZZ&##9............................................................................................'Y$"0,/9"'L 4:P(25)256(26)20:P1(P256):P2PP1256: 245,P1: 246,P2'W P,18' 3:"CAN YOUR COMPUTER HANDLE THE":"HIGH SPEED POKE? (Y/N)";: YN$: YN$"Y" 65495,0: 14 : YN$"N" 14 : 12' P,134'WQ1( P,18: PK510 536: X6: PK,X6:(m 142,4,0,166,132,129,65,36,4,139,64,32,6,129,128,36,2,128,64,167,128,140,6,0,38,233,57(y P,134(A1$(206):A2$(206)(200):A3$(204)(BR$(255):LB(14)32(B$(145)(159)(152):C$(156)(152))/D$(203)(199)(195)(202): 7000: 3000)PM3:SC0:EM100:SE100:NO50)_A64:B349)d A0 110 : (341)247 AA32)n A416 115 : (342)247 AA32)s0*tBRBR1: BR5 BR0:LB(14)32 : @LB15,BR$;:@LB3215,BR$;*u@B,B$;:@B33,C$;*Uv SH1 @A2,(245);:@A34,(245);:@A66,(244);*^wSH0*x@A,A1$;:@A32,A2$;:@A64,A3$;:@LB15,BR$;:@LB1532,LB$;: (338)191 150*y@LB15,BR$;:@LB3215,BR$;*z 200*{ (345)247 140+ } DL1 50:+ 100+ LB15A47 160 : LB1532A47 160 :@A2,(128);:@A34,(128);:@A66,(128);: GA34 A62:@G,(228);:: GA34 A62:@G,(128);:: A61B 600+ A61B32 600+,i@LB15,BR$;:@LB3215,BR$;: SE0 200: 125 : @A2,(245);:@A34,(245);:@A66,(244);:SESE2.5:SH1: 200: 125-@LB15,BR$;:@LB3215,BR$;:@A2,(128);:@A34,(128);:@A66,(128);: GA34 A46:@G,(228);:: GA34 A46:@G,(128);:: GA46 A34 1:@G,(228);:-F GA46 A34:@G,(128);:: 510-]Ȃ *** CREATURE ***-W(6): W1 220 : W2 250 : W3 300 : W4 220-҇@B,B$;:@B33,C$;:-܂ ** ENEMY SHOOT **.ޅ B14LB15 226 : B14LB3215 226.&߇@B,B$;:@B33,C$;. GB1 B29 2:@G,(226);::P25: GB1 B29 2:@G,(128);::@A,A1$;:@A32,A2$;:@A64,A3$;: SH1 : A29B 500 : A41B 500 : /.@B,B$;:@B33,C$;: GB1 B13 2:@G,(226+&' COPYRIGHT (C) T&D SOFTWARE 1983&10:1&W500,11999:C$"DMSLBFER":16373,0&vI12000 12029:D:I,D:&182,63,232,31,138,182,63,245,31,139,182,63,233,246,63,234,190,63,235,16,190,63,237,254,63,239,110,159,63,243'I1203012065:D:I,D:'191,63,235,53,16,191,63,243,183,63,233,247,63,234,16,191,63,237,255,63,239,16,255,63,241,31,168,183,63,232,31,184,183,63,245,57':10)"COCO-MONITOR":(l " THIS UTILITY WILL BE A GREAT AID WHEN WRITING AND DEBUGGING MACHINE LANGUAGE PROGRAMS. YOU WILL BE ABLE TO ENTER, EDIT, LOAD, SAVE, AND EXECUTE YOUR OWN MACHINE LANGUAGE PROGRAMS."(x 107:)X " THE COMMANDS AVAILABLE ARE:"::" D - DISPLAY 8 BYTES OF MEMORY M - MODIFY MEMORY S - SAVE MEMORY TO TAPE/DISK L - LOAD MEMORY FROM TAPE/DISK B - SET BREAKPOINT F - FIX BREAKPOINT") " E - EXECUTE PROGRAM R - DISPLAY MC6809E REGISTERS") 107:*p" WHEN USING THE ISPLAY COM-MAND, PRESS THE UP ARROW TO TO DISPLAY THE NEXT 8 BYTES. PRESS THE DOWN ARROW TO DISPLAY THE PREVIOUS 8 BYTES. EXIT THE DISPLAY MODE BY PRESSING '@'."+M" WHEN IN THE ODIFY MODE, TYPE THE NUMBER YOU WISH TO EN- TER AND [ENTER]. PRESSING [EN- TER] ALONE WILL MOVE YOU TO THE NEXT LOCATION WITHOUT ALTERING ANYTHING. TYPE '@'[ENTER] TO EXIT THE MODIFY MODE."+Y107:,<" A BREAKPOINT IS USED SIMILAR-LY TO A STOP STATEMENT IN BASIC.IT ALLOWS YOU TO PREMATURELY, AND TEMPORARILY, IF YOU WISH, TERMINATE A MACHINE LANGUAGE PROGRAM. THIS IS USUALLY DONE DURING THE DEBUGGING STAGE.","THE PURPOSE OF THIS IS TO EX- AMINE MEMORY LOCATIONS OR CPU REGISTERS WHICH ARE VITAL TO THEPROGRAM SO THAT THE BUG MAY BE DISCOVERED.",107:-" PRESSING 'B' WILL CAUSE THE MONITOR TO ASK FOR THE BREAK- POINT ADDRESS. THIS IS THE ADD- RESS OF THE INSTRUCTION WHICH FOLLOWS THE LAST ONE YOU WISH TO BE EXECUTED. YOU MAY ONLY ONEBREAKPOINT SET AT ANY TIME."-" PRESSING 'F' WILL ELIMINATE THE CURRENT BREAKPOINT.".m" PRESSING 'E' WILL ALLOW YOU TO EXECUTE YOUR PROGRAM. YOU WILL BE ASKED FOR THE START ADDRESS.".y107:/k" PRESSING 'R' WILL DISPLAY THEINTERNAL REGISTERS OF THE MC6809AS THEY HAVE BEEN ALTERED BY YOUR PROGRAM. NOTE: IF YOU DIS- PLAY THE REGISTERS BEFORE RUN- NING YOUR PROGRAM, THE REGISTERSWILL PROBABLY CONTAIN RANDOM 'GARBAGE'."/w107:0" ALL INPUT AND OUTPUT TO THE SCREEN IS DONE IN HEXADECIMAL. ALSO, THE MEMORY AVAILABLE FOR USE BY YOUR PROGRAMS IS 12070 TO 16350."0^" use of any other memory loc- ations could result in a crash of the system."0h1070tBA1:0"COMMAND ? (D/M/S/L/B/F/E/R)"0K$:K$""310 P(C$,K$):P0310! P 34,52,64,69,72,78,80,930"1100#1$A$(A)1$% (A$)4 A$"0"A$:3712&A$;" ";1P'LA7:L65535 LL655361p(IA L:I65535II655361)H$((I))1* (H$)2 H$"0"H$1+H$;" ";::1,K$:K$""441- K$"@"301.K$"^" 501/K$(10)4420AA8:A0 AA655362136252AA8:A65535 AA655362>3362H41102U5A$(A)2r6(A$)4A$"0"A$:5427A$;" ";:H$((A))28(H$)2H$"0"H$29H$;" ";:H2$2:H2$"@"302;H2$""622AA1:A65535 A03H?533_@:"START ";:1103ASAA:"END ";:110:EAA:"TRANSFER ";:110:TAA3B1133C DN1 M F$,SA,EA,TA :M F$,SA,EA,TA3D303E1133FDN1 M F$ : M F$4G304 H"BREAKPOINT ";:110:BAA4:I"BREAKPOINT SET @ ";4HJA$(A$)4hK (A$)4 A$"0"A$:754pLA$4yM304NBA1:"BREAKPOINT FIXED"4O304P"EXECUTE ";:1104Q16371,(A256)4R16372,A(A256)2564S BA1 865TB1(BA):B2(BA1):B3(BA2)5@UBA,&HBD:BA1,&H2E:BA2,&HFE5KV140005iWH(16371)256(16372)5XHH3:16371,(H256):16372,H(H256)2565Y BA1 925ZBA,B1:BA1,B2:BA2,B36 [ BA(16371)256(16372) "PROGRAM HALTED BY BREAKPOINT"6\306x]"A= ";:H(16361):122:H$;" B= ";:H(16362):122:H$;" CC=";:H(16360):122:H$;"=";6^ H 128 "E";6_ H 64 "F";6` H 32 "H";6a H 16 "I";6b H 8 "N";6c H 4 "Z";7d H 2 "V";7e H 1 "C";7f7g"D= ";:H(16361)256(16362):124:H$;" X= ";:H(16363)256(16364):124:H$;" Y= ";:H(16365)256(16366):124:H$80h"U= ";:H(16367)256(16368):124:H$;" S= ";:H(16369)256(16370):124: &' COPYRIGHT (C) T&D SOFTWARE 1983&E LIBRARY INDEX DATABASE&O0:1&|4000: A$(100),MT$(100),T$(100),S$(100)&:5)"LIBRARY INDEX DATABASE"']:" THIS PROGRAM WILL HELP YOU KEEP TRACK OF YOUR LIBRARY OF BOOKS AND MAGAZINES. NOTE THAT IT COULD ALSO BE USED TO KEEP TRACK OF VIDEO TAPES OR RECORD COLLECTIONS AS WELL."':" ONCE THE DATA IS ENTERED, IT MAY BE SAVED TO DISK OR TAPE, AND PRINTED ON A PRINTER."'72(! :" ALSO, SPECIFIC ENTRIES MAY BESEARCHED FOR BY AUTHOR,TITLE, ORSUBJECT.":72() L0(= :14)"MENU":) " 1. ENTER DATA FROM KEYBOARD 2. LOAD DATA FROM TAPE/DISK 3. SAVE DATA TO TAPE/DISK 4. DISPLAY ALL ENTRIES 5. SEARCH BY AUTHOR 6. SEARCH BY TITLE 7. SEARCH BY SUBJECT")S " 8. PRINT ALL ENTRIES 9. END PROGRAM")t:8)"YOUR CHOICE ? (1-9)")K$:K$""15)K(K$):K1 K9 15) K 18,33,43,48,51,56,61,66,71*>: L1100 "SORRY, NO MORE ENTRIES MAY BE MADE TO THIS FILE. THE LIMIT OF 100 HAS BEEN REACHED.":72:11*x"TYPE '*END*' FOR AUTHOR'S NAME TO RETURN TO MENU."*LL1::"AUTHOR'S NAME: ";A$(L): A$(L)"*END*" LL1:11*84:MT$(L)T$*:"TITLE: ";T$(L)*:"SUBJECT: ";S$(L)+:"AUTHOR: ";A$(L)+2"MEDIA TYPE: ";MT$(L)+G"TITLE: ";T$(L)+^"SUBJECT: ";S$(L)+:"IS THIS CORRECT ? (Y/N)"+K$:K$"Y"32+K$"N"29+:19+ 18+!75+""I",#DN,F$+##DN,L:I1 L,$#DN,A$(I):#DN,MT$(I):#DN,T$(I):#DN,S$(I),+% DN1 42,M&A$(I)(A$(I),2,(A$(I))2),r'MT$(I)(MT$(I),2,(MT$(I))2),(T$(I)(T$(I),2,(T$(I))2),)S$(I)(S$(I),2,(S$(I))2),*:#DN:11,+75,,"O",#DN,F$,- DN1 #DN,L :#DN,L-k.I1 L:DN1 #DN,A$(I):#DN,MT$(I):#DN,T$(I):#DN,S$(I) :#DN,A$(I):#DN,MT$(I):#DN,T$(I):#DN,S$(I)-{/:#DN:11-0L015-1I1L::"AUTHOR: ";A$(I):"MEDIA TYPE: ";MT$(I):"TITLE: ";T$(I):"SUBJECT: ";S$(I)-272::11-3L015.$4:"AUTHOR'S NAME: ";M$:M$""52.15I1 L.D6 M$A$(I) 93.O7:99.[8L015.z9:"TITLE: ";M$:M$""57.:I1 L.; M$T$(I) 93.<:99.=L015.>:"SUBJECT: ";M$:M$""62.?I1 L.@ M$S$(I) 93.A:99/ BL0 15/2C:" READY PRINTER - PRESS [ENTER]"/;D73/EI1 L:#2,"AUTHOR: ";A$(I):#2,"MEDIA TYPE: ";MT$(I):#2,"TITLE: ";T$(I):#2,"SUBJECT: ";S$(I)/F#2::11/G/H@484,"PRESS [ENTER] TO CONTINUE";/I(13)73/J0K:6)"TAPE OR DISK ? (T/D)"0:LK$:K$"T"DN1:790JMK$"D"760SNDN10qO:8)"FILENAME: ";: F$0P:" READY ";:DN1 "DISK"; :"TAPE";0Q" - PRESS [ENTER]"0R(13)820S1$T:"WHICH TYPE OF MEDIA IS THIS ?":" 1. BOOK":" 2. MAGAZINE":" 3. OTHER"19U" ENTER (1-3)"1MVK$:K$""861iWK(K$):K1 K3 861}X K 89,90,911YT$"BOOK":1ZT$"MAGAZINE":1["WHAT TYPE OF 'OTHER': ";T$:T$""911\1]:"AUTHOR: ";A$(I)2^"MEDIA TYPE: ";MT$(I)2_"TITLE: ";T$(I)22`"SUBJECT: ";S$(I)2;a722Db112tc:"SORRY, THAT ENTRY CANNOT BE FOUND."2d72:11"BOOK":1ZT$"MAGAZINE":1["WHAT TYPE OF 'OTHER': ";T$:T$""911\1]:"AUTHOR: ";A$(I)2^"MEDIA TYPE: " K&' COPYRIGHT (C) T&D SOFTWARE 1983&14:3&`500,15599:A$"F4D8L8U8E4":B$"L4G8F6E8U6"&:HT(27)256(28)700&I16300 16326:D:I,D:' 158,183,48,23,16,142,0,191,198,16,166,136,224,167,132,48,31,90,38,246,48,16,49,63,38,238,57' 359,57'MV16300'/ :12)"ROW-BOAT"' " IN THIS GRAPHIC GAME PROGRAM,YOU MUST USE BOTH RIGHT AND LEFTJOYSTICKS TO CONTROL THE OARS. THE LEFT JOYSTICK WILL CONTROL THE LEFT OAR AND THE RIGHT JOY- STICK WILL CONTROL THE RIGHT OAR."({ " YOU MUST GUIDE YOUR BOAT AROUND LOGS THAT BLOCK YOUR WAY.FOR EVERY SECOND THAT YOU SUR- VIVE, YOU GET 10 POINTS."( " NOTE: IF YOU HIT THE HULL OF YOUR BOAT ON A LOG, THAT BOAT ISSUNK."( 69((X128:Y70)#NB3:S0:@25,"BOATS:":@57,NB:@0,"SCORE:";:@32,S;:HT)+D3)8CT0:F1)AGL5)U0::1,0:HT)u3,1:(64,0)(191,191),,BF)C2:72) GC 1 GL)H(0):V1(1):V2(3))TD050:)H(0):V3(1):V4(3)) V3V1 V4V2 31* V3V1 D5 C3:72:DD1:38*F V4V2 D1 C3:72:DD1:38*O39*\C3:72*u D 33,34,35,36,37*!X188 XX2:38 : 41*"X188 Y0 XX2:YY1:38 :41*#Y1 YY2:38 :41*$X66 Y0 XX2:YY1:38 :41+%X66 XX2:38 :41+#&C2:72+Z' (X,Y1)4 (X2,Y1)4 (X2,Y1)4 61+( 60 4,1:(0,12)(63,24),,BF:SS10:0:@32,S:HT+) GC+* F0 51++CTCT1: CT5 F0:CT0:51+,4,3: R 45,46,47,48,49,2-(64,0)(74,0),:(94,0)(145,0),:(160,0)(191,0),:50,r.(64,0)(84,0),:(104,0)(160,0),:(180,0)(191,0),:50,/(64,0)(100,0),:(120,0)(191,0),:50,0(64,0)(90,0),:(110,0)(191,0),:50-1(64,0)(80,0),:(100,0)(130,0),:(150,0)(191,0),-254-@3CTCT1: CTGL5 F1:CT0:R(5):43-I44,3-_5(64,0)(191,0),-h6 MV-r7YY1-8 Y188 61-9 S100 GL4-: S500 GL3-; S1000 GL2-<23-=I010:(X,Y),I,(4):->NBNB1: NB0 65.6?4,1:(192,12)(255,24),,BF:@25,"BOATS:":@57,NB:HT.S@F1:CT0:X128:Y70:21.rA0::"PLAY AGAIN ? (Y/N)".BK$:K$"Y"9.C K$"N"66.D.E@484,"PRESS [ENTER] TO CONTINUE";.F(13)70.G/H"BM"(X)","(Y)"C"(C): D 73,74,75,76,77/(I"A1 XA$;":/9J"A0 XB$;":/JK"A0 XA$;":/[L"A3 XB$;":/lM"A3 XA$;":IHooo ={@%@=001cZ&S=VH=K`ӺO70100 Z&L &o L&|9 @""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" &':COPYRIGHT (C) T&D SOFTWARE 1986&9 359,57:0,1&u:2048:0:4:@229,"READING DISK DIRECTORY";:&HFF22,8&Ȁ X512 541:A$:X,("&H"A$):X:0512:F(0)&ҌA$(68):Y1:P11:PO4:T247&܀ X311:0,17,X,A$,B$:C$A$(B$,127)'4 N07:A$(Y)(C$,N321,8)"."(C$,N329,3)" "'[R(A$(Y)): R255A$(Y)"":300'A$(Y)A$(Y)((1547N32)48)" "' (1548N32)0 A$(Y)A$(Y)"B" : A$(Y)A$(Y)"A"( R0 (A$(Y),1)"B" ((A$(Y),10,3)"BAS" (A$(Y),10,3)"BIN") A$(Y)"":290(<A$(Y)(A$(Y),12):YY1(F" N,X(q,P2((Y1)10): P2(Y1)10 P2P21(6:6)"COLOR DISK DIRECTORY"(@A$(68F)" USED -"(F)" FREE":(32(A$))2)A$:10)"PAGE";P1;"OF";P2:(JH(P11)101)T XH H9) ^ A$(X)"" :370)/h9);A$(X))5r)C|&HFF22,8)I338 345:I,255::KPO328:529,&H80:A0(K):529,&H8B)E(P11)10PO3*K$:K$"^" PO4 P11 P1P11:PO13:A0(K):310 : K$"^" PO4 A0(K):POPO1:390*y K$(10) PO13 EY1 A0(K):POPO1:390 : K$(10) P1P2 PO13 P1P11:PO4:A0(K):310* K$(13) 450*410*(A$(E),9,1)".":T$(A$(E),12)*Z$ : : @233,"LOADING "(T$,8);+օ (A$(E),"BIN") 359,126:MT$:+: (A$(E),"BAS") 359,126:T$,R+Dꁥ410+ BD,B3,ED,C3,4,0,1F,1,C3,0,E,ED,8D,0,D,A6,84,8B,40,A7,80,AC,8D,0,3,26,F4,39,0,0(A$(E),9,1)".":T$(A$(E),12)*Z$ : : @233,"LOADING "(T$,8);+օ (A$(E),"BIN"x&':COPYRIGHT (C) T&D SOFTWARE 1983&:3:1,1::200&e359,57:HT(27)256(28):HTHT700'"BM5,40C2R235F2R1F2D135BF10U135H10D135L30ND2U1H1U3H1U3H1U3H1U3H1U3H1U3H1U3H1L169G1D3G1D3G1D3G1D3G1D3G1D3G1D3G1D3NR185U2L30U135E2R1E2BR8BD8R219F5D93L229U93E5"'"BM0,180F10R30NH4F2R185H2NR30H2BH6L185BR6BD2NR32F6R32H6BR18BD1NR4F4R4H4BR18BU1NR32F6R32H6BR19BD1NR4F4R4H4BU1BR18NR32F6R32H6"((248,55),2,2:"BM35,182C5NF8BR182NF8":"BM52,168C2E3R3F3D3G3L3H3U3BR128E3R3F3D3G3L3H3U3":(54,168),2,2:(182,168),2,2(:X220:Y32:"C3":74:X20:Y32:74:@40,"T & D SOFTWARE";:@71,"HOLLAND MICHIGAN";:@130,"REPRODUCTION OF ANY OF THE FOLLOWING IS PROHIBITED.":@194,"T & D SOFTWARE SHALL HAVE")b@226,"NO LIABILITY OR RESPONSIB- ILITY TO CUSTOMER WITH RE- SPECT TO ERROR, LOSS, OR DAMAGES CAUSED BY THESE PROGRAMS.") @421,"COCO CASSETTE NO. 14 AUGUST 1983") HT) TD03000:*I ::@160," WELCOME TO ANOTHER COCO-CASS-ETTE COVER PROGRAM. THIS COVER PROGRAM USES THE HIGHTEXT UTIL- ITY FOUND ON THIS COCO-CASSETTE."*_ HT:TD14000:*::::4)"T & D SOFTWARE PRESENTS:"*:"THE MYSTERY OF THE MISSING COCO-CARRIER."* HT*TD14000:*::X100:Y180:"C3":65+ "ONE DAY...":HT+TD13000:+)::59+H"C2BM190,95 R20U10L20D10"+o"ON MY WAY TO THE MAILBOX...":HT+x62+"I FOUND A NOTE IN MY MAILBOX.":HT+TD14000:+::"THE NOTE SAID:":HT:(0,23)(255,179),,B,::" I HAVE KIDNAPPED THE COCO- CARRIER. IF YOU EVER WANT TO SEEHIM AGAIN, PUT $10,000 IN THIS MAILBOX AT NOON TOMORROW. IF ANY POLICE ARE INVOLVED, THE CONSEQUENCES WILL BE SEVERE.",:20)"SIGNED,":17)"THE KIDNAPPER",HT,TD14000:-* ::X100:Y180:"C3":65:"WHAT SHOULD I DO ?":HT-;!TD12000:-x":"I THINK I WILL CONTACT PRIVATE DETECTIVE COCOCLUE."-#HT-$TD13000:-%::(0,0)(100,180),,B.&:" PRIVATE":" DETECTIVE"::" COCOCLUE":" --------"::" NO CASE TOO":"LARGE OR TOO":" SMALL".&'HT.8((90,120),5,4.S)X160:Y180:"C3":65.*@14,"THIS MUST BE THE":@46,"PLACE.":HT.+TD14000:/,::X20:Y180:"C3":65:"C4BM"(X28)","(Y75)"NG10R10NF10U4H4L4G4D4":"C2BM"(X32)","("#%')OAT BASNCOMPTUT1BAS$INDEXDB BASDISKZAPRBAS&COCOMON BAS.ARTIST BAS(DIR BAS MYSTCOVEBAS!{ROWBOAT BASNCOMPTUT1BAS$INDEXDB BASDISKZAPRBAS&COCOMON BAS.ARTIST BAS(ROBOTCOMBASTXTSCRPRBIN*NHIGHTEXTBIN+Y40)"U4R2D4L2U4H4U2E4R2F4D2G4"/:-X150:Y180:"C3":65/.:"PLEASE... YOU GOTTA HELP ME...":HT:(128,50)(170,100),:TD12000::(128,50)(170,100),:(0,0)(255,50),,BF0/:"WHAT SEEMS TO BE THE PROBLEM?":HT:(128,50)(68,100),:TD12000::(128,50)(68,100),0/0(0,0)(255,50),,BF01:"THE COCO-CARRIER HAS BEEN KID- NAPPED. WITHOUT HIM, COCO- CASSETTES WON'T BE DELIVERED IN TIME.":HT02(128,50)(170,100),:TD12000::(128,50)(170,100),:(0,0)(255,50),,BF13:"I SEE YOUR PROBLEM. MY SERVICES ARE AT YOUR DISPOSAL.":HT:(128,50)(68,100),:TD12000::(128,50)(68,100),:(0,0)(255,50),,BF14:"WHAT ARE WE GOING TO DO?":HT:(128,50)(170,100),:TD12000::(128,50)(170,100),:(0,0)(255,50),,BF2d5:"I DON'T KNOW YET. THESE SIT- UATIONS CAN BE VERY DELICATE.":HT:(128,50)(68,100),:TD13000:26::"WILL OUR COCO-CARRIER BE SAVED FROM THE RUTHLESS VILLIAN ?"::"TUNE IN NEXT MONTH TO FIND OUT."::"SAME TIME...":"SAME STATION...":HT3 7TD14000:38:3943-: DRAW MAILBOX3;:"C2":(0,156)(256,156),:(50,172),2:"BM207,155C4U60L28H11R8L8E4F15H15R52D15L16R4D12L4R4D48L4C2"3C1:Y154:X20 90 10:"C3":65:"T250O1C":PA1200:PA:X6063:"C5":65:X4?PA11000:PA:"C4BM188,96D18L8U18": PA11000:PA:4@ DRAW COCO-ROBOT4A(X,Y)(X,Y),5B"BM+0,+0;R16E3R1F3R12U20D20R30E2U2H2L4H4U5D5F4L4G2L12H2L6U1L8H1L10H1L7H1L7G2D3F2D2BU12BR4NG4E3U8"5pC"BM+0,+0H1L5H1L5R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R40U2L45BU2R45"6D"BM+0,+0;H20L48G2F20BR3BU2H16R41F16BL13BU21H1L4H1L4H1L4U32L72D20E1R3E1R3BL6BG2L3G1L3G1L3G1L1G1L1G2L1G3D2F7R30U1H3U1E3U1L22U1E1R3BR24U24R30D24L30"6E"BM+0,+0;E3U18H3F3R24E3G3D18F3H3L24BR5BU8U8R4D8L4BR2BU2R1BR8U6R4D8L4U2BR2R1BD6BL3L6BR21BD9R7BU3L7BU3R7BU3L7BU5U12R8D12L8BU3BR2R3BU4L3"7:F"BM-65,+35;R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1H5L5H1L5H1U6D6L5H1U5D5L5H1U4D4L5H1U3D3L5H1L5H1L5H1L3G1D2F1R1G2D1F2BR32BU12H2U2E2R5G2D2F2L5R12E1H1L4R4E1R1U1H1L4R4"7G"BM+0,+0;L9U2R4F2D1G2BR20BD10R2BR4R2BR4R2BR4R2BR4R2BR4R2BD4L2BL4L2BL4L2BL4L2BL4L2BD4R2BR4R2BR4R11BR4R2BR4R2"7H7I DRAW COCO-CARRIER8WJ(X,Y)(X,Y),:"BM+0,+0;R3U2R5D2L5R7U6L10D6BU6BR3U1L2H2U1R3L7H2U1R4L9H2U1R22D3G3D2R2E3R2E2R2U3H7U1L2G1D2F2H2L2G1D2F2H2L2G1BD17BL6BU5":8kK DRAW CASSETTE8L(X,Y)(X,Y),:"BM+0,+0R3U2R5D2L5R7U6L10D6":Imooo ={@%@=001cZ&S=VH=K`ӺO70100 Z&L &o L&|9 @""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<"&' COPYRIGHT (C) T&D SOFTWARE 1983&10:1&:500&`:3)"GENERAL COMPUTER TUTORIAL"&r13)"PART 1"&:" THIS IS THE START OF A NEW COMPUTER TUTORIAL SERIES WHICH WILL GENERAL APPLICATIONS FOR COMPUTER SYSTEMS."'b" THE TUTORIAL WILL BE FOLLOWEDBY A USEFUL PROGRAM WHICH IS AN EXAMPLE OF WHAT WAS PRESENTED INTHE TUTORIAL."'m52:' " THE SUBJECT OF THE GENERAL COMPUTER TUTORIAL THIS MONTH IS THE DATABASE."' " WHAT IS A DATABASE ?"(; " A DATABASE IS A PROGRAM THAT STORES, RETRIEVES, AND CORRE- LATES INFORMATION."(F 52:), " NOW LET'S SUPPOSE WE HAVE A PROGRAM THAT STORES RECIPES FOR A RESTAURANT. THIS IS A TYPE OF DATABASE. ONCE THE DATA IS EN- TERED, IT CAN BE EDITED, DIS- PLAYED, PRINTED, ETC. BUT, MOST IMPORTANTLY, A SPECIFIC RECIPE")"CAN BE SEARCHED FOR BY NAME, INGREDIENTS USED, PROCESSING, OR EVEN BY A CODE NAME OR NUM- BER. ALSO, IT COULD DISPLAY ALL RECIPES THAT USE A SPECIFIC IN- GREDIENT.")52:*f" A PROGRAM SUCH AS THAT WOULD PROBABLY USE A STRAIGHT-LINE METHOD FOR STORAGE OF RECIPE NAMES AND INGREDIENTS."+&" THAT IS, IF N$(I) CONTAINED THE NAME OF A PARTICULR RECIPE, THEN I$(I,1) TO I$(I,N) WOULD CONTAIN THE INGREDIENTS (NOTE: NIS THE NUMBER OF INGREDIENTS FORTHAT PARTICULAR RECIPE)."+j"THE PROCESSING INSTRUCTIONS WOULD BE CONTAINED IN P$(I)."+s52,\:" NOW LET US EXPLORE ANOTHER TYPE OF DATABASE. THIS TYPE USES A VECTOR METHOD TO CORRE- LATE THE INFORMATION. THE VECTORMETHOD MEANS THAT ALL DISCRETE ELEMENTS ARE PLACED IN AN ARRAY.LET THIS ARRAY BE CALLED E$ AND","IT CONTAINS 10 ELEMENTS (E$(0) THROUGH E$(9)).",52:-" THE NEXT ARRAY IS THE SETS ARRAY CALLED S$. IT CONTAINS 3 SETS (S$(1,0) THROUGH S(3,0)). NOTE THIS ARRAY IS DOUBLE-DIM- ENSIONED, WHERE S$(I,0) IS THE NAME OF THE SET AND S$(I,1) IS THE LIST (ACTUALLY A STRING)"-"OF SINGLE DIGIT POINTERS. EACH SINGLE DIGIT IS A SUBSCRIPT WHICH IS TO BE USED IN THE E$ ARRAY."-52.:" LET'S WORK WITH A SPECIFIC EXAMPLE. SUPPOSE WE HAVE THREE BOXES LABELED A,B, AND C. THERE NAMES ARE REPRESENTED IN THE B$ ARRAY AS FOLLOWS:".10)"B$(1,0)='A'".10)"B$(2,0)='B'".10)"B$(3,0)='C'".52:/" NOW, IN EACH OF THE THREE BOXES ARE THREE COLORED BLOCKS. IN BOX 'A', THE BLOCKS ARE RED, YELLOW, AND GREEN. IN BOX 'B', THE BLOCKS ARE RED, WHITE,AND BLUE. IN BOX 'C', THE BLOCKS AREORANGE, RED, AND BLUE."0& " THE ELEMENTS IN THIS CASE ARETHE COLORED BLOCKS. WE, HOWEVER,NEED ONLY USE THE COLORS."01!52:0^"" THE ELEMENTS ARRAY LOOKS LIKETHIS:"0u#10)"C$(0)='RED'"0$10)"C$(1)='YELLOW'"0%10)"C$(2)='GREEN'"0&10)"C$(3)='WHITE""0'10)"C$(4)='BLUE'"0(10)"C$(5)='ORANGE'"0)52:1c*" NOW THAT WE HAVE DEFINED THE ELEMENT ARRAY, WE CAN BUILD THE POINTER PART OF THE B$ ARRAY."1+" IT WILL LOOK LIKE THIS:"1,10)"B$(1,1)='0,1,2'"1-10)"B$(2,1)='0,3,4'"1.10)"B$(3,1)='5,0,4'"2^/" NOTE THAT COMMAS ARE USED TO SEPERATE THE DIGITS SO THAT THE SINGLE DIGITS CAN BE OBTAINED WITH STRING MANIPULATION.":52:3&0" WITH THIS SYSTEM, MANY QUES- TIONS ABOUT THE BOXES AND COL- ORED BLOCKS CAN BE ANSWERED, SUCH AS: WHAT BOXES CONTAIN THE SPECIFIC COLOR, WHAT COLOR IS PRESENT IN ALL THREE BOXES, ETC."3/15232:@64," TO SUMMARIZE THIS PART OF THE GENERAL COMPUTER TUTORIAL, A DATABASE IS A PROGRAM WHICH STORES INFORMATION AND MAKES IT FLEXIBLY AVAILABLE TO HUMANS FORQUICK, CONVENIENT RETRIEVAL."4]3:" NOW ENTER THE NEXT PROGRAM 'INDEXDB'. THIS IS AN EXAMPLE OF A DATABASE PROGRAM.":44@484,"PRESS [ENTER] TO CONTINUE";45(13)5346RES INFORMATION AND MAKES IT FLEXIBLY AVAILABLE TO HUMANS FORQUICK, CONVENIENT RETRIEVAL."4]3 &' COPYRIGHT (C) T&D SOFTWARE 1983&10:1&2000: G1(68),TY$(3):I03:TY$(I)::BASIC PROGRAM,ASCII DATA FILE,MACHINE CODE,TEXT EDITOR FILE&:10)"DISK ZAPPER"'K:" THIS DISK UTILITY WILL ALLOW YOU DIRECT ACCESS TO DISK SEC- TORS AND OTHER VALUBLE INFORMA- TION WHICH MAY HELP YOU REPAIR A CRASHED DISK."'"warning: when used indescrimin- ately, this program can be very dangerous to the health of your other programs on the diskette."(." FOR TECHNICAL INFORMATION ON THE DISK DRIVE SYSTEM, CONSULT YOUR OWNER'S MANUAL."(796( :" IF YOU HAVEN'T ALREADY DONE SO, INSERT THE DISKETTE WHICH YOU WISH TO WORK ON INTO THE DISK DRIVE."( 96( ::14)"MENU":) " 1. DISPLAY & EDIT A SECTOR 2. PRINT SECTOR ON PRINTER 3. DISPLAY DIRECTORY IN- FORMATION FOR A FILE 4. DISPLAY FILE ALLOCATION TABLE 5. END PROGRAM") :5)"YOUR CHOICE ? (1-5)")K$:K$""14) (K$)1 (K$)5 14* (K$) 17,39,48,86,95*99*1 D,T,S,A$,B$*DI1 256 8*U:JI I7* J128 T$(B$,J128,1) : T$(A$,J,1)*103*"BYTE NUMBER";J1;"= ";N$;" = '";T$;"'"*+1@320," PRESS:":" 'E' TO CHANGE A BYTE 'R' TO GO BACK 8 BYTES 'C' TO CONTINUE"+EK$:K$""26+^ ("ERC",K$)0 26+| ("ERC",K$) 29,34,36+@320,(128," ");+@320,"ENTER THE BYTE NUMBER WHICH YOU WISH TO CHANGE";:BN:BN0 BN255 BN(BN) 29,c@320,(128," ");:@320,"ENTER THE NEW VALUE FOR BYTE NUMBER ";BN;: NV:NV0 NV255 NV(NV) 31, I128 (B$,BN1128,1)(NV) : (A$,BN1,1)(NV),!20," (I8) 1 26,#II8:20,$,% D,T,S,A$,B$,&11,'99- ( D,T,S,A$,B$-3):" READY PRINTER - PRESS [ENTER]"-<*97-K+I1 256-|, I128 T$(B$,I128,1) : T$(A$,I,1)--103-.#2,"BYTE NUMBER";I1;"= ";N$;" = '";T$;"'"-/:11-0-1"WHICH DRIVE (0-3)";D:D0 D3 D(D) 49.2"FILENAME: ";F$.33P1(F$,"/"):P2(F$,".").l4P10 P20 "PLEASE INCLUDE THE EXTENSION.":50.5 P10 FL$(F$,P11):EX$(F$,P11,3):55.6FL$(F$,P21):EX$(F$,P21,3).7 FL$""50.8FL$FL$(8(FL$),32)/9EX$EX$(3(EX$),32)/:S3/,; D,17,S,A$,B$/A (C$,(P1)321,11)FL$EX$ 67/?((C$,(P1)321,1))255 66/@PP1:P8 62/ASS1:S1259/B"THE FILE DOES NOT EXIST.":96:110CE$(C$,(P1)321,16)0DFT$(E$,12,1)0*EAF$(E$,13,1)0AFFG((E$,14,1))0UGLB$(E$,15,2)0^HNG10lIG1(NG)FG0vJGPFG0K D,17,2,A$,B$0LFA$(A$,68)0MG$(FA$,GP1,1):G(G$):G&H43 G255 790NNGNG1:G1(NG)G:GPG:771O:"FILENAME: ";F$1'P:"FILE TYPE: ";TY$((FT$))1aQ"FILE FORMAT: ";: (AF$)255 "ASCII" :"BINARY"1R"GRANULES USED BY FILE:"1SI1 NG:G1(I);::1T961U111V:5)"FILE ALLOCATION TABLE":2W"WHICH DRIVE (0-3)";D:D0 D3 D(D) 872X D,17,2,A$,B$2"Y:SC02eZI1 68:T$(A$,I,1):103:"GRANULE #";I1;" CONTAINS ";N$2[SCSC1:SC14 96:SC0:2\2] SC0 962^112_2`@484,"PRESS [ENTER] TO CONTINUE";2a(13)972b3%c:"DRIVE NUMBER (0-3)";D:D0 D3 D(D) 993`d:"TRACK NUMBER (0-34)";T:T0 T34 T(T) 1003e:"SECTOR NUMBER (1-18)";S:S1 S18 S(S) 1013f3gN$((T$)):PRESS [ENTER] TO CONTINUE";2a(13)972b3%c:"DRIVE NUM&' COPYRIGHT (C) T&D SOFTWARE 1983&.4&q500,14999:99:C$(94)(10)(8)(9)"BCDNOPQS"(12)&:10)"COCO-ARTIST"':" THIS GRAPHICS UTILITY PROGRAMWILL ALLOW YOU TO DRAW PICTURES ON THE HIGH RESOLUTION SCREEN USING POWERFUL KEYBOARD CONTROL COMMANDS."'" ONCE CREATED, A PICTURE MAY BE SAVED TO TAPE OR DISK AND MAYBE LATER LOADED WITH LOADM OR CLOADM."'96:'" HERE ARE THE COMMANDS:":(O " B - CHANGE BACKGROUND COLOR C - CHANGE FOREGROUND COLOR D - USE 'DRAW' SYNTAX TO DRAW N - CHANGE TO NON-DESTRUCTIVE CURSOR"). " O - CHANGE TO DESTRUCTIVE CURSOR P - PAINT AN ENCLOSED AREA Q - QUIT & RETURN TO MENU S - CHANGE COLOR SET [CLEAR] - CLEAR SCREEN TO BACK- GROUND COLOR")7 96) :" THE ARROW KEYS ARE USED TO MOVE THE CURSOR. THEY ARE SELF- REPEATING.") 96):"TO CHANGE THE BACKGROUND COLOR, PRESS 'B' FOLLOWED BY THE COLOR NUMBER AND [ENTER]."*L"TO CHANGE THE FOREGROUND COLOR, PRESS 'C' FOLLOWED BY THE COLOR NUMBER AND [ENTER]."*"TO USE THE 'D' COMMAND, PRESS 'D' FOLLOWED BY THE DRAW COMMANDAS IT WOULD APPEAR IF USING BASIC'S DRAW COMMAND."+O"PRESSING 'N' WILL CAUSE THE CUR-SOR TO BE NON-DESTRUCTIVE, THAT IS, IT WILL NOT DESTROY ANY PARTOF THE PICTURE AS IT IS MOVED."+X96+:"PRESSING 'O' WILL CAUSE THE CUR-SOR TO BE DESTRUCTIVE. THE CUR- SOR WILL NOW CHANGE ALL POINTS IT ENCOUNTERS TO THE CURRENT FOREGROUND COLOR.",o"TO PAINT A SPECIFIC AREA, PRESS 'P' FOLLOWED BY THE COLOR AND BOUNDARY COLOR (SEPERATED BY COMMAS) AND [ENTER].","TO CHANGE THE COLOR SET, PRESS 'S' FOLLOWED BY THE COLOR SET NUMBER AND [ENTER].",96-":"WHICH PMODE DO YOU WISH TO USE -------->";P:P0 P4 P(P) 23-* P-6359,57-A:0,0-S14)"MENU":." 1. CREATE PICTURE 2. SAVE TO TAPE/DISK 3. LOAD FROM TAPE/DISK 4. DISPLAY PICTURE 5. EDIT PICTURE 6. END PROGRAM"..:8)"YOUR CHOICE ? (1-6)".BK$:K$""30._(K$)1 (K$)6 30. (K$) 33,80,84,87,94,95.!M1:T$"":B1:C4:CS0:X128:Y96:N0."B:1,CS.#PP(X,Y).$MM1:M4 M1.%(X,Y,M)/&(X,Y,PP):K$:K$"" T$"" 77/'K$"" 36/0(PC(C$,K$)/G) PC0 T$"":36/y* PC 45,47,49,51,53,57,61,63,64,65,26,72,76/+N1 (X,Y,PP) :(X,Y,C)/,T$K$:/-43:YY1:Y0 Y191/.35//43:YY1:Y191 Y0/0350143:XX1:X0X25502350+343:XX1:X255 X0044350C5B:B(B)0Y6 B4 BB4:540o7 B1 BB4:550~8T$"":3509C:C(C)0:C4 CC4:580;C1 CC4:590T$"":351%?N1:T$"":3518@N0:T$"":351bA(X,Y,PP): TC,TB:TC(TC):TB(TB)1{BTC4 TCTC4:661CTC1 TCTC4:671DTB4 TBTB4:681ETB1 TBTB4:691F(X,Y),TC,TB1GT$"":351H CS:CS(CS)2I CS1 CSCS1:732(J CS0 CSCS1:742=K1,CS:T$"":352PL B:T$"":352eM15000:L(277)2}N L255 T$"":352OK$T$:402P109:1022QST(186)256(187):EN(183)256(184)2R DN1 M F$,ST,EN,0 :M F$,ST,EN,03S263T109:1023,UDN1 M F$ : M F$35V263mW:"WHICH COLOR SET IS TO BE USED FOR DISPLAY";CS3X CS0 CS1 CS(CS) 873Y:"HIT THE [SPACE-BAR] WHEN YOU ARE READY TO RETURN TO THE MENU."3Z963[1,CS4\" " 924 ]264A^M1:T$"":B1:C4:CS0:X128:Y96:N0:1,CS:354R_359,126::4y`@484,"PRESS [ENTER] TO CONTINUE";4a(13)974b4cI15000 15011:D:I,D:4d134,0,183,255,2,182,255,0,183,1,21,574e5f:6)"TAPE OR DISK ? (T/D)"5"gK$:K$"T"DN1:10653hK$"D"1035<iDN15kj:" READY ";:DN1 "DISK"; :"TAPE";5k" - PRESS [ENTER]"5l97:5m:"FILENAME: ";F$:(F$)01095n183,255,2,182,255,0,183,1,21,574e5f:6)"TAPE OR DISK ? (D>o _ $` % `%@45\ & 45_&9>****************@x'.: BY STEVE SKRZYNIARZ@'8: FOR 16-32K COLOR@'B: COMPUTER WITH COLOR@'L: EXTENDED BASIC@'V: *******************CD#T15DT5DCCO1T7BO2T5C"@  AG""|""<""|" "|"""""|> < >> < " &"""">"""B<""$8$"" >"6*""""""2*&"">"""""><""< """*$<""<$""" ">""""""""""""""*6""""""""> >8 8@ *I ~ ?? |qRt%G  ">> >0 @"&*2"">" " $D~> <<" <"">""""""" >>  " < |qRt%G  ">>