1685 WHILE KS=1