6735 IF CA>0 THEN X=TI(L,K)/CA ELSE X=0