7745 IF FP>0 THEN DI=-DI