X=1 Y=1 GAMEPAD 1 SPD=0.1 DO CLS BG COPY 0,0,20,16 TO 0,0 'CHECK COLLISIONS C=CELL.C(X,Y) L=CELL.C(X-1,Y) R=CELL.C(X+1,Y) D=CELL.C(X,Y+1) U=CELL.C(X,Y-1) CELL X,Y,1 IF LEFT(0) AND L=0 THEN X=X-SPD IF RIGHT(0) AND R=0 THEN X=X+SPD IF DOWN(0) AND D=0 THEN Y=Y+SPD IF UP(0) AND U=0 THEN Y=Y-SPD WAIT VBL LOOP #1:MAIN PALETTES 00390B300038343F003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3008000C1C1C220030081C30201C1C14 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF #3:MAIN BG 00001410020102010201020102010201 02010201020102010201020102010201 02010201020102010201020102010000 00000000000002010201020102010201 02010201020102010000000000000001 02010201020100000000000000000201 02010201020102010201020102010201 00000201020100010201020102010000 00000000000000000000000000000000 02010201020102010000020102010000 02010201020100000000000000000201 02010201020100000201020102010201 00000201020100000201020102010000 00000000000002010000000002010000 02010201020102010000020102010000 02010201020102010201020102010201 00000000020100000201020102010201 00000201020100000201020102010201 00000000000000000000000002010000 02010201020102010000020102010000 02010201020102010000000002010201 02010201020100000201020102010201 00000201020100000201020102010201 00000000000000010000000000000000 00000000000000000000000000000000 00000201020102010000000002010201 02010201020102010201020102010201 02010201020102010201020102010201 00000000000000000000000000000000 00000000020100000000000000000000 00000201020102010201020102010201 02010201000002010201020102010000 00000201020102010201020102010000 00000000000000000000000000000000 00000000000000000000020102010201 02010201020100000000000000000000 00000000000000000000000000000000 00000201020102010201020102010201 02010201020102010201020102010201 02010201020102010201020102010201 02010201