IAgHjY` & 0:1&*:@7,"MUSIC SYNTHESIZER";f`BSS''' c(9)&'_M' ' \ &##Q& '0' &'0''' & Z &  47'0'''579''&' A&KI "B&A S& T& P&C|'''579?=;97531/-+)94" 545\&9=0&9 TTXX 94454944549& Y%9=9`&9 MUSIC SYNTHESIZER ENTER THE RHYTHM PATTERN (E.G. BSSS) * ENTER THE R' COPYRIGHT (C) T&D SOFTWARE 198310:1;5000[ G1(68),G2(68),U$(8),V$(8)a"SINGLE DISK DRIVE COPY UTILITY":" THIS PROGRAM WILL COPY ANY TYPE OF DISK FILE USING ONLY ONEDISK DRIVE."::"FILENAME :";F$ P1(F$,"/"):P2(F$,".")N P10 P20 "PLEASE INCLUDE THE EXTENSION.":8 P10 FL$(F$,P11):EX$(F$,P11,3):13 FL$(F$,P21):EX$(F$,P21,3) FL$""8FL$FL$(8(FL$),32)EX$EX$(3(EX$),32)-:" INSERT THE SOURCE DISKETTE":9)"PRESS [ENTER]"@(13)17HS3[ 0,17,S,A$,B$pC$A$(B$,127)xP1 (C$,(P1)321,11)FL$EX$ 27((C$,(P1)321,1))255 26PP1:P8 22SS1:S1219 "THE FILE DOES NOT EXIST.":)E$(C$,(P1)321,16)=FT$(E$,12,1)QAF$(E$,13,1)hFG((E$,14,1))|LB$(E$,15,2) NG1!G1(NG)FG"GPFG# 0,17,2,A$,B$$FA$(A$,68)%G$(FA$,GP1,1):G(G$):G&H43 G255 39&NGNG1:G1(NG)G:GPG:37R':"INSERT THE DESTINATION DISKETTE":9)"PRESS [ENTER]"e((13)40x) 0,17,2,A$,B$*FA$(A$,68)+N20:GP1, (FA$,GP,1)(255)47-N2N21:G2(N2)GP1.N2NG 49/GPGP1:GP694430"THERE IS NOT ENOUGH SPACE ON THEDESTINATION DISKETTE.":91A2S3T3 0,17,S,A$,B$i4C$A$(B$,127)q5P16A((C$,(P1)321,1))7 A0 A255 608P(P1)321:(C$,P,16)FL$EX$FT$AF$(G2(1))LB$9A$(C$,128):B$(C$,129)" ": 0,17,S,A$,B$#;626 0,17,2,A$,B$:NC1r? NCN2 66@(A$,G2(NC)1,1)(G2(NC1))ANCNC1:63B(A$,G2(NC)1,1)(G)C 0,17,2,A$,B$DGC1 NGE:" INSERT THE SOURCE DISKETTE":9)"PRESS [ENTER]"1F(13)70?GCGG1(GC)lHT(CG2):CG2(CG2) FS1 : FS10I CG34 TT1JI0 8K 0,T,FSI,U$(I),V$(I)LM:"INSERT THE DESTINATION DISKETTE":9)"PRESS [ENTER]"N(13)78 OCGG2(GC):PT(CG2):CG2(CG2) FS1 : FS10OQ CG34 TT1\RI0 8wS 0,T,FSI,U$(I),V$(I)}TUV6)"** COPY COMPLETE **"WLM:"INSERT THE DESTINATION DISKETTE":9)"PRESS [ENTER]"N(13)78 ':COPYRIGHT (C) T&D SOFTWARE 1983 1 0:1 P:@7,"MUSIC SYNTHESIZER"; ::" THIS PROGRAM CAN BE USED A KEYBOARD FOR MUSIC SYNTHESIS. THIS PROGRAM ALSO PROVIDES A BUILT-IN RHYTHM GENERATOR." s(" THE RHYTHM GENERATOR IS PRO- GRAMMED WITH A RHYTHM PATTERN CONSISTING OF A (DOUBLE BASS), B (BASS), S (SNARE), T (DOUBLE SNARE), OT P (PAUSE)." -" THE RHYTHM PATTERN MAY BE UP TO 10 BEATS LONG AND IS REPEAT- ED AUTOMATICALLY WHEN COMPLET- ED." 29000g<:" WHILE THE RHYTHM PATTERN IS PLAYING, THE UP AND DOWN ARROWS MAY BE USED TO CONTROL THE TEMPO OF THE RHYTHM."F" ALSO, THE OTHER KEYS ON THE KEYBOARD MAY BE PRESSED TO PRO- DUCE MUSICAL NOTES, WITH EACH DIFFERENT KEY PRODUCING A DIF- FERENT NOTE."P9000 Q A$:I10409 10497DRB$(A$,I10408,1):I,(B$):S" MUSIC SYNTHESIZER ENTER THE RHYTHM PATTERN (E.G. BSSS) "Z (27)256(28)684#(@484,"PRESS [ENTER] TO CONTINUE";#2(13)9010 #< B`@A+jA@NC15,NL$;:5000:930:924/DA$"c"900:A$"C":M0:924/[A$:A$"$"A$""/A1$(A$,1):A$""A$"C"A$"c":A1$"$"A$(A$,2)/((A$,1))48((A$,1))57A$(A$,(A$)1)/A$"":LE(A$):IN00 ININ1:LE$(A$,IN,1)0Jƅ(LE$"."(LE$)48)(LE$)57A$""::INLE :9640ʀLENA NC N5:@LE,L$;:LE:@NA,E$;"amount";B$;"per";B$;"month";:@NB,L$;:@NB,G$;:950:A$""970:E(A$):EU @NB15,NL$;:5000:970:0C00131024C,14316C0:A$:A$""1007:C0C01:C1125::C08C001TA$:A$""1007:10011c@C," ";:1Ї@N6,P$;:1098,CO:@75,U$;P;:@N8,I$;B$;"rate";:1166,CO:@143,R;:(1167((R))1),PR:A3M02008:@NA,"no";B$;M$;:1226,CO:@203,M;:21؇@NA,"amt";B$;"per";B$;"month";:1230,CO:@207,U$;E;:2 3100:#2,"$";DO$;"$";:#2,32)"PAGE 1":#2,TD$:#2,DA$:#2,DA$:A1#2,PN$:A2#2,IL$:#2,AM$2 #2,DA$:#2,"":2 €C0NG NI N5:@C0,L$;:C0:3- ̇@NI,RA$;B$;"for";B$;"menu";C$;">";:@NJ,"or";B$;"";B$;"to";B$;"repeat";:3} րC0NI 511:VC0,N8::@NI,RA$;B$;"to";B$;"continue"B$;">";:C475:1000:3 #2,"":#2,"":4$ #2,"ORIGINAL PRINCIPAL IS:";:#2,U$;P:A3#2,"FACE VALUE IS :";:#2,U$;F:#2,"TOTAL INTEREST IS :";:#2,U$;I:#2,DA$4\ A3#2,"INTEREST RATE IS :";R;"% PER ANNUM"4 A1#2,"MONTHLY PAYMENTS ARE :";:#2,U$;E;:A3#2,"@":#2,"":#2,"PAYABLE EACH MONTH FOR";M;"MONTHS":#2,DA$5. A3#2,"INTEREST IS COMPUTED AT";R;"% PER ANNUM":A1#2,"FOR";M;"MONTHS"5O #2,DA$:A3:3100:::5 䁦3010:@NH,R$;"";B$;"when";B$;"ready";:@NI,"or";B$;"";B$;"cancel";B$;">";:C463:1000:6\0:@64,"THE NUMBERS ENTERED FORM MORE";:@128,"NUMBERS INTERNALLY WHICH ARE";:@192,"TOO LARGE FOR CAPACITY";:@288,"TOUCH ANY KEY FOR MENU >";:C312:1000:6nC01500::6C012801343:MC2C0,1666C0,(C096):C0:C013761439:MC2C0,1666C0,(C096):C0:7A$:A$"C"A$"S"A$"s"S$A$::7eP#2,"MONTH#";:#2,16)"INTEREST PMT":#2,4)"PRINCIPAL PMT";:#2,32)"BALANCE":#2,DA$:73100:#2,DA$:3100:PGPG1:#2,DO$;:#2,32)"PAGE";PG:#2,AM$:#2,DA$:5200:8YPSPS1:(PS20)24(PS24)5400:C0MC PS:3100:C0:#2,DA$:3100:#2,DO$;:#2,32)"PAGE";PG1:#2,DA$:#2,"<< SUMMARY >>":#2,DA$:#2,DA$:73100:#2,DA$:3100:PGPG1:#2,DO$;:#2,32)"PAGE";PG:#2,AM$:#2,DA$:5200:8YPSPS1:(PS20)24(PS24)5400:C0MC PS:3100:C0,(132));(140);:@209,"at";B$;"payments";B$;"of";:@241,U$;E;:1279,0@NH,HC$;C2$;">";:1451,63:C430:1000:A$"y"A$"n"226:A$"y"238聦3010:3020:C474:1000:A$"r"200:n3300:A$"c"(A$)13238:A$"c"232:@466,B$;"<>";C$;C2$;:3000:3200:C0017:3100::A13100:#2,DA$:3100:232:#2,DA$:3100:2324,:@4,DO$:::"input variables":"+--RETURN TO MENU":"----------REDO RECENT ENTRY":"<$>----------MAY ENTER W/ AMTS":"<%>----------MAY ENTER W/ PRCT"::"confirmation of numbers"."+--RETURN TO MENU":"----------REDO RECENT ENTRY":"----------CONTINUE":"----------RESTART":350 }0:@4,DO$::"amortization scrolling":"----------NORMAL SCROLL":"+--STOP SCROLLING":"+--RESTART"::"yes/no-only inquiry":"----------AFFIRMATIVE":"----------NEGATIVE" 2:"hard copy inquiry":"----------CANCEL-NOHARD COPY":"------CONTINUE-READY"!^@480,"TOUCH ANY KEY TO CONTINUE >";:C508:1000:!e0:@3,AM$;:900:A$"C"A$"c":0:@3,AM$;:A$"n"400:A$"C":2000"R@NC,L$;:@NB,D$;:@ND,"select";B$;"option";C$;"or";:1326,N1:1331,N2:@NE,L$;:@354,"screen";B$;"print";B$;"only";B$;"with";:@393,"optional";HC$;: @NH,L$;:@450,"screen";B$;"and";HC$;"in";B$;"synch";:@489,"SELECTION";B$;">";"C500:1000:A$"1"A$"2"409:A$"1"Y1"A$"2"C0NC NI 32:@C0,L$;:@479,L$;:C0:3300:A$"c"A$(13)410:A$"c"Y1:Y2#M0MX$"0":MX$""#:RRR.0112:MX$"0"E(PRR(1RR)M)((1RR)M1)#KMX$"0"M0#tMC0:EEE:PPP:TP0:TI0:PG1:S$"s"#0:Y2HS$"printing"B$HC$:@NE,HS$;:@NH,HS$;$5@4,AM$;:@N6,P$;:1104,CO:@81,U$;PP;:@N7,I$;B$;"rate";C2$;:1134,CO:R;:(1135((R))1),PR:@117,"per";B$;"annum";:Y23000$@N8,"monthly";B$;"payments";B$;:1168,CO:U$;E;:(96);:@N9,(32,(212));:@NA,M$;:1221,35:@205,I$;B$;"pmt";:@225,P$;B$;"pmt";:@249,"balance";:Y23200:5200%uMCMC1:IAPPRR:PAEEIA:MC1EEPAIA PA0@448,"payment";B$;"is";B$;"to";B$;"small";B$;"for";B$;"loan";:5000:5000:5000:400%M0MCM PAPP:IAEEPA%M0PAPP PAPP:EEIAPA:MMC&$PPPPPA:Y2#2,W$;MC;:#2,14)"";:#2,U$;IA:#2,3)"";:#2,U$;PA;:#2,25)"";:#2,U$;PP&438:Y2MC205300:440:(MC20)24(MC24)5300:440:MMC PSMC1:5400:440:440:440&5110:S$"S"S$"C":5100:'D5110:S$"C"400:@449,W$;MC;:" #####";:@459,U$;IA;:" ######";:@480,U$;PA;:" ##";:@497,U$;PP;:MC11535,96:1472,96'5110:S$"S"S$"C"@256,L$;:@288,L$;:@256,"not";B$;"scrolling";:@352,L$;:@384,L$;'TITIIA:PSPSPA:TPTPPAIA'PP0430:5100'…Y13030(ÀQNA NH 32:@Q,L$;::@N9,">>>>";:@NA,T$;C2$;"of";B$;M$;C2$;:W$;MC;:1222,35:1234,CO:@258,"payment";B$;"for";B$;"the";B$;"last";B$;"month";:1312,40:1313,35:@290,W$;MC;(ƒ1317,41:@295,"is";C2$;:1322,58:U$;PAIA;:@NE,(32,(132));:Y23200)hȇ@352,"total";B$;"payments";C2$;:U$;TP;:1391,CO:@384,"total";B$;"interest";C2$;:U$;TI;:1423,CO*ʅY2#2,DA$:#2,"TOTAL# OF MONTHS:";MC:#2,"PAYMENT FOR THE LAST MONTH":#2,15)"(#";MC;"):";:#2,U$;PAIA:#2,DA$:#2,"TOTAL PAYMENTS ARE :";:#2,U$;TP*˅Y2#2,"TOTAL INTEREST IS :";:#2,U$;TI:C0040:#2,""::#2,DA$:3100:C014721535:C0,128::3020*̇@448,L$;:Y2464:@NI,HC$;C2$;">";:1483,63:C462:1000:A$"y"A$"n"460:A$"n"464+YΞ0:@3,AM$;:@NE,"printer";B$;"option";:3300:A$"c"A$(13)462:A$"c"@416,L$;:464:Y2:412+Ё3020:C474:1000:A$"r"400:+@N6,E$;P$;:@N8,E$;I$;B$;"rate";B$;"per";B$;"annum";,G@NA,E$;"no";B$;"of";B$;M$;B$;"of";B$;"loan";:A31248,27:@225,B$;"or";B$;"0";B$;"to";B$;E$;"amt";B$;"per";B$;"month";C$;:A$"c"922,@N7,L$;:@N7,G$;:950:A$""910:A$"C"A$"c":P(A$):PU @N715,NL$;:5000:910:P0910-=@N9,L$;:@N9,G$;:950:A1$"$"A$""916:A$"c"@N9,L$;:910:A$"C":R(A$):R999((R))7@N915,NL$;:5000:916-A3930:@NB,L$;:@NB,G$;:950:A1$"$"A$""922:A$"c"@NB,L$;:916:A$"C":M(A$):M(M)M1922:M999@NB15,NL$;:5000:922:924.x@NE,"figures";B$;"correct";C2$;G$;:1359,63:C338:1000:A$"y"A$"n"A$"C"A$"c"924:A$"c"A3@NE,L$;:906:A$"c"@NE,L$;:922:/@NC,L$;:@NC,G$;:950:A$""A1$"$"930:A$"c"@NC,L$;:916:A$"C":A$"0"970:E0:M(A$):M(M)930:M999 1:H(K1)H(K):H$(K1)H$(K):&=0:@8,"congratulations";&b@64,"enter your initials --> ";&lT$""&wC02&A65&@88C,(A);&TD1100:TD&H(0):V(1):P(&HFF00)& V10 AA1& A65 A65& V53 AA1' A90 A90'+ P126 P254 165'IT$T$(A):@88C,(A);'PC'eH$(I)T$:H(I)SC'o177'0:129:7'65494,0:&TD1100:TD&H(0):V(1):P(&HFF00)& V10 AA1& A65 A65& V53 AA1'$Z: DOLLARS AND CENTS":<: T & D SOFTWARE (C)^: COPYRIGHT JUNE, 1983e:: DESIGNED: BY LYLE ZOERMAN::title page cannot be removed from program-it wont run**** YOU MAY DELETE LINE 22, HOWEVERQ : PCLEAR1 NEEDED FOR 16K MA- CHINE-9,068 BYTES TO LOAD AND -510 BYTES TO RUNZ 300DO$"***DOLLARS AND CENTS***":TD$"T & D SOFTWARE (C) COPYRIGHT 1983":U,CO,D,S,V,PE,PR,N0,N1,N2,N3,N4,N5,N6,N7,N8,N9,NA,NB,NC,ND,NE,NF,NG,NH,NI,NJ,P$,I$,M$,AM$,PN$,IL$,G$:@4,DO$::7)TD$::"DESIGNED BY: LYLE ZOERMAN":13)"HOLLAND,MI"::" USE OR MISUSE OF THIS PROG- RAM IS COMPLETELY THE RESPON- SIBILITY OF ITS USER. NOT OF T & D SOFTWARE CO OR ITS ASSO- CIATES.": B$(128):C$B$B$B$:C2$B$B$:D$(32,(131)):L$(32,B$):W$"###":U$"$$#,###,###.##":HC$B$"hard"B$"copy"B$:E$"enter"B$:T$"total"B$:R$"press"B$:RA$R$"any"B$"key":DA$(40,"-")Q901:@480,Q;:5000:! 9999999.99,58,45,47,1024,46,37,48,49,50,51,52,32,64,96,128,160,192,224,256,288,320,352,384,416,448,480,principal,interest,months,,,,>#NL$B$"number"B$"too"B$"large":282,0(0:@4,DO$;:@74,"main";B$;"menu";:1156,N1:1157,PE:@135,"promissory";B$;"note";:1220,N2:1221,PE:@199,"installment";B$;"loan";:@240,"w";C2$;"add";B$;"on";B$;"int";:1265,S:1270,D:1277,PE:"";: B$""C$"":@224," can not run without title page and copyright notice":01316,N3:1317,PE:@295,"amortization";B$;"schedule";:1380,N4:1381,PE:@359,"end";B$;"and";B$;"clear";:1444,53:1445,PE:@423,"instruction";B$;"outline";4@484,R$;"appropriate";B$;"key";B$;C$;">";:C510:1000:A$"0"A$"5"52:A(A$):A 200,200,400,80,300:A4200::40dP:@70,"PROGRAM dollars and cents aborted":@N9,"":282,255:Ȟ0:A1@8,PN$;:@2,IL$;́900:A$"C"A$"c":0:A1@8,PN$;:@2,IL$;M҅A$"n"200:A$"C":2000:IR.0112MP:FPI:IU FU 4000:A1216:EFM:F((E100))M100:E(E100)100:IFP:EU FU 4000؇@NC,L$;:@NB,D$;:@ND,"face";B$;"value";C$;C$;:1327,CO:U$;F;:@NF,T$;I$;C2$;:1391,CO:U$;I;HޅA1226:@238,(130);L$;:@270,(140);::(3,(140));:@273,(14' COPYRIGHT (C) T&D SOFTWARE 19830:1:(0):@224," can your computer handle high speed poke 65495,0 y/n";:V3$:(V3$,1,1)"Y"65495,0: 65494,0 5Y32X1024,C::500,15999:0:@8,"COSMIC FORTRESS";3@64,"destroy the evil fortress --> ";(191);(191);H @126,(2,191);z @130,"beware of space puppies --> ";(175); @196,"this is your ship --> ";(207); @256,"beware of your own laser fire!!"; @324,"use the right joystick";153AI0300:J():(&HFF00)254 (&HFF00)126 :21\0:@10,"high scores";I110:@74I32,"";::"% %";H$(I);:"########";H(I);:153I0300:J():(&HFF00)254 (&HFF00)126 :7 :2120I1600116087:D:I,D:16,142,0,0,142,4,139,198,7,247,62,128,48,1,246,62,128,166,132,52,2,166,1,167,128,90,38,249,246,62,128,166,136,32,167,132,48,136,32,90,38,245,246,62,128,166,31,167,132,48,31,90,38,247,246,62,128,90,166A136,224,167,132,48,136,224,90,38,245,53,2,167,132,246,62,128,192,2,49,33,16,140,0,3,38,179,57bSC0:GL10:NS0:ND0:D2:R3tX0:Y0:C2070:129:27:3601295,191:1296,191:1263,191:1264,191I12301233:I,255:I96,255:I1230129432:I,255:I3,255:-I11971202:I,239:I160,239:S I1197135732:I,239:I5,239:x!I11641171:I,223:I224,223:"I1164138832:I,223:I7,223:#$4% GC1 GL&H(0):V(1):P(&HFF00)'TXX:TYY ( H10 X0 D4:XX1:44() H10 D4:X31:44J* H53 X31 D2:XX1:44^+H53 D2:X0,V10 Y0 D1:YY1:48-V10D1:Y15:48. V53 Y15 D3:YY1:48/ V53 D3:Y00 TXX TYY 531SM(XY321024)!2SM175 1024TY32TX,128:125L3 X20 X11 Y3 Y12 YTY:XTXc41024TY32TX,128k546 P254 P126 597 NS3 598"O4T200L200AA"9NSNS1:SH(NS,2)D:SH(NS,0)X:SH(NS,1)Y; NS0 84 SXX SYY 65Q?(102432SYSX)14373h@SY32SX1024,128A SD 66,68,70,72BSYSY1:SY0 150:59C 73DSXSX1:SX31 150:59E73FSYSY1:SY15 150:59G73HSXSX1:SX0 150:59+IMLSY32SX10248JM(ML)JK M175 116cL M207 150:125tMM191 135N M223 146O M239 148P M255 149Q1024SXSY32,143RSH(I,0)SX:SH(I,1)SYSIT GCU (GL)8 ND5 883VNDND1:X15DG(ND,0)10:DG(ND,1)3:88OWDG(ND,0)21:DG(ND,1)12_X ND0 109tYJ1 (13GL)2ZI1 ND[DXDG(I,0):DYDG(I,1)\TXDX:TYDY]DXDY321024,128^DXX DXDX1_DXX DXDX1`DYY DYDY1aDYY DYDY1@b DX20 DX11 DY3 DY12 DYTY:DXTXQc DX0DX31adDX31DX0qeDY0DY15f DY15 DY0g (1024DXDY32)207 1024DXDY32,175:125h (1024DXDY32)143 DYTY:DXTXi1024DXDY32,175 jDG(I,0)DX:DG(I,1)DY kI $lJ 3m NS0111 _nI1 NS:1024SH(I,0)SH(I,1)32,128: |oJ1 (13GL)2:16001: p"O1T200L200ABDBO2ABCD" q NS0115 rI1 NS:1024SH(I,0)SH(I,1)32,143: s37!tSCSC500:ML,191:"O1T200L200ABDBCBD"!uML,128!"vL1 ND!Ew DG(L,0)SX DG(L,1)SY 121!LxL!\yLND 123!zKL ND1:DG(K,0)DG(K1,0):DG(K,1)DG(K1,1):!{NDND1:150!|59!}I020:XY321024,191:XY321024,128:"O5T200L200ABCDB":"~RR1:R0 156" 129"-X(10):Y(16)1:36"VT$"":I10241055:T$T$((I)):"|@3,"score:";SC;" reserves:";R;"155"TD11000:"@0,T$;""TI:SCSC2500""O1T20L10ABC":1295,128:1296,128:1263,128:1264,128#L"O2T40L30ABC":I12301233:I,128:I96,128::I1230129432:I,128:I3,128:#"T100L100O3ABC":I11971202:I,128:I160,128::I1197135732:I,128:I5,128:#"T200L200O4ABC":I11641171:I,128:I224,128:$I1164138832:I,128:I7,128:$$0:NS0:ND0:@234,"score:";SC;$.155$HTD11000::IT:27$_GLGL1:GL1GL1$|X(10):Y(16)1:59$SCSC10:ML,128:150$59$SCSC20:ML,128:150:59$SCSC50:ML,128:150:59$ INS 152%8JI NS1:SH(J,0)SH(J1,0):SH(J,1)SH(J1,1):SH(J,2)SH(J1,2):%FNSNS1:%g@486,"press fire to start";%m%"T25L2V10O1ABCBABCBV15T20ABCBABCBT20V20ABCBABCBT15V25ABCBABCBT12V30ABCB":%I110:H(I)SC 158%:177%I10160&K9 I' COPYRIGHT (C) T&D SOFTWARE 1983D ELECTRONIC FLASH CARDSK4U(1000\23r<3:(128,96),50,2F(106,80),10,2,.8P(150,80),10,2,.8Z(128,100),35,2,.8,0,.5d(128,100),35,2,.5,0,.5n(128,96),2,2x"C1BM40,10 NR14D30R14 BR10 NR14U30R14D30 BR10 U30R14D16NL14L8F8D6 BR10 U30R14D16NL14L8F8D6 BR10 U30NR14D14NR10D16R14 BR10 U30NR14D30R14 BR10 BU30R15L8D30 BR20 U2BU8U20"0:@5,"electronic flash cards";@64,"";l" THIS PROGRAM IS DESIGNED TO EXERCISE CHILDREN (AGES 6 - 10) WITH THE FOUR FUNDAMENTAL OPER- ATIONS : ADDITION,SUBTRACTION, MULTIPLICATION AND DIVISION." " THE OPTIONS AVAILABLE ARE 1, 2, OR 3 DIGIT OPERATIONS FOR ADDITION AND SUBTRACTION AND 1 OR 2 DIGIT OPERATIONS FOR MULTI-PLICATION AND DIVISION."900G0:"HOW MANY PROBLEMS ARE TO BE DONE";NPcNP1 NP(NP) 180Ȟ0:"WHICH OPERATION (+,-,*,/)";OP$:("+-*/",OP$)0 OP$""200OP("+-*/",OP$)܈ OP 230,230,250,250"0:"1, 2, OR 3 DIGIT OPERATIONS";ND: ND1 ND2 ND3 230,260e0:"1 OR 2 DIGIT OPERATIONS";ND:ND1 ND2 2500:"be sure to press [enter] after typing each answer."900NC0" PC1 NP,06N1(10ND)1:N1$((N1),2):(N1$)ND 3109@N2(10ND)1:N2$((N2),2):(N2$)ND 320QE OP4 N20 320lJ OP 340,350,360,370TANN1N2:380^ANN1N2:AN0310:380hANN1N2:380rAN(N1N2):R(((N1N2)AN)N2.5)|OP4 R0AN$((AN),2)"R"((R),2) :AN$((AN),2)F OP4 @5,"use 'r' for remainder";bPP79((ND3)4)(ND3)qAPPP932K((8)1)16I(N1$) 1 1D$(N1$,I,1):930PPPP6:PP207((ND3)4)(ND3):K((8)1)16րI(N2$) 1 1D$(N2$,I,1):930,PPPP6:e@322((3ND)2),(22((3ND)2),140((8)1)16);PP194((3ND)2):K((8)1)16 OP 530,540,550,560@PP,(128);(130K);(128);:@PP32,(131K);(139K);(130K);:@PP64,(128);(138K);(128);:570f@PP,(3,128);:@PP32,(2,131K);(130K);:@PP64,(3,128);:570&@PP,(130K);(128);(130K);:@PP32,(132K);(134K);(128);:@PP64,(134K);(132K);(130K);:570L0@PP,(128);(130K);(128);:@PP32,(131K);(131K);(130K);:@PP64,(128);(130K);(128);[:AL(AN$)nDPPAP(AL1)6NT$"":L((8)1)16XK17b@PP,(3,143K16);:@PP32,(3,143K16);:@PP64,(3,143K16);lK$:K$""760v ("0123456789R"(13)(8),K$)0760Mw (T$)AL (K$(13) K$(8))620^K$"R"670@PP,(142L);(140L);(138L);:@PP32,(142L);(142L);(136L);:@PP64,(138L);(132L);(130L);T$T$K$:750K$(13)700 690:770G@PP,(3,128);:@PP32,(3,128);:@PP64,(3,128);:ZK$(8)740lƅ(T$)0760T$(T$,(T$)1)ځ690:PPPP6:760T$T$K$:D$K$:TK:KL:930:KTPPPP6K:600 T$AN$ 820  1,0:"V31O3T100L100ABCB FGEF":TD11000: WI020:1,0:"O4T200L200ABC":1,1:"O2T200L200ABC": c NCNC1 m*870 4@459,"S O R R Y,"; >P$"THE CORRECT ANSWER WAS ":OP4 P$P$AN$:850 HP(AN$,"R"):P$P$(AN$,P1)" R "(AN$,P1)!R@480((31(P$))2),P$;!$\TD12000:!,fPC!tp:"YOU ANSWERED";NC;" CORRECT OUT":"OF ";NP;"FOR ";NCNP100;" %"!z::"TRY AGAIN ? (Y/N)"!{K$:K$"Y"180!|K$"N"891!}!@484,"press [enter] to continue";!(13)910"":V(D$)"V0960"4J1 V3:A,B,C:"FJ02:A,B,C"mʇ@PPJ32,(KA);(KB);(KC);"sԋ"yސ" 142,140,141,138,128,133,139,131,135" 128,135,128,128,133,128,128,135,130" 140,140,141,142,140,140,139,131,131#! 140,140,141,128,132,141,131,131,135#K 129,128,138,133,131,139,128,128,138#u 142,140,140,140,140,141,131,131,135#$ 142,140,140,142,140,141,139,131,135#. 140,140,141,128,128,134,128,133,128#8 142,140,141,142,140,141,139,131,135$B 142,140,141,140,140,141,131,131,1355#K 129,128,138,133,131,139,128,128,138#u 142,140,140,140,140,141,131,131,135#$ 142,140,140,142,140,141,139,131,135#. 140,140,141,128,128,134,128,133,128#8 142,140,141,142,140,141,139,131,135$B 142,1&':COPYRIGHT (C) T&D SOFTWARE 1983&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)nKPO328:529,&H80:A0(K):529,&H8B)E(P11)10PO3)(341)T PO4 P11 P1P11:PO13:A0(K):310 : (341)T PO4 A0(K):POPO1:390*d (342)T PO13 EY1 A0(K):POPO1:390 : (342)T P1P2 PO13 P1P11:PO4:A0(K):310*z (338)191450*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+0ꁥ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") 359,126:MT$:':COPYRIGHT (C) T&D SOFTWARE 1983:3:1,0::200"BM5,40C2R235F2R1F2D135BF10U135H10D135L30ND2U1H1U3H1U3H1U3H1U3H1U3H1U3H1U3H1L169G1D3G1D3G1D3G1D3G1D3G1D3G1D3G1D3NR185U2L30U135E2R1E2BR8BD8R219F5D93L229U93E5"_"BM0,180F10R30NH4F2R185H2NR30H2BH6L185BR6BD2NR32F6R32H6BR18BD1NR4F4R4H4BR18BU1NR32F6R32H6BR19BD1NR4F4R4H4BU1BR18NR32F6R32H6"(248,55),2,2:"BM35,182C5NF8BR182NF8":"BM52,168C2E3R3F3D3G3L3H3U3BR128E3R3F3D3G3L3H3U3":(54,168),2,2:(182,168),2,2"C3":X20:Y32: 75:A$"T AND D SOFTWARE":X50:Y20:78:X220:Y32:75:X50:Y30:A$"HOLLAND MICHIGAN":78:X14:A$"REPRODUCTION OF ANY OF THE":YY32:"C4": 78A$"FOLLOWING IS PROHIBITED.":YY10:X22:78A$"T AND D SOFTWARE SHALL HAVE":X6:YY18:78$ A$"NO LIABILITY OR RESPONSIBIL-":YY10:X6:78Z A$"ITY TO CUSTOMER WITH RESPECT":YY10:X6:78 A$"TO ERROR, LOSS, OR DAMAGES":YY10:X14:78:A$"CAUSED BY THESE PROGRAMS.":YY10:X14:78H A$"COCO CASSETTE NO. I":X35:Y158:"C3":78:"BR3R4U2NL4U2L4":A$"JULY":X82:YY10:78:"BM+10,+4;U4R4D2NL2D2NL4BR4R4U2NL4U2L4"Y TD03000:d:1,1w(128,96),94,2X126:Y30:"C4":75X88:Y120:"C3S4":67B8:X74:Y32:"C2S5":A$"HAPPY":79:"S4" X50:Y124:"C2S5":A$"BIRTHDAY":79:"S4">X42:Y140:"C2S5":A$"COCOROBOT":79:"S4"YX126:Y178:"C4":75mX54:Y100:60X188:Y60:60"BM122,81 C2S4R4U10L4ND10R2 C4E2H2G2F2"TD12000:I150:"BM124,71 C4E2H2G2F2 C1E2H2G2F2":"O1T200L200B":TD11000::63.X200:Y94:76765B0:X0:Y0:"C4":A$"TO THINK THAT IT HAS BEEN A YEAR SINCE THE COCOROBOT RE- CEIVED HIS FIRST COCOCASSETTE.":78 TD04000:!:X100:Y180:"C3":67*"X0:Y0:"C4":A$"DURING THE PAST YEAR, THE COCO-ROBOT HAS...":78;#TD14000:F$:1,1e%"BM30,165C4S3":68:"S4"&"BM6,90;C3NR25G6D72R255BU27BL50L168U45NH6R45F3R6F3R6F3R6F3R6F3R6F3R6F4R6F4R6F4R6F4R6F4R6F4R6F4R6F5R6F5R6F5R6F5R6F5R6":(223,159),3,3:"C4":X17:Y120:75'"C3BM220,170;D9NR1F2D2G2L2H2U2E2R1":"BM25,170D4R2F4D4G4L4H4U4E4R2":"BM110,140;H11F1G2H4BE4F4G2C2BU18BL10R1BR3R1BR3R1BR3R1BD4L1BL3L1BL3L1BL3L1"(X0:Y150:B6:"S4":A$"INDESTRUCTABLE":"C4": 79:"S4":"BM+8,-8;R2ND8R4ND8R4ND8R2BD8L12":B"#%&()*,-/HCRDBAS!ICEBLOCKBAS$COSMIC BASMAILLISTBAS'DOLCENTSBAS]MLT8 BAS+"DIR BAS COVER13 BAS!FLASHCRDBAS!ICEBLOCKBAS$COSMIC BASMAILLISTBAS'DOLCENTSBAS]MLT8 BAS+"SDSKCOPYBASSYNTHSZRBASCRAWLER BIN.08)X0:Y0:"C4":A$"FOUGHT GALACTIC INVADERS...":78I*TD14000:+:"C3BM110,151 U50 H10U20R10D10R10U10R10D10R10U10R10D15R20C2U40R15D10L15D30C3R20U15R10D10R10U10R10D10R10U10R10D20G10D50L120","BM170,110NF10G10D30R20U30"-"BM210,90NF2G2D6R4U6""."BM130,90NF2G2D6R4U6"3/(160,100),3C0(175,50),2V1(170,120),4,3p2X20:Y185:"C3":673X0:Y0:"C4":A$"VENTURED THROUGH CASTLES...":784TD14000:5:X80:Y190:"C3":676"C2BM55,191NU50NH10L20E20"*7"BM+0,+0U40C0U20NR140U20R140D40C2D60NE10R20H20"U8"C0":X68:Y99:A$"TIME MACHINE":789X0:Y0:"C4":A$"AND WHIZZED THROUGH TIME.":78:TD14000:;2:(X6,Y),4,4:(X6,Y),4,4:(X,Y6),4,4:(X,Y6),4,4:"A0": ?:"C2":(0,156)(256,156),:(50,172),2:"BM207,155C4U60L28H11R8L8E4F15H15R52D15L16R4D12L4R4D48L4C2" @Y155:X19624816:(X,Y)(X3,Y4),:(X,Y)(X3,Y4),: X:!'AC1:Y154:X20 90 10:"C3":67:"T250O1C":PA1200:PA:X6066:"C5":67:X!bBPA11000:PA:"C4BM188,96D18L8U18": PA11000:PA:!uC(X,Y)(X,Y),!D"BM+0,+0;R16E3R1F3R12U20D20R30E2U2H2L4H4U5D5F4L4G2L12H2L6U1L8H1L10H1L7H1L7G2D3F2D2BU12BR4NG4E3U8""1E"BM+0,+0H1L5H1L5R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R40U2L45BU2R45""F"BM+0,+0;H20L48G2F20BR3BU2H16R41F16BL13BU21H1L4H1L4H1L4U32L72D20E1R3E1R3BL6BG2L3G1L3G1L3G1L1G1L1G2L1G3D2F7R30U1H3U1E3U1L22U1E1R3BR24U24R30D24L30"#TG"BM+0,+0;E3U18H3F3R24E3G3D18F3H3L24BR5BU8U8R4D8L4BR2BU2R1BR8U6R4D8L4U2BR2R1BD6BL3L6BR21BD9R7BU3L7BU3R7BU3L7BU5U12R8D12L8BU3BR2R3BU4L3"#H"BM-65,+35;R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1R5F1H5L5H1L5H1U6D6L5H1U5D5L5H1U4D4L5H1U3D3L5H1L5H1L5H1L3G1D2F1R1G2D1F2BR32BU12H2U2E2R5G2D2F2L5R12E1H1L4R4E1R1U1H1L4R4"$mI"BM+0,+0;L9U2R4F2D1G2BR20BD10R2BR4R2BR4R2BR4R2BR4R2BR4R2BD4L2BL4L2BL4L2BL4L2BL4L2BD4R2BR4R2BR4R11BR4R2BR4R2"$sJ%K(X,Y)(X,Y),:"BM+0,+0;R3U2R5D2L5R7U6L10D6BU6BR3U1L2H2U1R3L7H2U1R4L9H2U1R22D3G3D2R2E3R2E2R2U3H7U1L2G1D2F2H2L2G1D2F2H2L2G1BD17BL6BU5":%3L(X,Y)(X,Y),:"BM+0,+0R3U2R5D2L5R7U6L10D6":%@MX0:Y42%JN"S2"%yO P1 (A$):I$(A$,P,1):I(I$)64 %PXX8B: X(252(B1.5)) X8:YY10(B2)%Q I19 I28%R I18 I29%S I20 I30%T I0 I27&{U(X,Y)(X,Y),: I 89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118&V S0 "T250O1C"&W P:"S4":&X 88&Y"BM+0,+0;BR4ND4NF4G4D4BR8U4":&Z"BM+0,+0;ND8R8D4NL8D4L8":' ["BM+0,+0;NR8D8R8":'(\"BM+0,+0;ND8R6F2D4G2L6":'F]"BM+0,+0;NR8D4NR6D4R8":'b^"BM+0,+0;NR8D4NR6D4":'_"BM+0,+0;NR8D8R8U4L1":'`"BM+0,+0;D4ND4R8U4D8":'a"BM+4,+0;D8":'b"BM+0,+0;BR6D8L4U2":'c"BM+0,+0;D8U4R4NE4NF4":(d"BM+0,+0;D8R8":::L(!e"BM+0,+0;ND8R4ND3R4D8":(:f"BM+0,+0;ND8R8D8":(Tg"BM+0,+0;D8R8U8L8":(oh"BM+0,+0;ND8R8D4L8":(i"BM+0,+0;R8D8NH3NF2L8U8":::Q(j"BM+0,+0;R8D4L4NF4L4D4U8":(k"BM+0,+0;NR8D4R8D4L8":(l"BM+0,+0;R4ND8R4":)m"BM+0,+0;D8R8U8":)n"BM+0,+0;D4F4E4U4":)9o"BM+0,+0;D8R4NU3R4U8":)Rp"BM+0,+0;F8BL8E8":)kq"BM+0,+0;F4ND4E4":)r"BM+0,+0;R8G8R8":)s::SPACE)t"BM+1,+4;R6":::-)u"BM+2,+6;D2R2U2L2":)v"BM+2,+6D2R2ND2U2L2":ND8R4":)m"BM+0,+0;D8R8U8' COPYRIGHT (C) T&D SOFTWARE 19834:3:400:P(10),SB(10),IB(10),CB(10),BL(10),F$(15),M(4,2),MB(3,3),E(24,1):148:I015:F$(I)(21,"0"):11)"ICE BLOCK":e" USE YOUR RIGHT JOYSTICK TO MANUEVER YOUR RED PENGUIN AND CRUSH THE GREEN SNOW MONSTERS WITH ICE BLOCKS. USE THE FIRE BUTTON TO START AN ICE BLOCK SLIDING."" PUSHING AN ICE BLOCK AGAINST THE WALL OR ANOTHER ICE BLOCK NEXT TO IT WILL CRUSH IT.":181:" CRUSHING:"`" 1 MONSTER = 400 PTS.":" 2 MONSTERS = 1600 PTS.":" 3 MONSTERS = 3600 PTS.":" 4 MONSTERS = 6400 PTS." :"CAN YOUR MACHINE HANDLE THE HIGHSPEED POKE ? (POKE65495,0) (Y/N)" K$:K$"Y"65495,0:12 K$"N"10 :65494,0) :" INITIALIZING .....":GL10:R3:S0:MG1L NM0:MM0:NS0:I020:J015(F$(J),I1,1)"0"::(10)7 (F$(J),I1,1)"1":NE6(10GL)2L1 NEI(21)1:J(16)1 (F$(J),I1,1)"1" 18(F$(J),I1,1)"2":E(L,0)I:E(L,1)J:TI023:I020:J015P (F$(J),I1,1)"0" 25z(I122,J12)(I1212,J1211),IB,:1,0PX(21)1:PY(16)1 (F$(PY),PX1,1)"0" 27(PX122,PY12)(PX1212,PY1211),P,(F$(PY),PX1,1)"4":0$ GC1 GLD H(0):V(1):P(65280)T!TXPX:TYPYq" H6 PXPX1:PD4:39# H57 PXPX1:PD2:39$ V15 PYPY1:PD1:39% V48 PYPY1:PD3:39&45 ' PX0 PX20 PY0 PY15 PXTX:PYTY:45O((F$(PY),PX1,1)"1" (F$(PY),PX1,1)"2" PXTX:PYTY:45)(TX122,TY12)(TX1212,TY1211),BL,:(F$(TY),TX1,1)"0"*(F$(PY),PX1,1)"0" 44+I010:(PX122,PY12)(PX1212,PY1211),P,:(PX122,PY12)(PX1212,PY1211),SB,::117],(PX122,PY12)(PX1212,PY1211),P,:(F$(PY),PX1,1)"4"w- P126 P254 71. NS3 71/ PD 48,49,50,510BXPX:BYPY1:521BXPX1:BYPY:522BXPX:BYPY1:523BXPX1:BYPY4 BX0 BX20 BY0 BY15 71J5T$(F$(BY),BX1,1):T$"1" T$"2" 71]6DPD:55:61s7 D 56,57,58,598SXBX:SYBY1:609SXBX1:SYBY:60:SXBX:SYBY1:60;SXBX1:SYBY<= SX0 SX20 SY0 SY15 69$>T$(F$(SY),SX1,1):T$"1" T$"2" 64-?70K@(F$(BY),BX1,1)"1"69}ASS500:K1 NE:BXE(K,0) BYE(K,1) LKB:KL:KNE 68CLK NE1:E(K,0)E(K1,0):E(K,1)E(K1,1):DNENE1ME(BX122,BY12)(BX1212,BY1211),CB,:TD150::(BX122,BY12)(BX1212,BY1211),BL,:(F$(BY),BX1,1)"0":71FNSNS1:MB(NS,0)BX:MB(NS,1)BY:MB(NS,2)PD:MB(NS,3)0G NS0 89HI1 NSIBXMB(I,0):BYMB(I,1):DMB(I,2):55JSX0 SX20 SY0 SY15 80 KT$(F$(SY),SX1,1):T$"1" T$"2" 80?L(F$(SY),SX1,1)"3" 81mM(BX122,BY12)(BX1212,BY1211),BL,N(SX122,SY12)(SX1212,SY1211),IB,:(F$(SY),SX1,1)(F$(BY),BX1,1):(F$(BY),BX1,1)"0":MB(I,0)SX:MB(I,1)SY:MB(I,3)086 O88 6PSS(MB(I,3)2400):NMNMMB(I,3):122:71 LQMB(I,3)MB(I,3)1 wRJ1 MM:M(J,0)SX M(J,1)SY TJ S:JT:125!T(BX122,BY12)(BX1212,BY1211),BL,:(SX122,SY12)(SX1212,SY1211),IB,:(F$(SY),SX1,1)(F$(BY),BX1,1):(F$(BY),BX1,1)"0"!3UMB(I,0)SX:MB(I,1)SY!sVBXSX:BYSY:DMB(I,2):55:SX0 SX20 SY0 SY15 88!WT$(F$(SY),SX1,1):T$"1" T$"2" (SX122,SY12)(SX1212,SY1211),SB,!XI!Y GC!Z GC1 MG![ NM4 97"\ NM0 NE0 128"] NE0 97"i^NMNM1:MMMM1:M(NM,0)E(NE,0):M(NM,1)E(NE,1):M(NM,2)(4):NENE1"_IM(NM,0):JM(NM,1):(I122,J12)(I1212,J1211),SB,"`(F$(J),I1,1)"3""a MM0 116"bI1 MM#cBXM(I,0):BYM(I,1):DM(I,2):55#*d SX0 SX20 SY0 SY15 105#zeT$(F$(SY),SX1,1):T$"4"(BX122,BY12)(BX1212,BY1211),BL,:43#fT$"2"105#gT$"1"112#hT$"0"113#i (GL)10 107#jD(4):M(I,2)D:114#k BXPX D2:111$l BXPX D4:111$m BYPY D3:111$'nD1$:oM(I,2)D:114$p(SX122,SY12)(SX1212,SY1211),CB,:(SX122,SY12)(SX1212,SY1211),BL,:(F$(SY),SX1,1)"0":114%Fq(BX122,BY12)(BX1212,BY1211),BL,:(F$(BY),BX1,1)"0":(SX122,SY12)(SX1212,SY1211),SB,:(F$(SY),SX1,1)"3":M(I,0)SX:M(I,1)SY%Lr%Rs%[t31%su"O3T100L50ABCDEFD"%vRR1::" SCORE: ";S;" RESERVES: ";R%w R0 142%xTITI& yI1 NM:E(NEI,0)M(I,0):E(NEI,1)M(I,1)::NENENM:NM0:MM0:NS0:22&z INS 124&G{LI NS1:N03:MB(L,N)MB(L1,N)::&U|NSNS1:&e} JMM 127&~LJ MM1:N02:M(L,N)M(L1,N)::&MMMM1:&:SE((TI)60):TSSE:MI(SE60):SESEMI60':" GAME TIME ";MI;"MIN. ";SE;"SEC."':8)"BONUS: ";''B0:TSTS60'8TS60 B10'JTS50 B500']TS40 B1000'pTS30 B2000'TS20 B5000'B;"PTS."'SSB:8)"SCORE: ";S;"PTS."'GLGL1:GL1GL1'GL1 MGMG1'13(65494,0::11)"GAME OVER"(&:6)"PLAY AGAIN ? (Y/N)"(;K$:K$"Y"12(LK$"N"144(Y65494,0(_(q(4,0):(6,0)((2,1)(8,1),(I28:(0,I)(10,I),:((2,2,1):(8,2,1)((4,4,2):(6,4,2)(2,3:I68:(2,I)(8,I),::4,3)(2,9)(8,9),)(2,10,2):(8,10,2))K(0,11,2):(2,11,2):(8,11,2):(10,11,2))b(0,0)(10,11),P,G)i3)(4,0,1):(6,0,1))1,3:I12:(2,I)(8,I),:)I36:(0,I)(10,I),::(2,3,2):(8,3,2))(4,4,2):(6,4,2))(2,7)(8,7),*2,3:(2,6)(8,6),*4(2,8)(2,10),:(8,8)(8,10),*I(0,11):(10,11)*a(0,0)(10,11),SB,G*h3*2,3:(0,0)(10,11),,B*(4,2):(6,2):(6,3)*(4,9)*(0,0)(10,11),IB,G*3*2,3:(0,0)(10,11),,B+I1112:(2,I):(6,I):+I2102:(4,I):(8,I):+7(0,0)(10,11),CB,G+>3+V(0,0)(10,11),BL,G+\+@484,"PRESS [ENTER] TO CONTINUE";+(13)182+(4,9)*(0,0)(10,11),IB,G*3*2,3:(0,0)(10,11),,B+I1112:(2,I):(6,I) &' :COPYRIGHT (C) T&D SOFTWARE 1983&.:&>:MAIL LIST&J( 1600&) ME600010000:A$(200):ME200 :1800:A$(30):ME30'82:@69,"*** mail list ***";:@133,"1. SET UP FILES":@165,"2. ADD RECORDS":@197,"3. CHECK AND MODIFY":@229,"4. BROWSE A FILE":@261,"5. SORT A FILE":@293,"6. PRINT LABELS"'x5@325,"7. PRINT THE LIST":@357,"8. END":@421,"SELECT 1-8"':INSERT AFTER6] #2,A$:5:@9,"inserting";6g1506 N0:X70:290:170:A$A$(0):5606*F083064#1:#2: F$"/DAT": "ND/DAT" F$"/DAT":507>"**** NO SUCH RECORD ****":D11000::8207 H:CO07R@33,"THIS ROUTINE WILL SCROLL THE NAMES OF THE FILE THAT YOU ARE LOOKING FOR. PRESS UP ARROW TO INCREASE SPEED AND DOWN ARROW TO SLOW DOWN."7\" WHICH FIELD A-Z"7fI$: I$"" 870 : 8808 p V65 90:C$(V): C$I$ 900 : V8;z150,1:" NO SUCH FILE":PA1600:PA:8408RT1301: "I",#1,I$8oCOCO1: (1)1 9708PA1T1:PA8 #1,A$: "RECORD #";CO;" =";A$8I$:I$""960:I1(I$): I194 T1T1100: T10T118 I110T1T11009 9109ʠ1,1:#19Bԅ CO2 " FILE CONTAINS NO RECORDS":10009I:9`:" ANOTHER Y/N"9I$: I$"" 1010 : 10209 I$"Y" 840 : 10:2:@43,"FILE SORT":@96," THE RECORDS IN THE FILE ARE SORTED BY LAST NAME ONLY.":@194,"ENTER THE NAME OF THE FILE TO BE SORTED (A-Z)";:A$:U C0:A3$(A$,1,1):"I",#1,A3$:j (1)1 1050: CC1: CME :@32," NOT ENOUGH MEMORY TO SORT THIS FILE!!":PA11000PA:10:#1,A$(C):1036;<#1::@32," SORTING ";C;"RECORDS":@96," RECORDS REMAINING = ":V1C:@117,C(V1);:A$A$(V):AV;f V1V C:A$(V1)A$ A$A$(V1):AV1;V1:A$(A)A$(V):A$(V)A$;V; "O",#1,A3$:V1C:#1,A$(V):V:#1:10;B:;L:PRINT FILE)t@128," YOU HAVE 26 FILES TO PRINT FROM (A-Z). ENTER 'ALL' TO PRINT FROM ALL 26 (STARTING WITH 'A'). ENTER 'RESTART' TO START FROM ANY FIELD IN A FILE OR ENTER A FILE NAME A-Z">Fy:" WHICH FILE(S)";:F$>{ ML10:" 1 OR 2 LABELS ACROSS";:WI:WI1WI21147>~ F$"RESTART" 1160 :1210?:" INPUT THE FILE (A-Z)";: F$:" INPUT THE LAST NAME OF THE LAST RECORD PRINTED.":QU$:Z(QU$)?$ "I",#1,F$?? (1)1 : 1160?i#1,QW$: (QW$,Z)QU$ 1200 :1180?: 1250::I5(F$)63: WOI5 26:F$(64WO):1230: WO:10? F$"ALL" WO126:F$(64WO):1230:WO:1301:10@ā 1230:1301:10@Ι "I",#1,F$:@+؇@10,"FILE =";F$@A (1)1 #1:@`#1,Q$:L(Q$):L6 1250@VL 1 1: (Q$,V,1)"*"1290:V@1250@ R$(Q$,V1,LV):R(R$):@106,"CHECK #";R;" ";: RMN1 RMX1 1310 : 1250@ 1250A WI2 A2LA9:1510AA-:PRINT ITA_(L(Q$):LP0:V1L:(Q$,V,1)"*"1340:VAj21350A"?C$:C$"END"67"@12)C$"A63#BLDA $FF01,ANDA #247,STA $FF01,LDA $FF03,ANDA #247,STA $FF03,LDA $FF23,ORA #8,STA $FF23,END#'C96#D:" THERE MAY ALSO COME A TIME WHEN YOU WISH TO USE HIGH RES- OLUTION GRAPHICS IN YOUR MACHINELANGUAGE PROGRAMS."$5E" NOTE THAT ALL THE HI-RES MODES ARE AVAILABLE THROUGH MACHINE LANGUAGE, BUT ONLY PMODES 0 - 4 WILL BE DESCRIBED HERE.":96$XFI04::CT0:12)"PMODE";I:$mGC$:C$"END"78$H8);C$:CTCT1:CT1371 :96:CT0::71%ILDA $FF22,ANDA #183,ORA #176 (COLOR SET 0),ORA #184 (COLOR SET 1),STA $FF22,STA $FFC4,STA $FFC3,STA $FFC1,END%JLDA $FF22,ANDA #199,ORA #192 (COLOR SET 0),ORA #200 (COLOR SET 1),STA $FF22,STA $FFC5,STA $FFC2,STA $FFC0,END%KLDA $FF22,ANDA #215,ORA #206 (COLOR SET 0),ORA #214 (COLOR SET 1),STA $FF22,STA $FFC5,STA $FFC2,STA $FFC1,END&jLLDA $FF22,ANDA #231,ORA #224 (COLOR SET 0),ORA #232 (COLOR SET 1),STA $FF22,STA $FFC5,STA $FFC3,STA $FFC0,END&MLDA $FF22,ANDA #247,ORA #240 (COLOR SET 0),ORA #248 (COLOR SET 1),STA $FF22,STA $FFC5,STA $FFC3,STA $FFC0,END&N CT0 96&OI'P:" AFTER THOSE INITIALIZATION INSTRUCTIONS HAVE BEEN DONE, THE FOLLOWING MUST BE DONE FOR ALL PMODES. THESE INSTRUCTIONS TELL THE COMPUTER WHERE THE HI- RES SCREEN IS LOCATED IN MEMORY (IT MAY BE LOCATED ALMOST ANY- WHERE)."(0Q"NOTE THAT THERE ARE TWO DIF- FERENT SETS OF INSTRUCTIONS.":96(NR:8)"NON-DISK USERS:":(cSC$:C$"END"86(tT10)C$:83(USTA $FFC7,STA $FFC9,STA $FFCA,STA $FFCC,STA $FFCE,STA $FFD0,STA $FFD2,END(V:"THIS PUTS THE HI-RES SCREEN AT 1536.")W96::10)"DISK USERS:":)'XC$:C$"END"91)8Y10)C$:88)ZSTA $FFC7,STA $FFC9,STA $FFCB,STA $FFCC,STA $FFCE,STA $FFD0,STA $FFD2,END)[:"THIS PUTS THE HI-RES SCREEN AT 3584.")\96*]:" I HOPE THAT YOU HAVE ENJOYED THESE TUTORIALS OVER THE PAST FEW MONTHS. IF YOU HAVE ANY QUESTIONS OR COMENTS, SEND THEM TO: ROLAND DE GRAAF 4246 ELISABETH AVE HOLLAND, MI 49423"*^" I WILL LOOK FORWARD TO HEAR- ING FROM YOU."*_:+`@484,"PRESS [ENTER] TO CONTINUE";+a(13)97+bNY QUESTIONS OR COMENTS, SEND THEM TO: ROLAND DE GRAAF 4246 ELISABETH AVE HOLLAND, MI 49423"*^" I WILL LOOK FORWARD TO HEAR- ING FROM YOU."*_:+`@484,"PRESS [ENTER] TO CONT9 п SCORE :@'S' KEY TO PLAY AGAIN, Q TO QUIT@ZEXKMOVSf^=`7(=C' E~T0HX8Hd\=`\!^~|^'Moo& ' ' 'Q'OS S S  (hV̆ {"'Q'S' 9~@' 9E悼G% Ƨ焿E0Ɛ9E0I"EƐ0Ƨ焿E9M0K&9OMO& EQO9OM'$Q=%&!OQƐ9OƐ焾MO9'''"Ɛ焾V0V Ɛ0焾V0V ~OM'9^bM'30'f'$' I,Y&[\!^b ~`dM',0I,)'#''&c`\d9~a^9^?''v'r'ځ'h'dA&!^\bA9`Q''L'H''>':A&!`\dA9^TM^V0V09`TM` ^' `' ^TV0VM^~0`TV0VM`~0J' p~~k^M'~`M'~p~彩(K"'9zV_"9]K9^A`A9 ********************************* CRAWLER ** BY ** BOB JOHNS ********************************* INSTRUCTIONS ------------ LEFT-ARROW KEY TO MOVE LEFT RIGHT-ARROW KEY TO MOVE RIGHT SPACE-BAR TO SHOOT Q-KEY TO QUIT ================================ NOW HIT ANY KEY TO START@ w 7 g g w W 5  7 G  w W  7 G G 44& Y%549S549