@verb #70:"prop_page" this none this rxdo #60
@program #70:"prop_page" this none this
{object, pname} = args
try
  info = property_info(object, pname)
  index(info[2], "r") || raise(E_PERM)
  data = object.(pname)
except v (ANY)
  return {tostr("Reading ", object, ".", pname, " --> ", v[1]), "."}
endtry
"In most cases, we'll just toliteral the data."
"The exception is a list of strings which we'll leave as they are."
if (data && typeof(data) == $LIST)
  for line in (data)
    if (typeof(line) != STR)
      data = {toliteral(data)}
      break line
    endif
  endfor
else
  data = {toliteral(data)}
endif
return {@data, "."}
"Last modified by Dax (#789) on Tue May  3 13:45:02 2005 MDT."
.