--- title: "Christmas Tree" type: "article" slug: "christmas-tree" url: "http://localhost/article/christmas-tree/" markdown_url: "http://localhost/article/christmas-tree.md" published_at: "2020-10-27T17:08:39+00:00" modified_at: "2026-06-21T23:27:18+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "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…" category: - name: "Family Computing" slug: "family-computing" taxonomy: "category" url: "http://localhost/category/periodicals/family-computing/" post_tag: - name: "1983" slug: "year-1983" taxonomy: "post_tag" url: "http://localhost/tag/year-1983/" - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "Full Text" slug: "fulltext" taxonomy: "post_tag" url: "http://localhost/tag/fulltext/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" - name: "Type-in program" slug: "type-in-program" taxonomy: "post_tag" url: "http://localhost/tag/type-in-program/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Joey Latimer" slug: "joey-latimer" taxonomy: "indiv" url: "http://localhost/indiv/joey-latimer/" publication: "Family Computing" publication_r: id: 10131 title: "Family Computing" type: "periodical" url: "http://localhost/periodical/family-computing/" authors: "Joey Latimer" authors_r: - name: "Joey Latimer" slug: "joey-latimer" taxonomy: "indiv" url: "http://localhost/indiv/joey-latimer/" volume: "1" issue: "4" issues_articles: - id: 61385 title: "Family Computing (v1 n4)" type: "issue" url: "http://localhost/issue/family-computing-v1-n4/" pages: "110-126" pubdate: "December 1983" archive_link: false archiveurl: "https://archive.org/details/FamilyComputingIssue041983Dec/Family_Computing_Issue%2004_1983_Dec/page/n111/mode/2up" volumeissue: "v1n4" article_media: - id: 61176 title: "Christmas Tree" type: "computer_media" url: "http://localhost/computer_media/christmas-tree/" --- # 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 ``` ## Source Code: Christmas Tree ``` 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 ```