7470 IF TP(K)=0 THEN PRINT : GOTO 7515