definer
{

"Fup.Outbound" "Set Phone Numbers Normal Outbound"
"Exec" % "-->"
'_Msg.numbr ^"+1" !Cnv.SrcTo _Msg.dialr ^"+1" !Cnv.SrcFrom'
newdef

"Fup.Inbound" "Set Phone Numbers Opposite of Outbound"
"Exec" % "-->"
'_Msg.numbr ^"+1" !Cnv.SrcFrom _Msg.dialr ^"+1" !Cnv.SrcTo'
newdef

"Fup.UnSame" "Reset Alternate Phone Routes"
"Exec" % "-->"
'empty !Msgr.Same empty !Msgr.Samf empty !Msgr.Samg'
newdef

"Fup.!Fsplit" "Store Message Image to Fbase Split"
"Exec" % "extension --> extension"
'_Fup.Mimage _Fup.Fbase &3 dup !Fup.Split copyfile *fuplsplt'
newdef

"Fup.!Gsplit" "Store Message Image to Gbase Split"
"Exec" % "extension --> extension"
'_Fup.Mimage _Fup.Gbase &3 dup !Fup.Split copyfile *fuplsplt'
newdef

"Fup.PsdOrPng" "Upload Extension is Psd or Png"
"Exec" % "--> is-psd-or-png"
'Fup.IsPsd Fup.IsPng or'
newdef

"Fup.PsdPngJpg" "Upload Extension is Psd or Png or Jpg"
"Exec" % "--> is-psd-png-jpg"
'Fup.IsJpg Fup.PsdOrPng or'
newdef

"Fup.IsJpg" "Upload Extension is Jpg"
"Exec" % "--> is-jpg"
'_Fup.Ext lower ".jpg" eq$'
newdef

"Fup.IsPng" "Upload Extension is Png"
"Exec" % "--> is-png"
'_Fup.Ext lower ".png" eq$'
newdef

"Fup.IsPsd" "Upload Extension is Psd"
"Exec" % "--> is-psd"
'_Fup.Ext lower ".psd" eq$'
newdef

"Fup.Mimage))" "Set File Information Variables"
"Exec" % "msg-body left-part filespec --> msg-body"
'
% stack: msg-body left-part full-spec
dup File.Length !Fup.Size
!Fup.Mimage
% stack: msg-body left-part
!Fup.Rest
'
newdef

"Fup.BackTo&" "Append Return Destination Phone Tag"
"Exec" % "build --> adj-build"
'"<To>" &_Cnv.SrcFrom &"</To>" &'
newdef

"Fup.BackFrom&" "Append Return to Source Phone Tag"
"Exec" % "build --> adj-build"
'"<From>" &_Cnv.SrcTo &"</From>" &'
newdef

"Fup.To&" "Append Destination Phone Tag"
"Exec" % "build --> adj-build"
'"<To>" &_Cnv.SrcTo &"</To>" &'
newdef

"Fup.From&" "Append Source Phone Tag"
"Exec" % "build --> adj-build"
'"<From>" &_Cnv.SrcFrom &"</From>" &'
newdef

"Fup.Medias&" "Append Number of Media Tag"
"Exec" % "build medias --> adj-build"
'^"<NumMedia>" &"</NumMedia>" &'
newdef

"Fup.From" "Get Ten Digit of Source Phone"
"Exec" % "--> phone"
'_Cnv.SrcFrom -2 left'
newdef

"Fup.To" "Get Ten Digit of Dest Phone"
"Exec" % "--> phone"
'_Cnv.SrcTo -2 left'
newdef

"Fup.!Fmark" "Copy Mark to Fbased"
"Exec" % "mark-name -->"
'ofmark _Fup.Fbase &"X.jpg" copyfile'
newdef

"Fup.!Gmark" "Copy Mark to Gbased"
"Exec" % "mark-name -->"
'ofmark _Fup.Gbase &"X.jpg" copyfile'
newdef

"Fup.!Fmarf" "Copy Mark to Fbasef"
"Exec" % "mark-name -->"
'ofmark _Fup.Fbasf &"X.jpg" copyfile'
newdef

"Fup.!Gmarf" "Copy Mark to Gbasef"
"Exec" % "mark-name -->"
'ofmark _Fup.Gbasf &"X.jpg" copyfile'
newdef

"Fup.MoreDrive" "Change Drive Prefix if MoreLink Type"
"Exec" % "fspec --> maybe-adj-fspec"
'
_Fup.MoreLink
{
 -1 left ^_Fup.MoreDrive
} if
'
newdef

"Fup._PsdPngJpg" "Is Extension One of Psd, Png, or Jpg"
"Exec" % "--> included"
'_Fup.HasJpg _Fup.HasPsd or _Fup.HasPng or'
newdef

"Fup.FSrcDestT" "Team Member Folders Other Phone"
"Exec" % "phone -->"
'
ofsnap folder
dup !Fup.FsrcT
&_Fup.Member folder
dup !Fup.FdestT
Xact.Msg$ & !Fup.FbaseT
'
newdef

"Fup.FSrcDestS" "Source and Dest Identity"
"Exec" % "phone -->"
'
dup ofsnap folder( !Fup.FsrcS ^ folder !Fup.FdestS
'
newdef

"Fup.FDestBaseS" "Message Based From Fdest"
"Exec" % "phone -->"
'
_Fup.FdestS Xact.Msg$ &
"____fbases___" log)(
!Fup.FbaseS
'
newdef

"Fup.GSrcDestS" "Source and Dest Identity"
"Exec" % "phone -->"
'
dup ofsnap folder( !Fup.GsrcS ^ folder !Fup.GdestS
'
newdef

"Fup.MoreXpand" "Set Up Copy for Xpand"
"Exec" % "--> src-image xpand-image"
'
_Fup.Mimage Fup.MoreDrive dup extension ^_Fup.Xpand
'
newdef

"Fup.!Fxmage" "Copy Expansion Image Into Fbased"
"Exec" % "-->"
'
Fup.MoreXpand
^_Fup.Fbase
dup !Fup.Fimage
copyfile
'
newdef

"Fup.!Gxmage" "Copy Expansion Image Into Gbased"
"Exec" % "-->"
'
Fup.MoreXpand
^_Fup.Gbase
dup !Fup.Gimage
copyfile
'
newdef
"Fup.!Fxmagf" "Copy Expansion Image Into Fbasef"
"Exec" % "-->"
'
Fup.MoreXpand
^_Fup.Fbasf
dup !Fup.Fimagf
copyfile
'
newdef

"Fup.!Gxmagf" "Copy Expansion Image Into Gbasef"
"Exec" % "-->"
'
Fup.MoreXpand
^_Fup.Gbasf
dup !Fup.Gimagf
copyfile
'
newdef

/*
"Fup." ""
"Exec" % "-->"
''
newdef
*/

"Fup.Orig&" "Append the Original Filename Tag"
"Exec" % "builder --> adj-builder"
'&"<Original>" _Fup.Outgo filename asc2hex & &"</Original>"'
newdef

"Fup._Ext" "Get Message Stated File Extension or Assume Psd"
"Exec" % "--> file-extension"
'
_Cnv.SrcBody "(." found)?
{
 _Cnv.SrcBody "(." right$ ")" left$
 lower ^"."
}
{
 ".psd"
} ifelse
'
newdef

"Fup.Extension" "Get Message File Extension"
"Exec" % "--> file-extension"
'
_Fup.HasPsd
"))))))psd" log)(
{
 Fup._Ext
}
{
 _Fup.HasJpg
"))))))jpg" log)(
 {
  ".jpg"
 }
 {
  _Fup.HasPng
"))))))png" log)(
  {
   ".png"
  }
  {
   empty
  } ifelse
 } ifelse
} ifelse
'
newdef

"Fup.Phone/" "Remove Phone Tags from Message Text"
"Exec" % "--> body-unphoned-str"
'" (PHONE)" empty replall "(PHONE)" empty replall'
newdef

"Fup.UnPhone" "Remove Added Tags and Phone Tags from Message Text"
"Exec" % "--> body-untagged-str"
'Fup.UnTag Fup.Phone/'
newdef

"Fup.UnTag" "Remove Added Tags from Message Text"
"Exec" % "--> body-untagged-str"
'_Cnv.SrcBody
"(PSD)" empty replall
"(JPG)" empty replall
"(PNG)" empty replall
"/#" left$
'
newdef

"Fup.TagBody" "Tag Body Text with File Vector"
"Exec" % "str --> tagged-str"
'&" The " _Fup.Ext -1 left upper & &" is "'
newdef

"Fup.Body&" "Append Body Text with Sid Tag"
"Exec" % "build body-src --> tagged-build"
'^"<Body>" &"</Body>" &"<SmsSid>" &_Cnv.SrcSid &"</SmsSid>" &'
newdef

"Fup.Extra&" "Append Extra Tag"
"Exec" % "build --> tagged-build"
'_Cnv.SrcExtra ^"<Extra>" &"</Extra>" &'
newdef

"Fup.NotEq" "Phone Numbers Not Equal"
"Exec" % "--> not-identical"
'
%%% _Cnv.SrcBody "(PHONE)" found)?
_Cnv.SrcFrom _Cnv.SrcTo ne$
'
newdef

"Fup.!Fflex" "Store Fbased File"
"Exec" % "data suffix -->"
'^_Fup.Fbase &".flx" write'
newdef

"Fup.!Gflex" "Store Gbased File"
"Exec" % "data suffix -->"
'^_Fup.Gbase &".flx" write'
newdef

"Fup.!Ftext" "Store Fbased File"
"Exec" % "data suffix -->"
'^_Fup.Fbase text write'
newdef

"Fup.!FtextT" "Store FbasedT File"
"Exec" % "data suffix -->"
'^_Fup.FbaseT text write'
newdef

"Fup.!Gtext" "Store Gbased File"
"Exec" % "data suffix -->"
'^_Fup.Gbase text write'
newdef

"Fup.!FtexS" "Store FbasedS File"
"Exec" % "data suffix -->"
'^_Fup.FbaseS text write'
newdef

"Fup.!GtexS" "Store GbasedS File"
"Exec" % "data suffix -->"
'^_Fup.GbaseS text write'
newdef

"Fup.!Ftexf" "Store Fbasef File"
"Exec" % "data suffix -->"
'^_Fup.Fbasf text write'
newdef

"Fup.!Gtexf" "Store Gbasef File"
"Exec" % "data suffix -->"
'^_Fup.Gbasf text write'
newdef

"Fup.!MmsFname" "Append Stamp and Sid"
"Exec" % "str --> ext-str"
'&_Msg.msec &"_" &_Cnv.SrcSid !Cnv.MmsFname'
newdef

"ofupl" "Prefix Uploaded Files Folder"
"Exec" % "upl-name --> dir-file-part"
'^_Fup.PhysUpl'
newdef

} if