Data update

Task/Extend-your-language/M2000-Interpreter/extend-your-language.m2000

@@ -21,7 +21,7 @@ ctrl=true
 for a=1 to 2
       for b=1 to 2
             Print "a=";a, "b=";b
-            if2 a=1, b=2, &ctrl : Part {
+            if2 a=1, b=1, &ctrl : Part {
                   print "both", a, b
             } as ctrl
             ifelse1 : Part {

Task/Extend-your-language/PascalABC.NET/extend-your-language.pas

@@ -0,0 +1,24 @@
+const
+  ifboth = 0;
+  else1 = 1;
+  else2 = 2;
+  else3 = 3;
+
+function operator **(x, y: boolean): integer; extensionmethod;
+begin
+  if x and y then result := ifboth
+  else
+    if x then result := else1
+  else
+    if y then result := else2
+  else result := else3
+end;
+
+begin
+  case (2 > 1) ** (3 < 2) of
+    ifboth: 'both are true'.println;
+    else1: 'the first is true'.println;
+    else2: 'the second is true'.println;
+    else3: 'both are false'.println;
+  end;
+end.