2270 IF KE=1 THEN 2385