Numero Decimal a Romano

Función que acepta un numero decimal y retorna el correspondiente numero romano.

				PARAMETERS XNUM

* CONVIERTE NUMERO DECIMAL A ROMANOS

DIMENSION NUMEROS(13),ROMANOS(13)

NUMEROS(1) = 1

NUMEROS(2) = 4

NUMEROS(3) = 5

NUMEROS(4) = 9

NUMEROS(5) = 10

NUMEROS(6) = 40

NUMEROS(7) = 50

NUMEROS(8) = 90

NUMEROS(9) = 100

NUMEROS(10) = 400

NUMEROS(11) = 500

NUMEROS(12) = 900

NUMEROS(13) = 1000

ROMANOS(1) = "I"

ROMANOS(2) = "IV"

ROMANOS(3) = "V"

ROMANOS(4) = "IX"

ROMANOS(5) = "X"

ROMANOS(6) = "XL"

ROMANOS(7) = "L"

ROMANOS(8) = "XC"

ROMANOS(9) = "C"

ROMANOS(10) = "CD"

ROMANOS(11) = "D"

ROMANOS(12) = "CM"

ROMANOS(13) = "M"

XROM = ""

FOR I = 13 TO 1 STEP -1

	DO WHILE XNUM >= NUMEROS(I)

		XNUM = XNUM - NUMEROS(I)

		XROM = XROM + ROMANOS(I)

	ENDDO

NEXT I

RETURN XROM