$SAVE NOLIST

rq$set$pool$min:  PROCEDURE( new$min,
                             except$ptr ) EXTERNAL;

DECLARE new$min    WORD,
        except$ptr POINTER;

END rq$set$pool$min;

$RESTORE