Data update

Task/Temperature-conversion/Chipmunk-Basic/temperature-conversion.basic

@@ -0,0 +1,13 @@
+10 CLS : REM  10 HOME for Applesoft BASIC : DELETE for Minimal BASIC
+20 PRINT "Kelvin Degrees ";
+30 INPUT K
+40 IF K <= 0 THEN 130
+50 LET C = K-273.15
+60 LET F = K*1.8-459.67
+70 LET R = K*1.8
+80 PRINT K;" Kelvin is equivalent to"
+90 PRINT C;" Degrees Celsius"
+100 PRINT F;" Degrees Fahrenheit"
+110 PRINT R;" Degrees Rankine"
+120 GOTO 20
+130 END

Task/Temperature-conversion/Insitux/temperature-conversion.insitux

@@ -0,0 +1,11 @@
+(var K->C (+ -273.15))
+(var K->R (* 1.8))
+(var K->F (comp K->R (+ -459.67)))
+
+(function kelvin-conversions K
+  (let [C R F] ((juxt K->C K->R K->F) K)
+       [C R F] (map @(round 2) [C R F]))
+  (print K " K / " C " °C / " R " °R / " F " °F"))
+
+(kelvin-conversions 21.0)
+;prints "21 K / -252.15 °C / 37.8 °R / -421.87 °F"

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

@@ -0,0 +1,11 @@
+10 PRINT "Kelvin Degrees ";
+20 INPUT ""; K
+30 IF K <= 0 THEN END
+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 10