Microsoft Small Basic

Program Listing: JCS474

List Program

' Generated By GUI Designer v1.6
GraphicsWindow.Show()
GraphicsWindow.Width = GraphicsWindow.Width + 800
GraphicsWindow.Height = 441
GraphicsWindow.BrushColor = "darkblue
GraphicsWindow.BackgroundColor = "teal
GraphicsWindow.PenWidth = 0
Ellipse1 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse1,621,233)
Shapes.Remove(Ellipse1)
GraphicsWindow.BrushColor = "White
Ellipse2 = Shapes.AddEllipse(200,200)
Shapes.Move(Ellipse2,100,289)
Ellipse3 = Shapes.AddEllipse(150,150)
Shapes.Move(Ellipse3,124,174)
GraphicsWindow.BrushColor = "Gray
Ellipse4 = Shapes.AddEllipse(20,20)
Shapes.Move(Ellipse4,163,231)
Ellipse5 = Shapes.AddEllipse(20,20)
Shapes.Move(Ellipse5,211,231)
Rectangle1 = Shapes.AddRectangle(100,20)
Shapes.Move(Rectangle1,150,268)
Shapes.Remove(Rectangle1)
GraphicsWindow.BrushColor = "#804000
Rectangle2 = Shapes.AddRectangle(60,15)
Shapes.Move(Rectangle2,169,273)
Ellipse6 = Shapes.AddEllipse(60,15)
Shapes.Move(Ellipse6,264,320)
Shapes.Remove(Ellipse6)
Rectangle3 = Shapes.AddRectangle(60,15)
Shapes.Move(Rectangle3,274,295)
Shapes.Rotate(Rectangle3,-45)
Shapes.Move(Rectangle3,175,200)
Shapes.Move(Rectangle3,350,400)
Shapes.Move(Rectangle3,300,300)
Shapes.Move(Rectangle3,250,300)
Shapes.Move(Rectangle3,270,300)
Ellipse7 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse7,420,222)
Shapes.Remove(Ellipse7)
GraphicsWindow.BrushColor = "White
Ellipse8 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse8,366,166)
Ellipse9 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse9,56,126)
Ellipse10 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse10,441,269)
Ellipse11 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse11,71,295)
Ellipse12 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse12,374,350)
Ellipse13 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse13,338,230)
Ellipse14 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse14,284,115)
Ellipse15 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse15,34,371)
Ellipse16 = Shapes.AddEllipse(10,10.)
Shapes.Move(Ellipse16,38,200)
Ellipse17 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse17,372,97)
Ellipse18 = Shapes.AddEllipse(10,10)
Ellipse19 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse19,111,101)
Ellipse20 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse20,165,139)
Ellipse21 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse21,303,173)
Ellipse22 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse22,99,188)
Ellipse23 = Shapes.AddEllipse(10,10)
Shapes.Move(Ellipse23,241,147)