1040 DEF FNR(X,K)=INT(10^K*X+.5)/10^K