%
% startup of xact area and seek for photo system
%
% track the lowest effective phasing Xact
%
0 !Xact.Low

%
% the insurance counter must exceed the largest xact number
%%%% also track the lowest xact phaseable
% 
0 !Xact
snap "xact*"
{
%
% stack: snap-dir wildcard
%
 2 copy
 xactseed
%
% stack: snap-dir wildcard
%         snap-dir wildcard xact-seed (empty to start)
%
"seed" log)(
 File.FoldNext
%
% stack: snap-dir wildcard new-pathed-seed
%
 isnull ?
"newfold" log)(
%
% stack: snap-dir wildcard new-seed
%

 "\xact" right$ !Xact

 Claimer.//

 *camersuq not
 {
%%%  *xactlwst
 } if

 "ready_*.txt" ofxact delfiles
 "phase_*.txt" ofxact delfiles
 "incoming_*.txt" ofxact delfiles
} loop
3 popoff

"xact1\*.*" ofsnap delfiles

%%% *xactcler