0 ' HRTEST.BA - BY Janet Goldenberg
1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:'FOR S=1000 TO 0 STEP -50:SOUND S,2:NEXT S
3 PRINT "THIS IS A TEST OF YOUR":PRINT"HIGH-FREQUENCY HEARING...":FOR X=1 TO 500:NEXT X :CLS:PRINT"Listen to the interval between":PRINT"the two clicks. If you hear nothing,":PRINT"type 'N <ENTER>', and the computer"
4 PRINT"will test you with the next lower tone.":PRINT"If you hear something, type 'Y <ENTER>'":PRINT"and the computer will report what":PRINT"frequency you heard.":FOR X=1 TO 500:NEXT X:PRINT"      READY (press G to go)";
5 R$=INKEY$:IFR$=""THEN5
6 IFR$="G"ORR$="g"THEN8
7 GOTO5
8 FOR X=1 TO 500:NEXT X
9 CLS:PRINT"LISTEN...":FOR X=1 TO 500:NEXT X:FOR N=50 TO 350 STEP 20:SOUND N,50:CLS:PRINT@125,"Did you hear that tone (Y/N)? ";
10 A$=INKEY$:IFA$=""THEN10
11 IFA$="Y"ORA$="y"THENPRINT@215,"...yes":GOTO14
12 IFA$="N"ORA$="n"THENPRINT@215,"...no":NEXTN
13 GOTO10
14 CLS:PRINT"The highest pitch adults can":PRINT"normally hear is 20,000":PRINT"vibrations per second (Hz).":PRINT"In this test you heard approximately" INT(110/N*22336) "Hz.":FOR X=1 TO 1000:NEXT X:PRINT""
15 CLS:PRINT@125,"Do you want to try again (Y/N)? ";
16 B$=INKEY$:IFB$=""THEN16
17 IFB$="Y"ORB$="y"THENPRINT@215,"...yes":GOTO9
18 IFB$="N"ORB$="n"THENPRINT@215,"...no":MENU
19 GOTO16