Define convertisseur1()=
Prgm
:Local a,b,r,i
:10→a:0→b:0→r
:setMode(5,2)
:For i,1,2:Disp "":EndFor
:Disp "mn▶ctm......: 0         ctm▶mn.......: 1        "
:Disp "Kmh▶ms.....: 2         ms▶Kmh.....: 3"
:Disp "m▶pied........: 4         pied▶m.......: 5"
:Disp "Km▶milTr...: 6         milTr▶km....: 7"
:Disp "mmHg▶hPa.: 8         hPa▶mmHg.: 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
:©----------------------calc 0 & 1
:If a=0
:((b)/(3))*5→r
:If a=1
:((b)/(5))*3→r
:©----------------------calc 2 & 3
:If a=2
:((b)/(3.6))→r
:If a=3
:b*3.6→r
:©----------------------calc 4 & 5
:If a=4
:b*3.2808398950131→r
:If a=5
:((b)/(3.2808398950131))→r
:©----------------------calc 6 & 7
:If a=6
:b*0.621371→r
:If a=7
:((b)/(0.621371))→r
:©----------------------calc 8 & 9
:If a=8
:((b)/(0.75006375541921))→r
:If a=9
:b*0.75006375541921→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