100 PROGRAM "Tree.bas"
110 OPTION ANGLE DEGREES
120 GRAPHICS HIRES 2
130 SET PALETTE 0,170
140 PLOT 640,10;ANGLE 90;
150 CALL TREE(200)
160 DEF TREE(N)
170   IF N<24 THEN EXIT DEF
180   PLOT FORWARD N;RIGHT 25;
190   CALL TREE(N*.75)
200   PLOT LEFT 50;
210   CALL TREE(N*.75)
220   PLOT RIGHT 25,BACK N,
230 END DEF