content: ' Channel entry point
  
  function Main() as void
      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 = "roSGScreenEvent"
              if msg.isScreenClosed() then return
          end if
      end while
      
  end function
  