Microsoft Small Basic

Program Listing: SPF659

List Program

GraphicsWindow.BackgroundColor = "MediumOrchid"
GraphicsWindow.Title = "Vincent Yi-lun Li's WordPress.com"
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300

GraphicsWindow.PenWidth = 10
GraphicsWindow.PenColor = "DarkGreen"
GraphicsWindow.DrawLine(10, 10, 90, 90)
GraphicsWindow.PenColor = "Navy"
GraphicsWindow.DrawLine(10, 90, 90, 10)

GraphicsWindow.PenColor = "Black"
For i = 1 To 10
GraphicsWindow.PenWidth = i
GraphicsWindow.DrawLine(150, i * 15, 300, i * 15)
EndFor

GraphicsWindow.PenWidth = 7
GraphicsWindow.PenColor = "Gold"
GraphicsWindow.DrawRectangle(10, 175, 290, 50)
GraphicsWindow.BrushColor = "Silver"
GraphicsWindow.FillRectangle(10, 175, 290, 50)

GraphicsWindow.PenWidth = 6
GraphicsWindow.PenColor = "DarkGoldenrod"
GraphicsWindow.DrawEllipse(325, 10, 250, 100)
GraphicsWindow.BrushColor = "LightGray"
GraphicsWindow.FillEllipse(325, 10, 250, 100)

GraphicsWindow.PenColor = "Maroon"
GraphicsWindow.DrawEllipse(390, 125, 130, 130)
GraphicsWindow.BrushColor = "BurlyWood"
GraphicsWindow.FillEllipse(390, 125, 130, 130)

GraphicsWindow.Show()