4200 WHILE KS=1