HTBasic Help
×
Menu
Index

BINEOR Example

10    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