1340 FOR L=0 TO K : TJ(K,L)=0 :NEXT L