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