package Win32.Utils is
subtype BYTE is Win32.BYTE;
subtype WORD is Win32.WORD;
subtype DWORD is Win32.DWORD;
function MAKEWORD (Low, High : BYTE) return WORD;
function MAKELONG (Low, High : WORD) return DWORD;
function LOWORD (L : DWORD) return WORD;
function HIWORD (L : DWORD) return WORD;
function LOBYTE (W : WORD) return BYTE;
function HIBYTE (W : WORD) return BYTE;
private -- Implementation-defined ...
end Win32.Utils;