SCREEN 12
CLS
'640X480
polomer = 30
okolik = 10
okoliky = 10
x = INT(RND * 640)
y = INT(RND * 480)
p:
CLS
DO
z = z + 1
CIRCLE (x, y), polomer
x = x + okolik
IF x > 600 OR x < 40 THEN okolik = -okolik
IF y < 40 OR y > 400 THEN okoliky = -okoliky
y = y + okoliky
FOR i = 1 TO 1000 STEP .05: NEXT
IF z > 1000 THEN z = 0: GOTO p
LOOP UNTIL INKEY$ <> ""