Microsoft Small Basic

Program Listing: PKG597
w = GraphicsWindow.Width
h = GraphicsWindow.Height
SignalSize = w / 10 * 3

GraphicsWindow.Hide()
GraphicsWindow.PenColor = "block"
GraphicsWindow.PenWidth = 3
GraphicsWindow.BrushColor = "blue"
b = Shapes.AddEllipse(SignalSize, SignalSize)
GraphicsWindow.BrushColor = "yellow"
y = Shapes.AddEllipse(SignalSize, SignalSize)
GraphicsWindow.BrushColor = "red"
r = Shapes.AddEllipse(SignalSize, SignalSize)

SignalY = (h / 2) - (SignalSize / 2)

SignalX = w / 100 * 4
Shapes.Move(b, SignalX, SignalY)

SignalX = w / 100 * 35
Shapes.Move(y, SignalX, SignalY)

SignalX = w / 100 * 66
Shapes.Move(r, SignalX, SignalY)

GraphicsWindow.Show()