4625 WHILE KX=0