home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / tas2091.zip / SAR.TAS < prev    next >
Text File  |  1991-02-24  |  340b  |  11 lines

  1. #max_quotes 100
  2. #output_file 'sar.lst'
  3. sar_a : array;
  4. sar_a = sar(.02,.20);
  5. if first_ticker then 
  6.     writeln('TICKER       SAR    CLOSE    C-SAR    ACTION');
  7. if over(sar_a,c) = 0
  8.     writeln(ticker,sar_a,' ',c,' ',c-sar_a,' ',' SAR SHORT/SELL');
  9. if over(c,sar_a) = 0
  10.     writeln(ticker,sar_a,' ',c,' ',c-sar_a,' ',' SAR LONG/BUY');
  11.