Версия 5.79 Кодировать из DOS 866 в WINDOWS 1251

string V=d866tow1251 ("Text DOS-866 ‚®в нв®в ⥪бв");
messagebox (V);

string V=d866tow1251 ("Text DOS-866 ‚®в нв®в ⥪бв");
messagebox (V);
V=w1251tod866 (V);
messagebox (V);

if (createpipeprocess("C:\Windows\System32\cmd.exe -i"))
{
int C;
string S;
sendpipe("help^n");//Отправляем команду help
waitpipe();//Ждем пока отработает и появятся данные
sleep(500);//для надежности
C=getpipe(#S);//Читаем
//messagebox (C);
messagebox (S);
S=d866tow1251 (S);//перекодирует текст из DOS 866 в WINDOWS 1251
messagebox (S);
closepipeprocess();//Завершим процесс и закрываем канал
}

string V=d866tow1251 ("Text DOS-866 ‚®в нв®в ⥪бв");
messagebox (V);
V=w1251tod866 (V);
messagebox (V);