$SAVE NOLIST

rq$accept$control:  PROCEDURE( region$t,
                               except$ptr ) EXTERNAL;

DECLARE region$t      TOKEN,
        except$ptr    POINTER;

END rq$accept$control;

$RESTORE