14 lines
317 B
Text
14 lines
317 B
Text
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
|