home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
finance
/
tas206.zip
/
MSURANK.SEL
< prev
next >
Wrap
Text File
|
1991-02-16
|
332b
|
17 lines
F1 : ARRAY;
F1 = C;
{01=CURR PRC Title for F1}
F2 : ARRAY;
F2 = ROC(C,26,'%');
{02=%ROC/PRC Title for F2}
F3 : ARRAY;
F3 = MOV(C,10,'S');
{03=MOV AVG Title for F3}
F4 : ARRAY;
F4 = MOV(F2,10,'S');
{04=MA %ROC Title for F4}
F5 : ARRAY;
F5 = (F1/F3-1)*100;
{05=%PRC MA Title for F5}
sortout(ticker,F1,F2,F3,F4,F5);