1 ' CAROLS.100
2 '  by Eiji Miura [71216,1564]
3 '  October 15, 1984
4 '
5 ' Thanks to John M. Hicks for the
6 ' scroll routine. (TRS-80 Micro
7 ' Computer News, Jan. 1984, p.37)
8 ' and Tassi Law for coding songs.
9 ' --------------------------------
10 GOTO15
11 READV,W
12 READA,B:IFA=0ANDB=0THENCLS:RETURN
13 SOUNDA*V,B*W:GOTO12
14 FORT=0TO4STEP2:LINE(T,T)-(239-T,63-T),1,B:NEXT:RETURN
15 CLS:SCREEN0,0:CLEAR500:DEFSTRC-M:C=CHR$(27):D=C+"p":E=C+"q":GOSUB14:PRINT@92,"Christmas Carols"
16 J(1)=" Jingle Bell ":J(2)=" Silent Night ":J(3)=" Angels We Have Heard on High ":J(4)=" Joy to the World "
17 J(5)=" O Come, All Ye Faithful ":J(6)=" O Little Town of Bethlehem ":J(7)=" Hark! The Herald Angels Sing "
18 M(1)=J(1)+SPACE$(17):M(2)=J(2)+SPACE$(16):M(3)=J(3):M(4)=J(4)+SPACE$(12):M(5)=J(5)+SPACE$(5):M(6)=J(6)+"  ":M(7)=J(7)
19 G="Use arrow keys to select.....  [ENTER] to play.....  [ESC] to exit.....":H=SPACE$(38)+G:X=LEN(H)
20 PRINT@219,"by":PRINT@255,"Eiji Miura":RESTORE43:GOSUB11
21 CLS:FORP=0TO6:PRINT@P*40,M(P+1);:NEXT:GOSUB31
22 FORY=1TOX:PRINT@280,D;MID$(H,Y,38)+" ";E;
23 FORZ=1TO10:F=INKEY$:IFF<>""THENGOSUB25
24 NEXTZ,Y:GOTO22
25 IFF=CHR$(27)THENMENU
26 IFF=CHR$(13)THENPRINT@280,D;SPACE$(39);E;:GOTO32
27 IFF<>CHR$(30)ANDF<>CHR$(31)THENRETURN
28 PRINT@O*40,M(N);
29 IFF=CHR$(30)THENO=O-1:IFO<0THENO=6
30 IFF=CHR$(31)THENO=O+1:IFO>6THENO=0
31 N=O+1:PRINT@O*40,D;M(N);E:RETURN
32 CLS:ONNGOTO33,34,35,36,37,38,39
33 RESTORE48:GOTO40
34 RESTORE65:GOTO40
35 RESTORE71:GOTO40
36 RESTORE81:GOTO40
37 RESTORE88:GOTO40
38 RESTORE96:GOTO40
39 RESTORE103:GOTO40
40 GOSUB14:PRINT@120+(INT((40-LEN(J(N)))/2)),J(N)
41 GOSUB11
42 GOTO21
43 DATA1,6.5
44 DATA6269,2,4697,2,4697,1,4184,1,4697,1,4976,1,5586,2,5586,2,5586,2,4184,2
45 DATA4184,1,3728,1,4184,1,4697,1,4976,2,6269,2,6269,2,3728,2,3728,1,3516,1
46 DATA3728,1,4184,1,4697,2,5586,1,5586,1,6269,1,6269,1,5586,2,4184,2,4976,2
47 DATA4697,4,0,0
48 DATA1,6
49 DATA3718,2,3718,2,3718,4,3718,2,3718,2,3718,4,3718,2,3134,2,4697,3,4184,1
50 DATA3718,8,0,1,3516,2,3516,2,3516,3,3516,1,3516,2,3718,2,3718,2,3718,2
51 DATA3718,2,4184,2,4184,2,3718,2,4184,4,3134,4,3718,2,3718,2,3718,4,3718,2
52 DATA3718,2,3718,4,3718,2,3134,2,4697,3,4184,1,3718,8,0,1,3516,2,3516,2
53 DATA3516,3,3516,1,3516,2,3718,2,3718,2,3718,2,3134,2,3134,2,3516,2,4184,2
54 DATA4697,8,0,1,6269,2,3718,2,4184,2,4697,2,6269,8,6269,1,6269,2,3718,2
55 DATA4184,2,4697,2,5586,8,0,0.5,5586,0.5,5586,0.5,5586,2,3516,2,3718,2,4184,2
56 DATA4968,8,3134,0.5,3134,3,3134,2,3516,2,4184,2,3718,4,4697,4,6269,2,3718,2
57 DATA4184,2,4697,2,6269,8,6269,1,6269,2,3718,2,4184,2,4697,2,5586,8,0,0.5
58 DATA5586,0.5,5586,0.5,5586,2,3516,2,3718,2,4184,2,3134,2,3134,2,3134,4,3134,1
59 DATA2793,2,3134,2,3516,2,4184,2,4697,8,3718,2,3718,2,3718,4,3718,2,3718,2
60 DATA3718,4,3718,2,3134,2,4697,3,4184,1,3718,8,0,1,3516,2,3516,2,3516,3
61 DATA3516,1,3516,2,3718,2,3718,2,3718,2,3718,2,4184,2,4184,2,3718,2,4184,4
62 DATA3134,4,3718,2,3718,2,3718,4,3718,2,3718,2,3718,4,3718,2,3134,2,4697,3
63 DATA4184,1,3718,8,0,1,3516,2,3516,2,3516,3,3516,1,3516,2,3718,2,3718,2
64 DATA3718,2,3134,8,3134,8,2793,8,2484,8,2348,16,0,0
65 DATA1,6.5
66 DATA6269,6,5586,2,6269,4,7456,12,6269,6,5586,2,6269,4,7456,12,4184,8,4184,4
67 DATA4968,12,4697,8,4697,4,6269,12,5586,8,5586,4,4697,6,4968,2,5586,4,6269,6
68 DATA5586,2,6269,4,7456,12,5586,8,5586,4,4697,6,4968,2,5586,4,6269,6,5586,2
69 DATA6269,4,7456,12,4184,8,4184,4,3516,6,4184,2,4968,4,4697,12,3718,12,4697,4
70 DATA6269,4,7456,4,6269,6,7032,2,8368,4,9394,13,0,0
71 DATA1,3.8
72 DATA3718,4,3718,4,3718,4,3718,2,3134,2,3134,6,3516,2,3718,4,4697,4,3718,4
73 DATA3718,4,3718,4,3134,4,3718,6,4184,2,4697,8,3718,4,3718,4,3718,4,3718,2
74 DATA3134,2,3134,6,3516,2,3718,4,4697,4,3718,4,3718,4,3718,4,3134,4,3718,6
75 DATA4184,2,4697,8,3134,8,2793,2,3134,2,3516,2,3718,2,3516,8,3134,2,3516,2
76 DATA3718,2,4184,2,3718,8,3516,2,3718,2,4184,2,4697,2,4184,6,6269,2,6269,8
77 DATA4697,4,4184,4,3718,4,3516,4,3718,8,4184,8,3134,8,2793,2,3134,2,3516,2
78 DATA3718,2,3516,8,3134,2,3516,2,3718,2,4184,2,3718,8,3516,2,3718,2,4184,2
79 DATA4697,2,4184,6,6269,2,6269,8,4697,4,4184,4,3718,4,3516,4,3718,8,4184,8
80 DATA4697,2, 4697,12,0,0
81 DATA1,6
82 DATA2348,4,2484,3,2793,1,3134,6,3516,2,3718,4,4184,4,4697,6,3134,2,2793,6
83 DATA2793,2,2484,6,2484,2,2348,8,0,3,2348,2,2348,2,2484,2,2793,2,3134,2
84 DATA3134,3,3516,1,3718,2,2348,2,2348,2,2484,2,2793,2,3134,2,3134,3,3516,1
85 DATA3718,2,3718,2,3718,2,3718,2,3718,2,3718,1,3516,1,3134,6,3516,1,3718,1
86 DATA4184,2,4184,2,4184,2,4184,1,3718,1,3516,6,3718,1,4184,1,4697,2,2348,4
87 DATA2793,2,3134,3,3516,1,3718,2,3516,2,3718,4,4184,4,4697,8,0,0
88 DATA1,5
89 DATA4697,2,4697,8,6269,4,4697,4,4184,8,6269,8,3718,4,4184,4,3718,4,3516,4
90 DATA3718,8,4184,4,4697,4,4697,8,4968,4,5586,4,4968,4,4697,4,4184,4,3718,4
91 DATA4968,8,5586,6,6269,2,6269,16,6269,1,3134,8,3516,4,3718,4,3516,8,3718,8
92 DATA4184,4,3718,4,4697,4,4184,4,4968,6,5586,2,6269,4,4697,4,4697,4,4968,4
93 DATA4697,4,4184,4,4697,8,6269,4,3718,4,3718,4,4184,4,3718,4,3516,4,3718,8
94 DATA4184,4,3718,4,3516,4,3718,4,4184,4,4697,4,4968,8,4697,4,3516,4,3718,8
95 DATA4184,6,4697,2,4697,16,0,0
96 DATA1,6
97 DATA3718,4,3718,4,3718,4,3950,4,3718,4,3134,4,3516,4,5586,4,4184,4,4697,4
98 DATA4968,2,4697,2,4184,4,6269,4,3718,12,3718,4,3718,4,3718,4,2793,4,3134,4
99 DATA3134,4,3516,4,5586,4,4184,4,4697,4,4968,2,4697,2,3718,4,4184,4,4697,12
100 DATA3718,4,3718,4,3718,4,4184,4,4697,4,4968,8,4968,4,4968,4,5586,4,4968,4
101 DATA4697,4,4184,4,3718,12,3718,4,3718,4,3718,4,3950,4,3718,4,3134,4,3516,4
102 DATA5586,4,2793,4,3134,4,4697,4,3718,6,4184,2,4697,12,0,0
103 DATA1,6
104 DATA6269,4,4697,4,4697,6,4968,2,4697,4,3718,4,3718,4,4184,4,3134,4,3134,4
105 DATA3134,6,3516,2,3718,4,4184,4,3718,8,6269,4,4697,4,4697,6,4968,2,4697,4
106 DATA3718,4,3718,4,4184,4,3134,4,4184,4,4184,6,4968,2,4968,4,5586,4,6269,8
107 DATA3134,4,3134,4,3134,4,4697,4,3516,4,3718,4,3718,4,4184,4,3134,4,3134,4
108 DATA3134,4,4697,4,3516,4,3718,4,3718,4,4184,4,2793,4,2793,4,2793,6,3134,2
109 DATA3516,4,3718,4,3516,8,4184,4,3718,2,3516,2,3134,6,4697,2,4697,4,4184,4
110 DATA3718,8,2793,4,2793,4,2793,6,3134,2,3516,4,3718,4,3516,8,4184,4,3718,2
111 DATA3516,2,3134,6,4697,2,4697,4,4184,4,4697,8,0,0