2500 WHILE KX=0