TURTLE
"Draws a tree fractal, by Shaun McFall
"TREEFRAC→Str1:{1→ʟTUR:prgmTURTLE:Return
COLOR 126
PEN 0
MOVE {80,120
EVAL 40→I
EVAL 5→G
PEN 1
ANGLE ⁻90
EVAL 34→ʟLBL(2
COLOR randInt(135,255
FORWARD I
PUSHVEC 3
PUSH {3,0
PUSH {3,0
LABEL 1
PUSHVEC 1
EVAL I/1.5→I
LEFT 60
COLOR randInt(135,255
FORWARD I
PUSHVEC 3
PUSH {3,G
PUSH {3,I
POPVEC 1
RIGHT 60
COLOR randInt(135,255
FORWARD I
EVAL G-1→G
IF G≤0
GOTO 2
GOTO 1
LABEL 2
POP 3
POP 3
POPVEC 3
POP 3
EVAL Z→I
POP 3
EVAL Z-1→G
POPVEC 3
IF G>0
GOTO 1