1420 IF TF=2 THEN IF X>0 THEN XP(K)=LOG(X) ELSE KE=1