Counter:
nBlack = 0
nWhite = 0
CLS
GOSUB empty
GOSUB board
COLOR 15, 8

FOR i = 1 TO 8
    FOR j = 1 TO 8
        IF a(i, j) = 1 THEN PRINT "White="; INT(nWhite + 1)
        IF a(j, i) = 2 THEN PRINT "Black="; INT(nBlack + 1)
    NEXT j
NEXT i
RETURN