CLS
START:
DO
CLS
LET A$ = INKEY$
IF A$ = CHR$(65) THEN PLAY "MBA": LET B$ = B$ + "A"
IF A$ = CHR$(66) THEN PLAY "MBB": LET B$ = B$ + "B"
IF A$ = CHR$(67) THEN PLAY "MBC": LET B$ = B$ + "C"
IF A$ = CHR$(68) THEN PLAY "MBD": LET B$ = B$ + "D"
IF A$ = CHR$(69) THEN PLAY "MBE": LET B$ = B$ + "E"
IF A$ = CHR$(70) THEN PLAY "MBF": LET B$ = B$ + "F"
IF A$ = CHR$(71) THEN PLAY "MBG": LET B$ = B$ + "G"
IF A$ = CHR$(27) THEN EXIT DO
LOOP
DO
CLS
PRINT "1) PLAY YOUR MUSIC"
PRINT "2) DELETE YOUR MUSIC"
PRINT "3) START"
PRINT "4) EXIT"
INPUT C
IF C = 1 THEN PLAY B$
IF C = 2 THEN LET B$ = ""
IF C = 3 THEN GOTO START
IF C = 4 THEN EXIT DO
LOOP
END