3795 IF IKP=3 THEN 3840