Microsoft Small Basic

Program Listing: TGG480
GraphicsWindow.Title = "Binary Converter"
GraphicsWindow.BackgroundColor = "Cyan"
GraphicsWindow.Height = 200
GraphicsWindow.Width = 300
GraphicsWindow.CanResize = 0
GraphicsWindow.DrawText(100,10,"Enter a number:")
TextBox = Controls.AddTextBox(100,40)
Controls.SetSize(TextBox,100, 23)
Controls.AddButton("Convert",120,100)
Controls.ButtonClicked = ButtonDown
Sub ButtonDown
DecimalNumber = Controls.GetTextBoxText(TextBox)
While DecimalNumber > 0
i = i + 1
Bit[i] = Math.Remainder(DecimalNumber,2)
DecimalNumber = Math.Floor(DecimalNumber/2)
EndWhile
For f = Array.GetItemCount(Bit) To 1 Step -1
BinaryNumber = Text.Append(BinaryNumber,Bit[f])
EndFor
Controls.SetTextBoxText(TextBox,BinaryNumber)
BinaryNumber = ""
i = 0
Bit = ""
EndSub