0 'SCALES.BA Stan Kossen - 1/86 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' mods by Bill Templeton - 1/86 3 ' (tests from 2432 to 49,139 Hz) 4 CLS:E$=CHR$(27):R$=E$+"p":N$=E$+"q 5 PRINT@41,"Count the NUMBER of BEATS you can hear. Press after the last audible tone. 6 PRINT@128,SPACE$(25):PRINT@212,SPACE$(26) 7 N=0:FORI=990TO50STEP-20:N=N+1:PRINT@203,R$" #"N" "N$:SOUNDI,16:FORT=1TO10:NEXT:K$=INKEY$:IFK$<>""THEN8ELSENEXT 8 PRINT@128,"In this test you heard...":PRINT@212,"approximately: "R$INT(110/(I+20)*22336)" Hz "N$ 9 PRINT:PRINT" Do you want to try again (Y/N)?";:B$=INPUT$(1):FORX=1TO50:NEXT:IFB$="Y" ORB$="y"THEN6ELSEMENU