_Stime
any?
{
 jsmsec
}
{
 jsnow 60 1000 mul 60 mul 24 mul sub
} ifelse
!TimeLo

_Etime
any?
{
 jsmsec
}
{
 jsnow
} ifelse
!TimeHi

0 !counter

0 !Xact
snap "xact*"
{
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard
%
 2 copy
 xactseed
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard
%         snap-dir wildcard xact-seed (empty to start)
%
"seed" log)(
 File.FoldPrev
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard new-pathed-seed
%
 isnull ?
"newfold" log)(

 +counter 10 gt ?

%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard new-seed
%
 "\xact" right$ !Xact

 "incoming.txt" ofxact exists
 {
  _Xact !Cust.Xact
  *xactninf *xactmmtx

%
% check for search times
%
_Msg.msec _TimeLo gt _Msg.msec _TimeHi lt and
{

  third

  *cusvsubt

%
% stack:  xlist-pre xlist-post xlist-ctr tack-dir seed xlist-ctr
%

  6 -1 roll ^
  5 1 roll
}
{
} ifelse

 }
 {
 } ifelse

%
% stack:  xlist-pre xlist-post xlist-ctr tack-dir seed
%
} loop
%
% stack:  xlist-pre xlist-post xlist-ctr tack-dir seed new-pathed-seed
%
3 popoff
%
% Xact is set to the matched xact number or the last Xact in Snap
%
"ctr" log)(
*cusvsore

*cusvseek

_Xact positive
{
 *custsvop
 *custsawu
}
{
} ifelse