Microsoft Small Basic

Program Listing: DBR837

List Program

GraphicsWindow.Width=800
GraphicsWindow.Height=600
GraphicsWindow.DrawLine(30,200,770,200)
GraphicsWindow.DrawLine(30,400,770,400)
GraphicsWindow.DrawLine(267,30,267,570)
GraphicsWindow.DrawLine(534,30,534,570)
Sub ex
GraphicsWindow.PenColor="red"
x= GraphicsWindow.MouseX
y= GraphicsWindow.MouseY
Turtle.X= x
Turtle.y= y
Turtle.Speed=10
Turtle.Turn(45)
Turtle.Move(100)
Turtle.PenUp()
Turtle.Turn(135)
Turtle.Move(72)
Turtle.Turn(135)
Turtle.PenDown()
Turtle.Move(100)
Turtle.Hide()
EndSub
GraphicsWindow.MouseDown=o
sub o
GraphicsWindow.PenColor="blue"
a = GraphicsWindow.MouseX
b = GraphicsWindow.MouseY
GraphicsWindow.DrawEllipse(a,b,80,80)
endsub