    MODULE GPFiles;

    TYPE

      FileNameArray* = POINTER TO ARRAY OF CHAR;

      FILE* = POINTER TO ABSTRACT RECORD
              END;

    VAR
      fileSep- : CHAR;
      pathSep- : CHAR;
      optChar- : CHAR;

    PROCEDURE isOlder*(p0 : FILE;
                       p1 : FILE) : BOOLEAN;

    PROCEDURE MakeDirectory*(p0 : ARRAY OF CHAR);

    PROCEDURE exists*(p0 : ARRAY OF CHAR) : BOOLEAN;

    END GPFiles.