0 ' ***mark lee [72316,3410] may,'85***
1 CLS:PRINT@56,"BOURREE":PRINT@129,"from ";CHR$(34);"The Water Music";CHR$(34):PRINT@215,"by Handel":LINE(127,7)-(130,4)
2 FORK=1TO1000:NEXT
3 S1=4975:S2=9395
4 RESTORE
5 GOSUB11:IFS1<>V1THEN5
6 RESTORE
7 GOSUB11:IFS2<>V1THEN7
8 RESTORE108
9 GOSUB11:IFS2<>V1THEN9
10 FORK=1TO500:NEXT:MENU
11 READV1,V2,V3,DU:FORK=1TODU:SOUNDV1,1:SOUNDV2,1:SOUNDV3,1:NEXT:RETURN
100DATA7456,3134,0,4,9394,3728,0,4,7032,2793,0,4,7456,6269,0,4
101data9394,0,4697,4,6269,0,4976,4,4697,0,3728,4,4976,0,4184,4,6269,3516,0,4
102DATA4697,3728,0,4,5586,3728,2348,4,7032,3516,2092,4,6269,3728,2348,2
103data6269,4184,2488,2,9394,3728,2348,4,9394,3134,0,4
104DATA9394,4697,0,4,9394,4184,0,2,9394,4697,0,2,6269,4697,0,4,4697,3728,0,4
105data4976,4184,0,4,6269,0,3134,4,8368,0,6642,4,6269,0,4976,4
106DATA6642,0,5586,2,6642,0,4976,2,8368,2793,2348,4,6269,3134,2488,2,5586,3134,2348,2
107DATA4976,3134,2092,4,4184,0,2092,4,8368,4697,6642,4,6269,4976,3134,4,5586,4697,3134,4,4975,4184,3134,4
108DATA4976,0,2092,4,6269,0,2488,4,4697,0,1864,4,4976,0,2092,4,6269,3728,0,4
109data4697,3728,0,4,5586,2793,0,4,3728,2959,0,4
110DATA5586,0,2348,4,4184,0,2348,4,4697,0,1864,4,4976,0,2092,4,5918,3728,2348,2,5918,3728,2488,2
111DATA5586,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
112DATA7032,2793,2092,2,7456,2793,1864,2,8368,2793,1758,4,8368,0,2793,2,7456,0,2793,2,7032,2793,2092,4
113DATA6269,3134,2488,2,5586,3134,2348,2,4976,0,2092,4,4976,0,3134,2
114data5586,0,3134,2,4976,3516,0,4,0,3728,4697,2,0,3516,4697,2
115DATA0,3134,7456,4,0,4184,7032,2,0,4184,6269,2,0,4697,5586,4,0,4976,6269,2
116data0,4697,6269,2,0,4184,7032,4,0,6269,7456,4,6269,0,4976,4
117DATA7456,0,4697,4,5586,0,3516,4,6269,0,3728,4,4697,3728,4697,4,4976,4184,6269,4
118data3728,4697,4697,4,4184,3134,4976,2,3728,6269
119DATA4976,2,3516,2488,6269,4,3728,2348,9394,4,4184,3134,7456,2,4697,3134,7456,2
120data4976,4184,6269,2,4697,3728,6269,2,4184,3516,6269,4
121DATA4697,3728,5586,4,4976,3516,5586,2,5586,3516,5586,2,6269,4184,4976,4
122data7032,4976,6269,4,7456,4697,4697,2,7032,4184,4697,2
123DATA6269,3728,7456,4,7456,4697,6269,4,8368,4976,6269,2,9394,4976,6269,2,9395,4697,6269,20