D. JacKaL's Temperature Converter
Whether you're converting a temperature from C to F, F to C, C to K, K to C, F to K, or K to F,
my Temperature Converter program is just what you need!
This program is quick and easy to use. You begin by inputting a temperature (number only).
You then go to a menu which asks you what kind of temperature you wish to convert
from (C, F, or K). Another menu immediately comes up, asking you what kind of
temperature you wish to convert to (C, F, or K). Finally, you are given your newly
converted temperature. You can then choose whether or not you wish to convert another
temperature.
/START80/
/NAME=TEMPCON
:LBL 1
:CLRHOME
:DISP "ENTER TEMP."
:INPUT T
:LBL F
:CLRHOME
:DISP "FROM:","1:\deg\C","2:\deg\F","3:K" (this is the degree symbol)
:INPUT X
:INT X->X
:IF X<1
:GOTO F
:IF X>3
:GOTO F
:LBL T
:CLRHOME
:DISP "TO:","1:\deg\C","2:\deg\F","3:K"
:INPUT Y
:INT Y->Y
:IF Y<1
:GOTO T
:IF Y>3
:GOTO T
:CLRHOME
:IF X=Y
:T->N
:IF X=1
:THEN
:IF Y=2
:9T/5+32->N
:IF Y=3
:T+273.15->N
:END
:IF X=2
:THEN
:IF Y=1
:5(T-32)/9->N
:IF Y=3
:5(T-320/9+273.15)->N
:END
:IF X=3
:THEN
:IF Y=1
:T-273.15->N
:IF Y=2
:9(T-273.15)/5+32->N
:END
:LBL N
:DISP "NEW TEMP. IS",N
:PAUSE
:LBL Q
:CLRHOME
:DISP "ANOTHER?","1:YES","2:NO"
:INPUT Q
:IF Q=1
:GOTO 1
:IF Q-2
:GOTO Q
:CLRHOME
/STOP80/