Copyright (C) 1994, Digital Equipment Corp.
An OS-independent way to get COFF timestamps
INTERFACECoffTime ; CONST EpochAdjust = 11644473600.0d0; (* seconds from 1/1/1600 -> 1/1/1970 *) PROCEDURE Now (): INTEGER; PROCEDURE OfFile (file: TEXT): INTEGER; END CoffTime.