2930 WHILE KS=1