4644 PRINT#3,"VARIABLE = ";J;"- ";TC$(J) : PRINT#3,