'-- comblink.bas ----------------------------------------------- >>fst'01<< -
' - Erzeugt einen hochfreqenten Ton, dessen Frequenz langsam abnimmt.
' - Bei Tastendruck wird die aktuelle Frequenz angezeigt.
' - Bei zunehmendem Alter verschlechtert sich die Wahrnehmung hoher Toene,
'   Kinder gewinnen meistens.
' - Der uebliche primitiv-Lautsprecher des PC kann die hohen Frequenzen meist
'   nicht wiedergeben. Ideal ist ein Piezo-Schallwandler, wie er in den
'   meisten Notebooks installiert ist.
'-- V 20010904 ------------------------------ http://home.arcor.de/steini63 -

CLS
LOCATE 9, 1
PRINT " *** Hochfrequenz Hoertest ***                              >>fst'01<<"
PRINT
PRINT " A C H T U N G  !"
PRINT " Taste druecken, wenn ein Ton zu hoeren ist."

'zufaellige Vorlaufzeit (max 3 Sek) mittels unhoerbarem Ton erzeugen:
RANDOMIZE TIMER
SOUND 30000, RND * 54

'Ton mit abnehmender Frequenz erzeugen:
FOR i% = 20000 TO 2000 STEP -10
 SOUND i%, .2
 IF INKEY$ <> "" THEN GOTO Taste
NEXT i%

PRINT
PRINT " T a u b  !?"
PRINT
END

Taste:
CLS
LOCATE 12, 2
PRINT USING "Taste bei ##.## Kilohertz gedrueckt!"; i% / 1000
END