' QBasic Audio Frequency Alignment Routine for the LINESIM project.
' (C)1999 S Chalmers.
'
' WINDOWS 95 users can find QBASIC.EXE on the Windows 95 CD in the
' "\OTHER\OLDMSDOS" folder.


CLS
 PRINT "Audio Frequency Alignment Routine for the LINESIM project."
 PRINT "(C)1999 S Chalmers."
 PRINT ""
 PRINT "Select Required Frequency:"
 PRINT ""
 PRINT "A - 400 Hz  Most Countries"
 PRINT "B - 437 Hz  Belgium"
 PRINT "F - 480 Hz  France"
 PRINT "S - 300 Hz  Singapore"
 PRINT ""
 PRINT "Esc = Exit"

DO
  DO
   K$ = UCASE$(INKEY$)
  LOOP WHILE K$ = ""

  IF K$ <> CHR$(27) THEN
   SELECT CASE K$
    CASE "A"
     SOUND 400, 100
    CASE "B"
     SOUND 437, 100
    CASE "F"
     SOUND 480, 100
    CASE "S"
     SOUND 300, 100
    CASE ELSE
     SOUND 600, 2
     SOUND 200, 2
   END SELECT
 END IF

LOOP WHILE K$ <> CHR$(27)

CLS