Define convertisseur3()=
Prgm
:Local a,b,r,i
:10→a:0→b:0→r
:setMode(5,2)
:For i,1,2:Disp "":EndFor
:Disp "cm.pointur....=0      pointur.cm....=1       "
:Disp "Hz..mètres....=2      mètres..Hz.....=3"
:Disp "KHz.mètres..=4      mètres.KHZ...=5"
:Disp "MHz.mètres..=6      mètres.MHz...=7"
:Disp "GHz.mètres...=8      mètres.GHz...=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)/(0.666))→r
:If a=1
:b*0.666→r
:©----------------------calc 2 & 3
:If a=2 or a=3
:((299792458)/(b))→r
:©----------------------calc 4 & 5
:If a=4 or a=5
:((299792.458)/(b))→r
:©----------------------calc 6 & 7
:If a=6 or a=7
:((299.792458)/(b))→r
:©----------------------calc 8 & 9
:If a=8 or a=9
:((0.299792458)/(b))→r
:©----------------------affiche
:round(r,3)
:For i,1,4:Disp "":EndFor
:Disp "= ",r
:For i,1,4:Disp "":EndFor
:getKey(1)
:Lbl fin
:EndPrgm