Microsoft Small Basic

Program Listing:

Embed this in your website

<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'>
    <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/>
    <param name='onError' value='onSilverlightError' />
    <param name='background' value='white' />
    <param name='minRuntimeVersion' value='3.0.40624.0' />
    <param name='autoUpgrade' value='true' />
    <param name='initParams' value='programId=PVC930' />
</object>

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