Microsoft Small Basic

Program Listing: SFP007

List Program

' RomanNumeral.sb
'This program was written by "Glennium"

Start:

Bloc()' Loads Roman Numerals into Letters Array

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TextWindow.WriteLine("")
TextWindow.Write("Please enter an integer from 1 to 3999; or ''Return'' to quit...")
i = TextWindow.ReadNumber()
len = Text.GetLength(i)
j =Math.Floor(i)

If i = 0 Then
Goto Endprog
ElseIf i < 0 Then 'tests if i is positive
TextWindow.WriteLine("You must enter a number greater than Zero")
Goto start
Elseif i > j Then 'tests if i is an integer
TextWindow.WriteLine("You did not enter an integer.")
Goto start
Elseif i >= 4000 Then
TextWindow.WriteLine("You must enter a number from 1 to 3999")
'TODO take care of this problem when using Graphics window...
EndIf
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

StripAndLoad()


OutP()

Goto Start

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Bloc
Letters [1] [1] = "I''
Letters [1] [2] = "II"
Letters [1] [3] = "III"
Letters [1] [4] = "IV"
Letters [1] [5] = "V"
Letters [1] [6] = "VI"
Letters [1] [7] = "VII"
Letters [1] [8] = "VIII"
Letters [1] [9] = "IX"
Letters [1] [0] = ""
Letters [2] [1] = "X"
Letters [2] [2] = "XX"
Letters [2] [3] = "XXX"
Letters [2] [4] = "XL"
Letters [2] [5] = "L"
Letters [2] [6] = "LX"
Letters [2] [7] = "LXX"
Letters [2] [8] = "LXXX"
Letters [2] [9] = "XC"
Letters [2] [0] = ""
Letters [3] [1] = "C"
Letters [3] [2] = "CC"
Letters [3] [3] = "CCC"
Letters [3] [4] = "CD"
Letters [3] [5] = "D"
Letters [3] [6] = "DC"
Letters [3] [7] = "DCC"
Letters [3] [8] = "DCCC"
Letters [3] [9] = "CM"
Letters [3] [0] = ""
Letters [4] [1] = "M"
Letters [4] [2] = "MM"
Letters [4] [3] = "MMM"

EndSub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub OutP
TextWindow.WriteLine("")
For B = len to 1 Step -1

TextWindow.Write(Letters[B][Digits[B]])

EndFor
TextWindow.WriteLine("")
EndSub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub StripAndLoad
X= Math.Power(10,len-1)' creates a multiplier to help strip off the digits


len2 = len 'creates the second length variable so len will not be dammaged

For Counter = len To 1 Step -1

Z = math.Floor(i/X) 'Z is the first digit in the line each iteration.

Digits[len2] = Z
len2 = len2 -1
i= i - (X*Z)
X= X / 10

EndFor
EndSub


Endprog: