RANDOMIZE TIMER TOUCHSCREEN REM A=225 REM E=229 REM I=233 REM O=239 REM U=245 DIM VOWEL(5) VOWEL(1)=235 VOWEL(2)=229 VOWEL(3)=233 VOWEL(4)=239 VOWEL(5)=245 CELL 1,1,225+RND(25) IDROP=0 REM WAS8BIT DO IF RND(35) THEN X=RND(19) IF CELL.C(X,0)=0 THEN IF RND(2)=0 THEN CELL X,0,VOWEL(RND(4)+1) ELSE CELL X,0,225+RND(25) END IF END IF END IF FOR X=0 TO 19 YY=1 FOR Y=15 TO 1 STEP -1 IF Y=15 AND RND(22)=0 THEN CELL X,Y,0 C=CELL.C(X,Y) CM=CELL.C(X,Y-1) IF CM=0 THEN YY=0 IF CM>0 AND C=0 THEN CELL X,Y-1,0 CELL X,Y,CM END IF NEXT Y IF YY=1 THEN CELL X,15,0 NEXT X WHILE TOUCH WAIT VBL WEND LOOP #1:MAIN PALETTES 0030201000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15