4035 FOR K=1 TO NC : TCX$(K)=TC$(K) : NEXT K