6190 IF A(I,0)=1 THEN 6300