  TYPE
    pft$subfile_list = array [1 .. * ] of pft$subfile;

*copyc pft$subfile
