content: ' Copyright 2021 EPIX Entertainment LLC
  '
  ' Licensed under the Apache License, Version 2.0 (the "License");
  ' you may not use this file except in compliance with the License.
  ' You may obtain a copy of the License at
  '
  '     http://www.apache.org/licenses/LICENSE-2.0
  '
  ' Unless required by applicable law or agreed to in writing, software
  ' distributed under the License is distributed on an "AS IS" BASIS,
  ' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  ' See the License for the specific language governing permissions and
  ' limitations under the License.
  
  sub main(args as Object)
      m.port = CreateObject("roMessagePort")
      screen = CreateObject("roSGScreen")
      screen.setMessagePort(m.port)
  
      m.scene = screen.CreateScene("MainScene")
      screen.show()
  
      runMainLoop()
  end sub
  
  function runMainLoop() as Void
      while true
          msg = wait(0, m.port)
          msgType = type(msg)
  
          if msgType = "roSGScreenEvent"
              if msg.isScreenClosed() then return
          end if
      end while
  end function
  