home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows NT Super Tune-Up Kit
/
PIE-WindowsNTSuperTuneUpKit-1997.iso
/
CONVERTR
/
CACODE
/
INT2B.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-07-13
|
640b
|
33 lines
#include <extend.h>
CLIPPER _int2b(void) {
char retval[9] = "00000000"; // return string
int place = 7; // "current" place marker
int num = _parni(1); // integer to convert
int digits = _parni(2); // number of digits to return (1-8)
int r = num;
if (_parinfo(2) != 2)
digits = 8;
if ( (digits < 1) || (digits > 8) )
digits = 8;
while (num >= 2 ) {
r = num%2;
retval[place--] = (r == 1 ? '1':'0');
num /= 2;
}
retval[place--] = (num == 1 ? '1':'0');
_retc( retval+(8-digits) );
}