Code
ClrHome
Output(1,4,"CONVERTION"
Output(3,4,"CELSIUS,°C"
Output(5,4,"KELVIN,°K"
Output(7,3,"FAHRENHEIT,°F"
Output(2,1,"****************"
Pause
ClrHOme
Lbl Y
Menu("LES ECHELLES","°C>°K",A,"°C>°F",B,"°F>°C",C,"°F>°K",D,"°K>°F",E,"°K>°C",F,"QUITTER",Z
Lbl Z
Stop
ClrHome
End
Lbl A
Input"°C ?",C
C-273.15->K
Disp "POUR",C,"°C,",K,"°K"
Pause
Goto Y
Lbl B
Input"°C ?",C
9/5*C+32->F
Disp "POUR",C,"°C,",F,"°F"
Pause
Goto Y
Lbl C
Input"°F ?",F
5/9(F-32)->C
Disp "POUR",F,"°F,",C,"°C"
Pause
Goto Y
Lbl E
Input"°K ?",K
9/5K+273.15+32->F
Disp "POUR",K,"°K,",F,"°F"
Pause
Goto Y
Lbl F
Input"°K ?",K
K+273.15->C
Disp "POUR",K,"°K,",C,"°C"
Pause
Goto Y