KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK ":ED$""TCPV1:L17:8:5)T$(L):-VL16:8:7)J$(L):6X:8UZ6:TP$:6:DB$:6:BL$:6n\N1$:6:AN$:6:N2$^6:CR$:6:ED$:6:`10)"PRESS TRIGGER TO PLAY"bB(JL)16:B0d354f FK T$(6)" "6@T$(7)"":T$(8)"":J$(1)" "^BJ$(2)"  "DJ$(3)"      "FJ$(4)"      "HJ$(5)"     "K 4Y1255010:LF,(255Y1),V2,X1:V3,Y1:(V30)11(V30)22300A :V31,0:M10:V" MISSILE SELECTk$M1M11:M1MD{&HF,5:LF,5(M1MD10282*,V2,0:E$"DESTROYED BY ENEMY FIRE,":218. TITLE SCREEN0K YD:V1,Y:PL,SP1:  HOVERING ROUTINE2FR((JL)16)161:FR2FA48:110;240I122:252d SOUND INITIALIZATIONS54272:QSS24:Q,0:S24,15:S5,18:S6,33S4,129:HF54273:LF54272 S12,255:S13,255:S11,K E$"CRASHED INTO A BUILDING,"9HF,7:XX12:YY10:V4,X:V5,Y:WA1255:LF,WA:EV21,0ZHF,0:LF,0:268q PICK UP MAN HEREMSMS1:BB,U:MSMS1:BB1,U:MSMS1:BB2,U:MSMS1:BB3,U:HF,7:XX12:YY10:c SETUP"120,169,0,141,20,3,169,192,141,21,3,88,96"P4915249194:A:P,A:+"49182:":370m l"":TS)"MEN RESCUED: ";:MR1MS:"";:: n14)"BONUS: ";:HH1MS:OO100:H1,100:M1150: pH1,0:""21)O;:: r11)" INAL SCORE hBC,0:FS100MSSL(500ZZ):TS(40(14MS))28 jMS0"":13)"NO MEN RESCUED":370m l"":TS)"MEN RESCUED: ";:MR1MS:"";:: n14)"BONUS: ";:HH1MS:OO100:H1,100:M1150: pH1,0:""21)O;:: r11)"K JJ$(6)"ˠˠ ˠ"8LBL$" ":N1$"MICHAEL BUHIDAR JR."sNTP$" ":DB$"DESIGNED BY"PAN$" AND ":N2$" KEVIN WORAM "RCR$" K L122::2K13:19)"":'4T$(1)""R6T$(2)" "}8T$(3)" ":T$(4)" "<T$(5)" ">K 17:H154280:L154279:  END ROUTINE BC,0:CN(832):CNCN1;"CHOPPER V -"CN;E${"SEND FOR REPLACEMENT PILOT IMMEDIATELY!":V5,0:832,CNK0999::ZZ(TI$):35870 MISSILE MOVING ROUTINEHF,20:X1((0)68)14K V4,X:V5,Y:WA1255:LF,WA:HF,0:LF,0:) MOVEMENT ROUTINEWJVN((JL)N)1:TL(((TI$))TD)1:292m(V31)XX192TL100,100,100,102,104,106JV86,88,90,100,84,92,94,100,82,96,98:LSSPPL,SP:XXXD:V,X:Y(V1)K YOUR SCORE: "FS"" tJJ01000::!v MOVEMENT CHECKER!xN!zR12288:G16:I163:A:DCDCA:RR1::RR1:!|173,1,208,201,50,144,7,201,229,176,11,76,49,234,105,4,141,1,208,76!~49,234,233,4,141,1,208,76,49,234! INTERRUPT ,232,208,813# 241,169,160,157,12,4,32,91,866J 193,76,63,192,230,251,208,2,1215p 230,252,96,173,134,2,160,0,1047 153,0,216,200,192,21,144,248,1174 96,160,0,177,251,170,32,84,970 193,177,251,133,252,138,133,251,1528 9 ,15,193,230,254,32,84,8888 193,165,255,160,0,170,177,251,1371\ 201,34,208,8,173,167,2,73,866 255,141,167,2,173,167,2,208,1115 12,177,251,201,32,208,6,198,1085 254,138,76,187,192,138,113,251,1349 69,254,170,138,76,187,192 : CHOPPER FLIGHT BY MIKE BUHIDAR JR. AND KEVIN WORAMWCN0:832,0:BC53280:12b10);DD8:CP,D:PL,192:W112::PL,193 122:W112:: M10:258:132:FA3:D215V,164:V31,0:302"ENTER SKILL LEVEL (1-6)" R 0,133,254,133,255,165,20,133,1093C s 254,165,21,133,255,32,72,192,1124j t 160,2,177,251,197,254,240,6,1287 u 32,105,193,24,144,239,200,177,1114 v 251,197,255,240,6,32,105,193,1279 w 24,144,226,169,1,133,254,169,1120 x 0,133,255,165, ":OS$" "` F$" ̒":SB13(2SL):Z,(Z)239:TD(7SL)10 """:RF$"":RF$RM)RF$:V1,Y:V,X $374 &""BR$N)BR$ (P15:WN$WS)W2$:BR$N)BR$:B2$N)B2$: *Z,(Z)16 , ":80W @CP833:P(V1)2112:DD8:V1,P:8::PL,193 B"YOU DID IT!":M12000: DZZ(TI$):HH01000::V,0:358 F" PRESS TRIGGER TO PLAY AGAIN." HB(JL) D:`SP192:XDHD:YDHD:*bSP192:XDHD:YDHD:0d<fBC,8:HhBC,2:ejHF,20:X1X:V40,2:284wl SLOWER FALLn122:FAFA2:FA50252p240:r FASTER FALLt122:FA1FA2vFAFA2:240:x SOUNDzHF,7:LF, 2PL2,197:V28,4:V41,8:V37,7:V38,2HV29,4:V23,4:"READING DATA..."^(12660)150148R12288:G16:I163:A:DCDCA:R,A:RR1::RR1:DC27628"ERROR IN DATA. . .":JL56320:N15:Z53265:CD53269Z,( ,1,0,0,1,0,0,7,192,0,31,240Q192,63,136,224,63,4,255,255,2,255,255,130,0,63,130,0,47,252,0,15,2480,6,248,1,4,17,1,140,27,0,255,254,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,255,255,128,0,128,0,3,224,0,15,248,017,252,3,32,252,7,64,255,255,6 6,49,128,127,255,0,0,0,0,0,0,0,0,0,0J0,0,0,0,62,0,0,119,0,0,239,128,0,207,128,0,255,128,0,0,00,127,0,0,127,0,0,127,0,0,62,0,0,62,0,0,62,0,0,28,00,127,0,0,235,128,0,193,128,1,128,192,1,128,192,1,0,64,1,0,64 0,20,0,0,85,0,1,150,64,5,1B6,0,0,0,0,0,0,160,256. 140,137,142,133,160,163,160,0,103527,193,240,6,915l 153,4,4,200,208,245,234,165,1213 20,133,99,165,21,133,98,162,831 144,56,32,73,188,32,221,189,935 162,0,189,1,1,240,10,41,644 63,9,128,157,12,4 ,169,1255! 160,141,0,4,169,186,141,1,802E 4,160,0,185,127,193,240,6,915l 153,4,4,200,208,245,234,165,1213 20,133,99,165,21,133,98,162,831 144,56,32,73,188,32,221,189,935 162,0,189,1,1,240,10,41,644 63,9,128,157,12,4 M14:WS11:258, SL$:(SL$)1(SL$)6205 132V V31,0:LS192:Q4:M88:U83 BR$"":B2$"":HD4SL3:GHHD1:MD(GH30) WN$"  Ϸ":W2$"Е  ":HD3HD3 TR$" 251,24,105,4,9371 y 133,251,165,252,105,0,133,252,1291U z 169,0,160,0,169,0,141,167,806} { 2,240,38,133,255,177,251,208,1304 | 27,165,255,41,240,74,74,74,950 } 74,24,105,129,141,2,4,165,644 ~ 255,41,15,24,105,129,141,3,713  4,76 TI$"000000":L41SB:K1Q+ .WN$WS)W2$:80> 0BR$N)BR$:80S 2B2$N)B2$:80:w 4MP((1)2)RM:13MP)"": 6WN$WS)W2$:80 8TR$15)TR$:80:K13:OS$15)OS$:80: :OS$5)""4)OS$ <F$4)""4)F$;" >" 16:B076 J72 L:16) N JOYSTICK ROUTINEL PFR((JL)16)161:FR110,116d RSP192:XDHD:YD0:} TSP194:XDHD:YD0: VSPLS:XD0:YD0: XSPLS:YDHD:XD0: ZSPLS:YDHD:XD0: \SP194:XDHD:YDHD: ^SP194:XDHD:YDH 53:HF,0:LF,0:HF,7:LF,163:LF,0:HF,0.|G10(50FA):e~HF,7:LF,53:HF,0:LF,0:HF,7:LF,163:LF,0:HF,0kSPRITE INITIALIZATI"":BC,0:BC1,0V53248:PL2040:V21,7:X170:Y100:SP192:V39,15:PL,SPPL1,196:V40,1 Z)247:Z,((Z)248)7: SPRITE DATAP0,0,0,0,0,0,0,0,0,1,255,255,0,1,0,0,7,192,0,31,240192,63,136,224,63,4,255,255,2,255,255,130,0,63,130,0,47,252,0,15,2480,6,248,1,4,17,1,140,27,0,255,254,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0 5,255,255,65,252,0,63,248,0,31,240,0M12,96,0,136,32,128,216,49,128,127,255,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,128,0,0,128,0,3,224,0,15,248,017,252,3,32,252,7,64,255,255,65,255,255,65,252,0,63,248,0,31,240,0 12,96,0,136,32,128,21 05,80,5,170,80,38,170,152,42,170,168S46,170,184,91,190,229,122,255,173,119,255,221,90,255,165,27,190,232c46,170,18442,170,168,5,170,80,5,105,80,1,150,64,0,85,0,0,20,0,0,0,0 SPRITE-DATA COLLISIONXPX24:YPY54:CX(XP8):CY(Y P8):BB1104CX(40CY))P1(BB):P2(BB1):P3(BB2):P4(BB3)DP1UP2UP3UP4UaP1MP2MP3MP4M204j206H1,50:L049::H1,0P1(M)226P2(M)228P3(M)230P4(M)232 PUT EXPLOSION HERE #$"":53280,0:53281,6:646,1].5000:" BUG REPELLANT INSTALLED ": X 49152 49488 : Y: X,Y:: 32, 161, 192, 165, 43, 133, 251, 165, 44, 133 252, 160, 0, 132, 254, 32, 37, 193, 234, 177  251, 208, 3, ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0r 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0~ * 1 * 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0 0,62,0,0,62,0,0,62,0,0,6 40,3,255,224,0,255,128,0,0,0,0,0,0 * 8 *b  0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,24015,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240  31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0, , SA49152:"":53280,0:53281,6:646,1]" INSTANT BUG REPELLANT INSTALLED "I100148:ZZ0:J18:A:SA,A:SASA1:ZZZZA:JA: ZZA CKCKZZ: I:50(" ERROR IN LINE #";I:2 SACK1377 49152: d 169,90,141, BC: 2000 C$B$ BZ: 2000  Z$B$& = TRUNCATE A AND JLBJ: 2000VJ$B$eBA: 2000oA$B$u J19(J$)  S$"S" 765  A16);A$;P16);P$;C16);C$;J16);J$: 770  A1);A$;P1);P$;C1);C$;J1);J$ 13, 76, 210, 255, 0, 0, 0, 205, 189, 169, 13, 32, 210, 255, 32k  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6,  X20 X60 (12):X1: 7003  (A$)8 A19(A$)O  (P$)8 P19(P$)k  (C$)8 C19(C$)  (J$)8 J19(J$)  S$"S" 765  A16);A$;P16);P$;C16);C$;J16);J$: 770  A1);A$;P1);P$;C1);C$;J1);J$ , 41, 1, 208, 2499  96, 32, 205, 189, 169, 13, 32, 210, 255, 32k  204, 255, 169, 4, 76, 195, 255, 147, 83, 67  82, 69, 69, 78, 32, 79, 82, 32, 80, 82  73, 78, 84, 69, 82, 32, 63, 32, 0, 76  44, 193, 234, 177, 251, 201, 32, 240, 6,  63, 208, 2, 230, 64, 230F  251, 208, 2, 230, 252, 76, 11, 192, 169, 153x  160, 192, 32, 30, 171, 166, 63, 165, 64, 76  231, 192, 96, 76, 73, 78, 69, 83, 58, 32  0, 169, 247, 160, 192, 32, 30, 171, 169, 3  133, 254, 32, 228, 255, 2 ICTLY RANDOM,BLACKBOARD.BAS,BALLBOUNCE.BAS,TX2BAS,COMPULOAN= MENU C-64IW * N *X 0,0,0,0,0,0,31,128,248,31,192,248,31,224,248,31,224,248,31,240,248b 31,248,248,31,248,248,31,124,248,31,124,248,31,62,248,31,62,248$l 31,31,248,31,31,2  76, 138, 192, 230, 251, 208, 2M  230, 252, 76, 43, 192, 76, 73, 78, 69, 32}  35, 32, 0, 169, 35, 160, 192, 32, 30, 171  160, 0, 177, 251, 170, 230, 251, 208, 2, 230  252, 177, 251, 32, 205, 189, 169, 58, 32, 210  255, 169, 0, 133, 28,0,62,0,0,0,0,0,0,0 * V *[ 0,0,0,0,0,0,62,0,124,62,0,124,31,0,248,31,0,248,15,129,240,15,129,240 7,195,224,7,195,224,3,231,192,3,231,192,1,255,128,1,255,128,0,255,0 0,255,0,0,126,0,0,126,0,0,60,0,0,0,0,0,0,0 * . ** 0,0 2,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255+ 192,0,0,0,0,0,07 * 9 * 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128  248,15,193,240,7,255,20% * 5 *=* 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,154 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128> 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0 248,15,193,240,7,255,2 2,3,169,192,141,9074 e 3,3,160,0,185,37,192,240,820\ f 6,32,210,255,200,208,245,169,1325 g 1,133,251,169,8,133,252,165,1112 h 0,141,167,2,96,18,32,73,529 i 78,83,84,65,78,84,32,66,570 j 85,71,32,82,69,80,69,76,564 k 76,69,78,84, 32,13,0,40,3924 l 104,170,104,168,104,76,131,164,1021Z m 160,0,177,251,240,1,96,200,1125 n 177,251,240,1,96,104,104,76,1049 o 63,192,72,152,72,138,72,8,769 p 165,157,208,3,76,63,192,169,1033 q 1,133,251,169,8,133,252,169,1116 r AACP:CAIN:JPC'4 ACP PAC:JA:9 A.01 845D>XX1NH 720]M S$"S"jR1: 1:p}K(K):B(B100.001):B$(B):B$(B$,(B$)2)"."(B$,2)* TRUNCATE P,C AND Z BP: 2000 P$B$ 138) 113, 251, 69, 254, 170, 138, 76, 88, 192, 0W 0, 0, 0, 230, 251, 208, 2, 230, 252, 96 170, 177, 251, 201, 34, 208, 6, 165, 2, 73 255, 133, 2, 165, 2, 208, 218, 177, 251, 201 32, 208, 212, 198, 254, 76, 29, 193, 0, 169  01, 83, 240, 6, 201>  80, 208, 245, 230, 254, 32, 210, 255, 169, 4r  166, 254, 160, 255, 32, 186, 255, 169, 0, 133  63, 133, 64, 133, 2, 32, 189, 255, 32, 192  255, 166, 254, 32, 201, 255, 76, 73, 193, 96  32, 210, 255, 173, 141, 2 48,31,15,248,31,15,248,31,7,248,31,3,248,0,0,0,0,0,00q * O *{v 0,0,0,0,0,0,0,62,0,0,255,128,1,255,192,3,255,224,7,247,240,7,227,240 15,227,248,15,193,248,15,193,248,15,193,248,15,193,248,7,227,240 7,247,240,3,255,224,1,255,192,0,255,1  253, 230, 254, 32, 37, 193J  234, 165, 253, 160, 0, 76, 13, 193, 133, 253~  177, 251, 208, 237, 165, 253, 41, 240, 74, 74  74, 74, 24, 105, 65, 32, 210, 255, 165, 253  41, 15, 24, 105, 65, 32, 210, 255, 169, 13  32, 220, 192, 230, $ *** "BLACKBOARD.BAS" *******bBASE24096: 53272,(53272)8: PUT HIGH-RES MAP AT 8192 53265,(53265)32: ENTER HIGH-RES BIT-MAP MODE( IBASE BASE7999: I,0:: CLEAR BIT MAP 2 I1024 2023: I,16: I: BLACK BACKGROUND, W   **** BALLBOUNCE.BAS ****< (147): CLEAR SCREENBALL81:SPACE96:RULE99: CODES TO PRINT THINGS ON THE SCREEN( L55616 55975: L,2: L: MAKE BALL RED2 L55976 56015: L,7: L: MAKE FLOOR YELLOW < 53281,0: 53280,6: OING UP' xPSNPSN401: THE BALL GOES UPn CT40 PSN1344:CT1: 150: BALL OFF SCREEN--BACK TO BEGINNINGx INC DEC1 8: 210: THIS LOOP DRAWS THE BALL COMING DOWN PSNPSN41: THE BALL COMES DOWN CT40 100: BALL OFF SC 9A(61)256(62)3:786,(A256):785,A256(786)iERA2,0:A1,0:45,(785):46,(786)::53280,0:53281,0:646,1!(147)" "THIS PROGRAM WILL TURN TEXT BASIC FILES INTO RUN BASIC PROGRAMS"; , "USING THE COMMODORE DATASET :SA0:N1:63080 HA$"D"630460 JD8:SA3:N3N h "HIT A KEY WHEN READY!"d mA$: A$""63085p r(147) y3,D,SA,F$:"READING FILE, PLEASE BE PATIENT!":X11000: {152,3:T$"" |#3,A$: A$""63100 ST6463250 A$(13)#>hmid sta hpsn+1 jsr plot inc hpsn bne skip inc hpsn+1 skip jsr plot ldx vpsn inx stx vpsn cpx #vmax bcc point inf jmp inf sta tabptr lda #>colmap sta tabptr+1 lda #maplen sta tabsiz+1 jsr blkfil * *drawhorizo$ ((T$,1))0T$(T$,((T$)1)):63140M (147)"CONVERSION COMPLETE!!!":3:o "DO YOU WANT THIS CONVERTER"  "DELETED BEFORE YOU SAVE THE NEW PROGRAM?" !A$:A$""63265 "A$"Y"ER1:62990 &"ALL DONE! CHECK IT OUT!" 0) lda #scrlen sta tabsiz+1 jsr blkfil * *setbkgandlinecolors * lda #color sta filval lda #colmap sta tabptr+1 lda #maplen sta tabsiz+1 jsr blkfil * *drawhorizoSN " 290 2006 P ****** PLOT ROUTINE **********I ZCHAR(HPSN8)[ dROW(VPSN8)m nLINEVPSN 7 xBYTEBASEROW3208CHARLINE BIT7(HPSN 7) BYTE,(BYTE) (2BIT) **** DRAW VERTICAL LINE *******) VPSN0 ( "COPYRIGHT 1985 CHERYL PETERSON"G"LOAN PAYMENT CALCULATOR"n"SCREEN DISPLAY OR PRINTOUT?" S$: S$""30# S$"S" S$"P" 40$"WAS THAT AN S OR A P?":20("VIEW/PRINT PAYBACK SCHEDULE (Y OR N)?" 2 V$: HITE LINE < 2006 P ****** PLOT ROUTINE **********I ZCHAR(HPSN8)[ dROW(VPSN8)m nLINEVPSN 7 xBYTEBASEROW3208CHARLINE BIT7(HPSN 7) BYTE,(BYTE) (2BIT) **** DRAW VERTICAL LINE *******) VPSN0 BLACK BACKGROUND, BLUE BORDER3 F (5): WHITE TEXTc P:: " FOLLOW THE BOUNCING BALL . . ." Z L1704 1743: L,RULE: L: DRAW FLOOR dPSN1664:CT1: STARTING POSITION AND FRAME COUNTER n INC1 8: 210: THIS LOOP DRAWS THE BALL GREEN -- LOOP BACK DEC3 110: DONE--START AGAINX **** PRINT BALL ON SCREEN ****g PSN,BALLz L1 50: L PSN,SPACE CTCT1: STARTING POSITION AND FRAME COUNTER n INC1 8: 210: THIS LOOP DRAWS THE BALL G TE OR DISK DRIVE."= 6(17)"THE PROGRAM WILL DELETE ANY LINE"x @"OF THE FILE IN CASE IT IS NOT A PROGRAM LINE."(147) C"NAME OF FILE TO BE CONVERTED";F$ E " "(18)"T"(146)"APE OR "(18)"D"(146)"ISK?" FA$:A$""63046 GA$"T"D1 63130 T$T$A$ A$"":631008 (T$)3T$"":63100Q (T$,1)(10)63250 ((T$,1))0T$:T$(T$,((T$)1)):63140 (147)" TRANSLATING TEXT INTO BASIC..." (17)(17);T$:"GOTO 63099" 198,2:631,13:632,13:(19):  KT: 1000 TK5 "ENTER YEARLY INTEREST RATE";ID KI: 1000L IK] III:II100o S$"S" 260} 1,4,7:1  (147) "LOAN PAYMENT CALCULATOR"  4030 "AMOUNT FINANCED $";A$ "INTEREST RATE";II;"%." ""# OF P AYMENTS PER YEAR: ";N5 ,"TOTAL NUMBER OF PAYMENTS IS ";TY PA(IN)(1(1(1(IN))(T)))i ZPT:CZAt X 3000 b"EACH PAYMENT IS";P$ l"TOTAL INTEREST PAID IS $";C$ v"TOTAL AMOUNT PAID IS $";Z$  V$"Y"845 CAIN ntalline * lda #vmid sta vpsn lda #0 sta hpsn sta hpsn+1 agin jsr plot inc hpsn bne next inc hpsn+1 next lda hpsn+1 cmp #>hmax bcc agin lda hpsn cmp # HPSN159 160G 80Y HPSN: VPSN *** DRAW HORIZONTAL LINE ****** VPSN100: HALFWAY DOWN SCREEN  HPSN0 319: PLOT LINE FROM LEFT SIDE TO RIGHT SIDE OF SCREEN  80  HPAND Z BP: 2000 P$B$ BC: 2000) C$B$8 BZ: 2000B Z$B$H _ TRUNCATE A AND JnBJ: 2000xJ$B$BA: 2000A$B$ J19(J$)  S$"S" 765  A16);A$;P16);P$;C16);C$;J16);J$: 770  << RR23-2 >>B RUPERT REPORT #23:MONKEY BUSINESSc >> WEIGHTED KEYBOARD <<i SIMULATE A MONKEY AT A SPECIAL KEYBOARD WITH NUMBERS OF KEYS IN PROPORTION TO THE FREQUENCY OF  EACH LETTER'S USAGE IN ENGLIS 0 : IX0 : TTL0, N,C$ :NCT0 : N1 300A A$(IX)A$(IX)C$e NCTNCT1 : CTCT1 : TTLTTL1 CT255 CT0 : IXIX1 NCTN 220  (19)7) TTL : 210 ' -- PICK AND PRINT LETTERS -- ,K((0)TTL) 6X(K255) : C  << RR23-1 >>B RUPERT REPORT #23:MONKEY BUSINESSc >> STRICTLY RANDOM <<i SIMULATE A MONKEY AT A NORMAL 'ONE KEY PER CHARACTER' TYPEWRITER KEYBOARD. A$" ABCDEFGHIJKLMNOPQRSTUVWXYZ" N27(0 L  `nnn n  mm`JJJFf)) 8  @  % e e   % miee  * *blackboard * org $8000 * color equ $10 base equ $2000 scroly equ $d011 vmcsb equ $d018 colmap equ $0400 * hmax equ 320 vmax equ 200 hmid equ 160 vmid equ 100 * scrlen equ 8000 maplen equ 1000 * tempa equ $fb tempb equ tempa+2 * tabptr equ tempa ta  equ filval+1 * ciapra equ $dc00 * jmp start * *blockfillroutine * blkfil lda filval ldx tabsiz+1 beq partpg ldy #0 fullpg sta (tabptr),y iny bne fullpg inc tabptr+1 dex bne fullpg partpg ldx tabsiz beq fini ldy #0 partlp sta (tabptr),y in ne mult rts * *plotroutine * *row=vpsn/8(8-bitdivide) * plot lda vpsn lsr a lsr a lsr a sta row * *char=hpsn/8(16-bitdivide) * lda hpsn sta tempa lda hpsn+1 sta tempa+1 ldx #3 dloop lsr tempa+1 ror tempa dex bne dloop lda tempa sta hmax sta mpdl lda #>hmax sta mpdh jsr mult16 lda mprl sta tempa lda mprl+1 sta tempa+1 * *addproducttobase * clc lda #base adc tempa+1 sta tempa+1 * *multiply8*char * lda #8 sta mprl lda #0 sta m tempa+1 adc tempb+1 sta tempb+1 * *pokebyte,peek(byte)or2^bit * ldx bitt inx lda #0 sec square rol dex bne square ldy #0 ora (tempb),y sta (tempb),y rts * *mainroutinestartshere * *firstdefinebitmapandenable *high-resolutiongrap  V$"Y"845 CAIN! JPC+ AAC>  S$"S" 705e  7);"BALANCE";9);"PAYMENT";8); "INTEREST";7);"PRINCIPLE": 710 " BALANCE";3);"PAYMENT";2);"INTEREST";1);"PRINCIPLE" X1  3000  4000  X50 X2  A1);A$;P1);P$;C1);C$;J1);J$0AACP:CAIN:JPCI4 ACP PAC:JA\9 A.01 845f>XX1pH 720M S$"S"R1: 1:K(K):B(B100.001):B$(B):B$(B$,(B$)2)"."(B$,2)* TRUNCATE P,C 8HKX2551 @L$(A$(X),CH,1)$ J L$;. T 30074,A,74,I,61,Sb f 42,D,36,L,34,H,31,C,28,F g 27,P,26,U,25,M,19,Y,16,G h 16,W,15,V,10,B,5,X,3,Q i 3,K,2,J,1,Z,-1,* -- PACK STRINGS WITH LETTERS -- (147) "TOTAL = 0" CT)1 : (A$,N,1);  20VIC BUG REPFLANKSPEED F-SPEED OVERINSTA BUG 64SLITHER$KNIGHTS TOUR FILE SCOUT V0619 8*`Э Э ݭ ݩ @  d U@ U UȐL$KNIGHTS TOUR FILE SCOUT V0619 bsiz equ $9000 * hpsn equ tabsiz+2 vpsn equ hpsn+2 char equ vpsn+1 row equ char+1 line equ row+1 byte equ line+1 bitt equ byte+2 * mprl equ bitt+1 mprh equ mprl+1 mpdl equ mprh+1 mpdh equ mpdl+1 prodl equ mpdh+1 prodh equ prodl+1 * filval equ prodh+1 jsv y dex bne partlp fini rts * *16-bitmultiplicationroutine * mult16 lda #0 sta prodl sta prodh ldx #17 clc mult ror prodh ror prodl ror mprh ror mprl bcc ctdown clc lda mpdl adc prodl sta prodl lda mpdh adc prodh sta prodh ctdown dex b  char * *line=vpsnand7 * lda vpsn and #7 sta line * *bitt=7-(hpsnand7) * lda hpsn and #7 sta bitt sec lda #7 sbc bitt sta bitt * *byte=base+row*hmax+8*char+line * *firstmultiplyrow*hmax * lda row sta mprl lda #0 sta mprh lda #< prh lda char sta mpdl lda #0 sta mpdh jsr mult16 lda mprl sta tempb lda mprh sta tempb+1 * *addline * clc lda tempb adc line sta tempb lda tempb+1 adc #0 sta tempb+1 * *tempa+tempb=byte * clc lda tempa adc tempb sta tempb lda hics * start lda #$18 sta vmcsb * lda scroly ora #32 sta scroly * *selectgraphicsbank1 * lda $dd02 ora #$03 sta $dd02 * lda $dd00 ora #$03 sta $dd00 * *clearbitmap * lda #0 sta filval lda #base sta tabptr+1 1 (12):X1:X2X21: 7009  X20 X60 (12):X1: 700U  (A$)8 A19(A$)q  (P$)8 P19(P$)  (C$)8 C19(C$)  (J$)8 J19(J$)  S$"S" 765  A16);A$;P16);P$;C16);C$;J16);J$: 770 #"":53280,0:53281,6:646,1K"PROGRAMMING IN THE IRQ INTERRUPT""RUN THIS PROGRAM,THEN TYPE CHARACTERS IN UPPER LEFTHAND CORNER OF SCREEN""THE BORDER COLOR WILL CHANGE, DEPENDING ON SCREEN CODE OF CHARACTER", "13-BYTE PROGRAM SOC407V408X 1024LOC,86: 55296LOC,14 V# X:Bp 49312: (197)64 6000Lz 200^@S0: V0 7J ((407V40391024)127)86 SS2VT V: 4915251231,S:' 99997l 5610v"WORKING.";x X0  #"":53280,0:53281,6:646,1)Q RUPERT REPORT #23:MONKEY BUSINESSr >> WEIGHTED KEYBOARD <<x"SIMULATE A MONKEY AT A SPECIAL""KEYBOARD WITH NUMBERS OF KEYS""IN PROPORTION TO THE FREQUENCY OF" "EACH LETTER $"" VV1.+ A$"" X49152512 4915251232: X,0: X: 5500C0 A$"" VV1Y5 A$"" 5750x: 1024LOC,(1024LOC)127D X0 X0N X31 X31X V0 V0b V7 V7l 5610v"WORKING.";x X0 "TOTAL = 0" CT0 : IX0 : TTL0? N,C$ :NCT0 : N1 300T A$(IX)A$(IX)C$x NCTNCT1 : CTCT1 : TTLTTL1 CT255 CT0 : IXIX1 NCTN 220  (19)7) TTL : 210 ' -- PICK AND PRINT LETTERS -- ,K((0)TTL)789012""" X0 7 "VOICE";X;":"% XW ""b 5850"CURSOR KEYS MOVE CURSOR""USE (F7) TO EXIT""SPACEBAR TOGGLES MARKER""USE (F3) TO CLEAR PATTERN"V0:X#"":53280,0:53281,6:646,1)Q RUPERT REPORT #23:MONKEY BUSINESSr >> STRICTLY RANDOM <<x"SIMULATE A MONKEY AT A NORMAL""'ONE KEY PER CHARACTER'"" TYPEWRITER KEYBOARD." A$" ABCDEFGHIJKLMNOPQRSTU2:FI128:SP128  X0 28 SIDX,0: XB SID21,7: SID23,7: SID22,FIR SID24,31XnSS1: S2 S0 S0 S116 S1 S132 S2 S1128 S1(BASE3) S116 S0: S132 S1: 1,31,141,32,208,76,49,234E PROGRAM RUNS IT"L I5011 5023: A: I,A:l  I5000 5010: A: I,A:w  5011} ( / *** SYS CALL TO SET INTERRUPT VECTOR 0 BLOCK INTERRUPTS, SET VECTOR ADDRESS (LOW, HIGH), ENABLE INTERRUPTS& 1 S#"":53280,0:53281,6:646,1J "COPYRIGHT 1985 CHERYL PETERSON"i"LOAN PAYMENT CALCULATOR""SCREEN DISPLAY OR PRINTOUT?" S$: S$""30# S$"S" S$"P" 40$"WAS THAT AN S OR A P?":20 ("VIEW/PRINT PAYBACK ETS UP THE INTERRUPT: 11-BYTE PROGRAM RUNS IT"L I5011 5023: A: I,A:l  I5000 5010: A: I,A:w  5011} ( / *** SYS CALL TO SET INTERRUPT VECTOR 0 BLOCK INTERRUPTS, SET VECTOR ADDRESS (LOW, HIGH), ENABLE INTERRUPTS& 1 SAL NUMBER OF PAYMENTS TO MAKE";T+ KT: 10003 TKW "ENTER YEARLY INTEREST RATE";If KI: 1000n IK III:II100 S$"S" 260 1,4,7:1  (147) "LOAN PAYMENT CALCULATOR"  4030 "AMOUNT FINANCED $";A$ "I'S USAGE IN ENGLISH." 7 d 275," ",130,E,92,T,79,NV e 76,R,75,O,74,A,74,I,61,Su f 42,D,36,L,34,H,31,C,28,F g 27,P,26,U,25,M,19,Y,16,G h 16,W,15,V,10,B,5,X,3,Q i 3,K,2,J,1,Z,-1,* -- PACK STRINGS WITH LETTERS -- (147)  30{S0}"."; V0 7LOC407V408X@ ((1024LOC)127)86 SS2VH V\ 49152512X,Sd Xo 8000y 200 X0 31 V0 7 (49152512X)0 5895 ((49152512X)(2V))0 5890LK 6X(K255) : CHKX2551- @L$(A$(X),CH,1)7 J L$;A T 30074,A,74,I,61,Su f 42,D,36,L,34,H,31,C,28,F g 27,P,26,U,25,M,19,Y,16,G h 16,W,15,V,10,B,5,X,3,Q i 3,K,2,J,1,Z,-1,* -- PACK STRINGS WITH LETTERS -- (147) 0LOC407V408X+ 1024LOC,(1024LOC)128:55296LOC,14C A$: A$"" 5630~ A$" " (1024LOC)86128 1024LOC,160: 5650  A$" " (1024LOC)160 1024LOC,86128 A$"" XX1 A$"" XX1& A2VWXYZ"# N27(0)1 : (A$,N,1);,  20 BALLBOUNCE.BAS TX2BAS COMPULOANMENU C-64CHPOPPER FLIGHT S1128 S2: S116:S0  5 1,2,1,4,1,2,1,4,1,2,1,4,1,2,1,4,1V X49152512 4915251216f A: X,A:| " PATTERN ENTRY"" 11111111112222222222333"" 12345678901234567890123456 NTEREST RATE";II;"%."1 ""# OF PAYMENTS PER YEAR: ";NW ,"TOTAL NUMBER OF PAYMENTS IS ";T{ PA(IN)(1(1(1(IN))(T))) ZPT:CZA X 3000 b"EACH PAYMENT IS";P$ l"TOTAL INTEREST PAID IS $";C$ v"TOTAL AMOUNT PAID IS $";Z$  SCHEDULE (Y OR N)?") 2 V$: V$""50E 7 V$"Y" V$"N" 210j <"WAS THAT A Y OR AN N?":50 "ENTER CASH VALUE BEING FINANCED";A KA: 1000 AK "ENTER NUMBER OF PAYMENTS PER YEAR";N KN: 1000 NK "ENTER TOTEI LDA#136 STA 788 LDA#19 STA 789 CLI RTSW 2 120,169,136,141,20,3,169,19,141,21,3,88,96{ 9 *** ACTUAL INTERRUPT ROUTINE : GET FIRST SCREEN CHARACTER; USE LOW NYBBLE TO SET BORDER COLOR ; LDA 1024 AND#15 STA 53280 JMP 59953 < 173,0,4,4 $(B(I)):C$C$(SP$,4(C$))! A$1)B$1)C$;: LA(I)0 15450 (LA(I))A  34)LH$(I)[ II1: INF 1548x  I8(I8)0 1520 RW24:CL5: 50: (5)" NEXT SCOUT PRINT BOOT QUIT?";  700: A$;: (154); A$"P" AND HIT A KEY "; 700: 725: 750 100: 6004xNF$(NF):L(NF$)GyFL$(BL$,9L)f}NF$ " # FILES : "NF$FL$~TH$CL$R9$DN$NF$SP$" ":L((BA))((BF)):FL$(SP$,14L)TJ$R9$"BLOCKS ALLOC:"(BA)" BLO ( 53280,1:53281,3&2 650,2551d 2000:""\" RHYTHMIC BITS"" BY DAVID BARRON""(F1) - DEFINE SOUNDS""(F3) - ENTER RHYTHMIC PATTERN""(F5) - CHANGE FILTER""(F6) - SET SPEED" " ";: J: FT$(K);=SP$" ",>A$(T(K)):A$A$(SP$,3(A$))P?B$(S(K)):B$B$(SP$,3(B$))t@C$(B(K)):C$C$(SP$,4(C$))H A$1)B$1)C$1);: LA(K)0 SP$;: 845ID$(LA(K)):D$D$(SP$,6(D$)): D$1)M LH$(K)R) - INCREASE" a"(F3) - DECREASE"3 b"(F7) - QUIT"j h"LOW: :HIGH"x |""~   5FI10);"  "  T$: T$"" 400  T$"" FIFI1: FI255 FI255  T$"" FIFI1: FI0 FI,8,15,"I0:" 15,A$,B$,C$,D$:15 A$"00" 5::"DISK ERROR":;:T GET DISK NAME & IDg 15,8,15,"U;"x 2,8,2,"#2"TD18:TS0:15,"U1:2,8,"TD,TS 15,"M-R"(144)(5)(20) I0 19:#15,A$:DN$DN$A$: I2:10);"  " X T$: T$"" 600E b T$"" SPSP1: SP254 SP254j l T$"" SPSP1: SP0 SP0} q T$"" 640 v 585  49164,SP1  200 "": 650,255: V7 V0 "" "FREQUENCY:"  "DECAY(N1),LH$(N1) b 2,8,2,"#2"l I0 NF1Dq (FT$(I),3)"PRG" LA(I)1: 650_v15,"U1:2,8,"T(I),S(I)qx15,"B-P:"2,0{#2,A$:#2,A$:#2,A$:#2,B$|A(A$(0)):B(B$(0))LA(I)A B256BH(B16):BLB(BH16)AH(A"!"USE (SPACEBAR) TO TEST SOUND"0""USE (X) TO EXIT"]#" SOUND DEFINITION FOR VOICE #";V{$"";&BASE124096256V4'F(BASE)(BASE1)256(D(BASE2): 3000* D15 D15+ S2 S2. X$"" FF(200(1.25F650000)): F65535 F65535X I$"" FF(200(1.25F650000)): F0 F0z I$"" DD1: D15 DD1 I$"" DD1: D0 DD1 I$"" 2200 I$"" VV1: V7 V0 I$"" 1000   800: (20);: 1548 A$"S" 400: 1580 A$"Q" 5 A$"B" : 10L" A$"N" 1548`' INF 1505o,I0: 1505uo:p15: 15,8,15,"I0:":15,"S0:FILE SCOUT V0619":15u "FILE SCOUT V0619",8:15: 15,8,CKS FREE:"(BF)FL$1TL$R9$"FILE TYPE TRK SEC BLK ADDR "R0$:I0J TH$;: TJ$: TL$:} F$(I);: J016(F$(I)):" ";: J: FT$(I);SP$" "A$(T(I)):A$A$(SP$,3(A$))B$(S(I)):B$B$(SP$,3(B$))C "(F7) - PLAY PATTERN"? " - ENTER YOUR SELECTION -"V  T$: T$"" 280j " T$"" 1000~ ' T$"" 5500 , T$"" 350 1 T$"" 500 6 T$"" 6000 @ 280 ^ " FILTER CHANGE" `"(F1 K\4,(13):4:4:: ** MAIN ROUTINE **>R0$(146):R9$(18):CL$(147)oBL$" "HD$CL$R9$" FILE SCOUT V0619/85 "R0$ HD$;: 60RW3:CL1: 50: "INSERT DISK0  T$"" 440  385)  SID22,FI3  200U  " SPEED CHANGE"y ("(F1) - DECREASE" )"(F3) - INCREASE" *"(F7) - QUIT" 0"FAST: :SLOW" D"" I N 5SP15:: T1$DN$NF$:!T2$"BLOCKS ALLOC:"(BA)" BLOCKS FREE: "(BF)" ""T3$"FILE TYPE TRK SEC BLK ADDR.D ADDR.H":S1$" "% 4,4: 4( S1$T1$: S1$T2$:: S1$T3$:* K0 NF14 S1$F$(K);: J016(F$(K)): :" "WAVE TYPE:"8  "USE (F1) FOR FREQUENCY INCREASE"`  "USE (F2) FOR FREQUENCY DECREASE"  "USE (F3) FOR ATTACK INCREASE"  "USE (F4) FOR ATTACK DECREASE"  "USE (F5) TO CHANGE WAVEFORM" "USE (F7) TO CHANGE SOUND NUMBER16):ALA(AH16)LH$(I)(H$,BH1,1)(H$,BL1,1)OLH$(I)"$"LH$(I)(H$,AH1,1)(H$,AL1,1)W Ia 2:g: GET CHAR FROM KB, WITH CURSOR 198,0: 204,0 A$: 207,0: A$"" 710 204,1: " "(157);:15: 15 1 (F65535)288 " ";: X:" ";1B"":"";CL X1 D1.7[V " ";: X:" ";s`"":"";j S0 "TRIANGLE":S116t S1 "SAWTOOTH":S132~ S2 "NOISE ":S1128 I$: I$"" 1160$ II$" " SID4,S1:SID4,S11  I$"X" 2009 SID,F(F256)256N SID1,(F256)` SID6,D240o SID4,S1 BASE,F(F256)256  BASE1,(F256) BASE2,D: BASE3,S1 1059 INITIALIZE SID CHIPSID5427415:15,A$,B$,C$,D$:15 A$""B$""C$""D$: LA(I)0 15450 (LA(I))A  34)LH$(I)[ II1: INF 1548x  I8(I8)0 1520 RW24:CL5: 50: (5)" NEXT SCOUT PRINT BOOT QUIT?";  700: A$;: (154); A$"P" 0d * KNIGHT'S TOUR / COMMODORE 64 / RAMELLAIe 53280,0: 53281,0}f "": V53248: V34,4: 53269,4: 2042,13g N0 62: A: 832N,A: : L53: H28i"";33);"KNIGHT": : 33);"TOUR": "" j: : : : "": 33);"SCOR ) *********************************Q * *y * FILE SCOUT V0619/85 * * (RV 0316/84) * * * *********************************!   c:M d ** COLLECT ALL THE ACTIVE FILES AND THEIR FIRST TRACK & SECTORS **x eRW5:CL6 : 50: "READING DIRECTORY"; i 15,8,15,"U;" nN1144: F$(N1),T(N1),S(N1),B(N1),FT$(N1) s 2,8,2,"#2" xTD18:TS1:NF0 15,"U1:2,8,"TD,TS#  A131 FT$(NF)FT$(NF)"USR"J #2,A$:#2,B$:T(NF)(A$(0)):S(NF)(B$(0))` J0 15:#2,A$x A$(160) 190 F$(NF)F$(NF)A$ J : J0 8:#2,A$: J #2,A$:#2,B$:B(NF)(A$(0))(B$(0))256:BABAB(NF) LTL1: TL$(TL): JF2 (TL$)7 1537JF,((TL$,JF,1)): JFA 245Y V4,H: V5,L: |' 0,31,128,0,255,224,1,255,240' 3,255,248,7,231,254,15,255,252$' 31,255,252,63,255,255,127,255,252.' 255,255,254,255,255,255,127,159,F$"":K11: (158);: "FILE NAME";F$< F$"" RW23:CL1: BL$;:pLN(F$): (F$,1)"*" LN(F$)1:F$(F$,LN) K0 NF K11 430 F$(F$(K),LN) K1K KK11 " NOT FOUND";: K02000:K:(154);: HH4: PP4 @ A$"," HH4: PP4= J A$"Z" LL2: PP120[ O A$"A" LL2: PP120o Q (S$)3 350y T 250 ^ S$"AA." S$".AA" S$"A.." S$"..A" S$"..Z" W1 h S$"Z.." S$"ZZ." S$".ZZ" S$"ZZ," S$",ZZ81200T4100h" ":14)A$*r:A$"":"FILENAME";A$:wA$""4210S|:"TAPE OR DISK?":yB$:T1:B$"D"T8:A$"@0:"A$:B$"T"4230B$"CONTINUE FROM ADDRESS":2010:ADB2515:B04500:110\B$"BEGIN S4 2 5000: * A$"." HH4: PP4F A$"," HH4: PP4d A$"Z" LL2: PP120 A$"A" LL2: PP120 150 S$"": H1H: L1L: P1P A$: A$"A" A$"Z" A$"," A$"." 250 S$S$A$ H250: 50: (5) "NEXT PRINT RETURN ";+ 700: A$(158);Q A$"N" BCB(K1)1 C0: 450s A$"N" BCB(K1)1 435 A$"P" 500: 435 A$"R" 2: (154);: 482: PRINT OUT FOR T & S 4,4:BC04,E:": ""; k ""> nT$"ϷϷϷϷϷϷϷϷ"i pN$" " s X1 8: T$: N$: N$: t"̯̯̯̯̯̯̯̯" x 5000 A$: A$"A" A$"Z" A$"," A$"." A$"K" 53280,12: 53281,0 : (147)(154);; H$"0123456789ABCDEF"F  1000S 2 LOCATEs 3 214,RW: 211,CL: 58640: < SET ROW, COLUMNS FOR SCAN = RW(35),CL(35) > I0 16:RW(I)I6:CL(I)4: I ? I17 34:RW(I)(I6)17:CL(I)19: I A#2,A$:TD(A$(0)):#2,A$:TS(A$(0))1 K0 7Y #2,A$: (A$(0))0 300: 230 A(A$): (A 64)0 FT$(NF)"": 153 FT$(NF)">" A(A (25564)) A129 FT$(NF)FT$(NF)"SEQ" A130 FT$(NF)FT$(NF)"PRG" NFNF1 #2,A$:#2,A$ K- TD18 245H TS1 TS19 245R 130m NF0 "NO FILES": 2:BF664BA: +: , J0 30 6#2,A$:J @ :  SCAN FOR T & S RW24:CL1: 50: BL$;RW23:CL2: 50:x2528' 60,15,254,0,31,255,0,31,2528B' 0,63,254,0,255,255,1,255,252^L' 7,255,254,31,255,255,63,255,255dV' 400PP1: HH1: LL1: 5000: W0: 245 245 GP P80 40: RG G3 1024R,81: 55296R,14: R,GT TRT(K1):SCS(K1) BC0:C0:T4$"TRK SEC"?15,"I0:":2: 2,8,2,"#2"c HD$;:RW2:CL1: 50: F$(K1);}RW4:CL6: 50: T4$;RWRW(C):CLCL(C): 50: BC;TR;SC 590: TR0 480BCBC1:CC1 C34 460RW24:CL1" W1Ar S$",,Z" S$"Z,," S$",,A" S$"A,," S$"AA," S$",AA" W1Zw (1024P)81 385q| W1 W0: 400PP1: HH1: LL1: 5000: W0: 245 245 GP P80 40: RG G3 1024R,81: 55296R,14: R,GTCAN AT ADDRESS":2010:ADBa2515:B04700$b:4740ZfB07:AC(ADB):3030:ADBENADSR:1080:110gk" ";:Bup:ADAD8zB$:B$(136)1103010:": ";:4710"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T2 A$"." 385(  A$"." HH H32 4B  H28 A$"," 385c  A$"," HH H32 4~  L221 A$"Z" 385  A$"Z" LL L24 2  L53 A$"A" 385 " A$"A" LL L24 2 , 5000:  6 A$"." F$(K1) TRT(K1):SCS(K1))4,(13)(13)T4$(13)(13)9 4,BC,TR,SCK 590:BCBC1` TR0 4:4:j 525N15,"U1:2,8",TR,SCS#2,A$:TR(A$(0))T#2,A$:SC(A$(0))UW:X ** GET LOAD ADDR PRG FILES **] LA 150 A$"K" 245/ H252 A$"." 150O A$"." HH H32 4i H28 A$"," 150 A$"," HH H32 4 L221 A$"Z" 150 A$"Z" LL L24 2 L53 A$"A" 150 A$"A" LL L2 'L$"":U POKE53280,6:POKE53265,PEEK(53265)AND239 I120:A$::X60:Y57:CL1:SC53281I1228812350:SP:I,SP:I1235212414:SP:I,SP:I1241612478:SP:I,SP:I1248012542:SP:I,SP:  % X 828 1023 : Y: X,Y::W 169, 0, 133, 63, 133, 64, 165, 43, 133, 251 165, 44, 133, 252, 160, 0, 132, 254, 32, 228 3, 234, 177, 251, 208, 3, 76, 208, 3, 230 251, 208, 2, 230, 252, 169, 244, 160, 3, 32  30, 203, 16 253, 177, 251, 208, 226, 165, 253, 41R  240, 74, 74, 74, 74, 24, 105, 65, 32, 210  255, 165, 253, 41, 15, 24, 105, 65, 32, 210  255, 169, 13, 32, 210, 255, 173, 141, 2, 41  1, 208, 249, 230, 63, 208, 2, 230, 64, 230  251, 208, 2, 53280,12:53281,11M" FLANKSPEED ";~ " MISTAKEPROOF ML ENTRY PROGRAM "" CREATED BY G. F. WHEAT "" COPR. 1984, ION INTERNATIONAL INC. "A5427254296:A,0:/ ((2)T(1)161 ZB$"ENDING ADDRESS IN HEX":2010:ENBC _2510:B080j `254,T(2)T(1)16:BT(4)1T(3)16 aB255BB255:254,(254)1 b253,B: d GET HEX LINE n3010:": ";:A08 xB01:210 }B A%(A)T(1)T(0)16:ADA4100 A$(135)" ":45001 A$(136)" ":4700W A$"@"A$"G"T(B)(A$)55:250} A$"/"A$":"T(B)(A$)48:250 1100:210 A$""; 125 A0280 A1:B1290 140 B0(20);(20);:AA1 AA1 " ":190( AN(AN$):: CH1 AN: PR$: CHN V21,0: "": 53280,0: 53281,0r (L$,15)10)"LOADING "PR$"" "LOAD";(34);PR$;(34);",8" "RUN": ""  631,13: 632,13: 198,2: ,LI6196(L$,LI)" 1100#:"INPUT A 4 DIGIT HEX VALUE!":1100T:"ENDING IS LESS THAN STARTING!":B0:1100:"ADDRESS NOT WITHIN SPECIFIED RANGE!":B0:1100:"NOT ZERO PAGE OR ROM!":B0:1100$"?ERROR IN SAVE":1100."?ERROR IN LOAD":1100850 A20 :A0A (L$,23)7)" DIST. BY DOUBLE L SOFTWARE" (L$,24)7)" (C) ION INTERNATIONAL INC ":198,0:AN$"" (L$,21)8)"PRESS F1 OR CHOOSE NO. "; TM$:TM$(13)AN$"" 210 TM$(20)" ":190 TM$""@"A$"G"T(A)(A$)55:-A$"/"A$":"T(A)(A$)48:; T(A)16:N ADRESS CHECK^ ADEN1030r BSRBEN1040 B256(B40960B49152)B532471050  ADDRESS TO HEX ACAD:A4096:3070 A256:3070 A16:3070I1254412606:SP:I,SP:9 I1260812670:SP:I,SP:X I1267212734:SP:I,SP:w I1273612798:SP:I,SP: #M.:V53248:I20402047:MM1:I,191M: (I3946:CLCL1:VI,CL: 2I062:XX22:VI,X::I1132:VI,Y: <V0, 0, 177, 251, 170, 230, 251, 208S  2, 230, 252, 177, 251, 32, 205, 221, 169, 58  32, 210, 255, 169, 0, 133, 253, 230, 254, 32  228, 3, 234, 165, 253, 160, 0, 170, 177, 251  201, 32, 240, 6, 138, 113, 251, 69, 254, 170"  138, 133, 230, 252, 76, 74, 3, 169, 236H  160, 3, 32, 30, 203, 166, 63, 165, 64, 32|  205, 221, 169, 13, 32, 210, 255, 96, 230, 251  208, 2, 230, 252, 96, 0, 76, 73, 78, 69  83, 58, 32, 0, 76, 73, 78, 69, 32, 35  32, 0, 0, 0, 0, 08, 133,54272,4:54273,48:54277,0:54278,249:54296,15H FA680699:B:A,B:s K169,251,166,253,164,254,32,216,255,96 L169,0,166,251,164,252,32,213,255,96 PB$"STARTING ADDRESS IN HEX":2010:ADB:SRB U2520:B080 V251,T(4)T(3)16:252,T1EN310 " ";0 A:TAD((AD256)256):" "T A07:TTA%(A):T255TT255Z s A%(8)T1010:110 A07:ADA,A%(A)::ADAD8:110 GET HEX INPUT A$:A$""210 A$(20)270 A$(133)4000 A$(134)(20);:140 , LAST LINE0 6" ":TAD((AD256)256)V @B0A1:TTA%(B):T255TT255\ Ju TA%(A)T1010:110 ^B0A1:ADB,A%(B): h:"YOU ARE FINISHED!":4000  BELL AND ERROR MESSAGES :"LINE ENTERED INCORRECTLY":: "::e 64 BUG REP,VIC BUG REP,FLANKSPEED,F-SPEED OVER,INSTA BUG 64,SLITHER KNIGHT'S TOUR,FILE SCOUT V0619,RHYTHM. BITS,CHOPPER FLIGHT LIGHTNING LOADER,STARSHIP,BORDER INTERRUPT,WEIGHTED KEYBOAR- STR ::"END OF ML AREA":"L54276,17:54276,16:B15,8,15:15,A,A$:15:A$:[ GET FOUR DIGIT HEXj:B$;:T$(T$)41020:2010A14:A$(T$,A,1):2060:T(A)161020:2010:B(T(1)4096)(T(2)256)(T(3)16)T(4):  A$"300:TA10:B.:150* TM$(13)AN$" " 225E AN$AN$TM$:AN$;"_";} T(V39):V39,(V40):V40,(V41):V41,(V42) V42,(V43):V43,(V44):V44,(V45) V45,(V46):V46,T:D130: 200 AN(AN$):AN1AN26" A1:3070 % T(ACA):T9A$(T55):30904 A$(T48)I A$;:ACACAT:aA$"**SAVE**":4200w1,T,1,A$:680:1ST01060:T812004000A$"**LOAD**":420061,T,0,A$:690:1@ST64110J1070:T8,195:V10,215:V12,2403 FV16,128:V14,5:V15,YS d"": SC,1:V21,255:TA10j n53265,(53265)16 (L$,5)" * * * D I R E C T O R Y * * * ": AA1:BB1:PR$:A9TA9 (L$,B6)TA)""A"-"PR$ B10 175 1A P 0lAHOY NOVEMBER852A 64 BUG REPVIC BUG REPFLANKSPEED F-SPEED OVER INSTA BUG 64 SLITHER$KNIGHT'S TOUR FILE SCOUT V0619KKRHYTHM. BITS CHOPPER FLIGHTLIGHTNING LOADER STARSHIPGBORDER INTERRUPTWEIGHTED KEYBOARSTRICTLY RANDOM BLACKBOARD.OKK BLACKBOARD.S BLACKBOARD.BAS BALLBOUNCE.BAS TX2BAS COMPULOANMENU C-64CHPOPPER FLIGHTKKKKKKKKKKK  4,4. 4," "S 4," "x 4," " 4," Ϸ "4," SAVE "4," " 4,"  "4 4," CONTINUE "Y 4," "~ 4," " 4," " 4," " 4," SCAN " 4,"  #"":53280,0:53281,6:646,1G X5145652224:Q:X,Q::51456q""5)"LIGHTNING LOADER ACTIVATED":d162, 5,189, 11,201,149,115,202, 16,248, 96,234,234,234, 76n 17,201,132,176,230,122,208, 2,230,123,160, 0,177,122,2014 x 81,2 160, 1,162, 8,165,185,240, 6,172, 2,200,174, 3,200,132y 174,134,175, 32,147,201,176, 8, 32,201,201, 32,144,201,144 248, 88,165,185,208, 4,166,174,164,175,173, 0,200, 13, 1 200,208, 3, 76,156,225, 76,161,225,162, 2, 44,162, 4,17201,153@ 0,200,200,208,247, 96,173, 18,208, 41, 7,201, 3,144,247 169, 39,141, 0,221,205, 0,221,208,251,169, 7,141, 0,221 162, 4,234,202, 16,252,162, 3,173, 0,221, 10, 8, 10, 38 176, 40, 38,176,202, 16,242,165,176, 73,255, 9177,176, 32,168,255H@230,176,230,178,202, 16,244, 32,174,255,198,180,208,210, 32J131,202,169, 69, 32,168,255,169,112, 32,168,255,169, 3, 32T168,255, 76,174,255, 32,174,255,169, 0,133,144,165,186, 32 ^177,255,169,111, 32,147,255,165,14 ALL TIME HIGH 43,840Q 53281,0:53280,0:52,56:56,56:I(TI):(142)J0127:J256320:S1024:SI54272:CSI:S1SI1:S4SI4:S5SI5:S6SI6:SVSI24BH33:BS34:BC32:NS40:C$(96)ISISV:I,0::S6,242:SV,15 56334,0:1,514)1:JD(8)1 BJ1NS:L$(J):3 DI112:FC(I):H FI113:FS(I):\ HI15:CB(I):b c:q d"" x" " z" " |" ,(P)128:I130::P,(P)127:134@ DIP(S182):DUDI:W7:SC0:L1a 53270,216:53282,6:53283,5j 700{ PS165:PD1 : J(J2):JJ0250 JJ0J:JD(J)PDJD(J) Q(PPD):QBC300 P,BS:PPPD:PC,CB:P,BH D150:NSC:9401h""19)"("(48W)")"28)"HIGH ";:NSH:940<j"":B:T: CRASHED S1,5:S4,129:I1501:SV,I:PC,I:53281,I53280,I:53282,15I:53283,I:J120::53282,6:53283,5:SV,15:S4,0:WW1:360:W0410  "1 4," "V 4," "{ 4," LOAD " 4," " 4," " 4," " 4," ̤ "7 4," "\ 4," FLANKSPEED " !4," " "4," " (4 " 4," " 4," 40, 5,164,176, 76,121, 0,200,177,122,201,147,208,244u 24,165,122,105, 2,133,122,144, 2,230,123, 32,212,225,160 0,196,183,240, 8,177,187,153,240,203,200, 16,244,169,160 153,240,203,200,192, 16,144,248, 32, 11,202,120, 32,201,2018 3< 0,200,208, 25,173, 1,200,240, 18,160, 0,189, 0,200,145} 174,236, 1,200,240, 6, 32,194,201,232,208,240, 56, 96,160 0,189, 0,200,145,174, 32,194,201,232,208,245, 24, 96,230 174,208, 2,230,175, 96, 32,216,201,160, 0, 32,216,6, 32,109,202D 169, 73, 32,168,255, 32,174,255,169, 0,160,203,133,176,132 "177,169, 0,160, 3,133,178,132,179,169, 8,133,180, 32,131 ,202,169, 87, 32,168,255,165,178, 32,168,255,165,179, 32,1686255,169, 32, 32,168,255,160, 0,162, 31,4,208, 14, 96, 32,109,202Lh169, 77, 32,168,255,169, 45, 76,168,255,162, 5,108, 0, 3r196, 13, 14, 79, 78, 45, 82, 65, 77, 32, 12, 1, 65,196, 13| 67, 72, 69, 1, 75, 83, 85, 77, 32, 69, 82, 18, 79,210, 13 70, 73, 76, 69, 32, 69, 82,* "A14336:B53248:I01487:IA,(IB):G $1,55:56334,1:53272,30c &I030:P:49152I,P: (I1460014631:P:I,P: *I1506415159:P:I,P: ,I1472014799:P:I,P: <JD(32),L$(NS),FC(12),FS(13),BC(5) @JD(1)40:JD(2)40:JD( "/ ~" "_ " "n I1200: ""12)"DIFFICULTY 12345":PS183 J(J2):J119PP1:PS187PP1 J123PP1:PS183PP1 J111160 P ::200 *: +: COLLISI $ ,Q91400b .QQ90:SCSCFS(Q):P,BS:IQ12100Q2:S1,I:S4,17: 0PPPD:P,BH:I0Q1210Q2:S1,I:S4,17::S4,16 6PC,CB:350:DUDU1:DU0800 8200 \: ]: STATUS LINE ^"SCORE "; P,BC:49152:I1800::1923"":15)"GAME OVER"ISCSHSHSC:450v7)"PRESS BUTTON TO PLAY AGAIN":360(J2)1114303100:130J115:15)"HIGH SCORE":I120::S1,38:S4,3315)"HIGH SCORE":I1 $$$$$$$$$$";5I121:"$ $";:x"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";:2023,36:56295,15L1L:L12L112""17(L$(L))2)"#"((L),2)"-"L$(L)" ";646,FC(L1):(L1218)A,B:A0720 SCFS(L11):350:I1800::LL1:LNS19054K0:L1:3100:"":S6,240z6A80:B960:N40:960:A961:B999:N1:960:A959:B119:N40:9608A118:B81:N1:960>350:360:M0:A$"LEVEL"C$(DI112)C$C$"BONUS"@S6,251:J114:S1,J70 0::DIDI1:DUDU1:DI5DI5:DU5FVI1200::""12)DI" BONUS LIVES":WWDI:W9W9u\360:""7)"GET READY FOR DIFFICULTY"DIfI12000::190:""9)NS"SCREENS THIS LEVEL":S6,252:S1,75S114,DI1530:S4,0,208,243,230,254,202,208,238,96K: CHARACTER *;L40,158,158,190,190,158,158,40^N40,190,190,190,190,190,190,40|P36,254,36,36,36,254,36,0R85,85,85,85,85,85,85,85_:`130,40,60,255,255,60,60,0b130,40,255,255,255,60,60,05,195,195,60,0 v0,56,131,194,131,194,44,0:4254,198,198,198,198,198,254,0I6,6,6,6,6,6,6,0h254,6,6,254,192,192,254,0254,6,6,254,6,6,254,0198,198,198,254,6,6,6,0254,192,192,254,6,6,254,0192,192,192,254,198,198ARY""THE SNAKE""THE COLONADE""THE WINE CELLAR"1"THE THREE ROOMS"J"THE DOUBLE-E ROOM"\"GALLERY II"q"THE OVAL ROOM""THE GREENHOUSE""THE MESH ROOM""THE PRISON""THE I-J-K ROOM""THE CUBICLES""THE SUITE""THE PANTRY""GALLERY III""THE WINDBREAK"1"DEATHTRAP II"A"THE WALL"V"DEATHTRAP III"n : MISCELLANEOUS  10,12,7,15,10,7,9,15,9,9,15,10 10,25,50,75,100,125,150,175,200,250,300,400,500 15,10,1829,811,816,822,828,455,458,461,464,455,655Z 504,664,656,663,0,0Ob 130,410,650,930,149,429,669,949,339,739,340,740,0,0l 287,767,312,792,290,309,410,429,530,549,650,669,770,789,0,0v 285,314,325,405,445,474,474,594,605,634,645,725,765,794,0,,949,0,0! 244,257,262,275,524,532,547,555,804,817,822,835,297,777,302,782,0,0d! 241,250,254,265,269,278,418,421,765,770,789,794,290,730,294,774! 458,778,461,781,305,785,309,789,0,0! 378,381,415,417,422,424,453,454,465,466,492,493,506,507,520::S1,40:S4,33:S4,32:V:.W: PLACE PRIZES iXR((1)19)40((1)36)122S:(R)BCRS165600~bL1L:L12L112lR,L190:RC,FC(L1)::: SET UP SCREEN L1900"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$N1:BA39N40'IASBSN:I,36:IC,15::710YJ1DU:600::350:360:CBCB(DI):I1400:_e:: COMPED A SCREEN  DUDI:I1200::L1L:L12L112*"",15)"BONUS "(" "(FS(L11)),3).SC:S4,21:S4,20.BI1196147640:IJ40,32:IJ,((A$,J,1))64::iDI1800::S6,242:I112:I1597,I90:I55869,FC(I)FS1,I5:S4,129:J110::MMFS(I)DI:S4,128HJ120::""18)(" "(M),4) JSCSCFS(I)DI:3521:S4,20:I12300::S6,242:(" "(N),6);:RIASBSN:I,42:IC,2K:KK:S1,5K:S4,129tJ14::S4,128:J12:::z:: ML *169,0,133,253,169,4,133,254,160,0,162,4177,253,201,34,208,4,169,32,145,253,20d0,0,56,124,254,124,56,0f60,40,170,190,170,190,170,40>h160,160,60,247,255,255,60,0Xj3,3,7,14,14,28,56,96wl60,60,60,60,60,60,247,247n60,60,60,60,60,60,247,247p28,193,3,1,3,1,3,1r20,20,60,195,195,195,60,0t20,20,60,19,254,0254,6,6,6,6,6,6,0254,198,198,254,198,198,254,09254,198,198,254,6,6,6,0I: NAMES ^"THE COURTYARD"s"THE GATEHOUSE""THE BARRACKS""THE GARDEN""THE CHAPEL""THE PIT""GALLERY I""THE LIBR"TRIPLE-T""THE VESTIBULE""THE ARENA"!"DEATHTRAP I"6"THE S-CHAMBER"M"THE SPIRAL HALL"\"THE WEB"l"THE MAZE"~"THE PIT II""THE ATRIUM""THE CLOAKROOMS""THE DUNGEON""THE SHIFTING HALL"2,14,13 : CODINATE *  65,(61):66,(62):& 0,0=0 135,455,495,498,145,465,502,505,0,0v: 139,379,140,380,410,429,650,669,699,939,700,940,0,0D 401,420,659,678,0,0N 330,730,350,750,521,536,543,558,0,0X 250,269,250,810,269, 0 446,606,250,450,610,930,454,614,458,618,461,621,465,625,149,469/ 629,949,473,633,0,0p 210,229,361,374,385,398,530,549,681,694,705,718,850,869,0,0 415,424,521,530,549,558,570,650,850,930,455,655,855,935,464,664 864,944,589,669,869 31,532! 547,548,691,692,707,708,732,7330" 746,747,773,774,785,786,815,817,822,824,858,861,0,0a" 205,234,405,434,605,634,805,834,245,785,0,0" 325,925,250,730,335,935,140,740,345,945,150,750,355,955,0,0" 130,410,650,930,149,429,669,949,33 ,150,270,155,275,805,925,810,930,815,935$ 820,940,825,945,830,950,835,955,0,0R$ 286,486,580,940,314,514,521,530,535,545,550,558,0,0$ 326,338,341,353,526,553,726,738,741,753,141,301,366,406,646,686$ 393,433,673,713,778,938,0,0% 137,142, 6,743,896,918,936,958,456,536,623,703,0,0.& 216,224,376,381,540,544,696,701,860,864,145,865,416,936,0,0s&* 325,725,136,456,616,936,347,747,158,478,638,958,521,530,542,552&, 331,341,353,357,731,741,753,757,0,0&4 404,412,427,435,452,932,140,820, 54,456,463,465,614,616,623,625,804,829'(T 833,838,290,770,296,416,656,776,303,423,663,783,309,789,0,0l(\ 244,275,284,315,655,664,695,704,324,924,325,925,339,739,340,740(^ 899,939,900,940,354,714,355,715,0,0(f 361,376,384,398,681,696,704,718,297255,264,278,801,815,824,838,288,528,535,775,259,819,260,820* 311,551,544,784,0,0Q* 565,925,490,850,415,775,340,700,265,625,190,550,155,475,0,0* 281,292,295,307,533,536,543,546,772,784,787,798,332,652,812,932* 339,419,340,420,659,739,660,74: CHOPPER FLIGHT BY MIKE BUHIDAR JR. AND KEVIN WORAMWCN0:832,0:BC53280:12b10);DD8:CP,D:PL,192:W112::PL,193 122:W112:: M10:258:132:FA3:D215V,164:V31,0:302"ENTER SKILL LEVEL (1-6)" R":OS$" "` F$" ̒":SB13(2SL):Z,(Z)239:TD(7SL)10 """:RF$"":RF$RM)RF$:V1,Y:V,X $374 &""BR$N)BR$ (P15:WN$WS)W2$:BR$N)BR$:B2$N)B2$: *Z,(Z)16 ,":80W @CP833:P(V1)2112:DD8:V1,P:8::PL,193 B"YOU DID IT!":M12000: DZZ(TI$):HH01000::V,0:358 F" PRESS TRIGGER TO PLAY AGAIN." HB(JL)D:`SP192:XDHD:YDHD:*bSP192:XDHD:YDHD:0d<fBC,8:HhBC,2:ejHF,20:X1X:V40,2:284wl SLOWER FALLn122:FAFA2:FA50252p240:r FASTER FALLt122:FA1FA2vFAFA2:240:x SOUNDzHF,7:LF,2PL2,197:V28,4:V41,8:V37,7:V38,2HV29,4:V23,4:"READING DATA..."^(12660)150148R12288:G16:I163:A:DCDCA:R,A:RR1::RR1:DC27628"ERROR IN DATA. . .":JL56320:N15:Z53265:CD53269Z,(4,345,374,385,414,428# 651,665,694,705,734,745,0,0=# 286,304,330,730,766,774,339,739,777,779,344,784,545,546# 312,312,351,351,390,390,429,429,468,468,507,507,587,587,628,628,669,669# 710,710,751,751,792,792,0,0# 135,255,140,260,145,265253,257,262,266,410,413,426,429,610,613,626,629,773,777,782F% 786,897,902,177,217,182,222,450,570,469,589,817,857,822,862,0,0% 243,843,290,810,297,937,142,822,309,829,316,876,248,257,267,276% 843,852,862,871,0,0% 241,263,416,423,576,583,73467,947,0,0'> 410,416,423,429,655,668,821,824,450,930,695,735,895,935,861,941#'@ 469,949,0,0h'H 321,329,335,337,342,344,350,358,526,536,543,553,766,776,783,793'J 376,496,383,503,566,726,593,753,816,936,823,943,0,0'R 241,246,250,256,263,275,4,457,617,777,140,300,460,620(h 780,940,303,463,623,783,0,0@)p 408,413,648,653,425,431,665,671,295,297,302,304,775,777,782,784i)r 134,414,654,934,145,425,665,945,0,0)z 325,925,330,930,335,935,145,745,150,750,155,755,336,338,742,744,0,0) 241,s0,147,267,427,747,0,0* 523,556,0,0)+ 260,278,444,454,459,463,616,620,625,635,801,819,135,615,464,944,0,0,775,777,782,784i)r 134,414,654,934,145,425,665,945,0,0)z 325,925,330,930,335,935,145,745,150,750,155,755,336,338,742,744,0,0) 241,M14:WS11:258, SL$:(SL$)1(SL$)6205 132V V31,0:LS192:Q4:M88:U83 BR$"":B2$"":HD4SL3:GHHD1:MD(GH30) WN$"  Ϸ":W2$"Е  ":HD3HD3 TR$"TI$"000000":L41SB:K1Q+ .WN$WS)W2$:80> 0BR$N)BR$:80S 2B2$N)B2$:80:w 4MP((1)2)RM:13MP)"": 6WN$WS)W2$:80 8TR$15)TR$:80:K13:OS$15)OS$:80: :OS$5)""4)OS$ <F$4)""4)F$;" >" 16:B076 J72 L:16) N JOYSTICK ROUTINEL PFR((JL)16)161:FR110,116d RSP192:XDHD:YD0:} TSP194:XDHD:YD0: VSPLS:XD0:YD0: XSPLS:YDHD:XD0: ZSPLS:YDHD:XD0: \SP194:XDHD:YDHD: ^SP194:XDHD:YDH 53:HF,0:LF,0:HF,7:LF,163:LF,0:HF,0.|G10(50FA):e~HF,7:LF,53:HF,0:LF,0:HF,7:LF,163:LF,0:HF,0kSPRITE INITIALIZATI"":BC,0:BC1,0V53248:PL2040:V21,7:X170:Y100:SP192:V39,15:PL,SPPL1,196:V40,1 Z)247:Z,((Z)248)7: SPRITE DATAP0,0,0,0,0,0,0,0,0,1,255,255,0,1,0,0,7,192,0,31,240192,63,136,224,63,4,255,255,2,255,255,130,0,63,130,0,47,252,0,15,2480,6,248,1,4,17,1,140,27,0,255,254,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0 5,255,255,65,252,0,63,248,0,31,240,0M12,96,0,136,32,128,216,49,128,127,255,0,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0,128,0,0,128,0,3,224,0,15,248,017,252,3,32,252,7,64,255,255,65,255,255,65,252,0,63,248,0,31,240,0 12,96,0,136,32,128,21 05,80,5,170,80,38,170,152,42,170,168S46,170,184,91,190,229,122,255,173,119,255,221,90,255,165,27,190,232c46,170,18442,170,168,5,170,80,5,105,80,1,150,64,0,85,0,0,20,0,0,0,0 SPRITE-DATA COLLISIONXPX24:YPY54:CX(XP8):CY(Y E$"CRASHED INTO A BUILDING,"9HF,7:XX12:YY10:V4,X:V5,Y:WA1255:LF,WA:EV21,0ZHF,0:LF,0:268q PICK UP MAN HEREMSMS1:BB,U:MSMS1:BB1,U:MSMS1:BB2,U:MSMS1:BB3,U:HF,7:XX12:YY10:YD:V1,Y:PL,SP1:  HOVERING ROUTINE2FR((JL)16)161:FR2FA48:110;240I122:252d SOUND INITIALIZATIONS54272:QSS24:Q,0:S24,15:S5,18:S6,33S4,129:HF54273:LF54272 S12,255:S13,255:S11,4Y1255010:LF,(255Y1),V2,X1:V3,Y1:(V30)11(V30)22300A :V31,0:M10:V" MISSILE SELECTk$M1M11:M1MD{&HF,5:LF,5(M1MD10282*,V2,0:E$"DESTROYED BY ENEMY FIRE,":218. TITLE SCREEN0T$(6)" "6@T$(7)"":T$(8)"":J$(1)" "^BJ$(2)"  "DJ$(3)"      "FJ$(4)"      "HJ$(5)"     " ":ED$""TCPV1:L17:8:5)T$(L):-VL16:8:7)J$(L):6X:8UZ6:TP$:6:DB$:6:BL$:6n\N1$:6:AN$:6:N2$^6:CR$:6:ED$:6:`10)"PRESS TRIGGER TO PLAY"bB(JL)16:B0d354f FYOUR SCORE: "FS"" tJJ01000::!v MOVEMENT CHECKER!xN!zR12288:G16:I163:A:DCDCA:RR1::RR1:!|173,1,208,201,50,144,7,201,229,176,11,76,49,234,105,4,141,1,208,76!~49,234,233,4,141,1,208,76,49,234! INTERRUPT *** STARSHIP ***F MACHINE LANGUAGE SPRITE MOVEMENT ** MOVE TOP OF MEMORY TO MAKE ROOM FOR VIDEO BLOCK AT 32768 55,255: 56,127: 643,255: 644,127: "" ** DECLARE PRIMARY VARIABLES F$" ":C0%0:C1%0:C2%0:C3%0,1,0,0,1,0,0,7,192,0,31,240Q192,63,136,224,63,4,255,255,2,255,255,130,0,63,130,0,47,252,0,15,2480,6,248,1,4,17,1,140,27,0,255,254,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,255,255,128,0,128,0,3,224,0,15,248,017,252,3,32,252,7,64,255,255,66,49,128,127,255,0,0,0,0,0,0,0,0,0,0J0,0,0,0,62,0,0,119,0,0,239,128,0,207,128,0,255,128,0,0,00,127,0,0,127,0,0,127,0,0,62,0,0,62,0,0,62,0,0,28,00,127,0,0,235,128,0,193,128,1,128,192,1,128,192,1,0,64,1,0,64 0,20,0,0,85,0,1,150,64,5,1P8):BB1104CX(40CY))P1(BB):P2(BB1):P3(BB2):P4(BB3)DP1UP2UP3UP4UaP1MP2MP3MP4M204j206H1,50:L049::H1,0P1(M)226P2(M)228P3(M)230P4(M)232 PUT EXPLOSION HEREV4,X:V5,Y:WA1255:LF,WA:HF,0:LF,0:) MOVEMENT ROUTINEWJVN((JL)N)1:TL(((TI$))TD)1:292m(V31)XX192TL100,100,100,102,104,106JV86,88,90,100,84,92,94,100,82,96,98:LSSPPL,SP:XXXD:V,X:Y(V1)17:H154280:L154279:  END ROUTINE BC,0:CN(832):CNCN1;"CHOPPER V -"CN;E${"SEND FOR REPLACEMENT PILOT IMMEDIATELY!":V5,0:832,CNK0999::ZZ(TI$):35870 MISSILE MOVING ROUTINEHF,20:X1((0)68)14L122::2K13:19)"":'4T$(1)""R6T$(2)" "}8T$(3)" ":T$(4)" "<T$(5)" ">JJ$(6)"ˠˠ ˠ"8LBL$" ":N1$"MICHAEL BUHIDAR JR."sNTP$" ":DB$"DESIGNED BY"PAN$" AND ":N2$" KEVIN WORAM "RCR$" INAL SCORE hBC,0:FS100MSSL(500ZZ):TS(40(14MS))28 jMS0"":13)"NO MEN RESCUED":370m l"":TS)"MEN RESCUED: ";:MR1MS:"";:: n14)"BONUS: ";:HH1MS:OO100:H1,100:M1150: pH1,0:""21)O;:: r11)"c SETUP"120,169,0,141,20,3,169,192,141,21,3,88,96"P4915249194:A:P,A:+"49182:":370m l"":TS)"MEN RESCUED: ";:MR1MS:"";:: n14)"BONUS: ";:HH1MS:OO100:H1,100:M1150: pH1,0:""21)O;:: r11)" :C4%0:C5%0:C6%0:SP%0H  PG(X)(X256): LO(X)X256((X256))n *** SET-UP SUBROUTINES *** 90: 600: (VIDEO MEMORY) "";: 95: 700: 2000: (MACHINE LANGUAGE AND SPRITES) 900: (SPRITE POSITIONS AND GAME SCREEN) D COLOR TEXT MODE) _ 53265,91:< b *** ACTION LOOP ***U dK(653): K7 300s n I1 4:SP%I: 38336: s "    " x C0% 200:C0%0:C4%0:C5%0:C6%0 } I1 4:SP%I: 38336: C1%0 220:C "CS"(C2%):/  ** SPR/FORE COLLISION ROUTINEE  "CF"(C3%):K (i * *** END HANDLING *** + ** PUT VIDEO MEMORY BACK TO FIRST BLOCK, AND SCREEN MEMORY TO 1024 , 90: ES,0: DISABLE SPRITES 0 RESTORE VIDEO/SCREEN MEMO 1J 53272,I: 648,K: ES,31: 95: 1000r I0 599:g{ ** REENABLE SHIFT/COMMODORE AND RUN-STOP/RESTORE| 657,0: 792,71: 808,237 65126V *** ARRANGE MEMORY ***W USE THIRD VIDEO BLOCK (32768 TO 49151), SO ROM CHARACTE` *** REGISTER ADDRESSES ***+c ** SPRITE COLOR TABLEWdCT(0)53287: I1 7:CT(I)CT(I1)1:e ** SPRITE HORIZONTAL POSITION TABLE (LOW BYTES)fHT(0)53248: I1 7:HT(I)HT(I1)2:g ** SPRITE VERTICAL POSITION TABLE hVT(0)WIDTH)pHE53277Dq ** SPRITE PRIORITY REGISTER (1=SPRITE IS IN FRONT OF FOREGROUND)QrPR53275s ** MULTICOLOR ENABLE REGISTER (1=MULTI-COLOR ENABLED)tEM53276u ** SPRITE MULTICOLOR COLOR REGISTERSvMR53285: ('01' REGISTER: ADDND COLOR 53281,0 : (BLACK) ** BORDER COLOR5 53280,0: (BLACK)} ** SPRITE COLORS (DEFAULTS: WHI,RED,L-GRN,PUR,GRN,BLU,YEL,M-GRAY) CT(0),7: CT(1),5: CT(2),2: CT(3),6: CT(4),12 ** SET PRIORITY PR,0: (ALL IN FRON 3 (1=LIGHT GREY, 3=YELLOW) MR,15: MR1,75 *** ML TABLE SETUP ***Z ** ANIMATION TIMER (1=FASTEST)r 37920,4: 37921,4 ** ANIMATION COUNTER (ALWAYS 1) 37922,1 ** ANIMATE SPRITE 0? (1=YES) 37923,0! * (1=YES) 37941,0A ** GO-SPEED TIMER (NUMBER OF SPRITE 0 MOVES PER INTERRUPT [1=SLOWEST])Y 37926,3: 37928,3k CLEAR FLAGS 37927,0: 37935,0: 37943,0 ** EXTENDED BACKGROUND COLORS 53282,1: 53283,7: 53284,9 ***** ""12)"Р"2: 6)"ҠԠӠǠĒ"::8[ *** SPRITE POSITIONS ***~ ** POSSIBLE POSITIONS DIM'ED I1 4: HT(I),20((9)220) VT(I),50((9)190): HR,0 ** PUT  38067: (START INTERRUPT!)4  ** ENABLE SPRITES]  I0 29:: ES,31: (SPRITES 0-4)g  100  ** LOAD SUBROUTINE  IXB XE: A: I,A:: ".";: Y TURN OFF SCREEN Z 53265,0: ^ TURN ON SCREEN (AND EXTENDED BACKGROUN1%0 C2%0 240:C2%00 C3%0 260:C3%0: 100` ** FIREBUTTON ROUTINE GOES HEREk "F" C4%1 "!" C5%1 "S" C6%1 "F" "EW"(C1%): ** SPR/SPR COLLISION ROUTINERY(1 56578,(56578)3: 56576,((56576) 252) 3S2I(53272): 53272,20:K(648): 648,4x6 95: "QUIT? (ْ OR Β)"::; A$: A$"" 315@ A$"Y" "SO LONG, STAR PILOT!": 370E 90: 56578,(56578)3: 56576,((56576) 252)R SET IS USABLE.;XVB32768: 56578,(56578)3: 56576,((56576) 252) 1Y ** TELL VIC-2 WHERE SCREEN IS WITHOUT CHANGING CHARACTER SET LOCATIONZSB0: 53272,(SB16)4:SBVB1024SB[ ** TELL BASIC WHERE SCREEN IS\BBSB256: 648,BB53249: I1 7:VT(I)VT(I1)2::i ** SPRITE HORIZONTAL HIGH-BIT REGISTERGjHR53264gk ** SPRITE ENABLE REGISTERtlES53269m ** VERTICAL EXPANSION REGISTER (1=DOUBLE HEIGHT)nVE53271o ** HORIZONTAL EXPANSION REGISTER (1=DOUBLE  1 TO MR FOR '11' REGISTER))y ** SET-BIT AND CLEAR-BIT VALUESQzBS(0)1: I1 7:BS(I)2BS(I1):q{ I0 7:BC(I)255BS(I):~ *** INITIALIZE VALUES *** ** FOREGROUND COLOR 53281,0: "";: (LIGHT BLUE) ** BACKGROUT) ** SET HORIZONTAL SIZES HE,0: (ALL SMALL)9 ** SET VERTICAL SIZESR VE,0: (ALL SMALL)j ** ENABLE SPRITES ES,0: (LEAVE THEM OFF FOR NOW) ** ENABL MULTICOLOR FOR SPR 1-4 EM,30 ** SET MULTI-COLORS 1 AND* MOVEMENT TIMER (NUMBER OF INTERRUPTS BETWEEN MOVES [1=FASTEST])9 37924,1: 37925,1k ** ALL SPRITES WRAP AT SCREEN EDGE? (1=YES)y 37936,1 ** SPRITE 0 BOUNCE OFF SPRITES? (1=YES) 37940,1 ** SPRITE 0 BOUNCE OFF FOREGROUND? SPRITE 0-7 BIT TABLEX1: I37962 37969: I,X:XX2:= *** SAFETY PROCEDURES ***z 657,128: DISABLE SHIFT/COMMODORE CHARACTER SET SWITCH POKE 808,234:POKE 792,193:REM DISABLE STOP AND STOP/RESTORE *** INTRO SCREEN  STARS ON THE SCREEN "";: I0 49: VB((9)1024),46:> I0 8: VB((9)1024),42:Y ** STARSHIP POSITIONu 53248,175: 53249,150 ** STARSHIP DIRECTION VB1016,16 *** MACHINE LANGUAGE *** **  ANIMATION SHELL ***XB38144:XE38176: 208 SEE IF TIMER CALLS FOR ANIMATION OR MOVEMENTY DEC 37920 BEQ+3 JMP(37898){ 206,32,148,240,3,108,10,148 RESET ANIMATION TIMER LDA 37921 STA 37920 173,33,148,141,32,148 LDA ANIM.SEQ.TAB,X STA SPRITE.SHAPE.TAB7 A192:B248: I38177 38219 6: I,189: I1,A: I2,148e  I3,141: I4,B: I5,131:AA8:BB1:  EXIT THROUGH MOVEMENT HANDLER  JMP (37898)  38225,108: 38226,10: 38227,148  *** 206,36,148,240,3,108,12,1482" RESET TIMER AND JUMP TO READ ROUTINE THROUGH VECTOR SET FROM BASICW"  LDA 37925 STA 37924 JMP(37890)}"  173,37,148,141,36,148,108,2,148"  ** BITSET SUBROUTINE **" XB38314:XE38323: 20"  GET BITMASK A# LDA 37962,Y EOR#255 AND 53264 STA 53264 RTS)$ 185,74,148,73,255,45,16,208,141,16,208,96B$3 *** XMOVE ***]$4XB38400:XE38467: 20s$5 TEST FOR UPMOVE$6 LDA#1 AND 37963,Y BEQ+3 JSR 38528$7 169,1,57,75,148,240,3,32,128,150$; DO EITHER LEFTSET OR LEFTCLEAR&I JSR 38656 JMP 38444 JSR 38720+&J 32,0,151,76,44,150,32,64,151O&N TEST FOR RIGHTMOVE AND HI-BIT&O LDA#8 AND 37963,Y BNE+1 RTS LDA 37962,Y AND 53264 BEQ+4&P 169,8,57,75,148,208,1,96,185,74,148,45,16,208,49,Y DEX TXA CMP 37978,Y BNE+3 JSR 38546 TXA STA 53249,Y RTSA(_ 190,1,208,202,138,217,90,148,208,3,32,146,150,138,153,1,208,96R(` * TOPCHECK(a LDA 37936 BNE+4 INX JMP 38391 LDX 37979,Y DEX JMP 38391(b 173,48,148,208,4,232,76,247,149,190,91,8,3,32,210,150,138,153,1,208,96)t * BOTTOMCHECK-*u LDA 37936 BNE+4 DEX JMP 38391 LDX 37978,Y INX JMP 38391m*v 173,48,148,208,4,202,76,247,149,190,90,148,232,76,247,149* *** LEFTMOVE (HI BIT SET) ****XB38656:XE38669: 20* GET HORON, DECREMENT; IF EDGE, MOVE AND LEAVE(, LDX 53248,Y DEX TXA CMP 37994,Y BNE+3 JSR 38738 TXA STA 53248,Y RTSm, 190,0,208,202,138,217,106,148,208,3,32,82,151,138,153,0,208,96, *** LEFT CHECK, LDA 37936 BNE+4 INX JMP 38391 LDX 37995,Y DEXP 37932,Y BNE+3 JSR 38802 TXA STA 53248,Y RTS'. 190,0,208,232,138,217,107,148,208,3,32,146,151,138,153,0,208,96=. *** RIGHT CHECK. LDA 37936 BNE+4 DEX JMP 38391 LDX 37994,Y INX JSR 38324 JMP 38391. 173,48,148,208,4,202,76,247,149,190,10STARTUP SYS ROUTINE  37888,(788): 37889,(789)&XB38067:XE38079: 20f BLOCK INTERR, SET VECTOR TO ANIMATION SHELL,ENABLE INTERR SEI LDA #0 STA 788 LDA #149 STA 789 CLI RTS 120,169,0,141,20,3,169,149,141,21,3,88,96 *** GET NEXT STEP IN ANIMATION SEQUENCE+ DEC 37922 BNE+5 LDA#8 STA 37922 LDX 37922 DEXb 206,34,148,208,5,169,8,141,34,148,174,34,148,202 IF CALLED FOR, ANIMATE #0 LDA 37923 BEQ+6 173,35,148,240,6 ANIMATE ALL SPRITES  MOVEMENT COUNTER *** XB38272:XE38288: 20@!X38272: 37896, LO(X): 37897, PG(X): SET COUNTER ADDRESSx! 37898, LO(X): 37899, PG(X): MOVE.VECT.=JOYDIR! DECREMENT TIMER; IF NOT 0, GO FINISH UP! DEC 37924 BEQ+3 JMP(37900)!ND PUT IT IN HORIZONTAL HI-BIT REGISTER# LDA 37962,Y ORA 53264 STA 53264 RTSD# 185,74,148,13,16,208,141,16,208,96d# ** BITCLEAR SUBROUTINE **#XB38324:XE38335: 20# GET BITMASK, REVERSE IT, AND PUT IT IN HORIZONTAL HI-BIT REGISTER TEST FOR DOWNMOVE%< LDA#2 AND 37963,Y BEQ+3 JSR 38592)%= 169,2,57,75,148,240,3,32,192,150L%E TEST FOR LEFTMOVE AND HI-BIT%F LDA#4 AND 37963,Y BEQ+17 LDA 37962,Y AND 53264 BEQ+6%G 169,4,57,75,148,240,17,185,74,148,45,16,208,240,6%H240,4&Q DO EITHER RIGHTSET OR RIGHTCLEAR'R JSR 38784 JMP 38515 JSR 38848 RTS8'S 32,128,151,96,32,192,151,96Z'[ *** UPMOVE SUBROUTINE ***u'\XB38528:XE38561: 20'] GET VERT.LOC.,DECREMENT,CHECK EDGE,STORE NEW VERT.LOC.'^ LDX 532148,202,76,247,149(o *** DOWNMOVE SUBROUTINE ***)pXB38592:XE38625: 20L)q GET VERT.LOC.,INCREMENT,CHECK EDGE,STORE NEW VERT.LOC.)r LDX 53249,Y INX TXA CMP 37979,Y BNE+3 JSR 38610 TXA STA 53249,Y RTS)s 190,1,208,232,138,217,91,148,20IZ LOC, DECREMENT, CHECK CROSSOVER, STORE AND RETURN(+ LDX 53248,Y DEX BPL+3 JSR 38324 TXA STA 53248,7 RTS]+ 190,0,208,202,16,3,32,180,149,138,153,0,208,96+ *** LEFTMOVE (HI BIT CLR) ***+XB38720:XE38756: 20+ GET HORIZONTAL POSITI JSR 38314 JMP 38391- 173,48,148,208,4,232,76,247,149,190,107,148,202,32,170,149,76,247,149:- *** RIGHTMVE (HI BIT SET) ***U-XB38784:XE38820: 20- GET HORIZONTAL POSITION, INCREMENT; IF EDGE, MOVE AND LEAVE- LDX 53248,Y INX TXA CM 6,148,232,32,180,149,76,247,149. *** RIGHTMVE (HI BIT CLR) ***/XB38848:XE38861: 20R/ GET HORIZ LOC, INCREMENT, CHECK CROSSOVER, STORE AND RETURN/ LDX 53248,Y INX BNE+3 JSR 38314 TXA STA 53248,Y RTS/ 190,0,208,232,208,3,32,170,14 EDGES TO BASIC0 XB38391:XE38399: 201 WAS IT SPRITE 0? IF NOT, REPORT WRAP'1 CPY#0 BNE+1 RTS STY 37943 RTSJ1 192,0,208,1,96,140,55,148,96h1 *** READ JOYSTICK ***1 XB38912:XE38972: 201 SET READ VECTOR TO POINT TO JOYSTI ,8,169,1,141,39,148,32,0,1533 IS MOVEMENT CALLED FOR? IF SO, SET JOYDIR, SET SHAPE 0M3 LDA 37933 AND#15 CMP#15 BNE+3 JMP(37900) EOR#15 STA 37963 JSR 390403 173,45,148,41,15,201,15,208,3,108,12,148,73,15,141,75,148,32,128,1523 MOVE ONCE **4 XB38976:XE39009: 204 37892, LO(XB): 37893, PG(XB)15 SET UP FOR SPRITE 0, GO MOVE, CHECK COLLISIONS, REDO IF NECESSARYQ5 LDY#0 JSR 38400 JSR 39072q5 160,0,32,0,150,32,160,1525 DO IT AGAIN? IF NOT, RESET TIMER5 DEC 36 XB39040:XE39057: 20 7 USING JOYDIR AS INDEX, GET SPRITE SHAPE CODE FROM SPRITE 0 DIREC.TABLEN7 LDA 37923 BNE+9 LDY 37963 LDA 37951,Y STA 33784 JSR 39232 RTS7 173,35,148,208,9,172,75,148,185,63,148,141,248,131,32,64,153,967 ** SP,208,1528 DO WE BOUNCE OFF FOREGROUND? IF SO, DO IT AND RETURN'9 LDA 37941 BEQ+13 LDA 53279 AND#1 BEQ+6 JSR 39280 JMP UNMOVE RTSn9 173,53,148,240,13,173,31,208,41,1,240,3,32,112,153,76,208,152,969 ** UNMOVE **9 XB39120:XE39148: 20 STA 37963 RTS: 160,0,32,0,150,172,75,148,185,121,148,141,75,148,96;' *** READ KEYBOARD ***!;( XB=00000:XE=00000:GOSUB 20h;) SET READ VECTOR TO POINT TO KEYBOARD ROUTINE (REMOVE REM TO USE);* X=38912:POKE 37890,FN LO(X):POKE 37891,FNEDGEWRAP, C2%=S/S COLLIS.< LDY#17 LDA 37943 BEQ+2 STA(45)Y LDY#24 LDA 37937 BEQ+2 STA(45)Y9= 160,17,173,55,148,240,2,145,45,160,24,173,49,148,240,2,145,45^= C3%=S/FOREG.COLLIS.,ERASE,RET.= LDY#31 LDA 37938 BEQ+2 STA(45)Y= 160,31, 60,38,169,1,145,45,141,47,148,96> ** REPORT SPRITE 0 BOUNCE/S> XB39248:XE39257: 20? C5%=SPRITE 0 BOUNCED/SPRITE:>? LDY#45 LDA 37929 AND#254 STA(45)Y RTSg? 160,45,173,41,148,41,254,145,45,96? ** REPORT SPRITE 0 BOUNCE/F? XB39280:XE39289: 20? C6%=SPRITE 0 BOUNCED FOREGROU.? LDY#52 LDA#1 STA(45)Y STA 37930 RTS@ 160,52,169,1,145,45,141,42,148,962@R *** WRAPUP ***W@S ALL ROUTINES EXIT THROUGH HEREr@T XB40704:XE40721: 20@U ** SET COLLISION VECT9,138,153,0,208,96/_ *** BASIC MOVEMENT HANDLER ***0` XB38336:XE38346: 20+0a SET Y TO OFFSET OF SELECTED SPRITE[0b LDY#59 LDA(45)Y TAX LDY 37944,X JMP 384000c 160,59,177,45,170,188,56,148,76,0,1500 ** REPORT NON-SPRITE-0 WRAPS ANDCK ROUTINE1 X38912: 37890, LO(X): 37891, PG(X): (REM THIS TO USE KEYB.)D2 GET JOYSTICK 2; STORE IT, CHECK FOR FIREBUTTON, REPORT IF PRESSED2 LDA 56320 STA 37933 AND#16 BNE+8 LDA#1 STA 37927 JSR 391682 173,0,220,141,45,148,41,16,208, THEN POINT MOVE.VECT.TO MOVEMENT HANDLER4 LDY#0 JSR 38400 JSR 39072 LDA 37892 STA 37898;4 160,0,32,0,150,32,160,152,173,4,148,141,10,148`4 LDA 37893 STA 37899 JMP(37900)4 173,5,148,141,11,148,108,12,1484 *** INTERR.MOVE.HANDLER *7928 BNE-13 LDA 37926 STA 379285 206,40,148,208,243,173,38,148,141,40,1486 RESET MOVEMENT VECTOR, QUITM6 LDA 37896 STA 37898 LDA 37897 STA 37899 JMP(37900)6 173,8,148,141,10,148,173,9,148,141,11,148,108,12,1486 *** SET SHAPE 0 ***RITE 0 COLLISION ROUTINE7 XB39072:XE39111: 208 DO WE BOUNCE OFF SPRITES? IF SO, DO IT78 LDA 37940 BEQ+16 LDA 53278 STA 37929 AND#1 BEQ+6p8 173,52,148,240,16,173,30,208,141,41,148,41,1,240,68 JSR 39248 JMP UNMOVE8 32,80,153,769 STOP GOSPEED, REVERSE JOYDIR AND STORE IT: LDA#1 STA 37928 LDY 37963 LDA 38009,Y STA 37963;: 169,1,141,40,148,172,75,148,185,121,148,141,75,148n: GO MOVE, REVERSE JOYDIR AND RESTORE IT, QUIT: LDY#0 JSR 38400 LDY 37963 LDA 38009,Y PG(X):REM (NOT IN FORCE); ** BASIC VARIABLE SUBROUTINES; XB39168:XE39174: 20< ** REPORT FIREBUTTON - C0%2< LDY#10 LDA#1 STA(45),Y RTSO< 160,10,169,1,145,45,96p< ** REPORT SPRITES TO BASIC< XB39184:XE39222: 20< C1%=173,50,148,240,2,145,45= LDA#0 STA 37937 STA 37938 STA 37943 RTS > 169,0,141,49,148,141,50,148,141,55,148,96"> ** REPORT MOVEMENT=> XB39232:XE39241: 20`> C4%=PLAYER HAS TRIED TO MOVE> LDY#38 LDA#1 STA(45)Y STA 37935 RTS> 1 OR@V X40704: 37900, LO(X): 37901, PG(X)@Z GET COLLISION DATA AND REPORT IT TO BASIC VARIABLES.A[ LDA 53278 STA 37937 LDA 53279 STA 37938 JSR 39184jA\ 173,30,208,141,49,148,173,31,208,141,50,148,32,16,153Ac RETURN TO HOUSEKEEPINGAd  : 3985:B ** PLANET 1 SHAPE DATAB 0,40,0,0,175,0,82,191,192,82,175,128,2,191,128,0,171,0,0,40,06C 0,40,0,0,190,0,2,255,128,5,190,128,5,254,128,0,175,0,0,40,0vC 0,40,0,0,250,0,3,254,128,2,90,128,3,90,128,0,190,0,0,40,0C 0,40,0,0,23 ,40,0,5,171,0,6,175,192,2,171,192,2,175,192,0,170,0,0,40,0D ** PLANET 2 SHAPE DATA'E 0,40,0,3,170,192,62,170,148,162,170,143,42,255,252,2,255,192,0,40,0qE 0,40,0,3,106,192,61,106,188,241,106,143,62,171,252,2,171,192,0,40,0E 0,24,0,