Dim As Single Celsius, Kelvin, Fahrenheit, Rankine

Kelvin = -300
While Kelvin = -300
    Input "Please type Kelvin temperature...or -300 to quit ", Kelvin
    If Kelvin = -300 Then
        End
    Else

        Celsius = Kelvin - 273.15
        Fahrenheit = ((9 / 5) * Celsius) + 32
        Rankine = Fahrenheit + 459.67
    End If
    Print " Celsius", "Fahrenheit", "Kelvin", "Rankine  "
    Print Celsius, Fahrenheit, Kelvin, Rankine
    Kelvin = -300
Wend