@verb #4:"controls_verb" this none this rxd #55
@program #4:"controls_verb" this none this
"Does 'this' have permission to write on args[1]:args[2]?"
{OBJ, verb} = args
z = `verb_info(OBJ, verb) ! E_VERBNF'
if (z == E_VERBNF)
  return E_VERBNF
elseif (this:controls(z[1]) || index(z[2], "w"))
  return 1
endif
.