%
% stack: msg-body
%
dup 1 right "*" eq$
dup !Fup.PhoSend
{
%
% this is a phosend routed message
%
%%% empty !Fup.PhoXact
 dup -1 right 10 right !Fup.PhoNum
 -11 right trim
%
% now check for xact
%
 dup 16 right
 length 16 eq
 {
%
% correct length for xact
%
  dup 4 left lower
  "upl_" eq$
  {
%
% is xact format
%
   !Msg.xact
   -16 right
  }
  {
   pop
  } ifelse
 }
 {
  pop
 } ifelse
} if
trim
%
% stack: adj-body
%