0 ' HANDEL.BA - BY M. LEE
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:PRINT@56,"BOURREE":PRINT@129,"from ";CHR$(34);"The Water Music";CHR$(34):PRINT@215,"by Handel":LINE(127,7)-(130,4):FORK=1TO1000:NEXT:S1=4975:S2=9395:RESTORE
3 GOSUB9:IFS1<>V1THEN3
4 RESTORE
5 GOSUB9:IFS2<>V1THEN5
6 RESTORE12
7 GOSUB9:IFS2<>V1THEN7
8 FORK=1TO500:NEXT:MENU
9 READV1,V2,V3,DU:FORK=1TODU:SOUNDV1,1:SOUNDV2,1:SOUNDV3,1:NEXT:RETURN:DATA7456,3134,0,4,9394,3728,0,4,7032,2793,0,4,7456,6269,0,4:DATA9394,0,4697,4,6269,0,4976,4,4697,0,3728,4,4976,0,4184,4,6269,3516,0,4
10 DATA4697,3728,0,4,5586,3728,2348,4,7032,3516,2092,4,6269,3728,2348,2:DATA6269,4184,2488,2,9394,3728,2348,4,9394,3134,0,4:DATA9394,4697,0,4,9394,4184,0,2,9394,4697,0,2,6269,4697,0,4,4697,3728,0,4
11 DATA4976,4184,0,4,6269,0,3134,4,8368,0,6642,4,6269,0,4976,4:DATA6642,0,5586,2,6642,0,4976,2,8368,2793,2348,4,6269,3134,2488,2,5586,3134,2348,2:DATA4976,3134,2092,4,4184,0,2092,4,8368,4697,6642,4,6269,4976,3134,4,5586,4697,3134,4,4975,4184,3134,4
12 DATA4976,0,2092,4,6269,0,2488,4,4697,0,1864,4,4976,0,2092,4,6269,3728,0,4:DATA4697,3728,0,4,5586,2793,0,4,3728,2959,0,4:DATA5586,0,2348,4,4184,0,2348,4,4697,0,1864,4,4976,0,2092,4,5918,3728,2348,2,5918,3728,2488,2
13 DATA5586,3728,2348,2,4976,3728,2092,2,4697,0,1864,4,4697,0,2793,2,4976,0,2793,2,5586,2793,2216,2,6269,2793,2216,2:DATA7032,2793,2092,2,7456,2793,1864,2,8368,2793,1758,4,8368,0,2793,2,7456,0,2793,2,7032,2793,2092,4
14 DATA6269,3134,2488,2,5586,3134,2348,2,4976,0,2092,4,4976,0,3134,2:DATA5586,0,3134,2,4976,3516,0,4,0,3728,4697,2,0,3516,4697,2:DATA0,3134,7456,4,0,4184,7032,2,0,4184,6269,2,0,4697,5586,4,0,4976,6269,2
15 DATA0,4697,6269,2,0,4184,7032,4,0,6269,7456,4,6269,0,4976,4:DATA7456,0,4697,4,5586,0,3516,4,6269,0,3728,4,4697,3728,4697,4,4976,4184,6269,4:DATA3728,4697,4697,4,4184,3134,4976,2,3728,6269
16 DATA4976,2,3516,2488,6269,4,3728,2348,9394,4,4184,3134,7456,2,4697,3134,7456,2:DATA4976,4184,6269,2,4697,3728,6269,2,4184,3516,6269,4:DATA4697,3728,5586,4,4976,3516,5586,2,5586,3516,5586,2,6269,4184,4976,4
17 DATA7032,4976,6269,4,7456,4697,4697,2,7032,4184,4697,2:DATA6269,3728,7456,4,7456,4697,6269,4,8368,4976,6269,2,9394,4976,6269,2,9395,4697,6269,20