1370 WHILE KS=1