💾 Archived View for kg4vma.duckdns.org › gemfeed › 2021 › 2021-12-14-carols-bas.gmi captured on 2023-06-14 at 14:22:49. Gemini links have been rewritten to link to archived content
-=-=-=-=-=-=-
Found this cute little program on the web, this morning… Just give it a copy and paste into your favorite text editor, save it, and run in BASIC. I played around with it in GW-BASIC, BASICA & QB64…
1 REM *** CAROLS.BAS A selection of Christmas Carols by Greg Rismoen 12/09/84
2 REM
3 REM Merry Christmas! This was programmed on my own time at home on an IBM-XT.
4 REM Donated to the public domain. All rights reserved. Not for commercial use.
5 KEY OFF
6 KEY(1) ON
7 ON KEY(1) GOSUB 290
10 CLS : INPUT "Are you using a Color Monitor (enter Y or N) ? ", C$
20 IF C$ = "Y" OR C$ = "y" OR C$ = "N" OR C$ = "n" THEN 30 ELSE 10
30 IF C$ = "N" OR C$ = "n" THEN CC = 0 ELSE CC = 1
40 SCREEN 0: COLOR 7, CC: CLS
50 LOCATE 5, 20
60 PRINT CHR$(201); STRING$(40, 205); CHR$(187)
70 FOR X = 6 TO 17
80 LOCATE X, 20
90 PRINT CHR$(186);
100 LOCATE X, 61
110 PRINT CHR$(186)
120 NEXT X
130 LOCATE X, 20: PRINT CHR$(200); STRING$(40, 205); CHR$(188)
140 LOCATE 10, 33: PRINT "CHRISTMAS CAROLS"
150 LOCATE 13, 33: PRINT " presented by"
160 LOCATE 15, 33: PRINT " Greg Rismoen"
170 GOTO 37000
290 RETURN 295
295 RESTORE
300 CLS
302 PLAY "MN"
305 LOCATE 1, 2
310 PRINT CHR$(201); STRING$(76, 205); CHR$(187)
320 FOR X = 2 TO 22
330 LOCATE X, 2
340 PRINT CHR$(186);
350 LOCATE X, 79
360 PRINT CHR$(186)
370 NEXT X
380 LOCATE X, 2: PRINT CHR$(200); STRING$(76, 205); CHR$(188)
385 LOCATE 3, 2: PRINT CHR$(204); STRING$(76, 205); CHR$(185)
386 LOCATE 3, 41: PRINT CHR$(203)
387 LOCATE 23, 41: PRINT CHR$(202)
388 FOR X = 4 TO 22: LOCATE X, 41: PRINT CHR$(186): NEXT X
390 LOCATE 2, 20: PRINT "CHRISTMAS CAROLS presented by: Greg Rismoen"
400 LOCATE 4, 5: PRINT "1) THE TWELVE DAYS OF CHRISTMAS"
405 LOCATE 5, 5: PRINT "2) JOY TO THE WORLD"
410 LOCATE 6, 5: PRINT "3) O LITTLE TOWN OF BETHLEHEM"
415 LOCATE 7, 5: PRINT "4) SILENT NIGHT"
420 LOCATE 8, 5: PRINT "5) I HEARD THE BELLS ON XMAS DAY"
425 LOCATE 9, 5: PRINT "6) O COME ALL YE FAITHFUL"
430 LOCATE 10, 5: PRINT "7) GOOD KING WENCESLAS"
435 LOCATE 11, 5: PRINT "8) WE THREE KINGS"
440 LOCATE 12, 5: PRINT "9) GO TELL IT ON THE MOUNTAIN"
445 LOCATE 13, 4: PRINT "10) AWAY IN A MANGER"
450 LOCATE 14, 4: PRINT "11) WHAT CHILD IS THIS?"
455 LOCATE 15, 4: PRINT "12) O COME, LITTLE CHILDREN"
460 LOCATE 16, 4: PRINT "13) O HOLY NIGHT"
465 LOCATE 17, 4: PRINT "14) IT CAME UPON THE MIDNIGHT CLEAR"
470 LOCATE 18, 4: PRINT "15) THE FIRST NOEL"
475 LOCATE 19, 4: PRINT "16) GOD REST YOU MERRY GENTLEMEN"
480 LOCATE 20, 4: PRINT "17) DECK THE HALLS W/BOUGHS OF HOLLY"
482 LOCATE 21, 4: PRINT "18) HARK THE HERALD ANGELS SING"
484 LOCATE 4, 43: PRINT "19) ANGELS WE HAVE HEARD ON HIGH"
485 LOCATE 5, 43: PRINT "20) SHEPHERDS WATCHED THEIR FLOCKS"
486 LOCATE 6, 43: PRINT "21) IT'S BEGINNING TO LOOK LIKE XMAS"
487 LOCATE 7, 43: PRINT "22) WE WISH YOU A MERRY CHRISTMAS"
488 LOCATE 8, 43: PRINT "23) LET IT SNOW! LET IT SNOW!"
489 LOCATE 9, 43: PRINT "24) I'LL BE HOME FOR CHRISTMAS"
490 LOCATE 10, 43: PRINT "25) HOME FOR THE HOLIDAYS"
491 LOCATE 11, 43: PRINT "26) SILVER BELLS"
492 LOCATE 12, 43: PRINT "27) JOLLY OLD SAINT NICHOLAS"
493 LOCATE 13, 43: PRINT "28) JINGLE BELLS"
494 LOCATE 14, 43: PRINT "29) FROSTY THE SNOWMAN"
495 LOCATE 15, 43: PRINT "30) RUDOLPH THE RED-NOSED REINDEER"
497 LOCATE 16, 43: PRINT "31) SLEIGH RIDE"
498 LOCATE 17, 43: PRINT "32) O CHRISTMAS TREE"
499 LOCATE 18, 43: PRINT "33) SANTA CLAUS IS COMING TO TOWN"
500 LOCATE 19, 43: PRINT "34) HERE COMES SANTA CLAUS"
501 LOCATE 20, 43: PRINT "35) HAVE YOURSELF A MERRY CHRISTMAS"
502 LOCATE 21, 43: PRINT "36) TWAS THE NIGHT BEFORE CHRISTMAS"
503 LOCATE 22, 43: PRINT "99) EXIT TO DOS"
515 LOCATE 22, 13: INPUT "SELECT BY NUMBER: ", A$
520 IF A$ = "1" THEN GOTO 1000
525 IF A$ = "2" THEN GOTO 2000
530 IF A$ = "3" THEN GOTO 3000
535 IF A$ = "4" THEN GOTO 4000
540 IF A$ = "5" THEN GOTO 5000
545 IF A$ = "6" THEN GOTO 6000
550 IF A$ = "7" THEN GOTO 7000
560 IF A$ = "8" THEN GOTO 8000
565 IF A$ = "9" THEN GOTO 9000
570 IF A$ = "10" THEN GOTO 10000
575 IF A$ = "11" THEN GOTO 11000
580 IF A$ = "12" THEN GOTO 12000
585 IF A$ = "13" THEN GOTO 13000
590 IF A$ = "14" THEN GOTO 14000
595 IF A$ = "15" THEN GOTO 15000
600 IF A$ = "16" THEN GOTO 16000
601 IF A$ = "17" THEN GOTO 17000
602 IF A$ = "18" THEN GOTO 18000
603 IF A$ = "19" THEN GOTO 19000
604 IF A$ = "20" THEN GOTO 20000
605 IF A$ = "21" THEN GOTO 21000
606 IF A$ = "22" THEN GOTO 22000
607 IF A$ = "23" THEN GOTO 23000
608 IF A$ = "24" THEN GOTO 24000
609 IF A$ = "25" THEN GOTO 25000
610 IF A$ = "26" THEN GOTO 26000
611 IF A$ = "27" THEN GOTO 27000
612 IF A$ = "28" THEN GOTO 28000
613 IF A$ = "29" THEN GOTO 29000
614 IF A$ = "30" THEN GOTO 30000
615 IF A$ = "31" THEN GOTO 31000
616 IF A$ = "32" THEN GOTO 32000
617 IF A$ = "33" THEN GOTO 33000
618 IF A$ = "34" THEN GOTO 34000
619 IF A$ = "35" THEN GOTO 35000
620 IF A$ = "36" THEN GOTO 36000
624 IF A$ = "99" THEN GOTO 38000
625 CLS
630 LOCATE 10, 20
635 COLOR CC, 7
640 PRINT "YOU HAVE SELECTED AN OPTION THAT DOES NOT APPEAR ON THE MENU"
650 FOR X = 1 TO 3000: NEXT
660 COLOR 7, CC
670 GOTO 295
998 REM **********************************************************************
999 REM
1000 CLS : PRINT "THE TWELVE DAYS OF CHRISTMAS": PRINT : PRINT
1001 'music programmed by Lynn Long, lyrics programmed by Greg Rismoen
1007 PRINT "On the first day of Christmas my true love sent to me"
1008 PLAY "MF T125 O2p4C8C8C4F8F8F4E8F8G8A8B-8G8A4."
1009 PRINT "A partridge in a pear tree."
1010 PLAY "B-8O3C4D8O2B-8A8F8G4F2."
1020 FOR X = 1 TO 4
1022 IF X = 1 THEN PRINT "On the second day of Christmas my true love sent to me"
1024 IF X = 2 THEN PRINT "On the third day of Christmas my true love sent to me"
1026 IF X = 3 THEN PRINT "On the fourth day of Christmas my true love sent to me"
1028 IF X = 4 THEN PRINT "On the fifth day of Christmas my true love sent to me"
1030 PLAY "O2C8C8C4F8F8F4E8F8G8A8B-8G8A4."
1040 GOSUB 1060
1050 NEXT
1060 FOR A = 1 TO X
1070 IF X = 4 THEN 1115
1071 IF X = 3 AND A = 1 THEN 1260
1072 IF X = 3 AND A = 2 THEN 1250
1073 IF X = 3 AND A = 3 THEN 1240
1074 IF X = 2 AND A = 1 THEN 1250
1076 IF X = 2 AND A = 2 THEN 1240
1078 IF X = 1 THEN GOTO 1240
1080 PLAY "O3C4O2G8A8B-4"
1090 NEXT
1095 PRINT "And a partridge in a pear tree."
1100 PLAY "A8B-8O3C4D8O2B-8A8F8G4F2."
1110 RETURN
1115 PRINT "Five go-ld rings!"
1120 PLAY "O3C2D2O2B2.O3C1"
1125 PRINT "Four calling birds, three French hens, two turtle doves, "
1126 PRINT "And a partridge in a pear tree."
1130 PLAY "C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
1140 FOR X = 1 TO 7
1142 IF X = 1 THEN PRINT "On the sixth day of Christmas my true love sent to me"
1143 IF X = 2 THEN PRINT "On the seventh day of Christmas my true love sent to me"
1144 IF X = 3 THEN PRINT "On the eighth day of Christmas my true love sent to me"
1145 IF X = 4 THEN PRINT "On the ninth day of Christmas my true love sent to me"
1146 IF X = 5 THEN PRINT "On the tenth day of Christmas my true love sent to me"
1147 IF X = 6 THEN PRINT "On the eleventh day of Christmas my true love sent to me"
1148 IF X = 7 THEN PRINT "On the twelfth day of Christmas my true love sent to me"
1150 PLAY "O2C8C8C8C8F8F8F4E8F8G8A8B-8G8A2"
1160 FOR A = 1 TO X
1162 IF X = 1 THEN GOTO 1270
1163 IF X = 2 AND A = 1 THEN GOTO 1280
1164 IF X = 2 AND A = 2 THEN GOTO 1270
1165 IF X = 3 AND A = 1 THEN GOTO 1290
1166 IF X = 3 AND A = 2 THEN GOTO 1280
1167 IF X = 3 AND A = 3 THEN GOTO 1270
1168 IF X = 4 AND A = 1 THEN GOTO 1300
1169 IF X = 4 AND A = 2 THEN GOTO 1290
1170 IF X = 4 AND A = 3 THEN GOTO 1280
1171 IF X = 4 AND A = 4 THEN GOTO 1270
1172 IF X = 5 AND A = 1 THEN GOTO 1310
1173 IF X = 5 AND A = 2 THEN GOTO 1300
1174 IF X = 5 AND A = 3 THEN GOTO 1290
1175 IF X = 5 AND A = 4 THEN GOTO 1280
1176 IF X = 5 AND A = 5 THEN GOTO 1270
1177 IF X = 6 AND A = 1 THEN GOTO 1320
1178 IF X = 6 AND A = 2 THEN GOTO 1310
1179 IF X = 6 AND A = 3 THEN GOTO 1300
1180 IF X = 6 AND A = 4 THEN GOTO 1290
1181 IF X = 6 AND A = 5 THEN GOTO 1280
1182 IF X = 6 AND A = 6 THEN GOTO 1270
1183 IF X = 7 AND A = 1 THEN GOTO 1330
1184 IF X = 7 AND A = 2 THEN GOTO 1320
1185 IF X = 7 AND A = 3 THEN GOTO 1310
1186 IF X = 7 AND A = 4 THEN GOTO 1300
1187 IF X = 7 AND A = 5 THEN GOTO 1290
1188 IF X = 7 AND A = 6 THEN GOTO 1280
1189 IF X = 7 AND A = 7 THEN GOTO 1270
1194 PLAY "O3C8C8O2G8A8B-8G8"
1195 NEXT A
1196 PRINT "Five go-ld rings!"
1197 PLAY "O3C2D2O2B..O3C1"
1198 PRINT "Four calling birds, three French hens, two turtle doves, "
1199 PRINT "And a Partridge in a pear tree."
1200 PLAY "C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
1210 NEXT X
1215 PRINT "And a Partridge in a pear tree!"
1220 PLAY "T75P4O2A8B-8O3C4D8O2B-8A8F8G4F2."
1230 GOTO 295
1240 PRINT "Two turtle doves,": GOTO 1080
1250 PRINT "Three French hens,": GOTO 1080
1260 PRINT "Four calling birds,": GOTO 1080
1270 PRINT "Six geese a-laying,": GOTO 1194
1280 PRINT "Seven swans a-swimming,": GOTO 1194
1290 PRINT "Eight maids a-milking,": GOTO 1194
1300 PRINT "Nine Ladies dancing,": GOTO 1194
1310 PRINT "Ten Lords a-leaping,": GOTO 1194
1320 PRINT "Eleven pipers piping,": GOTO 1194
1330 PRINT "Twelve drummers drumming,": GOTO 1194
1998 REM **********************************************************************
1999 REM
2000 CLS : PRINT "JOY TO THE WORLD": PRINT
2001 FOR X = 1 TO 3
2002 IF X = 1 THEN LOCATE 3, 1: PRINT "Joy to the World!"
2003 IF X = 2 THEN LOCATE 11, 1: PRINT "Joy to the World!"
2004 IF X = 3 THEN LOCATE 19, 1: PRINT "He rules the World"
2005 PLAY "MF O3p4D4C#8.O2B16A4."
2006 IF X = 1 THEN PRINT "the Lord is come;"
2007 IF X = 2 THEN PRINT "the Saviour reigns;"
2008 IF X = 3 THEN PRINT "with truth and grace,"
2010 PLAY "mf G8F#4E4D4."
2015 IF X = 1 THEN PRINT "Let earth re-ceive her King;"
2017 IF X = 2 THEN PRINT "Let men their songs em-ploy;"
2019 IF X = 3 THEN PRINT "And makes the na-tions prove"
2020 PLAY "mf A8B4.B8O3C#4.C#8D2P16"
2025 IF X = 1 THEN PRINT "Let ev-'ry heart pre-pare Him room,"
2027 IF X = 2 THEN PRINT "While fields and floods, rocks, hills and plains"
2029 IF X = 3 THEN PRINT "The glo-ries of His right-eous-ness,"
2030 PLAY "mf D8D8C#8O2B8A8A8.G16F#8O3D8D8C#8O2B8A8A8.G16F#8"
2035 IF X = 1 THEN PRINT "And heav'n and na-ture sing,"
2037 IF X = 2 THEN PRINT "Re-peat the sound-ing joy,"
2039 IF X = 3 THEN PRINT "And won-ders of His love,"
2040 PLAY "mf F#8F#8F#8F#8F#16G16A4."
2045 IF X = 1 THEN PRINT "And heav'n and na-ture sing,"
2047 IF X = 2 THEN PRINT "Re-peat the sound-ing joy,"
2049 IF X = 3 THEN PRINT "And won-ders of His love,"
2050 PLAY "mf G16F#16E8E8E8E16F#16G4."
2055 IF X = 1 THEN PRINT "And heav'n and heav-'n and na-ture sing."
2057 IF X = 2 THEN PRINT "Re-peat, re-peat the sound-ing joy."
2059 IF X = 3 THEN PRINT "And won-ders, and won-ders of His love."
2060 PLAY "mf F#16E16D8O3D4O2B8A8.G16F#8G8F#4E4D2"
2065 NEXT X
2990 GOTO 295
2998 REM **********************************************************************
2999 REM
3000 CLS : PRINT "O LITTLE TOWN OF BETHLEHEM": PRINT
3001 FOR X = 1 TO 4
3002 IF X = 1 THEN PRINT "O lit-tle town of Beth-le-hem, How still we see thee lie!"
3003 IF X = 2 THEN LOCATE 8, 1: PRINT "For Christ is born of Ma-ry, and gath-ered all a-bove,"
3004 IF X = 3 THEN LOCATE 13, 1: PRINT "How silently, how silently, The wondrous gift is giv'n!"
3005 IF X = 4 THEN LOCATE 18, 1: PRINT "O holy Child of Bethlehem, Descend to us, we pray;"
3010 PLAY "mf t120o2p4b4P64B4P64B4A#4B4O3D4C4O2E4A4G4F#8G8A4D4b2."
3015 IF X = 1 THEN PRINT "Above thy deep and dream-less sleep, the si-lent stars go by;"
3016 IF X = 2 THEN PRINT "While mor-tals sleep, the an-gels keep Their watch of won-d'ring love."
3017 IF X = 3 THEN PRINT "So God imparts to human hearts the blessings of His heav'n."
3018 IF X = 4 THEN PRINT "Cast out our sin and enter in; Be born in us today!"
3020 PLAY "mf P64B4P64B4P64B4O3E4D4P64D4C4O2E4A4G4F#8g8b4a4g2."
3025 IF X = 1 THEN PRINT "Yet in the dark streets shin-eth the ev-er-last-ing Light;"
3026 IF X = 2 THEN PRINT "O morn-ing stars, to-geth-er Pro-claim the holy birth,"
3027 IF X = 3 THEN PRINT "No ear may hear His coming, But in this world of sin,"
3028 IF X = 4 THEN PRINT "We hear the Christmas angels The great glad tidings tell;"
3030 PLAY "mf B4P64B4P64B4A4G4F#2P64F#4P64F#4E4f#4g4a4b2."
3035 IF X = 1 THEN PRINT "The hopes and fears of all the years are met in thee to-night."
3036 IF X = 2 THEN PRINT "And prais-es sing to God the King, And peace to men on earth!"
3037 IF X = 3 THEN PRINT "Where meek souls will receive Him still, the dear Christ enters in."
3038 IF X = 4 THEN PRINT "O come to us, abide with us, our Lord Emmanuel!"
3040 PLAY "mf P64B4P64B4P64B4A#4B4O3D4C4O2E4O3e4d4o2g4b4.a8g2."
3045 NEXT X
3990 GOTO 295
3998 REM **********************************************************************
3999 REM
4000 CLS : PRINT "SILENT NIGHT": PRINT
4001 ' Silent Night in harmony - music programmed by Steve Schlich 12/2/84
4002 ' Lyrics and multiple verses programmed by Greg Rismoen 12/09/84
4003 FOR X = 1 TO 5: PRINT
4004 IF X = 1 GOTO 4015
4005 IF X = 2 GOTO 4020
4006 IF X = 3 GOTO 4025
4007 IF X = 4 GOTO 4030
4008 IF X = 5 GOTO 4035
4015 PRINT "Silent Night! Holy Night! All is calm, all is bright;"
4016 PRINT "Round yon Vir-gin Moth-er and Child! Ho-ly In-fant so tender and mild,"
4017 PRINT "Sleep in heav-en-ly peace, Sleep in heav-en-ly peace."
4018 GOTO 4060
4020 PRINT "Silent Night! Holy night! Shepherds quake at the sight!"
4021 PRINT "Glories stream from heaven afar, Heavenly hosts sing Alleluia."
4022 PRINT "Christ, the Saviour is born! Christ, the Saviour is born!"
4023 GOTO 4060
4025 PRINT "Silent Night! Holiest night! Darkness flies and all is light!"
4026 PRINT "Shepherds hear the angels sing: Hallelujah! Hail the King!"
4027 PRINT "Jesus the Saviour is here! Jesus the Saviour is here!"
4028 GOTO 4060
4030 PRINT "Silent Night! Holiest Night! Guiding star, O lend thy light"
4031 PRINT "See the eastern wise men bring Gifts and homage to our King!"
4032 PRINT "Jesus the Saviour is here! Jesus the Saviour is here!"
4033 GOTO 4060
4035 PRINT "Stil-le Nacht, hei-li-ge Nacht! Al-les schlft, ein-sam wacht?"
4036 PRINT "Nur das trau-te hoch-hei-li-ge Paar, Hol-der Kna-be mit lok-ki-gem Haar."
4037 PRINT "Schlaf im himm-li-scher Ruh, Schlaf im himm-li-scher Ruh!"
4038 GOTO 4060
4050 REM PLAY "ML T140 L3 o3; g. a6 g e1"
4051 REM PLAY "g. a6 g e1"
4052 REM PLAY "o4 d. p6 d o3 b1
4053 REM PLAY "o4 c. p6 c o3 g1
4054 REM PLAY "o3 a. p6 a o4 c. o3 b6 a g. a6 g e1
4055 REM PLAY "o3 a. p6 a o4 c. o3 b6 a g. a6 g e1
4056 REM PLAY "o4 d. p6 d f. d6 o3 b o4 c1 e1
4057 REM PLAY "o4 c o3 g e g. f6 d c1 c1
4060 PLAY "ML T250 L24 o3; gegegegegegegegegegegege"
4070 PLAY "o3afafafaf "
4080 PLAY "o3gegegegegegegege"
4090 PLAY "o3ecececececececececececececececececececececececec"
4100 PLAY "o3gegegegegegegegegegegege "
4110 PLAY "o3afafafaf "
4120 PLAY "o3gegegegegegegege"
4130 PLAY "o3ecececececececececececececececececececececececec"
4140 PLAY "o4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3f p12"
4150 PLAY "o4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3f"
4160 PLAY "o3bgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbg"
4170 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e p12"
4180 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e"
4190 PLAY "o3gegegegegegegegegegegegegegegegegegegegegegegege"
4200 PLAY "o3afafafafafafafafafafafafafafaf p12"
4210 PLAY "o3afafafafafafafaf "
4220 PLAY "o4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3a "
4230 PLAY "o3bgbgbgbg"
4240 PLAY "o3afafafafafafafaf"
4250 PLAY "o3gegegegegegegegegegegege"
4260 PLAY "o3afafafaf"
4270 PLAY "o3gegegegegegegege"
4280 PLAY "o3ecececececececececececececececececececececececec"
4290 PLAY "o3afafafafafafafafafafafafafafaf p12"
4300 PLAY "o3afafafafafafafaf "
4310 PLAY "o4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3a "
4320 PLAY "o3bgbgbgbg"
4330 PLAY "o3afafafafafafafaf"
4340 PLAY "o3gegegegegegegegegegegege"
4350 PLAY "o3afafafaf"
4360 PLAY "o3gegegegegegegege"
4370 PLAY "o3ecececececececececececececececececececececececec"
4380 PLAY "o4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3b p12"
4390 PLAY "o4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3b "
4400 PLAY "o4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3b "
4410 PLAY "o4do3bo4do3bo4do3bo4do3b "
4420 PLAY "o3bfbfbfbfbfbfbfbf"
4430 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e"
4440 PLAY "o4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3g"
4450 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e"
4460 PLAY "o3gegegegegegegege"
4470 PLAY "o3ecececececececec"
4480 PLAY "o3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2b"
4490 PLAY "o3fo2bo3fo2bo3fo2bo3fo2b"
4500 PLAY "o3do2bo3do2bo3do2bo3do2bo3do2bo3do2bo3do2bo3do2b"
4510 PLAY "o3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3c"
4512 PLAY "o2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2e"
4514 PLAY "o3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2e"
4520 NEXT X
4600 GOTO 295
4998 REM **********************************************************************
4999 REM
5000 CLS : PRINT "I HEARD THE BELLS ON CHRISTMAS DAY": PRINT : PRINT
5020 N = 34
5030 L = 6
5040 PLAY "mfmll64t150o3"
5050 FOR REPEAT = 1 TO 5
5060 ON REPEAT GOSUB 5480, 5620, 5740, 5860, 5980
5070 FOR X = 1 TO N
5080 READ K: READ K$
5090 FOR M = 1 TO K * L
5100 PLAY K$
5110 NEXT M
5120 NEXT X
5130 RESTORE 160
5140 NEXT REPEAT
5150 GOTO 5995
5160 DATA 1,o3e-o2b-ge-
5170 DATA 1.5,o3ge-o2b-e-
5180 DATA .5,o3f#e-o2b-o1b-
5190 DATA 1,o3ge-o2b-e-
5200 DATA 1,o3gd-o2b-e
5210 DATA 1.5,o3a-do2b-f
5220 DATA .5,o3gdo2b-o1b-
5230 DATA 1,o3a-do2b-f
5240 DATA 1,o3ae-o2b-f#
5250 DATA 1,o3b-e-o2b-g
5260 DATA 1,o4e-o3go2b-o1b-
5270 DATA 1,o4do3go2b-o1b-
5280 DATA 1,o4co3e-e-o2g
5290 DATA 1.5,o4co3fdo2a-
5300 DATA .5,o3b-fdo2a-,.25,p64
5310 DATA 1,o3b-fdo2a-
5320 DATA 1,o3b-e-e-o2g
5330 DATA 1.5,o3b-e-co2a-
5340 DATA .5,o3a-e-co2a-
5350 DATA 1,o3ge-o2b-e-
5360 DATA 1,o3a-o2b-fo1e-
5370 DATA 1.5,o3go2bgd
5380 DATA .5,o3fo2bgd
5390 DATA 1,o3e-co2gc
5400 DATA 1,o3fe-o2a-c
5410 DATA 1,o3ge-o2b-o1b-
5420 DATA 1,o3a-e-co1a-
5430 DATA 1,o3b-e-o2b-o1g,.25,p64
5440 DATA 1,o4co3e-o2fo1a-
5450 DATA 1.5,o3do2b-fo1b-
5460 DATA .5,o3fdo2a-o1b-
5470 DATA 2,o3e-o2ge-o1e-,.5,p64
5480 ' first verse
5490 '
5500 B$ = " "
5510 TITLE1$ = "I HEARD THE BELLS"
5520 TITLE2$ = " ON CHRISTMAS DAY"
5530 CLS
5540 LOCATE 2, (40 - LEN(TITLE1$)) / 2: PRINT TITLE1$
5550 LOCATE 4, (40 - LEN(TITLE2$)) / 2: PRINT TITLE2$
5560 LOCATE 10
5570 PRINT "I heard the bells on Christmas day"
5580 PRINT : PRINT "Their old familiar carols play"
5590 PRINT : PRINT "And wild and sweet the words repeat"
5600 PRINT : PRINT "Of peace on earth, good will to men"
5610 RETURN
5620 ' second verse
5630 '
5640 LOCATE 10
5650 FOR LN = 1 TO 4
5660 PRINT B$: PRINT
5670 NEXT LN
5680 '
5690 LOCATE 10: PRINT "I thought how as the day had come"
5700 PRINT : PRINT "The belfries of all Christendom"
5710 PRINT : PRINT "Had roll'd along th'unbroken song"
5720 PRINT : PRINT "Of peace on earth, good will to men"
5730 RETURN
5740 ' third verse
5750 '
5760 LOCATE 10
5770 FOR LN = 1 TO 4
5780 PRINT B$: PRINT
5790 NEXT LN
5800 '
5810 LOCATE 10: PRINT "And in despair I hung my head"
5820 PRINT : PRINT "`There is no peace on earth,' I said"
5830 PRINT : PRINT "For hate is strong and mocks the song"
5840 PRINT : PRINT "Of peace on earth, good will to men"
5850 RETURN
5860 'fourth verse
5870 '
5880 LOCATE 10
5890 FOR LN = 1 TO 4
5900 PRINT B$: PRINT
5910 NEXT LN
5920 '
5930 LOCATE 10: PRINT "Then pealed the bells more loud and deep"
5940 PRINT : PRINT "God is not dead nor doth he sleep"
5950 PRINT : PRINT "The wrong shall fail the right prevail"
5960 PRINT : PRINT "With peace on earth, good will to men"
5970 RETURN
5980 ' fifth verse
5981 '
5982 LOCATE 10
5983 FOR LN = 1 TO 4
5984 PRINT B$: PRINT
5985 NEXT LN
5986 '
5987 LOCATE 10: PRINT "Till ringing singing on its way"
5988 PRINT : PRINT "The world revolved from night to day"
5989 PRINT : PRINT "A voice a chime a chant sublime"
5990 PRINT : PRINT "Of peace on earth, good will to men"
5991 RETURN
5995 FOR X = 1 TO 2000: NEXT
5997 GOTO 295
5998 REM **********************************************************************
5999 REM
6000 CLS : PRINT "O COME, ALL YE FAITHFUL (Adeste Fideles)": PRINT
6001 FOR X = 1 TO 3: PRINT
6002 IF X = 1 THEN PRINT "O come all ye faith-ful, Joy-ful and tri-um-phant,"
6003 IF X = 1 THEN PRINT "O come ye, O come ye to Beth-le-hem."
6004 IF X = 1 THEN PRINT "Come and be-hold Him, Born the King of an-gels,"
6005 IF X = 1 THEN PRINT "O come, let us a-dore Him, O come, let us a-dore Him,"
6006 IF X = 1 THEN PRINT "O come, let us a-dore Him, Christ the Lord."
6012 IF X = 2 THEN PRINT "Sing choirs of angels, Sing in exultation,"
6013 IF X = 2 THEN PRINT "Sing, all ye citizens of Heav'n above."
6014 IF X = 2 THEN PRINT "Glo-ry to God--, In-- the-- high-est."
6015 IF X = 2 THEN PRINT "O come, let us a-dore Him, O come, let us a-dore Him,"
6016 IF X = 2 THEN PRINT "O come, let us a-dore Him, Christ the Lord."
6017 IF X = 3 THEN PRINT "Adeste Fideles laeti triumphantes"
6018 IF X = 3 THEN PRINT "Venite, venite to Bethlehem."
6019 IF X = 3 THEN PRINT "Natum vedete regem angelorum"
6020 IF X = 3 THEN PRINT "Venite adoremus, Venite adoremus,"
6021 IF X = 3 THEN PRINT "Venite adoremus, Dominum."
6025 PLAY "ML O2p4G8.P8G2D4G4A2D2B4A4B4O3C4O2B2A4G8.P16G2F#4E4F#4"
6030 PLAY "G4A4B4F#2E4.D16.P32D2.P4O3D2C4O2B4O3C2O2B2A4B4G4"
6040 PLAY "A4F#4.E8D4G8.P16G4F#4G4A4G2D4B8.P16B4A4B4O3C4O2B2"
6050 PLAY "A4B4O3C4O2B4A4G4F#2G4O3C4O2B2A4.G16.P32G2."
6800 PLAY "mf p8"
6900 NEXT X
6990 GOTO 295
6998 REM **********************************************************************
6999 REM
7000 CLS : PRINT " GOOD KING WENCESLAS": PRINT
7001 FOR X = 1 TO 5: PRINT
7002 IF X = 2 GOTO 7015
7003 IF X = 3 GOTO 7025
7004 IF X = 4 GOTO 7035
7005 IF X = 5 GOTO 7045
7006 PRINT "Good King Wen-ces-las looked out On the feast of Ste-phen."
7007 PRINT "When the snow lay 'round a-bout, Deep and crisp and e-ven."
7008 PRINT "Bright-ly shone the moon that night, Though the frost was cru-el."
7009 PRINT "When a poor man came in sight, Gath-'ring win-ter fu-el."
7010 GOTO 7050
7015 PRINT "Hither, page, and stand by me, if thou know'st it telling."
7016 PRINT "Yonder peasant, who is he? Where and what his dwelling?"
7017 PRINT "Sire, he lives a good league hence, underneath the mountain."
7018 PRINT "Right against the forest fence, by St. Agnes' fountain."
7019 GOTO 7050
7025 PRINT "Bring me flesh, and bring me wine, bring me pine logs hither;"
7026 PRINT "Thou and I will see him dine, when we bear them hither."
7027 PRINT "Page and monarch, forth they went, forth they went together;"
7028 PRINT "Through the rude wind's wild lament, and the bitter weather."
7029 GOTO 7050
7035 PRINT "Sire, the night is darker now, and the wind blows stronger."
7036 PRINT "Fails my heart, I know not how, I can go no longer."
7037 PRINT "Mark my footsteps my good page, tread thou in them boldly."
7038 PRINT "Thou shalt find the winter's rage freeze thy blood less coldly."
7039 GOTO 7050
7045 PRINT "In his master's steps he trod, where the snow lay dinted;"
7046 PRINT "Heat was in the very sod which the Saint had printed."
7047 PRINT "Therefore, Christian men, be sure, wealth or rank possessing."
7048 PRINT "Ye who now will bless the poor, shall yourselves find blessing."
7050 PLAY "MF T150o2L4gggaggd2edef#g2g2"
7055 PLAY "gggaggd2edef#g2g2"
7060 PLAY "o3dco2babag2edef#g2g2"
7070 PLAY "ddef#gga2o3dco2bag2o3c2o2g1"
7100 NEXT X
7200 GOTO 295
7998 REM **********************************************************************
7999 REM
8000 CLS : PRINT "WE THREE KINGS": PRINT
8001 FOR X = 1 TO 5: PRINT
8003 IF X = 1 OR X = 5 THEN GOTO 8005 ELSE GOTO 8025
8005 IF X = 1 THEN PRINT "We three Kings of O-ri-ent Are; Bear-ing gifts we trav-erse a-far."
8006 IF X = 5 THEN PRINT "Glo-rious now be-hold Him a-rise, King, and God, and sac-ri-fice;"
8010 PLAY "MF T100O2p4B4A8G4E8F#8G8F#8E4P8B4A8G4E8F#8g8f#8e4p8"
8015 IF X = 1 THEN PRINT "Field and foun-tain moor and moun-tain, Fol-low-ing yon-der star."
8016 IF X = 5 THEN PRINT "Heaven sings al-le-lu-ia: Al-le-lu-ia the earth re-plies."
8020 PLAY "g8.p16g8a8.P16A8B8.P16B8O3D8C8O2B8A8B8A8G4f#8e4p8"
8021 GOTO 8050
8025 IF X = 2 THEN PRINT "Born a King on Beth-le-hem's plain, Gold I bring to crown Him a-gain."
8026 IF X = 3 THEN PRINT "Frank-in-cense to of-fer have I, In-cense owns a De-i-ty nigh:"
8027 IF X = 4 THEN PRINT "Myrrh is mine; its bit-ter per-fume Breathes a life of gath-er-ing gloom;"
8030 PLAY "o2b4a8g4e8f#8g8f#8e4p8b4a8g4e8f#8g8f#8e4p8"
8035 IF X = 2 THEN PRINT "King for-ev-er, ceas-ing nev-er O-ver us all to reign."
8036 IF X = 3 THEN PRINT "Prayer and prais-ing all men rais-ing, Wor-ship Him, God on high."
8037 IF X = 4 THEN PRINT "Sor-rowing, sigh-ing, bleed-ing, dy-ing, Sealed in the stone cold tomb."
8040 PLAY "g4g8a4a8b4b8o3d8c8o2b8a8b8a8g4f#8e4p8"
8050 PRINT "O---Star of won-der, Star of night, Star with roy-al beaut-y bright,"
8055 PLAY "F#4A2.G8.P16G8P32G4D8G4E8G4P8G8.P16G8P32G4D8G4E8G4P8"
8060 PRINT "West-ward lead-ing, Still pro-ceed-ing, Guide us to the per-fect light."
8065 PLAY "g8.p16g8A4B8O3C4O2B8A4B8G8.P16G8P32G4D8G4E8G4."
8070 NEXT X
8990 GOTO 295
8998 REM **********************************************************************
8999 REM
9000 CLS : PRINT " GO TELL IT ON THE MOUNTAIN ": PRINT
9005 PRINT "Oh! Go tell it on the moun-tain, o-ver the hills and ev'-- ry-where,"
9006 PLAY "mf t120o3c2o2a2a8.g16f8.d16c2f2g8g4f8g4f4a8g4a8o3c2"
9007 PRINT "Go tell it on the moun-tain that Je-sus Christ- is born!"
9008 PLAY "o2a2a8.g16f8.d16c2f4b-4a8a4.g8f8g4f1p4"
9010 FOR X = 1 TO 5: PRINT
9014 IF X = 4 THEN PRINT : PRINT " Spiritual Verses:": PRINT
9015 IF X = 1 THEN PRINT "While shep-herds kept their watch-ing, O'er silent flocks by night,"
9016 IF X = 2 THEN PRINT "The shep-herds feared and trembled, When lo, ab-ove the earth,"
9017 IF X = 3 THEN PRINT "Down in a lone-ly man-ger, The humble Christ was born."
9018 IF X = 4 THEN PRINT "When I was a seeker, I sought both night and day,"
9019 IF X = 5 THEN PRINT "He made me a watch-man up-on the cit-y wall,"
9020 IF X = 4 OR X = 5 THEN GOTO 9023
9021 PLAY "mf t150o2p4a4o3c4c4c4.d8c4o2a2f4g4g4f4g4a2."
9022 GOTO 9025
9023 PLAY "mf t150o2p4a4o3c4c4.d8c4o2a2f4g4g4f4g4a2."
9025 IF X = 1 THEN PRINT "Be-hold through-out the heav-ens, There shone a Holy light."
9026 IF X = 2 THEN PRINT "Rang out the angel chorus, That hailed our Saviour's birth."
9027 IF X = 3 THEN PRINT "And God sent us salvation, That blessed Christmas morn."
9028 IF X = 4 THEN PRINT "I sought the Lord to help me, and He showed me the way,"
9029 IF X = 5 THEN PRINT "And if I am a Chris-tian, I am the least of all."
9030 PLAY "f4a4o3c4c4.d8c4o2a2f4g4g4f4d4c2"
9035 PRINT "Oh! Go tell it on the moun-tain, o-ver the hills and ev'-- ry-where,"
9040 PLAY "mf t120o3c2o2a2a8.g16f8.d16c2f2g8g4f8g4f4a8g4a8o3c2"
9045 PRINT "Go tell it on the moun-tain that Je-sus Christ- is born!"
9050 PLAY "o2a2a8.g16f8.d16c2f4b-4a8a4.g8f8g4f1p4"
9100 NEXT X
9200 GOTO 295
9998 REM **********************************************************************
9999 REM
10000 CLS : PRINT "AWAY IN A MANGER": PRINT
10001 FOR X = 1 TO 2: PRINT
10005 IF X = 1 THEN PRINT "A-way in a man-ger, no crib for a bed,"
10006 IF X = 2 THEN PRINT "Be near me, Lord Jesus, I ask Thee to stay"
10010 PLAY "mf t120o2p4d4g4g4b8a8g4g4d4e4g4e4d2"
10015 IF X = 1 THEN PRINT "The lit-tle Lord Je-sus laid down His sweet head;"
10017 IF X = 2 THEN PRINT "Close by me forever, and love me, I pray;"
10020 PLAY "d4g4g4a4b4b4o3d4d4o2b4g4a2"
10025 IF X = 1 THEN PRINT "The stars in the- sky look-ing down where He lay,"
10027 IF X = 2 THEN PRINT "Bless all the dear children in Thy tender care,"
10030 PLAY "d4g4g4b8a8g4g4d4e4g4e4d2"
10035 IF X = 1 THEN PRINT "The little Lord Je-sus, a-sleep on the hay."
10037 IF X = 2 THEN PRINT "And take us to heaven, to live with Thee there."
10040 PLAY "d4g4g4a4B4o3d4.P64c4o2d4d4f#4g2"
10041 IF X = 2 THEN GOTO 10990
10045 PRINT : PRINT "The cat-tle are low-ing the poor Ba-by wakes,"
10050 PLAY "f#8g8a4a4o3d4o2a4a4f#4a4g4e4d2"
10055 PRINT "But lit-tle Lord Je-sus no cry-ing- He- makes;"
10060 PLAY "f#8g8a4a4o3d4o2a4a4f#4g8f#8g8a8b8o3c#8d2"
10065 PRINT "I love Thee, Lord Je-sus! Look down from the sky,"
10070 PLAY "o3e4d4o2B4b8a8g4g4d4e4o3c4o2e4d2"
10075 PRINT "And stay by my cra-dle, 'Till morn-ing is nigh."
10080 PLAY "d4g4g4a4b4o3d4.c4o2d4d4f#4g2P16"
10900 NEXT X
10990 GOTO 295
10998 REM *********************************************************************
10999 REM
11000 CLS : PRINT "WHAT CHILD IS THIS?": PRINT
11001 FOR X = 1 TO 3: PRINT
11005 IF X = 1 THEN PRINT "What Child is this,- Who, laid to rest,- On Ma-ry's lap- is sleep-ing?"
11007 IF X = 2 THEN PRINT "Why lies He in- such mean es-tate- Where ox and ass- are feed-ing?"
11009 IF X = 3 THEN PRINT "So bring Him in-cense, gold, and myrrh, Come, peas-ant, king- to own Him;"
11010 PLAY "mf t90o2p4e8g4a8b8.o3c16o2b8a4f#8d8.e16f#8g4e8e8.d#16e8f#4.o1b4p16"
11015 IF X = 1 THEN PRINT "Whom an-gels greet- with an-thems sweet,- While shep-herds watch- are keep-ing?"
11017 IF X = 2 THEN PRINT "Good Chris-tian, fear:- for sin-ners here- The si-lent Word- is plead-ing."
11019 IF X = 3 THEN PRINT "The King of kings- sal-va-tion brings,- Let lov-ing hearts- en-throne Him."
11020 PLAY "o2e8g4a8b8.o3c16o2b8a4f#8d8.e16f#8g8.f#16e8d#8.c#16d#8e4.e4.p16"
11025 PRINT "This, this- is Christ the King,- Whom shep-herds guard- and an-gels sing."
11030 PLAY "o3d4.d8.c#16o2b8a4f#8d8.e16f#8g4e8e8.d#16e8f#4d#8o1b4."
11035 PRINT "This, this- is Christ the King,- The Babe,- the Son- of Ma-ry."
11040 PLAY "o3d4.d8.c#16o2b8a4f#8d8.e16f#8g8.f#16e8d#8.c#16d#8e4.e4.p4"
11100 NEXT X
11200 GOTO 295
11998 REM *********************************************************************
11999 REM
12000 CLS : PRINT "O COME, LITTLE CHILDREN (Ihr Kinderlein Kommet)": PRINT
12001 FOR X = 1 TO 4: PRINT
12005 IF X = 1 THEN PRINT "O come, little children, O come, one and all!"
12006 IF X = 2 THEN PRINT "Ihr Kin-der-lein, kom-met, O kom-met doch all!"
12007 IF X = 3 THEN PRINT "O seht in der Krippe im ncht-lich-en Stall."
12008 IF X = 4 THEN PRINT "Da liegt es, ach Kinder, auf Heu and auf Stroh,"
12010 PLAY "mf t100o2p4G8G4E8G8G4E8G8F4D8F8E4."
12015 IF X = 1 THEN PRINT "O come to the cradle in Bethlehem's stall!"
12016 IF X = 2 THEN PRINT "Zur Krip-pe her kom-met in Beth-le-hems Stall!"
12017 IF X = 3 THEN PRINT "Seht hier bei des Licht-leins hell-gln-zen-dem Strahl:"
12018 IF X = 4 THEN PRINT "Maria und Joseph be-trach-ten es froh;"
12020 PLAY "o2G8G4E8G8G4E8G8F4D8F8E4."
12025 IF X = 1 THEN PRINT "Come look in the manger! There sleeps on the hay,"
12026 IF X = 2 THEN PRINT "und seht, was in die-ser hoch-hei-li-gen Nacht,"
12027 IF X = 3 THEN PRINT "In rein-lich-en Win-deln das himm-lis-che Kind,"
12028 IF X = 4 THEN PRINT "Die red-lich-en Hir-ten knien be-tend da-vor,"
12030 PLAY "E8D4D8D8F4F8F8E4E8E8A4."
12035 IF X = 1 THEN PRINT "An infant so lovely, in light bright as day."
12036 IF X = 2 THEN PRINT "der Va-ter im Him-mel fir Freu-de uns macht."
12037 IF X = 3 THEN PRINT "Viel schn-er und hold-er, als En-gel es sind."
12038 IF X = 4 THEN PRINT "Hoch ob-en schwebt ju-belnd der En-gel-ein Chor."
12040 PLAY "A8G4G8G8O3C4O2G8E8F4D8O1B8O2C4.p4"
12900 NEXT X
12905 GOTO 295
12998 REM *********************************************************************
12999 REM
13000 CLS : PRINT "O HOLY NIGHT": PRINT
13005 PRINT "O ho-ly night, the stars are bright-ly shin-ing,"
13010 PLAY "mf t130o2p4e4.e4e8g2p64g8a4a8f4a8o3c2.o2g4"
13015 PRINT "It is the night of the dear Sa-viour's birth."
13020 PLAY "g8e4d8c4.e4f8g4.f4d8c2."
13025 PRINT "Long lay the world, in sin and er-ror pin-ing,"
13030 PLAY "e4.e4e8g2g8a4a8f4a8o3c4.o2g2."
13035 PRINT "Till He ap-peared and the soul felt its worth."
13040 PLAY "g8f#4e8b4.g4a8b4.o3c4o2b8e2."
13042 PRINT "A thrill of hope the wea-ry world re-joi-ces"
13050 PLAY "g8g4.a4.d4.g4.a4g8o3c4o2e8a4.g4"
13055 PRINT "For yon-der breaks a new and glo-rious morn."
13060 PLAY "g8g4.a4.d4.g4.a4g8o3c4o2e8g2."
13065 PRINT "Fall on your knees! O hear the an-gel voic-es!"
13070 PLAY "o3c2..o2b4a8b1b8o3d2..o2a8a4a8o3c2.c4."
13075 PRINT "O night- di-vine! O night when Christ was born!"
13080 PLAY "p32o3c8e3d3.o2g8o3c2.o2b4a8g2..g8a4g8g2.."
13085 PRINT "O night di-vine! O night O night- di-vine!"
13090 PLAY "o3c8d2..o2g8o3e2.d4.c3c8o2b4.o3c4d8c2.."
13200 GOTO 295
13998 REM *********************************************************************
13999 REM
14000 CLS : PRINT " IT CAME UPON THE MIDNIGHT CLEAR": PRINT
14002 FOR X = 1 TO 3: PRINT
14005 IF X = 1 THEN PRINT "It came up-on the mid-night clear, That glo-rious song of old,"
14007 IF X = 2 THEN PRINT "Still through the cloven skies they come, With peaceful wings unfurled;"
14009 IF X = 3 THEN PRINT "And ye beneath life's crushing load, Whose forms are bending low,"
14010 PLAY "mf t120o2p4f8o3d4c8c8o2b-8g8f4g8f4f8g8a8b-8b-8o3c8d8c2"
14015 IF X = 1 THEN PRINT "From an-gels bend-ing near the earth, to touch their harps of gold:"
14017 IF X = 2 THEN PRINT "And still their heav'nly music floats. O'er all the weary world;"
14019 IF X = 3 THEN PRINT "Who toil along the climbing way, With painful steps and slow,"
14020 PLAY "o2f8o3d4c8c8o2b-8g8f4g8f4f8g4g8a8g8f8b-2"
14025 IF X = 1 THEN PRINT "Peace to the earth, good will to men, From heav'n's all gra-cious King,"
14027 IF X = 2 THEN PRINT "Above its sad and lowly plains, They bend on hov'ring wings;"
14029 IF X = 3 THEN PRINT "Look now! for glad and golden hours come swiftly on the wing;"
14030 PLAY "o3d8d4o2d8d8e8f#8g4a8b-4o3d8c8o2b-8a8g8a8g8f2"
14035 IF X = 1 THEN PRINT "The world in sol-emn still-ness lay, to hear the an-gels sing!"
14037 IF X = 2 THEN PRINT "And ever o'er its Babel sounds, The blessed angels sing!"
14039 IF X = 3 THEN PRINT "Oh, rest beside the weary road, And hear the angels sing!"
14040 PLAY "f8o3d4c8c8o2b-8g8f4g8f4f8g4g8a8g8f8b-2p8"
14100 NEXT X
14200 GOTO 295
14998 REM *********************************************************************
14999 REM
15000 CLS : PRINT " THE FIRST NOEL": PRINT
15001 FOR X = 1 TO 4: PRINT
15002 IF X = 1 THEN PRINT "The first- No-el the an-gel did say"
15004 IF X = 2 THEN PRINT "They- looked-- up and- saw- a Star"
15006 IF X = 3 THEN PRINT "This star drew nigh to the north-west"
15008 IF X = 4 THEN PRINT "Then enter'd in there wise men three,"
15010 PLAY "mf t150o2p4f#8e8d4.e8f#8g8a2b8o3c#8d4c#4o2b4a2"
15012 IF X = 1 THEN PRINT "Was to cer-tain poor shep-herds in fields as they lay;"
15014 IF X = 2 THEN PRINT "Shin-ing in- the East-, be-yond them far,"
15016 IF X = 3 THEN PRINT "O'er Beth-le-hem it took its rest"
15018 IF X = 4 THEN PRINT "Full rev'rently upon their knee,"
15020 PLAY "b8o3c#8d4c#4o2b4a4b4o3c#4d4o2a4g4f#2"
15022 IF X = 1 THEN PRINT "In- fields- where- they lay- keeping their sheep,"
15024 IF X = 2 THEN PRINT "And- to- the earth it- gave- great light,"
15026 IF X = 3 THEN PRINT "And- there- it- did both- stop- and stay,"
15028 IF X = 4 THEN PRINT "And- of-fer'd there in- His- pre-sence,"
15030 PLAY "f#8e8d4.e8f#8g8a2b8o3c#8d4c#4o2b4a2"
15032 IF X = 1 THEN PRINT "On a cold win-ter's night- that was- so deep."
15034 IF X = 2 THEN PRINT "And- so it con-tin-ued both day- and night,"
15036 IF X = 3 THEN PRINT "right- over- the place where- Je-sus lay."
15038 IF X = 4 THEN PRINT "Their- gold- and- myrrh- and frank-in-cense."
15040 PLAY "b8o3c#8d4c#4o2b4a4b4o3c#4d4o2a4g4f#2"
15042 PRINT "No-el-, No-el, No-el, No-el, Born is the King of Is-ra-el."
15050 PLAY "f#8e8d4.e8f#8g8a2o3d8c#8o2b2b4a2.o3d4c#4o2b4a4b4o3c#4d4o2a4g4f#2p4"
15300 NEXT X
15400 GOTO 295
15998 REM *********************************************************************
15999 REM
16000 CLS : PRINT " GOD REST YOU MERRY GENTLEMEN": PRINT
16001 FOR X = 1 TO 4: PRINT
16002 IF X = 1 THEN PRINT "God rest you mer-ry gen-tle-men, Let noth-ing you dis-may,"
16004 IF X = 2 THEN PRINT "In Bethlehem, in Jewery, This blessed Babe was born,"
16006 IF X = 3 THEN PRINT "From God our heav'nly Father, A blessed Angel came,"
16008 IF X = 4 THEN PRINT "'Fear not then,' said the Angel, 'Let nothing you affright.'"
16010 PLAY "mf t150o2p4l4eebbagf#edef#gal2b."
16012 IF X = 1 THEN PRINT "Re-mem-ber Christ our Sa-viour was born on Christ-mas Day,"
16014 IF X = 2 THEN PRINT "And laid within a manger upon this blessed morn;"
16016 IF X = 3 THEN PRINT "And unto certain Shepherds brought tidings of the same;"
16018 IF X = 4 THEN PRINT "This day is born a Saviour of a pure Virgin bright,"
16020 PLAY "l4eebbagf#edef#gal2b."
16022 IF X = 1 THEN PRINT "To save us all from Sa-tan's pow'r, when we were gone a-stray."
16024 IF X = 2 THEN PRINT "To which His mother Mary, Did nothing take in scorn."
16026 IF X = 3 THEN PRINT "How that in Bethlehem was born the Son of God by Name."
16028 IF X = 4 THEN PRINT "To free all those who trust in Him, From Satan's pow'r and might."
16030 PLAY "l4bo3co2abo3cdeo2bagef#gl2a"
16032 PRINT "O tid-ings of com-fort and joy, com-fort and joy,"
16040 PLAY "l4gal2bo3l4co2bbagf#l2el8gf#l4el2a"
16042 PRINT "O tid-ings of com-fort and joy."
16050 PLAY "l4gabo3cdeo2bagf#l2e."
16100 NEXT X
16200 GOTO 295
16998 REM *********************************************************************
16999 REM
17000 CLS : PRINT "DECK THE HALLS WITH BOUGHS OF HOLLY": PRINT
17001 FOR X = 1 TO 3: PRINT
17002 IF X = 1 THEN PRINT "Deck the halls with boughs of hol-ly, Fa la la la la la la la la!"
17004 IF X = 2 THEN PRINT "See the blazing Yule before us, Fa la la la la la la la la."
17006 IF X = 3 THEN PRINT "Fast away the old year passes, Fa la la la la la la la la."
17010 PLAY "mf t180o2p4a4.g8f#4e4d4e4f#4d4e8f#8g8e8f#4.e8d4c#4d2"
17012 IF X = 1 THEN PRINT "'Tis the sea-son to be jol-ly, Fa la la la la la la la la!"
17014 IF X = 2 THEN PRINT "Strike the harp and join the chorus, Fa la la la la la la la la!"
17016 IF X = 3 THEN PRINT "Hail the new, ye lads and lasses, Fa la la la la la la la la!"
17020 PLAY "a4.g8f#4e4d4e4f#4d4e8f#8g8e8f#4.e8d4c#4d2"
17022 IF X = 1 THEN PRINT "Don we now our gay ap-par-el, Fa la la Fa la la la la la."
17024 IF X = 2 THEN PRINT "Follow me in merry measure, Fa la la Fa la la la la la."
17026 IF X = 3 THEN PRINT "Sing we joyous all together, Fa la la Fa la la la la la."
17030 PLAY "e4.f#8g4e4f#4.g8a4e4f#8g8a4b8o3c#8d4c#4o2b4a2"
17032 IF X = 1 THEN PRINT "Troll the an-cient yule-tide ca-rol Fa la la la la la la la la!"
17034 IF X = 2 THEN PRINT "While I tell of Yule-tide treasure, Fa la la la la la la la la."
17036 IF X = 3 THEN PRINT "Heedless of the wind and weather, Fa la la la la la la la la."
17040 PLAY "a4.g8f#4e4d4e4f#4d4b8b8b8b8a4.g8f#4e4d2"
17100 NEXT X
17200 GOTO 295
17998 REM *********************************************************************
17999 REM
18000 CLS : PRINT " HARK! THE HERALD ANGELS SING": PRINT
18001 FOR X = 1 TO 3: PRINT
18002 IF X = 1 THEN PRINT "Hark, the her-ald an-gels sing, Glory to the new-born King!"
18004 IF X = 2 THEN PRINT "Christ by high-est heav'n a-dored; Christ the ever-last-ing Lord;"
18006 IF X = 3 THEN PRINT "Hail! the heav'n born Prince of peace! Hail! the Son of Right-eous-ness;"
18010 PLAY "mf t150o2p4l4dggf#gbbao3ddd.l8co2l4bal2b"
18012 IF X = 1 THEN PRINT "Peace on earth and mer-cy mild, God and sin-ners re-con-ciled."
18014 IF X = 2 THEN PRINT "Late in time be-hold Him come, Off-spring of the fa-vored one,"
18016 IF X = 3 THEN PRINT "Light and life to all He brings, Ris'n with heal-ing in His wings."
18020 PLAY "l4dggf#gbbao3do2aa.l8f#l4f#el2d"
18022 IF X = 1 THEN PRINT "Joy-ful, all ye na-tions rise, Join the tri-umph of the skies,"
18024 IF X = 2 THEN PRINT "Veiled in flesh, the God-head see; Hail th'in-car-nate De-ity;"
18026 IF X = 3 THEN PRINT "Wild He lays His glo-ry by-, Born that man no more may die-."
18030 PLAY "l4o3dddo2go3co2bbao3dddo2go3co2bba"
18032 IF X = 1 THEN PRINT "With th'an-gel-ic host pro-claim, Christ is- born in Beth-le-hem."
18034 IF X = 2 THEN PRINT "Pleased as man, with man to dwell, Je-sus- our Im-man-uel!"
18036 IF X = 3 THEN PRINT "Born to raise the Sons of earth, Born to give them second birth."
18040 PLAY "o3eeedco2bo3l2co2l4al8bo3cl4d.l8o2gl4gal2b"
18042 PRINT "Hark! the her-ald an-gels sing, Glo-ry- to the new-born King."
18050 PLAY "l4o3eeedco2bl2o3co2l4al8bo3cl4d.l8o2gl4gal2gp4"
18100 NEXT X
18200 GOTO 295
18998 REM *********************************************************************
18999 REM
19000 CLS : PRINT " ANGELS WE HAVE HEARD ON HIGH": PRINT
19001 FOR X = 1 TO 3: PRINT
19002 IF X = 1 THEN PRINT "An-gels we have heard on high, Sweet-ly sing-ing o'er the plain;"
19004 IF X = 2 THEN PRINT "Shepherds, why this jubilee? Why your cheery strains prolong?"
19006 IF X = 3 THEN PRINT "Come to Bethlehem and see, Him whose birth the angels sing;"
19010 PLAY "mf t150o2p4a4a4a4o3c4c4.o2b-8a2a4g4a4o3c4o2a4.g8f2"
19012 IF X = 1 THEN PRINT "And the moun-tains in re-ply, Ech-o-ing their joy-ous strain."
19014 IF X = 2 THEN PRINT "What the gladsome tidings be, which inspire your heav'nly song?"
19016 IF X = 3 THEN PRINT "Come, adore on bended knee, Christ the Lord, the new-born King."
19020 PLAY "a4a4a4o3c4c4.o2b-8a2a4g4a4o3c4o2a4.g8f2"
19022 PRINT "Glo-----ri-a, in ex-cel-sis De-o! Glo------ri-a, in ex-cel-sis De-o!"
19030 PLAY "o3c2d8c8o2b-8a8b-2o3c8o2b-8a8g8a2b-8a8g8f8g4.c8c2f4g4a4b-4a2g2o3c2d8c8o2b-8a8b-2o3c8o2b-8a8g8a2b-8a8g8f8g4.c8c2f4g4a4b-4a2g2f1.p4"
19100 NEXT X
19200 GOTO 295
19998 REM *********************************************************************
19999 REM
20000 CLS : PRINT " WHILE SHEPHERDS WATCHED THEIR FLOCKS": PRINT
20001 FOR X = 1 TO 5: PRINT
20002 IF X = 1 THEN PRINT "While shep-herds watched their flocks by night, All seat-ed on the ground,"
20003 IF X = 2 THEN PRINT "Fear not, said he, for mighty dread had seized their troubled mind;"
20004 IF X = 3 THEN PRINT "To you in David's town, this day is born of David's line,"
20005 IF X = 4 THEN PRINT "The heav'nly babe you there shall find to human view displayed,"
20006 IF X = 5 THEN PRINT "All glory be to God on high, and to the earth be peace;"
20010 PLAY "mf t120o2p4f4a4.a8g4f4b-4b-4a4g4a4o3c4c4o2b4o3c2."
20012 IF X = 1 THEN PRINT "The an-gel of the Lord came down, and glo-ry shone a-round."
20013 IF X = 2 THEN PRINT "Glad tidings of great joy I bring to you and all mankind."
20014 IF X = 3 THEN PRINT "The Saviour, who is Christ the Lord; and this shall be the sign."
20015 IF X = 4 THEN PRINT "All meanly wrapped in swathing bands, and in a manger laid."
20016 IF X = 5 THEN PRINT "Good-will hence-forth from heav'n to men, begin and never cease."
20020 PLAY "o2a4o3d4.c8o2b-4a4g4f4e4a4g4f4f4e4f2.p4"
20100 NEXT X
20200 GOTO 295
20998 REM *********************************************************************
20999 REM
21000 CLS : PRINT " IT'S BEGINNING TO LOOK A LOT LIKE CHRISTMAS": PRINT
21001 FOR X = 1 TO 2: PRINT
21005 PRINT "It's be-gin-ning to look a lot like Christ-mas, Ev-'ry-where you go;"
21010 PLAY "mf t150o1p4b8.o2c16d6e6d6c#8.d16e4g4b4d2.b4.b8a4.g8e2."
21015 PRINT "Take a look in the five and ten, glis-ten-ing once a-gain,"
21020 PLAY "e8.f#16g6a6g6e8.f16f#2f#6g6f#6d8.d#16e4."
21025 PRINT "with can-dy canes and sil-ver lanes a-glow."
21030 PLAY "e8f#8.g16a8.b16a8.g16f#8.e16a2."
21035 PRINT "It's be-gin-ning to look a lot like Christmas, toys in ev-'ry store"
21040 PLAY "o1b8.o2c16d6e6d6c#8.d16e4g4b4d2.b4.b8a4.g8e2."
21045 PRINT "But the prettiest sight to see is the holly that will be on your own front";
21046 IF X = 1 THEN PRINT " door."
21047 IF X = 2 THEN PRINT " heart"
21050 PLAY "e8.f#16g6a6g6f#8.g16f#4e8.e-16d8.e16g8.b16o3d4o2d8.e16o3c2O2f#2g2."
21052 IF X = 2 THEN GOTO 295
21055 PRINT "A pair of hopalong boots and a pistol that shoots is the wish of Barney and Ben;"
21060 PLAY "f#16g8.a16b8o3c8o2b8a6b6a6g6a6g6f#6g6a6b8.b16a6g6f#6e4p16"
21065 PRINT "Dolls that will talk and will go for a walk is the hope of Jan-ice and Jen;"
21070 PLAY "a6b6a6g6a6g6f#6g6f#6e6f#6g6a8.a16g6f#6e6d4p16"
21075 PRINT "And Mom and Dad can hard-ly wait for school to start a-gain."
21080 PLAY "d8o3d8.c#16c8.o2b16a8.g16f#8.e16d8.c#16d8.e16d4"
21090 NEXT
21998 REM *********************************************************************
21999 REM
22000 CLS : PRINT " WE WISH YOU A MERRY CHRISTMAS": PRINT
22001 FOR X = 1 TO 2: PRINT
22005 PRINT "We wish you a Mer-ry Christ-mas, We wish you a Mer-ry Christ-mas,"
22010 PLAY "mf t150o2p4d4g4g8a8g8f#8e4e4e4a4a8b8a8g8f#4d4"
22015 PRINT "We wish you a Mer-ry Christ-mas, And a Hap-py New Year."
22020 PLAY "d4b4b8o3c8o2b8a8g4e4d8d8e4a4f#4g2"
22025 PRINT "Good ti-dings to you wher-ev-er you are;"
22030 PLAY "d4g4g4g4f#2f#4g4f#4e4d2"
22035 PRINT "Good ti-dings for Christ-mas and a Hap-py New Year."
22040 PLAY "a4b4a4g4o3d4o2d4d8d8e4a4f#4g2"
22100 NEXT X
22200 GOTO 295
22998 REM *********************************************************************
22999 REM
23000 CLS : PRINT "LET IT SNOW! LET IT SNOW! LET IT SNOW!": PRINT
23002 FOR X = 1 TO 2: PRINT
23005 PRINT "Oh! the weath-er out-side is fright-ful But the fire is so de-light-ful."
23010 PLAY "mf t150o2p4c8c8o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2"
23015 PRINT "And since we've no place to go, Let it snow! Let it snow! Let it snow!"
23020 PLAY "d4o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2."
23025 PRINT "It does-n't show signs of stop-ping, And I brought some corn for pop-ping;"
23030 PLAY "c4o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2"
23035 PRINT "The lights are turned 'way down low. Let it snow! Let it snow! Let it snow!"
23040 PLAY "d4o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2."
23045 PRINT "When we fin-al-ly kiss good-night, How I'll hate go-ing out in the storm!"
23050 PLAY "e8f8g8a8g4e4o3c4o2g2.e8g8f4f8e8d4c8d8e2."
23055 PRINT "But if you'll real-ly hold me tight, All the way home I'll be warm."
23060 PLAY "e8f8g4a8g8e4o3c4o2g1o3c8o2b8a4b4a8b8o3c2."
23065 PRINT "The fi-re is slow-ly dy-ing; and, my dear, we're still good-bye-ing,"
23070 PLAY "o2c4o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2"
23075 PRINT "But as long as you love me so, Let It Snow! Let It Snow! Let It Snow!"
23080 PLAY "d8d8o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2.p8"
23090 IF X = 2 THEN GOTO 23200
23100 NEXT X
23200 GOTO 295
23998 REM *********************************************************************
23999 REM
24000 CLS : PRINT "I'LL BE HOME FOR CHRISTMAS": PRINT
24002 FOR X = 1 TO 2: PRINT
24005 PRINT "I'll be home for Christ-mas,"
24010 PLAY "mf t220o3p4c2.o2b4o3d2.c4o2g2g2d8e8f8a8e8e-8d4"
24015 PRINT "You can plan on me."
24020 PLAY "a2.g4b-2.a4d1"
24025 PRINT "Please have snow and mis-stle-toe,"
24030 PLAY "c#4d2.e4g2.f4e2.g4o3c2."
24035 PRINT "And pre-sents on the tree."
24040 PLAY "o2b4o3d2d2o2b2.b4a1."
24045 PRINT "Christ-mas Eve will find me-"
24050 PLAY "o2b4o3c2.o2b4o3d2.c4o2g2g2d8e8f8a8e8e-8d4"
24055 PRINT "Where the love- light gleams."
24060 PLAY "a2.g4b-2.a4d1"
24065 PRINT "I'll be home for Christ-mas,"
24070 PLAY "d8e8f8a8o3d2.c4d2.c4o2g1a2."
24075 PRINT "If on-ly in my dreams--."
24080 PLAY "a4o3d2e2c2d2"
24082 IF X = 1 THEN PLAY "o3c2o2g8a8b8o3c8d4o2b8b-8a4b4"
24084 IF X = 2 THEN PLAY "c1"
24085 NEXT X
24200 GOTO 295
24998 REM *********************************************************************
24999 REM
25000 CLS : PRINT "(There's no place like) HOME FOR THE HOLIDAYS": PRINT
25002 FOR X = 1 TO 2: PRINT
25005 PRINT "Oh, there's no place like Home for the Hol-i-days"
25010 PLAY "mf t150o2p4l4efl2gl4ecl2o3cl4o2bagfl1e"
25015 PRINT "'cause no mat-ter how far a-way you roam"
25020 PLAY "l4cdl2el4d#eagfedo3co2bagf"
25025 PRINT "When you pine for the sun-shine of a friend-ly gaze"
25030 PLAY "l4efl2gl4eco3dco2bao3co2el1g"
25035 PRINT "for the hol-i-days you can't beat home, sweet home."
25040 PLAY "l4o3dco2bgafgefdl1c"
25045 PRINT "I met a man who lives in Ten-nes-see"
25050 PLAY "l4cfgao3cco2bo3dcc."
25055 PRINT "and he was head-in' for Penn-syl-van-ia and some home-made pump-kin pie."
25060 PLAY "l8o2bl4o3dco2bal2gl4efggf#gbagfl1e"
25065 PRINT "From Penn-syl-van-ia folks are trav-'lin' down to Dix-ie's sun-ny shore;"
25070 PLAY "l4cfgao3cco2bo3dcc.l8o2bl4o3dco2bal2g"
25075 PRINT "From At-lan-tic to Pa-ci-fic, gee, the traf-fic is ter-ri-fic."
25080 PLAY "l4gabo3ddedco2b.l8al4gggagf"
25085 PRINT "Oh, there's no place like Home for the Hol-i-days"
25090 PLAY "l4efl2gl4ecl2o3cl4o2bagfl1e"
25095 PRINT "'cause no mat-ter how far a-way you roam-"
25100 PLAY "l4cdl2el4d#eagfedo3co2bagf"
25105 PRINT "if you want to be hap-py in a mil-lion ways"
25110 PLAY "l4efl2gl4eco3dco2bao3co2el1g"
25115 PRINT "for the hol-i-days you can't beat home, sweet home."
25120 IF X = 1 THEN PLAY "l4o3dco2bgafgefdcgggl2g"
25125 IF X = 2 THEN PLAY "l4o3dco2bgafl2gel1fo3dc."
25150 NEXT X
25200 GOTO 295
25998 REM *********************************************************************
25999 REM
26000 CLS : PRINT " SILVER BELLS": PRINT
26002 PRINT "Christ-mas makes you feel e-mo-tion-al."
26003 PLAY "mf t150o2l4f2ff2ff2fo3c.o2b-8a"
26004 PRINT "It may bring par-ties or thoughts de-vo-tion-al."
26005 PLAY "fffffff2fo3c.o2b-8a"
26006 PRINT "What-ev-er hap-pens or what may be,"
26007 PLAY "b-o3cdo2b-o3cdo2b-2o3cd2."
26008 PRINT "Here is what Christ-mas time means to me:"
26009 PLAY "o2ab-o3co2ab-o3co2a2b-o3c"
26014 FOR X = 1 TO 2: PRINT
26015 PRINT "City side-walks, busy side-walks, dressed in hol-i-day style,"
26020 PLAY "mf t150o2p4b-8g8f4d4b-8g8f4d4o3d8c8o2b-4g4g4g2"
26025 PRINT "In the air there's a feel-ing of Christ-mas."
26030 PLAY "o3c8o2b-8a4f4e4e-4f4.e-8e-4d2.p8"
26035 PRINT "Child-ren laugh-ing, people pass-ing, meet-ing smile after smile,"
26040 PLAY "b-8g8f4d4b-8g8f4d4o3d8c8o2b-4g4g4g2"
26045 PRINT "and on every street corner you hear:"
26050 PLAY "o3c8o2b-8a4f4e4e-4f4o3c4o2b-1"
26055 PRINT "Silver bells, silver bells,"
26060 PLAY "d8e-8f1g8a8b-1"
26065 PRINT "It's Christ-mas time in the city."
26070 PLAY "a4a4b-4o3c2o2b-8a8b-4f1"
26075 PRINT "Hear the bells, hear them ring."
26080 PLAY "d8e-8f1g8a8b-1"
26085 PRINT "Soon it will be Christ-mas Day!"
26090 PLAY "a4a4b-4o3c4o2b-4a4b-2.p4"
26150 NEXT X
26200 GOTO 295
26998 REM *********************************************************************
26999 REM
27000 CLS : PRINT "JOLLY OLD SAINT NICHOLAS": PRINT : PRINT
27005 PRINT "Jolly old Saint Nicholas,"
27010 PLAY "mf t180o2p4l4bbbbaal2a"
27015 PRINT "Lean your ear this way."
27020 PLAY "l4ggggl1b"
27025 PRINT "Don't you tell a single soul"
27030 PLAY "l4eeeeddl2g"
27035 PRINT "What I'm going to say."
27040 PLAY "l4agabl1a"
27045 PRINT "Christmas Eve is coming soon;"
27050 PLAY "l4bbbbaal2a"
27055 PRINT "Now you dear old man,"
27060 PLAY "l4ggggl1b"
27065 PRINT "Whisper what you'll bring to me,"
27070 PLAY "l4eeeeddl2g"
27075 PRINT "Tell me if you can."
27080 PLAY "l4agabl1g"
27200 GOTO 295
27998 REM *********************************************************************
27999 REM
28000 CLS : PRINT " JINGLE BELLS ": PRINT
28001 FOR X = 1 TO 3: PRINT
28005 IF X = 1 THEN PRINT "Dashing thro' the snow, In a one horse o-pen sleigh,"
28007 IF X = 2 THEN PRINT "A day or two ago, I tho't I'd take a ride:"
28009 IF X = 3 THEN PRINT "Now the ground is white, Go it while you're young,"
28010 PLAY "MF T180O2p4L4DBAGL2D.L8DDL4DBAGL2E."
28015 IF X = 1 THEN PRINT "O'er the fields we go, Laugh-ing all the way;"
28017 IF X = 2 THEN PRINT "And soon Miss Fannie Bright, was seated by my side;"
28019 IF X = 3 THEN PRINT "Take the girls tonight; and sing this sleighing song:"
28020 PLAY "L4EEO3CO2BAL1F#O3L4DDCO2AL1B"
28025 IF X = 1 THEN PRINT "Bells on bob-tail ring, Making spir-its bright;"
28027 IF X = 2 THEN PRINT "The horse was lean and lank, misfortune seem'd his lot;"
28029 IF X = 3 THEN PRINT "Just get a bob-tailed bay, two forty for his speed,"
28030 PLAY "L4DBAGL2D.L8DDL4DBAGL2E."
28035 IF X = 1 THEN PRINT "What fun it is to ride and sing a sligh-ing song to-night!"
28037 IF X = 2 THEN PRINT "He got into a drifted bank and then we got up-sot!"
28039 IF X = 3 THEN PRINT "Then hitch him to an open sleigh and crack! you'll take the lead."
28040 PLAY "L4EEO3CO2BAO3DDDDEDCO2AL2G."
28045 PRINT "Jin-gle bells, Jin-gle bells, Jin-gle all the way!"
28050 PLAY "P4L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1B"
28055 PRINT "Oh! what fun it is to ride in a one horse open sleigh!"
28060 PLAY "O3L4CCL4C.L8CL4CO2BBL8BBL4BAABL2A"
28065 PRINT "Jin-gle bells, Jin-gle bells, Jin-gle all the way!"
28070 PLAY "O3DO2L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1B"
28075 PRINT "Oh! what fun it is to ride in a one horse open sleigh!"
28080 PLAY "O3L4CCL4C.L8CL4CO2BBL8BBO3L4DDCO2L4AL1GP1"
28300 NEXT X
28310 GOTO 295
28998 REM *********************************************************************
28999 REM
29000 CLS : PRINT "Frosty the Snow Man"
29020 FOR X = 1 TO 2
29025 PRINT
29030 IF X = 1 THEN PRINT "Fros-ty the Snow man was a jolly happy soul,"
29040 IF X = 2 THEN PRINT "Fros-ty the Snow man knew the sun was hot that day"
29050 PLAY "mf t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
29060 IF X = 1 THEN PRINT "with a corn cob pipe and a button nose and two eyes made out of coal."
29070 IF X = 2 THEN PRINT "so he said Let's run and we'll have some fun now before I melt away."
29080 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2."
29090 IF X = 1 THEN PRINT "Fros-ty the Snow Man is a fair-y tale, they say,"
29100 IF X = 2 THEN PRINT "Down to the vil-lage, with a broom-stick in his hand,"
29110 PLAY "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
29120 IF X = 1 THEN PRINT "He was made of snow but the chil-dren knew how he come to life one day."
29130 IF X = 2 THEN PRINT "run-ning here and there all a-round the square, say-in' catch me if you can."
29140 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2."
29150 IF X = 1 THEN PRINT "There must have been some magic in that old silk hat they found."
29160 IF X = 2 THEN PRINT "He led them down the streets of town right to the traffic cop."
29170 PLAY "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2."
29180 IF X = 1 THEN PRINT "For when they placed it on his head he be-gan to dance a round."
29190 IF X = 2 THEN PRINT "And he on-ly paused a moment when he heard him hol-ler Stop!"
29200 PLAY "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4"
29210 IF X = 1 THEN PRINT "Oh, Fros-ty the Snow Man was a-live as he could be,"
29220 IF X = 2 THEN PRINT "For, Fros-ty the Snow Man had to hur-ry on his way"
29230 PLAY "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2."
29240 IF X = 1 THEN PRINT "and the chil-dren say he could laugh and play just the same as you and me."
29250 IF X = 2 THEN PRINT "but he waved good-bye say-in' Don't you cry, I'll be back a-gain some day."
29260 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4"
29270 NEXT X
29280 PRINT : PRINT "Thump-et-y thump thump, thump-et-y thump thump, look at Fros-ty go."
29290 PLAY "t180g8g8g4g4g4a8g8g4g4g4a4g4e4g4d1"
29300 PRINT "Thump-et-y thump thump, thump-et-y thump thump, ov-er the hills of snow."
29310 PLAY "t180g8g8g4g4g4a8g8g4g4g4g8g8g4a4b4o3c2c4p1"
29990 GOTO 295
29998 REM *********************************************************************
29999 REM
30000 CLS : PRINT " RUDOLPH THE RED-NOSED REINDEER": PRINT : PRINT
30002 PRINT "You know Dash-er and Danc-er and Pranc-er and Vix-en,"
30003 PLAY "mf t120o2l8p4abo3co2a4fbg4eaf4dag4."
30004 PRINT "Com-et and Cu-pid and Don-ner and Blitz-en,"
30005 PLAY "o3co2a4fbg4eaf4dag4."
30006 PRINT "But do you re-call the most fa-mous rein-deer of all?"
30007 PLAY "l4eeeea2.a8b8o3ccc8o2ba8g1"
30009 PRINT "Rudolph the red-nosed reindeer"
30010 PLAY "mf T160O3p4C8D4C8O2A4O3F4D4C2."
30015 PRINT "Had a very shiny nose"
30020 PLAY "o3c8d8c8d8c4f4e1"
30025 PRINT "And if you ever saw it,"
30030 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2."
30035 PRINT "You would even say it glows."
30040 PLAY "o3c8d8c8d8c4d4o2a1"
30045 PRINT "All of the other reindeer,"
30050 PLAY "o3c8d4c8o2a4o3f4d4c2."
30055 PRINT "Used to laugh and call him names."
30060 PLAY "o3c8d8c8d8c4f4e1"
30065 PRINT "They never let poor Rudolph"
30070 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2."
30075 PRINT "Join in any reindeer games."
30080 PLAY "o3c8d8c8d8c4g4f1"
30085 PRINT "Then one foggy Christmas Eve,"
30090 PLAY "o3d4d4f4d4c4o2a4o3c2"
30095 PRINT "Santa came to say:"
30100 PLAY "o2b-4o3d4c4o2b-4a1"
30105 PRINT "Rudolph with your nose so bright"
30110 PLAY "o2g4a4o3c4d4e4e4e2"
30115 PRINT "Won't you guide my sleigh tonight?"
30120 PLAY "o3f4f4e4d4c4o2b-4g2"
30125 PRINT "Then how the reindeer loved him,"
30130 PLAY "o3c8d4c8o2a4o3f4d4c2."
30135 PRINT "As they shouted out with glee:"
30140 PLAY "o3c8d8c8d8c4f4e1"
30145 PRINT "Rudolph the red-nosed reindeer,"
30150 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2."
30155 PRINT "You'll go down in history."
30160 PLAY "o3c8d8c8d8c4g4f1"
30200 GOTO 295
30998 REM *********************************************************************
30999 REM
31000 CLS : PRINT " SLEIGH RIDE": PRINT
31001 FOR X = 1 TO 2: PRINT
31005 PRINT "Just hear those sleigh bells jin-gle-ing, ring-ting-tin-gle-ing, too."
31010 PLAY "mf t180o3l4dddded8o2b8gaba8f#8ed1"
31015 PRINT "Come on, it's love-ly weath-er for a Sleigh Ride to-geth-er with you,"
31020 PLAY "o2ef#ao3ded8o2b8a8g8aa8b8a8g8eg1"
31025 PRINT "Out-side the snow is fall-ing and friends are call-ing 'Yoo hoo',"
31030 PLAY "o3dddded8o2b8gaba8f#8ed1"
31035 PRINT "Come on, it's love-ly weather for a Sleigh Ride to-geth-er with you."
31040 PLAY "o2ef#ao3ded8o2b8a8g8aa8b8a8g8eg1"
31045 PRINT "Gid-dy-yap, gid-dy-yap, gid-dy-yap, let's go. Let's look at the show,"
31050 PLAY "o2d#8e8bd#8e8bd8e8bO3c#O2a#1ba#8f#8d#g#1"
31055 PRINT "We're rid-ing in a won-der-land of snow."
31060 PLAY "a#g#8e8c#8e8g#ba#o3c#o2f#1."
31065 PRINT "Gid-dy-yap, gid-dy-yap, gid-dy-yap, it's grand, Just holding your hand."
31070 PLAY "c#8d8ac#8d8ac8d8abg#2ag#8e8c#f#1"
31075 PRINT "We're glid-ing a-long with a song of a win-ter-y fair-y-land."
31080 PLAY "o3ae8d8o2ao3de8a8ed8o2a8o3d8e8ao4do3ad"
31085 PRINT "Our cheeks are nice and ros-y, and com-fy co-zy are we."
31090 PLAY "dddded8o2g8gaba8f#8ed1"
31095 PRINT "We're snug-gled up to-geth-er like two birds of a feath-er would be."
31100 PLAY "df#ao3ded8o2b8a8g8aa8b8a8g8eg1"
31110 PRINT "Let's take that road be-fore us and sing a cho-rus or two."
31115 PLAY "o3dddded8o2b8gaba8f#8ed1"
31120 PRINT "Come on, it's love-ly weath-er for a Sleigh Ride to-geth-er with you."
31125 PLAY "ef#ao3ded8o2b8a8g8aa8b8a8g8eg1."
31130 NEXT X
31200 GOTO 295
32000 CLS : PRINT "O CHRISTMAS TREE": PRINT
32001 FOR X = 1 TO 4: PRINT
32002 IF X = 1 THEN PRINT "O Christmas tree! O Christmas tree! Your leaves are so unchanging."
32004 IF X = 2 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Wie treu sind dei-ne Blt-ter!"
32006 IF X = 3 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Du kannst mir sehr ge-fall-en,"
32008 IF X = 4 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Dein Kleid will mir was leh-ren;"
32010 PLAY "Mf T100O2p4C4F8.F16F8.P64G8.A8.A16A4.P64A8G8A8B-4E4G4F4P8"
32012 IF X = 1 THEN PRINT "Not only green when summer's here, but also when the snow is near."
32014 IF X = 2 THEN PRINT "Du grunst nicht nur zur Som-mer-zeit, Nein auch im Win-ter, wenn es schneit,"
32016 IF X = 3 THEN PRINT "Wie oft hat nicht zur Weih-nachts-zeit, Ein baum von dir mich hoch er-freut!"
32018 IF X = 4 THEN PRINT "Die Hoff-nung und Be-ston-dig-keit, Giebt Trost und Kraft zu je-der Zeit!"
32020 PLAY "O3C8C8O2A8O3D4.C8C8O2B-8B-4.B-8B-8G8O3C4.O2B-8b-8a8a4p16"
32022 IF X = 1 THEN PRINT "O Christmas tree! O Christmas tree! Your leaves are so unchanging."
32024 IF X = 2 THEN PRINT "O Tannenbaum, O Tannenbaum, Wie treu sind dei-ne Blt-ter."
32026 IF X = 3 THEN PRINT "O Tannenbaum, O Tannenbaum, Du kannst mir sehr ge-fall-en."
32028 IF X = 4 THEN PRINT "O Tannenbaum, O Tannenbaum, Dein Kleid will mir was leh-ren."
32030 PLAY "C4F8.F16F4.G8A8.A16A4.A8G8A8B-4E4G4F4P4"
32900 NEXT X
32990 GOTO 295
32998 REM *********************************************************************
32999 REM
33000 CLS : PRINT " SANTA CLAUS IS COMING TO TOWN": PRINT
33005 PRINT "You bet-ter watch out, you bet-ter not cry,"
33010 PLAY "mf t150o2l4p4ge8f8gg.g8a8b8o3cc2"
33015 PRINT "Bet-ter not pout, I'm tell-ing you why:"
33020 PLAY "o2e8f8ggga8g8ff2"
33025 PRINT "San-ta Claus is com-in' to town."
33030 PLAY "egcedf2o1bo2c2"
33035 PRINT "He's making a list and check-ing it twice,"
33040 PLAY "g8e8f8gg.g8a8b8o3cc2"
33045 PRINT "Gon-na find out whose naught-y and nice,"
33050 PLAY "o2e8f8ggga8g8ff2"
33055 PRINT "San-ta Claus is com-in' to town."
33060 PLAY "egcedf2o1bo2c1"
33065 PRINT "He sees you when you're sleep-in',"
33070 PLAY "o3cdco2bo3co2aa2"
33075 PRINT "He knows when you're awake."
33080 PLAY "o3cdco2bo3co2a2."
33085 PRINT "He knows if you've been bad or good,"
33090 PLAY "o3dedc#do2bbb"
33095 PRINT "So be good for good-ness sake."
33100 PLAY "o2b8o3c8dco2bag"
33105 PRINT "Oh! You bet-ter watch out, you bet-ter not cry,"
33110 PLAY "o2p4g.g8e8f8gg.g8a8b8o3cc2"
33115 PRINT "Bet-ter not pout, I'm tell-ing you why:"
33120 PLAY "o2e8f8ggga8g8ff2"
33125 PRINT "San-ta Claus is com-in' to town."
33130 PLAY "egcedf2o3dc1."
33200 GOTO 295
33998 REM *********************************************************************
33999 REM
34000 CLS : PRINT " HERE COMES SANTA CLAUS": PRINT
34002 FOR X = 1 TO 4: PRINT
34005 PRINT "Here comes San-ta Claus! Here comes San-ta Claus! Right down San-ta Claus Lane!"
34006 IF X = 2 THEN GOTO 34015
34007 IF X = 3 THEN GOTO 34020
34008 IF X = 4 THEN GOTO 34025
34010 PRINT "Vix-en and Blitz-en and all his rein-deer are pulling on the rein."
34011 PRINT "Bells are ring-ing, chil-dren sing-ing, all is mer-ry and bright."
34012 PRINT "Hang your stock-ings and say your pray'rs, 'Cause San-ta Claus comes to-night."
34013 GOTO 34030
34015 PRINT "He's got a bag that is filled with toys for the boys and girls a-gain."
34016 PRINT "Hear those sleigh bells jin-gle jan-gle, what a beau-ti-ful sight."
34017 PRINT "Jump in bed, cov-er up your head, 'Cause San-ta Claus comes to-night."
34018 GOTO 34030
34020 PRINT "He does-n't care if you're rich or poor for he loves you just the same."
34021 PRINT "San-ta knows that we're God's chil-dren, that makes ev-`ry-thing right."
34022 PRINT "Fill your hearts with a Christ-mas cheer, 'Cause San-ta Claus comes to-night."
34023 GOTO 34030
34025 PRINT "He'll come a-round when the chimes ring out, then it's Christ-mas morn a-gain."
34026 PRINT "Peace on earth will come to all if we just fol-low the light."
34027 PRINT "Let's give thanks to the Lord a-bove, 'Cause San-ta comes to-night."
34030 PLAY "mf t180o2l4p4cag8g8fcag8g8fcb-b-8b-8ab-1"
34035 PLAY "cb-8b-8ag8g8cb-ag8g8co3cco2bo3c1"
34040 PLAY "o3dfedcedco2b-b-o3d6c6o2b-6a1"
34045 PLAY "o3dfed8d8cedo2ao3c8c8o2b-agf1"
34100 NEXT X
34200 GOTO 295
34998 REM *********************************************************************
34999 REM
35000 CLS : PRINT " HAVE YOURSELF A MERRY LITTLE CHRISTMAS": PRINT : PRINT
35005 PRINT "Have your-self a mer-ry lit-tle Christ-mas,"
35010 PLAY "mf t120o2l4cego3co2g8f8e8d8cd"
35015 PRINT "Let your heart be light."
35020 PLAY "cego3co2g2."
35025 PRINT "From now on, our troub-les will be out of sight."
35030 PLAY "ego3ced8c8o2b8a8gfe1"
35035 PRINT "Have your-self a mer-ry lit-tle Christ-mas,"
35040 PLAY "cego3co2g8f8e8d8cd"
35045 PRINT "Make the Yule-tide gay."
35050 PLAY "cego3co2g2."
35055 PRINT "From now on, our troub-les will be miles a-way."
35060 PLAY "ego3ced8c8o2b8a8g#bo3c2"
35065 PRINT "Here we are as in old-en days, hap-py gold-en days of yore."
35070 PLAY "eeed8c8o2b8o3c8d2c8o2b8a8b8o3c2o2bb2."
35075 PRINT "Faith-ful friends who are dear to us gather near to us once more"
35080 PLAY "o3ccco2b8a8g8a8b2g8a8b8o3c8d2o2dg2."
35085 PRINT "Through the years we all will be to-geth-er, if the Fates al-low."
35090 PLAY "cego3co2g8f8e8d8cdcego3co2g1"
35095 PRINT "Hang a shin-ing star up-on the high-est bough,"
35100 PLAY "ego3cef8e8d8c8o2bo3de2"
35105 PRINT "And have your-self a mer-ry lit-tle Christ-mas now."
35110 PLAY "o3eeo2fao3ce8d8c8o2b8abo3c1"
35200 GOTO 295
35998 REM *********************************************************************
35999 REM
36000 CLS : PRINT " THE NIGHT BEFORE CHRISTMAS SONG": PRINT
36002 FOR X = 1 TO 2: PRINT
36005 IF X = 1 THEN PRINT "'Twas the night be-fore Christ-mas and all thru the house,"
36007 IF X = 2 THEN PRINT "And so up to the house-top the rein-deer soon flew,"
36010 PLAY "mf t150o2l4g8g8o3c.c8c8o2bgbafag2"
36015 IF X = 1 THEN PRINT "not a crea-ture was stir-ring, not e-ven a mouse."
36017 IF X = 2 THEN PRINT "with the sleigh full of toys and Saint Nich-o-las too."
36020 PLAY "g8g8fdfecedcde2"
36025 IF X = 1 THEN PRINT "All the stock-ings were hung by the chim-ney with care,"
36027 IF X = 2 THEN PRINT "Down the chim-ney he came with a leap and a bound."
36030 PLAY "g8g8o3c.c8co2bgbafag2"
36035 IF X = 1 THEN PRINT "In the hope that Saint Nich-o-las soon would be there."
36037 IF X = 2 THEN PRINT "He was dressed all in fur and his bel-ly was round."
36040 PLAY "g8g8fdfecedco1bo2c2"
36045 IF X = 1 THEN PRINT "Then what to my won-der-ing eyes should ap-pear."
36047 IF X = 2 THEN PRINT "He spoke not a word but went straight to his work."
36050 PLAY "cag#ao3co2bago3co2eg2"
36055 IF X = 1 THEN PRINT "A min-ia-ture sleigh and eight ti-ny rein-deer."
36057 IF X = 2 THEN PRINT "And filled all the stock-ings; then turned with a jerk."
36060 PLAY "gfefagfegce2"
36065 IF X = 1 THEN PRINT "A lit-tle old driv-er so live-ly and quick,"
36067 IF X = 2 THEN PRINT "And lay-ing his fin-ger a-side of his nose,"
36070 PLAY "cag#ao3co2bago3co2eg2"
36075 IF X = 1 THEN PRINT "I knew in a mo-ment it must be Saint Nick."
36077 IF X = 2 THEN PRINT "then giv-ing a nod up the chim-ney he rose;"
36080 PLAY "gf#edo3co2baaggg2"
36085 IF X = 1 THEN PRINT "And more rap-id than ea-gles his rein-deer all came."
36087 IF X = 2 THEN PRINT "But I heard him ex-claim as he drove out of sight,"
36090 PLAY "g8g8o3c.c8co2bgbafag2"
36095 IF X = 1 THEN PRINT "As he shout-ed 'On Dash-er' and each rein-deer's name."
36097 IF X = 2 THEN PRINT "Mer-ry Christ-mas to all and to all a Good Night!"
36100 PLAY "g8g8fdfece"
36105 IF X = 1 THEN PLAY "dco1bo2c2"
36110 IF X = 2 THEN PLAY "gabo3c2."
36150 NEXT X
36200 GOTO 295
36998 REM *********************************************************************
36999 REM
37000 REM I am so glad on Christmas Eve
37002 REM "I am so glad- on Christ-mas Eve, the night of Je-sus' birth;"
37003 REM "That's when a star shone like the sun and an-gels sang on earth."
37004 REM "I am so glad- on Christ-mas Eve, my prais-es rise- a-bove,"
37005 REM "To Je-sus who has brought to earth the par-a-dise of love."
37010 PLAY "mb T135o2L4f8b-b-8o3d8.c16o2b-8ab-8o3co2f8o3cd8e-8.d16c8d2."
37020 PLAY "o2f8b-b-8o3d8.c16o2b-8ag8o3e-c8o2b-b-8a8.g16a8b-2."
37100 GOTO 295
37998 REM *********************************************************************
37999 REM
38000 REM FROM HEAVEN ABOVE TO EARTH I COME
38002 REM ?"From heav'n a-bove to earth I come,"
38003 REM ?"To bear good news to- ev-'ry home."
38004 REM ?"Glad ti-dings of- great joy- I bring,"
38005 REM ?"Where-of I now will- glad-ly sing."
38006 REM verse 2
38007 REM ?"To you this night is born a Child"
38008 REM ?"Of Mary, chosen mother mild;"
38009 REM ?"This little Child of lowly birth;"
38010 REM ?"Shall be the joy of all the earth."
38011 REM verse 3
38012 REM ?"Glory to God in highest heav'n"
38013 REM ?"Who unto us His Son hath giv'n!"
38014 REM ?"While angels sing with pious mirth,"
38015 REM ?"A glad New Year to all the earth."
38020 PLAY "MF T140O3L4DC#O2BO3C#O2ABO3C#D."
38030 PLAY "O3DDO2AAF#8G8AGF#."
38040 PLAY "F#BBA8B8O3C#D8C#8o2BA."
38050 PLAY "O3DC#O2BAB8A8G8F#8ED."
38100 SYSTEM
38998 REM *********************************************************************
38999 REM
39998 REM *********************************************************************
39999 REM
Tags: #BASIC, #programming