RANDOMIZE TIMER ON RASTER CALL HEXME REM WAS8BIT GLOBAL DENT DENT=4 SPRITE 0,0,0,4 SPRITE 0 PAL 1 GAMEPAD 1 BG 1 BG FILL 0,0 TO 18,15 CHAR 1 FOR I=1 TO 100 CELL RND(18),RND(15),RND(1)+2 NEXT I X=0 Y=0 DO YDENT=Y MOD 2 IF RIGHT TAP(0) AND X<38 THEN X=X+2 IF LEFT TAP(0) AND X>0 THEN X=X-2 IF DOWN TAP(0) AND Y<15 THEN Y=Y+1 IF UP TAP(0) AND Y>0 THEN Y=Y-1 SPRITE 0,X*4+YDENT*4,Y*8, BG 1 C=CELL.C(X,Y) BG 0 PAL 1 TEXT 0,0,STR$(X+YDENT)+","+STR$(Y)+"="+STR$(C)+" "+STR$(YDENT)+" " WAIT VBL LOOP SUB HEXME Y=RASTER MOD 8 IF Y=0 THEN ADD DENT,4,0 TO 4 SCROLL 1,-DENT,0 END SUB #1:MAIN PALETTES 0500300C003C2814003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FF8199BDBD9981FF0000000000000000 FF99BDFFFFBD99FF00183C7E7E3C1800 FF818181818181FF00183C7E7E3C1800 8118245A5A241881005A3C66663C5A00