5845 FOR L=1 TO K : TI(K,L)=0 :NEXT L