RANDOMIZE TIMER IDROP=0 REM WAS8BIT DO IF RND(35) THEN X=RND(19) IF CELL.C(X,0)=0 THEN NUMBER X,0,1,1 END IF FOR Y=15 TO 1 STEP -1 FOR X=0 TO 19 C=CELL.C(X,Y)-208 CL=CELL.C(X-1,Y)-208 CR=CELL.C(X+1,Y)-208 CM=CELL.C(X,Y-1)-208 IF C<0 THEN C=0 IF CL>5 AND C=CL AND RND(35)=0 THEN INC C NUMBER X,Y,C,1 NUMBER X-1,Y,C,1 GOSUB POP ELSE IF CR>5 AND C=CR AND RND(35)=0 THEN INC C NUMBER X,Y,C,1 NUMBER X+1,Y,C,1 GOSUB POP END IF IF CM>0 THEN IF C=0 THEN CELL X,Y-1,0 NUMBER X,Y,CM,1 ELSE IF C<=CM AND RND(35)=0 THEN CELL X,Y-1,0 INC C NUMBER X,Y,C,1 GOSUB POP END IF END IF NEXT X NEXT Y LOOP POP: IF C>9 THEN FOR I=1 TO 35 PLAY RND(3),RND(88),1 CELL X+RND(7)-RND(7),Y+RND(7)-RND(7),0 NEXT I END IF RETURN