RosettaCodeData/Task/Temperature-conversion/BASIC256/temperature-conversion.basi...

10 lines
191 B
Plaintext

do
print "Kelvin degrees (>=0): ";
input K
until K>=0
print "K = " + string(K)
print "C = " + string(K - 273.15)
print "F = " + string(K * 1.8 - 459.67)
print "R = " + string(K * 1.8)