/*
**	This ARexx Script tests the ARexx interface of the Stocks program.
*/

trace r
options results

if Show('p','Stocks.1') then do
	Say 'Stocks.1 Already Running'
end
else do
   address command "run Stocks -d aapl cbu ibm msft"  
   address command 'waitforport Stocks.1'
end   

address 'Stocks.1'

'Study MACD = Off, Color 8'
'Study MACD = Ox, Color 8'
'Redisplay'
Address command 'wait 5'

'Study Gann = Off, Color 4'
'Study Gann = On, Color 4'
'Redisplay'
'wait 5'
'Close'
'wait 5'
'Close'
Address command 'wait 5'
'Close'
Address command 'wait 5'

'Open sys:misc/stocks/cbu'

'Printer = "LaserJet"'
Address command 'wait 10'

Address command 'run cmd parallel ram:out Opt m'
Address command 'wait 5'
'print'

Address command 'wait 15'

'Quit'

exit