*-- Put up main menu this.DoMenu() *-- Start the event loop DO WHILE .T. READ EVENTS IF THIS.Cleanup() THIS.Cleanup2 EXIT ENDIF ENDDO