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