3 COLOR 15, 0
5 CLS
10 A$ = "": B$ = "": C$ = "": D$ = "": E$ = "": F$ = "": G$ = "": H$ = "": I$ = "": J$ = ""
20 K$ = "": L$ = "": M$ = "": N$ = "": O$ = CHR$(8): P$ = "": Q$ = "": R$ = ""
30 W = 15: C1 = 0: C2 = 0: X$ = A$: GOSUB 800: COLOR 15: PRINT D$; : W = 2: C1 = 4: C2 = 0: X$ = D$: GOSUB 800
40 W = 4: C1 = 15: C2 = 4: X$ = E$: GOSUB 800
43 COLOR 0, 0: PRINT A$
45 W = 18: C1 = 0: C2 = 0: X$ = A$: GOSUB 800: COLOR 15: PRINT I$; I$; : COLOR 13, 1: PRINT O$;
47 COLOR 13, 0: PRINT A$; E$;
49 C1 = 0: C2 = 0: X$ = A$: W = 18: GOSUB 800: COLOR 12
50 FOR N = 1 TO 2: GOSUB 70: C1 = 0: C2 = 0: W = 10: X$ = A$: GOSUB 800: NEXT N
60 GOSUB 70: GOTO 80
70 COLOR 6: PRINT E$; : COLOR 12: PRINT K$; L$; J$; : RETURN
80 COLOR 0, 0: PRINT A$: COLOR 15
90 C1 = 0: C2 = 0: X$ = A$: W = 9: GOSUB 800: COLOR 6: PRINT E$; E$; E$; E$; E$; E$; E$; E$; : COLOR 0, 0
95 PRINT A$; : COLOR 15: PRINT I$; I$; I$; I$; : C1 = 0: C2 = 0: W = 19: X$ = A$: GOSUB 800
100 FOR N = 1 TO 2: GOSUB 120: C1 = 0: C2 = 0: W = 10: A$ = X$: GOSUB 800: NEXT N
110 GOSUB 120: GOTO 130
120 COLOR 6: PRINT A$; O$; A$; A$; : RETURN
130 COLOR 0, 0: PRINT A$: COLOR 15
140 COLOR 0, 0: PRINT A$; A$; A$; A$; A$; A$; : C1 = 2: C2 = 0: W = 12: X$ = A$: GOSUB 800
150 COLOR 4: PRINT A$; A$; : COLOR 0, 4: PRINT ""; : C1 = 2: C2 = 0: W = 8: X$ = A$: GOSUB 800
153 COLOR 8: PRINT P$; : FOR N = 1 TO 2: GOSUB 157: NEXT N
154 GOSUB 157: LOCATE 4, 69: PRINT " ": LOCATE 4, 69: PRINT R$: LOCATE 4, 72: PRINT "  "
155 GOTO 160
157 COLOR 8: C1 = 8: C2 = 0: W = 9: X$ = P$: GOSUB 800: PRINT Q$; : COLOR 6: PRINT A$; A$; : COLOR 8: PRINT P$; P$; : RETURN
160 COLOR 0, 0: PRINT A$; A$; A$; A$; A$; A$; A$; A$; : C1 = 2: C2 = 0: X$ = A$: W = 10: GOSUB 800
170 COLOR 4: PRINT A$; A$; A$; A$; : COLOR 2, 0: PRINT A$; A$; A$; A$; A$; A$; : COLOR 0: PRINT A$;
180 FOR N = 1 TO 3: GOSUB 195: NEXT N
185 COLOR 0, 0: PRINT A$: COLOR 15: GOTO 200
195 COLOR 0, 0: PRINT "   "; : COLOR 15: PRINT A$; : COLOR 6: PRINT ""; : COLOR 14, 4: PRINT "";
197 COLOR 6, 0: PRINT ""; : RETURN
200 C1 = 0: C2 = 0: W = 10: X$ = A$: GOSUB 800: C1 = 2: W = 16: GOSUB 800: COLOR 0, 0: PRINT A$; A$; A$;
210 FOR I = 1 TO 3: GOSUB 220: NEXT I
215 COLOR 0, 0: PRINT A$: GOTO 230
220 COLOR 0, 0: PRINT A$; A$; A$; A$; : COLOR 6: PRINT A$; A$; A$; A$; A$; A$; A$; : COLOR 14, 4: PRINT "";
222 COLOR 6, 0: PRINT A$; A$; : RETURN
230 LOCATE 7, 11: C1 = 2: C2 = 0: W = 14: GOSUB 800: COLOR 0, 0: PRINT A$; A$; A$; A$; A$;
240 FOR N = 1 TO 3: GOSUB 250: NEXT N
245 PRINT A$: GOTO 260
250 COLOR 0, 0: PRINT A$; A$; A$; A$; : COLOR 6: PRINT A$; : COLOR 0, 0: PRINT A$; A$; A$; A$; A$; A$; A$; A$;
255 COLOR 6: PRINT A$; : COLOR 0, 0: RETURN
260 LOCATE 8, 13: COLOR 9, 0: PRINT F$; : LOCATE 8, 23: PRINT F$; : COLOR 0: PRINT A$; A$; A$; A$; A$; A$;
270 FOR N = 1 TO 3: GOSUB 290: NEXT N
280 COLOR 0, 0: PRINT A$: GOTO 300
290 COLOR 0, 0: PRINT A$; A$; A$; A$; : COLOR 8, 6: PRINT E$; : COLOR 0, 0: PRINT A$; A$; A$; A$; A$; A$; A$; A$;
295 COLOR 8, 6: PRINT E$; : RETURN
300 LOCATE 9, 10: COLOR 9: PRINT "ͼ"
310 LOCATE 12, 28: COLOR 4, 0: PRINT "M E R R Y "
320 LOCATE 13, 32: COLOR 4, 0: PRINT "C H R I S T M A S !"
325 FOR D = 21 TO 23 STEP 1
330 LOCATE D, 1: W = 78: C1 = 15: C2 = 0: X$ = A$: GOSUB 800: PRINT A$
335 NEXT D
340 LOCATE 15, 26: COLOR 7: PRINT "": LOCATE 16, 26: PRINT "": LOCATE 17, 27: COLOR 0, 4: PRINT ""
350 LOCATE 18, 19: COLOR 15: PRINT "": LOCATE 19, 19: COLOR 0, 6: PRINT ""
360 LOCATE 20, 20: COLOR 4, 0: PRINT ""; : COLOR 9, 1: PRINT ""; : COLOR 4, 0: PRINT ""; : COLOR 9, 1
370 PRINT ""; : COLOR 4, 0: PRINT "": LOCATE 21, 20: COLOR 4, 0: PRINT ""; : COLOR 14, 2: PRINT "";
380 COLOR 4, 0: PRINT ""
390 LOCATE 11, 3: COLOR 15: PRINT "": LOCATE 13, 12: PRINT "": LOCATE 14, 58: PRINT ""
799 GOTO 900
800 FOR I = 1 TO W: COLOR C1, C2: PRINT X$; : NEXT I: RETURN
900 REM            
905 REM Z$ = INKEY$: IF Z$ = "" THEN 900
910 REM IF Z$ = "q" OR Z$ = "Q" THEN GOTO 5000
999 FOR I = 1 TO 2
1000 SOUND 392, 18
1010 SOUND 440, 6
1020 SOUND 392, 12
1030 SOUND 329, 24
1040 GOSUB 6000
1045 GOSUB 6000
1060 NEXT I
1070 SOUND 587, 20
1080 GOSUB 6000
1090 SOUND 587, 12
1100 GOSUB 6000
1110 SOUND 493, 24
1120 GOSUB 6000
1130 SOUND 523, 20
1140 GOSUB 6000
1150 SOUND 523, 12
1160 SOUND 392, 24
1170 GOSUB 6000
1180 SOUND 440, 20
1190 GOSUB 6000
1200 SOUND 440, 12
1210 GOSUB 6000
1220 SOUND 523, 18
1230 SOUND 493, 6
1240 SOUND 440, 12
1250 SOUND 392, 18
1260 SOUND 440, 6
1270 SOUND 392, 12
1280 SOUND 329, 24
1290 GOSUB 6000
1300 SOUND 440, 20
1310 SOUND 32767, 2
1320 SOUND 440, 12
1330 SOUND 523, 18
1340 SOUND 493, 6
1350 SOUND 440, 12
1360 SOUND 392, 18
1370 SOUND 440, 6
1380 SOUND 392, 12
1390 SOUND 329, 24
1400 SOUND 587, 20
1410 GOSUB 6000
1420 SOUND 587, 12
1425 GOSUB 6000
1430 SOUND 493, 18
1440 SOUND 523, 6
1450 SOUND 587, 12
1460 SOUND 523, 24
1463 GOSUB 6000
1470 GOSUB 6000
1480 SOUND 523, 12
1490 SOUND 392, 12
1500 SOUND 329, 12
1510 SOUND 392, 18
1520 SOUND 349, 6
1530 SOUND 293, 12
1540 SOUND 261, 24
1550 SOUND 261, 15
5000 SYSTEM
6000 SOUND 32767, 1
6001 I$ = INKEY$: IF I$ = "q" OR I$ = "Q" GOTO 5000
6010 RETURN


