BINEOR Example10 INTEGER X,Y
20 X=12
30 Y=BINEOR(X,6) !Binary EXOR of X and 6.
40 PRINT "X EXOR 6"
50 See(Y)
60 END
70 SUB See(INTEGER X)
80 FOR Loop=15 TO 0 STEP -1
90 Temp=BIT(X,Loop)
100 PRINT Temp;
110 NEXT Loop
120 SUBEND
|