10 CLS
20 PRINT TAB(11)"PORTABLE 100 MAG "
30 PRINT TAB(11)"**************** "
40 PRINT TAB(11)"* HEARING TEST * "
50 PRINT TAB(3)"DEC ->  *              *  -> 1985 "
60 PRINT TAB(11)"* (HRTEST.BA)  * "
70 PRINT TAB(11)"*              * "
80 PRINT TAB(12)"Janet Goldberg "
90 PRINT TAB(16)"<ENTER> ";
95 A$=INKEY$:IFA$=""GOTO95
100 CLS:FORS=1000TO0STEP-50:SOUND S,3:NEXTS
200 PRINT@122,"This is a test of your hi-frequency"
210 PRINT"  hearing...":FORX=1TO800:NEXTX
300 CLS:PRINT"  Listen to the interval between the"
400 PRINT"  two clicks. If you hear nothing, type":PRINT"  'N' & <ENTER>' and the computer will"
410 PRINT"  test you with the next tone. If you"
600 PRINT"  hear something, type 'Y' & <ENTER>',"
700 PRINT"  & the computer will report what"
800 PRINT"  frequency you heard."
1000 PRINT@296,"<ENTER>";
1010 IFINKEY$=""THEN1010ELSE1200
1200 BEEP:CLS:PRINT:PRINT"    Listen...":FORX=1TO600:NEXT
1300 FORN=50TO350STEP20:SOUND N,50
1400 PRINT:INPUT" Dis you hear that tone (Y/N)";A$
1500 IF(A$="Y")OR(A$="y")THEN 1600 ELSE NEXT N
1600 CLS:PRINT:PRINT" The highest pitch adults can normally"
1610 PRINT" hear is 20,000 vibrations/second (Hz)."
1700 PRINT" In this test you heard approximately"
1710 PRINT INT(110/N*22336) "Hz.":PRINT
1800 INPUT" Want to try again (Y/N)";B$
1900 IF B$="Y"ORB$="y"THEN1200ELSE MENU