1 ' WATER MUSIC
2 '  By Handel
3 ' Programmed by Eiji Miura & T. Law
4 ' july 29, l984
5 ' ---------------------------------
10 X=3:ONERRORGOTO29:RESTORE21
11 READA,B:B=B*X
12 IFA=2ANDB=0ANDZ=0THENSOUND4697,12*X:RESTORE24:Z=-1:GOTO11
13 IFA=2THENRESTORE26:GOTO11
14 IFA=3ANDB=0ANDY=0THENSOUND4184,4*X:SOUND4697,2*X:SOUND4968,2*X:SOUND4697,4*X:RESTORE27:Y=-1:GOTO11
15 IFA=3THENRESTORE28:GOTO11
16 IFA=4ANDQ=0THENQ=-1:GOTO11
17 IFA=4THENEND
18 SOUNDA,B
19 GOTO11
20 END
21 DATA6269,8,4697,12,4184,4,3718,4,4697,4,4184,4,3718,4,4697,4,4184,4,3134,8,4184,4
22 DATA3718,4,4184,2,4697,2,4184,4,3134,8,4184,4,3718,4,4184,2,4697,2,4184,4,6269,6,0,4
23 DATA3134,4,3134,4,3134,4,3134,4,3516,2,3718,2,3516,4,3516,4,3516,4,3516,4,3718,2,4184,2,3718,4
24 DATA3134,4,3134,4,3134,4,3134,4,3516,2,3718,2,3516,4,3516,4,3516,4,3516,4,3516,12
25 DATA3134,4,3718,4,4184,4,3718,4,3516,4,4184,8,4697,2,2,0
26 DATA4697,8,4,0,3718,4,4697,4,5586,4
27 DATA3718,4,3718,4,3718,4,3718,4,4184,2,4697,2,4184,4,4184,4,4184,4,4184,4,3,0
28 DATA4184,12,3718,4,4697,4,4968,4,4697,4,4184,4,4968,4,5586,2,5586,12,0,8
29 IFERR=4THENRESTORE21:RESUME11