@verb #1409:"_get_index" this none this rxdo #8084
@program #1409:"_get_index" this none this
"The $smfo index is based upon the initial prices of the stocks when they entered the FO. For each stock that goes up one percent, the index goes up .1."
index = 0.0
for x in [1..length(this.quotes)]
  if (this.initial_prices[x] == -1)
    continue
  endif
  index = index + this.quotes[x][2] / this.initial_prices[x] * 10.0
endfor
return index * (50.0 / tofloat(length($smfo.quotes) - 1))
"Last modified by Lao-Tzu (#8084) on Tue Feb  6 18:57:28 2001 MST."
.