10DIM r(15), c(15), b(15)
20HOME
30GR
39REM --draw in large, regular areas of color--
40FOR x=1 TO 10
50READ ko, r1, r2, c1, c2
60COLOR =ko
70FOR y=r1 TO r2
80HLIN c1, c2 AT y
90NEXT y, x
99REM --draw branches of tree--
100FOR x=1 TO 46
110READ br, bc
120PLOT br, bc
130NEXT x
139REM --draw leaves--
140COLOR =4
150FOR x=1 TO 15
160READ r(x), c(x), b(x)
170PLOT r(x), c(x)
180NEXT x
189REM --make the leaves fall--
190COLOR =13
200FOR x=1 TO 15
210PLOT r(x), c(x)
220FOR t=1 TO RND(1)*1100+1
230NEXT t
240COLOR =2
250PLOT r(x), c(x)
260FOR y=c(x)+1 TO b(x)-1
270 hk=SCRN(r(x), y)
280COLOR =13
290PLOT r(x), y
300FOR t=1 TO 10+RND(1)*200
310NEXT t
320COLOR =hk
330PLOT r(x), y
340NEXT y
350COLOR =13
360PLOT r(x), b(x)
370NEXT x
379REM --pause; then print closing message--
380FOR t=1 TO 2500
390NEXT t
400VTAB 22
410? "Press <R> for an instant replay"; 
420? "or <Q> to quit."; 
429REM --when key is pressed, stop or start over--
430GET k$
440IF k$="Q" OR k$="q" THEN TEXT:END
450IF k$="R" OR k$="r" THEN RESTORE:GOTO 20
460GOTO 430
1000DATA  2,0,28,0,39,4,29,39,0,39,13,4,4,38,39
1010DATA  13,3,3,37,39,13,2,2,36,39,13,0,1,35,39
1020DATA  3,38,38,9,13,3,37,37,10,12,3,14,37,10,11
1030DATA  3,12,13,10,10
1040DATA  9,17,8,16,7,17,12,15,13,15,14,15,15,16,13
2000DATA  14,13,13,14,12,15,11,16,11,9,13,8,12,7
2010DATA  13,6,14,9,11,9,10,8,9,7,8,6,9,5,10,3,10
2020DATA  5,12,4,11,6,7,5,6,11,11,12,11,13,10,14,9
2030DATA  15,8,16,8,17,7,12,9,11,8,10,7,9,6,9,8,12
3000DATA  7,11,6,13,6,12,5,11,4,12,3,13,3,14,7,35,4
3010DATA  13,37,15,17,38,13,4,39,2,11,36,8,5,38,16
3020DATA  12,36,5,7,35,6,15,37,17,8,35,7,18,39,12
3030DATA  12,36,10,5,39,8,10,36,9,14,37
