TBPB

type TBPB = record

  recsiz: Word;

  clsiz: Word;

  clsizb: Word;

  rdlen: Word;

  fsiz: Word;

  fatrec: Word;

  datrec: Word;

  numcl: Word;

  bflags: Word;

end;