
  TYPE
    pft$p_cycle_directory_entry = ^pft$cycle_directory_array_entry;

*copyc pft$cycle_directory_array_entry
