@verb #70:"verb_page" this none this rxdo #60
@program #70:"verb_page" this none this
{object, vname} = args
vnum = $code_utils:find_verb_named(object, vname)
if (vnum == -1 && (o = object:has_verb(vname)))
  object = o[1]
  vnum = $code_utils:find_verb_named(object, vname)
endif
try
  vinfo = verb_info(object, vnum)
  vargs = verb_args(object, vnum)
  vcode = verb_code(object, vnum)
  index(vinfo[2], "r") || raise(E_PERM)
except v (ANY)
  return {tostr("Retrieving ", object, ":", vname, " --> ", v[1]), "."}
endtry
spec = tostr(object, ":\"", vname, "\" ", $su:from_list(vargs, " "))
data = {tostr("@verb ", spec, " ", vinfo[2], " ", vinfo[1])}
data = {@data, "@program " + spec}
data = {@data, @vcode}
return {@data, "."}
"Last modified by Dax (#789) on Fri Jan  4 23:20:36 2002 MST."
.