%
% list xacts of source xact
%
% sequenced list reverse
%

 11 *cusvsorc
%
% stack: xlist-pre xlist-post xlist-ctr
%

0 !counter
0 !Cust.AnchXact

*xactninf *xactmmtx
 _Xact !SrcXact
 "SrcXact.txt" ofxact
"sxacting" log)(
 exec$
 _SrcXact !Xact
*xactninf *xactmmtx

"xact_" textwild
empty oftack
empty
{
%
% stack: xlist-pre xlist-post xlist-ctr tack-dir seed
%
 prevfile ?
"newxofs" log)(
 dup term2 noext !Xact

%
% stack: xlist-pre xlist-post xlist-ctr tack-dir seed
%
 "incoming.txt" ofxact exists
"incomexist" log)(
 {
  *xactninf *xactmmtx

   _Xact !Cust.Xact
%
% stack: xlist-pre xlist-post xlist-ctr tack-dir seed
%

   third

   *cusvsubt

"new-ctr" log)(
%
% stack:  xlist-pre xlist-post xlist-ctr tack-dir seed new-xlist-ctr
%

   6 -1 roll ^
   5 1 roll
%
% stack:  new-xlist-pre xlist-post xlist-ctr tack-dir seed
%

 }
 {

 } ifelse

%
% stack: xlist-pre xlist-post xlist-ctr tack-dir seed
%
} loop
filing)
%
% stack:  xlist-pre xlist-post xlist-ctr
%
*cusvsore
*cusvseek
*custsvop
*custsawu