Realisierung der Prozedur ShowTime

   IMPORT
      Clocks, Dates, Times, Write;

   PROCEDURE ShowTime;
      VAR
         now: Times.Time;
         exp: Dates.InfoRec;
   BEGIN
      Clocks.GetTime(Clocks.system, now);
      Dates.Get(now, exp);
      Write.Int(exp.minute, 0); Write.String(" minutes past ");
      Write.Int(exp.hour, 0); Write.Ln;
   END ShowTime;