Christmas Tree

As the snow falls outside, your family can gather round the computer with glasses of eggnog and fall under the spell of our Christmas Tree program. Watch your computer trim a tree on the screen and surround its base with beautifully wrapped presents, while the tree lights flicker to the familiar tune of an old Christmas song. [Note: The TRS-80 Models I & III and Timex versions do not include music.]

10 DIM A$(25)
20 DIM B$(2,5)
30 DIM C$(2,3)
40 FOR N=1 TO 25
50 LET A$(N)=CHR$ 128
60 NEXT N
70 LET B$(1)=CHR$ 128+CHR$ 128+CHR$ 136+CHR$ 128+CHR$ 128
80 FOR N=1 TO 5
90 LET B$(2,N)=CHR$ 136
100 NEXT N
110 LET C$(1)=CHR$ 128+CHR$ 136+CHR$ 128
120 LET C$(2)=B$(2, TO 3)
130 PRINT TAB 15;A$( TO 1)
140 PRINT TAB 14;A$( TO 3)
150 PRINT TAB 13;A$( TO 5)
160 PRINT TAB 13;A$( TO 5)
170 PRINT TAB 12;A$( TO 7)
180 PRINT TAB 11;A$( TO 9)
190 PRINT TAB 10;A$( TO 11)
200 PRINT TAB 10;A$( TO 11)
210 PRINT TAB 9;A$( TO 13)
220 PRINT TAB 8;A$( TO 15)
230 PRINT TAB 7;A$( TO 17)
240 PRINT TAB 7;A$( TO 17)
250 PRINT TAB 7;A$( TO 17)
260 PRINT TAB 6;A$( TO 19)
270 PRINT TAB 5;A$( TO 21)
280 PRINT TAB 4;A$( TO 23)
290 PRINT TAB 3;A$
300 FOR N=1 TO 5
310 PRINT TAB 14;A$( TO 3)
320 NEXT N
330 PRINT AT 18,4;B$(1);AT 19,4;B$(2)
340 PRINT AT 20,4;B$(1);AT 21,4;B$(1)
350 PRINT AT 18,10;C$(1);AT 19,10;C$(1)
360 PRINT AT 20,10;C$(2);AT 21,10;C$(1)
370 PRINT AT 19,18;C$(1);AT 20,18;C$(2)
380 PRINT AT 21,18;C$(1);AT 19,22;A$( TO 5)
390 PRINT AT 20,22;B$(2);AT 21,22;A$( TO 5)
400 UNPLOT 35,33
410 UNPLOT 27,30
420 UNPLOT 24,23
430 UNPLOT 16,17
440 PRINT AT 0,15;CHR$ 138
450 UNPLOT 38,29
460 UNPLOT 22,28
470 UNPLOT 25,28
480 PRINT AT 0,15;CHR$ 131
490 UNPLOT 31,28
500 UNPLOT 37,26
510 UNPLOT 19,23
520 PRINT AT 0,15;CHR$ 138
530 UNPLOT 29,22
540 UNPLOT 39,22
550 UNPLOT 20,16
560 PRINT AT 0,15;CHR$ 131
570 UNPLOT 28,16
580 UNPLOT 34,17
590 UNPLOT 42,16
600 PRINT AT 0,15;CHR$ 138
610 UNPLOT 21,13
620 UNPLOT 29,36
630 PLOT 25,28
640 PRINT AT 0,15;CHR$ 131
650 PLOT 38,29
660 PLOT 19,23
670 PLOT 29,22
680 PRINT AT 0,15;CHR$ 138
690 PLOT 39,22
700 PLOT 31,28
710 PLOT 22,28
720 PRINT AT 0,15;CHR$ 131
730 PLOT 37,26
740 PLOT 29,36
750 GOTO 440