2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslavagejenko@gmail.com
\r
8 DIM SHARED byt AS STRING * 1
\r
19 x1 = 160 - (tmx / 2)
\r
20 y1 = 100 - (tmy / 2)
\r
24 x2 = x1 + (tmx * x / 320)
\r
25 y2 = y1 + (tmy * y / 200)
\r
26 c = SIN((x2 ^ 2 + y2 ^ 2) / 10) * 6 + 23
\r
27 IF c < 16 THEN c = 16
\r
28 IF c > 31 THEN c = 31
\r
33 a$ = "mov" + CHR$(n2) + CHR$(n1) + ".frm"
\r
35 OPEN a$ FOR OUTPUT AS #1
\r
48 IF n1 > 122 THEN n1 = 97: n2 = n2 + 1
\r
51 IF s > 5 THEN GOTO 1
\r