Define baromètre()=
Prgm
:Local a,b,h,m
:0→a:0→b:0→h:0→m
:setMode(5,2)
:Disp "bar................................................(bar): 1  "
:Disp "millibar......................................(mbar): 2  "
:Disp "Hectopascal.................................(hPa): 3  "
:Disp "millimètre de mercure.............(mmHg): 4  "
:Disp "atmosphère...atm.............................(at): 5  "
:Disp ""
:Disp "                             entrer pour commencer  "
:getKey(1)
:Request "Votre choix ",a
:If a≥1 and a<6 Then
:  Request "Le nombre ",b
:Else
:  Stop
:EndIf
:©----------------------1
:If a=1 Then
:  b*1000→h
:((h)/(1.33322))→m
:EndIf
:©----------------------2
:If a=2 Then
:  b→h
:((h)/(1.33322))→m
:EndIf
:©----------------------3
:If a=3 Then
:  b→h
:((b)/(1.33322))→m
:EndIf
:©----------------------4
:If a=4 Then
:  b→m
:  b*1.33322→h
:EndIf
:©----------------------5
:If a=5 Then
:  b*1013.25→h
:((h)/(1.33322))→m
:EndIf
:©----------------------aff
:Disp ""
:Disp ""
:Disp "bar ",round(((h)/(1000)),3),"         mmHg",round(m,3)
:Disp "mbar ",round(h,3),"         cmHg ",round(((m)/(10)),3)
:Disp "Pa ",round(h*100,3),"         dmHg",round(((m)/(100)),3)
:Disp "hPa ",round(h,3),"         at",round(((h)/(1013.25)),3)
:Disp "kPa",round(((h)/(10)),3)," "
:Disp "MPa",round(((h)/(10000)))," "
:Disp ""
:Disp "                                        Entrer pour sortir !"
:getKey(1)
:EndPrgm