>The cpzero.prg writes new codepage into the header of the table using LLFF.

              * Now poke the codepage id into byte 29
>              =FSEEK(m.fp_in,29)
>              =FWRITE(m.fp_in,CHR(m.cpbyte))

You can use LLFF to read the same byte.

Thank you Sergey.

Alex