Microsoft Small Basic

Program Listing: DPT430

List Program

Top:
GraphicsWindow.Clear()
GraphicsWindow.Show()
GraphicsWindow.Height = 500
GraphicsWindow.Width = 800
GraphicsWindow.CanResize = "False"
GraphicsWindow.Title = "The Binary Program v0.2"
GraphicsWindow.FontBold = "True"
GraphicsWindow.FontSize = "60"
GraphicsWindow.BrushColor = "HotPink"
GraphicsWindow.FillRectangle(0,90,1000,3)
GraphicsWindow.BrushColor = "SteelBlue"
GraphicsWindow.DrawBoundText(50,30,1000,"The Binary Program")
GraphicsWindow.BrushColor = "Lime"
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.FillEllipse(20,150,150,75)
GraphicsWindow.FillEllipse(20,250,150,75)
GraphicsWindow.FillEllipse(20,350,150,75)
GraphicsWindow.FillRectangle(95,150,300,50)
GraphicsWindow.FillRectangle(95,250,300,50)
GraphicsWindow.FillRectangle(95,350,300,50)

Shape1 = Shapes.AddRectangle(3000,50)
Shapes.Move(Shape1,395,150)
Shape2 = Shapes.AddRectangle(3000,50)
Shapes.Move(Shape2,395,250)
Shape3 = Shapes.AddRectangle(3000,50)
Shapes.Move(Shape3,395,350)

Shapes.HideShape(Shape1)
Shapes.HideShape(Shape2)
Shapes.HideShape(Shape3)

GraphicsWindow.MouseMove = OnMouseMove

Sub OnMouseMove

x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY

If (x>95 And x<396 And y>149 And y<201) Then
Shapes.ShowShape(Shape1)

Shapes.HideShape(Shape2)
Shapes.HideShape(Shape3)
GraphicsWindow.BrushColor = "Lime"
ElseIf (x>95 And x<396 And y>249 And y<301) Then
Shapes.ShowShape(Shape2)

Shapes.HideShape(Shape1)
Shapes.HideShape(Shape3)
GraphicsWindow.BrushColor = "Lime"
ElseIf (x>95 And x<396 And y>349 And y<401) Then
Shapes.ShowShape(Shape3)

Shapes.HideShape(Shape1)
Shapes.HideShape(Shape2)

EndIf
Endsub



GraphicsWindow.MouseDown = OnMouseDown

Sub OnMouseDown

x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY

If (x>95 And x<396 And y>149 And y<201) Then

GraphicsWindow.Clear()
Shapes.Remove(Shape1)
Shapes.Remove(Shape2)
Shapes.Remove(Shape3)

GraphicsWindow.BrushColor = "Black"
GraphicsWindow.FillRectangle(0,0,800,600)
GraphicsWindow.BrushColor = "HotPink"
GraphicsWindow.FontSize = "25"
GraphicsWindow.DrawBoundText(30,30,750,"A - 10 K - 1101 U - 010101")
GraphicsWindow.DrawBoundText(30,75,750,"B - 01 L - 0011 V - 01101")
GraphicsWindow.DrawBoundText(30,115,750,"C - 110 M - 0111 W - 11101")
GraphicsWindow.DrawBoundText(30,155,750,"D - 001 N - 1111 X - 00011")
GraphicsWindow.DrawBoundText(30,195,750,"E - 101 O - 01111 Y - 10011")
GraphicsWindow.DrawBoundText(30,235,750,"F - 0110 P - 00001 Z - 01011")
GraphicsWindow.DrawBoundText(30,275,750,"G - 1110 Q - 10001")
GraphicsWindow.DrawBoundText(30,315,750,"H - 0001 R - 01001")
GraphicsWindow.DrawBoundText(30,355,750,"I - 1001 S - 11001")
GraphicsWindow.DrawBoundText(30,395,750,"J - 0101 T - 00101")



ElseIf (x>95 And x<396 And y>249 And y<301) Then






EndIf
Endsub

GraphicsWindow.KeyDown = OnKeyDown

Sub OnKeyDown
If (GraphicsWindow.LastKey = "Return") Then
GraphicsWindow.Clear()
Goto Top
EndIf
EndSub