10 CLS:LOCATE 10,20:INPUT "Want to start the music (y/n)";ANS$
20 IF ANS$="Y" OR ANS$="y" THEN 30 ELSE END
30 FOR O=1 TO 6
40 PLAY "o" + STR$(O)
50 PLAY "ABCDEFG"
60 NEXT