port = CreateObject("roMessagePort")
screen = CreateObject("roVideoScreen")
screen.SetMessagePort(port)
screen.SetPositionNotificationPeriod(1)
screen.SetCertificatesFile("common:/certs/ca-bundle.crt")
screen.SetCertificatesDepth(2)
screen.InitClientCertificates()
screen.SetContent(content)
while true
screen.Show()