| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 |
- 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
|
