BINIOR Example10 INTEGER X,Y
20 X=12
30 Y=BINIOR(X,6) !Performs an OR operation of 12 and 6.
40 PRINT "12 OR 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
|