5991 IF CA>0 THEN X=TL(L,K)/CA : ELSE X=0