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

DO
   PRINT "Kelvin degrees (>=0): ";
   INPUT 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