6.1 Declare an array which would be suitable for representing draughts
board.  Write two assignments to set all the white squares to zero and
the black squares to unity.  [ A draughts board is 8 x 8 with alternate
black and white squares, in both directions. ]

Answer:

    INTEGER :: board(8,8)

    board = 0
    board(2::2,::2) = 1
    board(::2,2::2) = 1