September Morn Update

Task/Bitwise-operations/BASIC/bitwise-operations-4.basic

@@ -1,25 +1,8 @@
- 10 REM ABCDEFGHIJKLMNO
- 20 INPUT A
- 30 INPUT B
- 40 POKE 16514,A
- 50 POKE 16515,B
- 60 LET ADDR=16516
- 70 LET R$="3A8340473A8240A00006004FC9"
- 80 POKE ADDR,CODE R$*16+CODE R$(2)-476
- 90 LET R$=R$(3 TO )
-100 LET ADDR=ADDR+1
-110 IF R$<>"" THEN GOTO 80
-120 PRINT A;" AND ";B;" = ";USR 16516
-130 POKE 16523,176
-140 PRINT A;" OR ";B;" = ";USR 16516
-150 POKE 16523,168
-160 PRINT A;" XOR ";B;" = ";USR 16516
-170 POKE 16523,237
-180 POKE 16524,68
-190 PRINT "NOT ";A;" = ";USR 16516
-200 POKE 16523,203
-210 POKE 16524,39
-220 FOR I=1 TO B
-230 POKE 16514,USR 16516
-240 NEXT I
-250 PRINT A;" << ";B;" = ";PEEK 16514
+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)