Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
11
Task/Boolean-values/Commodore-BASIC/boolean-values.basic
Normal file
11
Task/Boolean-values/Commodore-BASIC/boolean-values.basic
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue