mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
Added new _STRCMP and _STRICMP commands for quick string comparisons. Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders. Altered UCASE and LCASE routines to be faster in some situations for us.
1328 lines
70 KiB
QBasic
1328 lines
70 KiB
QBasic
10 REM *** CAROLS.BAS A selection of Christmas Carols by Greg Rismoen 12/09/84
|
||
20 REM
|
||
30 REM Merry Christmas! This was programmed on my own time at home on an IBM-XT.
|
||
40 REM Donated to the public domain. All rights reserved. Not for commercial use.
|
||
'50 KEY OFF
|
||
'60 KEY (1) ON
|
||
'70 ON KEY (1) GOSUB 250
|
||
80 CLS: INPUT "Are you using a Color Monitor (enter Y or N) ? ", C$
|
||
90 IF C$ = "Y" OR C$ = "y" OR C$ = "N" OR C$ = "n" THEN 100 ELSE GOTO 80
|
||
100 IF C$ = "N" OR C$ = "n" THEN CC = 0 ELSE CC = 1
|
||
110 SCREEN 0: COLOR 7, CC: CLS
|
||
120 LOCATE 5, 20
|
||
130 PRINT CHR$(201); STRING$(40, 205); CHR$(187)
|
||
140 FOR X = 6 TO 17
|
||
150 LOCATE X, 20
|
||
160 PRINT CHR$(186);
|
||
170 LOCATE X, 61
|
||
180 PRINT CHR$(186)
|
||
190 NEXT X
|
||
200 LOCATE X, 20: PRINT CHR$(200); STRING$(40, 205); CHR$(188)
|
||
210 LOCATE 10, 33: PRINT "CHRISTMAS CAROLS"
|
||
220 LOCATE 13, 33: PRINT " presented by"
|
||
230 LOCATE 15, 33: PRINT " Greg Rismoen"
|
||
240 GOTO 12910
|
||
'250 RETURN 260
|
||
260 RESTORE
|
||
270 CLS
|
||
280 PLAY "MN"
|
||
290 LOCATE 1, 2
|
||
300 PRINT CHR$(201); STRING$(76, 205); CHR$(187)
|
||
310 FOR X = 2 TO 22
|
||
320 LOCATE X, 2
|
||
330 PRINT CHR$(186);
|
||
340 LOCATE X, 79
|
||
350 PRINT CHR$(186)
|
||
360 NEXT X
|
||
370 LOCATE X, 2: PRINT CHR$(200); STRING$(76, 205); CHR$(188)
|
||
380 LOCATE 3, 2: PRINT CHR$(204); STRING$(76, 205); CHR$(185)
|
||
390 LOCATE 3, 41: PRINT CHR$(203)
|
||
400 LOCATE 23, 41: PRINT CHR$(202)
|
||
410 FOR X = 4 TO 22: LOCATE X, 41: PRINT CHR$(186): NEXT X
|
||
420 LOCATE 2, 20: PRINT "CHRISTMAS CAROLS presented by: Greg Rismoen"
|
||
430 LOCATE 4, 5: PRINT "1) THE TWELVE DAYS OF CHRISTMAS"
|
||
440 LOCATE 5, 5: PRINT "2) JOY TO THE WORLD"
|
||
450 LOCATE 6, 5: PRINT "3) O LITTLE TOWN OF BETHLEHEM"
|
||
460 LOCATE 7, 5: PRINT "4) SILENT NIGHT"
|
||
470 LOCATE 8, 5: PRINT "5) I HEARD THE BELLS ON XMAS DAY"
|
||
480 LOCATE 9, 5: PRINT "6) O COME ALL YE FAITHFUL"
|
||
490 LOCATE 10, 5: PRINT "7) GOOD KING WENCESLAS"
|
||
500 LOCATE 11, 5: PRINT "8) WE THREE KINGS"
|
||
510 LOCATE 12, 5: PRINT "9) GO TELL IT ON THE MOUNTAIN"
|
||
520 LOCATE 13, 4: PRINT "10) AWAY IN A MANGER"
|
||
530 LOCATE 14, 4: PRINT "11) WHAT CHILD IS THIS?"
|
||
540 LOCATE 15, 4: PRINT "12) O COME, LITTLE CHILDREN"
|
||
550 LOCATE 16, 4: PRINT "13) O HOLY NIGHT"
|
||
560 LOCATE 17, 4: PRINT "14) IT CAME UPON THE MIDNIGHT CLEAR"
|
||
570 LOCATE 18, 4: PRINT "15) THE FIRST NOEL"
|
||
580 LOCATE 19, 4: PRINT "16) GOD REST YOU MERRY GENTLEMEN"
|
||
590 LOCATE 20, 4: PRINT "17) DECK THE HALLS W/BOUGHS OF HOLLY"
|
||
600 LOCATE 21, 4: PRINT "18) HARK THE HERALD ANGELS SING"
|
||
610 LOCATE 4, 43: PRINT "19) ANGELS WE HAVE HEARD ON HIGH"
|
||
620 LOCATE 5, 43: PRINT "20) SHEPHERDS WATCHED THEIR FLOCKS"
|
||
630 LOCATE 6, 43: PRINT "21) IT'S BEGINNING TO LOOK LIKE XMAS"
|
||
640 LOCATE 7, 43: PRINT "22) WE WISH YOU A MERRY CHRISTMAS"
|
||
650 LOCATE 8, 43: PRINT "23) LET IT SNOW! LET IT SNOW!"
|
||
660 LOCATE 9, 43: PRINT "24) I'LL BE HOME FOR CHRISTMAS"
|
||
670 LOCATE 10, 43: PRINT "25) HOME FOR THE HOLIDAYS"
|
||
680 LOCATE 11, 43: PRINT "26) SILVER BELLS"
|
||
690 LOCATE 12, 43: PRINT "27) JOLLY OLD SAINT NICHOLAS"
|
||
700 LOCATE 13, 43: PRINT "28) JINGLE BELLS"
|
||
710 LOCATE 14, 43: PRINT "29) FROSTY THE SNOWMAN"
|
||
720 LOCATE 15, 43: PRINT "30) RUDOLPH THE RED-NOSED REINDEER"
|
||
730 LOCATE 16, 43: PRINT "31) SLEIGH RIDE"
|
||
740 LOCATE 17, 43: PRINT "32) O CHRISTMAS TREE"
|
||
750 LOCATE 18, 43: PRINT "33) SANTA CLAUS IS COMING TO TOWN"
|
||
760 LOCATE 19, 43: PRINT "34) HERE COMES SANTA CLAUS"
|
||
770 LOCATE 20, 43: PRINT "35) HAVE YOURSELF A MERRY CHRISTMAS"
|
||
780 LOCATE 21, 43: PRINT "36) TWAS THE NIGHT BEFORE CHRISTMAS"
|
||
790 LOCATE 22, 43: PRINT "99) EXIT TO DOS"
|
||
800 LOCATE 22, 13: INPUT "SELECT BY NUMBER: ", A$
|
||
810 IF A$ = "1" THEN GOTO 1270
|
||
820 IF A$ = "2" THEN GOTO 2200
|
||
830 IF A$ = "3" THEN GOTO 2540
|
||
840 IF A$ = "4" THEN GOTO 2800
|
||
850 IF A$ = "5" THEN GOTO 3660
|
||
860 IF A$ = "6" THEN GOTO 4790
|
||
870 IF A$ = "7" THEN GOTO 5050
|
||
880 IF A$ = "8" THEN GOTO 5430
|
||
890 IF A$ = "9" THEN GOTO 5690
|
||
900 IF A$ = "10" THEN GOTO 5990
|
||
910 IF A$ = "11" THEN GOTO 6260
|
||
920 IF A$ = "12" THEN GOTO 6440
|
||
930 IF A$ = "13" THEN GOTO 6700
|
||
940 IF A$ = "14" THEN GOTO 6920
|
||
950 IF A$ = "15" THEN GOTO 7140
|
||
960 IF A$ = "16" THEN GOTO 7420
|
||
970 IF A$ = "17" THEN GOTO 7670
|
||
980 IF A$ = "18" THEN GOTO 7890
|
||
990 IF A$ = "19" THEN GOTO 8130
|
||
1000 IF A$ = "20" THEN GOTO 8290
|
||
1010 IF A$ = "21" THEN GOTO 8470
|
||
1020 IF A$ = "22" THEN GOTO 8710
|
||
1030 IF A$ = "23" THEN GOTO 8850
|
||
1040 IF A$ = "24" THEN GOTO 9080
|
||
1050 IF A$ = "25" THEN GOTO 9310
|
||
1060 IF A$ = "26" THEN GOTO 9620
|
||
1070 IF A$ = "27" THEN GOTO 9920
|
||
1080 IF A$ = "28" THEN GOTO 10120
|
||
1090 IF A$ = "29" THEN GOTO 10420
|
||
1100 IF A$ = "30" THEN GOTO 10770
|
||
1110 IF A$ = "31" THEN GOTO 11190
|
||
1120 IF A$ = "32" THEN GOTO 11470
|
||
1130 IF A$ = "33" THEN GOTO 11680
|
||
1140 IF A$ = "34" THEN GOTO 11980
|
||
1150 IF A$ = "35" THEN GOTO 12270
|
||
1160 IF A$ = "36" THEN GOTO 12530
|
||
1170 IF A$ = "99" THEN GOTO 13010
|
||
1180 CLS
|
||
1190 LOCATE 10, 20
|
||
1200 COLOR CC, 7
|
||
1210 PRINT "YOU HAVE SELECTED AN OPTION THAT DOES NOT APPEAR ON THE MENU"
|
||
1220 FOR X = 1 TO 3000: NEXT
|
||
1230 COLOR 7, CC
|
||
1240 GOTO 260
|
||
1250 REM **********************************************************************
|
||
1260 REM
|
||
1270 CLS: PRINT "THE TWELVE DAYS OF CHRISTMAS": PRINT: PRINT
|
||
1280 'music programmed by Lynn Long, lyrics programmed by Greg Rismoen
|
||
1290 PRINT "On the first day of Christmas my true love sent to me"
|
||
1300 PLAY "T125 O2p4C8C8C4F8F8F4E8F8G8A8B-8G8A4."
|
||
1310 PRINT "A partridge in a pear tree."
|
||
1320 PLAY "B-8O3C4D8O2B-8A8F8G4F2."
|
||
1330 FOR X = 1 TO 4
|
||
1340 IF X = 1 THEN PRINT "On the second day of Christmas my true love sent to me"
|
||
1350 IF X = 2 THEN PRINT "On the third day of Christmas my true love sent to me"
|
||
1360 IF X = 3 THEN PRINT "On the fourth day of Christmas my true love sent to me"
|
||
1370 IF X = 4 THEN PRINT "On the fifth day of Christmas my true love sent to me"
|
||
1380 PLAY "O2C8C8C4F8F8F4E8F8G8A8B-8G8A4."
|
||
1390 GOSUB 1410
|
||
1400 NEXT
|
||
1410 FOR A = 1 TO X
|
||
1420 IF X = 4 THEN 1540
|
||
1430 IF X = 3 AND A = 1 THEN 2100
|
||
1440 IF X = 3 AND A = 2 THEN 2090
|
||
1450 IF X = 3 AND A = 3 THEN 2080
|
||
1460 IF X = 2 AND A = 1 THEN 2090
|
||
1470 IF X = 2 AND A = 2 THEN 2080
|
||
1480 IF X = 1 THEN GOTO 2080
|
||
1490 PLAY "O3C4O2G8A8B-4"
|
||
1500 NEXT
|
||
1510 PRINT "And a partridge in a pear tree."
|
||
1520 PLAY "A8B-8O3C4D8O2B-8A8F8G4F2."
|
||
1530 RETURN
|
||
1540 PRINT "Five go-ld rings!"
|
||
1550 PLAY "O3C2D2O2B2.O3C1"
|
||
1560 PRINT "Four calling birds, three French hens, two turtle doves, "
|
||
1570 PRINT "And a partridge in a pear tree."
|
||
1580 PLAY "C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
|
||
1590 FOR X = 1 TO 7
|
||
1600 IF X = 1 THEN PRINT "On the sixth day of Christmas my true love sent to me"
|
||
1610 IF X = 2 THEN PRINT "On the seventh day of Christmas my true love sent to me"
|
||
1620 IF X = 3 THEN PRINT "On the eighth day of Christmas my true love sent to me"
|
||
1630 IF X = 4 THEN PRINT "On the ninth day of Christmas my true love sent to me"
|
||
1640 IF X = 5 THEN PRINT "On the tenth day of Christmas my true love sent to me"
|
||
1650 IF X = 6 THEN PRINT "On the eleventh day of Christmas my true love sent to me"
|
||
1660 IF X = 7 THEN PRINT "On the twelfth day of Christmas my true love sent to me"
|
||
1670 PLAY "O2C8C8C8C8F8F8F4E8F8G8A8B-8G8A2"
|
||
1680 FOR A = 1 TO X
|
||
1690 IF X = 1 THEN GOTO 2110
|
||
1700 IF X = 2 AND A = 1 THEN GOTO 2120
|
||
1710 IF X = 2 AND A = 2 THEN GOTO 2110
|
||
1720 IF X = 3 AND A = 1 THEN GOTO 2130
|
||
1730 IF X = 3 AND A = 2 THEN GOTO 2120
|
||
1740 IF X = 3 AND A = 3 THEN GOTO 2110
|
||
1750 IF X = 4 AND A = 1 THEN GOTO 2140
|
||
1760 IF X = 4 AND A = 2 THEN GOTO 2130
|
||
1770 IF X = 4 AND A = 3 THEN GOTO 2120
|
||
1780 IF X = 4 AND A = 4 THEN GOTO 2110
|
||
1790 IF X = 5 AND A = 1 THEN GOTO 2150
|
||
1800 IF X = 5 AND A = 2 THEN GOTO 2140
|
||
1810 IF X = 5 AND A = 3 THEN GOTO 2130
|
||
1820 IF X = 5 AND A = 4 THEN GOTO 2120
|
||
1830 IF X = 5 AND A = 5 THEN GOTO 2110
|
||
1840 IF X = 6 AND A = 1 THEN GOTO 2160
|
||
1850 IF X = 6 AND A = 2 THEN GOTO 2150
|
||
1860 IF X = 6 AND A = 3 THEN GOTO 2140
|
||
1870 IF X = 6 AND A = 4 THEN GOTO 2130
|
||
1880 IF X = 6 AND A = 5 THEN GOTO 2120
|
||
1890 IF X = 6 AND A = 6 THEN GOTO 2110
|
||
1900 IF X = 7 AND A = 1 THEN GOTO 2170
|
||
1910 IF X = 7 AND A = 2 THEN GOTO 2160
|
||
1920 IF X = 7 AND A = 3 THEN GOTO 2150
|
||
1930 IF X = 7 AND A = 4 THEN GOTO 2140
|
||
1940 IF X = 7 AND A = 5 THEN GOTO 2130
|
||
1950 IF X = 7 AND A = 6 THEN GOTO 2120
|
||
1960 IF X = 7 AND A = 7 THEN GOTO 2110
|
||
1970 PLAY "O3C8C8O2G8A8B-8G8"
|
||
1980 NEXT A
|
||
1990 PRINT "Five go-ld rings!"
|
||
2000 PLAY "O3C2D2O2B..O3C1"
|
||
2010 PRINT "Four calling birds, three French hens, two turtle doves, "
|
||
2020 PRINT "And a Partridge in a pear tree."
|
||
2030 PLAY "C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
|
||
2040 NEXT X
|
||
2050 PRINT "And a Partridge in a pear tree!"
|
||
2060 PLAY "T75P4O2A8B-8O3C4D8O2B-8A8F8G4F2."
|
||
2070 GOTO 260
|
||
2080 PRINT "Two turtle doves,": GOTO 1490
|
||
2090 PRINT "Three French hens,": GOTO 1490
|
||
2100 PRINT "Four calling birds,": GOTO 1490
|
||
2110 PRINT "Six geese a-laying,": GOTO 1970
|
||
2120 PRINT "Seven swans a-swimming,": GOTO 1970
|
||
2130 PRINT "Eight maids a-milking,": GOTO 1970
|
||
2140 PRINT "Nine Ladies dancing,": GOTO 1970
|
||
2150 PRINT "Ten Lords a-leaping,": GOTO 1970
|
||
2160 PRINT "Eleven pipers piping,": GOTO 1970
|
||
2170 PRINT "Twelve drummers drumming,": GOTO 1970
|
||
2180 REM **********************************************************************
|
||
2190 REM
|
||
2200 CLS: PRINT "JOY TO THE WORLD": PRINT
|
||
2210 FOR X = 1 TO 3
|
||
2220 IF X = 1 THEN LOCATE 3, 1: PRINT "Joy to the World!"
|
||
2230 IF X = 2 THEN LOCATE 11, 1: PRINT "Joy to the World!"
|
||
2240 IF X = 3 THEN LOCATE 19, 1: PRINT "He rules the World"
|
||
2250 PLAY "O3p4D4C#8.O2B16A4."
|
||
2260 IF X = 1 THEN PRINT "the Lord is come;"
|
||
2270 IF X = 2 THEN PRINT "the Saviour reigns;"
|
||
2280 IF X = 3 THEN PRINT "with truth and grace,"
|
||
2290 PLAY "G8F#4E4D4."
|
||
2300 IF X = 1 THEN PRINT "Let earth re-ceive her King;"
|
||
2310 IF X = 2 THEN PRINT "Let men their songs em-ploy;"
|
||
2320 IF X = 3 THEN PRINT "And makes the na-tions prove"
|
||
2330 PLAY "A8B4.B8O3C#4.C#8D2P16"
|
||
2340 IF X = 1 THEN PRINT "Let ev-'ry heart pre-pare Him room,"
|
||
2350 IF X = 2 THEN PRINT "While fields and floods, rocks, hills and plains"
|
||
2360 IF X = 3 THEN PRINT "The glo-ries of His right-eous-ness,"
|
||
2370 PLAY "D8D8C#8O2B8A8A8.G16F#8O3D8D8C#8O2B8A8A8.G16F#8"
|
||
2380 IF X = 1 THEN PRINT "And heav'n and na-ture sing,"
|
||
2390 IF X = 2 THEN PRINT "Re-peat the sound-ing joy,"
|
||
2400 IF X = 3 THEN PRINT "And won-ders of His love,"
|
||
2410 PLAY "F#8F#8F#8F#8F#16G16A4."
|
||
2420 IF X = 1 THEN PRINT "And heav'n and na-ture sing,"
|
||
2430 IF X = 2 THEN PRINT "Re-peat the sound-ing joy,"
|
||
2440 IF X = 3 THEN PRINT "And won-ders of His love,"
|
||
2450 PLAY "G16F#16E8E8E8E16F#16G4."
|
||
2460 IF X = 1 THEN PRINT "And heav'n and heav-'n and na-ture sing."
|
||
2470 IF X = 2 THEN PRINT "Re-peat, re-peat the sound-ing joy."
|
||
2480 IF X = 3 THEN PRINT "And won-ders, and won-ders of His love."
|
||
2490 PLAY "F#16E16D8O3D4O2B8A8.G16F#8G8F#4E4D2"
|
||
2500 NEXT X
|
||
2510 GOTO 260
|
||
2520 REM **********************************************************************
|
||
2530 REM
|
||
2540 CLS: PRINT "O LITTLE TOWN OF BETHLEHEM": PRINT
|
||
2550 FOR X = 1 TO 4
|
||
2560 IF X = 1 THEN PRINT "O lit-tle town of Beth-le-hem, How still we see thee lie!"
|
||
2570 IF X = 2 THEN LOCATE 8, 1: PRINT "For Christ is born of Ma-ry, and gath-ered all a-bove,"
|
||
2580 IF X = 3 THEN LOCATE 13, 1: PRINT "How silently, how silently, The wondrous gift is giv'n!"
|
||
2590 IF X = 4 THEN LOCATE 18, 1: PRINT "O holy Child of Bethlehem, Descend to us, we pray;"
|
||
2600 PLAY "t120o2p4b4P64B4P64B4A#4B4O3D4C4O2E4A4G4F#8G8A4D4b2."
|
||
2610 IF X = 1 THEN PRINT "Above thy deep and dream-less sleep, the si-lent stars go by;"
|
||
2620 IF X = 2 THEN PRINT "While mor-tals sleep, the an-gels keep Their watch of won-d'ring love."
|
||
2630 IF X = 3 THEN PRINT "So God imparts to human hearts the blessings of His heav'n."
|
||
2640 IF X = 4 THEN PRINT "Cast out our sin and enter in; Be born in us today!"
|
||
2650 PLAY "P64B4P64B4P64B4O3E4D4P64D4C4O2E4A4G4F#8g8b4a4g2."
|
||
2660 IF X = 1 THEN PRINT "Yet in the dark streets shin-eth the ev-er-last-ing Light;"
|
||
2670 IF X = 2 THEN PRINT "O morn-ing stars, to-geth-er Pro-claim the holy birth,"
|
||
2680 IF X = 3 THEN PRINT "No ear may hear His coming, But in this world of sin,"
|
||
2690 IF X = 4 THEN PRINT "We hear the Christmas angels The great glad tidings tell;"
|
||
2700 PLAY "B4P64B4P64B4A4G4F#2P64F#4P64F#4E4f#4g4a4b2."
|
||
2710 IF X = 1 THEN PRINT "The hopes and fears of all the years are met in thee to-night."
|
||
2720 IF X = 2 THEN PRINT "And prais-es sing to God the King, And peace to men on earth!"
|
||
2730 IF X = 3 THEN PRINT "Where meek souls will receive Him still, the dear Christ enters in."
|
||
2740 IF X = 4 THEN PRINT "O come to us, abide with us, our Lord Emmanuel!"
|
||
2750 PLAY "P64B4P64B4P64B4A#4B4O3D4C4O2E4O3e4d4o2g4b4.a8g2."
|
||
2760 NEXT X
|
||
2770 GOTO 260
|
||
2780 REM **********************************************************************
|
||
2790 REM
|
||
2800 CLS: PRINT "SILENT NIGHT": PRINT
|
||
2810 ' Silent Night in harmony - music programmed by Steve Schlich 12/2/84
|
||
2820 ' Lyrics and multiple verses programmed by Greg Rismoen 12/09/84
|
||
2830 FOR X = 1 TO 5: PRINT
|
||
2840 IF X = 2 GOTO 2920
|
||
2850 IF X = 3 GOTO 2960
|
||
2860 IF X = 4 GOTO 3000
|
||
2870 IF X = 5 GOTO 3040
|
||
2880 PRINT "Silent Night! Holy Night! All is calm, all is bright;"
|
||
2890 PRINT "Round yon Vir-gin Moth-er and Child! Ho-ly In-fant so tender and mild,"
|
||
2900 PRINT "Sleep in heav-en-ly peace, Sleep in heav-en-ly peace."
|
||
2910 GOTO 3160
|
||
2920 PRINT "Silent Night! Holy night! Shepherds quake at the sight!"
|
||
2930 PRINT "Glories stream from heaven afar, Heavenly hosts sing Alleluia."
|
||
2940 PRINT "Christ, the Saviour is born! Christ, the Saviour is born!"
|
||
2950 GOTO 3160
|
||
2960 PRINT "Silent Night! Holiest night! Darkness flies and all is light!"
|
||
2970 PRINT "Shepherds hear the angels sing: Hallelujah! Hail the King!"
|
||
2980 PRINT "Jesus the Saviour is here! Jesus the Saviour is here!"
|
||
2990 GOTO 3160
|
||
3000 PRINT "Silent Night! Holiest Night! Guiding star, O lend thy light"
|
||
3010 PRINT "See the eastern wise men bring Gifts and homage to our King!"
|
||
3020 PRINT "Jesus the Saviour is here! Jesus the Saviour is here!"
|
||
3030 GOTO 3160
|
||
3040 PRINT "Stil-le Nacht, hei-li-ge Nacht! Al-les schlft, ein-sam wacht?"
|
||
3050 PRINT "Nur das trau-te hoch-hei-li-ge Paar, Hol-der Kna-be mit lok-ki-gem Haar."
|
||
3060 PRINT "Schlaf im himm-li-scher Ruh, Schlaf im himm-li-scher Ruh!"
|
||
3070 GOTO 3160
|
||
3080 REM PLAY "ML T140 L3 o3; g. a6 g e1"
|
||
3090 REM PLAY "g. a6 g e1"
|
||
3100 REM PLAY "o4 d. p6 d o3 b1
|
||
3110 REM PLAY "o4 c. p6 c o3 g1
|
||
3120 REM PLAY "o3 a. p6 a o4 c. o3 b6 a g. a6 g e1
|
||
3130 REM PLAY "o3 a. p6 a o4 c. o3 b6 a g. a6 g e1
|
||
3140 REM PLAY "o4 d. p6 d f. d6 o3 b o4 c1 e1
|
||
3150 REM PLAY "o4 c o3 g e g. f6 d c1 c1
|
||
3160 PLAY "ML T250 L24 o3; gegegegegegegegegegegege"
|
||
3170 PLAY "o3afafafaf "
|
||
3180 PLAY "o3gegegegegegegege"
|
||
3190 PLAY "o3ecececececececececececececececececececececececec"
|
||
3200 PLAY "o3gegegegegegegegegegegege "
|
||
3210 PLAY "o3afafafaf "
|
||
3220 PLAY "o3gegegegegegegege"
|
||
3230 PLAY "o3ecececececececececececececececececececececececec"
|
||
3240 PLAY "o4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3f p12"
|
||
3250 PLAY "o4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3fo4do3f"
|
||
3260 PLAY "o3bgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbgbg"
|
||
3270 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e p12"
|
||
3280 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e"
|
||
3290 PLAY "o3gegegegegegegegegegegegegegegegegegegegegegegege"
|
||
3300 PLAY "o3afafafafafafafafafafafafafafaf p12"
|
||
3310 PLAY "o3afafafafafafafaf "
|
||
3320 PLAY "o4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3a "
|
||
3330 PLAY "o3bgbgbgbg"
|
||
3340 PLAY "o3afafafafafafafaf"
|
||
3350 PLAY "o3gegegegegegegegegegegege"
|
||
3360 PLAY "o3afafafaf"
|
||
3370 PLAY "o3gegegegegegegege"
|
||
3380 PLAY "o3ecececececececececececececececececececececececec"
|
||
3390 PLAY "o3afafafafafafafafafafafafafafaf p12"
|
||
3400 PLAY "o3afafafafafafafaf "
|
||
3410 PLAY "o4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3ao4co3a "
|
||
3420 PLAY "o3bgbgbgbg"
|
||
3430 PLAY "o3afafafafafafafaf"
|
||
3440 PLAY "o3gegegegegegegegegegegege"
|
||
3450 PLAY "o3afafafaf"
|
||
3460 PLAY "o3gegegegegegegege"
|
||
3470 PLAY "o3ecececececececececececececececececececececececec"
|
||
3480 PLAY "o4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3b p12"
|
||
3490 PLAY "o4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3bo4do3b "
|
||
3500 PLAY "o4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3bo4fo3b "
|
||
3510 PLAY "o4do3bo4do3bo4do3bo4do3b "
|
||
3520 PLAY "o3bfbfbfbfbfbfbfbf"
|
||
3530 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e"
|
||
3540 PLAY "o4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3go4eo3g"
|
||
3550 PLAY "o4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3eo4co3e"
|
||
3560 PLAY "o3gegegegegegegege"
|
||
3570 PLAY "o3ecececececececec"
|
||
3580 PLAY "o3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2bo3go2b"
|
||
3590 PLAY "o3fo2bo3fo2bo3fo2bo3fo2b"
|
||
3600 PLAY "o3do2bo3do2bo3do2bo3do2bo3do2bo3do2bo3do2bo3do2b"
|
||
3610 PLAY "o3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2e"
|
||
3620 NEXT X
|
||
3630 GOTO 260
|
||
3640 REM **********************************************************************
|
||
3650 REM
|
||
3660 CLS: PRINT "I HEARD THE BELLS ON CHRISTMAS DAY": PRINT: PRINT
|
||
3670 N = 34
|
||
3680 L = 6
|
||
3690 PLAY "mll64t150o3"
|
||
3700 FOR REPEAT = 1 TO 5
|
||
3710 ON REPEAT GOSUB 4130, 4270, 4390, 4510, 4630
|
||
3720 FOR X = 1 TO N
|
||
3730 READ K: READ K$
|
||
3740 FOR M = 1 TO K * L
|
||
3750 PLAY K$
|
||
3760 NEXT M
|
||
3770 NEXT X
|
||
3780 RESTORE 230
|
||
3790 NEXT REPEAT
|
||
3800 GOTO 4750
|
||
3810 DATA 1,o3e-o2b-ge-
|
||
3820 DATA 1.5,o3ge-o2b-e-
|
||
3830 DATA .5,o3f#e-o2b-o1b-
|
||
3840 DATA 1,o3ge-o2b-e-
|
||
3850 DATA 1,o3gd-o2b-e
|
||
3860 DATA 1.5,o3a-do2b-f
|
||
3870 DATA .5,o3gdo2b-o1b-
|
||
3880 DATA 1,o3a-do2b-f
|
||
3890 DATA 1,o3ae-o2b-f#
|
||
3900 DATA 1,o3b-e-o2b-g
|
||
3910 DATA 1,o4e-o3go2b-o1b-
|
||
3920 DATA 1,o4do3go2b-o1b-
|
||
3930 DATA 1,o4co3e-e-o2g
|
||
3940 DATA 1.5,o4co3fdo2a-
|
||
3950 DATA .5,o3b-fdo2a-,.25,p64
|
||
3960 DATA 1,o3b-fdo2a-
|
||
3970 DATA 1,o3b-e-e-o2g
|
||
3980 DATA 1.5,o3b-e-co2a-
|
||
3990 DATA .5,o3a-e-co2a-
|
||
4000 DATA 1,o3ge-o2b-e-
|
||
4010 DATA 1,o3a-o2b-fo1e-
|
||
4020 DATA 1.5,o3go2bgd
|
||
4030 DATA .5,o3fo2bgd
|
||
4040 DATA 1,o3e-co2gc
|
||
4050 DATA 1,o3fe-o2a-c
|
||
4060 DATA 1,o3ge-o2b-o1b-
|
||
4070 DATA 1,o3a-e-co1a-
|
||
4080 DATA 1,o3b-e-o2b-o1g,.25,p64
|
||
4090 DATA 1,o4co3e-o2fo1a-
|
||
4100 DATA 1.5,o3do2b-fo1b-
|
||
4110 DATA .5,o3fdo2a-o1b-
|
||
4120 DATA 2,o3e-o2ge-o1e-,.5,p64
|
||
4130 ' first verse
|
||
4140 '
|
||
4150 B$ = " "
|
||
4160 TITLE1$ = "I HEARD THE BELLS"
|
||
4170 TITLE2$ = " ON CHRISTMAS DAY"
|
||
4180 CLS
|
||
4190 LOCATE 2, (40 - LEN(TITLE1$)) / 2: PRINT TITLE1$
|
||
4200 LOCATE 4, (40 - LEN(TITLE2$)) / 2: PRINT TITLE2$
|
||
4210 LOCATE 10
|
||
4220 PRINT "I heard the bells on Christmas day"
|
||
4230 PRINT: PRINT "Their old familiar carols play"
|
||
4240 PRINT: PRINT "And wild and sweet the words repeat"
|
||
4250 PRINT: PRINT "Of peace on earth, good will to men"
|
||
4260 RETURN
|
||
4270 ' second verse
|
||
4280 '
|
||
4290 LOCATE 10
|
||
4300 FOR LN = 1 TO 4
|
||
4310 PRINT B$: PRINT
|
||
4320 NEXT LN
|
||
4330 '
|
||
4340 LOCATE 10: PRINT "I thought how as the day had come"
|
||
4350 PRINT: PRINT "The belfries of all Christendom"
|
||
4360 PRINT: PRINT "Had roll'd along th'unbroken song"
|
||
4370 PRINT: PRINT "Of peace on earth, good will to men"
|
||
4380 RETURN
|
||
4390 ' third verse
|
||
4400 '
|
||
4410 LOCATE 10
|
||
4420 FOR LN = 1 TO 4
|
||
4430 PRINT B$: PRINT
|
||
4440 NEXT LN
|
||
4450 '
|
||
4460 LOCATE 10: PRINT "And in despair I hung my head"
|
||
4470 PRINT: PRINT "`There is no peace on earth,' I said"
|
||
4480 PRINT: PRINT "For hate is strong and mocks the song"
|
||
4490 PRINT: PRINT "Of peace on earth, good will to men"
|
||
4500 RETURN
|
||
4510 'fourth verse
|
||
4520 '
|
||
4530 LOCATE 10
|
||
4540 FOR LN = 1 TO 4
|
||
4550 PRINT B$: PRINT
|
||
4560 NEXT LN
|
||
4570 '
|
||
4580 LOCATE 10: PRINT "Then pealed the bells more loud and deep"
|
||
4590 PRINT: PRINT "God is not dead nor doth he sleep"
|
||
4600 PRINT: PRINT "The wrong shall fail the right prevail"
|
||
4610 PRINT: PRINT "With peace on earth, good will to men"
|
||
4620 RETURN
|
||
4630 ' fifth verse
|
||
4640 '
|
||
4650 LOCATE 10
|
||
4660 FOR LN = 1 TO 4
|
||
4670 PRINT B$: PRINT
|
||
4680 NEXT LN
|
||
4690 '
|
||
4700 LOCATE 10: PRINT "Till ringing singing on its way"
|
||
4710 PRINT: PRINT "The world revolved from night to day"
|
||
4720 PRINT: PRINT "A voice a chime a chant sublime"
|
||
4730 PRINT: PRINT "Of peace on earth, good will to men"
|
||
4740 RETURN
|
||
4750 FOR X = 1 TO 2000: NEXT
|
||
4760 GOTO 260
|
||
4770 REM **********************************************************************
|
||
4780 REM
|
||
4790 CLS: PRINT "O COME, ALL YE FAITHFUL (Adeste Fideles)": PRINT
|
||
4800 FOR X = 1 TO 3: PRINT
|
||
4810 IF X = 1 THEN PRINT "O come all ye faith-ful, Joy-ful and tri-um-phant,"
|
||
4820 IF X = 1 THEN PRINT "O come ye, O come ye to Beth-le-hem."
|
||
4830 IF X = 1 THEN PRINT "Come and be-hold Him, Born the King of an-gels,"
|
||
4840 IF X = 1 THEN PRINT "O come, let us a-dore Him, O come, let us a-dore Him,"
|
||
4850 IF X = 1 THEN PRINT "O come, let us a-dore Him, Christ the Lord."
|
||
4860 IF X = 2 THEN PRINT "Sing choirs of angels, Sing in exultation,"
|
||
4870 IF X = 2 THEN PRINT "Sing, all ye citizens of Heav'n above."
|
||
4880 IF X = 2 THEN PRINT "Glo-ry to God--, In-- the-- high-est."
|
||
4890 IF X = 2 THEN PRINT "O come, let us a-dore Him, O come, let us a-dore Him,"
|
||
4900 IF X = 2 THEN PRINT "O come, let us a-dore Him, Christ the Lord."
|
||
4910 IF X = 3 THEN PRINT "Adeste Fideles laeti triumphantes"
|
||
4920 IF X = 3 THEN PRINT "Venite, venite to Bethlehem."
|
||
4930 IF X = 3 THEN PRINT "Natum vedete regem angelorum"
|
||
4940 IF X = 3 THEN PRINT "Venite adoremus, Venite adoremus,"
|
||
4950 IF X = 3 THEN PRINT "Venite adoremus, Dominum."
|
||
4960 PLAY "ML O2p4G8.P8G2D4G4A2D2B4A4B4O3C4O2B2A4G8.P16G2F#4E4F#4"
|
||
4970 PLAY "G4A4B4F#2E4.D16.P32D2.P4O3D2C4O2B4O3C2O2B2A4B4G4"
|
||
4980 PLAY "A4F#4.E8D4G8.P16G4F#4G4A4G2D4B8.P16B4A4B4O3C4O2B2"
|
||
4990 PLAY "A4B4O3C4O2B4A4G4F#2G4O3C4O2B2A4.G16.P32G2."
|
||
5000 PLAY "p8"
|
||
5010 NEXT X
|
||
5020 GOTO 260
|
||
5030 REM **********************************************************************
|
||
5040 REM
|
||
5050 CLS: PRINT " GOOD KING WENCESLAS": PRINT
|
||
5060 FOR X = 1 TO 5: PRINT
|
||
5070 IF X = 2 GOTO 5160
|
||
5080 IF X = 3 GOTO 5210
|
||
5090 IF X = 4 GOTO 5260
|
||
5100 IF X = 5 GOTO 5310
|
||
5110 PRINT "Good King Wen-ces-las looked out On the feast of Ste-phen."
|
||
5120 PRINT "When the snow lay 'round a-bout, Deep and crisp and e-ven."
|
||
5130 PRINT "Bright-ly shone the moon that night, Though the frost was cru-el."
|
||
5140 PRINT "When a poor man came in sight, Gath-'ring win-ter fu-el."
|
||
5150 GOTO 5350
|
||
5160 PRINT "Hither, page, and stand by me, if thou know'st it telling."
|
||
5170 PRINT "Yonder peasant, who is he? Where and what his dwelling?"
|
||
5180 PRINT "Sire, he lives a good league hence, underneath the mountain."
|
||
5190 PRINT "Right against the forest fence, by St. Agnes' fountain."
|
||
5200 GOTO 5350
|
||
5210 PRINT "Bring me flesh, and bring me wine, bring me pine logs hither;"
|
||
5220 PRINT "Thou and I will see him dine, when we bear them hither."
|
||
5230 PRINT "Page and monarch, forth they went, forth they went together;"
|
||
5240 PRINT "Through the rude wind's wild lament, and the bitter weather."
|
||
5250 GOTO 5350
|
||
5260 PRINT "Sire, the night is darker now, and the wind blows stronger."
|
||
5270 PRINT "Fails my heart, I know not how, I can go no longer."
|
||
5280 PRINT "Mark my footsteps my good page, tread thou in them boldly."
|
||
5290 PRINT "Thou shalt find the winter's rage freeze thy blood less coldly."
|
||
5300 GOTO 5350
|
||
5310 PRINT "In his master's steps he trod, where the snow lay dinted;"
|
||
5320 PRINT "Heat was in the very sod which the Saint had printed."
|
||
5330 PRINT "Therefore, Christian men, be sure, wealth or rank possessing."
|
||
5340 PRINT "Ye who now will bless the poor, shall yourselves find blessing."
|
||
5350 PLAY "T150o2L4gggaggd2edef#g2g2"
|
||
5360 PLAY "gggaggd2edef#g2g2"
|
||
5370 PLAY "o3dco2babag2edef#g2g2"
|
||
5380 PLAY "ddef#gga2o3dco2bag2o3c2o2g1"
|
||
5390 NEXT X
|
||
5400 GOTO 260
|
||
5410 REM **********************************************************************
|
||
5420 REM
|
||
5430 CLS: PRINT "WE THREE KINGS": PRINT
|
||
5440 FOR X = 1 TO 5: PRINT
|
||
5450 IF X = 1 OR X = 5 THEN GOTO 5460 ELSE GOTO 5530
|
||
5460 IF X = 1 THEN PRINT "We three Kings of O-ri-ent Are; Bear-ing gifts we trav-erse a-far."
|
||
5470 IF X = 5 THEN PRINT "Glo-rious now be-hold Him a-rise, King, and God, and sac-ri-fice;"
|
||
5480 PLAY "T100O2p4B4A8G4E8F#8G8F#8E4P8B4A8G4E8F#8g8f#8e4p8"
|
||
5490 IF X = 1 THEN PRINT "Field and foun-tain moor and moun-tain, Fol-low-ing yon-der star."
|
||
5500 IF X = 5 THEN PRINT "Heaven sings al-le-lu-ia: Al-le-lu-ia the earth re-plies."
|
||
5510 PLAY "g8.p16g8a8.P16A8B8.P16B8O3D8C8O2B8A8B8A8G4f#8e4p8"
|
||
5520 GOTO 5610
|
||
5530 IF X = 2 THEN PRINT "Born a King on Beth-le-hem's plain, Gold I bring to crown Him a-gain."
|
||
5540 IF X = 3 THEN PRINT "Frank-in-cense to of-fer have I, In-cense owns a De-i-ty nigh:"
|
||
5550 IF X = 4 THEN PRINT "Myrrh is mine; its bit-ter per-fume Breathes a life of gath-er-ing gloom;"
|
||
5560 PLAY "o2b4a8g4e8f#8g8f#8e4p8b4a8g4e8f#8g8f#8e4p8"
|
||
5570 IF X = 2 THEN PRINT "King for-ev-er, ceas-ing nev-er O-ver us all to reign."
|
||
5580 IF X = 3 THEN PRINT "Prayer and prais-ing all men rais-ing, Wor-ship Him, God on high."
|
||
5590 IF X = 4 THEN PRINT "Sor-rowing, sigh-ing, bleed-ing, dy-ing, Sealed in the stone cold tomb."
|
||
5600 PLAY "g4g8a4a8b4b8o3d8c8o2b8a8b8a8g4f#8e4p8"
|
||
5610 PRINT "O---Star of won-der, Star of night, Star with roy-al beaut-y bright,"
|
||
5620 PLAY "F#4A2.G8.P16G8P32G4D8G4E8G4P8G8.P16G8P32G4D8G4E8G4P8"
|
||
5630 PRINT "West-ward lead-ing, Still pro-ceed-ing, Guide us to the per-fect light."
|
||
5640 PLAY "g8.p16g8A4B8O3C4O2B8A4B8G8.P16G8P32G4D8G4E8G4."
|
||
5650 NEXT X
|
||
5660 GOTO 260
|
||
5670 REM **********************************************************************
|
||
5680 REM
|
||
5690 CLS: PRINT " GO TELL IT ON THE MOUNTAIN ": PRINT
|
||
5700 PRINT "Oh! Go tell it on the moun-tain, o-ver the hills and ev'-- ry-where,"
|
||
5710 PLAY "t120o3c2o2a2a8.g16f8.d16c2f2g8g4f8g4f4a8g4a8o3c2"
|
||
5720 PRINT "Go tell it on the moun-tain that Je-sus Christ- is born!"
|
||
5730 PLAY "o2a2a8.g16f8.d16c2f4b-4a8a4.g8f8g4f1p4"
|
||
5740 FOR X = 1 TO 5: PRINT
|
||
5750 IF X = 4 THEN PRINT: PRINT " Spiritual Verses:": PRINT
|
||
5760 IF X = 1 THEN PRINT "While shep-herds kept their watch-ing, O'er silent flocks by night,"
|
||
5770 IF X = 2 THEN PRINT "The shep-herds feared and trembled, When lo, ab-ove the earth,"
|
||
5780 IF X = 3 THEN PRINT "Down in a lone-ly man-ger, The humble Christ was born."
|
||
5790 IF X = 4 THEN PRINT "When I was a seeker, I sought both night and day,"
|
||
5800 IF X = 5 THEN PRINT "He made me a watch-man up-on the cit-y wall,"
|
||
5810 IF X = 4 OR X = 5 THEN GOTO 5840
|
||
5820 PLAY "t150o2p4a4o3c4c4c4.d8c4o2a2f4g4g4f4g4a2."
|
||
5830 GOTO 5850
|
||
5840 PLAY "t150o2p4a4o3c4c4.d8c4o2a2f4g4g4f4g4a2."
|
||
5850 IF X = 1 THEN PRINT "Be-hold through-out the heav-ens, There shone a Holy light."
|
||
5860 IF X = 2 THEN PRINT "Rang out the angel chorus, That hailed our Saviour's birth."
|
||
5870 IF X = 3 THEN PRINT "And God sent us salvation, That blessed Christmas morn."
|
||
5880 IF X = 4 THEN PRINT "I sought the Lord to help me, and He showed me the way,"
|
||
5890 IF X = 5 THEN PRINT "And if I am a Chris-tian, I am the least of all."
|
||
5900 PLAY "f4a4o3c4c4.d8c4o2a2f4g4g4f4d4c2"
|
||
5910 PRINT "Oh! Go tell it on the moun-tain, o-ver the hills and ev'-- ry-where,"
|
||
5920 PLAY "t120o3c2o2a2a8.g16f8.d16c2f2g8g4f8g4f4a8g4a8o3c2"
|
||
5930 PRINT "Go tell it on the moun-tain that Je-sus Christ- is born!"
|
||
5940 PLAY "o2a2a8.g16f8.d16c2f4b-4a8a4.g8f8g4f1p4"
|
||
5950 NEXT X
|
||
5960 GOTO 260
|
||
5970 REM **********************************************************************
|
||
5980 REM
|
||
5990 CLS: PRINT "AWAY IN A MANGER": PRINT
|
||
6000 FOR X = 1 TO 2: PRINT
|
||
6010 IF X = 1 THEN PRINT "A-way in a man-ger, no crib for a bed,"
|
||
6020 IF X = 2 THEN PRINT "Be near me, Lord Jesus, I ask Thee to stay"
|
||
6030 PLAY "t120o2p4d4g4g4b8a8g4g4d4e4g4e4d2"
|
||
6040 IF X = 1 THEN PRINT "The lit-tle Lord Je-sus laid down His sweet head;"
|
||
6050 IF X = 2 THEN PRINT "Close by me forever, and love me, I pray;"
|
||
6060 PLAY "d4g4g4a4b4b4o3d4d4o2b4g4a2"
|
||
6070 IF X = 1 THEN PRINT "The stars in the- sky look-ing down where He lay,"
|
||
6080 IF X = 2 THEN PRINT "Bless all the dear children in Thy tender care,"
|
||
6090 PLAY "d4g4g4b8a8g4g4d4e4g4e4d2"
|
||
6100 IF X = 1 THEN PRINT "The little Lord Je-sus, a-sleep on the hay."
|
||
6110 IF X = 2 THEN PRINT "And take us to heaven, to live with Thee there."
|
||
6120 PLAY "d4g4g4a4B4o3d4.P64c4o2d4d4f#4g2"
|
||
6130 IF X = 2 THEN GOTO 6230
|
||
6140 PRINT: PRINT "The cat-tle are low-ing the poor Ba-by wakes,"
|
||
6150 PLAY "f#8g8a4a4o3d4o2a4a4f#4a4g4e4d2"
|
||
6160 PRINT "But lit-tle Lord Je-sus no cry-ing- He- makes;"
|
||
6170 PLAY "f#8g8a4a4o3d4o2a4a4f#4g8f#8g8a8b8o3c#8d2"
|
||
6180 PRINT "I love Thee, Lord Je-sus! Look down from the sky,"
|
||
6190 PLAY "o3e4d4o2B4b8a8g4g4d4e4o3c4o2e4d2"
|
||
6200 PRINT "And stay by my cra-dle, 'Till morn-ing is nigh."
|
||
6210 PLAY "d4g4g4a4b4o3d4.c4o2d4d4f#4g2P16"
|
||
6220 NEXT X
|
||
6230 GOTO 260
|
||
6240 REM *********************************************************************
|
||
6250 REM
|
||
6260 CLS: PRINT "WHAT CHILD IS THIS?": PRINT
|
||
6270 FOR X = 1 TO 3: PRINT
|
||
6280 IF X = 1 THEN PRINT "What Child is this,- Who, laid to rest,- On Ma-ry's lap- is sleep-ing?"
|
||
6290 IF X = 2 THEN PRINT "Why lies He in- such mean es-tate- Where ox and ass- are feed-ing?"
|
||
6300 IF X = 3 THEN PRINT "So bring Him in-cense, gold, and myrrh, Come, peas-ant, king- to own Him;"
|
||
6310 PLAY "t90o2p4e8g4a8b8.o3c16o2b8a4f#8d8.e16f#8g4e8e8.d#16e8f#4.o1b4p16"
|
||
6320 IF X = 1 THEN PRINT "Whom an-gels greet- with an-thems sweet,- While shep-herds watch- are keep-ing?"
|
||
6330 IF X = 2 THEN PRINT "Good Chris-tian, fear:- for sin-ners here- The si-lent Word- is plead-ing."
|
||
6340 IF X = 3 THEN PRINT "The King of kings- sal-va-tion brings,- Let lov-ing hearts- en-throne Him."
|
||
6350 PLAY "o2e8g4a8b8.o3c16o2b8a4f#8d8.e16f#8g8.f#16e8d#8.c#16d#8e4.e4.p16"
|
||
6360 PRINT "This, this- is Christ the King,- Whom shep-herds guard- and an-gels sing."
|
||
6370 PLAY "o3d4.d8.c#16o2b8a4f#8d8.e16f#8g4e8e8.d#16e8f#4d#8o1b4."
|
||
6380 PRINT "This, this- is Christ the King,- The Babe,- the Son- of Ma-ry."
|
||
6390 PLAY "o3d4.d8.c#16o2b8a4f#8d8.e16f#8g8.f#16e8d#8.c#16d#8e4.e4.p4"
|
||
6400 NEXT X
|
||
6410 GOTO 260
|
||
6420 REM *********************************************************************
|
||
6430 REM
|
||
6440 CLS: PRINT "O COME, LITTLE CHILDREN (Ihr Kinderlein Kommet)": PRINT
|
||
6450 FOR X = 1 TO 4: PRINT
|
||
6460 IF X = 1 THEN PRINT "O come, little children, O come, one and all!"
|
||
6470 IF X = 2 THEN PRINT "Ihr Kin-der-lein, kom-met, O kom-met doch all!"
|
||
6480 IF X = 3 THEN PRINT "O seht in der Krippe im ncht-lich-en Stall."
|
||
6490 IF X = 4 THEN PRINT "Da liegt es, ach Kinder, auf Heu and auf Stroh,"
|
||
6500 PLAY "t100o2p4G8G4E8G8G4E8G8F4D8F8E4."
|
||
6510 IF X = 1 THEN PRINT "O come to the cradle in Bethlehem's stall!"
|
||
6520 IF X = 2 THEN PRINT "Zur Krip-pe her kom-met in Beth-le-hems Stall!"
|
||
6530 IF X = 3 THEN PRINT "Seht hier bei des Licht-leins hell-gln-zen-dem Strahl:"
|
||
6540 IF X = 4 THEN PRINT "Maria und Joseph be-trach-ten es froh;"
|
||
6550 PLAY "o2G8G4E8G8G4E8G8F4D8F8E4."
|
||
6560 IF X = 1 THEN PRINT "Come look in the manger! There sleeps on the hay,"
|
||
6570 IF X = 2 THEN PRINT "und seht, was in die-ser hoch-hei-li-gen Nacht,"
|
||
6580 IF X = 3 THEN PRINT "In rein-lich-en Win-deln das himm-lis-che Kind,"
|
||
6590 IF X = 4 THEN PRINT "Die red-lich-en Hir-ten knien be-tend da-vor,"
|
||
6600 PLAY "E8D4D8D8F4F8F8E4E8E8A4."
|
||
6610 IF X = 1 THEN PRINT "An infant so lovely, in light bright as day."
|
||
6620 IF X = 2 THEN PRINT "der Va-ter im Him-mel fr Freu-de uns macht."
|
||
6630 IF X = 3 THEN PRINT "Viel sch3n-er und hold-er, als En-gel es sind."
|
||
6640 IF X = 4 THEN PRINT "Hoch ob-en schwebt ju-belnd der En-gel-ein Chor."
|
||
6650 PLAY "A8G4G8G8O3C4O2G8E8F4D8O1B8O2C4.p4"
|
||
6660 NEXT X
|
||
6670 GOTO 260
|
||
6680 REM *********************************************************************
|
||
6690 REM
|
||
6700 CLS: PRINT "O HOLY NIGHT": PRINT
|
||
6710 PRINT "O ho-ly night, the stars are bright-ly shin-ing,"
|
||
6720 PLAY "t130o2p4e4.e4e8g2p64g8a4a8f4a8o3c2.o2g4"
|
||
6730 PRINT "It is the night of the dear Sa-viour's birth."
|
||
6740 PLAY "g8e4d8c4.e4f8g4.f4d8c2."
|
||
6750 PRINT "Long lay the world, in sin and er-ror pin-ing,"
|
||
6760 PLAY "e4.e4e8g2g8a4a8f4a8o3c4.o2g2."
|
||
6770 PRINT "Till He ap-peared and the soul felt its worth."
|
||
6780 PLAY "g8f#4e8b4.g4a8b4.o3c4o2b8e2."
|
||
6790 PRINT "A thrill of hope the wea-ry world re-joi-ces"
|
||
6800 PLAY "g8g4.a4.d4.g4.a4g8o3c4o2e8a4.g4"
|
||
6810 PRINT "For yon-der breaks a new and glo-rious morn."
|
||
6820 PLAY "g8g4.a4.d4.g4.a4g8o3c4o2e8g2."
|
||
6830 PRINT "Fall on your knees! O hear the an-gel voic-es!"
|
||
6840 PLAY "o3c2..o2b4a8b1b8o3d2..o2a8a4a8o3c2.c4."
|
||
6850 PRINT "O night- di-vine! O night when Christ was born!"
|
||
6860 PLAY "p32o3c8e3d3.o2g8o3c2.o2b4a8g2..g8a4g8g2.."
|
||
6870 PRINT "O night di-vine! O night O night- di-vine!"
|
||
6880 PLAY "o3c8d2..o2g8o3e2.d4.c3c8o2b4.o3c4d8c2.."
|
||
6890 GOTO 260
|
||
6900 REM *********************************************************************
|
||
6910 REM
|
||
6920 CLS: PRINT " IT CAME UPON THE MIDNIGHT CLEAR": PRINT
|
||
6930 FOR X = 1 TO 3: PRINT
|
||
6940 IF X = 1 THEN PRINT "It came up-on the mid-night clear, That glo-rious song of old,"
|
||
6950 IF X = 2 THEN PRINT "Still through the cloven skies they come, With peaceful wings unfurled;"
|
||
6960 IF X = 3 THEN PRINT "And ye beneath life's crushing load, Whose forms are bending low,"
|
||
6970 PLAY "t120o2p4f8o3d4c8c8o2b-8g8f4g8f4f8g8a8b-8b-8o3c8d8c2"
|
||
6980 IF X = 1 THEN PRINT "From an-gels bend-ing near the earth, to touch their harps of gold:"
|
||
6990 IF X = 2 THEN PRINT "And still their heav'nly music floats. O'er all the weary world;"
|
||
7000 IF X = 3 THEN PRINT "Who toil along the climbing way, With painful steps and slow,"
|
||
7010 PLAY "o2f8o3d4c8c8o2b-8g8f4g8f4f8g4g8a8g8f8b-2"
|
||
7020 IF X = 1 THEN PRINT "Peace to the earth, good will to men, From heav'n's all gra-cious King,"
|
||
7030 IF X = 2 THEN PRINT "Above its sad and lowly plains, They bend on hov'ring wings;"
|
||
7040 IF X = 3 THEN PRINT "Look now! for glad and golden hours come swiftly on the wing;"
|
||
7050 PLAY "o3d8d4o2d8d8e8f#8g4a8b-4o3d8c8o2b-8a8g8a8g8f2"
|
||
7060 IF X = 1 THEN PRINT "The world in sol-emn still-ness lay, to hear the an-gels sing!"
|
||
7070 IF X = 2 THEN PRINT "And ever o'er its Babel sounds, The blessed angels sing!"
|
||
7080 IF X = 3 THEN PRINT "Oh, rest beside the weary road, And hear the angels sing!"
|
||
7090 PLAY "f8o3d4c8c8o2b-8g8f4g8f4f8g4g8a8g8f8b-2p8"
|
||
7100 NEXT X
|
||
7110 GOTO 260
|
||
7120 REM *********************************************************************
|
||
7130 REM
|
||
7140 CLS: PRINT " THE FIRST NOEL": PRINT
|
||
7150 FOR X = 1 TO 4: PRINT
|
||
7160 IF X = 1 THEN PRINT "The first- No-el the an-gel did say"
|
||
7170 IF X = 2 THEN PRINT "They- looked-- up and- saw- a Star"
|
||
7180 IF X = 3 THEN PRINT "This star drew nigh to the north-west"
|
||
7190 IF X = 4 THEN PRINT "Then enter'd in there wise men three,"
|
||
7200 PLAY "t150o2p4f#8e8d4.e8f#8g8a2b8o3c#8d4c#4o2b4a2"
|
||
7210 IF X = 1 THEN PRINT "Was to cer-tain poor shep-herds in fields as they lay;"
|
||
7220 IF X = 2 THEN PRINT "Shin-ing in- the East-, be-yond them far,"
|
||
7230 IF X = 3 THEN PRINT "O'er Beth-le-hem it took its rest"
|
||
7240 IF X = 4 THEN PRINT "Full rev'rently upon their knee,"
|
||
7250 PLAY "b8o3c#8d4c#4o2b4a4b4o3c#4d4o2a4g4f#2"
|
||
7260 IF X = 1 THEN PRINT "In- fields- where- they lay- keeping their sheep,"
|
||
7270 IF X = 2 THEN PRINT "And- to- the earth it- gave- great light,"
|
||
7280 IF X = 3 THEN PRINT "And- there- it- did both- stop- and stay,"
|
||
7290 IF X = 4 THEN PRINT "And- of-fer'd there in- His- pre-sence,"
|
||
7300 PLAY "f#8e8d4.e8f#8g8a2b8o3c#8d4c#4o2b4a2"
|
||
7310 IF X = 1 THEN PRINT "On a cold win-ter's night- that was- so deep."
|
||
7320 IF X = 2 THEN PRINT "And- so it con-tin-ued both day- and night,"
|
||
7330 IF X = 3 THEN PRINT "right- over- the place where- Je-sus lay."
|
||
7340 IF X = 4 THEN PRINT "Their- gold- and- myrrh- and frank-in-cense."
|
||
7350 PLAY "b8o3c#8d4c#4o2b4a4b4o3c#4d4o2a4g4f#2"
|
||
7360 PRINT "No-el-, No-el, No-el, No-el, Born is the King of Is-ra-el."
|
||
7370 PLAY "f#8e8d4.e8f#8g8a2o3d8c#8o2b2b4a2.o3d4c#4o2b4a4b4o3c#4d4o2a4g4f#2p4"
|
||
7380 NEXT X
|
||
7390 GOTO 260
|
||
7400 REM *********************************************************************
|
||
7410 REM
|
||
7420 CLS: PRINT " GOD REST YOU MERRY GENTLEMEN": PRINT
|
||
7430 FOR X = 1 TO 4: PRINT
|
||
7440 IF X = 1 THEN PRINT "God rest you mer-ry gen-tle-men, Let noth-ing you dis-may,"
|
||
7450 IF X = 2 THEN PRINT "In Bethlehem, in Jewery, This blessed Babe was born,"
|
||
7460 IF X = 3 THEN PRINT "From God our heav'nly Father, A blessed Angel came,"
|
||
7470 IF X = 4 THEN PRINT "'Fear not then,' said the Angel, 'Let nothing you affright.'"
|
||
7480 PLAY "t150o2p4l4eebbagf#edef#gal2b."
|
||
7490 IF X = 1 THEN PRINT "Re-mem-ber Christ our Sa-viour was born on Christ-mas Day,"
|
||
7500 IF X = 2 THEN PRINT "And laid within a manger upon this blessed morn;"
|
||
7510 IF X = 3 THEN PRINT "And unto certain Shepherds brought tidings of the same;"
|
||
7520 IF X = 4 THEN PRINT "This day is born a Saviour of a pure Virgin bright,"
|
||
7530 PLAY "l4eebbagf#edef#gal2b."
|
||
7540 IF X = 1 THEN PRINT "To save us all from Sa-tan's pow'r, when we were gone a-stray."
|
||
7550 IF X = 2 THEN PRINT "To which His mother Mary, Did nothing take in scorn."
|
||
7560 IF X = 3 THEN PRINT "How that in Bethlehem was born the Son of God by Name."
|
||
7570 IF X = 4 THEN PRINT "To free all those who trust in Him, From Satan's pow'r and might."
|
||
7580 PLAY "l4bo3co2abo3cdeo2bagef#gl2a"
|
||
7590 PRINT "O tid-ings of com-fort and joy, com-fort and joy,"
|
||
7600 PLAY "l4gal2bo3l4co2bbagf#l2el8gf#l4el2a"
|
||
7610 PRINT "O tid-ings of com-fort and joy."
|
||
7620 PLAY "l4gabo3cdeo2bagf#l2e."
|
||
7630 NEXT X
|
||
7640 GOTO 260
|
||
7650 REM *********************************************************************
|
||
7660 REM
|
||
7670 CLS: PRINT "DECK THE HALLS WITH BOUGHS OF HOLLY": PRINT
|
||
7680 FOR X = 1 TO 3: PRINT
|
||
7690 IF X = 1 THEN PRINT "Deck the halls with boughs of hol-ly, Fa la la la la la la la la!"
|
||
7700 IF X = 2 THEN PRINT "See the blazing Yule before us, Fa la la la la la la la la."
|
||
7710 IF X = 3 THEN PRINT "Fast away the old year passes, Fa la la la la la la la la."
|
||
7720 PLAY "t180o2p4a4.g8f#4e4d4e4f#4d4e8f#8g8e8f#4.e8d4c#4d2"
|
||
7730 IF X = 1 THEN PRINT "'Tis the sea-son to be jol-ly, Fa la la la la la la la la!"
|
||
7740 IF X = 2 THEN PRINT "Strike the harp and join the chorus, Fa la la la la la la la la!"
|
||
7750 IF X = 3 THEN PRINT "Hail the new, ye lads and lasses, Fa la la la la la la la la!"
|
||
7760 PLAY "a4.g8f#4e4d4e4f#4d4e8f#8g8e8f#4.e8d4c#4d2"
|
||
7770 IF X = 1 THEN PRINT "Don we now our gay ap-par-el, Fa la la Fa la la la la la."
|
||
7780 IF X = 2 THEN PRINT "Follow me in merry measure, Fa la la Fa la la la la la."
|
||
7790 IF X = 3 THEN PRINT "Sing we joyous all together, Fa la la Fa la la la la la."
|
||
7800 PLAY "e4.f#8g4e4f#4.g8a4e4f#8g8a4b8o3c#8d4c#4o2b4a2"
|
||
7810 IF X = 1 THEN PRINT "Troll the an-cient yule-tide ca-rol Fa la la la la la la la la!"
|
||
7820 IF X = 2 THEN PRINT "While I tell of Yule-tide treasure, Fa la la la la la la la la."
|
||
7830 IF X = 3 THEN PRINT "Heedless of the wind and weather, Fa la la la la la la la la."
|
||
7840 PLAY "a4.g8f#4e4d4e4f#4d4b8b8b8b8a4.g8f#4e4d2"
|
||
7850 NEXT X
|
||
7860 GOTO 260
|
||
7870 REM *********************************************************************
|
||
7880 REM
|
||
7890 CLS: PRINT " HARK! THE HERALD ANGELS SING": PRINT
|
||
7900 FOR X = 1 TO 3: PRINT
|
||
7910 IF X = 1 THEN PRINT "Hark, the her-ald an-gels sing, Glory to the new-born King!"
|
||
7920 IF X = 2 THEN PRINT "Christ by high-est heav'n a-dored; Christ the ever-last-ing Lord;"
|
||
7930 IF X = 3 THEN PRINT "Hail! the heav'n born Prince of peace! Hail! the Son of Right-eous-ness;"
|
||
7940 PLAY "t150o2p4l4dggf#gbbao3ddd.l8co2l4bal2b"
|
||
7950 IF X = 1 THEN PRINT "Peace on earth and mer-cy mild, God and sin-ners re-con-ciled."
|
||
7960 IF X = 2 THEN PRINT "Late in time be-hold Him come, Off-spring of the fa-vored one,"
|
||
7970 IF X = 3 THEN PRINT "Light and life to all He brings, Ris'n with heal-ing in His wings."
|
||
7980 PLAY "l4dggf#gbbao3do2aa.l8f#l4f#el2d"
|
||
7990 IF X = 1 THEN PRINT "Joy-ful, all ye na-tions rise, Join the tri-umph of the skies,"
|
||
8000 IF X = 2 THEN PRINT "Veiled in flesh, the God-head see; Hail th'in-car-nate De-ity;"
|
||
8010 IF X = 3 THEN PRINT "Wild He lays His glo-ry by-, Born that man no more may die-."
|
||
8020 PLAY "l4o3dddo2go3co2bbao3dddo2go3co2bba"
|
||
8030 IF X = 1 THEN PRINT "With th'an-gel-ic host pro-claim, Christ is- born in Beth-le-hem."
|
||
8040 IF X = 2 THEN PRINT "Pleased as man, with man to dwell, Je-sus- our Im-man-uel!"
|
||
8050 IF X = 3 THEN PRINT "Born to raise the Sons of earth, Born to give them second birth."
|
||
8060 PLAY "o3eeedco2bo3l2co2l4al8bo3cl4d.l8o2gl4gal2b"
|
||
8070 PRINT "Hark! the her-ald an-gels sing, Glo-ry- to the new-born King."
|
||
8080 PLAY "l4o3eeedco2bl2o3co2l4al8bo3cl4d.l8o2gl4gal2gp4"
|
||
8090 NEXT X
|
||
8100 GOTO 260
|
||
8110 REM *********************************************************************
|
||
8120 REM
|
||
8130 CLS: PRINT " ANGELS WE HAVE HEARD ON HIGH": PRINT
|
||
8140 FOR X = 1 TO 3: PRINT
|
||
8150 IF X = 1 THEN PRINT "An-gels we have heard on high, Sweet-ly sing-ing o'er the plain;"
|
||
8160 IF X = 2 THEN PRINT "Shepherds, why this jubilee? Why your cheery strains prolong?"
|
||
8170 IF X = 3 THEN PRINT "Come to Bethlehem and see, Him whose birth the angels sing;"
|
||
8180 PLAY "t150o2p4a4a4a4o3c4c4.o2b-8a2a4g4a4o3c4o2a4.g8f2"
|
||
8190 IF X = 1 THEN PRINT "And the moun-tains in re-ply, Ech-o-ing their joy-ous strain."
|
||
8200 IF X = 2 THEN PRINT "What the gladsome tidings be, which inspire your heav'nly song?"
|
||
8210 IF X = 3 THEN PRINT "Come, adore on bended knee, Christ the Lord, the new-born King."
|
||
8220 PLAY "a4a4a4o3c4c4.o2b-8a2a4g4a4o3c4o2a4.g8f2"
|
||
8230 PRINT "Glo-----ri-a, in ex-cel-sis De-o! Glo------ri-a, in ex-cel-sis De-o!"
|
||
8240 PLAY "o3c2d8c8o2b-8a8b-2o3c8o2b-8a8g8a2b-8a8g8f8g4.c8c2f4g4a4b-4a2g2o3c2d8c8o2b-8a8b-2o3c8o2b-8a8g8a2b-8a8g8f8g4.c8c2f4g4a4b-4a2g2f1.p4"
|
||
8250 NEXT X
|
||
8260 GOTO 260
|
||
8270 REM *********************************************************************
|
||
8280 REM
|
||
8290 CLS: PRINT " WHILE SHEPHERDS WATCHED THEIR FLOCKS": PRINT
|
||
8300 FOR X = 1 TO 5: PRINT
|
||
8310 IF X = 1 THEN PRINT "While shep-herds watched their flocks by night, All seat-ed on the ground,"
|
||
8320 IF X = 2 THEN PRINT "Fear not, said he, for mighty dread had seized their troubled mind;"
|
||
8330 IF X = 3 THEN PRINT "To you in David's town, this day is born of David's line,"
|
||
8340 IF X = 4 THEN PRINT "The heav'nly babe you there shall find to human view displayed,"
|
||
8350 IF X = 5 THEN PRINT "All glory be to God on high, and to the earth be peace;"
|
||
8360 PLAY "t120o2p4f4a4.a8g4f4b-4b-4a4g4a4o3c4c4o2b4o3c2."
|
||
8370 IF X = 1 THEN PRINT "The an-gel of the Lord came down, and glo-ry shone a-round."
|
||
8380 IF X = 2 THEN PRINT "Glad tidings of great joy I bring to you and all mankind."
|
||
8390 IF X = 3 THEN PRINT "The Saviour, who is Christ the Lord; and this shall be the sign."
|
||
8400 IF X = 4 THEN PRINT "All meanly wrapped in swathing bands, and in a manger laid."
|
||
8410 IF X = 5 THEN PRINT "Good-will hence-forth from heav'n to men, begin and never cease."
|
||
8420 PLAY "o2a4o3d4.c8o2b-4a4g4f4e4a4g4f4f4e4f2.p4"
|
||
8430 NEXT X
|
||
8440 GOTO 260
|
||
8450 REM *********************************************************************
|
||
8460 REM
|
||
8470 CLS: PRINT " IT'S BEGINNING TO LOOK A LOT LIKE CHRISTMAS": PRINT
|
||
8480 FOR X = 1 TO 2: PRINT
|
||
8490 PRINT "It's be-gin-ning to look a lot like Christ-mas, Ev-'ry-where you go;"
|
||
8500 PLAY "t150o1p4b8.o2c16d6e6d6c#8.d16e4g4b4d2.b4.b8a4.g8e2."
|
||
8510 PRINT "Take a look in the five and ten, glis-ten-ing once a-gain,"
|
||
8520 PLAY "e8.f#16g6a6g6e8.f16f#2f#6g6f#6d8.d#16e4."
|
||
8530 PRINT "with can-dy canes and sil-ver lanes a-glow."
|
||
8540 PLAY "e8f#8.g16a8.b16a8.g16f#8.e16a2."
|
||
8550 PRINT "It's be-gin-ning to look a lot like Christmas, toys in ev-'ry store"
|
||
8560 PLAY "o1b8.o2c16d6e6d6c#8.d16e4g4b4d2.b4.b8a4.g8e2."
|
||
8570 PRINT "But the prettiest sight to see is the holly that will be on your own front";
|
||
8580 IF X = 1 THEN PRINT " door."
|
||
8590 IF X = 2 THEN PRINT " heart"
|
||
8600 PLAY "e8.f#16g6a6g6f#8.g16f#4e8.e-16d8.e16g8.b16o3d4o2d8.e16o3c2O2f#2g2."
|
||
8610 IF X = 2 THEN GOTO 260
|
||
8620 PRINT "A pair of hopalong boots and a pistol that shoots is the wish of Barney and Ben;"
|
||
8630 PLAY "f#16g8.a16b8o3c8o2b8a6b6a6g6a6g6f#6g6a6b8.b16a6g6f#6e4p16"
|
||
8640 PRINT "Dolls that will talk and will go for a walk is the hope of Jan-ice and Jen;"
|
||
8650 PLAY "a6b6a6g6a6g6f#6g6f#6e6f#6g6a8.a16g6f#6e6d4p16"
|
||
8660 PRINT "And Mom and Dad can hard-ly wait for school to start a-gain."
|
||
8670 PLAY "d8o3d8.c#16c8.o2b16a8.g16f#8.e16d8.c#16d8.e16d4"
|
||
8680 NEXT
|
||
8690 REM *********************************************************************
|
||
8700 REM
|
||
8710 CLS: PRINT " WE WISH YOU A MERRY CHRISTMAS": PRINT
|
||
8720 FOR X = 1 TO 2: PRINT
|
||
8730 PRINT "We wish you a Mer-ry Christ-mas, We wish you a Mer-ry Christ-mas,"
|
||
8740 PLAY "t150o2p4d4g4g8a8g8f#8e4e4e4a4a8b8a8g8f#4d4"
|
||
8750 PRINT "We wish you a Mer-ry Christ-mas, And a Hap-py New Year."
|
||
8760 PLAY "d4b4b8o3c8o2b8a8g4e4d8d8e4a4f#4g2"
|
||
8770 PRINT "Good ti-dings to you wher-ev-er you are;"
|
||
8780 PLAY "d4g4g4g4f#2f#4g4f#4e4d2"
|
||
8790 PRINT "Good ti-dings for Christ-mas and a Hap-py New Year."
|
||
8800 PLAY "a4b4a4g4o3d4o2d4d8d8e4a4f#4g2"
|
||
8810 NEXT X
|
||
8820 GOTO 260
|
||
8830 REM *********************************************************************
|
||
8840 REM
|
||
8850 CLS: PRINT "LET IT SNOW! LET IT SNOW! LET IT SNOW!": PRINT
|
||
8860 FOR X = 1 TO 2: PRINT
|
||
8870 PRINT "Oh! the weath-er out-side is fright-ful But the fire is so de-light-ful."
|
||
8880 PLAY "t150o2p4c8c8o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2"
|
||
8890 PRINT "And since we've no place to go, Let it snow! Let it snow! Let it snow!"
|
||
8900 PLAY "d4o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2."
|
||
8910 PRINT "It does-n't show signs of stop-ping, And I brought some corn for pop-ping;"
|
||
8920 PLAY "c4o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2"
|
||
8930 PRINT "The lights are turned 'way down low. Let it snow! Let it snow! Let it snow!"
|
||
8940 PLAY "d4o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2."
|
||
8950 PRINT "When we fin-al-ly kiss good-night, How I'll hate go-ing out in the storm!"
|
||
8960 PLAY "e8f8g8a8g4e4o3c4o2g2.e8g8f4f8e8d4c8d8e2."
|
||
8970 PRINT "But if you'll real-ly hold me tight, All the way home I'll be warm."
|
||
8980 PLAY "e8f8g4a8g8e4o3c4o2g1o3c8o2b8a4b4a8b8o3c2."
|
||
8990 PRINT "The fi-re is slow-ly dy-ing; and, my dear, we're still good-bye-ing,"
|
||
9000 PLAY "o2c4o3c8c8o2b-4a4g4f4c2c8c8g4.f8g4.f8e4c2"
|
||
9010 PRINT "But as long as you love me so, Let It Snow! Let It Snow! Let It Snow!"
|
||
9020 PLAY "d8d8o3d8d8c4o2b-4a4g2.o3e8d8c4c8o2b-8a4a8g8f2.p8"
|
||
9030 IF X = 2 THEN GOTO 9050
|
||
9040 NEXT X
|
||
9050 GOTO 260
|
||
9060 REM *********************************************************************
|
||
9070 REM
|
||
9080 CLS: PRINT "I'LL BE HOME FOR CHRISTMAS": PRINT
|
||
9081 X = 1
|
||
9090 'FOR X = 1 TO 2:
|
||
PRINT
|
||
9100 PRINT "I'll be home for Christ-mas,"
|
||
9110 PLAY "t220o3p4c2.o2b4o3d2.c4o2g2g2d8e8f8a8e8e-8d4"
|
||
9120 PRINT "You can plan on me."
|
||
9130 PLAY "a2.g4b-2.a4d1"
|
||
9140 PRINT "Please have snow and mis-stle-toe,"
|
||
9150 PLAY "c#4d2.e4g2.f4e2.g4o3c2."
|
||
9160 PRINT "And pre-sents on the tree."
|
||
9170 PLAY "o2b4o3d2d2o2b2.b4a1."
|
||
9180 PRINT "Christ-mas Eve will find me-"
|
||
9190 PLAY "o2b4o3c2.o2b4o3d2.c4o2g2g2d8e8f8a8e8e-8d4"
|
||
9200 PRINT "Where the love- light gleams."
|
||
9210 PLAY "a2.g4b-2.a4d1"
|
||
9220 PRINT "I'll be home for Christ-mas,"
|
||
9230 PLAY "d8e8f8a8o3d2.c4d2.c4o2g1a2."
|
||
9240 PRINT "If on-ly in my dreams--."
|
||
9250 PLAY "a4o3d2e2c2d2"
|
||
9260 IF X = 1 THEN PLAY "o3c2o2g8a8b8o3c8d4o2b8b-8a4b4": X = 2: GOTO 9090
|
||
'NEXT X
|
||
9270 IF X = 2 THEN PLAY "c1"
|
||
9280 GOTO 260
|
||
9290 REM *********************************************************************
|
||
9300 REM
|
||
9310 CLS: PRINT "(There's no place like) HOME FOR THE HOLIDAYS": PRINT
|
||
9320 FOR X = 1 TO 2: PRINT
|
||
9330 PRINT "Oh, there's no place like Home for the Hol-i-days"
|
||
9340 PLAY "t150o2p4l4efl2gl4ecl2o3cl4o2bagfl1e"
|
||
9350 PRINT "'cause no mat-ter how far a-way you roam"
|
||
9360 PLAY "l4cdl2el4d#eagfedo3co2bagf"
|
||
9370 PRINT "When you pine for the sun-shine of a friend-ly gaze"
|
||
9380 PLAY "l4efl2gl4eco3dco2bao3co2el1g"
|
||
9390 PRINT "for the hol-i-days you can't beat home, sweet home."
|
||
9400 PLAY "l4o3dco2bgafgefdl1c"
|
||
9410 PRINT "I met a man who lives in Ten-nes-see"
|
||
9420 PLAY "l4cfgao3cco2bo3dcc."
|
||
9430 PRINT "and he was head-in' for Penn-syl-van-ia and some home-made pump-kin pie."
|
||
9440 PLAY "l8o2bl4o3dco2bal2gl4efggf#gbagfl1e"
|
||
9450 PRINT "From Penn-syl-van-ia folks are trav-'lin' down to Dix-ie's sun-ny shore;"
|
||
9460 PLAY "l4cfgao3cco2bo3dcc.l8o2bl4o3dco2bal2g"
|
||
9470 PRINT "From At-lan-tic to Pa-ci-fic, gee, the traf-fic is ter-ri-fic."
|
||
9480 PLAY "l4gabo3ddedco2b.l8al4gggagf"
|
||
9490 PRINT "Oh, there's no place like Home for the Hol-i-days"
|
||
9500 PLAY "l4efl2gl4ecl2o3cl4o2bagfl1e"
|
||
9510 PRINT "'cause no mat-ter how far a-way you roam-"
|
||
9520 PLAY "l4cdl2el4d#eagfedo3co2bagf"
|
||
9530 PRINT "if you want to be hap-py in a mil-lion ways"
|
||
9540 PLAY "l4efl2gl4eco3dco2bao3co2el1g"
|
||
9550 PRINT "for the hol-i-days you can't beat home, sweet home."
|
||
9560 IF X = 1 THEN PLAY "l4o3dco2bgafgefdcgggl2g"
|
||
9570 IF X = 2 THEN PLAY "l4o3dco2bgafl2gel1fo3dc."
|
||
9580 NEXT X
|
||
9590 GOTO 260
|
||
9600 REM *********************************************************************
|
||
9610 REM
|
||
9620 CLS: PRINT " SILVER BELLS": PRINT
|
||
9630 PRINT "Christ-mas makes you feel e-mo-tion-al."
|
||
9640 PLAY "t150o2l4f2ff2ff2fo3c.o2b-8a"
|
||
9650 PRINT "It may bring par-ties or thoughts de-vo-tion-al."
|
||
9660 PLAY "fffffff2fo3c.o2b-8a"
|
||
9670 PRINT "What-ev-er hap-pens or what may be,"
|
||
9680 PLAY "b-o3cdo2b-o3cdo2b-2o3cd2."
|
||
9690 PRINT "Here is what Christ-mas time means to me:"
|
||
9700 PLAY "o2ab-o3co2ab-o3co2a2b-o3c"
|
||
9710 FOR X = 1 TO 2: PRINT
|
||
9720 PRINT "City side-walks, busy side-walks, dressed in hol-i-day style,"
|
||
9730 PLAY "t150o2p4b-8g8f4d4b-8g8f4d4o3d8c8o2b-4g4g4g2"
|
||
9740 PRINT "In the air there's a feel-ing of Christ-mas."
|
||
9750 PLAY "o3c8o2b-8a4f4e4e-4f4.e-8e-4d2.p8"
|
||
9760 PRINT "Child-ren laugh-ing, people pass-ing, meet-ing smile after smile,"
|
||
9770 PLAY "b-8g8f4d4b-8g8f4d4o3d8c8o2b-4g4g4g2"
|
||
9780 PRINT "and on every street corner you hear:"
|
||
9790 PLAY "o3c8o2b-8a4f4e4e-4f4o3c4o2b-1"
|
||
9800 PRINT "Silver bells, silver bells,"
|
||
9810 PLAY "d8e-8f1g8a8b-1"
|
||
9820 PRINT "It's Christ-mas time in the city."
|
||
9830 PLAY "a4a4b-4o3c2o2b-8a8b-4f1"
|
||
9840 PRINT "Hear the bells, hear them ring."
|
||
9850 PLAY "d8e-8f1g8a8b-1"
|
||
9860 PRINT "Soon it will be Christ-mas Day!"
|
||
9870 PLAY "a4a4b-4o3c4o2b-4a4b-2.p4"
|
||
9880 NEXT X
|
||
9890 GOTO 260
|
||
9900 REM *********************************************************************
|
||
9910 REM
|
||
9920 CLS: PRINT "JOLLY OLD SAINT NICHOLAS": PRINT: PRINT
|
||
9930 PRINT "Jolly old Saint Nicholas,"
|
||
9940 PLAY "t180o2p4l4bbbbaal2a"
|
||
9950 PRINT "Lean your ear this way."
|
||
9960 PLAY "l4ggggl1b"
|
||
9970 PRINT "Don't you tell a single soul"
|
||
9980 PLAY "l4eeeeddl2g"
|
||
9990 PRINT "What I'm going to say."
|
||
10000 PLAY "l4agabl1a"
|
||
10010 PRINT "Christmas Eve is coming soon;"
|
||
10020 PLAY "l4bbbbaal2a"
|
||
10030 PRINT "Now you dear old man,"
|
||
10040 PLAY "l4ggggl1b"
|
||
10050 PRINT "Whisper what you'll bring to me,"
|
||
10060 PLAY "l4eeeeddl2g"
|
||
10070 PRINT "Tell me if you can."
|
||
10080 PLAY "l4agabl1g"
|
||
10090 GOTO 260
|
||
10100 REM *********************************************************************
|
||
10110 REM
|
||
10120 CLS: PRINT " JINGLE BELLS ": PRINT
|
||
10130 FOR X = 1 TO 3: PRINT
|
||
10140 IF X = 1 THEN PRINT "Dashing thro' the snow, In a one horse o-pen sleigh,"
|
||
10150 IF X = 2 THEN PRINT "A day or two ago, I tho't I'd take a ride:"
|
||
10160 IF X = 3 THEN PRINT "Now the ground is white, Go it while you're young,"
|
||
10170 PLAY "T180O2p4L4DBAGL2D.L8DDL4DBAGL2E."
|
||
10180 IF X = 1 THEN PRINT "O'er the fields we go, Laugh-ing all the way;"
|
||
10190 IF X = 2 THEN PRINT "And soon Miss Fannie Bright, was seated by my side;"
|
||
10200 IF X = 3 THEN PRINT "Take the girls tonight; and sing this sleighing song:"
|
||
10210 PLAY "L4EEO3CO2BAL1F#O3L4DDCO2AL1B"
|
||
10220 IF X = 1 THEN PRINT "Bells on bob-tail ring, Making spir-its bright;"
|
||
10230 IF X = 2 THEN PRINT "The horse was lean and lank, misfortune seem'd his lot;"
|
||
10240 IF X = 3 THEN PRINT "Just get a bob-tailed bay, two forty for his speed,"
|
||
10250 PLAY "L4DBAGL2D.L8DDL4DBAGL2E."
|
||
10260 IF X = 1 THEN PRINT "What fun it is to ride and sing a sligh-ing song to-night!"
|
||
10270 IF X = 2 THEN PRINT "He got into a drifted bank and then we got up-sot!"
|
||
10280 IF X = 3 THEN PRINT "Then hitch him to an open sleigh and crack! you'll take the lead."
|
||
10290 PLAY "L4EEO3CO2BAO3DDDDEDCO2AL2G."
|
||
10300 PRINT "Jin-gle bells, Jin-gle bells, Jin-gle all the way!"
|
||
10310 PLAY "P4L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1B"
|
||
10320 PRINT "Oh! what fun it is to ride in a one horse open sleigh!"
|
||
10330 PLAY "O3L4CCL4C.L8CL4CO2BBL8BBL4BAABL2A"
|
||
10340 PRINT "Jin-gle bells, Jin-gle bells, Jin-gle all the way!"
|
||
10350 PLAY "O3DO2L4BBL2BL4BBL2BL4BO3DO2L4G.L8AL1B"
|
||
10360 PRINT "Oh! what fun it is to ride in a one horse open sleigh!"
|
||
10370 PLAY "O3L4CCL4C.L8CL4CO2BBL8BBO3L4DDCO2L4AL1GP1"
|
||
10380 NEXT X
|
||
10390 GOTO 260
|
||
10400 REM *********************************************************************
|
||
10410 REM
|
||
10420 CLS: PRINT "Frosty the Snow Man"
|
||
10430 FOR X = 1 TO 2
|
||
10440 PRINT
|
||
10450 IF X = 1 THEN PRINT "Fros-ty the Snow man was a jolly happy soul,"
|
||
10460 IF X = 2 THEN PRINT "Fros-ty the Snow man knew the sun was hot that day"
|
||
10470 PLAY "t140o2p4g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
|
||
10480 IF X = 1 THEN PRINT "with a corn cob pipe and a button nose and two eyes made out of coal."
|
||
10490 IF X = 2 THEN PRINT "so he said Let's run and we'll have some fun now before I melt away."
|
||
10500 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4f4g2."
|
||
10510 IF X = 1 THEN PRINT "Fros-ty the Snow Man is a fair-y tale, they say,"
|
||
10520 IF X = 2 THEN PRINT "Down to the vil-lage, with a broom-stick in his hand,"
|
||
10530 PLAY "g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g2."
|
||
10540 IF X = 1 THEN PRINT "He was made of snow but the chil-dren knew how he come to life one day."
|
||
10550 IF X = 2 THEN PRINT "run-ning here and there all a-round the square, say-in' catch me if you can."
|
||
10560 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2."
|
||
10570 IF X = 1 THEN PRINT "There must have been some magic in that old silk hat they found."
|
||
10580 IF X = 2 THEN PRINT "He led them down the streets of town right to the traffic cop."
|
||
10590 PLAY "c4a4a4o3c4c4o2b4a4g4e4f4a4g4f4e2."
|
||
10600 IF X = 1 THEN PRINT "For when they placed it on his head he be-gan to dance a round."
|
||
10610 IF X = 2 THEN PRINT "And he on-ly paused a moment when he heard him hol-ler Stop!"
|
||
10620 PLAY "e8e8d4d4g4g4b4b4o3d4d8o2b8o3d4c4o2b4a4g4p4"
|
||
10630 IF X = 1 THEN PRINT "Oh, Fros-ty the Snow Man was a-live as he could be,"
|
||
10640 IF X = 2 THEN PRINT "For, Fros-ty the Snow Man had to hur-ry on his way"
|
||
10650 PLAY "g2g2e4.f8g4o3c2o2b8o3c8d4c4o2b4a8g8g2."
|
||
10660 IF X = 1 THEN PRINT "and the chil-dren say he could laugh and play just the same as you and me."
|
||
10670 IF X = 2 THEN PRINT "but he waved good-bye say-in' Don't you cry, I'll be back a-gain some day."
|
||
10680 PLAY "o2b8o3c8d4c4o2b4a8a8g8o3c4o2e8e4g8a8g4f4e4d4c2.p4"
|
||
10690 NEXT X
|
||
10700 PRINT: PRINT "Thump-et-y thump thump, thump-et-y thump thump, look at Fros-ty go."
|
||
10710 PLAY "t180g8g8g4g4g4a8g8g4g4g4a4g4e4g4d1"
|
||
10720 PRINT "Thump-et-y thump thump, thump-et-y thump thump, ov-er the hills of snow."
|
||
10730 PLAY "t180g8g8g4g4g4a8g8g4g4g4g8g8g4a4b4o3c2c4p1"
|
||
10740 GOTO 260
|
||
10750 REM *********************************************************************
|
||
10760 REM
|
||
10770 CLS: PRINT " RUDOLPH THE RED-NOSED REINDEER": PRINT: PRINT
|
||
10780 PRINT "You know Dash-er and Danc-er and Pranc-er and Vix-en,"
|
||
10790 PLAY "t120o2l8p4abo3co2a4fbg4eaf4dag4."
|
||
10800 PRINT "Com-et and Cu-pid and Don-ner and Blitz-en,"
|
||
10810 PLAY "o3co2a4fbg4eaf4dag4."
|
||
10820 PRINT "But do you re-call the most fa-mous rein-deer of all?"
|
||
10830 PLAY "l4eeeea2.a8b8o3ccc8o2ba8g1"
|
||
10840 PRINT "Rudolph the red-nosed reindeer"
|
||
10850 PLAY "T160O3p4C8D4C8O2A4O3F4D4C2."
|
||
10860 PRINT "Had a very shiny nose"
|
||
10870 PLAY "o3c8d8c8d8c4f4e1"
|
||
10880 PRINT "And if you ever saw it,"
|
||
10890 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2."
|
||
10900 PRINT "You would even say it glows."
|
||
10910 PLAY "o3c8d8c8d8c4d4o2a1"
|
||
10920 PRINT "All of the other reindeer,"
|
||
10930 PLAY "o3c8d4c8o2a4o3f4d4c2."
|
||
10940 PRINT "Used to laugh and call him names."
|
||
10950 PLAY "o3c8d8c8d8c4f4e1"
|
||
10960 PRINT "They never let poor Rudolph"
|
||
10970 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2."
|
||
10980 PRINT "Join in any reindeer games."
|
||
10990 PLAY "o3c8d8c8d8c4g4f1"
|
||
11000 PRINT "Then one foggy Christmas Eve,"
|
||
11010 PLAY "o3d4d4f4d4c4o2a4o3c2"
|
||
11020 PRINT "Santa came to say:"
|
||
11030 PLAY "o2b-4o3d4c4o2b-4a1"
|
||
11040 PRINT "Rudolph with your nose so bright"
|
||
11050 PLAY "o2g4a4o3c4d4e4e4e2"
|
||
11060 PRINT "Won't you guide my sleigh tonight?"
|
||
11070 PLAY "o3f4f4e4d4c4o2b-4g2"
|
||
11080 PRINT "Then how the reindeer loved him,"
|
||
11090 PLAY "o3c8d4c8o2a4o3f4d4c2."
|
||
11100 PRINT "As they shouted out with glee:"
|
||
11110 PLAY "o3c8d8c8d8c4f4e1"
|
||
11120 PRINT "Rudolph the red-nosed reindeer,"
|
||
11130 PLAY "o2b-8o3c4o2b-8g4o3e4d4c2."
|
||
11140 PRINT "You'll go down in history."
|
||
11150 PLAY "o3c8d8c8d8c4g4f1"
|
||
11160 GOTO 260
|
||
11170 REM *********************************************************************
|
||
11180 REM
|
||
11190 CLS: PRINT " SLEIGH RIDE": PRINT
|
||
11200 FOR X = 1 TO 2: PRINT
|
||
11210 PRINT "Just hear those sleigh bells jin-gle-ing, ring-ting-tin-gle-ing, too."
|
||
11220 PLAY "t180o3l4dddded8o2b8gaba8f#8ed1"
|
||
11230 PRINT "Come on, it's love-ly weath-er for a Sleigh Ride to-geth-er with you,"
|
||
11240 PLAY "o2ef#ao3ded8o2b8a8g8aa8b8a8g8eg1"
|
||
11250 PRINT "Out-side the snow is fall-ing and friends are call-ing 'Yoo hoo',"
|
||
11260 PLAY "o3dddded8o2b8gaba8f#8ed1"
|
||
11270 PRINT "Come on, it's love-ly weather for a Sleigh Ride to-geth-er with you."
|
||
11280 PLAY "o2ef#ao3ded8o2b8a8g8aa8b8a8g8eg1"
|
||
11290 PRINT "Gid-dy-yap, gid-dy-yap, gid-dy-yap, let's go. Let's look at the show,"
|
||
11300 PLAY "o2d#8e8bd#8e8bd8e8bO3c#O2a#1ba#8f#8d#g#1"
|
||
11310 PRINT "We're rid-ing in a won-der-land of snow."
|
||
11320 PLAY "a#g#8e8c#8e8g#ba#o3c#o2f#1."
|
||
11330 PRINT "Gid-dy-yap, gid-dy-yap, gid-dy-yap, it's grand, Just holding your hand."
|
||
11340 PLAY "c#8d8ac#8d8ac8d8abg#2ag#8e8c#f#1"
|
||
11350 PRINT "We're glid-ing a-long with a song of a win-ter-y fair-y-land."
|
||
11360 PLAY "o3ae8d8o2ao3de8a8ed8o2a8o3d8e8ao4do3ad"
|
||
11370 PRINT "Our cheeks are nice and ros-y, and com-fy co-zy are we."
|
||
11380 PLAY "dddded8o2g8gaba8f#8ed1"
|
||
11390 PRINT "We're snug-gled up to-geth-er like two birds of a feath-er would be."
|
||
11400 PLAY "df#ao3ded8o2b8a8g8aa8b8a8g8eg1"
|
||
11410 PRINT "Let's take that road be-fore us and sing a cho-rus or two."
|
||
11420 PLAY "o3dddded8o2b8gaba8f#8ed1"
|
||
11430 PRINT "Come on, it's love-ly weath-er for a Sleigh Ride to-geth-er with you."
|
||
11440 PLAY "ef#ao3ded8o2b8a8g8aa8b8a8g8eg1."
|
||
11450 NEXT X
|
||
11460 GOTO 260
|
||
11470 CLS: PRINT "O CHRISTMAS TREE": PRINT
|
||
11480 FOR X = 1 TO 4: PRINT
|
||
11490 IF X = 1 THEN PRINT "O Christmas tree! O Christmas tree! Your leaves are so unchanging."
|
||
11500 IF X = 2 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Wie treu sind dei-ne Blt-ter!"
|
||
11510 IF X = 3 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Du kannst mir sehr ge-fall-en,"
|
||
11520 IF X = 4 THEN PRINT "O Tan-nen-baum, O Tan-nen-baum, Dein Kleid will mir was leh-ren;"
|
||
11530 PLAY "T100O2p4C4F8.F16F8.P64G8.A8.A16A4.P64A8G8A8B-4E4G4F4P8"
|
||
11540 IF X = 1 THEN PRINT "Not only green when summer's here, but also when the snow is near."
|
||
11550 IF X = 2 THEN PRINT "Du grnst nicht nur zur Som-mer-zeit, Nein auch im Win-ter, wenn es schneit,"
|
||
11560 IF X = 3 THEN PRINT "Wie oft hat nicht zur Weih-nachts-zeit, Ein baum von dir mich hoch er-freut!"
|
||
11570 IF X = 4 THEN PRINT "Die Hoff-nung und Be-stn-dig-keit, Giebt Trost und Kraft zu je-der Zeit!"
|
||
11580 PLAY "O3C8C8O2A8O3D4.C8C8O2B-8B-4.B-8B-8G8O3C4.O2B-8b-8a8a4p16"
|
||
11590 IF X = 1 THEN PRINT "O Christmas tree! O Christmas tree! Your leaves are so unchanging."
|
||
11600 IF X = 2 THEN PRINT "O Tannenbaum, O Tannenbaum, Wie treu sind dei-ne Blt-ter."
|
||
11610 IF X = 3 THEN PRINT "O Tannenbaum, O Tannenbaum, Du kannst mir sehr ge-fall-en."
|
||
11620 IF X = 4 THEN PRINT "O Tannenbaum, O Tannenbaum, Dein Kleid will mir was leh-ren."
|
||
11630 PLAY "C4F8.F16F4.G8A8.A16A4.A8G8A8B-4E4G4F4P4"
|
||
11640 NEXT X
|
||
11650 GOTO 260
|
||
11660 REM *********************************************************************
|
||
11670 REM
|
||
11680 CLS: PRINT " SANTA CLAUS IS COMING TO TOWN": PRINT
|
||
11690 PRINT "You bet-ter watch out, you bet-ter not cry,"
|
||
11700 PLAY "t150o2l4p4ge8f8gg.g8a8b8o3cc2"
|
||
11710 PRINT "Bet-ter not pout, I'm tell-ing you why:"
|
||
11720 PLAY "o2e8f8ggga8g8ff2"
|
||
11730 PRINT "San-ta Claus is com-in' to town."
|
||
11740 PLAY "egcedf2o1bo2c2"
|
||
11750 PRINT "He's making a list and check-ing it twice,"
|
||
11760 PLAY "g8e8f8gg.g8a8b8o3cc2"
|
||
11770 PRINT "Gon-na find out whose naught-y and nice,"
|
||
11780 PLAY "o2e8f8ggga8g8ff2"
|
||
11790 PRINT "San-ta Claus is com-in' to town."
|
||
11800 PLAY "egcedf2o1bo2c1"
|
||
11810 PRINT "He sees you when you're sleep-in',"
|
||
11820 PLAY "o3cdco2bo3co2aa2"
|
||
11830 PRINT "He knows when you're awake."
|
||
11840 PLAY "o3cdco2bo3co2a2."
|
||
11850 PRINT "He knows if you've been bad or good,"
|
||
11860 PLAY "o3dedc#do2bbb"
|
||
11870 PRINT "So be good for good-ness sake."
|
||
11880 PLAY "o2b8o3c8dco2bag"
|
||
11890 PRINT "Oh! You bet-ter watch out, you bet-ter not cry,"
|
||
11900 PLAY "o2p4g.g8e8f8gg.g8a8b8o3cc2"
|
||
11910 PRINT "Bet-ter not pout, I'm tell-ing you why:"
|
||
11920 PLAY "o2e8f8ggga8g8ff2"
|
||
11930 PRINT "San-ta Claus is com-in' to town."
|
||
11940 PLAY "egcedf2o3dc1."
|
||
11950 GOTO 260
|
||
11960 REM *********************************************************************
|
||
11970 REM
|
||
11980 CLS: PRINT " HERE COMES SANTA CLAUS": PRINT
|
||
11990 FOR X = 1 TO 4: PRINT
|
||
12000 PRINT "Here comes San-ta Claus! Here comes San-ta Claus! Right down San-ta Claus Lane!"
|
||
12010 IF X = 2 THEN GOTO 12080
|
||
12020 IF X = 3 THEN GOTO 12120
|
||
12030 IF X = 4 THEN GOTO 12160
|
||
12040 PRINT "Vix-en and Blitz-en and all his rein-deer are pulling on the rein."
|
||
12050 PRINT "Bells are ring-ing, chil-dren sing-ing, all is mer-ry and bright."
|
||
12060 PRINT "Hang your stock-ings and say your pray'rs, 'Cause San-ta Claus comes to-night."
|
||
12070 GOTO 12190
|
||
12080 PRINT "He's got a bag that is filled with toys for the boys and girls a-gain."
|
||
12090 PRINT "Hear those sleigh bells jin-gle jan-gle, what a beau-ti-ful sight."
|
||
12100 PRINT "Jump in bed, cov-er up your head, 'Cause San-ta Claus comes to-night."
|
||
12110 GOTO 12190
|
||
12120 PRINT "He does-n't care if you're rich or poor for he loves you just the same."
|
||
12130 PRINT "San-ta knows that we're God's chil-dren, that makes ev-`ry-thing right."
|
||
12140 PRINT "Fill your hearts with a Christ-mas cheer, 'Cause San-ta Claus comes to-night."
|
||
12150 GOTO 12190
|
||
12160 PRINT "He'll come a-round when the chimes ring out, then it's Christ-mas morn a-gain."
|
||
12170 PRINT "Peace on earth will come to all if we just fol-low the light."
|
||
12180 PRINT "Let's give thanks to the Lord a-bove, 'Cause San-ta comes to-night."
|
||
12190 PLAY "t180o2l4p4cag8g8fcag8g8fcb-b-8b-8ab-1"
|
||
12200 PLAY "cb-8b-8ag8g8cb-ag8g8co3cco2bo3c1"
|
||
12210 PLAY "o3dfedcedco2b-b-o3d6c6o2b-6a1"
|
||
12220 PLAY "o3dfed8d8cedo2ao3c8c8o2b-agf1"
|
||
12230 NEXT X
|
||
12240 GOTO 260
|
||
12250 REM *********************************************************************
|
||
12260 REM
|
||
12270 CLS: PRINT " HAVE YOURSELF A MERRY LITTLE CHRISTMAS": PRINT: PRINT
|
||
12280 PRINT "Have your-self a mer-ry lit-tle Christ-mas,"
|
||
12290 PLAY "t120o2l4cego3co2g8f8e8d8cd"
|
||
12300 PRINT "Let your heart be light."
|
||
12310 PLAY "cego3co2g2."
|
||
12320 PRINT "From now on, our troub-les will be out of sight."
|
||
12330 PLAY "ego3ced8c8o2b8a8gfe1"
|
||
12340 PRINT "Have your-self a mer-ry lit-tle Christ-mas,"
|
||
12350 PLAY "cego3co2g8f8e8d8cd"
|
||
12360 PRINT "Make the Yule-tide gay."
|
||
12370 PLAY "cego3co2g2."
|
||
12380 PRINT "From now on, our troub-les will be miles a-way."
|
||
12390 PLAY "ego3ced8c8o2b8a8g#bo3c2"
|
||
12400 PRINT "Here we are as in old-en days, hap-py gold-en days of yore."
|
||
12410 PLAY "eeed8c8o2b8o3c8d2c8o2b8a8b8o3c2o2bb2."
|
||
12420 PRINT "Faith-ful friends who are dear to us gather near to us once more"
|
||
12430 PLAY "o3ccco2b8a8g8a8b2g8a8b8o3c8d2o2dg2."
|
||
12440 PRINT "Through the years we all will be to-geth-er, if the Fates al-low."
|
||
12450 PLAY "cego3co2g8f8e8d8cdcego3co2g1"
|
||
12460 PRINT "Hang a shin-ing star up-on the high-est bough,"
|
||
12470 PLAY "ego3cef8e8d8c8o2bo3de2"
|
||
12480 PRINT "And have your-self a mer-ry lit-tle Christ-mas now."
|
||
12490 PLAY "o3eeo2fao3ce8d8c8o2b8abo3c1"
|
||
12500 GOTO 260
|
||
12510 REM *********************************************************************
|
||
12520 REM
|
||
12530 CLS: PRINT " THE NIGHT BEFORE CHRISTMAS SONG": PRINT
|
||
12540 FOR X = 1 TO 2: PRINT
|
||
12550 IF X = 1 THEN PRINT "'Twas the night be-fore Christ-mas and all thru the house,"
|
||
12560 IF X = 2 THEN PRINT "And so up to the house-top the rein-deer soon flew,"
|
||
12570 PLAY "t150o2l4g8g8o3c.c8c8o2bgbafag2"
|
||
12580 IF X = 1 THEN PRINT "not a crea-ture was stir-ring, not e-ven a mouse."
|
||
12590 IF X = 2 THEN PRINT "with the sleigh full of toys and Saint Nich-o-las too."
|
||
12600 PLAY "g8g8fdfecedcde2"
|
||
12610 IF X = 1 THEN PRINT "All the stock-ings were hung by the chim-ney with care,"
|
||
12620 IF X = 2 THEN PRINT "Down the chim-ney he came with a leap and a bound."
|
||
12630 PLAY "g8g8o3c.c8co2bgbafag2"
|
||
12640 IF X = 1 THEN PRINT "In the hope that Saint Nich-o-las soon would be there."
|
||
12650 IF X = 2 THEN PRINT "He was dressed all in fur and his bel-ly was round."
|
||
12660 PLAY "g8g8fdfecedco1bo2c2"
|
||
12670 IF X = 1 THEN PRINT "Then what to my won-der-ing eyes should ap-pear."
|
||
12680 IF X = 2 THEN PRINT "He spoke not a word but went straight to his work."
|
||
12690 PLAY "cag#ao3co2bago3co2eg2"
|
||
12700 IF X = 1 THEN PRINT "A min-ia-ture sleigh and eight ti-ny rein-deer."
|
||
12710 IF X = 2 THEN PRINT "And filled all the stock-ings; then turned with a jerk."
|
||
12720 PLAY "gfefagfegce2"
|
||
12730 IF X = 1 THEN PRINT "A lit-tle old driv-er so live-ly and quick,"
|
||
12740 IF X = 2 THEN PRINT "And lay-ing his fin-ger a-side of his nose,"
|
||
12750 PLAY "cag#ao3co2bago3co2eg2"
|
||
12760 IF X = 1 THEN PRINT "I knew in a mo-ment it must be Saint Nick."
|
||
12770 IF X = 2 THEN PRINT "then giv-ing a nod up the chim-ney he rose;"
|
||
12780 PLAY "gf#edo3co2baaggg2"
|
||
12790 IF X = 1 THEN PRINT "And more rap-id than ea-gles his rein-deer all came."
|
||
12800 IF X = 2 THEN PRINT "But I heard him ex-claim as he drove out of sight,"
|
||
12810 PLAY "g8g8o3c.c8co2bgbafag2"
|
||
12820 IF X = 1 THEN PRINT "As he shout-ed 'On Dash-er' and each rein-deer's name."
|
||
12830 IF X = 2 THEN PRINT "Mer-ry Christ-mas to all and to all a Good Night!"
|
||
12840 PLAY "g8g8fdfece"
|
||
12850 IF X = 1 THEN PLAY "dco1bo2c2"
|
||
12860 IF X = 2 THEN PLAY "gabo3c2."
|
||
12870 NEXT X
|
||
12880 GOTO 260
|
||
12890 REM *********************************************************************
|
||
12900 REM
|
||
12910 REM I am so glad on Christmas Eve
|
||
12920 REM "I am so glad- on Christ-mas Eve, the night of Je-sus' birth;"
|
||
12930 REM "That's when a star shone like the sun and an-gels sang on earth."
|
||
12940 REM "I am so glad- on Christ-mas Eve, my prais-es rise- a-bove,"
|
||
12950 REM "To Je-sus who has brought to earth the par-a-dise of love."
|
||
12960 PLAY "T135o2L4f8b-b-8o3d8.c16o2b-8ab-8o3co2f8o3cd8e-8.d16c8d2."
|
||
12970 PLAY "o2f8b-b-8o3d8.c16o2b-8ag8o3e-c8o2b-b-8a8.g16a8b-2."
|
||
12980 GOTO 260
|
||
12990 REM *********************************************************************
|
||
13000 REM
|
||
13010 REM FROM HEAVEN ABOVE TO EARTH I COME
|
||
13020 REM ?"From heav'n a-bove to earth I come,"
|
||
13030 REM ?"To bear good news to- ev-'ry home."
|
||
13040 REM ?"Glad ti-dings of- great joy- I bring,"
|
||
13050 REM ?"Where-of I now will- glad-ly sing."
|
||
13060 REM verse 2
|
||
13070 REM ?"To you this night is born a Child"
|
||
13080 REM ?"Of Mary, chosen mother mild;"
|
||
13090 REM ?"This little Child of lowly birth;"
|
||
13100 REM ?"Shall be the joy of all the earth."
|
||
13110 REM verse 3
|
||
13120 REM ?"Glory to God in highest heav'n"
|
||
13130 REM ?"Who unto us His Son hath giv'n!"
|
||
13140 REM ?"While angels sing with pious mirth,"
|
||
13150 REM ?"A glad New Year to all the earth."
|
||
13160 PLAY "T140O3L4DC#O2BO3C#O2ABO3C#D."
|
||
13170 PLAY "O3DDO2AAF#8G8AGF#."
|
||
13180 PLAY "F#BBA8B8O3C#D8C#8o2BA."
|
||
13190 PLAY "O3DC#O2BAB8A8G8F#8ED."
|
||
13200 SYSTEM
|
||
13210 REM *********************************************************************
|
||
13220 REM
|
||
13230 REM *********************************************************************
|
||
13240 REM
|
||
|