8724 IF X=0 AND K=1 THEN FD=1E+10 : FP=0 : RETURN