GLOBAL PX, PY, LEVEL, DX, DY, T, STEPS, KEYS GAMEPAD 1 INIT: LEVEL = 1 LOADL: T = 0 KEYS = 0 STEPS = 0 CALL LOADLEVEL DX = 0 DY = 0 CALL FINDCELL(1, PX, PY) IF PX = -1 OR PY = -1 THEN GOTO INIT CELL PX,PY,0 DO INC T IF T MOD 2 = 0 THEN BG 0 CELL PX,PY,0 IF DX = 0 AND DY = 0 THEN IF UP(0) THEN DY = -1 ELSE IF DOWN(0) THEN DY = 1 ELSE IF LEFT(0) THEN DX = -1 ELSE IF RIGHT(0) THEN DX = 1 ELSE IF BUTTON(0,0) THEN GOTO LOADL IF DX <> 0 OR DY <> 0 THEN INC STEPS ELSE BG 1 IF CELL.C(PX+DX, PY+DY) = 2 THEN DX = 0 DY = 0 END IF ADD PX, DX ADD PY, DY C = CELL.C(PX, PY) IF C = 3 THEN DX = 0 DY = 0 ELSE IF C = 4 THEN INC LEVEL GOTO LOADL ELSE IF C = 5 THEN GOTO LOADL ELSE IF C = 6 THEN DY = -1 DX = 0 ELSE IF C = 7 THEN DY = 1 DX = 0 ELSE IF C = 8 THEN DX = -1 DY = 0 ELSE IF C = 9 THEN DX = 1 DY = 0 ELSE IF C = 10 THEN DX = 0 DY = 0 CELL PX, PY, 11 ELSE IF C = 11 THEN CELL PX, PY, 10 ELSE IF C = 12 THEN CELL PX, PY, 0 INC KEYS ELSE IF C = 13 THEN IF KEYS > 0 THEN DX = 0 DY = 0 DEC KEYS END IF END IF END IF BG 0 PAL 1 CELL PX,PY,1 TEXT 0, 14, "STEPS: " NUMBER 8,14,STEPS,3 TEXT 12, 14, "KEYS: "+STR$(KEYS) END IF WAIT VBL LOOP SUB FINDCELL(N, X, Y) X = -1 Y = -1 FOR CY = 0 TO 16 FOR CX = 0 TO 20 IF CELL.C(CX,CY)=N THEN X = CX Y = CY END IF NEXT CX NEXT CY END SUB SUB LOADLEVEL BG 1 BG SOURCE ROM(2+LEVEL) BG COPY 0,0,20,16 TO 0,0 END SUB #1:MAIN PALETTES 0008182D00152A3F003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 18180081810024241818669999182424 EFEFEF00FEFEFE00EFEFEFEFFEFEFEFE A500A50000A500A50042000000004200 FFFFC3C3C3C3FFFFFF81BDA5A5BD81FF 7EFFFFFF7E2424247E9999FF7E3C3C3C FFFFFFFFFFFFFFFF44AA0044AA0044AA FFFFFFFFFFFFFFFF5522005522005522 FFFFFFFFFFFFFFFF0049924900499249 FFFFFFFFFFFFFFFF9249920092499200 00003C3C7E427E7E00003C3C3C3C0000 000000007E7E7E7E000000003C3C0000 0000E0A0BFE000000000E0ABBFE00000 001824243C34343C000000003C3C3C3C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7E6161617E6060604040404040404040 7E6161617E6462614040404040584442 7F60607E6060607F4040404040404040 7F40407F0101017F4040404000000040 0004067E7E0604000000000101000000 #3:TITLE SCREEN 00001410000002000200020000000200 00000000000002000000020002000200 00000000020002000200000000000200 00000000000002000000000000000000 00000200000000000200000002000000 00000000000002000200020000000200 00000000000002000000020000000000 02000000020002000000000000000000 00000200000002000000000000000200 00000200000000000200000002000000 00000000000002000200020000000200 02000200000002000000020002000200 00000000020002000200000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000002000200020002000200 02000200020002000200020002000200 02000200020002000200000000000200 01000000110012001300140014000000 15000000000000000000000000000401 02000000000002000200020002000200 02000200020002000200020002000200 02000200020002000200000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #4:LEVEL ONE 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000000 04010200000000000000000000000000 00000000000000000200000000000000 00000200020000000200020000000000 00000000000000000000000000000000 02000000000000000000020002000000 02000100000000000000000000000000 00000000000000000000000000000000 00000200020000000200000000000000 00000000000000000000000000000000 00000000000000000000020002000000 02000000000000000000000000000000 00000000000000000000000000000000 00000200020000000200020000000000 00000000000000000000000000000000 00000300020002000200020002000000 00000000000000000000000000000000 00000000000000000000000003000000 00000200020000000000000000000000 00000000000000000000000000000000 00000000000000000000020002000000 00000000000000000000000000000000 00000000000000000000000000000000 00000200020000000200000000000000 00000000000000000000000000000000 00000000000000000000020002000000 02000000000000000000000000000000 00000000000000000000000000000000 00000200020000000200000000000000 00000000000000000000000000000000 00000000000000000000020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #5:LEVEL TWO 00001410020002000200020002000200 02000200020002000200020002000200 02000200020002000200020002000300 03000300030003000300030003000300 03000300030003000300030003000300 03000200020003000300030003000300 03000300030003000300030003000300 03000300030003000300020002000300 01000300030003000300030003000300 03000300030003000300030003000300 03000200020003000300030003000300 03000300030003000300030003000300 03000300030003000300020002000300 03000300030003000300030003000300 03000300030003000300030003000300 03000200020003000300030003000300 03000300030003000300030003000300 03000300030003000300020002000300 03000300030003000300030003000300 03000300030004010300030003000300 03000200020003000300030003000300 03000300030003000300030003000300 03000300030003000300020002000300 03000300030003000300030003000300 03000300030003000300030003000300 03000200020003000300030003000300 03000300030003000300030003000300 03000300030003000300020002000300 03000300030003000300030003000300 03000300030003000300030003000300 03000200020003000300030003000300 03000300030003000300030003000300 03000300030003000300020002000200 02000200020002000200020002000200 02000200020002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #6:LEVEL THREE 00001410000005010200020002000200 02000200020002000200020002000200 02000200020002000200020000000501 02000000000002000000000000000000 00000000000000000000000000000200 04010000000005010200000000000200 00000000000000000000000000000000 00000000000002000000000000000501 02000000000000000000000000000000 00000000000000000000000000000200 00000000000005010200000000000000 00000000000000000000000000000000 00000000000002000000000000000501 02000000000000000000000000000000 00000000000000000000000000000200 00000000000005010200000000000000 00000000010000000200000000000000 00000000000002000000000000000501 02000200020002000000000000000000 02000000000000000000000000000200 00000000000005010200000000000000 00000000000000000200000000000000 00000000020002000000000000000501 02000000000000000000020000000000 00000000000000000000000000000200 00000000000005010200020002000200 00000200000000000000020002000200 00000000000002000000000000000501 02000000000000000000020000000000 00000000000000000000000000000200 0000000000000501020000000C010000 00000200000000000000000000000000 00000000000000000D01000000000501 02000200020002000200020002000200 02000200020002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #7:LEVEL FOUR 00001410020002000200020002000200 02000200020002000200070007000200 02000200020002000200020002000000 000005010D010B010800080008000800 080008000D0100000000000000000000 0C010200020002000200020004010000 0200060002000200020000000C010000 00000000000000000000020002000000 00000100020000000200060000000000 00000000000000000000000000000000 00000200020000000000000002000000 02000200020000000000000000000000 00000000000000000200020002000000 00000000000000000000000002000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000020000000000000000000000 00000000000000000000020002000200 02000200000000000000000002000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000020000000000000000000000 00000000000000000000020002000000 00000000000000000000020002000000 00000000000000000000000000000000 00000200020000000000000000000000 00000000000000000000000000000000 00000000000000000000020002000000 00000900090009000900090009000900 09000900070000000000000000000000 00000200020000000000060000000000 00000000000000000000000007000000 00000000000000000000020002000200 02000200020002000200020002000200 02000200070002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000