33 lines
623 B
Plaintext
33 lines
623 B
Plaintext
' 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
|