Microsoft Small Basic

Program Listing:

Embed this in your website

' 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)

Ifi=0ThenGotoEndprogElseIfi<0Then'tests if i is positiveTextWindow.WriteLine("You must enter a number greater than Zero")GotostartElseifi>jThen'tests if i is an integerTextWindow.WriteLine("You did not enter an integer.")GotostartElseifi>=4000ThenTextWindow.WriteLine("You must enter a number from 1 to 3999")'TODO take care of this problem when using Graphics window...EndIf'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''