$SAVE NOLIST

rq$get$size:  PROCEDURE( segment$t, 
                         except$ptr ) WORD EXTERNAL;

DECLARE segment$t  TOKEN,
        except$ptr POINTER;

END rq$get$size;

$RESTORE