DIM X(63),Y(63) REM WAS8BIT TOUCHSCREEN SI=0 IWAIT=0 RESET: WAIT VBL RWAIT=RND(5) C=RND(7) FOR I=0 TO 63 SPRITE I,-10,-10,0 SPRITE I PAL C X(I)=-10 Y(I)=-10 NEXT I DO IF TOUCH THEN ADD SI,1,0 TO 3 PLAY SI,RND(93),1 SOUND 0 GOSUB LOOPIT X(0)=TOUCH.X Y(0)=TOUCH.Y ELSE GOSUB LOOPIT X(0)=-10 Y(0)=-10 IF X(63)=-10 THEN GOTO RESET END IF END IF ADD IWAIT,1,0 TO RWAIT IF IWAIT=0 THEN WAIT VBL LOOP LOOPIT: FOR I=63 TO 1 STEP -1 X(I)=X(I-1) Y(I)=Y(I-1) IF I=63 THEN SPRITE I,X(I),Y(I),4 ELSE IF I>50 THEN SPRITE I,X(I),Y(I),3 ELSE IF I>30 THEN SPRITE I,X(I),Y(I),2 ELSE SPRITE I,X(I),Y(I),1 END IF NEXT I RETURN #1:MAIN PALETTES 003F2A15003A342000383424003F3C28 002E0C08002F0F0A000F0B0700372312 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000100000000000000000000000 0000102854281000000010386C381000 0018245A5A24180000183C66663C1800 5AA57EBDBD7EA55A5AFF42C3C342FF5A #15:MAIN SOUND 38003077000050001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000