@verb #7407:"hms" any any any rdo #7407
@program #7407:"hms" any any any
args = $su:explode(argstr, ":")
factor = 1.0
numt = 0.0
for x in (args)
  numm = tofloat(x)
  numm = numm / factor
  numt = numt + numm
  factor = factor * 60.0
endfor
this:tell(numt)
"Last modified by Cecil (#7407) on Fri Jun 15 11:28:51 2001 MDT."
.