1
CLS
SCREEN 9
FOR a = 1 TO 1500
d = INT(RND * 50)
c = INT(RND * 10)
x = INT(RND * 600)
y = INT(RND * 500)
COLOR c
CIRCLE (x, y), d
FOR i = 1 TO 200
NEXT i
NEXT a
GOTO 1