%
%%%  |Displayer
%
%
% send product presentation to user
%
*xactninf
*xactmmtx
*camezflp
_Xact !SrcXact
"SrcXact.txt" ofxact exec$

_Xact _SrcXact eq$ _Fup.PhoSend or
{

%%%%%%%%%%%%% "%2" empty chained *custsrvr ^
  empty !Customer.Addtl
  _Fup.PhoSend
  {
   "(tack:" &_Tack &")" &"(src:" &_SrcXact &")"

  _SrcXact ^"xact" ofsnap folder
  empty
  {
   "Remade_6" textwild
   prevfile ?
   rot &"(re6:" 
   second "_" 1 1 1 parse &
   &")"
   tuck
   true ?
  } loop
  pop

  empty
  {
   "Remade_5" textwild
   prevfile ?
   rot &"(re5:" 
   second "_" 1 1 1 parse &
   &")"
   tuck
   true ?
  } loop
  pop

  empty
  {
   "Remade_7" textwild
   prevfile ?
   rot &"(re7:" 
   second "_" 1 1 1 parse &
   &")"
   tuck
   true ?
  } loop
  pop

  empty
  {
   "Remade_2" textwild
   prevfile ?
   rot &"(re2:" 
   second "_" 1 1 1 parse &
   &")"
   tuck
   true ?
  } loop

  filing)

  !Customer.Addtl
 } if
 "P1" !Customer.Mailer
 "Prods" *custvirz
}
{
} ifelse

_Xact catcr
"Subject_Displayed.txt" ofxact
write

"Post" *shootern