Anonymous user
Bitwise operations: Difference between revisions
no edit summary
(Added Neko) |
No edit summary |
||
Line 1,534:
NOT A =-3
</pre>
==={{header|IS-BASIC}}===
<lang IS-BASIC>100 LET A=10:LET B=12
110 PRINT A;"and";B;"=";A AND B
120 PRINT A;"band";B;"=";A BAND B
130 PRINT A;"or ";B;"=";A OR B
140 PRINT A;"bor";B;"=";A BOR B
150 PRINT A;"xor";B;"=";XOR(A,B)
160 PRINT " not";A;"=";NOT A
170 DEF XOR(A,B)=(A BOR B)-(A BAND B)/lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||