Microsoft Small Basic

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

For i = 20 To 1 Step -1
  rad = i*10
  GraphicsWindow.BrushColor = "Black"
  GraphicsWindow.FillEllipse(gw/2-rad,gh/2-rad,2*rad,2*rad)
  rad = rad-5
  GraphicsWindow.BrushColor = "White"
  GraphicsWindow.FillEllipse(gw/2-rad,gh/2-rad,2*rad,2*rad)
EndFor

GraphicsWindow.PenWidth = 4
GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawRectangle(100,100,300,300)
Copyright (c) Microsoft Corporation. All rights reserved.