Make roVideoScreen loop forever

Came up with a solution that works pretty well.

I use a black screen as the base of the screen stack:

black=&h000000
screen0=CreateObject("roScreen")
screen0.Clear(black)
screen0.finish()

Then I use a roVideoPlayer with the playlist (thanks belltown!), and refresh the player at the end of the playlist:

Function startVideoInPlayer()
    
    p = CreateObject("roMessagePort")
    while true
        playlist = getCurrentPlayList()
    
        videoPlayer = CreateObject("roVideoPlayer")
        videoPlayer.setMessagePort(p)

        contentList = []
        for each media in playlist
          contentList.Push({ Stream: { url: media.videoURL }, StreamFormat: "mp4"})
        end for
        videoPlayer.SetContentList(contentList)
        videoPlayer.Play()
        while true
            msg = wait(0, p)
            if msg <> invalid
                'print "message";msg
                if msg.isFullResult()
                    print "playback completed"
                    exit while
                end if
            end if
        end while
    end while

End Function

Hope this helps someone in the future.