2800 FOR J=1 TO NC : TC$(J)=TCX$(J) : NEXT J