CLS
CLEAR
SCREEN 13
DO
RANDOMIZE TIMER
COL = INT(RND * 255)
FOR A = 1 TO 100
CIRCLE (150, 100), A, COL * A
NEXT A
FOR delay = 0 TO 0
NEXT delay
LOOP