
  TYPE
    pft$p_object = ^pft$physical_object;

*copyc pft$physical_object
