INTERFACEMsg ; PROCEDURE M(a, b, c, d, e, f : TEXT := NIL); (* message *) PROCEDURE D(a, b, c, d, e, f : TEXT := NIL); (* debug message *) PROCEDURE V(a, b, c, d, e, f : TEXT := NIL); (* verbose message *) PROCEDURE F(a, b, c, d, e, f : TEXT := NIL); (* fatal message, abort *) VAR debug := FALSE; verbose := FALSE; END Msg.