%
% stack: tstamp prod-type
%

_Shooter.Subject !Cust.Target
_Shooter.Tem letter !Cust.Tem
_Shooter.Color !Cust.Color
^"*" !Cust.ProdType
_Xact !Cust.Xact
_Shooter.Subject !Cust.Subject
 !Cust.Stamp
"" !Cust.ReturnTo
"" !Cust.Message
_Shooter.Caption asc2hex !Cust.Caption

empty
"Cust.Target" sval
"Cust.Tem" sval
"Cust.Color" sval
"Cust.ProdType" sval
"Cust.Xact" sval
"Cust.Subject" sval
"Cust.Stamp" sval
"Cust.ReturnTo" sval
"Cust.Message" sval
"Cust.Caption" sval
"Fup.PhoSend" sval
"Fup.PhoNum" sval
%%% "Fup.PhoXact" sval
"Msg.xact" sval

"Share_" &_Cust.Target &"_" &_Cust.Stamp text ofvias
write