%
% stop all timers of certain object
%
% stack: timer-object
%
% timerXx00X_TTTTTT_object_step
%
"timer" &_Arching.ServLock &"_*" text conn(
{
 nextfile ?
"nextmr" log)(
 dup term3
%
% stack: timer-object connector seed object
%
 fourth eq$
"isobj" log)(
 {
%
% stack: timer-object connector seed
%
  deleting
 } if
} loop
filing)
"stpobj" log)(
%
% stack: timer-object
%
pop