17e
@verb #8165:"prompt" this none this rxdo #8165
@program #8165:"prompt" this none this
"Copied from Versio (#8219):prompt Aug 11 23:59:33 1996"
est = time()
time = $string_utils:words(ctime(est))[4]
if (toint(time[1..2]) > 12)
  time = tostr(toint(time[1..2]) - 12, time[3..$])
endif
pass(tostr(time, ">"))
"Last modified by Dax (#789) on Tue May  3 14:11:59 2005 MDT."
.

0