home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / DIR_MOV.ZIP / DIR_BUY.TAS < prev    next >
Text File  |  1992-08-22  |  665b  |  32 lines
  1. #INCLUDE SCANDATE.SUB
  2. #MAX_QUOTES 55
  3. #OUTPUT_FILE 'DIR-BUY.LST+'
  4. F1 : ARRAY;
  5. F1 = ADX(14);
  6. F2 : ARRAY;
  7. F2 = F1[-1];
  8. F3 : ARRAY;
  9. F3 = F1[-2];
  10. F4 : ARRAY;
  11. F4 = MDI(14);
  12. F5 : ARRAY;
  13. F5 = PDI(14);
  14. F6 : ARRAY;
  15. F6 = C;
  16. F7 : ARRAY;
  17. F7 = C-C[-1];
  18. C1 = (F1 > 15) AND (F5>F4);
  19. C2 = (F1>F2) AND (F2>F3);
  20. IF (C1 AND C2) THEN
  21.     sortout(ticker,fullname,F1,F2,F3,F4,F5,F6,F7);
  22. if first_ticker then
  23. begin
  24. write('Tick  ','    Name            ','   ADX ',' ADX-1 ',' ADX-2 ');
  25. writeln(' -DI ', '  +DI ','  CLOSE ','  CHNG');
  26. end;
  27. if last_ticker then
  28. begin
  29.    Sorton(7,'d');
  30.    Sortprint('%8s %16s %5.0f %5.0f %5.0f %6.0f %6.0f %7.3f %7.3f \n');
  31. end;
  32.