10 FORA=1TO266STEP2
20 READ B,C
30 C=C/2:SOUND B,C
40 D=D+1:PRINT@D,"":PRINT@D-1," "
50 NEXT A:MENU
59DATA8368,16,1,2,8368,16,1,2,8368,16
60data1,2
61data6269,100,4184,100,4697,16,4968,16
62data5586,16,3134,100,4184,50,4697,16
63data4968,16,5586,16,3134,100,4184,50
70 DATA4697,17,4968,17,4697,17,5586,100
71data8368,50,6269,100,4184,100,4697,16
72data4968,16,5586,16,3134,100,4184,50
73data4697,16,4968,16,5586,16,3134,100
74data4184,50,4697,17,4968,17,4697,17
75data5586,100,8368,50
80 DATA7456,75,1,2,7456,25,4697,25
81data4968,25,5586,25,6269,25,1,2
82data6269,17,5586,17,4968,17,5586,34
83data7456,17,6642,50,8368,50,7456,75
84data1,2,7456,25,4697,25,4968,25
85data5586,25,6269,25
90 DATA4184,37.5,5586,12.5,1,2,5586,100
91data8368,50,7456,75,1,2,7456,25
92data4697,25,4968,25,5586,25,6269,25
93data1,2,6269,17,5586,17,4968,17
94data5586,34,7456,17,6642,50,4184,50
100 DATA3134,34,3516,17,3950,34,4184,17
101data4697,34,5272,17,5586,34,6269,17
102data4184,150,1,4,8368,17,1,2,8368,17
103data1,2,8368,17,1,2,6269,100
104data4184,100,4697,17,4968,17,5586,17
110DATA3134,100,4184,50,4697,17,4968,17
111data5586,17,3134,100,4184,50,4697,17
112data4968,17,4697,17,5586,100,8368,50
113data6269,100,4184,100,4697,17
114data4968,17,5586,17,3134,100,4184,50
115data4697,17,4968,17,5586,17,3134,100
116data4184,50
120DATA4697,17,4968,17,4697,17,5586,100
121data4184,50,3134,200