%
% stack: xact
%
*vendings
"tackmkao" log)(
<
|Quick
 empty
|Single
%%% "Vprod.html" ofsrc read

 _Xact !SrcXact
 "SrcXact.txt" ofxact
"sxacting" log)(
 exec$

"Fxplo.html" ofsrc read
"___SrcXact___"  _SrcXact replall
"___Group___"  _Shooter.ProdType letter replall
"___ProdType___"  _Shooter.ProdType letter replall
%
% color may be used for product style/backs
%
"___color___"
_Shooter.ProdType *protypes
_Arching.Otype zero
{
 0
}
{
  _Shooter.Color
} ifelse
replall
*temranks
"___crop___"  _Shooter.Crop 0x0F and replall
"___caption___" _Shooter.Caption escape replall
*temarker
"___Updating__" "true" replall
> not
{
 empty
} if
 second
"tsubomk" log)(
 !Xact
%
% stack: xact tacyh
%
*custbasu

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


second !Xact
%
% write to the xact
%
"Share.html" ofxact
%
% stack: xact tacyh
%
"tacopath" log)(
2 copy
write
third !Xact
*tackmkcg
%
% stack: xact
%