external(VOID, "TextOut", "TextOutA", "Gdi32.dll");
external(VOID, "SetBkColor", "SetBkColor", "Gdi32.dll");
external(VOID, "SetTextColor", "SetTextColor", "Gdi32.dll");
external(INT, "GetDC", "GetDC", "User32.dll");
external(INT, "CreateFont", "CreateFontA", "Gdi32.dll");
external(INT, "SelectObject", "SelectObject", "Gdi32.dll");
external(INT, "DeleteObject", "DeleteObject", "Gdi32.dll");
external(INT, "ReleaseDC", "ReleaseDC", "User32.dll");


char a[30];
strcpy(#a[0], "Текст сообщения");

char b[30];
strcpy(#b[0], "Message Text");

int hdc;
int Font = CreateFont(72, 0, 0, 0, 400, 0, 0, 0, "ANSI_CHARSET", "OUT_CHARACTER_PRECIS",
"CLIP_DEFAULT_PRECIS", "PROOF_QUALITY", "FIXED_PITCH|FF_SWISS", "Arial"+formatic(0)+formatic(0));


loop()
{
hdc=GetDC(0);
SelectObject (hdc, Font);
SetBkColor(hdc, 65280);
SetTextColor(hdc, 255);
TextOut(hdc, 200, 100, address(#a[0]), size(#a[0]));
ReleaseDC(0, hdc);
DeleteObject(hdc);

hdc=GetDC(0);
SelectObject (hdc, Font);
SetBkColor(hdc, 255);
SetTextColor(hdc, 16700000);
TextOut(hdc, 200, 200, address(#b[0]), size(#b[0]));
ReleaseDC(0, hdc);
DeleteObject(hdc);

sleep(1);
}