10 REM SOUNDOFF.BAS›20 INKEY=35:FREQ=53760›30 SOUND 0,0,0,0:GRAPHICS 0:OPEN #1,4,0,"K:"›35 GET #1,K:IF K=32 THEN SOUND 0,0,0,0:PRINT CHR$(K):GOTO INKEY:REM 32 IS A SPACE›40 IF K>64 OR K>122 THEN GOTO INKEY:REM NOT A LETTER›50 IF K>90 AND K<97 THEN GOTO INKEY:REM NOT A LETTER›60 IF K>90 THEN K=K-32:REM CHANGE LOWER CASE TO UPPER CASE›70 TONE=K-64:IF TONE<1 OR TONE>7 THEN GOTO INKEY:REM NOT A,B,C,D,E,F OR G›80 PRINT CHR$(K);:GOSUB 1000›90 ON TONE GOTO 100,200,300,400,500,600,700›100 POKE FREQ,145:GOTO INKEY:REM A›200 POKE FREQ,134:GOTO INKEY:REM B›300 POKE FREQ,121:GOTO INKEY:REM C›400 POKE FREQ,108:GOTO INKEY:REM D›500 POKE FREQ,96:GOTO INKEY:REM E›600 POKE FREQ,91:GOTO INKEY:REM F›700 POKE FREQ,81:GOTO INKEY:REM G›1000 SOUND 0,255,10,8:RETURN :REM SET UP AUDIO REGISTERS TO PLAY NOTES›