home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
finance
/
tas515dm.zip
/
EXAMPLES.ZIP
/
DIR_MOV.ZIP
/
DIR_SEL.TAS
< prev
next >
Wrap
Text File
|
1992-08-22
|
666b
|
32 lines
#INCLUDE SCANDATE.SUB
#MAX_QUOTES 55
#OUTPUT_FILE 'DIR-SEL.LST+'
F1 : ARRAY;
F1 = ADX(14);
F2 : ARRAY;
F2 = F1[-1];
F3 : ARRAY;
F3 = F1[-2];
F4 : ARRAY;
F4 = MDI(14);
F5 : ARRAY;
F5 = PDI(14);
F6 : ARRAY;
F6 = C;
F7 : ARRAY;
F7 = C-C[-1];
C1 = (F1 > 15) AND (F5<F4);
C2 = (F1<F2) AND (F2<F3);
IF (C1 AND C2) THEN
sortout(ticker,fullname,F1,F2,F3,F4,F5,F6,F7);
if first_ticker then
begin
write('Tick ',' Name ',' ADX ',' ADX-1 ',' ADX-2 ');
writeln(' -DI ', ' +DI ',' CLOSE ',' CHNG');
end;
if last_ticker then
begin
Sorton(6,'d');
Sortprint('%8s %16s %5.0f %5.0f %5.0f %6.0f %6.0f %7.3f %7.3f \n');
end;