Microsoft Small Basic

Program Listing: GDS718

List Program

GraphicsWindow.show()
GraphicsWindow.BackgroundColor = "midnight"
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
While ("True")
Program.Delay(100)
GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
GraphicsWindow.FontSize = Math.GetRandomNumber(100)
GraphicsWindow.FontBold = Math.GetRandomNumber(2) - 1
GraphicsWindow.FontItalic = Math.GetRandomNumber(2) - 1
GraphicsWindow.DrawText(Math.GetRandomNumber(gw),Math.GetRandomNumber(gh),"Hello World")
EndWHile