GAMEPAD 1 RANDOMIZE TIMER REM WAS8BIT BG 1 PAL 7 BG FILL 0,0 TO 31,31 CHAR 38 BG FILL 1,1 TO 30,30 CHAR 0 GLOBAL PX,PY,XSCROLL,YSCROLL XSCROLL=0 YSCROLL=0 FOR I=1 TO 25 CX=RND(25)+1 CY=RND(25)+1 FOR IX=0 TO RND(4) CH=CELL.C(CX+IX,CY) IF CH=0 THEN CELL CX+IX,CY,34+RND(3) NEXT IX NEXT I FOR I=1 TO 16 CX=RND(29)+1 CY=RND(29)+1 CELL CX,CY,33 NEXT I PX=10 PY=8 CELL PX,PY,32 DO IF RIGHT(0) THEN CALL PMOVE(1,0) IF LEFT(0) THEN CALL PMOVE(-1,0) IF UP(0) THEN CALL PMOVE(0,-1) IF DOWN(0) THEN CALL PMOVE(0,1) WAIT VBL LOOP SUB PMOVE(X,Y) CX=PX+X CY=PY+Y IF CELL.C(CX,CY)=0 THEN IF X<0 AND PX<23 AND XSCROLL>0 THEN XSCROLL=XSCROLL-8 IF Y<0 AND PY<25 AND YSCROLL>0 THEN YSCROLL=YSCROLL-8 IF X>0 AND PX>9 AND XSCROLL<96 THEN XSCROLL=XSCROLL+8 IF Y>0 AND PY>7 AND YSCROLL<128 THEN YSCROLL=YSCROLL+8 SCROLL 1,XSCROLL,YSCROLL CELL PX,PY,0 PX=PX+X PY=PY+Y CELL PX,PY,32 PLAY 0,30,1 END IF WAIT 15 END SUB #1:MAIN PALETTES 150C0824003C000800300008000F0B07 003F2A15003F2A15003F2A15003F2A00 #2:MAIN CHARACTERS 00000000000000000000000000000000 2854AA54BA1010100000103810101010 00005AADB2251808000000006E241808 001C141C082A1C0800000800082A1C08 44AAAA44482828100044444448282810 387C7C380000000018785C3010101010 2815BA55A810000000101A7E78101010 00244AA389623C00003C76DDF75E3C00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 003C7EFFFFFD723C003C46BFFFFF7E3C 003C7EFFFFFD723C003C46BFFFFF7E3C 003C7EFFFFFD723C003C46BFFFFF7E3C 003C7EFFFFFD723C003C46BFFFFF7E3C 003C7EFFFFFD723C003C46BFFFFF7E3C 003C7EFFFFFD723C003C46BFFFFF7E3C 003C7EFFFFFD723C003C46BFFFFF7E3C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000003C1824660000181842000066 000000183C7E7E7E00183C7EFFFFFFFF 03043840800000000003063C70C00000 C0201C020100000000C0603C0E030000 000070880502000000000070D88D0700 00000E11A04000000000000E1BB1E000 A24582100841A24551BA7CEE773E5D8A