home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / DIR_MOV.ZIP / STOC_SEL.TAS < prev   
Text File  |  1992-08-24  |  689b  |  28 lines
  1. #OUTPUT_FILE  'STOC_SEL.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. C3 = (F1 < 80) AND (F2 > F1);
  12. C4 = (F1[-1] > 80) AND (F2[-1] < F1[-1]);
  13. IF (C3 AND C4) 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,'a');
  26.    sortprint('%8s %16s %7.2f %7.2f %7.2f %7.2f %7.3f %7.3f \n');
  27. end;
  28.