Data commit

Task/Extend-your-language/FreeBASIC/extend-your-language.basic

@@ -0,0 +1,32 @@
+' FB 1.05.0 Win64
+
+#Macro If2(condition1, condition2)
+#Define Else1 ElseIf CBool(condition1) Then
+#Define Else2 ElseIf CBool(condition2) Then
+If CBool(condition1) AndAlso CBool(condition2) Then
+#Endmacro
+
+Sub test(a As Integer, b As Integer)
+  If2(a > 0, b > 0)
+    print "both positive"
+  Else1
+    print "first positive"
+  Else2
+    print "second positive"
+  Else
+    print "neither positive"
+  End If
+End Sub
+
+Dim As Integer a, b
+Print "a = 1, b = 1 => ";
+test(1, 1)
+Print "a = 1, b = 0 => ";
+test(1, 0)
+Print "a = 0, b = 1 => ";
+test(0, 1)
+Print "a = 0, b = 0 => ";
+test(0, 0)
+Print
+Print "Press any key to quit"
+Sleep