REM WAS8BIT RANDOMIZE TIMER TOUCHSCREEN RESET: FOR Y=0 TO 127 FOR X=0 TO 127 C=(C+1) MOD 2 CELL X,Y,C+1 NEXT X C=(C+1) MOD 2 NEXT Y DO RANDO=INT(RND*15) X=RND(19) Y=RND(15) IF RANDO<=2 THEN FOR IX=X-1 TO X+1 FOR IY=Y-1 TO Y+1 IF IX=X OR IY=Y THEN CELL IX,IY,(CELL.C(IX,IY) MOD 2)+1 END IF NEXT IY NEXT IX ELSE IF RANDO=3 THEN CC=CELL.C(19,Y) BG SCROLL 0,Y TO 19,Y STEP 1,0 CELL 0,Y,CC ELSE IF RANDO=4 THEN CC=CELL.C(X,15) BG SCROLL X,0 TO X,15 STEP 0,1 CELL X,0,CC ELSE IF RANDO=5 THEN CC=CELL.C(0,Y) BG SCROLL 0,Y TO 19,Y STEP -1,0 CELL 19,Y,CC ELSE IF RANDO=6 THEN CC=CELL.C(X,0) BG SCROLL X,0 TO X,15 STEP 0,-1 CELL X,15,CC ELSE IF RANDO>=7 THEN FOR IX=X TO X+5 IF CELL.C(IX,Y)=1 AND CELL.C(IX+1,Y)=2 THEN CELL IX,Y,2 CELL IX+1,Y,1 END IF NEXT IX FOR IX=X TO X-5 STEP -1 IF CELL.C(IX,Y)=1 AND CELL.C(IX-1,Y)=2 THEN CELL IX,Y,2 CELL IX-1,Y,1 END IF NEXT IX FOR IY=Y TO Y>5 IF CELL.C(X,IY)=1 AND CELL.C(X,IY+1)=2 THEN CELL X,IY,2 CELL X,IY+1,1 END IF NEXT IY FOR IY=Y TO Y-5 STEP -1 IF CELL.C(X,IY)=1 AND CELL.C(X,IY-1)=2 THEN CELL X,IY,2 CELL X,IY-1,1 END IF NEXT IY END IF IF TAP THEN GOTO RESET WAIT VBL LOOP #1:MAIN PALETTES 00203C0800383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 000000000000000055AA55AA55AA55AA FFFFFFFFFFFFFFFF55AA55AA55AA55AA