@verb #1409:"_get_name" this none this rxdo #8084
@program #1409:"_get_name" this none this
caller == this || raise(E_PERM)
{symbol} = args
data = $gopher:get_now("quote.yahoo.com", 80, "GET /q?s=" + symbol + "&d=t")
for x in (data)
  if (m = match(x, "^<tr align=center><td colspan=7><table border=0 cellspacing=0 cellpadding=0><tr><td nowrap>&nbsp;<b>%([-0-9A-Za-z./\\ ]+%)</b>"))
    name = x[m[3][1][1]..m[3][1][2]]
    name = $su:trimr(name)
    name = $su:triml(name)
    name = $su:properly_capitalize($su:lowercase(name))
    return name
  endif
endfor
raise(E_INVARG, "Unable to find symbol.")
"Last modified by Lao-Tzu (#8084) on Sun May 27 18:45:45 2001 MDT."
.