$SAVE NOLIST

rq$create$segment:  PROCEDURE( size,
                               except$ptr ) TOKEN EXTERNAL;

DECLARE size        WORD,
        except$ptr  POINTER;

END rq$create$segment;

$RESTORE