home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / DIR_MOV.ZIP / STOC_BUY.TAS < prev    next >
Text File  |  1992-08-24  |  691b  |  28 lines
  1. #OUTPUT_FILE  'stoc_buy.LST+'
  2. #MAX_QUOTES 55
  3. F1 : ARRAY;
  4. F2 : ARRAY;
  5. F3 : ARRAY;
  6. F4 : ARRAY;
  7. F1 = STOCH(14,4);
  8. F2 = MOV(F1,5,'E');
  9. F3 = C;
  10. F4 = C-C[-1];
  11. C1 = (F1 > 20 ) AND (F2 < F1);
  12. C2 = (F1[-1] < 20) AND (F2[-1] > F1[-1]);
  13. IF (C1 AND C2) THEN SORTOUT(TICKER,FULLNAME,F1,F2,F1[-1],F2[-1],F3,F4);
  14. IF FIRST_TICKER THEN
  15. BEGIN
  16. write('                            --- Todays ---');
  17. writeln(' -- Yesterdays');
  18. WRITE('Tick ','    Name ','              Stoch ');
  19. write('   MAvg ','  Stoch  ','  MAvg ');
  20. writeln(' Close','    Chng');
  21. writeln('    ');
  22. end;
  23. if last_ticker then
  24. begin
  25.    sorton(3,'d');
  26.    sortprint('%8s %16s %7.2f %7.2f %7.2f %7.2f %7.3f %7.3f \n');
  27. end;
  28.