
  TYPE
    pft$p_info_record = ^pft$info_record;

*copyc pft$info_record
