'===========================================================================
' Subject: MUSIC MAKER                        Date: 02-19-96 (15:01)       
'  Author: Ryan White                         Code: QB, QBasic, PDS        
'  Origin: BIGFOOT@SunBelt.Net              Packet: SOUND.ABC
'===========================================================================
CLS
SCREEN 0
LOCATE 15, 25
y = 4
lopear:
SCREEN 0
COLOR 4, 0
CLS
LOCATE 1, 25: PRINT "RYAN'S "
LOCATE 2, 5: PRINT "**      **     **     **      *****     ******      *****"
LOCATE 3, 5: PRINT "** **** **     **     **     **           **       **   **"
LOCATE 4, 5: PRINT "**  **  **     **     **      ****        **       **"
LOCATE 5, 5: PRINT "**  **  **      *** ***          **       **       **   **"
LOCATE 6, 5: PRINT "**      **       *****        *****     ******      *****"
LOCATE 17, 18: PRINT "PRESS ANY WHITE KEY TO MAKE MUSIC"
LOCATE 23, 20: PRINT "PRESS <SPACE> TO QUIT"
DO
   USER.KEY$ = INKEY$
   SELECT CASE UCASE$(USER.KEY$)
      CASE "1": PLAY "O0 L16 A"
      CASE "2": PLAY "O0 L16 B"
      CASE "3": PLAY "O0 L16 C"
      CASE "4": PLAY "O0 L16 D"
      CASE "5": PLAY "O0 L16 E"
      CASE "6": PLAY "O0 L16 F"
      CASE "7": PLAY "O0 L16 G"
      CASE "8": PLAY "O1 L16 A"
      CASE "9": PLAY "O1 L16 B"
      CASE "0": PLAY "O1 L16 C"
      CASE "-": PLAY "O1 L16 D"
      CASE "=": PLAY "O1 L16 E"
      CASE "\": PLAY "O1 L16 F"
      CASE "Q": PLAY "O1 L16 G"
      CASE "W": PLAY "O2 L16 A"
      CASE "E": PLAY "O2 L16 B"
      CASE "R": PLAY "O2 L16 C"
      CASE "T": PLAY "O2 L16 D"
      CASE "Y": PLAY "O2 L16 E"
      CASE "U": PLAY "O2 L16 F"
      CASE "I": PLAY "O2 L16 G"
      CASE "O": PLAY "O3 L16 A"
      CASE "P": PLAY "O3 L16 B"
      CASE "[": PLAY "O3 L16 C"
      CASE "]": PLAY "O3 L16 D"
      CASE "A": PLAY "O3 L16 E"
      CASE "S": PLAY "O3 L16 F"
      CASE "D": PLAY "O3 L16 G"
      CASE "F": PLAY "O4 L16 A"
      CASE "G": PLAY "O4 L16 B"
      CASE "H": PLAY "O4 L16 C"
      CASE "J": PLAY "O4 L16 D"
      CASE "K": PLAY "O4 L16 E"
      CASE "L": PLAY "O4 L16 F"
      CASE ";": PLAY "O4 L16 G"
      CASE "'": PLAY "O5 L16 A"
      CASE "Z": PLAY "O5 L16 B"
      CASE "X": PLAY "O5 L16 C"
      CASE "C": PLAY "O5 L16 D"
      CASE "V": PLAY "O5 L16 E"
      CASE "B": PLAY "O5 L16 F"
      CASE "N": PLAY "O5 L16 G"
      CASE "M": PLAY "O6 L16 A"
      CASE ",": PLAY "O6 L16 B"
      CASE ".": PLAY "O6 L16 C"
      CASE "/": PLAY "O6 L16 D"
      CASE "`": PLAY "L16 ABCDEFGFEDCBA"
      CASE " ": EXIT DO
END SELECT

x = INT(RND * 14) + 1
PALETTE y, x
x = y
LOOP UNTIL (UCASE$(USER.KEY$) = " ")