1830 A(I,J)= VAL(A$)