#define app "The m3u"

	sdim dat,32000
	sdim list,32000
	sdim asx,1024
	sdim m3u,1024
	sdim file,1024

	if(cmdline!=""){asx=cmdline:goto load}

	dialog "asx",16,"Windows Media Play List"
	if(stat==0){end}

	asx=refstr

*load

	exist asx:if(strsize==-1){dialog "Not Found.",1,app}
	sdim dat,strsize+1
	bload asx,dat,strsize

	repeat -1:instr p,dat,"\"SourceURL\"",i
	i+=p+11:if(p==-1){break}
	instr p,dat,"\"",i:i+=p+1:if(p==-1){break}
	instr p,dat,"\"",i:if(p==-1){break}
	strmid file,dat,i,p:list+=file+"\n":loop

	getpath m3u,asx,1:m3u+=".m3u"
	strlen l,list:bsave m3u,list,l