Start
	#Include TCHUI.System
 
	Set %Application=##class(TCHUI.TApplication).Create()
	
	Do:($G(%CHUIDebug)) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520)
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
 
	;Check of de ingelogde gebruiker bekend is...
	Quit:('$$UserAvailable^$$$SystemRtn)
 
	;MainForm
	Set frmLogging=%Application.CreateForm("CHUI.Derde.EC.Logging.MainForm","frmMain","frmMain")
 
	Do %Application.Run()
 
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Application,%Screen,%Input
	k frmLogging
	k %CHUIDebug
	
	Quit
 
Debug
	Set %CHUIDebug=1
	Do Start
	Quit