RosettaCodeData/Task/Temperature-conversion/Liberty-BASIC/temperature-conversion.basic

Do
   Input "Kelvin degrees (>=0): ";K
Loop Until (K >= 0)

Print "K = ";K
Print "C = ";(K - 273.15)
Print "F = ";(K * 1.8 - 459.67)
Print "R = ";(K * 1.8)
End