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