proc fractal (x, y : int, angle, len : real)
    var lengthchange := .75
    if len > 1 then
        var xnew := x + round (len * cosd (angle))
        var ynew := y + round (len * sind (angle))
        drawline (x, y, xnew, ynew, green)
        fractal (xnew, ynew, angle + 45, len * lengthchange)
        fractal (xnew, ynew, angle - 45, len * lengthchange)
    end if
end fractal
fractal(maxx div 2,0,90,100)