1 ' Mystery screensaver
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
13 f = (SIN(frm / 100) + 1.1) * 2
\r
14 FOR s = 1 TO 20 STEP .1
\r
15 x = SIN(s / 1 + frm / 7) * 100
\r
16 y = COS(s / 1 + frm / 10) * 100
\r
17 x1 = SIN(s / 1 - frm / 8) * 100
\r
18 y1 = COS(s / 1 + frm / 15) * 100
\r
19 LINE (x + 160, y + 100)-(x1 + 160, y1 + 100), s MOD 15
\r
26 IF INKEY$ <> "" THEN SYSTEM
\r