@verb #6565:"Do_Time" this none this rxdo #6397
@program #6565:"Do_Time" this none this
if ($perm_utils:controls(caller_perms(), this))
  for x in (this.connected)
    this.FisherStats[x in this.Fishers][7] = this.FisherStats[x in this.Fishers][7] + 1
  endfor
else
  return E_PERM
endif
"Last modified by James (#6397) on Mon May 25 21:35:35 1998 EDT."
.