%
% find phone numbers
%
_Subject length
<
|10
%
% get all images for this phone
%
 pop
 11 *cusvsorc
 0 !Tack
 _Subject
 &"_tack.txt" ofsubj
 exec$
 _Tack 0 gt
 {
  "xact_" textwild
  empty oftack
  empty
  {
   nextfile ?
   execing
   dup -5 left noext !Xact
   "incoming.txt" ofxact exists
   {
     _Xact !Cust.Xact
     xactinfo *xactmmtx
     third

     *cusvsubt

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

     6 -1 roll ^
     5 1 roll

   }
   {

   } ifelse

  } loop
  filing)

 }
 {
 } ifelse
 *cusvsore

 *cusvseek

|0
 pop
%
% get the entire phone number list
%
 10 *cusvsorc

 "??????????_tack.txt" !wilder
 empty ofsubj
 empty
 {
  nextfile ?
"phonext" log)(

  0 !Tack
  execing
  _Tack 0 gt
  {
   empty !Cust.Xact
   "Profile.txt" oftack exec$
   _Cust.Xact any?
   {
    !Xact
    "incoming.txt" ofxact exists
    {
     xactinfo *xactmmtx

     *cusvsord
    }
    {
    } ifelse
   }
   {

   } ifelse
  }
  {
  } ifelse
 } loop
 filing)

 *cusvsore

 *cusvseek

> not
{
%
% find all phones with this partial string
%
 pop
 10 *cusvsorc
 _Subject !Cust.Search
 "??????????_tack.txt" !wilder
 empty ofsubj
 empty
 {
  nextfile ?
"phonext" log)(
  
  0 !Tack
  execing
  _Tack 0 gt
  {
   empty !Cust.Xact
   "Profile.txt" oftack exec$
   _Cust.Xact any?
   {
    !Xact
    "incoming.txt" ofxact exists
    {
     _Cust.Subject _Cust.Search found)?
     {
      xactinfo *xactmmtx

      *cusvsord
     }
     {
     } ifelse
    }
    {
    } ifelse
   }
   {

   } ifelse
  }
  {
  } ifelse
 } loop
 filing)

 *cusvsore

 *cusvseek
} if