RosettaCodeData/Task/Boolean-values/PowerBASIC/boolean-values.powerbasic

6 lines
140 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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