write(ofil, &header, sizeof header);
lseek(ofil, ( long ) ( HEAD_BYTES - sizeof ( short ) ) , 0);
i = ( ( unsigned ) lc) - HEAD_BYTES;
write(ofil, &header, sizeof header);
lseek(ofil, ( long ) ( HEAD_BYTES - sizeof ( short ) ) , 0);
i = ( ( unsigned ) lc) - HEAD_BYTES;