$SAVE NOLIST

rq$create$extension:  PROCEDURE( type$code,
                                 deletion$mailbox,
                                 except$ptr ) TOKEN EXTERNAL;

DECLARE type$code            WORD,
        deletion$mailbox     TOKEN,
        except$ptr           POINTER;

END rq$create$extension;

$RESTORE