4765 IF KC=1 AND A(I,0)=1 THEN 4780