Microsoft Small Basic

Program Listing: SXK087

List Program

'(C) 2013 by JOman Mied

GraphicsWindow.Title = "JOman's 'Small Challenge 2'"
GraphicsWindow.Width = 500
GraphicsWindow.Height = 500
GraphicsWindow.Left = (Desktop.Width - 500)/2
GraphicsWindow.Top = (Desktop.Height - 500)/2
GraphicsWindow.DrawText(160, 247, "Click anywhere for a surprise!")
GraphicsWindow.DrawText(160, 300, "(Keep clicking to get new colours!)")
GraphicsWindow.MouseDown = MouseDown

'Button Click event
Sub MouseDown
GraphicsWindow.Clear()
bgcolour = GraphicsWindow.GetRandomColor()
textcolour = GraphicsWindow.GetRandomColor()
GraphicsWindow.BackgroundColor = bgcolour
GraphicsWindow.BrushColor = textcolour
welcome = Shapes.AddText("WELCOME!!")
Shapes.Move(welcome, 220, 247)
Shapes.Zoom(welcome, 5, 7)
GraphicsWindow.DrawText(160, 300, "(Keep clicking to get new colours!)")
EndSub