10 OPTION BASE 1: DIM OPT$(23): RESTORE: PAUSE$ = "T120 P1 P2": SCREEN 0, 0: COLOR 7, 1, 1: CLS : KEY OFF
20 I% = 1
30 READ OPT$(I%): IF LEFT$(OPT$(I%), 1) <> "Z" THEN I% = I% + 1: GOTO 30
39 '
40 ' 1/1/2002 - written a long time ago by Ray Knapp - spelling changes - lrb ...
41 ' 1/2/2002 - renumbered (using MBASIC under an emulator ...)
42 '
50 MAXOPT% = I%: NOOPT% = 0
60 FOR J% = 1 TO 10: KEY J%, "": KEY(J%) OFF: NEXT
70 CLS : FOR I% = 1 TO MAXOPT%
80   LOCATE I%, 20, 0: PRINT OPT$(I%);
90 NEXT
100 LOCATE 25, 5, 0: PRINT "Press the Letter to the left of the song title to make a selection.";
110 K$ = INKEY$: IF LEN(K$) = 1 THEN GOTO 120 ELSE GOTO 110
120 IF K$ > CHR$(96) THEN K% = ASC(K$) - 96 ELSE K% = ASC(K$) - 64
130 IF K% < 0 THEN GOTO 110
140 IF K% < MAXOPT% - 2 THEN GOSUB 190
150 NOOPT% = 0
160 ON K% GOSUB 250, 350, 480, 610, 730, 840, 980, 1100, 1220, 1340, 1460, 1580, 1680, 1810, 1940, 2070, 2270, 2410, 2520, 2650, 2730, 2740, 2750, 2760, 2840, 2920
170 IF PLAY(0) > 0 THEN GOTO 170
180 IF NOOPT% THEN GOTO 110 ELSE GOTO 70
190 CLS : LOCATE 2, 20: PRINT "Now playing ... ";
200 PRINT MID$(OPT$(K%), 5);
210 RETURN
220 '
230 '    SILENT NIGHT
240 '
250 M1$ = "t60 o3 l6g l16a l8g l3e l6g l16a l8g l3e o4 l4d l8d o3 l3b o4 l4c l8c o3 l3g l4a l8a o4 l6c o3 l16b l8a l6g l16a l8g l3e l4a l8a o4 l6c o3 l16b l8a l6g l16a l8g l3e o4 l4d l8d l6f l16d o3 l8b o4 l3c l3e l6c o3 l16g l8e l6g l16f l8d l2c"
260 LOCATE 5, 1
270 PRINT "Silent night! Holy night! All is calm, all is bright,"
280 PRINT "Round yon virgin mother and child. Holy infant so tender and mild"
290 PRINT "Sleep in heavenly peace, Sleep in heavenly peace."
300 PLAY M1$
310 RETURN
320 '
330 '    O COME ALL YE FAITHFUL
340 '
350 M1$ = "t150 o3 l4g l2g l4d l4g l2a l2d l4b l4a l4b o4 l4c o3 l2b l2a l2g l4f# l4e l4f# l4g l4a l4b l2f# l3e l8d l1d o4 l2d l4c o3 l4b o4 l2c o3 l2b l4a l4b l4g l4a l3f# l8e l4d l4d l4g l4f# l4g l4a l2g l4d l4b l4b l4a l4b o4 l4c o3 l2b l4a l4b"
360 M2$ = "o4 l4c o3 l4b l4a l4g l2f# l3g o4 l4c o3 l2b l3a l8g l3g"
370 LOCATE 5, 1
380 PRINT "O come, all ye faithful, joyful and triumphant,"
390 PRINT "Come ye, O come ye to Bethlehem"
400 PRINT "Come and behold Him, born the King of angels"
410 PRINT "O come, let us adore Him, O come, let us adore him"
420 PRINT "O come, let us adore Him, Christ the Lord."
430 PLAY M1$: PLAY M2$
440 RETURN
450 '
460 '    HARK! THE HERALD ANGELS SING
470 '
480 M1$ = "T120 O3 L4D L4G L3G L8F# L4G L4B L4B L4A O4 L4D L4D L3D L8C O3 L4B L4A L2B L4D L4G L3G L8F# L4G L4B L4B L4A O4 L4D O3 L4A L3A L8F# L4F# L4E L2D O4 L4D L4D L4D O3 L4G O4 L4C O3 L4B L4B L4A O4 L4D L4D L4D O3 L4G O4 L4C O3 L4B L4B L4A"
490 M2$ = "O4 L4E L4E L4E L4D L4C O3 L4B O4 L2C O3 L4A L8B O4 L8C L3D O3 L8G L4G L4A L2B O4 L3E L8E L4E L4D L4C O3 L4B O4 L2C O3 L4A L8B O4 L8C L3D O3 L8G L4G L4A L2G"
500 LOCATE 5, 1
510 PRINT "Hark! The herald angles sing. Glory to the newborn King."
520 PRINT "Peace on earth and mercy mild, God and sinners reconciled!"
530 PRINT "Joyful all ye nations, rise, Join the triumph of the skies;"
540 PRINT "With angelic host proclaim, Christ is born in Bethlehem."
550 PRINT "Hark! the herald angels sing, Glory to the new born King."
560 PLAY M1$: PLAY M2$
570 RETURN
580 '
590 '   O LITTLE TOWN OF BETHLEHEM
600 '
610 M1$ = "T110 O3 L4B L4B L4B L4A# L4B O4 L4D L4C O3 L4E L4A L4G L8F# L8G L4A L4D L3B L4B L4B L4B O4 L4E L4D L4D L4C O3 L4E L4A L4G L8F# L8G L4B L4A L3G L4B L4B L4B L4A L4G L2F# L4F# L4F# L4E L4F# L4G L4A L3B L4B L4B L4B L4A# L4B"
620 M2$ = "O4 L4D L4C O3 L4E O4 L4E L4D O3 L4G L3B L8A L3G"
630 LOCATE 5, 1
640 PRINT "O little town of Bethlehem, How still we see thee lie!"
650 PRINT "Above thy deep and dreamless sleep The silent stars go by."
660 PRINT "Yet in thy dark streets shineth the everlasting Light;"
670 PRINT "The hopes and fears of all the years Are met in thee tonight."
680 PLAY M1$: PLAY M2$
690 RETURN
700 '
710 '   AWAY IN THE MANGER
720 '
730 M1$ = "T125 O4 L4D L3D L8C O3 L4B L3B L8A L4G L4G L4F# L4E L2D L4D L4D L8E L4D L4D L4A L4F# L4E L4D L4G L2B O4 L4D L3D L8C O3 L4B L3B L8A L4G L4G L4F# L4E L2D L4D O4 L3C O3 L8B L4A L4B L4A L4G L4A L4E L4F# L2G"
740 LOCATE 5, 1
750 PRINT "Away in the manger, no crib for His bed,"
760 PRINT "The little Lord Jesus laid down his sweat head;"
770 PRINT "The stars in the sky looked down where He lay,"
780 PRINT "The little Lord Jesus asleep on the hay."
790 PLAY M1$
800 RETURN
810 '
820 '   THE FIRST NOEL
830 '
840 M1$ = "T120 O3 L8E L8D L3C L8D L8E L8F L2G L8A L8B O4 L4C O3 L4B L4A L2G L8A L8B O4 L4C O3 L4B L4A L4G L4A L4B O4 L4C O3 L4G L4F L2E"
850 M2$ = "L8E L8D L3C L8D L8E L8F L2G O4 L8C O3 L8B L2A L4A L3G O4 L4C O3 L4B L4A L4G L4A L4B O4 L4C O3 L4G L4F L4E"
860 LOCATE 5, 1
870 PRINT "The first Nowell, the angels did say,"
880 PRINT "Was to certain poor shepards in field as they lay."
890 PRINT "In fields where they lay keeping their sheep"
900 PRINT "On a cold winter's night that was so deep"
910 PRINT "Nowell, Nowell, Nowell, Nowell,"
920 PRINT "Born is the King of Israel."
930 PLAY M1$: PLAY M1$: PLAY M2$
940 RETURN
950 '
960 '   IT CAME UPON THE MIDNIGHT CLEAR
970 '
980 M1$ = "T80 O3 L8F O4 L4D O3 L8A O4 L8C O3 L8B- L8G L4F L8G L4F L8F L8G L8A L8B- L8B- O4 L8C L8D L2C O3 L8F O4 L4D O3 L8A O4 L8C O3 L8B- L8G L4F L8G L4F L8F L4G L8G L8A L8G L8F L2B- O4 L8D L8D O3 L8D L8D L8E L8F# L5G L8A L4B- O4 L8D L8C"
990 M2$ = "O3 L8B- L8A L8G L8A L8G L2F L8F O4 L4D O3 L8A O4 L8C O3 L8B- L8G L4F L8G L4F L8F L4G L8G L8A L8G L8F L2B-"
1000 LOCATE 5, 1
1010 PRINT "It came upon the midnight clear, That glorious song of old;"
1020 PRINT "From angels bending near the earth To touch their harps of gold."
1030 PRINT "Peace on the earth, good will to men From Heav'n's all gracious King."
1040 PRINT "The world in solemn stillness lay To hear the angels sing."
1050 PLAY M1$: PLAY M2$
1060 RETURN
1070 '
1080 '   JOY TO THE WORLD
1090 '
1100 M1$ = "T120 O4 L4C O3 L6B L16A L3G L8F L4E L4D L3C L8G L3A L8A L3B L8B O4 L2C L8C L8C O3 L8B L8A L8G L6G L16F L8E O4 L8C L8C O3 L8B L8A L8G L6G L16F L8E L8E L8E L8E L16E L16F L3G L16F L16E L8D L8D L8D L16D L16E L3F L16E L16D L8C O4 L4C"
1110 M2$ = "O3 L8A L6G L16F L8E L8F L4E L4D L2C"
1120 LOCATE 5, 1
1130 PRINT "Joy to the world! The Lord is come; Let earth receive her King,"
1140 PRINT "Let every heart prepare Him Room,"
1150 PRINT "And Heav'n and nature sing, And Heav'n and nature sing,"
1160 PRINT "And Heav'n, and Heav'n and nature sing."
1170 PLAY M1$: PLAY M2$
1180 RETURN
1190 '
1200 '   WE THREE KINGS OF ORIENT ARE
1210 '
1220 M1$ = "T80 O3 L4B L8A L4G L8E L8F# L8G L8F# L4E P8 L4B L8A L4G L8E L8F# L8G L8F# L4E P8 L4G L8G L4A L8A L4B L8B O4 L8D L8C O3 L8B L8A L8B L8A L4G L8F# L3E L4F# L8A L4G L8G L4G L8D L4G L8E L3G L4G L8G L4G L8D L4G L8E L3G L4G L8G  L4A L8B O4 L4C"
1230 M2$ = "O3 L8B L4A L8B L4G L8G L4G L8D L4G L8E L3G"
1240 LOCATE 5, 1
1250 PRINT "We three kings of Orient are; Bearing gifts we traverse afar,"
1260 PRINT "Field and fountain, moor and mountain, Following yonder star."
1270 PRINT "O star of wonder, star of night, Star with royal beauty bright,"
1280 PRINT "Westward leading, still proceeding, Guide us to thy perfect Light."
1290 PLAY M1$: PLAY M2$
1300 RETURN
1310 '
1320 '   OH SANCTISSIMA
1330 '
1340 M1$ = "T135 O4 L2C L2D L3C O3 L8B- L4A L4B- O4 L2C L2D L3C O3 L8B- L4A L4B- O4 L2C L2C L2D L4E L4F L2E L2D L1C O3 L3G L8A L4G L4A L3B- O4 L8C O3 L2B- L3A L8B- L4A L4B- O4 L3C L8D L2C L4F L4E L4D L4C L4F L4D L4C O3 L4B- L2A L2G L2F P2"
1350 M2$ = "O3 L3G L8A L4G L4A L3B- O4 L8C O3 L2B- L3A L8B- L4A L4B- O4 L3C L8D L2C L4F L4E L4D L4C L4F L4D L4C O3 L4B- L2A L2G L1F"
1360 LOCATE 5, 1
1370 PRINT "O beneficent, O thou heavenly, Hallowed, grace bringing Christmas tide!"
1380 PRINT "Lost was each nation, Christ brings salvation, Hail it,"
1390 PRINT "Christendom, Far and wide. Lost was each nation,"
1400 PRINT "Christ brings salvation; Hail it, Christendom, Far and wide."
1410 PLAY M1$: PLAY M2$
1420 RETURN
1430 '
1440 '   O FAITHFUL PINE
1450 '
1460 M1$ = "T110 O3 L8D L6G L16G L3G L8A L6B L16B L3B L8B L8A L8B O4 L4C O3 L4F# L4A L4G P8 L8D L6G L16G L3G L8A L6B L16B L3B L8B L8A L8B O4 L4C O3 L4F# L4A L4G P8 O4 L8D L8D O3 L8B O4 L4E L8D L8D L8C L3C L8C L8C O3 L8A O4 L3D L8C L8C O3 L8B L4B"
1470 M2$ = "O3 L4D L6G L16G L3G L8A L6B L16B L3B L8B L8A L8B O4 L4C O3 L4F# L4A L4G"
1480 LOCATE 5, 1
1490 PRINT "O faithful pine, O faithful pine, You stand in verdant beauty!"
1500 PRINT "O faithful pine, O faithful pine, You stand in verdant beauty!"
1510 PRINT "Your bough's are green in summer's glow, And do not fade in winter's snow."
1520 PRINT "O faithful pine, O faithful pine, You stand in verdant beauty!"
1530 PLAY M1$: PLAY M2$
1540 RETURN
1550 '
1560 '   ANGELS FROM THE REALMS OF GLORY
1570 '
1580 M1$ = "T120 O3 L4F L4D L4B- L4F O4 L4D L8C O3 L4B- L4F L4G L4G L4F L4B- L4F L4E- L2D L4F L4D L4B- L4F O4 L3D L8C O3 L4B- L4A L4B- L4A L4G L8A L8B- L4A L4G L2F O4 L3C L8C O3 L4A L4F O4 L3D L8C O3 L4B- L4G O4 L4E- L4D L4C O3 L4B- L4B- L4A L2B-"
1590 LOCATE 5, 1
1600 PRINT "Angels from the realms of glory, Wing your flight o'er all the earth;"
1610 PRINT "Ye who sang creation's story, Now proclaim Messiah's birth."
1620 PRINT "Come and worship , come and worship, Worship Christ the new-born King."
1630 PLAY M1$
1640 RETURN
1650 '
1660 '   ANGELS WE HAVE HEARD ON HIGH
1670 '
1680 M1$ = "T120 O3 L4A L4A L4A O4 L4C L3C O3 L8B- L2A L4A L4G L4A O4 L4C O3 L3A L8G L2F"
1690 M2$ = "O4 L2C L8D L8C O3 L8B- L8A L2B- O4 L8C O3 L8B- L8A L8G L2A L8B- L8A L8G L8F L3G L8C L2C L4F L4G L4A L4B- L2A"
1700 M3$ = "O3 L4G P4": M4$ = "O3 L2G L1F"
1710 LOCATE 5, 1
1720 PRINT "Angels we have heard on high, Sweetly singing o'er the plains;"
1730 PRINT "And the mountains in reply Echoing their joyous strains."
1740 PRINT "Gloria in excelsis Deo,"
1750 PRINT "Gloria in excelsis Deo."
1760 PLAY M1$ + M1$: PLAY M2$ + M3$: PLAY M2$ + M4$
1770 RETURN
1780 '
1790 '   God Rest You Merry Gentlemen
1800 '
1810 M1$ = "t120 o3 l4e l4e l4b l4b l4a l4g l4f# l4e l4d l4e l4f# l4g l4a t60 l3b"
1820 M2$ = "t120 o3 l4b o4 l4c o3 l4a l4b o4 l4c l4d l4e o3 l4b l4a l4g l4e l4f# l4g l2a l4g l4a l2b o4 l4c o3 l4b l4b l4a l4g l4f# l2e l8g l8f# l4e l2a l4g l4a l4b o4 l4c l4d l4e o3 l4b l4a l4g l4f# t60 l3e"
1830 LOCATE 5, 1
1840 PRINT "God rest you merry, gentlemen, Let nothing you dismay,"
1850 PRINT "Remember Christ out Savior Was born on Christmas Day,"
1860 PRINT "To save us all from Satan's pow'r When we were gone astray."
1870 PRINT "O tiding of comfort and joy, comfort and joy,"
1880 PRINT "O tiding of comfort and joy."
1890 PLAY M1$ + M1$: PLAY M2$
1900 RETURN
1910 '
1920 '   Good King Wenceslas"
1930 '
1940 M1$ = "T140 O3 L4G L4G L4G L4A L4G L4G L2D L4E L4D L4E L4F# L2G L2G"
1950 M2$ = "O4 L4d l4c o3 L4b L4A L4b L4a L2g L4E L4D L4E L4F# L2G L2G"
1960 M3$ = "l4d l4d l4e l4f# l4g l4g l2a o4 l4d l4c o3 l4b l4a l2g o4 l2c o3 l4g"
1970 LOCATE 5, 1
1980 PRINT "Good King Wenceslas looked out On the feast of Stephen,"
1990 PRINT "When the snow lay round about, Deep and crisp and even."
2000 PRINT "Brightly shone the moon that night, Though the frost was cruel,"
2010 PRINT "When a poor man came in sight, Gath'ring winter fuel."
2020 PLAY M1$ + M1$ + M2$: PLAY M3$
2030 RETURN
2040 '
2050 '   Jingle Bells
2060 '
2070 M1$ = "t200 o3 d4 d4 b4 a4 g4 t100 d3 t200 d8 d8 d4 b4 a4 g4 t100 e3 t200 e4 e4 o4 c4 o3 b4 a4"
2080 M2$ = "t100 f#3 t200 o4 d4 e4 d4 c4 o3 a4 t100 b3"
2090 M3$ = "t200 o3 d4 d4 b4 a4 g4 t100 d3 t200 p4 d4 b4 a4 g4 t100 e3 t200 e4 e4 o4 c4 o3 b4 a4 o4 d4 d4 d4 d4 e4 d4 c4 o3 a4 g1"
2100 M4$ = "T200 O3 B4 B4 B2 B4 B4 B2 B4 O4 D4 O3 G4 A4 T100 B3 T200 O4 C4 C4 C4 C4 C4 O3 B4 B4 B8 B8"
2110 M5$ = "b4 a4 a4 b4 a2 o4 d2"
2120 M6$ = "o4 d4 d4 c4 o3 a4 g1"
2130 LOCATE 5, 1
2140 PRINT "We're dashing through the snow, In a one horse open sleigh,"
2150 PRINT "Across the field we go, We're laughing all the way."
2160 PRINT "The bells on bob tails ring, making spirits bright,"
2170 PRINT "What fun it is to ride and sing a sleighing song tonight."
2180 PRINT "Jingle Bells, Jingle bells, Jingle all the way,"
2190 PRINT "Oh what fun it is to ride in a one horse open sleigh."
2200 PRINT "Jingle Bells, Jingle bells, Jingle all the way,"
2210 PRINT "Oh what fun it is to ride in a one horse open sleigh."
2220 PLAY M1$ + M2$ + M3$: PLAY M4$ + M5$ + M4$ + M6$
2230 RETURN
2240 '
2250 '   We Wish you a Merry Christmas
2260 '
2270 M1$ = "t180 o3 d4 g4 g8 a8 g8 f#8 e4 e4 e4 a4 a8 b8 a8 g8 f#4 d4 d4 b4 b8 o4 c8 o3 b8 a8 g4 e4 d8 d8 e4 a4 f#4 g2"
2280 M2$ = "d4 g4 g4 g4 f#2 f#4 g4 f#4 e4 d2 g4 b4 a4 g4 o4 d4 o3 d4 d8 d8 e4 a4 f#4 g2"
2290 LOCATE 5, 1
2300 PRINT "We wish you a merry Christmas, We wish you a merry Christmas,"
2310 PRINT "We wish you a merry Christmas, and a Happy New Year."
2320 PRINT "Good tidings to you where ever you are;"
2330 PRINT "Good tidings for Christmas and a Happy New Year!"
2340 PRINT "We wish you a merry Christmas, We wish you a merry Christmas,"
2350 PRINT "We wish you a merry Christmas, and a Happy New Year."
2360 PLAY M1$ + M2$: PLAY M1$
2370 RETURN
2380 '
2390 '   O Come, O Come, Immanuel
2400 '
2410 M1$ = "t150 o3 e4 e4 b4 b4 b4 a4 o4 c4 o3 b4 a4 t75 g3 t150 a4 b4 g4 e4 g4 a4 f#4 e4 d4 t75 e3 t150 a4 a4 e4 e4 f#4 g2 f#4 e4 t75 d3 t150 g4 a4 b4 b4 b4 a4 o4 c4 o3 b4 a4 t75 g3 t150 o4 d4 t75 d3 t150 o3 b4 t75 b3 t150 b4 a4 o4 c4 o3 b4 a4"
2420 M2$ = "t75 g3 t150 a4 b4 g4 e4 g4 a4 f#4 e4 d4 e1"
2430 LOCATE 5, 1
2440 PRINT "Oh come, Oh come, Immanuel, And ransom captive Israel."
2450 PRINT "That mourns in lonely exile here. Until the Son of God appear."
2460 PRINT "Rejoice! Rejoice! Immanuel shall come to the, Oh Israel."
2470 PLAY M1$: PLAY M2$
2480 RETURN
2490 '
2500 '   Deck The Halls
2510 '
2520 M1$ = "t140 o4 c3 o3 b-8 a4 g4 f4 g4 a4 f4 g8 a8 b-8 g8 a3 g8 f4 e4 f2"
2530 M2$ = "g3 a8 b-4 g4 a3 b-8 o4 c4 o3 g4 a8 b8 o4 c4 d8 e8 f4 e4 d4 c2"
2540 M3$ = "c3 o3 b-8 a4 g4 f4 g4 a4 f4 o4 d8 d8 d8 d8 c3 o3 b-8 a4 g4 f2"
2550 LOCATE 5, 1
2560 PRINT "Deck the hall with boughs of holly fa,la,la,la,la,la,la,la,la."
2570 PRINT "'Tis the season to be jolly fa,la,la,la,la,la,la,la,la."
2580 PRINT "Don we now our gay apparel fa,la,la,la,la,la,la,la,la."
2590 PRINT "Troll the ancient Yule-tide carol, fa,la,la,la,la,la,la,la,la."
2600 PLAY M1$ + M1$ + M2$ + M3$
2610 RETURN
2620 '
2630 '   Jolly Old Saint Nicholas
2640 '
2650 M1$ = "t140 o3 b4 b4 b4 b4 a4 a4 a2 g4 g4 g4 g4 t70 b3 t140 e4 e4 e4 e4 d4 d4 g2 f#4 g4 a4 b4 t70 a3 t140 b4 b4 b4 b4 a4 a4 a2 g4 g4 g4 g4 t70 b3 t140 e4 e4 e4 e4 d4 d4 g2 a4 g4 b4 a4 g1"
2660 LOCATE 5, 1
2670 PRINT "Jolly Old Saint Nicholas, Lean your ear this way!"
2680 PRINT "Don't you tell a single soul what I'm going to say;"
2690 PRINT "Christmas Eve is coming soon, Now, you dear old man,"
2700 PRINT "Whisper what you'll bring to me; Tell me if you can."
2710 PLAY M1$
2720 RETURN
2730 NOOPT% = 1: RETURN
2740 NOOPT% = 1: RETURN
2750 NOOPT% = 1: RETURN
2760 FOR II% = 1 TO MAXOPT% - 3
2770   CLS : LOCATE 2, 20: PRINT "Now playing ... ";
2780   PRINT MID$(OPT$(II%), 5);
2790   ON II% GOSUB 250, 350, 480, 610, 730, 840, 980, 1100, 1220, 1340, 1460, 1580, 1680, 1810, 1940, 2070, 2270, 2410, 2520, 2650, 2730, 2740, 2750
2800   PLAY PAUSE$
2810   IF PLAY(0) > 0 THEN GOTO 2810
2820   K$ = INKEY$: IF LEN(K$) > 0 THEN RETURN
2830 NEXT
2840 RANDOMIZE TIMER
2850 II% = (RND * (MAXOPT% - 4)) + 1
2860   CLS : LOCATE 2, 20: PRINT "Now playing ... ";
2870   PRINT MID$(OPT$(II%), 5);
2880   ON II% GOSUB 250, 350, 480, 610, 730, 840, 980, 1100, 1220, 1340, 1460, 1580, 1680, 1810, 1940, 2070, 2270, 2410, 2520, 2650, 2730, 2740, 2750
2890   PLAY PAUSE$
2900   IF PLAY(0) > 0 THEN GOTO 2900
2910 K$ = INKEY$: IF LEN(K$) = 0 THEN GOTO 2850 ELSE RETURN
2920 END
2930 DATA "A - Silent Night"
2940 DATA "B - O Come All Ye Faithful"
2950 DATA "C - Hark! The Herald Angels Sing"
2960 DATA "D - O Little Town Of Bethlehem"
2970 DATA "E - Away In The Manger"
2980 DATA "F - The First Noel"
2990 DATA "G - It Came Upon The Midnight Clear"
3000 DATA "H - Joy To The World"
3010 DATA "I - We Three Kings Of Orient Are"
3020 DATA "J - Oh Sanctissima"
3030 DATA "K - O Faithful Pine"
3040 DATA "L - Angels From The Realms Of Glory"
3050 DATA "M - Angels We Have Heard On High"
3060 DATA "N - God Rest You Merry Gentlemen"
3070 DATA "O - Good King Wenceslas"
3080 DATA "P - Jingle Bells"
3090 DATA "Q - We Wish You a Merry Christmas"
3100 DATA "R - O Come, O Come, Immanuel"
3110 DATA "S - Deck The Halls"
3120 DATA "T - Jolly Old Saint Nicholas"
3130 DATA "X - For Continuous play"
3140 DATA "Y - For Random play"
3150 DATA "Z - Exit to DOS"