IF I>0 THEN LOCATE X/100,Y/100 PRINT"■" ENDIF