2850 IF KES=0 THEN X=A(I,J) ELSE X=XES