home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / tas501.zip / MSURANK.SEL < prev    next >
Text File  |  1993-02-27  |  461b  |  21 lines
  1. #TITLE Emulate Metastock Utilities Rank Function                      
  2. #MAX_QUOTES 100
  3. F1 : ARRAY;
  4. F1 = C;
  5. {01=CURR PRC Title for F1}
  6. F2 : ARRAY;
  7. F2 = ROC(C,26,'%');
  8. {02=%ROC/PRC Title for F2}
  9. F3 : ARRAY;
  10. F3 = MOV(C,10,'S');
  11. {03=MOV AVG  Title for F3}
  12. F4 : ARRAY;
  13. F4 = MOV(F2,10,'S');
  14. {04=MA %ROC  Title for F4}
  15. F5 : ARRAY;
  16. F5 = (F1/F3-1)*100;
  17. {05=%PRC MA  Title for F5}
  18. C1 = F2 GREATER THAN 0;
  19. IF (C1) THEN
  20.     sortout(ticker,F1,F2,F3,F4,F5);
  21.