%
% stack: body-text
%
false !Fup.PhoSend
0 !Fup.PhoNum
%
% check for mms routing to phosend 
%
dup 1 right "*" eq$
{
 -1 right
 dup 1 right numeric
 {
%
% probably phone number
%
  dup 10 right
  dup numeric
  {
%
% phone number, this will route to phosend user
%
   !Fup.PhoNum
   -10 right

   dup 16 right
"----*" log)(
   length 16 eq
"-----*" log)(
   {

    dup 4 left lower
"------*" log)(
    "upl_" eq$
    {
"-------*" log)(
     !Msg.xact
     -16 right
    }
    {
     pop
    } ifelse
   }
   {
    pop
   } ifelse

   true !Fup.PhoSend
  }
  {
   pop
  } ifelse
 }
 {
%
% non-numeric, assume route to same as incoming number
%
  _Sms.From -2 left !Fup.PhoNum
  true !Fup.PhoSend
 } ifelse
}
{
%
% not a phosend message incoming
%
} ifelse
trim
"--------*" log)(
!Fup.Msg