`CONVTEMP.TIN - lrb - 8/23/2010 9/2/2010'

`C=K-273.15'
`K=C+273=273+5*(F-32)/9'
`32+(K-273)*9/5=F'

A :"c->f enter 1, f->c enter 2"
:"f->k enter 3, k->f enter 4"
:""

x=?

{x==1}->C
{x==2}->F
{x==3}->K
{x==4}->J
->A

C ;"degrees C"
c=?
`F=9*C/5+32'
f=9*c
;32+f/5
!

F ;"degrees F"
f=?
`C=5*(F-32)/9'
c=5*f-32
;c/9
!

K ;"degrees F"
`K=C+273=273+5*(F-32)/9'
f=?
f=5*f-32
;273+f/9
!

J ;"degrees K"
`F=32+(K-273)*9/5'
k=?
k=9*k-273
;32+k/5
!