CLS COLOR 15 FOR I=4 TO 19 FOR J=4 TO 19 LOCATE J,I:PRINT "●"; NEXT NEXT