content: sub Main()
  
      screen = CreateObject("roSGScreen")
      port = CreateObject("roMessagePort")
      screen.setMessagePort(port)
      scene = screen.CreateScene("FlagScene")
      screen.show()
  
      while true
          msg = wait(0, port)
          if type(msg) = "roSGScreenEvent"
              if msg.isScreenClosed() then exit while
          end if
      end while
  
  end sub
  