2925 IF KF(5)>0 THEN GOSUB 3010 : TP(5)=Y