OPTION BASE 1

GLOBAL roman$[] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I" }
GLOBAL number[] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 }

FUNCTION toroman$(value)

    LOCAL result$

    DOTIMES UBOUND(number)
        WHILE value >= number[_]
            result$ = result$ & roman$[_]
            DECR value, number[_]
        WEND
    DONE

    RETURN result$

ENDFUNC

PRINT toroman$(1990)
PRINT toroman$(2008)
PRINT toroman$(1666)