Listing:

    1  
    2  MODULE Pack;
    3  (*
    4   *  ModBase
    5   *  Release 3.0
    6   *  By Don Fletcher & John McMonagle
    7   *  (c) Copyright 1986 - 1991 PMI
    8   *  P.O. Box 8402
    9   *  Green Bay Wi 53308
   10   *  All Rights Reserved
   11   *
   12   *)
   13  
   14    FROM StrConv IMPORT
   15      CardinalToStr;
   16  
   17    FROM EnvironUtils IMPORT ParsedParam;
   18  
   19    FROM StringIO IMPORT
   20      ReadStr, WriteStr, WriteEol;
   21  
   22    FROM M2Strings IMPORT
   23      Assign, CompareStr,Concat;
   24  
   25    FROM ModBase3 IMPORT InitDBF,DBFile,OpenDBF,DefaultFixUp;
   26  
   27    FROM DBCopier IMPORT DBPack;
   28  
   29    IMPORT InitCompilerMods;
   30  
   31      CONST
   32      inp      = 0;
   33      outp     = 1;
   34      prn      = 4;
   35      stderror = 2;
   36  
   37    VAR
   38      dbf      : DBFile;
   39      Name: ARRAY[0..70] OF CHAR;
*****                     ^ not supported yet
*****                            ^ not supported yet
   40  BEGIN
   41  
   42    WriteEol( outp,
*****    ^ not supported yet
   43              'This program Pack Dbase3 Files.' );
*****              ^ not supported yet
   44  
   45    IF NOT ParsedParam(1,Name) THEN
*****           ^ not supported yet
*****                         ^ not supported yet
   46      WriteStr(outp,'Enter full DBase3 file Name:');
*****      ^ not supported yet
*****                    ^ not supported yet
   47      ReadStr(inp,Name);
*****      ^ not supported yet
*****                  ^ not supported yet
   48    END;
   49  
   50    InitDBF( Name, dbf, 40000 ,FALSE,TRUE,FALSE,DefaultFixUp);
*****    ^ not supported yet
*****             ^ not supported yet
*****                   ^ not supported yet
*****                                                ^ not supported yet
   51    WHILE ~OpenDBF(dbf) DO
*****           ^ not supported yet
*****                   ^ not supported yet
   52      WriteStr(outp,'Not Opened Renter full Dbase3 File Name:');
*****      ^ not supported yet
*****                    ^ not supported yet
   53      ReadStr(inp,Name);
*****      ^ not supported yet
*****                  ^ not supported yet
   54  
   55  
   56    END (* while *);
   57  
   58  
   59    DBPack(dbf);
*****    ^ not supported yet
*****           ^ not supported yet
   60    WriteEol( outp, 'Packing complete.' );
*****    ^ not supported yet
*****                    ^ not supported yet
   61  END Pack.

   24 errors