' spiral ' made by Svjatoslav Agejenko ' in 2003.12 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslavagejenko@gmail.com DIM SHARED torux(1 TO 10000) DIM SHARED toruy(1 TO 10000) DIM SHARED tor SCREEN 12 su = 200 tor = 0 FOR a = 1 TO 100 STEP .05 tor = tor + 1 su = 100 - a x = SIN(a) * su * 3 + 320 y = COS(a) * su + 300 y = y + (SIN((a + 20) / 10) * a) torux(tor) = x toruy(tor) = y PSET (x, y), 15 NEXT a FOR a = 1 TO tor - 125 LINE (torux(a), toruy(a))-(torux(a + 125), toruy(a + 125)), 15 NEXT a a$ = INPUT$(1) SYSTEM