----------------------------------- congcong Sat May 15, 2004 1:33 pm fractal-a leaf ----------------------------------- var x := 0.0 var y := 0.0 var count := 0 var p : int var test := 0.85 var chars : array char of boolean var ox, oy : real loop count := count + 1 Input.KeyDown (chars) if chars (KEY_ESC) then exit end if ox := x oy := y randint (p, 1, 100) if p = 1 then x := 0 y := y * 0.16 drawdot (round (y * 50) + 60, round (x * 50) + 160, green) elsif p >= 2 and p = 9 and p = 16 and p = 2 and p = 9 and p = 17 and p