Microsoft Small Basic

Program Listing: DJD823

List Program

GraphicsWindow.Show()
GraphicsWindow.MouseDown = OnMouseDown
GraphicsWindow.MouseMove = OnMouseMove
GraphicsWindow.KeyDown = OnKeyDown

Sub OnMouseDown
If Mouse.IsLeftButtonDown Then
GraphicsWindow.Title = "The left mouse button was clicked."
ElseIf Mouse.IsRightButtonDown Then
GraphicsWindow.Title = "The right mouse button was clicked."
EndIf
EndSub

Sub OnMouseMove
GraphicsWindow.Title = "Mouse moved to " + Mouse.MouseX + ", " + Mouse.MouseY
EndSub

Sub OnKeyDown
If GraphicsWindow.LastKey = "S" Then
Mouse.ShowCursor()
GraphicsWindow.Title = "Cursor is visible. Press 'H' to hide it."
ElseIf GraphicsWindow.LastKey = "H" Then
Mouse.HideCursor()
GraphicsWindow.Title = "Cursor is hidden. Press 'S' to show it."
EndIf
EndSub