Microsoft Small Basic

Program Listing: GFZ423

List Program

GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.PenColor = "Blue"
GraphicsWindow.FillRectangle(1,5,600,55)
GraphicsWindow.FillRectangle(1,248,600,55)
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.PenColor = "Red"
GraphicsWindow.FillRectangle(1,75,600,158)
GraphicsWindow.BrushColor = "White"
GraphicsWindow.PenColor = "White"
GraphicsWindow.FillEllipse(89,93,135,135)
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.PenColor = "Red"
T1 = Shapes.AddTriangle(58,1,20,105,75,65)
T2 = Shapes.AddTriangle(58,1,20,105,75,65)
T3 = Shapes.AddTriangle(58,1,20,105,75,65)
Shapes.Rotate(T2,70)
Shapes.Rotate(T3,140)
Shapes.Move(T1,100,100)
Shapes.Move(T2,115,87)
Shapes.Move(T3,138,98)