REM THIS PROGRAM IS IN T3H PUBLIC DOMAIN

SCREEN 12
LINE (0, 0)-(640, 480), 15, BF
DO
X = INT(RND(1) * 640)
Y = INT(RND(1) * 480)
Z = INT(RND(1) * 50) + 10
COLOUR = INT(RND(1) * 14) + 1
COLOR COLOUR
CIRCLE (X, Y), Z, COLOUR
PAINT (X, Y), COLOUR
IF INKEY$ = CHR$(27) THEN EXIT DO
LOOP