Data update

Task/Arrays/REXX/arrays.rexx

@@ -1,56 +1,59 @@
--- 1 Jun 2025
+-- 7 Aug 2025
 include Settings
 
 say 'ARRAYS'
 say version
 say
-say 'A simple array...'
-do i = 1 to 100
+if Pos('Regina',version) > 0 then
+   call Library
+say 'Simple array...'
+do i = 1 to 10
    a.i=i*i
 end
-say 'Square of' 5 'is' a.5
-say 'Square of' 55 'is' a.55
+say 'Square of' 3 'is' a.3
+say 'Square of' 7 'is' a.7
 say
 say 'Mimic indexing...'
-say 'Square of' 5 'is' a(5)
-say 'Square of' 55 'is' a(55)
+say 'Square of' 3 'is' a(3)
+say 'Square of' 7 'is' a(7)
 say
 say 'A default value...'
 b. = 'Out of range'
-do i = 1 to 100
+do i = 1 to 10
    b.i=1/i
 end
-say 'Inverse of' 5 'is' b.5
-say 'Inverse of' 55 'is' b.55
-say 'Inverse of' 555 'is' b.555
+say 'Inverse of' 3 'is' b.3
+say 'Inverse of' 7 'is' b.7
+say 'Inverse of' 11 'is' b.11
 say
-say 'An other index range...'
-do i = -100 to 100
+say 'Index zero...'
+do i = 1 to 10
    c.i=i*i*i
 end
-j=-55; say 'Cube of' j 'is' c.j
-j=-5; say 'Cube of' j 'is' c.j
-j=5; say 'Cube of' j 'is' c.j
-j=55; say 'Cube of' j 'is' c.j
+c.0=10
+j=0; say 'Number of rows is' c.j
+j=3; say 'Cube of' j 'is' c.j
+j=7; say 'Cube of' j 'is' c.j
 say
-say 'A sparse array...'
-d.='Not calculated'
-do i = 2 by 2 to 100
+say 'Sparse array...'
+d.=0
+do i = 3 by 3 to 9
    d.i=-i
 end
-say 'Negative of' 55 'is' d.55
-say 'Negative of' 56 'is' d.56
+say 'Negative of' 3 'is' d.3
+say 'Negative of' 7 'is' d.7
 say
-say 'Special indices...'
-e.cat='civet'; say 'e.cat =' e.cat
-a1='dog'; e.a1='pitbull'
-a2=a1; say 'e.'a2 '=' e.a2
-a1='x.y.z'; e.a1='periods'
-a2=a1; say 'e.'a2 '=' e.a2
-a1='x y z'; e.a1='spaces'
-a2=a1; say 'e.'a2 '=' e.a2
-a1='└┴┬├─┼'; e.a1='specials'
-a2=a1; say 'e.'a2 '=' e.a2
+say 'More dimensions...'
+e.=0
+do i = 1 to 3
+  do j = 1 to 3
+     e.i.j=i*j
+  end
+end
+say '1x2 is' e.1.2
+say '3x2 is' e.3.2
+say
+call SysDumpVariables
 say
 say 'Element has no value...'
 signal off novalue
@@ -64,4 +67,11 @@ procedure expose a.
 arg xx
 return a.xx
 
+Library:
+say 'Library...'
+call RxFuncAdd 'SysLoadFuncs','RegUtil','SysLoadFuncs'
+call SysLoadFuncs
+say
+return
+
 include Abend