all tasks

Task/Test-a-function/REXX/test-a-function-1.rexx

@@ -0,0 +1,10 @@
+/* This REXX uses a lot of REXX keywords as variables. */
+
+signal=(interpret=value);value=(interpret<parse);do upper=value to value
+end;exit=upper*upper*upper*upper-value-upper;say=' ';return=say say say;
+with.=signal;do then=value to exit;pull='';do otherwise=upper to then-,
+value;select=otherwise-value;if.otherwise=with.otherwise+with.select;end
+if.value=value;if.then=value;do otherwise=value to exit-then;pull=pull,
+say''say;end;do otherwise=value to then;pull=pull center(if.otherwise,,
+length(return));end;say pull;do otherwise=value to exit;with.otherwise=,
+if.otherwise;end;end

Task/Test-a-function/REXX/test-a-function-2.rexx

@@ -0,0 +1,19 @@
+/*REXX program to show a secret message.  */
+z.=' ';z=12-25-2002;y=z;w=-y
+z.0=translate(right(time('c'),substr(z,4,z==y)))
+z.1=left(substr(format(z,2,z==y,,z==y.1),5),z==y)
+z.2=copies(right(symbol('z.'20),z==y),left(w,1))
+z.3=translate(right(date('w'),z==y))
+z.5=right(form(),z==y)
+z.6=x2c(d2x(x2d(c2x(substr(symbol(substr(z,2)),2,z==y)))-1))
+z.7=right(symbol('z.'||(z\==z)),z==y)
+z.8=substr(form(),(z==y)+left(w,1),z==y)
+z.9=reverse(left(form(),z==y))
+z.10=left(substr(form(),6),z==y)
+z.11=right(datatype(z),z==y)
+z.12=substr(symbol(left(z,z=z)),left(w,1),z==y)
+z.13=left(form(),z==y)
+  do z=-31 to 31;z.32=z.32||z.z;end
+say
+say z.32
+say