home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
busi
/
tas2091.zip
/
SAR.TAS
< prev
next >
Wrap
Text File
|
1991-02-24
|
340b
|
11 lines
#max_quotes 100
#output_file 'sar.lst'
sar_a : array;
sar_a = sar(.02,.20);
if first_ticker then
writeln('TICKER SAR CLOSE C-SAR ACTION');
if over(sar_a,c) = 0
writeln(ticker,sar_a,' ',c,' ',c-sar_a,' ',' SAR SHORT/SELL');
if over(c,sar_a) = 0
writeln(ticker,sar_a,' ',c,' ',c-sar_a,' ',' SAR LONG/BUY');