RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT REM INSPIRED BY CROSOFT312 "CELL DEMO" REM PRINT ASC("A") REM PRINT ASC("Z") REM END RESET: CLS BG FILL 0,7 TO 19,7 CHAR 2 PAL 1 TEXT 4,7," ALPHA WAVE " WAIT 90 ISTART=65 A=0 R=RND(7)+1 ISCROLL=RND RR=RND WW=1+RND(4) ITYPE=RND(7) IF ITYPE=0 THEN PAL 0 ELSE PAL 1 DO CLS IALPHA=INT(ISTART) FOR X=0 TO 19 AA=X*RR Y=8+R*COS(A+AA) IF ITYPE=0 THEN CELL X,Y,1 ELSE TEXT X,Y,CHR$(IALPHA) END IF ADD IALPHA,1,65 TO 90 NEXT X A=A+0.1 ISTART=ISTART+ISCROLL IF ISTART>90 THEN ISTART=65 WAIT WW IF TOUCH THEN GOTO RESET LOOP #1:MAIN PALETTES 003F2A15003F3F00003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0018245A5A24180000183C66663C1800 00006090090600000000000000000000