Microsoft Small Basic

Program Listing: SPL986

List Program

Color = GraphicsWindow.GetRandomColor()
GetRedParam = Color
GetRed()

TextWindow.WriteLine(Color)
TextWindow.WriteLine(GetRedValue)

Sub GetRed
ColorRed1 = Text.GetSubText(GetRedParam, 2, 1)
ColorRed2 = Text.GetSubText(GetRedParam, 3, 1)

ConvertHexParam = ColorRed1
ConvertHex()
ColorRed1 = ConvertHexValue

ConvertHexParam = ColorRed2
ConvertHex()
ColorRed2 = ConvertHexValue

GetRedValue = 16*ColorRed1 + ColorRed2


EndSub

Sub ConvertHex
If ConvertHexParam = "A" Then
ConvertHexValue = 10
ElseIf ConvertHexParam = "B" Then
ConvertHexValue = 11
ElseIf ConvertHexParam = "C" Then
ConvertHexValue = 12
ElseIf ConvertHexParam = "D" Then
ConvertHexValue = 13
ElseIf ConvertHexParam = "E" Then
ConvertHexValue = 14
ElseIf ConvertHexParam = "F" Then
ConvertHexValue = 15
Else
ConvertHexValue = 1*ConvertHexParam
EndIf
EndSub