@verb #1409:"hourly" this none this rxdo #8084
@program #1409:"hourly" this none this
caller_perms().wizard || raise(E_PERM)
hour = toint(ctime()[12..13])
if (hour > 16 || hour < 6)
  return
elseif (index(ctime(), "Sat") == 1 || index(ctime(), "Sun") == 1)
  return
endif
datestr = tostr(ctime()[21..24], "/", $time_utils:month() in $time_utils.months, "/", ctime()[9..10], ":", hour)
datestr = strsub(datestr, " ", "")
datastr = tostr(datestr, " ")
for x in [1..length(this.quotes)]
  if (this.quotes[x][2] == -1)
    datastr = tostr(datastr, this:_get_index() / 500.0, " ")
  else
    datastr = tostr(datastr, this.quotes[x][2] / this.initial_prices[x], " ")
  endif
endfor
this:fileappend("plot.data", datastr)
for x in (this.quotes)
  this:makesmallplot(x[1])
  suspend(3)
  this:makeplot(x[1])
  suspend(3)
endfor
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.