5 REM ** TWINKLING CHRISTMAS TREE
6 REM ** BY ROBERT GRAHAM
7 REM ** FROM TRS-80 MICROCOMPUTER NEWS VOLUME 4 ISSUE 11, DECEMBER 1982
10 DIM S(255):DIM T(255):CLS:X=-3
20 FOR L=1 TO 15:X=X+2
30 FOR W=40+(80*L)-((X/2)+.5) TO 40+(80*L)+((X/2)+.5) 
40 PRINT@W,CHR$(42):Y=Y+1:S(Y)=W:T(Y)=1
50 NEXT W: NEXT L
60 X=-1:FOR Y=1318 TO 1322
70 PRINT@Y,CHR$(158):NEXT Y
80 PRINT @1466, "M E R R Y   C H R I S T M A S"
90 Y=RND(224)+1:PRINTCHR$(02)
100 IF T(Y)=1 THEN PRINT@ S(Y),CHR$(43):T(Y)=-1:GOTO 110
105 PRINT@S(Y), CHR$(42):T(Y)=1
110 X=X*-1:IF X = 1 THEN PRINT@S(1),CHR$(42) ELSE PRINT@S(1),CHR$(43)
120 B$=INKEY$:IF B$="Q" THEN SYSTEM ELSE 90