home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
MODULA
/
FSTCOMPI
/
TIMEDATE.DEF
< prev
next >
Wrap
Text File
|
1993-12-01
|
593b
|
26 lines
DEFINITION MODULE TimeDate;
(* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
TYPE
Time = RECORD
day, minute, millisec :CARDINAL;
(*
day = ((Year - 1900) * 16 + Month) * 32 + DayOfTheMonth
minute = minutes since midnight
millisec = milliseconds past the minute
*)
END;
PROCEDURE GetTime( VAR time :Time );
(*
get the system time
*)
PROCEDURE SetTime( time :Time );
(*
set the system time
*)
END TimeDate.