Data update

Task/Temperature-conversion/ANSI-BASIC/temperature-conversion.basic

@@ -0,0 +1,13 @@
+100 REM Temperature conversion
+110 DO
+120    INPUT PROMPT "Kelvin degrees ":K
+130    IF K < 0 THEN EXIT DO
+140    LET C = K - 273.15
+150    LET F = K * 1.8 - 459.67
+160    LET R = K * 1.8
+170    PRINT K; "Kelvin is equivalent to"
+180    PRINT C; "degrees Celsius,"
+190    PRINT F; "degrees Fahrenheit,"
+200    PRINT R; "degrees Rankine."
+210 LOOP
+220 END