10 CLS
20 LOCATE 5,5:PRINT "Use keyboard to make noise!"
200 A$=INKEY$
300 IF A$="6" OR A$="^" THEN SOUND 440,2
310 IF A$="7" OR A$="&" THEN SOUND 493.88,2
320 IF A$="8" OR A$="*" THEN SOUND 523.25,2
330 IF A$="T" OR A$="t" THEN SOUND 587.33,2
340 IF A$="Y" OR A$="y" THEN SOUND 659.26,2
350 IF A$="U" OR A$="u" THEN SOUND 698.46,2
360 IF A$="I" OR A$="i" THEN SOUND 783.99,2
370 IF A$="G" OR A$="g" THEN SOUND 880,2
380 IF A$="H" OR A$="h" THEN SOUND 987.77,2
390 IF A$="J" OR A$="j" THEN SOUND 1046.5,2
400 IF A$="K" OR A$="k" THEN SOUND 1174.7,2
410 IF A$="B" OR A$="b" THEN SOUND 1318.5,2
420 IF A$="N" OR A$="n" THEN SOUND 1395.9,2
430 IF A$="M" OR A$="m" THEN SOUND 1568,2
440 IF A$="," OR A$="<" THEN SOUND 1760,2
450 IF A$="." OR A$=">" THEN SOUND 1975.5,2
460 IF A$="3" OR A$="#" THEN SOUND 220,2
470 IF A$="4" OR A$="$" THEN SOUND 246.94,2
480 IF A$="5" OR A$="%" THEN SOUND 261.63,2
490 IF A$="Q" OR A$="q" THEN SOUND 293.66,2
500 IF A$="W" OR A$="w" THEN SOUND 329.63,2
510 IF A$="E" OR A$="e" THEN SOUND 349.23,2
520 IF A$="R" OR A$="r" THEN SOUND 392,2
530 IF A$="Z" OR A$="z" THEN SOUND 130.81,2
540 IF A$="X" OR A$="x" THEN SOUND 146.83,2
550 IF A$="A" OR A$="a" THEN SOUND 164.81,2
560 IF A$="S" OR A$="s" THEN SOUND 174.61,2
570 IF A$="D" OR A$="d" THEN SOUND 196,2
580 IF A$="C" OR A$="c" THEN SOUND 278,2
590 IF A$="L" OR A$="l" THEN SOUND 569,2
600 IF A$="F" OR A$="f" THEN SOUND 789,2
610 IF A$="P" OR A$="p" THEN SOUND 897,2
620 IF A$="O" OR A$="o" THEN SOUND 987,2
630 IF A$="V" OR A$="v" THEN SOUND 321,2
631 IF A$="1" OR A$="!" THEN SOUND 245,2
632 IF A$="2" OR A$="@" THEN SOUND 475,2
633 IF A$="9" OR A$="(" THEN SOUND 567,2
634 IF A$="0" OR A$=")" THEN SOUND 678,2
635 IF A$="-" OR A$="_" THEN SOUND 320,2
636 IF A$="=" OR A$="+" THEN SOUND 749,2
637 IF A$="[" OR A$="{" THEN SOUND 151.6,2
638 IF A$="]" OR A$="}" THEN SOUND 555,2
639 IF A$="\" OR A$="|" THEN SOUND 66.6,2
640 IF A$="'" OR A$=" " THEN SOUND 975,2
641 IF A$=";" OR A$=":" THEN SOUND 385,2
642 IF A$="/" OR A$="?" THEN SOUND 567,2
643 GOTO 200