RosettaCodeData/Task/Boolean-values/I/boolean-values.i

22 lines
204 B
OpenEdge ABL

main
//Bits aka Booleans.
b $= bit()
b $= true
print(b)
b $= false
print(b)
//Non-zero values are true.
b $= bit(1)
print(b)
b $= -1
print(b)
//Zero values are false
b $= 0
print(b)
}