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;