Listing:

    1  MODULE FileTest;
    2  (*
    3   *  ModBase
    4   *  Release 3.0
    5   *  (c) Copyright 1986 - 1991 PMI
    6   *  P.O. Box 8402
    7   *  Green Bay Wi 53308
    8   *  All Rights Reserved
    9   *  by Ed Ross  
   10   *)
   11  
   12  IMPORT MaxFiles;
   13  IMPORT HandleIO;
   14  IMPORT InitCompilerMods;
   15  VAR
   16    I,r:CARDINAL;
   17    h: ARRAY[1..40] OF CARDINAL;
*****                ^ not supported yet
*****                       ^ not supported yet
   18    name:ARRAY[0..79] OF CHAR;
*****                  ^ not supported yet
*****                         ^ not supported yet
   19  
   20  BEGIN
   21  FOR I:=1 TO 40
   22  DO
   23    name:='c:\temp\';
*****    ^ not supported yet
*****          ^ not supported yet
   24  
   25    r:=HandleIO.CreateUniqueFile(h[I],name);
*****       ^ not supported yet
*****                ^ not supported yet
*****                                 ^ not supported yet
*****                                    ^ not supported yet
*****                                      ^ not supported yet
   26  END;
   27  
   28  END FileTest.

   11 errors