10 FOR I=1 TO 8
20 READ F
30 P=285*200/F
40 SOUND(F,P)
50 NEXT
60 DATA 262, 294, 330, 349, 392, 440, 494, 523