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