3100 WHILE KS=1