вопрос по external и др

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824
#define WS_BORDER 8388608
#define WS_HSCROLL 1048576
#define WS_VSCROLL 2097152

#define ES_UPPERCASE 8
#define ES_AUTOHSCROLL 128
#define ES_MULTILINE 4
#define ES_WANTRETURN 4096
#define ES_READONLY 2048
#define ES_AUTOVSCROLL 64

#define EM_SETRECT 179
#define EM_SETSEL 177
#define EM_SCROLLCARET 183

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "GetFocus", "GetFocus", "User32.dll" );
external(INT, "SetFocus", "SetFocus", "User32.dll" );

int edit1;
int rect[4]={5, 150, 190, 170}; // прямоугольник, в котором можно вводить текст
char text[999999];

createdialog(0);
showdialog(0, "Диалог", 100, 100, 300, 300, 1, 1);

enabletimer(0);
loop()sleep(1);

function getmessage(0, WM_CREATE)
{
edit1=CreateWindow(0, "EDIT", "", WS_VSCROLL | WS_HSCROLL | ES_MULTILINE | ES_WANTRETURN | WS_VISIBLE | WS_CHILD | WS_BORDER | ES_UPPERCASE, 10, 10, 200, 200, gethwnd(0), 0, 0, 0);
sendmessage(EM_SETRECT, 0, address(#rect[0]), formatiw(edit1));
SetFocus(edit1);
}


CREATE_TIMER(0, 20)
{
if(getkeystate(RETURN) && GetFocus()==edit1) // если нажат Enter и курсор находится в edit
{
while(getkeystate(RETURN))sleep(10); // ждать пока Enter нажат

// если верхняя граница прямоугольника больше 20, то уменьшаем её
if(rect[1]>20){rect[1]=rect[1]-16; sendmessage(EM_SETRECT, 0, address(#rect[0]), formatiw(edit1));}
else sendmessage(EM_SETRECT, 0, 0, formatiw(edit1)); // иначе убираем прямоугольник, в котором можно вводить текст

sendmessage(EM_SETSEL, size(#text[0]), size(#text[0]), formatiw(edit1)); // перевести курсор в конец текста
sendmessage(EM_SCROLLCARET, 0, 0, formatiw(edit1)); // скролл к концу текста
}
}