9000 IF X=0 AND K=1 THEN FD=1E+30 : FP=0 : RETURN