7545 IF TP(K)=0 THEN 7605