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

100 INPUT PROMPT "Kelvin degrees: ":K
110 PRINT K;TAB(10);"Kelvin is equivalent to"
120 PRINT K-273.15;TAB(10);"Degrees Celsius"
130 PRINT K*1.8-459.67;TAB(10);"Degrees Fahrenheit"
140 PRINT K*1.8;TAB(10);"Degrees Rankine"
September Morn Update 2019-09-12 10:33:56 -07:00			`100 INPUT PROMPT "Kelvin degrees: ":K`
			`110 PRINT K;TAB(10);"Kelvin is equivalent to"`
			`120 PRINT K-273.15;TAB(10);"Degrees Celsius"`
			`130 PRINT K*1.8-459.67;TAB(10);"Degrees Fahrenheit"`
			`140 PRINT K*1.8;TAB(10);"Degrees Rankine"`