7000 IF KA=1 THEN Y=TI(I,JY(J))