@verb #9531:"pulse" none none none rxdo #9531
@program #9531:"pulse" none none none
if ($object_utils:connected(this))
  if (idle_seconds(this) > 300)
    this:tell("--", $time_utils:ampm(time() + 3600), "--")
  endif
endif
fork (300)
  return this:pulse()
endfork
"Last modified by Laurelin (#9531) on Sun May 22 15:49:42 2005 MDT."
.