$SAVE NOLIST

rq$get$level:  PROCEDURE( except$ptr ) WORD EXTERNAL;

DECLARE except$ptr    POINTER;

END rq$get$level;

$RESTORE