$SAVE NOLIST rq$exit$interrupt: PROCEDURE( level, except$ptr ) EXTERNAL; DECLARE level WORD, except$ptr POINTER; END rq$exit$interrupt; $RESTORE