8856 IF X<0 THEN FP=1-FP