
  TYPE
    pft$variant_path = record
      case complete_path: boolean of
      = FALSE =
        p_path: ^pft$path,
      = TRUE =
        p_complete_path: ^pft$complete_path,
      casend,
    recend;

*copyc pft$complete_path
*copyc pft$path
