' PROG 101 EZ GAME BY WAS8BIT RANDOMIZE TIMER GAMEPAD 1 FOR I=1 TO 25 FOR C=4 TO 6 CELL RND(19),RND(15),C NEXT C NEXT I PX=9 PY=7 CELL PX,PY,1 HEALTH=10 NUMBER 0,0,HEALTH,2 FACE=1 DO IF LEFT(0) THEN MX=-1 ELSE IF RIGHT(0) THEN MX=1 ELSE MX=0 IF UP(0) THEN MY=-1 ELSE IF DOWN(0) THEN MY=1 ELSE MY=0 IF MY=-1 THEN FACE=1 ELSE IF MX=1 THEN FACE=2 XCHECK=PX YCHECK=PY ADD XCHECK,MX,0 TO 19 ADD YCHECK,MY,0 TO 15 CHECK=CELL.C(XCHECK,YCHECK) IF CHECK=6 THEN PLAY 0,40,15 CELL PX,PY,3 WAIT 30 CELL PX,PY,FACE ELSE CELL PX,PY,0 PX=XCHECK PY=YCHECK IF CHECK=4 THEN INC HEALTH NUMBER 0,0,HEALTH,2 PLAY 0,80,1 IF HEALTH=20 THEN TEXT 3,0,"WON!" END END IF ELSE IF CHECK=5 THEN DEC HEALTH NUMBER 0,0,HEALTH,2 PLAY 0,20,5 IF HEALTH=0 THEN TEXT 3,0,"LOST" END END IF END IF CELL PX,PY,FACE WAIT 6 END IF WAIT VBL LOOP #1:MAIN PALETTES 053F300000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 006C6C6C000038000000004800000000 006C6C6C000038000000002400000000 006C6C6C000010000000002800000000 00001038100000000000000000000000 00000000000000000000140814000000 003C7E7E7E7E3C00003C7E7E7E7E3C00