1c2
@verb #7407:"short_time" this none this rxdo #7407
@program #7407:"short_time" this none this
hmm = $string_utils:from_seconds(args[1])
if (hmm[1] == "a" && (hmm[2] == " " || (hmm[2] == "n" && hmm[3] == " ")))
  hmm = "1" + hmm[index(hmm, " ")..$]
endif
bleh = " " + hmm[1]
otherhmm = index(hmm, " ") == 2 ? bleh | hmm[1..2]
return otherhmm + hmm[hmm[2] == bleh[1] ? 3 | 4]
"Last modified by Dax (#789) on Tue May 11 07:19:57 1999 MDT."
.

0