BINAND Example
10 INTEGER X,Y,Z
20 X=12
30 Y=6
40 Z=BINAND(X,Y) !Do a binary AND of X and Y.
50 PRINT X;" & ";Y
60 See(Z)
70 END
80 SUB See(INTEGER X)
90 FOR Loop=15 TO 0 STEP -1
100 Temp=BIT(X,Loop) !Print out the answer in bits.
110 PRINT Temp;
120 NEXT Loop
130 SUBEND
