@verb #1531:"chime" this none this rxdo #57
@program #1531:"chime" this none this
hour = toint(ctime()[12..13])
hour = hour > 12 ? hour - 12 | hour
hour = hour ? hour | 12
min = toint(ctime()[15..16])
this:sub_announce_all(this:msg_chime(), this.("chime" + tostr(min / 15) + "_msg"))
if (!(min / 15))
  this:bong(hour)
endif
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.