27e
@verb #1492:"r*ead" any any any rxd #60
@program #1492:"r*ead" any any any
if (!argstr || (dobj == this && !prepstr))
  this:_tell_desc(player, 0)
elseif (which = this:match_choice($code_utils:short_prep(prepstr) == "on" && iobj == this ? dobjstr | argstr))
  where = $gopher:parse(this.value[which])
  if (index("02", where[4][1]))
    this:announce_op("%N %<reads> '", this.desclines[which], "' on the %t.")
    $gopher:show_text(player, 0, 0, @where)
    player:tell("-------")
  else
    player:tell("Item '", this.desclines[which], "' isn't text and can't be read.")
  endif
else
  player:tell("Read what?")
endif
.

0