Data update

Task/Assertions/REXX/assertions-2.rexx

@@ -1,15 +1,14 @@
-/*REXX program implements a simple  ASSERT  function;  the expression can be compound.  */
-  a =  1                                         /*assign a value to the   A   variable.*/
-  b =  -2                                        /*   "   "   "    "  "    B       "    */
-gee =  7.00                                      /*   "   "   "    "  "   GEE      "    */
-zee = 26                                         /*   "   "   "    "  "   ZEE      "    */
+-- 8 Sep 2025
+include Setting
 
-call assert (a = 1)
-call assert (b > 0)
-call assert (gee = 7)
-call assert (zee = a  &  zee>b)
-exit                                             /*stick a fork in it,  we're all done. */
-/*──────────────────────────────────────────────────────────────────────────────────────*/
-assert: if arg(1)=1  then return;    parse value sourceline(sigl)  with x;  say
-        say '===== ASSERT failure in REXX line' sigl", the statement is:";  say '====='  x
-        say;       return
+say 'ASSERTIONS'
+say version
+say
+a=41
+call Assert a = 41
+say 'This line is executed'
+call Assert a = 42,'The Answer to the Ultimate Question must be Forty-Two'
+say 'This line is not executed'
+exit
+
+include Math