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

' Temperature conversion
DO
  INPUT "Kelvin degrees (>=0): ", K
LOOP 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