%
% track flagging for full cycle of timing
%
empty ofconn
empty
{
%
% stack: path seed
%
"flag_*.xtx" !wilder
 nextfile ?
"flag>>" log)(
 filing del
} loop
filing)

empty ofconn
empty
{
%
% stack: path seed
%
"flag_" textwild
 nextfile ?
">>flag" log)(
%
% flag detected, mark for full cycle
%
 finaled

} loop
filing)