Nombres romains

rem ============================================================================
rem                    Nombres romains
rem ============================================================================
dim i,n$
width 0,300
list 10: top 10,20 : left 10,50 : height 10,400 : width 10,200 : font_bold 10
font_name 10,"consola"
item_add 10,"Liste des nombres romains"
for i = 1 to  4999
    n$ = str$(i)
    while len(n$) < 4 : n$ = " " + n$: end_while
    item_add 10, n$ + " = " + Arabe_To_Romain$(i)
next i
end
rem ============================================================================
FNC Arabe_To_Romain$(x)
    dim_local s$
    select int(mod(x,10000)/1000)
        case 1 : s$ = s$ + "M"
        case 2 : s$ = s$ + "MM"
        case 3 : s$ = s$ + "MMM"
        case 4 : s$ = s$ + "MMMM"
    end_select
    select int(mod(x,1000)/100)
        case 1 : s$ = s$ + "C"
        case 2 : s$ = s$ + "CC"
        case 3 : s$ = s$ + "CCC"
        case 4 : s$ = s$ + "CD"
        case 5 : s$ = s$ + "D"
        case 6 : s$ = s$ + "DC"
        case 7 : s$ = s$ + "DCC"
        case 8 : s$ = s$ + "DCCC"
        case 9 : s$ = s$ + "CM"
    end_select
    select int(mod(x,100)/10)
        case 1 : s$ = s$ + "X"
        case 2 : s$ = s$ + "XX"
        case 3 : s$ = s$ + "XXX"
        case 4 : s$ = s$ + "XL"
        case 5 : s$ = s$ + "L"
        case 6 : s$ = s$ + "LX"
        case 7 : s$ = s$ + "LXX"
        case 8 : s$ = s$ + "LXXX"
        case 9 : s$ = s$ + "XC"
    end_select
    select mod(x,10)
        case 1 : s$ = s$ + "I"
        case 2 : s$ = s$ + "II"
        case 3 : s$ = s$ + "III"
        case 4 : s$ = s$ + "IV"
        case 5 : s$ = s$ + "V"
        case 6 : s$ = s$ + "VI"
        case 7 : s$ = s$ + "VII"
        case 8 : s$ = s$ + "VIII"
        case 9 : s$ = s$ + "IX"
    end_select
    result s$    
END_FNC
rem ============================================================================