10 Q=31960.4:REM NTSC
20 IF PEEK(53268)=1 THEN Q=31668.7:REM PAL
30 FOR I=1 TO 8
40 READ F
50 P=INT(Q/F-0.5)
60 SOUND 1,P,10,15
70 FOR T=0 TO 800:NEXT T
80 NEXT I
90 DATA 262,294,330,349,392,440,494,523