2905 IF KF(1)>0 THEN TP(1)=PX