PROGRAM iTime
* Program to display current internal time.
$INCLUDE UPCASE.EQUATES
LastUpdated... = "Rev: 14:01 22Nov1993 u2443 45 /users/u2443/BP/ITIME"

oTime = field(upcase(trim(@SENTENCE))," ",2)
if oTime then
   iTime = iconv(oTime,"MTS")
end else
   iTime = time()
end
crt iTime,oconv(iTime,"MTS")
end