as is
without express or implied warranty. Export of this
software outside of the United States of America may require an
export license.
INTERFACEapart from these procedures, the debug level is also set from the env. variable DEBUGLEVELDebug ; PROCEDURE Out(t : TEXT; minLevel : CARDINAL := 10); PROCEDURE S(t: TEXT; minLevel : CARDINAL := 5); PROCEDURE Warning(t : TEXT); PROCEDURE Error(t : TEXT); PROCEDURE UnNil(text : TEXT) : TEXT;
if nothing else, it defaults to zero
PROCEDURE RaiseLevel(newLevel : CARDINAL); PROCEDURE LowerLevel(newLevel : CARDINAL); PROCEDURE SetLevel(newLevel : CARDINAL); PROCEDURE GetLevel() : CARDINAL; END Debug.