_Arching.Vtype !Shooter.ProdType

"___Prods___"
%
% always cr before inserted js
%
_Shooter.ProdType *slidrprd
'
PriceSetter(' &_Shooter.ProdType &',"' &_Prod.Short &'",' &_Prod.Price &');
'
replall
"___Updating__" "true" replall
"___ProdType___" _Shooter.ProdType letter replall
"___Group___"    _Shooter.ProdType letter replall
"___caption___"  _Shooter.Caption trim asc2hex replall

_Xact !SrcXact
"SrcXact.txt" ofxact exec$

%
% start the other three products building
%
"otprods_" &_SrcXact text oftack exists
"otexist" log)(
{
 second !Xact
}
{

 second !Xact

 "Additional.txt" ofxact exists
 {
 }
 {

  _Xact catcr
  "Additional.txt" ofxact write

  _Shooter.ProdType _Arching.Vtype eq$
"genremakes" log)(
  {

   jsnow
   dup 7 *tackrenk
   +
   dup 2 *tackrenk
   +
   dup 5 *tackrenk
   pop
  } if

 } ifelse

 _Shooter.ProdType
 <
 |6 "D"
 |7 "B"
 |5 "C"
 > not
 {
  "A"
 } if
 ^"_prod_" &_SrcXact text oftack
 third !Xact
 _Xact ^" *****x" &"x***** "
 exch write 

 _SrcXact catcr
 "otprods_" &_SrcXact text oftack write
 second !Xact
 second quoter &" !SrcXact
"
"SrcXact.txt" ofxact write

} ifelse

"___SrcXact___" _SrcXact replall

"___PhoSend___" _Fup.PhoSend replall
"___PhoNum___" _Fup.PhoNum replall
"___PhoXact___" _Msg.xact replall

_Xact !Cust.Remade
"SrcXact.txt" ofxact
"mkansxacting" log)(
exec$
*xacthisr