7 lines
216 B
Text
7 lines
216 B
Text
decl double k
|
|
while true
|
|
out "Temp. in Kelvin? " console
|
|
set k (in double console)
|
|
out "K\t" k endl "C\t" (- k 273.15) endl console
|
|
out "F\t" (- (* k 1.8) 459.67) endl "R\t" (* k 1.8) endl endl console
|
|
end while
|