13 lines
290 B
Text
13 lines
290 B
Text
' FB 1.05.0 Win64
|
|
|
|
#Define ThenIf(a, b) If b Then a
|
|
#Define InvertAssign(a, b) b = a
|
|
|
|
Dim As Boolean needUmbrella = False, raining = True
|
|
ThenIf(needUmbrella = True, raining = True)
|
|
Print "needUmbrella = "; needUmbrella
|
|
|
|
Dim As Integer b = 0, a = 3
|
|
InvertAssign(a, b)
|
|
Print "b is"; b
|
|
Sleep
|