Microsoft Small Basic

Program Listing: FMW356

List Program

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