Define airmer()=
Prgm
:Local a,b,r,i
:setMode(5,2)
:Disp "           Choisir l'unitée de départ"
:Disp "mètres en pieds  : 0,        Pieds en mètres    : 1"
:Disp "km en miles uk  : 2,           miles uk en km : 3"
:Disp "km/h en knots   : 4, (milles) knots en km/h : 5"
:Disp "cm en pouces    : 6,             pouces en cm  : 7"
:Disp "    kilomètres/heure en mètres/secondes      : 8"
:Disp "    mètres/secondes en kilomètres/heure      : 9"
:getKey(1)
:Disp ""
:Request "Votre choix",a
:If a≥0 and a≤9 Then
:  Request "Le chiffre",b
:Else
:  Stop
:EndIf
:If a=0:((b)/(0.3048))→r
:If a=1
:b*0.3048→r
:If a=2
:b*0.621371→r
:If a=3
:((b)/(0.621371))→r
:If a=4
:((b)/(1.852))→r
:If a=5
:b*1.852→r
:If a=6
:b*0.39370079
:If a=7
:((b)/(0.39370079))
:If a=8
:((b)/(3.6))→r
:If a=9
:b*3.6→r
:round(r,3)→r
:For i,1,4
:  Disp ""
:EndFor
:Disp "le résultat est ",r
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:EndPrgm
=========================================
             m.pied - pied.m
b*3.2808398950131→r - b/3.2808398950131→r
     b/0,30480000→r - b*0,30480000→r
-----------------------------------------
           Km.mille - mille.km
       b*0.621371→r - b/0.621371→r
       b/1.609344→r - b*1.609344→r
-----------------------------------------
    Knots(noeuds) ou mille nautique
 Un nœud = 1 mille par heure (1,852 km/h)
        1 nautique = 1,852 km

         Kmh.noeuds - noeuds.Kmh 
          b/1.852→r - b*1.852→r
     b*0,53995680→r - b/0,53995680→r
-----------------------------------------
           pouces.m - m.pouces
      b/39.370079→r - b*39.370079→r
      b*0,025399999 - b*39.370079→r

           pouce.cm - cm.pouce
       b/0.39370079 - b*0.39370079
        b*2.5399999 - b/2.5399999
-----------------------------------------
             Kmh.ms - ms.Kmh
            b/3.6→r - b*3.6→r
=========================================