' Svjatoslav Agejenko

DEFINT A-Y
SCREEN 7, , , 1
RANDOMIZE TIMER
DIM SHARED zme(1 TO 100)
DIM SHARED zme1(1 TO 100)
DIM SHARED zme2(1 TO 100)



FOR a = 1 TO 100
zme2(a) = RND * 15
zme1(a) = RND * 100
zme(a) = RND * 100
NEXT a
1
CLS
FOR a = 1 TO 50
z2 = zme(a)
z1 = zme1(a)
c = zme2(a)
x = SIN(z2) * 25
y = SIN(z1) * 20
zb = (COS(z2) + 2) * 2
x = x * zb
y = y * zb
CIRCLE (x + 160, y + 100), zb, c
PAINT (x + 160, y + 100), c
LINE (160, 100)-(x + 160, y + 100), c

zme(a) = zme(a) + .1
NEXT a
PCOPY 0, 1
IF INKEY$ <> "" THEN SYSTEM
SOUND 0, 1
GOTO 1