RosettaCodeData/Task/Boolean-values/Commodore-BASIC/boolean-values.basic

12 lines
363 B
Plaintext

10 f%=("z"="a") : t%=not f% : rem capture a boolean evaluation
15 print chr$(147);chr$(14);
20 print "True is evaulated as:";t%
30 print "False is evaluated as:";f%
40 print:print "Any non-zero number will evaluate to"
50 print "true as shown in this example:":print
60 for i=-2 to 2
70 print i;" = ";
80 if i then print "True":goto 100
90 print "False"
100 next