Define convertisseur2()=
Prgm
:Local a,b,r,i
:10→a:0→b:0→r
:setMode(5,2)
:For i,1,2:Disp "":EndFor
:Disp "Kmh.noeuds:0         noeuds.Kmh:1        "
:Disp "pouces.m.....:2         m.pouces.....:3"
:Disp "Kg.livre.......:4         livre.Kg........:5"
:Disp "gallUK.lit.....:6         lit.gallUK.....:7"
:Disp "gallUS.lit......:8         lit.gallUS.....:9"
:For i,1,2:Disp "":EndFor
:getKey(1)
:Request "Votre choix = ",a
:If a≥0 and a≤9 Then
:  Request "Le chiffre",b
:Else
:  Goto fin
:EndIf
:©----------------------cal 0 & 1
:If a=0
:((b)/(1.852))→r
:If a=1
:b*1.852→r
:©----------------------cal 2 & 3
:If a=2
:((b)/(39.370079))→r
:If a=3
:b*39.370079→r
:©----------------------cal 4 & 5
:If a=4
:b*2.20462→r
:If a=5
:((b)/(2.20462))→r
:©----------------------cal 6 & 7
:If a=6
:((b)/(0.21997))→r
:If a=7
:b*0.21997→r
:©----------------------cal 8 & 9
:If a=8
:((b)/(0.26417))→r
:If a=9
:b*0.26417→r
:©----------------------affichage
:round(r,3)→r
:For i,1,4:Disp "":EndFor
:Disp "= ",r
:For i,1,4:Disp "":EndFor
:getKey(1)
:Lbl fin
:EndPrgm