DBGLEVEL() :INTEGER

Returns the debug level in effect

DBGLEVEL dbg:integer

Set the debug level to dbg