-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathcarols.bas
1328 lines (1327 loc) · 65.8 KB
/
carols.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
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"