' 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