@verb #1409:"tell_www_page" this none this rxdo #8084
@program #1409:"tell_www_page" this none this
if (listassoc("type", dobj) == {"type", "data"})
  z = listassoc("symbol", dobj)
  if (!z)
    z = {"symbol", "SMFO"}
  endif
  index = listiassoc(z[2], this.quotes)
  player:tell("Title=", $su:uppercase(z[2]))
  player:tell("X=Date:")
  player:tell("Y=NULL:Price Per Share ($)")
  player:tell("Data=", $su:uppercase(z[2]))
  baseval = this.initial_prices[index] == -1 ? 500.0 | this.initial_prices[index]
  count = 0
  while (1)
    text = this:fileread("plot.data", count * 100 + 1, count * 100 + 100)
    count = count + 1
    for x in (text)
      {date, @data} = $su:explode(x)
      "#8084:tell(toliteral(data));"
      "#8084:tell(toliteral(date));"
      "#8084:tell(toliteral(this.initial_prices[index]));"
      if (length(data) < index)
        continue
      endif
      string = tostr(date, " ", baseval * tofloat(data[index]))
      player:tell(string)
      $cmd_utils:suspend_if_needed(0)
    endfor
    if (length(text) != 100)
      break
    endif
    $cmd_utils:suspend_if_needed(0)
  endwhile
elseif (listassoc("type", dobj) == {"type", "datacompare"})
  player:tell("Title=Stock Comparison")
  player:tell("X=Date:")
  player:tell("Y=Percent:Relative Share Price")
  s1index = listiassoc(listassoc("s1", dobj)[2], this.quotes)
  s2index = listiassoc(listassoc("s2", dobj)[2], this.quotes)
  s3index = listiassoc(listassoc("s3", dobj)[2], this.quotes)
  s4index = listiassoc(listassoc("s4", dobj)[2], this.quotes)
  s5index = listiassoc(listassoc("s5", dobj)[2], this.quotes)
  s2index = s2index || $maxint
  s3index = s3index || $maxint
  s4index = s4index || $maxint
  s5index = s5index || $maxint
  player:tell("Data=", this.quotes[s1index][3])
  s1 = {}
  s2 = {}
  s3 = {}
  s4 = {}
  s5 = {}
  count = 0
  while (1)
    text = this:fileread("plot.data", count * 100 + 1, count * 100 + 100)
    count = count + 1
    for x in (text)
      {date, @data} = $su:explode(x)
      if (length(data) >= s1index)
        s1 = {@s1, tostr(date, " ", data[s1index])}
      endif
      if (length(data) >= s2index)
        s2 = {@s2, tostr(date, " ", data[s2index])}
      endif
      if (length(data) >= s3index)
        s3 = {@s3, tostr(date, " ", data[s3index])}
      endif
      if (length(data) >= s4index)
        s4 = {@s4, tostr(date, " ", data[s4index])}
      endif
      if (length(data) >= s5index)
        s5 = {@s5, tostr(date, " ", data[s5index])}
      endif
      $cmd_utils:suspend_if_needed(0)
    endfor
    if (length(text) != 100)
      break
    endif
  endwhile
  player:tell(s1)
  if (s2)
    player:tell("Data=", this.quotes[s2index][3])
    suspend(0)
    player:tell(s2)
    if (s3)
      player:tell("Data=", this.quotes[s3index][3])
      suspend(0)
      player:tell(s3)
      if (s4)
        player:tell("Data=", this.quotes[s4index][3])
        suspend(0)
        player:tell(s4)
        if (s5)
          player:tell("Data=", this.quotes[s5index][3])
          suspend(0)
          player:tell(s5)
        endif
      endif
    endif
  endif
else
  return pass(@args)
endif
"Last modified by Lao-Tzu (#8084) on Thu May  2 15:52:56 2002 MDT."
.