home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / BIT.ASSEMBLER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  623b  |  14 lines
  1. 10  REM  PROGRAM BIT.ASSEMBLER
  2. 20  REM  THIS ROUTINE BREAKS A NUMBER UP INTO THE BINARY BITS
  3. 30  REM  AND REASSEMBLES THEM
  4. 40  REM  IT IS USED TO CHANGE INDIVIDUAL BITS OF A BINARY NUMBER
  5. 50  HOME : PRINT "INPUT A NUMBER ";: INPUT N
  6. 60  IF N <0  OR N >255  THEN  HOME : GOTO 50
  7. 70  FOR BT = 0 TO 7
  8. 80 D(BT) = (N - INT(N/2) *2): PRINT : PRINT "BIT ";BT;" IS ";D(BT): REM  TAKE EACH BIT VALUE
  9. 90 N =  INT(N/2): REM  REDUCE VALUE
  10. 100  NEXT 
  11. 110  REM  REASSEMBLE THE BITS INTO DECIMAL VALUE
  12. 120 V = D(0) +2 *D(1) +4 *D(2) +8 *D(3) +16 *D(4) +32 *D(5) +64 *D(6) +128 *D(7)
  13. 130  PRINT : PRINT "THE VALUE ENTERED WAS ";V
  14. 140  END