Ancienne mesure russe de la longueur

rem ============================================================================
rem                    Old Russian measure of length
rem                  Ancienne mesure russe de la longueur
rem   conversion des anciennes mesures de longueur russes au système métrique
rem                            (et vice versa).
rem          Adaptation d’un code en Free Basic trouvé sur RosettaCode
rem ============================================================================
dim units$(13), convs(13)
dim unit, yn$ ,i , s$
label choix
s$ = string$(10," ")
container_option 100 : top 100,100 : left 100,50 : height 100,300 : width 100,150
font_name 100,"arial black"
for i = 1 to 13
    option i : parent i,100 : top i,i*20 : left i,10
    read units$(i) : units$(i) = left$(units$(i)+s$, 12) : ' + ": "
    read convs(i)
    caption i,units$(i) : on_click i,choix
next i

list 200 : top 200,150 : left 200,230 : width 200,330 : height 200,220
font_name 200,"@ms gothic" : font_bold 200 : font_size 200,10
alpha 300 : top 300,20 : left 300,20 : font_name 300,"arial black"
font_size 300,12 : font_color 300,200,100,20
caption 300,"Conversion des anciennes mesures de longueur russes"+chr$(13)+s$ +"au système métrique (et vice versa)."
mark_on 13
end
rem ============================================================================
Choix:
    unit = number_click
    clear 200
    item_add 200," 1 " + caption$(unit) + "correspond à :"
    item_add 200,""
    for i = 1 to 13
       item_add 200,"   " + units$(i) + ": " + str$(convs(unit) / convs(i))
    next i
return
rem ============================================================================
data "tochka",0.0254 ,"liniya" ,0.254 ,"dyuim" ,2.54  ,"vershok",4.445,"piad" ,17.78
data "fut"   ,30.48  ,"arshin" ,71.12 ,"sazhen",213.36,"versta" ,106680,"milia",746760
data "centimètre",1,"mètre",100,"kilomètre",100000
rem ============================================================================