'Basic embedded media player (tested only in IE7)

mp3File$="b.mp3" 'change for valid url or path
' html "<embed src=""http://yourSite.com/files/movie.mpeg""
html "<embed src=""/resources/"+mp3File$+""" /><br>
<h5>Now playing "+mp3File$+"<br>Embedded media player.</h5>"
media MP3 player demo in browser.
cls
dim music$(100)
textarea #ta,("")
files #bits, "C:\*.mp3" 'also wma,mid,avi,mpg etc
c=1
while #bits hasanswer()
#bits nextfile$()
music$(c) = "C:\"+#bits name$()
#ta println(c;" ";music$(c))
c=c+1
if c>100 then exit while
wend
print " "
input "Enter track number to play: ";trackNum$
trackNum=val(trackNum$)
if trackNum>0 and trackNum<c then
play$="<param name=""FileName"" value="""+music$(trackNum)+""" />"
cls
print "Track now playing: ";music$(trackNum)
print " "
'class ID for wmp6.4 (backwards compatible)
'see http://www.w3schools.com/media/media_playerref.asp for other clsid's
html "<object classid=""clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"">"+play$+"</object>"
print " "
link #fin, "Close", [quit]
else
print "Invalid tracknumber!"
end if
wait
[quit]
cls
end

To test this out, copy a few MP3 files to C:\. before you start. Root dir chosen purely for simplicity and clarity.

'media player demo with listbox selection
[start]
cls
dim music$(100)
files #bits, "C:\*.mp3" 'also mid,wav,wma,avi,mpg ie anything wmp can play
c=1
while #bits hasanswer()
#bits nextfile$()
music$(c) = "C:\"+#bits name$()
c=c+1
if c>100 then exit while
wend
listbox #lb,music$(),10
print " "
link #sel, "[Play]",[go]
link #fin, "[Close]",[quit]
wait
[go]
trackNum$=#lb selection$()
cls
if trackNum$ <>"" then
play$="<param name=""FileName"" value="""+trackNum$+""" />"
cls
print " "
print "Track now playing: ";trackNum$
print " "
'class ID for wmp6.4 (backwards compatible)
'see http://www.w3schools.com/media/media_playerref.asp for other clsid's
html "<object classid=""clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95"">"+play$+"</object>"
print " "
link #res, "[Another]", [restart]
link #fin, "[Close]", [quit]
else
goto [start]
end if
wait
[restart]
cls
goto [start]
[quit]
cls
end

Another player utilising listbox selection. (Tested only in IE7)

'Need to copy some mp3 tracks to the resources folder before running!
dim mp3$(10)
mp3$(1)="/resources/a.mp3"
mp3$(2)="/resources/b.mp3"
[start]
cls
Print "Select MP3 from list"
print " & click 'Choose'"
print
listbox #lb1,mp3$(),5
print:print
link #sel, "[Choose]",[select]
print
wait
[select]
selected$=#lb1 selection$()
if selected$<>"" then
cls
print "MP3 selected: ";selected$
print
html "<EMBED SRC='";selected$;"' HEIGHT=60 WIDTH=294 HIDDEN=false LOOP=false AUTOSTART=FALSE>"
html "<NOEMBED><BGSOUND LOOP=1 src='";selected$;"'></NOEMBED>"
print:print
link #rst, "[Another]",[start]
end if
wait