1 ' Svjatoslav Agejenko 2003.04
\r
6 IF frm > 10000 THEN frm = -10000
\r
9 OUT &H3C9, SIN(c + frm * 3) * 30 + 31
\r
10 OUT &H3C9, COS(c * 1 + frm * 5) * 30 + 31
\r
11 OUT &H3C9, SIN(c * .7 + frm * 2.23) * 30 + 31
\r
18 x = SIN(b + frm) * 100 + 150
\r
19 y = COS(b * 1.2 + frm * 1.81) * 80 + 100
\r
20 xs = SIN(b * frm * 2.3)
\r
21 FOR xp = -50 TO 50 STEP 10
\r
22 ys = COS(xp / 60 + frm * 1 + b) * 50
\r
23 LINE (x, y)-(x + xp * xs, y - ys), c
\r
29 IF INKEY$ <> "" THEN SYSTEM
\r