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
  