Версия 3.09 Доработка чтения и записи в файл. Работа в бинарном режиме

char preiemnik_a[999999];
int g=0;
if (fopen ("D:\calc.exe", "rb")!=0)
{
g=freadb(#preiemnik_a[0], 999999);
fclose();
}
messagebox (g);
int nn=0;
if (fopen ("D:\calc1.exe", "wb")!=0)
{
/*
r: if (nn<g)//Запись побайтово//Займет время..
{
fwriteb(preiemnik_a[nn]);
nn++;
goto r;
}
*/
fwriteb(#preiemnik_a[0], g);//Запись по указателю на масив char

fclose();
}

char preiemnik[999999];
int g=0;
if (fopen ("C:\Русс текст в юникоде.txt", "rb")!=0)
{
g=freadb(#preiemnik[0], 999999);
fclose();
}

string T="";
int i;
for (int n=2; n<g-1; n=n+2)
{
if (preiemnik[n]==0) goto er;
i=codhexi(#preiemnik[n], 2)-848;
if (i==-835){T=T+formatic(13)+formatic(10); n=n+2;}
else T=T+formatic(i);

}
er:;
messagebox (T);

fopen ("D:\*.exe", "rb");

win w;
char tx[9999];
initial();


//Команды
vvod("md c:\1111111111");
vvod("copy c:\windows\system32\calc.exe c:\1111111111\calc.exe");
////////.................................................



key("exit");
key(RETURN);

/////////////////////////////////////

function initial()
{
start("C:\WINDOWS\system32\cmd.exe");
a: w=window (-1, "ConsoleWindowClass", -1);if (w==0) {sleep(50); goto a;}
sendlanguage("00000409", w);
}

function vvod(string cmnda)
{
strcpy(#tx[0], cmnda);
int sz=size(#tx[0]);
int sh;
int n=0;
t: if (n<sz)
{
sh=0;
if (tx[n]==':' || tx[n]=='_'){keydown(SHIFT);sh=1;}//Тут символы надо для набора которых нажать шифт
key(tx[n]);
if (sh==1)keyup(SHIFT);
n++;
goto t;
}
key(RETURN);
}

char stperev[2];
stperev[0]=formatic(13);
stperev[1]=formatic(10);