2270 WHILE KX=0