%
% sequenced list reverse
%
% stack: xlist-pre xlist-post xlist-ctr
%
%%% !Xact
_Cust.NavType
<
|Sequenced

|SeqPhone

|SeqSms

|DateRange
 *cusvhilo

|Subjects

> pop

0 !counter
0 !Cust.AnchXact
_Search.Term isnull)
_Xact "1" le$ and
{ 0 !Xact } if

"Numbers" ofconn folder
 empty
{
%
% stack: xlist-pre xlist-post xlist-ctr nmbrs-dir seed
%
 "" textwild
 _Cust.Forward
 {
  nextfile
 }
 {
  prevfile
 } ifelse
 ?
%
% stack: xlist-pre xlist-post xlist-ctr nmbrs-dir seed
%
"nxprv" log)(
 +counter 10 gt ?

%
% stack: xlist-pre xlist-post xlist-ctr nmbrs-dir new-seed
%
 execing

_Cust.NavType
<
|Sequenced
  _Search.Term
  isnull
  {
   pop true
  }
  {
   length _Install.Random exch right
   eq$
   dup not
   {
%
% don't increment counter if not equal
%
    -:counter
   } if
  } ifelse

|SeqPhone
  _Search.Term
  isnull
  {
   pop true
  }
  {
   length _Install.Phone exch right
   eq$
   dup not
   {
%
% don't increment counter if not equal
%
    -:counter
   } if
  } ifelse

|SeqSms
  _Search.Term
  isnull
  {
   pop true
  }
  {
   length _Cond.Sms exch right
   eq$
   dup not
   {
%
% don't increment counter if not equal
%
    -:counter
   } if
  } ifelse

|DateRange
/*
 _Msg.msec
"msec" log)(
 _TimeLo
"timelo" log)(
gt _Msg.msec _TimeHi
"timehi" log)(
 lt and
*/
 true
|Subjects
 true
> not
{
 true
} if

%
% stack: xlist-pre xlist-post xlist-ctr nmbrs-dir seed process
%
"process" log)(
 {

  _Xact !Cust.Xact
%
% stack: xlist-pre xlist-post xlist-ctr nmbrs-dir seed
%
  _counter 1 eq
  {
   _Xact
"anchxact" log)(
   !Cust.AnchXact
  }
  {
  } ifelse

%
% stack: xlist-pre xlist-post xlist-ctr nmbrs-dir seed
%
  third

  *dusvsubt

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

  6 -1 roll ^
  5 1 roll
%
% stack:  new-xlist-pre xlist-post xlist-ctr nmbrs-dir wildcard
%

 }
 {
   -:counter
 } ifelse



%
% stack:  new-xlist-pre xlist-post xlist-ctr nmbrs-dir seed
%
} loop
"endloop" log)(
%
% stack:  xlist-pre xlist-post xlist-ctr nmbrs-dir seed new-pathed-seed
%
filing)
%
% Xact is set to the matched xact number or the last Xact in Snap
%
"ctr" log)(
%
% stack:  xlist-pre xlist-post xlist-ctr
%
*dusvsore
*cusvseek

_Xact length) 2 gt
{
 *dustsvop
 *dustsawu
}
{
} ifelse