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