6855 IF KC=1 THEN LOCATE I,X : PRINT "."