RosettaCodeData/Task/Temperature-conversion/Yabasic/temperature-conversion.basic

repeat
	input "Kelvin degrees (>=0): " K
until K >= 0

print "K = " + str$(K)
print "C = " + str$(K - 273.15)
print "F = " + str$(K * 1.8 - 459.67)
print "R = " + str$(K * 1.8)
end