pour le plaisir j ai refais un programme existant

dim arab,tp,t$(4,15),i,j,u,x$(2):u=4:x$(0)="0"
label conv
po(0,276,228,450,300):caption 0,"Nombres Romain":edit 1:po(1,165,043,240,42)
button 2:po(2,165,88,150,50):caption 2,"CONVERTION":edit 3:po(3,165,160,240,42)
alpha 4: po(4,10,047,130,34):caption 4,"Nombre Arabe ":font_bold 0
alpha 6: po(6,22,070,120,34):caption 6,"(de 1 à 4999)":font_size 6,10
alpha 5: po(5,10,163,130,34):caption 5,"Nombre Romain":on_click 2,conv

data "","M","MM","MMM","MMMM"
data "","C","CC","CCC","CD","D","DC","DCC","DCCC","CM"
data "","X","XX","XXX","XL","L","LX","LXX","LXXX","XC"
data "","I","II","III","IV","V","VI","VII","VIII","IX"
for j=1 to 4:for i=0 to u:read t$(j,i):next i:u=9:next j
end
conv:
x$(1)=text$(1):u=numeric(x$(1)):arab=int(abs(val(x$(u)))):text 1,arab:text 3,""
if arab<5000 then af(1,1000,1000):af(2,100,100):af(3,0,10):tp=arab-tp*10:aff(4)
return
sub aff(i):text 3,text$(3)+t$(i,tp):end_sub
sub af(i,u,j):tp=int(arab/j):aff(i):arab=arab-tp*u:end_sub
sub po(i,l,t,w,h):left i,l:top i,t:width i,w:height i,h:font_size i,11:end_sub