Define cuisine()=
Prgm
:Local a,b,l,d,c,m,k,s,i
:0→a:0→b:0→l:0→d:0→c:0→m:0→k:0→s
:setMode(5,2)
:Disp " Faite [enter] et  donner l'unitée de départ"
:Disp "Litre......................................................=  1  "
:Disp "Décilitre................................................= 2"
:Disp "Centilitre...............................................= 3"
:Disp "Millilitre................................................= 4"
:Disp "OZ Anglais...........................................= 5"
:Disp "OZ Américain.......................................= 6"
:getKey(1)
:Request "Votre choix",a
:If a>0 and a<7 Then
:  Request "Le chiffre",b
:Else
:  For i,1,5
:    Disp ""
:  EndFor
:  Disp "Désolé, pas de calcul possible"
:  Stop
:EndIf
:If b<1 Then
:  For i,1,5
:    Disp ""
:  EndFor
:  Disp "Désolé, pas de calcul possible"
:  Stop
:EndIf

:If a=1:b→l
:If a=2:((b)/(10))→l
:If a=3:((b)/(100))→l
:If a=4:((b)/(1000))→l
:If a=5:b/35.1951→l
:If a=6:b/33.814→l

:l*10→d
:l*100→c
:l*1000→m
:l*35.1951→k
:l*33.814→s

:round(l,3)→l
:round(d,2)→d
:round(c,1)→c
:round(m,0)→m
:round(k,5)→k
:round(s,5)→s
:Disp ""
:Disp "Litre..................=",l
:Disp "Décilitre............=",d
:Disp "Centilitre...........=",c
:Disp "Millilitre............=",m
:Disp "OZ Anglais.......=",k
:Disp "OZ Américain...=",s
:Disp ""
:Disp "                                        Entrer pour sortir !"
:getKey(1)
:EndPrgm
==================================================
[Eau]------------------------[Poid] 
Millilitre,    1 ml...................................=      1 gr 
Centilitre   1 cl....................................=    10 gr 
Décilitre    1 dl....................................=  100 gr 
Litre          1 l......................................=1000 gr 
DécaLitre  1 Dl............................=     10 Kg 
HectoLitre 1 Hl............................=   100 Kg 
KiloLitre     1 Tonne.....................= 1000 Kg
==================================================