home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / finance / tas515dm.zip / TAS514.EXE / lha / MSURANK.SEL < prev    next >
Text File  |  1993-03-23  |  401b  |  19 lines
  1. #TITLE EMULATE METASTOCK UTILITIES RANK FUNCTION
  2. #MAX_QUOTES 0 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. sortout(ticker,F1,F2,F3,F4,F5);
  19.