1 ' Svjatoslav Agejenko
\r
6 DIM SHARED zme(1 TO 100)
\r
7 DIM SHARED zme1(1 TO 100)
\r
8 DIM SHARED zme2(1 TO 100)
\r
25 zb = (COS(z2) + 2) * 2
\r
28 CIRCLE (x + 160, y + 100), zb, c
\r
29 PAINT (x + 160, y + 100), c
\r
30 LINE (160, 100)-(x + 160, y + 100), c
\r
32 zme(a) = zme(a) + .1
\r
35 IF INKEY$ <> "" THEN SYSTEM
\r