
  TYPE
    pft$p_object_list = ^pft$object_list;

*copyc pft$object_list
