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 "o3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2eo3co2e
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,"