9972 IF Z>0 THEN FPZ=FPZ+(FD+FDI)*DX/2