9010 IF X<=0 THEN FD=0 : FP=0 : RETURN