Microsoft Small Basic

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

GraphicsWindow.BrushColor = "Black"
For i = 1 To 8
  For j = 1 To 8
    GraphicsWindow.FillRectangle((i-1)*gw/8+5,(j-1)*gw/8+5,gw/8-10,gw/8-10)
  EndFor
EndFor

GraphicsWindow.BrushColor = "White"
For i = 1 To 7
  For j = 1 To 7
    GraphicsWindow.FillEllipse(i*gw/8-7,j*gw/8-7,14,14)
  EndFor
EndFor


Copyright (c) Microsoft Corporation. All rights reserved.