270
@verb #8165:"@accents" none none none rdo #8165
@program #8165:"@accents" none none none
"Copied from Lao-Tzu (#8084):@accents Jul  2 11:59:41 1997"
q = {}
for x in (properties($msg))
  try
    if (typeof($msg.(x)) == $LIST && length($msg.(x)) == 3)
      if (!index(x, "__"))
        q = {@q, {$su:lowercase(strsub(x, "_", "")), $su:lowercase(strsub(x, "_", "")) + ";"}}
      endif
    endif
  except (E_PERM)
  endtry
  $cmd_utils:suspend_if_needed()
endfor
for x in (q)
  this:tell("What to type: ", x[1], "    Result: ", x[2])
endfor
"Last modified by Dax (#789) on Tue May  3 13:55:57 2005 MDT."
.

0