RANDOMIZE TIMER REPEAT PRINT "TYPE 1 FOR KEYBOARD" PRINT "TYPE 2 FOR GAMEPAD" INPUT "> ";NUM CLW IF NUM = 2 THEN KEYBOARD OFF GAMEPAD 1 K_OR_G = 1 END IF UNTIL NUM = 1 OR NUM = 2 GLOBAL K_OR_G, SCORE DIM GLOBAL CONTROLS$(3) BG COPY 0,0,20,16 TO 0,0 DIM GLOBAL X(3), Y(3), ARROWS(3), SPEED(3) FOR I = 0 TO 3 SPRITE I SIZE 1 PAL I + 1 NEXT I FOR I = 0 TO 3 READ X(I) Y(I) = 140 NEXT I DATA 32, 56, 80, 104 DATA "F","G","H","J" GLOBAL N, MILLI_SEC, SECONDS N = -1 NUMBER 6,0,SCORE,7 WAIT 60 DO CALL TICK PAL 0 NUMBER 6,0,SCORE,7 IF SCORE = 1000000 OR SECONDS = 60 * 6 THEN GOTO END_GAME END IF CALL SPAWN_ARROWS(RND(3)) FOR I = 0 TO 3 IF ARROWS(I) = 1 THEN CALL TRACK_ARROWS(I) END IF NEXT I CALL CHECK_INPUT WAIT VBL LOOP SUB TICK IF MILLI_SEC = 60 THEN INC SECONDS MILLI_SEC = 1 ELSE INC MILLI_SEC END IF END SUB SUB SPAWN_ARROWS(ARROW) IF ARROWS(ARROW) = 0 THEN REPEAT SPEED(ARROW) = RND(3) UNTIL SPEED(ARROW) > 0 SPRITE ARROW,X(ARROW),Y(ARROW),(ARROW + ARROW) + 2 ARROWS(ARROW) = 1 END IF END SUB SUB TRACK_ARROWS(ARROW) IF Y(ARROW) = 5 THEN PAL 1 TEXT (ARROW + 1) * 3 + 1,1,"M" SPRITE OFF ARROW Y(ARROW) = 140 ARROWS(ARROW) = 0 WAIT 2 TEXT (ARROW + 1) * 3 + 1,1," " END IF IF ARROWS(ARROW) = 1 THEN ADD Y(ARROW), -SPEED(ARROW) END IF SPRITE ARROW,X(ARROW),Y(ARROW),(ARROW + ARROW) + 2 END SUB SUB CHECK_INPUT 'Y = 10 = MISS(INSIDE OF SUB TRACK_ARROWS) 'Y = 16 = PERFECT + 4000 POINTS 'Y > 10 AND Y < 16 SAVED + 2000 POINTS 'Y > 16 AND Y <= 25 = CLOSE + 250 POINTS 'Y > 25 MISS N_STRING$ = "" N = -1 ADD_SCORE = 0 IF K_OR_G = 0 THEN I$ = INKEY$ IF I$ <> "" THEN IF I$ = "F" THEN N = 0 ELSE IF I$ = "G" THEN N = 1 ELSE IF I$ = "H" THEN N = 2 ELSE IF I$ = "J" THEN N = 3 END IF END IF ELSE IF K_OR_G = 1 THEN IF BUTTON TAP(0,0) THEN N = 0 END IF IF UP TAP(0) THEN N = 1 END IF IF DOWN TAP(0) THEN N = 2 END IF IF BUTTON TAP(0,1) THEN N = 3 END IF END IF IF N > -1 THEN IF Y(N) = 16 THEN PAL 2 N_STRING$ = "P" ADD_SCORE = 4000 ELSE IF Y(N) > 5 AND Y(N) < 16 THEN PAL 4 N_STRING$ = "S" ADD_SCORE = 2000 ELSE IF Y(N) > 16 AND Y(N) <= 25 THEN PAL 3 N_STRING$ = "C" ADD_SCORE = 250 ELSE IF Y(N) > 25 THEN PAL 1 N_STRING$ = "M" END IF SPRITE OFF N Y(N) = 140 ARROWS(N) = 1 IF SCORE + ADD_SCORE <= 1000000 THEN ADD SCORE, ADD_SCORE ELSE IF SCORE + ADD_SCORE > 1000000 THEN SCORE = 1000000 END IF TEXT (N + 1) * 3 + 1,1,N_STRING$ WAIT 2 TEXT (N + 1) * 3 + 1,1," " REPEAT SPEED(N) = RND(3) UNTIL SPEED(N) > 0 END IF END SUB END_GAME: SPRITE OFF 0 TO 3 END #1:MAIN PALETTES 003F2F000030340C000C0003003F3C00 003C0C00003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 03040A142A5156A90002070D1B313060 00808080807E817D000000000080FC7E 01070E1D3F56ABAA0001070F1D3D7D7F 80E070B8FC6AD5550080E0F0B8BCBEFE 030605050607067E0001030301010303 C060A0A060E0607E0080C0C08080C0C0 00010101017ED5D50000000000017F7F C020F008FC02FEFD00C0E0F0F8FC5456 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 A956512A140A04036030311B0D070200 7D817E80808080007EFC800000000000 7B060607060607030703030303030100 DE6060E06060E0C0E0C0C0C0C0C08000 FFE6653D1E0F0701193D3F1B01000000 FF67A6BC78F0E08098BCFCD880000000 D5D57E01010101007F7F010000000000 FDFE02FC08F020C05654FCF8F0E0C000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03040810204046890000000000000000 00808080807E01010000000000000000 01060810224282800000000000000000 80601008444241010000000000000000 03040404040404780000000000000000 C02020202020201E0000000000000000 00010101017E80800000000000000000 C02010080402AAA90000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 89464020100804030000000000000000 01017E80808080000000000000000000 78040404040406030000000000000000 1E202020202060C00000000000000000 80814222110806010000000000000000 01814244881060800000000000000000 80807E01010101000000000000000000 A9AA0204081020C00000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181818180018000000000000000000 006C6C24000000000000000000000000 00247E24247E24000000000000000000 00083E380E3E08000000000000000000 00626408102646000000000000000000 001C34386E643A000000000000000000 00181830000000000000000000000000 000C183030180C000000000000000000 0030180C0C1830000000000000000000 000024187E1824000000000000000000 000018187E1818000000000000000000 00000000181830000000000000000000 000000007E0000000000000000000000 00000000001818000000000000000000 00060C18306040000000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 00000018001800000000000000000000 00000018001830000000000000000000 00000C1830180C000000000000000000 0000007E007E00000000000000000000 000030180C1830000000000000000000 003C660C180018000000000000000000 003C666E6E603C000000000000000000 00183C667E6666000000000000000000 007C667C66667C000000000000000000 003C666060663C000000000000000000 00786C66666C78000000000000000000 007E607860607E000000000000000000 007E6078606060000000000000000000 003C606E66663C000000000000000000 0066667E666666000000000000000000 003C181818183C000000000000000000 001E060606663C000000000000000000 00666C78786C66000000000000000000 0060606060607E000000000000000000 0042667E7E6666000000000000000000 0066767E6E6666000000000000000000 003C666666663C000000000000000000 007C667C606060000000000000000000 003C66666A6C3E000000000000000000 007C667C786C66000000000000000000 003E603C06067C000000000000000000 007E1818181818000000000000000000 0066666666663C000000000000000000 00666666663C18000000000000000000 0066667E7E6642000000000000000000 00663C183C6666000000000000000000 0066663C181818000000000000000000 007E0C1830607E000000000000000000 003C303030303C000000000000000000 006030180C0602000000000000000000 003C0C0C0C0C3C000000000000000000 00183C66000000000000000000000000 0000000000007E000000000000000000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000022002300 00002400250000002600270000002800 29000000000000000000000000000000 00000000320033000000340035000000 36003700000038003900000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000