CLS
CLEAR
SCREEN 13
DO
col = INT(RND * 255)
FOR a = 1 TO 100
CIRCLE (150, 100), a, col
NEXT a
LOOP