The code

PRINT "                       QBPlay Audio player - v.0.1 p-r"
PRINT "--------------------------------------------------------------------------------"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "                        : Enter the song's location:"
INPUT dir$
OPEN "dir.dat" FOR OUTPUT AS #1
PRINT #1, dir$
CLOSE #1
CLS
PRINT "                       QBPlay Audio player - v.0.1 p-r"
PRINT "--------------------------------------------------------------------------------"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "                        ))Now playing an Audio File(("
OPEN "dir.dat" FOR OUTPUT AS file
_SNDPLAY (file)
CLOSE file
PRINT "                            To stop, press any key"
SLEEP
PRINT ""
PRINT ""