Just another update

Task/Conditional-structures/REXX/conditional-structures-1.rexx

@@ -1,22 +1,18 @@
-if  y  then x=6                        /* Y must be either   0   or   1 */
+if  y  then @=6                        /* Y  must be either   0  or  1  */
 
+if t**2>u  then x=y                    /*simple  IF  with  THEN & ELSE. */
+           else x=-y
 
-if t**2>u then x= y
-          else x=-y
+if t**2>u  then do j=1  for 10;  say prime(j);  end    /*THEN  DO  loop.*/
+           else x=-y                                   /*simple  ELSE.  */
 
+if z>w+4  then do                                      /*THEN  DO group.*/
+               z=abs(z)
+               say 'z='z
+               end
+          else do;  z=0;  say 'failed.';  end          /*ELSE  DO group.*/
 
-if t**2>u then do j=1 to 10; say prime(j); end
-          else x=-y
-
-
-if z>w+4 then do
-              z=abs(z)
-              say 'z='z
-              end
-         else do;  z=0;  say 'failed.';  end
-
-
-if x>y & c*d<sqrt(pz) |,
-   substr(abc,4,1)=='@' then if z=0 then call punt
-                                    else nop
-                        else if z<0 then z=-y
+if x>y  &  c*d<sqrt(pz) |,             /*this statement is continued [,]*/
+   substr(abc,4,1)=='~'  then  if  z=0  then call punt
+                                        else nop       /*NOP pairs up IF*/
+                         else  if  z<0  then z=-y      /*alignment helps*/

Task/Conditional-structures/REXX/conditional-structures-2.rexx

@@ -1,13 +1,24 @@
-                     /*the  WHEN  conditional operators are the same as */
-                     /*the   IF   conditional operators.                */
-  select
-  when t<0       then z=abs(u)
-  when t=0 & y=0 then z=0
-  when t>0       then do
+                      /*the  WHEN  conditional operators are the same as*/
+                      /*the   IF   conditional operators.               */
+ select
+ when t<0        then z=abs(u)
+ when t=0 & y=0  then z=0
+ when t>0        then do
                       y=sqrt(z)
                       z=u**2
                       end
 
-                /*if control reaches this point  and  none of the WHENs */
-                /*were satisfied,  a SYNTAX condition is raised (error).*/
-  end   /*select*/
+                      /*if control reaches here & none of the WHENs were*/
+                      /*satisfiied, a SYNTAX (error) condition is raised*/
+ end  /*1st select*/
+
+     select
+     when a=='angel'              then many='host'
+     when a=='ass' | a=='donkey'  then many='pace'
+     when a=='crocodile'          then many='bask'
+     when a=='crow'               then many='murder'
+     when a=='lark'               then many='ascension'
+     when a=='quail'              then many='bevy'
+     when a=='wolf'               then many='pack'
+     otherwise                         many='?'
+     end  /*2nd select*/          /* [↑]  uses OTHERWISE as a catch-all.*/

Task/Conditional-structures/REXX/conditional-structures-3.rexx

@@ -8,7 +8,7 @@
      when g=='wolf'               then many='pack'
      otherwise  say
                 say '*** error! ***'
-                say g "isn't one of the known thingys."
+                say g  "isn't one of the known thingys."
                 say
                 exit 13
      end   /*select*/