Microsoft Small Basic

Program Listing: PVC930

List Program

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