@verb #1409:"@add-stock" any none none rxdo #8084
@program #1409:"@add-stock" any none none
caller_perms().wizard || raise(E_PERM)
symbol = dobjstr
if (listassoc(symbol, this.quotes))
  return player:tell("Already exists.")
endif
quote = `this:_get_quote(symbol) ! E_INVARG'
name = `this:_get_name(symbol) ! E_INVARG'
if (quote == E_INVARG || name == E_INVARG)
  return player:tell("Could not determine name or inital quote.")
endif
this.quotes = {@this.quotes, {$su:uppercase(symbol), quote, name}}
this.initial_prices = {@this.initial_prices, quote}
player:tell("Done.")
"Last modified by Lao-Tzu (#8084) on Tue Feb  6 10:33:31 2001 MST."
.