5032 IF (KC=1 AND A(I-K,0)=1) THEN 5040