Microsoft Small Basic

Program Listing:
Embed this in your website
gw = 500
gh = gw
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = "Gray"

For row = 1 To 20
  For col = 0 To 10
    x = (col-1)*50+2
    y = (row-1)*25+2
    If (Math.Remainder(row,2) = 1) Then
      x = x+12
    EndIf
    GraphicsWindow.BrushColor = "Black"
    GraphicsWindow.FillRectangle(x,y,23,23)
    GraphicsWindow.BrushColor = "White"
    GraphicsWindow.FillRectangle(x+25,y,23,23)
  EndFor
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.