SCREEN 13
CLS
RANDOMIZE TIMER
col% = INT(RND * 200) + 1
COLOR col%
PRINT "In this music program you play by"
COLOR col% + 1
PRINT "pressing the button with the same "
COLOR col% + 2
PRINT "letter as the note you wanna play."
COLOR col% + 3
PRINT "It's that simple! So press a button and start to play!"
SLEEP
CLS
DO
SELECT CASE INKEY$
CASE "a": PLAY "l10a": LOCATE 1, 1: PRINT "Note a"
CASE "b": PLAY "l10b": LOCATE 1, 1: PRINT "Note b"
CASE "c": PLAY "l10c": LOCATE 1, 1: PRINT "Note c"
CASE "d": PLAY "l10d": LOCATE 1, 1: PRINT "Note d"
CASE "e": PLAY "l10e": LOCATE 1, 1: PRINT "Note e"
CASE "f": PLAY "l10f": LOCATE 1, 1: PRINT "Note f"
CASE "g": PLAY "l10g": LOCATE 1, 1: PRINT "Note g"
END SELECT
LOOP 'UNTIL INKEY$ = CHR$(27)