Data update

Task/Scope-Function-names-and-labels/REXX/scope-function-names-and-labels.rexx

@@ -1,15 +1,34 @@
-/*REXX program  demonstrates  the  use of    labels    and  also a   CALL   statement.  */
-blarney = -0                                     /*just a blarney & balderdash statement*/
-signal do_add                                    /*transfer program control to a  label.*/
-ttt = sinD(30)                                   /*this REXX statement is never executed*/
-                                                 /* [↓]   Note the case doesn't matter. */
-DO_Add:                                          /*coming here from the SIGNAL statement*/
+-- 24 Aug 2025
+Main:
+parse version version
+say 'SCOPE FUNCTION NAMES AND LABELS'
+say version
+say
+call Routine
+say Function(3)
+signal Goto
+say 'This line is not exected!'
 
-say 'calling the sub:  add.2.args'
-call add.2.args 1, 7                             /*pass two arguments:   1   and a   7  */
-say 'sum =' result                               /*display the result from the function.*/
-exit                                             /*stick a fork in it,  we're all done. */
-/*──────────────────────────────────────────────────────────────────────────────────────*/
-add.2.args: procedure;  parse arg x,y;   return x+y       /*first come, first served ···*/
-add.2.args: say 'Whoa Nelly!! Has the universe run amok?' /*didactic, but never executed*/
-add.2.args: return  arg(1) + arg(2)                       /*concise,   "    "       "   */
+Continue:
+say 'Program ends'
+exit
+
+Routine:
+say 'Routine invoked'
+say 2*2
+return
+
+Function:
+arg x
+say 'Function invoked'
+return x*x
+
+Function:
+arg x
+say 'This label is not executed!'
+return x*x
+
+Goto:
+say 'Goto invoked'
+say 4*4
+signal Continue