Microsoft Small Basic

Program Listing: TMM460

List Program

GraphicsWindow.Width = 1500
start3:
GraphicsWindow.Height = 750
y = 20
x = 50
a = 1220
b = 600
c = 560
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.FillEllipse(y,x,50,50)
GraphicsWindow.DrawLine(1,100,50,100)
GraphicsWindow.PenWidth = 10
GraphicsWindow.PenColor = "brown"
GraphicsWindow.DrawLine(a,b,a,c)
GraphicsWindow.PenColor = "black"
GraphicsWindow.PenWidth = 1
GraphicsWindow.DrawLine(1,450,60,450)
GraphicsWindow.DrawLine(1,595,1200,595)
if GraphicsWindow.LastKey = "A" Then
Goto Start
Else
Program.Delay(30)
EndIf
Start:
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.FillEllipse(y,x,50,50)
GraphicsWindow.DrawLine(1,100,50,100)
GraphicsWindow.PenWidth = 10
GraphicsWindow.PenColor = "brown"
GraphicsWindow.DrawLine(a,b,a,c)
GraphicsWindow.PenColor = "black"
GraphicsWindow.PenWidth = 1
GraphicsWindow.DrawLine(1,450,60,450)
GraphicsWindow.DrawLine(1,595,1200,595)
Program.Delay(40)
GraphicsWindow.DrawText(10,10,y)
y = y + 2
If (y > 50) Then
x = x + 8
y = y -2
EndIf
If (x > 408) Then
x = x - 4
y = y + 8
EndIf
If (x = x - 20) Then
Goto start2
EndIf
If (x >= 550) Then
x = x - 4
y = y + 8
Endif
start2:
If (y > 1160) Then
a = a + 20
b = b + 9
c = c + 10
If (y > 1240) Then
x = x + 10
y = y + 0
EndIf
If (x > 700) Then
Goto start3
EndIf
EndIf
GraphicsWindow.Clear()
Goto start