RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT REPLAY: RR=10+RND(500) LIFE=RND(RR\10)+RND(RR) CLS FOR I=0 TO 7 X=RND(19) Y=RND(15) C=CELL.C(X,Y) IF C=0 THEN PAL I CELL X,Y,1 END IF NEXT I DO IF RND(RR*10)=1 THEN PAL RND(7) CELL RND(19),RND(15),1 END IF FOR Y=0 TO 15 FOR X=0 TO 19 C=CELL.C(X,Y) IF C>0 THEN P=CELL.A(X,Y) PP= (P AND %00000111) PD=PP ADD PD,1,0 TO 7 PAL PP FLIP RND(1),RND(1) IF C<4 THEN IF RND(LIFE)=1 THEN CELL X,Y,RND(2)+1 IF RND(RR)=1 THEN CELL X,Y,4 ELSE IF C<7 THEN IF RND(LIFE)=1 THEN CELL X,Y,RND(2)+4 IF RND(RR)=1 THEN CELL X,Y,7 ELSE IF RND(LIFE)=1 THEN CELL X,Y,RND(2)+7 IF RND(RR)=1 THEN DD=RND(1)*2-1 DX=0 DY=0 IF RND(1)=0 THEN DX=DD ELSE DY=DD CC=CELL.C(X+DX,Y+DY) CA=CELL.A(X+DX,Y+DY) AND %00000111 IF CC=0 OR CA=PD OR RND(100)=1 THEN PAL PP CELL X+DX,Y+DY,1 END IF END IF END IF END IF NEXT X NEXT Y IF TOUCH THEN GOTO REPLAY REM WAIT VBL LOOP #1:MAIN PALETTES 0030201000382410003C2814000C0804 000F0A05000B06020033221100231612 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000E0E0CB1023C0000020E2E100008 04220001340510000000485801003000 30000428110300140010004932020810 001E1F3F5DBF1E3C001C322EBF5E7808 3C6EB32374BD100018144EDE89603000 306CBC1A7D3F2E1C001474EF9E323A10 F0A0B8483F4F063F1078D1F44A3C0F38 3004CA4824130100671793C54C2619C4 1C845181032B3E7E349B59832108AC72