Создание файла в DOS или в Windows кодровке

[Storkich]

Должно побыстрее работать, но не сравнивал

Init()
  ASCIIstr:=' АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№#';
  ANSIstr:= ' ЊЌЋЏђ‘’“”•–—˜™љ›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ';
  ANSIstr[66]:=185;
  ANSIstr[67]:=160;

DosWin(New : Text[1024]) : Text[1024]
EXIT(CONVERTSTR(New,ASCIIstr,ANSIstr));