%
% stop all timers of certain object
%
% stack: timer-object partial-step extending
%
% timerXx00X_TTTTTT_object_step
%
conn
empty
{
 "timer" &_Arching.ServLock &"_*" text ^3
%%%"cktimx" log)(
 File.PrevOf isnull ?
%%%"timerstx" log)(
%
% stack: timer-object partial-step extending
%              path filename
%
  dup term3 sixth eq$
%
% stack: timer-object partial-step extending
%              path filename object-eq
%
  second term4 sixth atleft and
%%%"qualx" log)(
  {
   filing second "_" slice "_" right$
%
% stack: timer-object partial-step extending
%              path filename filespec term1 term3-n
%
   5 index basenow add &"_" ^"_" ^ &
%
% stack: timer-object partial-step extending
%              path filename filespec new-timer-filename
%
%%%"newtx" log)(
   ^4 movefile
  } if
} loop
filing)
pop3