Define températures()=
Prgm
:Local cel,kel,fah,ran,del,new,rea,rom,ley
:0→a:0→b:0→cel:0→kel:0→fah:0→ran
:0→del:0→new:0→rea:0→rom:0→ley
:setMode(5,2)
:Disp "---- Choisir l'unité et pressez [enter] ----"
:Disp "Celsius.......: 1                      Kelvin........: 2"
:Disp "Fahrenheit..: 3                      Rankine.....: 4"
:Disp "Delisle........: 5                      Newton......: 6"
:Disp "Réaumur....: 7                      Romer........: 8"
:Disp "Leyden.......: 9                      ----------"
:Disp "-------------------------------"
:getKey(1)
:Request "Votre choix",a
:If a>0 and a<10 Then
:  Request "Le chiffre",b
:Else
:  Stop
:EndIf
:©-----------------
:If a=1:b→cel
:If a=2:b-273.15→cel
:If a=3:((b-32)/(1.8))→cel
:If a=4:((b-491.67)/(1.8))→cel
:If a=5:100-((b*2)/(3))→cel
:If a=6:((b)/(0.33))→cel
:If a=7:((b)/(0.8))→cel
:If a=8:((b-7.5)/(0.525))→cel
:If a=9:b-253→cel
:©-----------------
:cel+273.15→kel
:cel*1.8+32→fah
:cel*1.8+491.67→ran
:(((100-cel)*3)/(2))→del
:©ou (cel*1.5)-100→del
:cel*0.33→new
:cel*0.8→rea
:cel*0.525+7.5→rom
:cel+253→ley
:©-----------------
:round(cel,3)→cel
:round(kel,3)→kel
:round(fah,3)→fah
:round(ran,3)→ran
:round(del,3)→del
:round(new,3)→new
:round(rea,3)→rea
:round(rom,3)→rom
:round(ley,3)→ley
:©-----------------
:Disp ""
:Disp ""
:Disp "Celcius.....=",cel,"        Kelvin...=",kel
:Disp "Fahrenheit=",fah,"        Rankine=",ran
:Disp "Delisle......=",del,"        Newton.=",new
:Disp "Réaumur..=",rea,"        Romer...=",rom
:Disp "Leyden.....=",ley,"     "
:Disp ""
:Disp ""
:getKey(1)
:EndPrgm