' Genetare animation ' made by Svjatoslav Agejenko ' in 2002 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslav@svjatoslav.eu SCREEN 13 DIM SHARED byt AS STRING * 1 s = 100 f = 0 n1 = 97 n2 = 97 1 f = f + 1 tmx = 320 * s / 30 tmy = 200 * s / 30 x1 = 160 - (tmx / 2) y1 = 100 - (tmy / 2) CLS FOR y = 0 TO 199 FOR x = 0 TO 319 x2 = x1 + (tmx * x / 320) y2 = y1 + (tmy * y / 200) c = SIN((x2 ^ 2 + y2 ^ 2) / 10) * 6 + 23 IF c < 16 THEN c = 16 IF c > 31 THEN c = 31 PSET (x, y), c NEXT x NEXT y a$ = "mov" + CHR$(n2) + CHR$(n1) + ".frm" OPEN a$ FOR OUTPUT AS #1 FOR y = 0 TO 199 FOR x = 0 TO 319 c = POINT(x, y) byt = CHR$(c) PRINT #1, byt; NEXT x NEXT y CLOSE #1 n1 = n1 + 1 IF n1 > 122 THEN n1 = 97: n2 = n2 + 1 s = s / 1.1 IF s > 5 THEN GOTO 1