RosettaCodeData/Task/Boolean-values/PowerBASIC/boolean-values.powerbasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
140 B
Text

DIM x AS LONG
x = ISTRUE(1 = 1) ' returns -1
x = ISTRUE(1 = 0) ' returns 0
x = ISFALSE(1 = 1) ' returns 0
x = ISFALSE(1 = 0) ' returns -1