Data commit

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

@@ -0,0 +1,11 @@
+10 REM TRANSLATION OF AWK VERSION
+20 INPUT "KELVIN DEGREES",K
+30 IF K <= 0 THEN END: REM A VALUE OF ZERO OR LESS WILL END PROGRAM
+40 LET C = K - 273.15
+50 LET F = K * 1.8 - 459.67
+60 LET R = K * 1.8
+70 PRINT K; " KELVIN IS EQUIVALENT TO"
+80 PRINT C; " DEGREES CELSIUS"
+90 PRINT F; " DEGREES FAHRENHEIT"
+100 PRINT R; " DEGREES RANKINE"
+110 GOTO 20