MODULE SetModTime EXPORTS Main;

IMPORT Date, FS;

<*FATAL ANY*>

VAR
  date: Date.T;

BEGIN
  (* Set the modification time to January 1st, 1999 *)
  date.year := 1999;
  date.month := Date.Month.Jan;
  date.day := 1;
  date.hour := 0;
  date.minute := 0;
  date.second := 0;
  date.offset := 21601;
  date.zone := "CST";

FS.SetModificationTime("test.txt", Date.ToTime(date));
END SetModTime.