2817 IF KX=0 THEN IX=IX+1 : KX=1