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.