home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib41b.dsk
/
BIT.BREAKER.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
345b
|
10 lines
10 REM BIT.BREAKER
20 REM THIS ROUTINE BREAKS A NUMBER UP INTO THE BINARY BITS
30 HOME : PRINT "INPUT A NUMBER";: INPUT N
40 IF N <0 OR N >255 THEN HOME : GOTO 30
50 FOR BT = 0 TO 7
60 V = (N - INT(N/2) *2): PRINT : PRINT "BIT ";BT;" IS ";V: REM TAKE EACH BIT VALUE
70 N = INT(N/2): REM REDUCE VALUE
80 NEXT
85 GET A$
90 GOTO 30