BINIMP Example
10 INTEGER X,Y
20 X=12
30 Y=BINIMP(X,6) !Performs a bit by bit implication operation.
40 PRINT "Implication test"
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
