CLS
SCREEN 9
RANDOMIZE TIMER
'GOTO 34
FOR j = 1 TO 400
l = INT(RND * 639)
o = INT(RND * 349)

PSET (l, o)
NEXT j
CIRCLE (320, 175), 65, 1
PAINT (320, 175), 1, 1
'CIRCLE (137, 143), 14
'PAINT (137, 143), 14, 14
SLEEP 4

FOR i = 1 TO 300

CIRCLE (320, 175), i, 2
CIRCLE (320, 175), i - 1, 0

CIRCLE (320, 175), m + 4, 1
CIRCLE (320, 175), m + m, 0
m = m + x
x = 1.1
NEXT i
f = 2
FOR i = 1 TO 401
CIRCLE (320, 175), i, 0
CIRCLE (320, 175), f, 9

CIRCLE (320, 175), f - 1, 9

f = f + v
v = 1.3

NEXT i
FOR i = 1 TO 100
CIRCLE (320, 175), i, 0
NEXT i
FOR i = 1 TO 400
x = INT(RND * 639)
y = INT(RND * 349)

PSET (x, y)
NEXT i
34
x = 30
y = 45
LINE (50 - x, 50 - x)-(300 - x, 100 - x), 15, BF
LINE (300 - x, 85 - x)-(320 - y, 120 - y), 15
LINE (280 - x, 100 - x)-(320 - y, 120 - y), 15
PAINT (318 - y, 118 - y), 15, 15