Microsoft Small Basic

Program Listing: VMG691-3

List Program

digits[1] = "1=one ;2=two ;3=three ;4=four ;5=five ;6=six ;7=seven ;8=eight ;9=nine "
teensdigits = "0=ten ;1=eleven ;2=twelve ;3=thirteen ;4=fourteen ;5=fifteen ;6=sixteen ;7=seventeen ;8=eighteen ;9=nineteen "
digits[2] = "1=ten ;2=twenty ;3=thirty ;4=forty ;5=fifty ;6=sixty ;7=seventy ;8=eighty ;9=ninety "
For i = 1 To 9
digits[3][i] = digits[1][i]+"hundred "
digits[4][i] = digits[1][i]+"thousand "
digits[5][i] = digits[2][i]
digits[6][i] = digits[3][i]
digits[7][i] = digits[1][i]+"million "
digits[8][i] = digits[2][i]
digits[9][i] = digits[3][i]
EndFor
digits[4][0] = "thousand "
While 1=1
txt = ""
TextWindow.Clear()
TextWindow.WriteLine("Enter a number to write in word form:")
num = TextWindow.ReadNumber()
length = Text.GetLength(num)
For i = 1 To 3
digitentered[i] = Text.GetSubText(num,length-i+1,1)
If Math.Remainder(i,3) = 2 And digitentered[i] = 1 Then
txt[1] = teensdigits[digitentered[i-1]]
Else
txt[1] = Text.Append(digits[i][digitentered[i]],txt[1])
EndIf
EndFor
For i = 4 To 6
digitentered[i] = Text.GetSubText(num,length-i+1,1)
If Math.Remainder(i,3) = 2 And digitentered[i] = 1 Then
txt[2] = teensdigits[digitentered[i-1]]+"thousand "
Else
txt[2] = Text.Append(digits[i][digitentered[i]],txt[2])
EndIf
EndFor
For i = 7 To 9
digitentered[i] = Text.GetSubText(num,length-i+1,1)
If Math.Remainder(i,3) = 2 And digitentered[i] = 1 Then
txt[3] = teensdigits[digitentered[i-1]]+"million "
Else
txt[3] = Text.Append(digits[i][digitentered[i]],txt[3])
EndIf
EndFor
txt = txt[3]+txt[2]+txt[1]
TextWindow.WriteLine(txt)
Program.Delay(4000)
EndWhile