4825 IF KE=1 THEN 4790