_Msg.dialr ofsnap folder
dup !Fup.Fsrc
_Fup.PhoSend
{
 _Fup.PhoNum & folder
 !Fup.Fdesu
 _Fup.Src
}
{
} ifelse
_Msg.numbr & folder
!Fup.Fdest

_Fup.PhoSend
{
 _Fup.PhoNum ofsnap folder
 dup !Fup.Gsrd
 _Msg.dialr & folder
 !Fup.Gdesu

 _Fup.Fdesu
 Xact.Msg$ &
 !Fup.Fbasf

 _Fup.Gdesu
 Xact.Msg$ &
 !Fup.Gbasf
}
{
} ifelse

_Msg.numbr ofsnap folder
dup !Fup.Gsrc
_Msg.dialr & folder
!Fup.Gdest

_Fup.Fdest
Xact.Msg$ &
!Fup.Fbase

_Fup.Gdest
Xact.Msg$ &
!Fup.Gbase