home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / EXAMPLES.ZIP / DIR_MOV.ZIP / STOC_PIC.TAS < prev    next >
Text File  |  1992-08-24  |  381b  |  25 lines
  1. #INCLUDE SCANDATE.SUB
  2. #MAX_QUOTES 55
  3. #OUTPUT_FILE 'ADX.TCK+' n
  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)
  19. IF (C1)  THEN sortout(ticker);
  20. if last_ticker then
  21. begin
  22.    Sorton(1,'a');
  23.    Sortprint('%8s  \n');
  24. end;
  25.