Define altitudedistance()=
Prgm
:Local a,b
:Local km,m,cm,mm,mi,pd,po,li
:0→a:0→b:0→km:0→m:0→cm
:0→mm:0→mi:0→pd:0→po:0→li
:setMode(5,2)
:Disp "[enter] et donner l'unitée de départ          "
:Disp ""
:Disp "     km........: 1          mille.naut.: 5"
:Disp "     mètre....: 2          Pied..........: 6"
:Disp "     cm........: 3          pouce.......: 7"
:Disp "     mm.......: 4          ligne.........: 8"
:Disp ""
:getKey(1)
:Request "Votre choix ",a
:If a<1 or a>8
:  Stop
:Request "Le chiffre ",b
:If b≤0: Stop
:©----------------------1 km
:If a=1 Then
:  b→km
:  km*1000→m
:  m*100→cm
:  cm*10→mm
:  km*0.539957→mi
:  m*3.2808398950131→pd
:  m*39.37007874→po
:  m*472.440944882→li
:EndIf
:©----------------------2 m
:If a=2 Then
:  b→m
:((m)/(1000))→km
:  m*100→cm
:  cm*10→mm
:  km*0.539957→mi
:   m*3.2808398950131→pd
:   m*39.37007874→po
:   m*472.440944882→li
:EndIf
:©----------------------3 cm
:If a=3 Then
:  b→cm
:((cm)/(100))→m
:((m)/(1000))→km
:  cm*10→mm
:  km*0.539957→mi
:  m*3.2808398950131→pd
:  m*39.37007874→po
:  m*472.440944882→li
:EndIf
:©----------------------4 mm
:If a=4 Then
:  b→mm
:((mm)/(10))→cm
:((cm)/(100))→m
:((m)/(1000))→km
:  km*0.539957→mi
:  m*3.2808398950131→pd
:  m*39.37007874→po
:  m*472.440944882→li
:EndIf
:©----------------------5 mil-not
:If a=5 Then
:  b→mi
:((mi)/(0.539957))→km
:  km*1000→m
:  m*100→cm
:  cm*10→mm
:  m*3.2808398950131→pd
:  m*39.37007874→po
:  m*472.440944882→li
:EndIf
:©----------------------6 pied
:If a=6 Then
:  b→pd
:  pd*0.3048→m
:((m)/(1000))→km
:  m*100→cm
:  cm*10→mm
:  km*0.539957→mi
:  m*39.37007874→po
:  m*472.440944882→li
:EndIf
:©----------------------7 pouce
:If a=7 Then
:  b→po
:((po)/(39.37007874))→m
:((m)/(1000))→km
:  m*100→cm
:  cm*10→mm
:  km*0.539957→mi
:  m*3.2808398950131→pd
:  m*472.440944882→li
:EndIf
:©----------------------8 ligne
:If a=8 Then
:  b→li
:((li)/(4.72440944882))→cm
:((cm)/(100))→m
:((m)/(1000))→km
:  cm*10→mm
:  km*0.539957→mi
:  m*3.2808398950131→pd
:  m*39.37007874→po
:EndIf
:©----------------------affiche
:Disp ""
:Disp "kilomètre....:",km
:Disp "mètre..........:",m
:Disp "centimètre..:",cm
:Disp "millimètre...:",mm
:Disp "mille...........:",mi
:Disp "pied............:",pd
:Disp "pouce.........:",po
:Disp "ligne...........:",li
:getKey(1)
:EndPrgm