@verb #1994:"has_exit" this none this rxdo #6118
@program #1994:"has_exit" this none this
"Checks for a v-exit and returns the name and the dest"
exits = this:get_vexits()
for exit in [1..length(exits)]
  if (args[1] in exits[exit][1])
    return {exits[exit][1], this.exits[exit][2]}
  endif
  $command_utils:suspend_if_needed(0)
endfor
return 0
"Last modified by Jay (#8438) on Tue Dec 21 09:14:17 1999 MST."
.