9846 IF X<0 THEN X=0