$SAVE NOLIST

rq$get$type:  PROCEDURE( object, 
                         except$ptr ) WORD EXTERNAL;

DECLARE object        TOKEN,
        except$ptr    POINTER;

END rq$get$type;

$RESTORE