Sync

Task/Boolean-values/Applesoft-BASIC/boolean-values.applesoft

@@ -0,0 +1,3 @@
+? 2 = 3
+? 2 = 2
+IF 7 THEN ?"HELLO"

Task/Boolean-values/COBOL/boolean-values-1.cobol

@@ -0,0 +1 @@
+       01  some-bool               PIC 1 BIT.

Task/Boolean-values/COBOL/boolean-values-2.cobol

@@ -0,0 +1,4 @@
+       01  X PIC 9.
+           88 X-Is-One        VALUE 1.
+           88 X-Is-Even       VALUE 0 2 4 6 8.
+           88 X-Larger-Than-5 VALUE 6 THRU 9.

Task/Boolean-values/COBOL/boolean-values-3.cobol

@@ -0,0 +1,28 @@
+       PROGRAM-ID. Condition-Example.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  Foo PIC 9 VALUE 5.
+           88  Is-Not-Zero VALUE 1 THRU 9
+               WHEN SET TO FALSE IS 0.
+
+       PROCEDURE DIVISION.
+       Main.
+           PERFORM Is-Foo-Zero
+
+           SET Is-Not-Zero TO FALSE
+           PERFORM Is-Foo-Zero
+
+           SET Is-Not-Zero TO TRUE
+           PERFORM Is-Foo-Zero
+
+           GOBACK
+           .
+
+       Is-Foo-Zero.
+           IF Is-Not-Zero
+               DISPLAY "Foo is not zero, it is " Foo "."
+           ELSE
+               DISPLAY "Foo is zero."
+           END-IF
+           .

Task/Boolean-values/Component-Pascal/boolean-values.component

@@ -0,0 +1,6 @@
+VAR
+   b,c: BOOLEAN;
+...
+   b := TRUE;
+   c := FALSE;
+...

Task/Boolean-values/Dylan/boolean-values.dylan

@@ -0,0 +1,2 @@
+#t // <boolean> true
+#f // <boolean> false

Task/Boolean-values/Excel/boolean-values-1.excel

@@ -0,0 +1 @@
+=AND(A1;B1)

Task/Boolean-values/Excel/boolean-values-2.excel

@@ -0,0 +1,4 @@
+0	0	FALSE
+0	1	FALSE
+1	0	FALSE
+1	1	TRUE