14 lines
428 B
QBasic
14 lines
428 B
QBasic
5 print not 1, not 0
|
|
10 print 1 and 1, 1 and 0, 0 and 1, 0 and 0
|
|
13 print 1 or 1, 1 or 0, 0 or 1, 0 or 0
|
|
15 print 1 xor 1, 1 xor 0, 0 xor 1, 0 xor 0
|
|
20 print 1 eqv 1, 1 eqv 0, 0 eqv 1, 0 eqv 0
|
|
30 print 1 imp 1, 1 imp 0, 0 imp 1, 0 imp 0
|
|
40 print 63 and 16, "=16?"
|
|
50 print 15 and 14, "=14?"
|
|
60 print -1 and 8, "=8?"
|
|
70 print 4 or 2, "=6?"
|
|
80 print 10 or 10 , "is 10?"
|
|
90 print -1 or -2 "=-1?"
|
|
100 print not 13
|
|
110 print -(13+1)
|