2265 IF KE=1 THEN 2235