%
% stack: tstamp prod-type
%
_Shooter.Subject !Cust.Target

_Shooter.Tem

_Shooter.Twi upper?
{
}
{
 0x0D add
} ifelse

letter !Cust.Tem

_Shooter.Crop !Cust.Crop
dup *protypes
_Arching.Otype zero
{
 0
}
{
 _Arching.Otype
} ifelse
!Cust.Color
^"*" !Cust.ProdType
_Xact !Cust.Xact
_Shooter.Subject !Cust.Subject
 !Cust.Stamp
"" !Cust.ReturnTo
"" !Cust.Message
_Shooter.Caption asc2hex !Cust.Caption

15 !Cust.RemStatus

empty
"Cust.Target" sval
"Cust.Tem" sval
"Cust.Color" sval
"Cust.Crop" sval
"Cust.ProdType" sval
"Cust.RemStatus" 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