1666 WHILE KX=0