Code: Select all
Macro DebugError( __msg__ )
Debug "ERROR: " + __msg__
EndMacro
Macro DebugWarning( __msg__ )
Debug "WARNING: " + __msg__, 1
EndMacro
Macro DebugNote( __msg__ )
Debug "NOTE: " + __msg__, 2
EndMacro
Procedure SendDebugMessages()
Debug "-"
DebugError( "This is an error message ..." )
DebugWarning( "This is an warning message ..." )
DebugNote( "This is just a note ..." )
EndProcedure
DebugLevel 0
SendDebugMessages()
DebugLevel 1
SendDebugMessages()
DebugLevel 2
SendDebugMessages()
DebugLevel 3
SendDebugMessages()