2840 PRINT " Variable ";JX(K);"- ";TC$(JX(K))