RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT CX=10 CY=8 REDO: WAIT VBL C=INT(RND*3)+1 T=INT(RND*3)+1 A=0 R=0 DA=RND-RND DR=RND-RND IF T=1 THEN GOTO DO1 ELSE IF T=2 THEN GOTO DO2 ELSE GOTO DO3 DO1: DO CLS R=R+DR IF R>8 THEN DR=-ABS(DR) IF R<1 THEN DR=ABS(DR) FOR A=0 TO 2*PI STEP 0.1 X=CX+R*COS(A) Y=CY+R*SIN(A) CELL X\1,Y\1,C NEXT A IF TOUCH THEN GOTO REDO WAIT VBL LOOP DO2: DO CLS A=A+DA FOR R=-22 TO 22 X=CX+R*COS(A) Y=CY+R*SIN(A) CELL X,Y,C NEXT R IF TOUCH THEN GOTO REDO WAIT VBL LOOP DO3: DO CLS CR=CR+DR IF CR>8 THEN DR=-ABS(DR) IF CR<1 THEN DR=ABS(DR) FOR AI=0 TO 2*PI STEP 0.1 X=CX+CR*COS(AI) Y=CY+CR*SIN(AI) CELL X\1,Y\1,C NEXT AI LA=LA+DA FOR RI=-CR TO CR X=CX+RI*COS(LA) Y=CY+RI*SIN(LA) CELL X,Y,C NEXT RI IF TOUCH THEN GOTO REDO WAIT VBL LOOP #1:MAIN PALETTES 00300C3C00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C7EFFFFFFFF7E3C0000000000000000 0000000000000000007E7E7E7E7E7E00 00000018180000000000001818000000