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