$SAVE NOLIST

rq$s$change$access:  PROCEDURE( path$ptr,
                                id,
                                access,
                                except$ptr ) EXTERNAL;

DECLARE path$ptr    POINTER,
        id          WORD,
        access      BYTE,
        except$ptr  POINTER;

END rq$s$change$access;

$RESTORE