home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / amigalibdisks / d990 / stocks / displaystocks.rexx < prev    next >
OS/2 REXX Batch file  |  1994-04-04  |  758b  |  49 lines
  1. /*
  2. **    This ARexx Script tests the ARexx interface of the Stocks program.
  3. */
  4.  
  5. trace r
  6. options results
  7.  
  8. if Show('p','Stocks.1') then do
  9.     Say 'Stocks.1 Already Running'
  10. end
  11. else do
  12.    address command "run Stocks -d aapl cbu ibm msft"  
  13.    address command 'waitforport Stocks.1'
  14. end   
  15.  
  16. address 'Stocks.1'
  17.  
  18. 'Study MACD = Off, Color 8'
  19. 'Study MACD = Ox, Color 8'
  20. 'Redisplay'
  21. Address command 'wait 5'
  22.  
  23. 'Study Gann = Off, Color 4'
  24. 'Study Gann = On, Color 4'
  25. 'Redisplay'
  26. 'wait 5'
  27. 'Close'
  28. 'wait 5'
  29. 'Close'
  30. Address command 'wait 5'
  31. 'Close'
  32. Address command 'wait 5'
  33.  
  34. 'Open sys:misc/stocks/cbu'
  35.  
  36. 'Printer = "LaserJet"'
  37. Address command 'wait 10'
  38.  
  39. Address command 'run cmd parallel ram:out Opt m'
  40. Address command 'wait 5'
  41. 'print'
  42.  
  43. Address command 'wait 15'
  44.  
  45. 'Quit'
  46.  
  47. exit
  48.  
  49.