' Tree ' made by Svjatoslav Agejenko ' in 2001 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslavagejenko@gmail.com DECLARE SUB start () DECLARE SUB show (d%) DECLARE SUB setpal () DECLARE SUB showpal () DEFINT A-Y DIM SHARED x(1 TO 500) DIM SHARED y(1 TO 500) DIM SHARED s(1 TO 500) DIM SHARED x4(1 TO 500) DIM SHARED y4(1 TO 500) DIM SHARED z(1 TO 500) DIM SHARED mitu start mitu = 1 x4(1) = -1 y4(1) = -1 x(1) = 420 y(1) = 340 s(1) = 70 * 100 z(1) = 1 FOR tr = 1 TO 6 FOR b = 1 TO 50 FOR a = 1 TO mitu show a NEXT a NEXT b FOR a = 1 TO mitu x(mitu + a) = x(a) y(mitu + a) = y(a) s(mitu + a) = s(a) z(mitu + a) = z(a) x4(mitu + a) = RND * 4 - 2 y4(mitu + a) = RND * 4 - 2 NEXT a mitu = mitu * 2 NEXT tr a$ = INPUT$(1) SYSTEM SUB setpal FOR a = 0 TO 16 ' OUT &H3C7, a OUT &H3C8, a OUT &H3C9, a * 4 OUT &H3C9, a * 4 OUT &H3C9, a * 4 NEXT END SUB SUB show (d) x1 = x(d) y1 = y(d) s1 = s(d) z1 = z(d) c = SIN(z1) * 7 + 9 CIRCLE (x1, y1), s1 / 100, c PAINT (x1, y1), c x(d) = x(d) + (SIN(z1) * 1000) / (s1 + 15) y(d) = y(d) + (COS(z1) * 1000) / (s1 + 15) s(d) = s(d) / 1.01 IF x4(d) >= 0 THEN z(d) = z(d) + .1 ELSE z(d) = z(d) - .1 x(d) = x(d) + x4(d) y(d) = y(d) + y4(d) END SUB SUB showpal FOR a = 1 TO 16 LINE (a * 10, 1)-(a * 10 + 10, 100), a, BF NEXT a END SUB SUB start SCREEN 12 setpal REM showpal RANDOMIZE TIMER END SUB