$SAVE NOLIST

rq$disable:  PROCEDURE( level, 
                        except$ptr ) EXTERNAL;

DECLARE level         WORD,
        except$ptr    POINTER;

END rq$disable;

$RESTORE