MODULE Pack;
(*
 *  ModBase
 *  Release 3.0
 *  By Don Fletcher & John McMonagle
 *  (c) Copyright 1986 - 1991 PMI
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *
 *)

  FROM StrConv IMPORT
    CardinalToStr;

  FROM EnvironUtils IMPORT ParsedParam;

  FROM StringIO IMPORT
    ReadStr, WriteStr, WriteEol;

  FROM M2Strings IMPORT
    Assign, CompareStr,Concat;

  FROM ModBase3 IMPORT InitDBF,DBFile,OpenDBF,DefaultFixUp;

  FROM DBCopier IMPORT DBPack;

  IMPORT InitCompilerMods;

    CONST
    inp      = 0;
    outp     = 1;
    prn      = 4;
    stderror = 2;

  VAR
    dbf      : DBFile;
    Name: ARRAY[0..70] OF CHAR;
BEGIN

  WriteEol( outp,
            'This program Pack Dbase3 Files.' );

  IF NOT ParsedParam(1,Name) THEN
    WriteStr(outp,'Enter full DBase3 file Name:');
    ReadStr(inp,Name);
  END;

  InitDBF( Name, dbf, 40000 ,FALSE,TRUE,FALSE,DefaultFixUp);
  WHILE ~OpenDBF(dbf) DO
    WriteStr(outp,'Not Opened Renter full Dbase3 File Name:');
    ReadStr(inp,Name);


  END (* while *);


  DBPack(dbf);
  WriteEol( outp, 'Packing complete.' );
END Pack.