6925 PRINT TG$(J)