7045 IF JV>0 THEN X=INT(X)