TOUCHSCREEN RANDOMIZE TIMER REM WASHAW GAMES ACOLOR=INT(RND*8) IDO=0 DO IF TOUCH THEN IDO=1 FOR I=1 TO 800 DA=RND*PI*2 R=RND*12 DX=R*COS(DA) DY=R*SIN(DA) X=(TOUCH.X+DX)\8 Y=(TOUCH.Y+DY)\8 IF CELL.C(X,Y)=0 THEN ATTR(ACOLOR*RND) CELL X,Y,15 END IF NEXT I ELSE IF IDO=1 THEN ACOLOR=INT(RND*8) IDO=0 END IF FOR IY=0 TO 15 FOR IX=0 TO 19 C=CELL.C(IX,IY) ATTR(CELL.A(IX,IY)) IF C>0 AND C<16 THEN CELL IX,IY,(C-1) PLAY IX MOD 4,((IX+IY)*(IX MOD 3))+30,1 SOUND 1 END IF NEXT IX NEXT IY WAIT VBL LOOP #1:MAIN PALETTES 003A302000382420003C2824000C0804 000F0A05001703020022121100332211 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000018180000000000001818000000 00001824241800000000183C3C180000 000024181824000000003C24243C0000 0018005A5A00180000183C66663C1800 0018005A5A00180000183C66663C1800 003C665A5A663C00003C5A66665A3C00 003C665A5A663C00003C5A66665A3C00 001C645A5A263800003C5A66665A3C00 001C645A5A263800003C5A66665A3C00 0018245A5A241800003C5A66665A3C00 0018245A5A241800003C5A66665A3C00 185A24DBDB245A18187E5AE7E75A7E18 185A24DBDB245A18187E5AE7E75A7E18 995A24DBDB245A99997E5AE7E75A7E99 995A24DBDB245A99997E5AE7E75A7E99 #15:MAIN SOUND 2800339A00045000480784AC013A7000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000