'Temperature conversion
DO
  INPUT "Kelvin degrees "; K
  IF K < 0 THEN EXIT DO
  C = K - 273.15
  F = K * 1.8 - 459.67
  R = K * 1.8
  PRINT K; " Kelvin is equivalent to"
  PRINT C; " degrees Celsius,"
  PRINT F; " degrees Fahrenheit,"
  PRINT R; " degrees Rankine."
LOOP
END