Sub espn(xmlFileName$ as String, itemsByIndex as object, itemsByTitle as Object, userVariables As Object)

	t$=""
	cpos=0 

	xml = CreateObject("roXMLElement")
	tempfile = ReadAsciiFile(xmlFileName$)
	
	if not xml.Parse(tempfile) then 
		print "xml read failed"
	else
		if type(xml.channel.item) = "roXMLList" then
			index% = 0
			for each itemXML in xml.channel.item
				t$ = itemXML.description.GetText()
				
				cpos = instr(1, t$, "'")
				if cpos > 0 then
					lt$=left(t$,cpos-1)
					rt$=mid(t$,cpos+6)
					t$=lt$+"'"+rt$
				endif

				itemsByIndex.push(t$)
				index% = index%+1
				print itemsbyindex[index%-1]
			next
		endif
	endif
	
		'DeleteFile(xmlfilename$)	
end Sub