Microsoft Small Basic

Program Listing: GBK436

List Program

GraphicsWindow.Title = "Sand"
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = "Black"
Line7:
x = Math.GetRandomNumber(gw)
y = Math.GetRandomNumber(gh)
value = Math.GetRandomNumber(200) + 50
color = GraphicsWindow.GetColorFromRGB(value, value / 2, 0)
GraphicsWindow.BrushColor = color
GraphicsWindow.FillRectangle(x, y, 1, 1)
Goto Line7