1824 IF KA=1 THEN IJ=I : NXX=NXX+1