MODULE Mytime;

FROM SysClock IMPORT
  GetClock, DateTime;
FROM STextIO IMPORT
  WriteString, WriteLn;
FROM FormatDT IMPORT
  DateTimeToString;

VAR
  CurrentTime: DateTime;
  DateStr, TimeStr: ARRAY [0 .. 20] OF CHAR;
BEGIN
  GetClock(CurrentTime);
  DateTimeToString(CurrentTime, DateStr, TimeStr);
  WriteString("Current time: ");
  WriteString(DateStr);
  WriteString(" ");
  WriteString(TimeStr);
  WriteLn;
END Mytime.