CLS
PRINT "press keys 0-9, for sound"
PRINT "press ESC to exit program"

1
a$ = INPUT$(1)

IF a$ = "1" THEN SOUND 1000, 2
IF a$ = "2" THEN SOUND 1100, 2
IF a$ = "3" THEN SOUND 1200, 2
IF a$ = "4" THEN SOUND 1300, 2
IF a$ = "5" THEN SOUND 1400, 2
IF a$ = "6" THEN SOUND 1500, 2
IF a$ = "7" THEN SOUND 1600, 2
IF a$ = "8" THEN SOUND 1700, 2
IF a$ = "9" THEN SOUND 1800, 2
IF a$ = "0" THEN SOUND 1900, 2
IF a$ = CHR$(27) THEN SYSTEM   ' 27 = ESCape key code

GOTO 1