5128 IF KMM=1 THEN A(I,J)=XVF : KX=1 : GOTO 5132