home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / tas2091.zip / VOLSTUDY.TAS < prev   
Text File  |  1991-02-20  |  459b  |  15 lines
  1. {
  2.    volstudy.tas -
  3.       This TAS script runs a couple of volume indicator studies
  4.       on each symbol.
  5. }
  6. IF FIRST_TICKER THEN
  7. BEGIN
  8. WRITELN('      \t\t         \t        \t        \t   OBV AS');
  9. WRITELN('      \t\t         \t        \t        \t   %age of');
  10. WRITELN('TICKER\t\t      OBV\t     PVI\t     NVI\t   AVG VOL');
  11. END;
  12. AVG_VOL := CUM(V)/QUOTE_COUNT;
  13. WRITELN(TICKER,'\t',OBV(),'\t',PVI(),'\t',NVI(),'\t',
  14.         INT(OBV()/AVG_VOL * 100));
  15.