tutorial/group2/14.bas

   1 CLS\r
   2 PRINT "press keys 0-9, for sound"\r
   3 PRINT "press ESC to exit program"\r
   4 \r
   5 1\r
   6 a$ = INPUT$(1)\r
   7 \r
   8 IF a$ = "1" THEN SOUND 1000, 2\r
   9 IF a$ = "2" THEN SOUND 1100, 2\r
  10 IF a$ = "3" THEN SOUND 1200, 2\r
  11 IF a$ = "4" THEN SOUND 1300, 2\r
  12 IF a$ = "5" THEN SOUND 1400, 2\r
  13 IF a$ = "6" THEN SOUND 1500, 2\r
  14 IF a$ = "7" THEN SOUND 1600, 2\r
  15 IF a$ = "8" THEN SOUND 1700, 2\r
  16 IF a$ = "9" THEN SOUND 1800, 2\r
  17 IF a$ = "0" THEN SOUND 1900, 2\r
  18 IF a$ = CHR$(27) THEN SYSTEM   ' 27 = ESCape key code\r
  19 \r
  20 GOTO 1\r
  21 \r