GAMEPAD 1
REM WAS8BIT
GLOBAL X,Y,D,L,OD
D=1
OD=1
X=9
Y=7
CELL X,Y,D
L=0


DO
  NUMBER 0,0,L,2
  IF BUTTON(0,0) THEN
     CALL TURNIT
  ELSE IF BUTTON(0,1) THEN
     CALL MOVEIT
  END IF
WAIT VBL
LOOP

SUB TURNIT
    ADD D,1,1 TO 4
    CELL X,Y,D
    CELL X,Y,D
    PLAY 0,75,1
    WAIT 10
END SUB

SUB MOVEIT
    IF D=1 THEN CALL RMOVE
    IF D=2 THEN CALL DMOVE
    IF D=3 THEN CALL LMOVE
    IF D=4 THEN CALL UMOVE
    CELL X,Y,D
    PLAY 0,70,1
    WAIT 10
END SUB


SUB RMOVE
    IF OD<>1 THEN INC L
    C=CELL.C(X,Y)
    CELL X,Y,C+16
    INC X
    CELL X,Y,C
    D=1
    OD=1
END SUB


SUB DMOVE
    IF OD<>2 THEN INC L
    C=CELL.C(X,Y)
    CELL X,Y,C+16
    INC Y
    CELL X,Y,C
    D=2
    OD=2
END SUB


SUB LMOVE
    IF OD<>3 THEN INC L
    C=CELL.C(X,Y)
    CELL X,Y,C+16
    DEC X
    CELL X,Y,C
    D=3
    OD=3
END SUB


SUB UMOVE
    IF OD<>4 THEN INC L
    C=CELL.C(X,Y)
    CELL X,Y,C+16
    DEC Y
    CELL X,Y,C
    D=4
    OD=4
END SUB



#1:MAIN PALETTES
103F2F0000383400003C0C00003F3C00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
7E8181818181817E7880808080808078
7E8181818181817E7E81818181000000
7E8181818181817E1E0101010101011E
7E8181818181817E000000818181817E
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
FFFFFFFFFFFFFFFFFFEFE703E7EFFFFF
FFFFFFFFFFFFFFFFF7F7F7C1E3F7FFFF
FFFFFFFFFFFFFFFFFFFFF7E7C0E7F7FF
FFFFFFFFFFFFFFFFFFFFEFC783EFEFEF