Кодировка DBF

[Malig]

Написал такую функцию:
function GetChartsetDBF($File)
{
$CodeCharset = array(
"1" => "Кодовая страница 437 DOS USA",
"2" => "Кодовая страница 850 DOS Multilang",
"38" => "Кодовая страница 866 DOS Russian",
"87" => "Кодовая страница 1251 Windows ANSI",
"200" => "Кодовая страница 1250 Windows EE",
"0" => "игнорируется"
);
$DBF = fopen($File, 'r');
$HeaderDBF = fread($DBF, 32);
fclose($DBF);
$arRet['Encode'] = ord(substr($HeaderDBF, 29, 1));
if(!array_key_exists($arRet['Encode'], $CodeCharset))
{
$arCodeCharset[$arRet['Encode']] = 'Номер драйвера языка: '.$arRet['Encode'];
}
$sd=$arCodeCharset[$arRet['Encode']];
echo "<pre>Кодировка: $sd</pre>";
}

Выдает "Кодировка игнорируется".... Слабо верится, ибо DBFNavigator.exe влёт определяет кодировку тестируемого файла. Верна ли функция, что не так?