do Method
Class: application
Expand/Collapse source code of procedure do Source Code
*-- Put up main menu
this.DoMenu()

*-- Start the event loop
DO WHILE .T.
	READ EVENTS

	IF THIS.Cleanup()
		THIS.Cleanup2
		EXIT
	ENDIF
ENDDO