Define convertisseur4()=
Prgm
:Local a,b,r,s,c,i
:10→a:0→b:0→r
:1234.8→s
:© son 1234.8 ((km)/(h)) 343 ((m)/(s))
:1079252849→c
:© lumière 1079252849 ((km)/(h)) 299792,458 ((km)/(s))
:setMode(5,2)
:For i,1,2:Disp "":EndFor
:Disp "hectare▶mètre²...: 0 mètre²▶hectare...: 1    "
:Disp "are▶mètre².........: 2  mètre²▶are.........: 3"
:Disp "centiare▶mètre²..: 4  mètre²▶centiare.: 5"
:Disp ""
:Disp "km/h▶Mach........: 6  Mach▶km/h.......: 7"
:Disp "km/h▶célérité......: 8  célérité▶km/h....: 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*10000→r
:If a=1
:((b)/(10000))→r
:©----------------------calc 2 & 3
:If a=2
:b*100→r
:If a=3
:((b)/(100))→r
:©----------------------calc 4 & 5
:If a=4
:b*1→r
:If a=5
:((b)/(1))→r
:©----------------------calc 6 & 7
:If a=6
:((b)/(s))→r
:If a=7
:s*b→r
:©----------------------calc 8 & 9
:If a=8
:((b)/(c))→r
:If a=9
:c*b→r
:©----------------------Affichage
:©round(r,4)→r
:For i,1,4:Disp "":EndFor
:Disp "= ",r
:For i,1,4:Disp "":EndFor
:getKey(1)
:Lbl fin
:EndPrgm