@verb #8431:"fea*tures" none none none rdo #8431
@program #8431:"fea*tures" none none none
"Copied from Leo (#8383):features Jul  4 22:45:23 1997"
player:tell()
player:tell("*** Features List ***")
player:tell()
for a in [#0..max_object()]
  $command_utils:suspend_if_needed()
  if (a != #53)
    if (a:has_property("feature_ok") && a.feature_ok)
      player:tell(a.name + " (" + tostr(a) + ")")
    endif
  endif
endfor
player:tell()
player:tell("***Done***")
player:tell()
"Last modified by Slacker (#55) on Tue Aug 20 11:54:20 2002 MDT."
.