home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAS407.ZIP / MSURANK.SEL < prev    next >
Encoding:
Text File  |  1991-02-16  |  332 b   |  17 lines
  1. F1 : ARRAY;
  2. F1 = C;
  3. {01=CURR PRC Title for F1}
  4. F2 : ARRAY;
  5. F2 = ROC(C,26,'%');
  6. {02=%ROC/PRC Title for F2}
  7. F3 : ARRAY;
  8. F3 = MOV(C,10,'S');
  9. {03=MOV AVG  Title for F3}
  10. F4 : ARRAY;
  11. F4 = MOV(F2,10,'S');
  12. {04=MA %ROC  Title for F4}
  13. F5 : ARRAY;
  14. F5 = (F1/F3-1)*100;
  15. {05=%PRC MA  Title for F5}
  16. sortout(ticker,F1,F2,F3,F4,F5);
  17.