Data commit

Task/Scope-modifiers/REXX/scope-modifiers-1.rexx

@@ -0,0 +1,23 @@
+/*REXX program to display scope modifiers  (for subroutines/functions). */
+a=1/4
+b=20
+c=3
+d=5
+call SSN_571  d**4
+
+       /* at this point,  A   is    defined and equal to      .25       */
+       /* at this point,  B   is    defined and equal to    40          */
+       /* at this point,  C   is    defined and equal to    27          */
+       /* at this point,  D   is    defined and equal to     5          */
+       /* at this point,  FF  isn't defined.                            */
+       /* at this point, EWE  is    defined and equal to 'female sheep' */
+       /* at this point,  G   is    defined and equal to   625          */
+exit                                   /*stick a fork in it, we're done.*/
+/*─────────────────────────────────────SSN_571 submarine, er, subroutine*/
+SSN_571: procedure expose b c ewe g;  parse arg g
+b   = b*2
+c   = c**3
+ff  = b+c
+ewe = 'female sheep'
+d   = 55555555
+return                     /*compliments to Jules Verne's Captain Nemo? */

Task/Scope-modifiers/REXX/scope-modifiers-2.rexx

@@ -0,0 +1,17 @@
+a=1
+b=2
+c=3
+Call p  /* a Procedure  */
+Say 'in m a b c x' a b c x
+Call s  /* a subroutine */
+Say 'in m a b c x' a b c x
+
+Exit
+p: Procedure Expose sigl b
+Say 'in p sigl a b c' sigl a b c
+Call s
+Return
+s:
+Say 'in s sigl a b c' sigl a b c
+x=4
+Return