resei yerine
TSI:=100*
Mov(Mov(ROC(C,3,%),5,E),8,E)/
Mov(Mov(Abs(ROC(C,3,%)),5,E),8,E);

TSI;