1680 IF KE=1 THEN 1690