1 Attachment(s)
[Calc] Fahrenheit <-> Celsius converter
Yeah, so this seems to be a popular program to make so i just whipped it up for fun. Here y'all go, report any bugs you see because I haven't tested this one out yet.
Code:
:"Temperature converter
ClrHome
0üáTCON(1)
Output(4,1," Temperature "
Output(5,1," Converter "
Output(8,1," By WMD54"
For(A,1,1000
End
ClrHome
Menu("I have...","Fahrenheit",1,"Celsius",2)
Lbl 1
1üáTCON(1)
Disp "Temperature in"
Input "Fahrenheit:",F
(5/9)(F-32)üC
Disp C," Degrees Celsius"
Pause
ClrHome
Goto 3
Lbl 2
2üáTCON(1)
Disp "Temperature in"
Input "Celsius:",C
(9/5)C+32üF
Disp F," Degrees"," Fahrenheit"
Pause
ClrHome
Goto 3
Lbl 3
Menu("Again?","Yes",4,"Other unit",5,"No",6)
Lbl 4
If áTCON(1)=1
Then
ClrHome
Goto 1
End
If áTCON(1)=2
Then
ClrHome
Goto 2
End
Lbl 5
If áTCON(1)=1
Then
ClrHome
Goto 2
End
If áTCON(1)=2
Then
ClrHome
Goto 1
End
Lbl 6
ClrHome
Stop
