@verb #1409:"tell_www_head" this none this rxdo #8084
@program #1409:"tell_www_head" this none this
if (listassoc("type", dobj) == {"type", "activex"})
  z = listassoc("symbol", dobj)
  if (!z)
    z = {"symbol", "smfo"}
  endif
  text = this:fileread("plfplotocx.head")
  text = $su:to_value(strsub(toliteral(text), "$SYMB$", $su:lowercase(z[2])))
  text = text[2]
  player:tell(text)
elseif (listassoc("type", iobj) == {"type", "compare"})
  text = this:fileread("plfplotocx-compare.head")
  text = toliteral(text)
  for x in [1..5]
    text = strsub(text, "$S" + tostr(x) + "$", $su:lowercase(listassoc("stock" + tostr(x), iobj)[2]))
  endfor
  text = $su:to_value(text)[2]
  player:tell(text)
endif
return pass(@args)
"Last modified by Lao-Tzu (#8084) on Thu Jun 28 07:57:10 2001 MDT."
.