Microsoft Small Basic

Program Listing: CNR593

List Program

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)