10 REM ** CHRISTMAS TREE 15 REM ** FOR LEVEL 1 MODEL I/III 16 REM ** BY A. B. LILES OF VANCOUVER WA 20 REM ** FROM 80 MICROCOMPUTING 198012 40 CLS 50 REM ** 60 PRINT AT 67, "MERRY CHRISTMAS" 70 PRINT AT 131, "ON A TRS-80 MODEL I" 80 REM ** 90 X = 64 100 FOR K = 0 TO 30 110 SET (X+K, 4+K) 120 SET (X-K, 4+K) 130 NEXT K 140 FOR S=34 TO 94 150 SET (S, 34) 160 NEXT S 170 X=60 180 Y=34 190 K=8 200 FOR L=X TO X+K 210 SET (L,Y) 220 SET (L, Y+K) 230 NEXT L 240 FOR M=Y TO Y+K 250 SET (X,M) 260 SET (X+K, M) 270 NEXT M 280 SET (64, 2) 290 SET (63, 3) 300 SET (64, 3) 310 SET (65, 3) 320 Y=12 330 FOR X=58 TO 82 STEP 2 340 SET(X,Y) 350 Y=Y+1 360 NEXT X 370 Y=32 380 FORX=35TO72 STEP 2 390 SET(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 SET (65,9):SET(63,11) 610 SET (47, 14): SET (73, 16) 620 SET(61,16):SET(51,21) 630 SET(40,31):SET(89,32) 640 SET(55,17) 650 Q=25 660 R=50 670 REM ** FLASH TRE LIGHTS 680 FOR D=1TO1000 690 X=RND(76) 700 IF X<52 GOTO 690 710 Y=RND(33) 720 IF Y<17 THEN 710 730 SET(X,Y) 740 FOR B=1TO15:NEXT B 750 RESET(X,Y) 760 GOSUB 20000 770 REM ** PRINT CHRISTAS MESSAGE, MAX 15CHAR 780 IF D=Q GOSUB 22000 790 IF D=R GOSUB 22500 800 NEXT D 810 GOTO 680 10000 FOR L=X TO X+K 10010 SET (L,Y) 10020 SET (L, Y+K) 10030 NEXT L 10040 FOR M=Y TO Y+K 10050 SET (X,M) 10060 SET (X+K, M) 10070 NEXT M 10080 RETURN 19990 REM ** SET OTHER FLASHING LIGHTS 20000 SET (80, 28): RESET (80, 28) 20010 SET (45,30):RESET (45,30) 20020 SET (65,12):RESET(65,12) 20030 SET (64,7):RESET (64,7) 20040 SET (77,24):RESET (77,24) 20050 SET (48,32): RESET (48, 32) 20060 RETURN 22000 PRINT AT 110, "YOUR MESSAGE" 22010 PRINT AT 174, "MESSAGE # 2" 22020 PRINT AT 238, "MESSAGE # 3" 22030 Q=Q+50 22040 RETURN 22500 PRINT AT 110, "YOUR MESSAGE" 22510 PRINT AT 174, "MESSAGE # 2" 22520 PRINT AT 238, "MESSAGE # 3" 22530 R=R+50 22540 RETURN