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
Data update 2025-02-27 18:35:13 -05:00			`' Temperature conversion`
Initial data commit 2023-07-01 11:58:00 -04:00			`DO`
Data update 2025-02-27 18:35:13 -05:00			`INPUT "Kelvin degrees (>=0): ", K`
Initial data commit 2023-07-01 11:58:00 -04:00			`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`