  TYPE
    oct$metapatch_header = record
      object_library_name: pmt$program_name,
      old_checksum: oct$checksum,
      new_checksum: oct$checksum,
      size_of_metapatch: oct$offset,
      predictor_size: oct$predictor_size,
      predictor: REL (oct$metapatch) ^SEQ(*),
      number_of_move_items: oct$breaklist_index,
      move_items: REL (oct$metapatch) ^oct$move_items,
      corrector_size: oct$breaklist_length,
      corrector: REL (oct$metapatch) ^SEQ(*),
    recend;

  TYPE
    oct$metapatch = SEQ (*);

*copyc oct$predictor_size
*copyc oct$offset
*copyc oct$checksum
*copyc oct$move_items
*copyc oct$corrector
*copyc oct$breaklist

