2340 IF KC=1 AND A(I,0)=1 THEN 2375