4648 IF A(I,0)=1 THEN KE=1 : GOTO 4654