9 lines
203 B
Text
9 lines
203 B
Text
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
|