HTBasic Help
×
Menu
Index
Search
 
   
   
   
 
  (c) TransEra Corp, 2021

BINCMP Example

10    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