home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
t
/
tas412.zip
/
DJINDEX.TAS
< prev
next >
Wrap
Text File
|
1991-06-20
|
431b
|
21 lines
#max_quotes 10
{ DJINDEX.TAS
Compute Dow Jones Industrial Average and Volume
Divisor valid as of 3/1/91
}
DIVISOR := 0.5046074;
DJVOL := DJVOL + V[0];
DJIA := DJIA + C[0];
IF C[0] > C[-1] THEN
DJUP := DJUP+1;
IF C[0] < C[-1] THEN
DJDN := DJDN+1;
IF LAST_TICKER THEN
BEGIN
DJIA := DJIA/DIVISOR;
WRITELN('DJIA IS ',DJIA,
' VOLUME IS ',DJVOL,
' UP TICKS ',INT(DJUP),
' DOWN TICKS',INT(DJDN));
END;