%
% list source xacts of subject
%
% sequenced list reverse
%

_Subject
length) 10 eq
{

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

_Subject &"_tack.txt" ofsubj exec$
"Profile.txt" oftack exec$

0 !counter
0 !Cust.AnchXact

empty oftack
empty
{
%
% stack: xlist-pre xlist-post xlist-ctr tack-dir seed
%
 "otprods_" textwild
 prevfile ?
"newot" 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
} if