' Einfaches Fraktal

DECLARE SUB Baum (x1!, y1!, x2!, y2!, e%)

SCREEN 11

Baum 10!, 240!, 460!, 235!, 7
d$ = INPUT$(1)
SCREEN 0
WIDTH 80, 25

SUB Baum (x1!, y1!, x2!, y2!, e%)
  LINE (x1!, y1!)-(x2!, y2!)
  IF e% > 0 THEN
    dx! = x2! - x1!
    dy! = y2! - y1!
    Baum x1! + .2 * dx!, y1! + .2 * dy!, x1! + .3 * dx! - .4 * dy!, y1! + .3 * dy! + .4 * dx!, e% - 1
    Baum x1! + .2 * dx!, y1! + .2 * dy!, x1! + .3 * dx! + .4 * dy!, y1! + .3 * dy! - .4 * dx!, e% - 1
    Baum x1! + .6 * dx!, y1! + .6 * dy!, x1! + .7 * dx! - .2 * dy!, y1! + .7 * dy! + .2 * dx!, e% - 1
    Baum x1! + .6 * dx!, y1! + .6 * dy!, x1! + .7 * dx! + .2 * dy!, y1! + .7 * dy! - .2 * dx!, e% - 1
  END IF
END SUB