Microsoft Small Basic

Program Listing: QQK823

List Program

'Window
GraphicsWindow.Hide()
GraphicsWindow.Width = 200
GraphicsWindow.Height = 200
GraphicsWindow.Left = (Desktop.Width - 200) / 2
GraphicsWindow.Top = 100
GraphicsWindow.CanResize = "false"
GraphicsWindow.Title = "Window"

'Regular Triangle
triangle = Shapes.AddTriangle(0, 0, 100, 33.33, 33.33, 100)
Shapes.Rotate(triangle, 45)
Shapes.Move(triangle, 100, 50)

'Show Window
GraphicsWindow.Show()