content: 'Channel entry point
  sub Main()
      ShowChannelRSGScreen()
  end sub
  
  sub ShowChannelRSGScreen()
      screen = CreateObject("roSGScreen")
      m.port = CreateObject("roMessagePort")
      screen.SetMessagePort(m.port)
      scene = screen.CreateScene("MainScene")
      screen.Show() 
  
      while(true)
          msg=wait(0,m.port)
          msgType=type(msg)
          if msgType = "roSGScreen"
              if msg.IsScreenClosed() then return
          end if
      end while
  end sub
  