tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Scope-Function-names-and-labels/REXX/scope-function-names-and-labels.rexx
+++ b/Task/Scope-Function-names-and-labels/REXX/scope-function-names-and-labels.rexx
@ -0,0 +1,13 @@
+/*REXX program demonstrates use of labels and a CALL. */
+zz=4
+signal do_add
+ttt=sinD(30)   /*this REXX statement is never executed.*/
+
+do_add:        /*coming here from the SIGNAL statement.*/
+
+say 'calling the sub add.2.args'
+call add.2.args 1,7
+say 'sum=' result
+exit           /*stick a fork in it, 'cause we're done.*/
+
+add.2.args: procedure; parse arg x,y;    return x+y