home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAS407.ZIP / DJINDEX.TAS < prev    next >
Encoding:
Text File  |  1991-06-20  |  431 b   |  21 lines
  1. #max_quotes 10
  2. { DJINDEX.TAS
  3.     Compute Dow Jones Industrial Average and Volume
  4.     Divisor valid as of 3/1/91
  5. }
  6. DIVISOR := 0.5046074;
  7. DJVOL := DJVOL + V[0];
  8. DJIA := DJIA + C[0];
  9. IF C[0] > C[-1] THEN 
  10.      DJUP := DJUP+1;
  11. IF C[0] < C[-1] THEN 
  12.      DJDN := DJDN+1;
  13. IF LAST_TICKER THEN
  14. BEGIN
  15.     DJIA := DJIA/DIVISOR;
  16.     WRITELN('DJIA IS ',DJIA,
  17.         ' VOLUME IS ',DJVOL,
  18.         ' UP TICKS ',INT(DJUP),
  19.         ' DOWN TICKS',INT(DJDN));
  20. END;
  21.