8488 IF X>1 THEN FD=0 : FP=1 : RETURN