Печать русского текста

//Чтение по целой строке
if (fopen ("spisok5.txt", "r")!=0)
{
string spisok;
tt:if (freadline(spisok)!=0)
{
sendlanguage("00000409", 0);
writeclipboard(spisok); // сохраняет в буфер строку

mousemove(1375,50);
mouse(LEFT);
keydown(CONTROL);
key('v');
keyup(CONTROL);
pause(500);

goto tt;
}
fclose();
}

if (fopen ("spisok5.txt", "r")!=0)
{
string spisok;
string F=utf8toansi (spisok);
tt:if (freadline(F)!=0)
{
writeclipboard(F); // сохраняет в буфер строку
messagebox(F);

goto tt;
}
fclose();
}

string spisok; // объявить переменную, в данном случае пустая строка
string F=utf8toansi (spisok); // перевести из utf8 в ansi, в данном случае переводить нечего, т. к. spisok пустая строка
tt:if (freadline(F)!=0) //прочитать строку
// т. е. в переменной F оригинальная строка из файла

string result;
string text = "^"текст в кавычках^"";
result = utf8toansi(text);
writeclipboard(result);
messagebox(result);