RANDOMIZE TIMER REM WAS8BIT IF CELL.C(19,15)=0 THEN BG 1 FOR I=1 TO 100 C=RND(1)+5 IF RND(20)=0 THEN C=RND(3)+1 FLIP RND(1),0 CELL RND(19),RND(13),C NEXT I BG 0 FOR X=1 TO 18 FLIP RND(1),0 IF RND(2)=0 THEN CELL X,15,7 NEXT X CELL 19,15,15 END IF DO FOR Y=0 TO 15 FOR X=0 TO 19 BG 1 C1=CELL.C(X,Y) IF C1>0 THEN IF C1>=5 THEN R=RND(1000) IF R=0 THEN DX=RND(2)-1 DY=RND(2)-1 CX=CELL.C(X+DX,Y+DY) IF CX=0 THEN CELL X,Y,0 CELL X+DX,Y+DY,C1 END IF ELSE IF R<10 THEN TINT X,Y FLIP RND(1),0 END IF ELSE END IF END IF BG 0 C0=CELL.C(X,Y) IF C0>0 THEN IF C0<9 AND RND(1000)=0 THEN FLIP RND(1),0 CELL X,Y,C0+1 ELSE IF C0=9 AND RND(1000)=0 THEN FLIP RND(1),0 CELL X+RND(2)-1,Y-1,7 END IF END IF IF Y=19 AND C0=0 AND RND(1000)=0 THEN CELL X,Y,7 NEXT X NEXT Y ISAVE=(ISAVE+1) MOD 300 WAIT VBL LOOP #1:MAIN PALETTES 0628092600383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00003A7C3A0000000000002000000000 0000003A7C3A00000000000020000000 00005C3E5C0000000000000400000000 0000005C3E5C00000000000004000000 00000000000000000000104000080000 00000000000000000000001040002000 00000000000028100000000000002810 00000028100028100000002810002810 A045022810002810A045022810002810 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 88A85070508040800205020502472A6A