10 COLOR 5,1,2
20 CLS
30 WIDTH 80
40 LOCATE 3,1
50  PRINT "O come all ye faithful, joyful and triumphant
60 LOCATE 6,1
70  PRINT "O come ye, O come ye to Bethlehem
80 LOCATE 9,1
90  PRINT "Come and behold him, born the king of angels
100 LOCATE 12,1
110  PRINT "O come let us adore him, O come let us adore him
120 LOCATE 15,1
130 PRINT "O come let us adore him, Christ the Lord.
140 LOCATE 2,1
150 PRINT CHR$(14)
160 PLAY "T240 L32 ML"
170 PLAY "O2 A O3 C+ E A    O2 A O3 c+ e a"      ' O
180 PLAY "O2 A O3 C+ E A    P8
190 LOCATE 2,3
200 PRINT CHR$(14)
210 LOCATE 2,1
220 PRINT " "
230 PLAY "O2 A O3 C+ E A    O2 A O3 C+ E A"     ' come
240 PLAY "O2 A O3 C+ E A    O2 A O3 C+ E A"
250 PLAY "O2 A O3 C+ E A    O2 A O3 C+ E A
260 PLAY "O2 A O3 C+ E A    O2 A O3 C+ E A
270 LOCATE 2,8
280 PRINT CHR$(14)
290 LOCATE 2,3
300 PRINT " "
310 PLAY "O2 A O3 C+ E16    O2 A O3 C+ E16"'      all
320 PLAY "O2 A O3 C+ E16    O2 A O3 C+ E16
330 LOCATE 2,12
340 PRINT CHR$(14)
350 LOCATE 2,8
360 PRINT " "
370 PLAY "O2 A O3 C+ E A    O2 A O3 C+ E A"'      ye
380 PLAY "O2 A O3 C+ E A    O2 A O3 C+ E A
390 LOCATE 2,15
400 PRINT CHR$(14)
410 LOCATE 2,12
420 PRINT " "
430 PLAY "O2 G+ B O3 E B    O2 G+ B O3 E B"'      faith-
440 PLAY "O2 G+ B O3 E B    O2 G+ B O3 E B
450 PLAY "O2 G+ B O3 E B    O2 G+ B O3 E B
460 PLAY "O2 G+ B O3 E B    O2 G+ B O3 E B
470 PLAY "O2 G+ B O3 E16      O2 G+ B O3 E16"'   ful
480 PLAY "O2 G+ B O3 E16      O2 G+ B O3 E16
490 PLAY "O2 G+ B O3 E16     O2 G+ B O3 E16
500 PLAY "O2 G+ B O3 E16     P8
510 LOCATE 2,15
520 PRINT " "
530 LOCATE 2,25
540 PRINT CHR$(14)
550 PLAY "O2 A16 O3 E O4 C+   O2 A16 O3 E O4 C+"'   joy-
560 PLAY "O2 A16 O3 E O4 C+   O2 A16 O3 E O4 C+
570 PLAY "O2 G+ B O3 E B   O2 G+ B O3 E B"'      ful
580 PLAY "O2 G+ B O3 E B   O2 G+ B O3 E B
590 LOCATE 2,25
600 PRINT " "
610 LOCATE 2,32
620 PRINT CHR$(14)
630 PLAY "O2 A16 O3 E O4 C+   O2 A16 O3 E O4 C+"'and
640 PLAY "O2 A16 O3 E O4 C+   O2 A16 O3 E O4 C+
650 LOCATE 2,32
660 PRINT " "
670 LOCATE 2,36
680 PRINT CHR$(14)
690 PLAY "O2 D A O3 F+ O4 D   O2 D A O3 F+ O4 D"'tri-
700 PLAY "O2 D A O3 F+ O4 D   O2 D A O3 F+ O4 D
710 PLAY "O2 E A O3 E O4 C+   O2 E A O3 E O4 C+"'um-
720 PLAY "O2 E A O3 E O4 C+   O2 E A O3 E O4 C+
730 PLAY "O2 E A O3 E O4 C+   O2 E A O3 E O4 C+
740 PLAY "O2 E A O3 E O4 C+   O2 E A O3 E O4 C+
750 PLAY "O2 E G+ O3 E B     O2 E G+ O3 E B"'  phant
760 PLAY "O2 E G+ O3 E B     P8
770 LOCATE 2,36
780 PRINT " "
790 LOCATE 5,1
800 PRINT CHR$(14)
810 PLAY "O2 F+ A O3 C+ A    O2 F+ A O3 C+ A"'  O
820 PLAY "O2 F+ A O3 C+ A    P8
830 LOCATE 5,1
840 PRINT " "
850 LOCATE 5,3
860 PRINT CHR$(14)
870 PLAY "O2 F+ A O3 C+ A    O2 F+ A O3 C+ A"'   come
880 PLAY "O2 F+ A O3 C+ A    O2 F+ A O3 C+ A
890 PLAY "O2 F+ A O3 D+ A    O2 F+ A O3 D+ A
900 PLAY "O2 F+ A O3 D+ A    O2 F+ A O3 D+ A
910 LOCATE 5,3
920 PRINT " "
930 LOCATE 5,8
940 PRINT CHR$(14)
950 PLAY "O2 E B O3 E G+     O2 E B O3 E G+"'      ye
960 PLAY "O2 E B O3 E G+     O2 E B O3 E G+
970 LOCATE 5,8
980 PRINT " "
990 LOCATE 5,12
1000 PRINT CHR$(14)
1010 PLAY "O1 B O2 B O3 D+ F+ O1 B O2 B O3 D+ F+ "'   O
1020 PLAY "O1 B O2 B O3 D+ F+ O1 B O2 B O3 D+ F+
1030 LOCATE 5,12
1040 PRINT " "
1050 LOCATE 5,14
1060 PRINT CHR$(14)
1070 PLAY "O2 E B O3 E G+     O2 E B O3 E G+ "'       come
1080 PLAY "O2 E B O3 E G+     O2 E B O3 E G+
1090 PLAY "O2 C+ A O3 E A     O2 C+ A O3 E A
1100 PLAY "O2 C+ A O3 E A     O2 C+ A O3 E A
1110 LOCATE 5,14
1120 PRINT " "
1130 LOCATE 5,19
1140 PRINT CHR$(14)
1150 PLAY "O1 G+ O2 G+ O3 E B O1 G+ O2 G+ O3 E B"'    ye
1160 PLAY "O1 G+ O2 G+ O3 E B O1 G+ O2 G+ O3 E B
1170 LOCATE 5,19
1180 PRINT " "
1190 LOCATE 5,22
1200 PRINT CHR$(14)
1210 PLAY "O1 A O2 F+ O3 E O4 C+ O1 A O2 F+ O3 E O4 C+ "'to
1220 PLAY "O1 A O2 F+ O3 E O4 C+ O1 A O2 F+ O3 E O4 C+
1230 LOCATE 5,22
1240 PRINT " "
1250 LOCATE 5,25
1260 PRINT CHR$(14)
1270 PLAY "O1 B O2 B O3 E G+  O1 B O2 B O3 E G+ "'    Beth-
1280 PLAY "O1 B O2 B O3 E G+  O1 B O2 B O3 E G+
1290 PLAY "O1 B O2 B O3 E G+  O1 B O2 B O3 E G+
1300 PLAY "O1 B O2 B O3 E G+  O1 B O2 B O3 E G+
1310 PLAY "O1 B O2 A O3 D+ F+ O1 B O2 A O3 D+ F+
1320 PLAY "O1 B O2 A O3 D+ F+ O1 B O2 A O3 D+ F+
1330 PLAY "O1 B O2 A O3 D+ F+ O1 B O2 A O3 D+ F+"'      le-
1340 PLAY "O1 B O2 A O3 D+ F+ E16. P32
1350 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16"'        hem
1360 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16
1370 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16
1380 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16
1390 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16
1400 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16
1410 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16
1420 PLAY "P4
1430 LOCATE 5,25
1440 PRINT " "
1450 LOCATE 8,1
1460 PRINT CHR$(14)
1470 PLAY "O3 C+16 E O4 E     O3 C+16 E O4 E"'        Come
1480 PLAY "O3 C+16 E O4 E     O3 C+16 E O4 E
1490 PLAY "O3 C+16 E O4 E     O3 C+16 E O4 E
1500 PLAY "O3 C+16 E O4 E     O3 C+16 E O4 E
1510 LOCATE 8,1
1520 PRINT " "
1530 LOCATE 8,6
1540 PRINT CHR$(14)
1550 PLAY "O2 B O3 D F+ O4 D  O2 B O3 D G+ O4 D"'     and
1560 PLAY "O2 B O3 D F+ O4 D  O2 B O3 D G+ O4 D
1570 LOCATE 8,6
1580 PRINT " "
1590 LOCATE 8,10
1600 PRINT CHR$(14)
1610 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+ "'    be-
1620 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+
1630 PLAY "O2 B O3 D A O4 D   O2 B O3 D A O4 D"'      hold
1640 PLAY "O2 B O3 D A O4 D   O2 B O3 D A O4 D
1650 PLAY "O2 B O3 D G+ O4 D  O2 B O3 D G+ O4 D
1660 PLAY "O2 B O3 D G+ O4 D  O2 B O3 D G+ O4 D
1670 LOCATE 8,10
1680 PRINT " "
1690 LOCATE 8,17
1700 PRINT CHR$(14)
1710 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+ "'    him
1720 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+
1730 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+
1740 PLAY "O2 A O3 E A O4 C+  P8
1750 LOCATE 8,17
1760 PRINT " "
1770 LOCATE 8,22
1780 PRINT CHR$(14)
1790 PLAY "O2 G+ O3 E16 B     O2 G+ O3 E16 B"'        born
1800 PLAY "O2 G+ O3 E16 B     O2 G+ O3 E16 B
1810 LOCATE 8,22
1820 PRINT " "
1830 LOCATE 8,27
1840 PRINT CHR$(14)
1850 PLAY "O2 A16 O3 E O4 C+  O2 A16 O3 E O4 C+ "'    the
1860 PLAY "O2 A16 O3 E O4 C+  O2 A16 O3 E O4 C+
1870 LOCATE 8,27
1880 PRINT " "
1890 LOCATE 8,31
1900 PRINT CHR$(14)
1910 PLAY "O2 F+ O3 C+ F+ A   O2 F+ O3 C+ F+ A"'      King
1920 PLAY "O2 F+ O3 C+ F+ A   O2 F+ O3 C+ F+ A
1930 LOCATE 8,31
1940 PRINT " "
1950 LOCATE 8,36
1960 PRINT CHR$(14)
1970 PLAY "O2 D O3 D F+ B     O2 D O3 D F+ B"'        of
1980 PLAY "O2 D O3 D F+ B     O2 D O3 D F+ B
1990 LOCATE 8,36
2000 PRINT " "
2010 LOCATE 8,39
2020 PRINT CHR$(14)
2030 PLAY "O2 E B O3 E G+     O2 E B O3 E G+ "'       An-
2040 PLAY "O2 E B O3 E G+     O2 E B O3 E G+
2050 PLAY "O2 E B O3 E G+     O2 E B O3 E G+
2060 PLAY "O2 E A O3 E F+     O2 E A O3 E F+
2070 PLAY "O2 E G+ O3 E16     O2 E G+ O3 E16"'        gels
2080 PLAY "O2 E G+ O3 E16     P8
2090 LOCATE 8,39
2100 PRINT " "
2110 LOCATE 11,1
2120 PRINT CHR$(14)
2130 PLAY "O3 C+16 A16        C+16 A16"'              O
2140 PLAY "O3 C+16 A16        P8
2150 LOCATE 11,1
2160 PRINT " "
2170 LOCATE 11,3
2180 PRINT CHR$(14)
2190 PLAY "C+16 A16           C+16 A16"'              come
2200 PLAY "C+16 A16           C+16 A16
2210 LOCATE 11,3
2220 PRINT " "
2230 LOCATE 11,8
2240 PRINT CHR$(14)
2250 PLAY "O2 B16 O3 G+16     O2 B16 O3 G+16"'        let
2260 PLAY "O2 B16 O3 G+16     O2 B16 O3 G+16
2270 LOCATE 11,8
2280 PRINT " "
2290 LOCATE 11,12
2300 PRINT CHR$(14)
2310 PLAY "C+16 A16           C+16 A16"'              us
2320 PLAY "C+16 A16           C+16 A16
2330 LOCATE 11,12
2340 PRINT " "
2350 LOCATE 11,15
2360 PRINT CHR$(14)
2370 PLAY "D16 B16            D16 B16"'               a-
2380 PLAY "D16 B16            D16 B16
2390 PLAY "C+16 A16           C+16 A16"'              dore
2400 PLAY "C+16 A16           C+16 A16
2410 PLAY "C+16 A16           C+16 A16
2420 PLAY "C+16 A16           C+16 A16
2430 LOCATE 11,15
2440 PRINT " "
2450 LOCATE 11,21
2460 PRINT CHR$(14)
2470 PLAY "C+16 E16           C+16 E16"'              him
2480 PLAY "C+16 E16           P8
2490 LOCATE 11,21
2500 PRINT " "
2510 LOCATE 11,26
2520 PRINT CHR$(14)
2530 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16"'     O
2540 PLAY "O2 A O3 E O4 C+16  P8
2550 LOCATE 11,26
2560 PRINT " "
2570 LOCATE 11,28
2580 PRINT CHR$(14)
2590 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16"'     come
2600 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16
2610 LOCATE 11,28
2620 PRINT " "
2630 LOCATE 11,33
2640 PRINT CHR$(14)
2650 PLAY "O2 G+ O3 E B16     O2 G+ O3 E B16"'        let
2660 PLAY "O2 G+ O3 E B16     O2 G+ O3 E B16
2670 LOCATE 11,33
2680 PRINT " "
2690 LOCATE 11,37
2700 PRINT CHR$(14)
2710 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16"'     us
2720 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16
2730 LOCATE 11,37
2740 PRINT " "
2750 LOCATE 11,40
2760 PRINT CHR$(14)
2770 PLAY "O2 B O3 E O4 D16   O2 B O3 E O4 D16"'      a-
2780 PLAY "O2 B O3 E O4 D16   O2 B O3 E O4 D16
2790 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16"'     dore
2800 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16
2810 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16
2820 PLAY "O2 A O3 E O4 C+16  O2 A O3 E O4 C+16
2830 LOCATE 11,40
2840 PRINT " "
2850 LOCATE 11,46
2860 PRINT CHR$(14)
2870 PLAY "O2 G+ O3 E B16     O2 G+ O3 E B16"'        him
2880 PLAY "O2 G+ O3 E B16     P8
2890 PLAY "T210
2900 LOCATE 11,46
2910 PRINT " "
2920 LOCATE 14,1
2930 PRINT CHR$(14)
2940 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+ "'    O
2950 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+
2960 LOCATE 14,1
2970 PRINT " "
2980 LOCATE 14,3
2990 PRINT CHR$(14)
3000 PLAY "O2 B O3 E G+ O4 D  O2 B O3 E G+ O4 D"'     come
3010 PLAY "O2 B O3 E G+ O4 D  O2 B O3 E G+ O4 D
3020 LOCATE 14,3
3030 PRINT " "
3040 LOCATE 14,8
3050 PRINT CHR$(14)
3060 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+ "'    let
3070 PLAY "O2 A O3 E A O4 C+  O2 A O3 E A O4 C+
3080 LOCATE 14,8
3090 PRINT " "
3100 LOCATE 14,12
3110 PRINT CHR$(14)
3120 PLAY "O2 G+ B O3 E B     O2 G+ B O3 E B"'        us
3130 PLAY "O2 G+ B O3 E B     O2 G+ B O3 E B
3140 LOCATE 14,12
3150 PRINT " "
3160 LOCATE 14,15
3170 PRINT CHR$(14)
3180 PLAY "O2 F+ B O3 E A     O2 F+ B O3 D+ A"'       a-
3190 PLAY "O2 F+ B O3 E A     O2 F+ B O3 D+ A
3200 PLAY "O2 E B O3 E G+     O2 E B O3 E G+ "'       dore
3210 PLAY "O2 E B O3 E G+     O2 E B O3 E G+
3220 PLAY "O2 D B O3 E G+     O2 D B O3 E G+
3230 PLAY "O2 D B O3 E G+     O2 D B O3 E G+
3240 LOCATE 14,15
3250 PRINT " "
3260 LOCATE 14,21
3270 PRINT CHR$(14)
3280 PLAY "O2 C+ A O3 E A     O2 C+ A O3 E A"'        him
3290 PLAY "O2 C+ A O3 E A     O2 C+ A O3 E A
3300 PLAY "O2 D A O3 F+ O4 D  O2 D A O3 F+ O4 D
3310 PLAY "O2 D A O3 F+ O4 D  O2 D A O3 F+ O4 D
3320 PLAY "T200
3330 LOCATE 14,21
3340 PRINT " "
3350 LOCATE 14,26
3360 PRINT CHR$(14)
3370 PLAY "O2 E A O3 E O4 C+  O2 E A O3 E O4 C+ "'    Christ
3380 PLAY "O2 E A O3 E O4 C+  O2 E A O3 E O4 C+
3390 PLAY "O2 E A O3 E O4 C+  O2 E A O3 E O4 C+
3400 PLAY "O2 E A O3 E O4 C+  O2 E A O3 E O4 C+
3410 PLAY "T190
3420 PLAY "O2 E G+ O3 E B     O2 E G+ O3 E B
3430 PLAY "O2 E G+ O3 E B     O2 E G+ O3 E B
3440 PLAY "O2 E G+ O3 E B     O2 E G+ O3 E B
3450 PLAY "P8
3460 PLAY "T180
3470 LOCATE 14,26
3480 PRINT " "
3490 LOCATE 14,33
3500 PRINT CHR$(14)
3510 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A P16"' the
3520 PLAY "P8
3530 LOCATE 14,33
3540 PRINT " "
3550 LOCATE 14,37
3560 PRINT CHR$(14)
3570 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A"'     Lord
3580 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3590 PLAY "T170
3600 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3610 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3620 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3630 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3640 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3650 PLAY "O1 A O2 A O3 C+ A  O1 A O2 A O3 C+ A
3660 LOCATE 14,37
3670 PRINT " "
3680 CLS
3690 COLOR 4,2,6
3700 LOCATE 20,30
3710 PRINT "  MERRY CHRISTMAS! "
3720 LOCATE 6,39
3730 PRINT " "
3740 LOCATE 7,38
3750 PRINT "   "
3760 LOCATE 8,37
3770 PRINT "     "
3780 LOCATE 9,36
3790 PRINT "       "
3800 LOCATE 10,35
3810 PRINT "         "
3820 LOCATE 11,34
3830 PRINT "           "
3840 LOCATE 12,33
3850 PRINT "             "
3860 LOCATE 13,32
3870 PRINT "               "
3880 LOCATE 14,31
3890 PRINT "                 "
3900 LOCATE 15,30
3910 PRINT "                   "
3920 LOCATE 16,38
3930 PRINT "   "
3940 LOCATE 1,1,0