Microsoft Small Basic

Program Listing: MDC460

List Program

GraphicsWindow.Title = ""
GraphicsWindow.BackgroundColor = "white"
GraphicsWindow.MouseMove = OnMouseMove
GraphicsWindow.MouseDown = OnMouseDown
GraphicsWindow.PenColor = "black"
GraphicsWindow.Width = 1000
GraphicsWindow.Height = 750

Sub OnMouseDown
prevX = GraphicsWindow.MouseX
prevY = GraphicsWindow.MouseY
GraphicsWindow.DrawLine(prevX, prevY, x, y)
GraphicsWindow.PenColor ="black"
GraphicsWindow.PenWidth ="1"
EndSub

Sub OnMouseMove
x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY
If (Mouse.IsLeftButtonDown) Then
GraphicsWindow.DrawLine(prevX, prevY, x, y)
EndIf
prevX = x
prevY = y
EndSub