port = CreateObject("roMessagePort")
screen = CreateObject("roVideoScreen")
streamUrl = ""
for each e in showElem.GetChildElements()
if e.GetName() = "source" then
streamUrl = e.GetText()
exit for
else if e.GetName() = "title" then
title = e.GetText()
endif
next
bitrates = [0]
qualities = ["SD"]
urls = [streamUrl]
streamformat = "hls"
videoclip = CreateObject("roAssociativeArray")
videoclip.StreamBitrates = bitrates
videoclip.StreamUrls = urls
videoclip.StreamQualities = qualities
videoclip.StreamFormat = streamformat
videoclip.Title = title
videoclip.Live = true
screen.SetContent(videoclip)
screen.SetMessagePort(port)
screen.Show()