Microsoft Small Basic

Program Listing: SPK963

List Program

GraphicsWindow.Width = 240
GraphicsWindow.Height = 320
true = 1
While true <> 0
color = GraphicsWindow.GetRandomColor()
x = Math.GetRandomNumber(240) - 1
y = Math.GetRandomNumber(320) - 1
GraphicsWindow.SetPixel(x, y, color)
GraphicsWindow.Show()
EndWhile