home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 1
/
FishNMoreVol1.bin
/
more
/
code_examples
/
librar
/
shex3fil.c
< prev
next >
Wrap
Text File
|
1989-02-08
|
520b
|
25 lines
/*--------------------------------------*/
/* */
/* SHEX3FILE(X,X) */
/* */
/* Stores long integers in compact */
/* format. The first argument is the */
/* file descriptor and the second is the*/
/* number to be stored. */
/* */
/*--------------------------------------*/
# include "stdio.h"
void shex3file(fd,a)
long a;
FILE *fd;
{
int d,e;
d=a/65536L;
putc(scram(d),fd);
a-=d*65536L;
d=a/256L;
e=a-(d*256);
putc(scram(d),fd);
putc(scram(e),fd);
}