@verb #84:"tell_files" this none this rxdo #789
@program #84:"tell_files" this none this
caller == this || raise(E_PERM)
object = args[1]
if (!object.r && !$perm_utils:controls(player.user, object))
  return player:tell("<HR><P><B>No permission to view files on ", this:link(object), "</B><BR>")
endif
files = object:filelist()
player:tell("<HR><P><B>", length(files), " file", length(files) == 1 ? "" | "s", " on ", this:link(object), "</B>")
player:tell("<BR>")
if (files)
  info = this:file_table(object, files)
  player:tellColumns(@info)
  player:tell("<BR>")
endif
"Last modified by Dax (#789) on Fri Jun 26 16:05:27 1998 EDT."
.