0 'Processed by the Byte Fyter 11/27/87
1 ' CAROLS.100
2 '  by Eiji Miura [71216,1564]
3 '  October 15, 1984
4 'NEC 8201 adaptation by Dave Thomas
5 'For GEnie's Laptops Roundtable 11/87
6 ' Thanks to John M. Hicks for the
7 ' scroll routine. (TRS-80 Micro
8 ' Computer News, Jan. 1984, p.37)
9 ' and Tassi Law for coding songs.
10 ' --------------------------------
11 GOTO16
12 READV,W
13 READA,B:IFA=0ANDB=0THENCLS:RETURN
14 SOUNDA*V,B*W:GOTO13
15 FORT=0TO4STEP2:LINE(T,T)-(239-T,63-T),1,B:NEXT:RETURN
16 CLS:SCREEN0,0:CLEAR500:ONERRORGOTO59:DEFSTRC-M:C=CHR$(27):D=C+"p":E=C+"q":GOSUB15:LOCATE12,2:PRINT"Christmas Carols":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 ":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)
18 G="Use arrow keys to select.....  [ENTER] to play.....  [ESC] to exit.....":H=SPACE$(38)+G:X=LEN(H):LOCATE19,5:PRINT"by":LOCATE15,6:PRINT"Eiji Miura":RESTORE37:GOSUB12
19 CLS:FORP=0TO6:LOCATE0,P:PRINTM(P+1);:NEXT:GOSUB27
20 FORY=1TOX:LOCATE0,7:PRINTDMID$(H,Y,38)+" "E;:FORZ=1TO10:F=INKEY$:IFF<>""THENGOSUB22
21 NEXTZ,Y:GOTO20
22 IFF=CHR$(27)THENMENU
23 IFF=CHR$(13)THENLOCATE0,7:PRINTDSPACE$(39)E;:GOTO28
24 IFF<>CHR$(30)ANDF<>CHR$(31)THENRETURN
25 LOCATE0,O:PRINTM(N);:IFF=CHR$(30)THENO=O-1:IFO<0THENO=6
26 IFF=CHR$(31)THENO=O+1:IFO>6THENO=0
27 N=O+1:LOCATE0,O:PRINTD;M(N)E:RETURN
28 CLS:ONNGOTO29,30,31,32,33,34,35
29 RESTORE38:GOTO36
30 RESTORE44:GOTO36
31 RESTORE46:GOTO36
32 RESTORE49:GOTO36
33 RESTORE51:GOTO36
34 RESTORE54:GOTO36
35 RESTORE56:GOTO36
36 GOSUB15:LOCATE(INT((40-LEN(J(N)))/2)),3:PRINTJ(N):GOSUB12:GOTO19
37 DATA1,6.5,6269,2,4697,2,4697,1,4184,1,4697,1,4976,1,5586,2,5586,2,5586,2,4184,2,4184,1,3728,1,4184,1,4697,1,4976,2,6269,2,6269,2,3728,2,3728,1,3516,1,3728,1,4184,1,4697,2,5586,1,5586,1,6269,1,6269,1,5586,2,4184,2,4976,2,4697,4,0,0
38 DATA1,6,3718,2,3718,2,3718,4,3718,2,3718,2,3718,4,3718,2,3134,2,4697,3,4184,1,3718,8,0,1,3516,2,3516,2,3516,3,3516,1,3516,2,3718,2,3718,2,3718,2,3718,2,4184,2,4184,2,3718,2,4184,4,3134,4,3718,2,3718,2,3718,4,3718,2
39 DATA3718,2,3718,4,3718,2,3134,2,4697,3,4184,1,3718,8,0,1,3516,2,3516,2,3516,3,3516,1,3516,2,3718,2,3718,2,3718,2,3134,2,3134,2,3516,2,4184,2,4697,8,0,1,6269,2,3718,2,4184,2,4697,2,6269,8,6269,1,6269,2,3718,2
40 DATA4184,2,4697,2,5586,8,0,0.5,5586,0.5,5586,0.5,5586,2,3516,2,3718,2,4184,2,4968,8,3134,0.5,3134,3,3134,2,3516,2,4184,2,3718,4,4697,4,6269,2,3718,2,4184,2,4697,2,6269,8,6269,1,6269,2,3718,2,4184,2,4697,2,5586,8,0,0.5
41 DATA5586,0.5,5586,0.5,5586,2,3516,2,3718,2,4184,2,3134,2,3134,2,3134,4,3134,1,2793,2,3134,2,3516,2,4184,2,4697,8,3718,2,3718,2,3718,4,3718,2,3718,2,3718,4,3718,2,3134,2,4697,3,4184,1,3718,8,0,1,3516,2,3516,2,3516,3
42 DATA3516,1,3516,2,3718,2,3718,2,3718,2,3718,2,4184,2,4184,2,3718,2,4184,4,3134,4,3718,2,3718,2,3718,4,3718,2,3718,2,3718,4,3718,2,3134,2,4697,3,4184,1,3718,8,0,1,3516,2,3516,2,3516,3,3516,1,3516,2,3718,2,3718,2
43 DATA3718,2,3134,8,3134,8,2793,8,2484,8,2348,16,0,0
44 DATA1,6.5,6269,6,5586,2,6269,4,7456,12,6269,6,5586,2,6269,4,7456,12,4184,8,4184,4,4968,12,4697,8,4697,4,6269,12,5586,8,5586,4,4697,6,4968,2,5586,4,6269,6,5586,2,6269,4,7456,12,5586,8,5586,4,4697,6,4968,2,5586,4,6269,6,5586,2
45 DATA6269,4,7456,12,4184,8,4184,4,3516,6,4184,2,4968,4,4697,12,3718,12,4697,4,6269,4,7456,4,6269,6,7032,2,8368,4,9394,13,0,0
46 DATA1,3.8,3718,4,3718,4,3718,4,3718,2,3134,2,3134,6,3516,2,3718,4,4697,4,3718,4,3718,4,3718,4,3134,4,3718,6,4184,2,4697,8,3718,4,3718,4,3718,4,3718,2,3134,2,3134,6,3516,2,3718,4,4697,4,3718,4,3718,4,3718,4,3134,4,3718,6
47 DATA4184,2,4697,8,3134,8,2793,2,3134,2,3516,2,3718,2,3516,8,3134,2,3516,2,3718,2,4184,2,3718,8,3516,2,3718,2,4184,2,4697,2,4184,6,6269,2,6269,8,4697,4,4184,4,3718,4,3516,4,3718,8,4184,8,3134,8,2793,2,3134,2,3516,2
48 DATA3718,2,3516,8,3134,2,3516,2,3718,2,4184,2,3718,8,3516,2,3718,2,4184,2,4697,2,4184,6,6269,2,6269,8,4697,4,4184,4,3718,4,3516,4,3718,8,4184,8,4697,2, 4697,12,0,0
49 DATA1,6,2348,4,2484,3,2793,1,3134,6,3516,2,3718,4,4184,4,4697,6,3134,2,2793,6,2793,2,2484,6,2484,2,2348,8,0,3,2348,2,2348,2,2484,2,2793,2,3134,2,3134,3,3516,1,3718,2,2348,2,2348,2,2484,2,2793,2,3134,2,3134,3,3516,1
50 DATA3718,2,3718,2,3718,2,3718,2,3718,2,3718,1,3516,1,3134,6,3516,1,3718,1,4184,2,4184,2,4184,2,4184,1,3718,1,3516,6,3718,1,4184,1,4697,2,2348,4,2793,2,3134,3,3516,1,3718,2,3516,2,3718,4,4184,4,4697,8,0,0
51 DATA1,5,4697,2,4697,8,6269,4,4697,4,4184,8,6269,8,3718,4,4184,4,3718,4,3516,4,3718,8,4184,4,4697,4,4697,8,4968,4,5586,4,4968,4,4697,4,4184,4,3718,4,4968,8,5586,6,6269,2,6269,16,6269,1,3134,8,3516,4,3718,4,3516,8,3718,8
52 DATA4184,4,3718,4,4697,4,4184,4,4968,6,5586,2,6269,4,4697,4,4697,4,4968,4,4697,4,4184,4,4697,8,6269,4,3718,4,3718,4,4184,4,3718,4,3516,4,3718,8,4184,4,3718,4,3516,4,3718,4,4184,4,4697,4,4968,8,4697,4,3516,4,3718,8
53 DATA4184,6,4697,2,4697,16,0,0
54 DATA1,6,3718,4,3718,4,3718,4,3950,4,3718,4,3134,4,3516,4,5586,4,4184,4,4697,4,4968,2,4697,2,4184,4,6269,4,3718,12,3718,4,3718,4,3718,4,2793,4,3134,4,3134,4,3516,4,5586,4,4184,4,4697,4,4968,2,4697,2,3718,4,4184,4,4697,12
55 DATA3718,4,3718,4,3718,4,4184,4,4697,4,4968,8,4968,4,4968,4,5586,4,4968,4,4697,4,4184,4,3718,12,3718,4,3718,4,3718,4,3950,4,3718,4,3134,4,3516,4,5586,4,2793,4,3134,4,4697,4,3718,6,4184,2,4697,12,0,0
56 DATA1,6,6269,4,4697,4,4697,6,4968,2,4697,4,3718,4,3718,4,4184,4,3134,4,3134,4,3134,6,3516,2,3718,4,4184,4,3718,8,6269,4,4697,4,4697,6,4968,2,4697,4,3718,4,3718,4,4184,4,3134,4,4184,4,4184,6,4968,2,4968,4,5586,4,6269,8
57 DATA3134,4,3134,4,3134,4,4697,4,3516,4,3718,4,3718,4,4184,4,3134,4,3134,4,3134,4,4697,4,3516,4,3718,4,3718,4,4184,4,2793,4,2793,4,2793,6,3134,2,3516,4,3718,4,3516,8,4184,4,3718,2,3516,2,3134,6,4697,2,4697,4,4184,4
58 DATA3718,8,2793,4,2793,4,2793,6,3134,2,3516,4,3718,4,3516,8,4184,4,3718,2,3516,2,3134,6,4697,2,4697,4,4184,4,4697,8,0,0
59 IFERR=5ANDERL=15THENPRINT:PRINT" Oops! LINE must be activated for this!":END
60 PRINT"Error"ERR"in line"ERLCHR$(8)".":END