
  TYPE
    nft$file_access_mode = RECORD
      CASE mode_known: BOOLEAN  OF
      = TRUE =
        mode: nft$mode_of_access,
      CASEND,
    RECEND;

*copyc nft$mode_of_access
