To properly display this page you need a browser with JavaScript support.
HTBasic Help
×
Menu
Index
Search
Search
HTBasic Example Programs
BINEOR EXAMPLE
Previous page
Next page
Print version
(c) TransEra Corp, 2021
To properly display this page you need a browser with JavaScript support.
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