%
% clear LOD, BAT, .xdx files older than set time
% keep preset minimum number of files
%
_Arching.Connector
%
% stack: src-dir
%
0 !counter
empty
%
% copy this first inspection, move backward to kept number
%
_Time.Keep !cycler
{
 _wilder ^3 File.PrevOf isnull ?
 -cycler negative ?
} loop
_cycler
%%%"cycler " log)(
negative
{
 {
  _wilder ^3 File.PrevOf isnull ?

%
% over kept minimum, process file for time limitation
%
  filing
%
% stack: full-filespec
%
  System.FileTimes pop2
  Time.Now
  "s" Time.Diff
%%%"diff " &3 &" " log)(
  _Time.Barrier gt
  {
%
% make subfolder using ident part of file name, move file there
%
   *trakshlv
  } if
%
% limit the number of files for this cycle
%
  +counter _Time.Cycle gt ?
 } loop
} if
pop2