BIT Example10 INTEGER X
20 X=12
30 PRINT "The bits for ";X;":"
40 See(X)
50 END
60 SUB See(INTEGER X)
70 FOR Loop=15 TO 0 STEP -1
80 Temp=BIT(X,Loop)
90 PRINT Temp;
100 NEXT Loop
110 SUBEND
|