PROG : 16509
D-FILE: 17352
VARS : 18145
E-LINE: 18146
STKBOT: 18146
STKEND: 18146
9999 means line number
PRINT means treat as KEYWORD P
10 REM CHRISTMAS TREE*SLR/2023
20 GOSUB 200
30 GOSUB 300
40 GOSUB 100
50 GOSUB 400
60 RUN
70 SAVE "XMASTREE"
90 RUN
100 REM **CHRISTMAS TREE**
110 FOR I=0 TO 13
120 LET W=(I<12)*((1+INT (I/4))
*(I-INT (I/4)*4+1)-2)+1
130 FOR X=-W TO W
140 PRINT AT I+7,15+X;" ";
150 NEXT X
160 NEXT I
170 RETURN
200 REM **CLEAR SCREEN**
210 CLS
220 FOR I=0 TO 31
230 PRINT AT 21,I;"ú";
240 NEXT I
250 RETURN
300 REM **PRINT SNOW**
310 FOR I=0 TO 100
320 PRINT AT (RND*20),(RND*31);
".+*"(INT (RND*3)+1);
330 NEXT I
340 RETURN
400 REM **MESSAGE**
410 FOR I=1 TO 50
420 PRINT AT 0,0;" * * * * * *
* * * * * * * * * **M E R R Y ++
C H R I S T M A S * * * * * *
* * * * * * * * * *"
430 LET L=SIN PI+COS PI
440 PRINT AT 0,0;"* * * * * * *
* * * * * * * * * M E R R Y --
C H R I S T M A S** * * * * * *
* * * * * * * * * "
450 LET L=SIN PI+COS PI
460 NEXT I
470 RETURN