Here is a short animation from youtube.
Here is the current BASIC code. I might add music if I can get it to play along with the animations.
10 rem Christmas tree 20 cursor 0 100 cls 110 setxy 20,3 115 color 14,0 120 chr 249 105 color 2, 0 130 setxy 20,4 140 print "^" 150 setxy 19,5 160 print "/ \" 170 setxy 18,6 180 print "/ \" 190 setxy 17,7 195 color 12,0 200 chr 249 210 print " " 220 chr 249 230 setxy 18,8 235 color 2,0 240 print "/ \" 250 setxy 17,9 260 print "/ \" 270 setxy 16,10 280 print "/ \" 290 setxy 15,11 295 color 12,0 300 chr 249 310 print " " 320 chr 249 330 setxy 16,12 335 color 2,0 340 print "/ \" 350 setxy 15,13 360 print "/ \" 370 setxy 14,14 380 print "/ \" 390 setxy 13,15 400 print "/ \" 410 setxy 12,16 415 color 12,0 420 chr 249 425 color 2,0 430 print "^^^^^^^^^^^^^^^" 435 color 12,0 440 chr 249 450 setxy 19,17 455 color 6,0 460 print "| |" 470 setxy 19,18 480 print "|_|" 500 rem Animations 505 let p = 0 510 let a = 0 520 let b = 0 530 let c = 0 540 let d = 0 550 let e = 0 560 let f = 0 570 let g = 0 580 rem a is the star on top 590 if a = 0 then gosub 1000 600 if a = 200 then gosub 1100 610 if b = 0 then gosub 1200 620 if c = 0 then gosub 1300 630 if d = 0 then gosub 1400 640 if e = 0 then gosub 1500 650 if f = 0 then gosub 1600 660 if g = 0 then gosub 1700 700 a = a + 1 710 if a = 400 then a = 0 720 b = b + 1 730 if b = 150 then b = 0 740 c = c + 1 750 if c = 140 then c = 0 760 d = d + 1 770 if d = 185 then d = 0 780 e = e + 1 790 if e = 160 then e = 0 800 f = f + 1 810 if f = 135 then f = 0 820 g = g + 1 830 if g = 170 then g = 0 900 goto590 1000 color 14,0 1010 setxy 20,3 1020 chr 249 1030 return 1100 color 14,0 1110 setxy 20,3 1120 chr 42 1130 return 1200 setxy 17,7 1210 p = rnd 14 1220 p = p + 1 1230 color p,0 1240 chr 249 1250 return 1300 setxy 23,7 1310 p = rnd 14 1320 p = p + 1 1330 color p,0 1340 chr 249 1350 return 1400 setxy 15,11 1410 p = rnd 14 1420 p = p + 1 1430 color p,0 1440 chr 249 1450 return 1500 setxy 25,11 1510 p = rnd 14 1520 p = p + 1 1530 color p,0 1540 chr 249 1550 return 1600 setxy 12,16 1610 p = rnd 14 1620 p = p + 1 1630 color p,0 1640 chr 249 1650 return 1700 setxy 28,16 1710 p = rnd 14 1720 p = p + 1 1730 color p,0 1740 chr 249 1750 return
I didn't do too many notes inside the code. If you have any questions please ask.