_Msg.bodyr hex2asc
  _Fup.PhoSend
  {
%%% *fuplrtep
 
  }
  {
   pop _Fup.Msg
  } ifelse 
  !Cnv.SrcBody

  _Msg.numbr ^"+1" !Cnv.SrcTo
  _Msg.dialr ^"+1" !Cnv.SrcFrom

  "MM" File.Sid !Cnv.SrcSid

  Fup.To &"_" _Msg.msec !Cnv.MmsFname

  *fuplwmsg

  empty

  _Cnv.SrcBody Fup.Body&

  "<Extra>"
  _Cnv.SrcExtra
  &
  &"</Extra>"
  &

  "<From>" &_Cnv.SrcFrom &"</From>"
  &

  "<To>" &_Cnv.SrcTo &"</To>"
  &

  &"<NumMedia>1</NumMedia>"

  &"<MediaContentType0>image/jpeg</MediaContentType0><MediaUrl0>"

  _Msg.muri &

  &"</MediaUrl0>"

  *fuplplum
  _Cnv.MmsFname &"_0" *fuplwtwi