2180 WHILE KX=0