BINCMP Example10 INTEGER X,Y
20 X=13
30 Y=BINCMP(X) !Binary Complement of X.
40 PRINT "Compliment of X"
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
|