Define convertisseur5()=
Prgm
:Local a,b,r,k,p
:0→a:0→b:0→r
:0.10197→k
:0.666→p
:setMode(5,2)
:For i,1,2:Disp "":EndFor
:Disp "cm en pointure..........=0"
:Disp "pointure en cm..........=1"
:Disp "------Approximation-------"
:Disp "kg.newton.=2  newton.kg.=3"
:For i,1,2:Disp "":EndFor
:getKey(1)
:Request "Votre choix = ",a
:If a≥0 and a≤3 Then
:  Request "Le chiffre",b
:Else
:  Goto fin
:EndIf
:©----------------------calc 0
:If a=0 Then
:  int(b+0.99)→b
:((b)/(p))→r
:  int(r+0.99)→r
:EndIf
:©----------------------calc 1
:If a=1 Then
:  int(b+0.99)→b
:  b*p→r
:  int(r+0.99)→r
:EndIf
:©----------------------calc 2
:If a=2
:((b)/(k))→r
:If a=3
:b*k→r
:©----------------------affiche
:round(r,3)→r
:For i,1,2:Disp "":EndFor
:Disp "= ",r
:For i,1,2:Disp "":EndFor
:getKey(1)
:Lbl fin
:EndPrgm