%
% stack: text-content
%
dup unescape trim
"trimmed*" &2 &"*" logs
isnull)
{
 pop
}
{

 dup
 "\%\d." rex dup mat
 {
  unescape
 } if
 Str.FirstLine
 length 20 gt
 {
  20 left ". . ." concat
 } if
%
% do not replace the current node, this is a text stub no descendents
%
 _\ newnode
 exch "text" third Tree.!ValueOf

 pop

} ifelse