%
% stack: "MMS" subject date time ordinal
%          twi-route color prod-type sms-body-text crop
%
!Shooter.Crop
%
% analyze the message scope
%
hex2asc trim
"#" atleft( dup !Shooter.Baby
{
%
% the caption is of format #tack ord-birth ord-letter
%
 dup -1 left " " 0 3 1 parse
}
{
%
% not a baby message, then normal message scope
%
 *xactphos
%
% pass empty Baby vars
%
 empty empty empty
} ifelse
!Shooter.SubBirth
!Shooter.Birth
!Shooter.Mother
%
% the caption for the message without modifiers
%
!Shooter.Caption
!Shooter.ProdType
!Shooter.Color
!Shooter.Twi
*temranks
!Shooter.Tem
!Sms.Time
!Sms.Date
!Shooter.Subject
!Sms.Verf