6728 WHILE KXX=2