10 REM ** CHRISTMAS TREE
15 REM ** FOR TRS-80 MODEL II IN BASICG
16 REM ** BY A. B. LILES OF VANCOUVER WA
20 REM ** FROM 80 MICROCOMPUTING 198012
25 REM ** ADAPTED BY MCH 202011
40 CLS 2
44 REM ** GRAPHICS ON, NORMAL SPEED
45 SCREEN 0 
50 REM **
60 PRINT@ (1,20), "MERRY CHRISTMAS"
70 PRINT@ (2,20), "ON A TRS-80 MODEL II"
80 REM **
90 X = 64
100 FOR K = 0 TO 30
110 PSET (X+K, 4+K)
120 PSET (X-K, 4+K)
130 NEXT K
140 FOR S=34 TO 94
150 PSET (S, 34)
160 NEXT S
170 X=60
180 Y=34
190 K=8
200 FOR L=X TO X+K
210 PSET (L,Y)
220 PSET (L, Y+K)
230 NEXT L
240 FOR M=Y TO Y+K
250 PSET (X,M)
260 PSET (X+K, M)
270 NEXT M
280 PSET (64, 2)
290 PSET (63, 3)
300 PSET (64, 3)
310 PSET (65, 3)
320 Y=12
330 FOR X=58 TO 82 STEP 2
340 PSET(X,Y)
350 Y=Y+1
360 NEXT X
370 Y=32
380 FORX=35TO72 STEP 2
390 PSET(X,Y)
400 Y=Y-1
410 NEXT X
420 REM ** PRINT PACKAGES UNDER TREE
430 X=35
440 Y=36
450 K=6
460 GOSUB 10000
470 X=42
480 Y=38
490 K=4
500 GOSUB 10000
510 X=75
520 Y=38
530 K=4
540 GOSUB 10000
550 X=80
560 Y=36
570 K=6
580 GOSUB 10000
590 REM ** FINISH DECORATIOS
600 PSET (65,9):PSET(63,11)
610 PSET (47,14):PSET (73, 16)
620 PSET(61,16):PSET(51,21)
630 PSET(40,31):PSET(89,32)
640 PSET(55,17)
650 Q=25
660 R=50
670 REM ** FLASH TREE LIGHTS
680 FOR D=1TO1000
690 X=RND(76)
700 IF X<52 THEN GOTO 690
710 Y=RND(33)
720 IF Y<17 THEN GOTO 710
730 PSET(X,Y)
740 FOR B=1TO15:NEXT B
750 PRESET(X,Y)
760 GOSUB 20000
770 REM ** PRINT CHRISTMAS MESSAGE, MAX 15CHAR
780 IF D=Q THEN GOSUB 22000
790 IF D=R THEN GOSUB 22500
800 NEXT D
810 GOTO 680
10000 FOR L=X TO X+K
10010 PSET (L,Y)
10020 PSET (L, Y+K)
10030 NEXT L
10040 FOR M=Y TO Y+K
10050 PSET (X,M)
10060 PSET (X+K, M)
10070 NEXT M
10080 RETURN
19990 REM ** SET OTHER FLASHING LIGHTS
20000 PSET (80,28):PRESET (80, 28)
20010 PSET (45,30):PRESET (45,30)
20020 PSET (65,12):PRESET(65,12)
20030 PSET (64,7):PRESET (64,7)
20040 PSET (77,24):PRESET (77,24)
20050 PSET (48,32):PRESET (48, 32)
20060 RETURN
22000 PRINT@ (1, 47), "YOUR MESSAGE"
22010 PRINT@ (2, 47), "MESSAGE # 2"
22020 PRINT@ (3, 47), "MESSAGE # 3"
22030 Q=Q+50
22040 RETURN
22500 PRINT@ (1, 47), "YOUR MESSAGE"
22510 PRINT@ (2, 47), "MESSAGE # 2"
22520 PRINT@ (3, 47), "MESSAGE # 3"
22530 R=R+50
22540 RETURN