1765 WHILE KS=1