Версия 5.05 Запись данных по указанному адресу.

char h[512];
int adr=address(#h[27]);
writeaddress(353545, adr);

char h[512];
int adr=address(#h[127]);
writeaddress('a', adr);

external(VOID, "GetSaveFile", "GetSaveFileNameA", "COMDLG32.DLL");
char b[100];
strcpy(#b[0], "Все файлы такого типа..");

char a[76];
for (int n=0; n<76; n++)a[n]=0;

writeaddress(76, address(#a[0]));
writeaddress(0, address(#a[4]));
writeaddress(0, address(#a[8]));
writeaddress(address(#b[0]), address(#a[12]));
writeaddress(0, address(#a[16]));
writeaddress(1634928, address(#a[20]));
writeaddress(1000, address(#a[24]));
writeaddress(0, address(#a[28]));
writeaddress(0, address(#a[32]));
writeaddress(0, address(#a[36]));
writeaddress(6148, address(#a[40]));

GetSaveFile(address(#a[0]));

struct str //Создаем структуру
{ // задаем переменные данных структуры
char *name; //здесь будет храниться имя
char *surname; //фамилия
int day; //дата рождения
int month; //месяц рождения
int year; //год рождения
};
str per;

per.name="Василий";
per.surname="Лужков";
per.day=25;
per.month=7;
per.year=2002;

MessageBox (CString (per.name));
MessageBox (CString (per.surname));
CString f;
f.Format("%i", per.day); MessageBox (f);
f.Format("%i", per.month); MessageBox (f);
f.Format("%i", per.year); MessageBox (f);

//выделяем на имя фамилию по 64 байта
//числа занимают по 4 байта
char per[140];//Создаем структуру
for (int n=0; n<140; n++)per[n]=0;//Обнулим массив

strcpy(#per[0], "Василий");//здесь будет храниться имя
strcpy(#per[64], "Лужков");//фамилия
writeaddress(25, address(#per[128]));//дата рождения
writeaddress(7, address(#per[132]));//месяц рождения
writeaddress(2002, address(#per[136]));//год рождения

messagebox (format(#per[0]));
messagebox (format(#per[64]));
messagebox (addressi(address(#per[128])));
messagebox (addressi(address(#per[132])));
messagebox (addressi(address(#per[136])));