1030 DEF FNR(X,DE)=INT(10^DE*X+.5)/10^DE