@verb #9677:"testfer" none none none rdo #9677
@program #9677:"testfer" none none none
for x in (properties(#28))
  l = {}
  if (index(x, "&"))
    l = "{\""
    for f in ($msg.(x))
      l = tostr(l, f, "\",\"")
    endfor
    l = tostr(l[1..$ - 3], "\"}")
    this:tell(tostr("@prop $cu.", x, " ", l))
  endif
endfor
"Last modified by Blair (#9677) on Sat Mar  6 18:40:05 2004 MST."
.