Data update

Task/Non-decimal-radices-Convert/Fortran/non-decimal-radices-convert.f

@@ -18,10 +18,11 @@ MODULE Conversion
     END DO
   END FUNCTION ToDecimal
 
-  FUNCTION ToBase(base, number)
+  FUNCTION ToBase(base, number_in)
     CHARACTER(31) :: ToBase
-    INTEGER :: base, number, i, rem
+    INTEGER :: base, number_in, number, i, rem
 
+    number = number_in
     ToBase = "                               "
     DO i = 31, 1, -1
       IF(number < base) THEN

Task/Non-decimal-radices-Convert/Pluto/non-decimal-radices-convert.pluto

@@ -0,0 +1,7 @@
+local fmt = require "fmt"
+
+print(fmt.itoa(26, 16))
+print(tonumber("1a", 16))
+print()
+print(fmt.itoa(9124, 36))
+print(tonumber("71g", 36))

Task/Non-decimal-radices-Convert/REXX/non-decimal-radices-convert.rexx

@@ -1,15 +1,15 @@
+-- 28 Jul 2025
 include Settings
-
-say 'NON-DECIMAL RADICES - 11 Mar 2025'
-say version
-say
 arg xx
 if xx = '' then
    xx = 255
+
+say 'NON-DECIMAL RADICES CONVERT'
+say version
+say
 do n = 2 to 36
-   say xx 'decimal =' Basenn(xx,n) 'base' n '=' Base10(Basenn(xx,n),n) 'decimal'
+   say xx 'decimal =' BaseNN(xx,n) 'base' n '=' Base10(BaseNN(xx,n),n) 'decimal'
 end
 exit
 
-include Functions
-include Abend
+include Math