This is a very old bit of code which gives the basic idea.iwrite and iread are just buffering routinesasfar as i remembe
r
void compress(void)
{
unsigned int hr,indexz,zero_counter=0;

for(indexz=0;indexz<=hash_size-1;indexz++){
hr=*(p+indexz);
if(hr==0){++zero_counter;}else{ if(zero_counter!=0){iwrite(zero_counter);zero_counter=0;
iwrite(hr+hash_size);}else{iwrite(hr+hash_size);}}}

iwrite(zero_counter);
}


void explode(void){

unsigned int hr,indexz=0;
bit pos_err=0;

while (indexz<=hash_size-1){
if(exp_err){hr=hash_size;}else{hr=read();}
if(hr>hash_size){pos_err=0;
*(p+indexz)=((unsigned char)(hr-hash_size));++indexz;}
else{if(pos_err){error_code=exp_err;}else{ pos_err=1;}
while(hr){*(p+indexz)=0;--hr;++indexz;}}
}

}