type A_Close_Button_Procedure is access procedure;
type A_Integer is access all Integer;
type CPU_Family_Type is private;
type CPU_Model_Type is private;
subtype CPU_Capabilities_Type is Unsigned_32;
type OS_Type_Type is private;
CPU_ID : constant CPU_Capabilities_Type;
CPU_FPU : constant CPU_Capabilities_Type;
CPU_MMX : constant CPU_Capabilities_Type;
CPU_MMXPLUS : constant CPU_Capabilities_Type;
CPU_SSE : constant CPU_Capabilities_Type;
CPU_SSE2 : constant CPU_Capabilities_Type;
CPU_3DNOW : constant CPU_Capabilities_Type;
CPU_ENH3DNOW : constant CPU_Capabilities_Type;
CPU_CMOV : constant CPU_Capabilities_Type;
CPU_AMD64 : constant CPU_Capabilities_Type;
CPU_IA64 : constant CPU_Capabilities_Type;
CPU_SSE3 : constant CPU_Capabilities_Type;
CPU_FAMILY_UNKNOWN : constant CPU_Family_Type;
CPU_FAMILY_I386 : constant CPU_Family_Type;
CPU_FAMILY_I486 : constant CPU_Family_Type;
CPU_FAMILY_I586 : constant CPU_Family_Type;
CPU_FAMILY_I686 : constant CPU_Family_Type;
CPU_FAMILY_ITANIUM : constant CPU_Family_Type;
CPU_FAMILY_EXTENDED : constant CPU_Family_Type;
CPU_MODEL_I486DX : constant CPU_Model_Type;
CPU_MODEL_I486DX50 : constant CPU_Model_Type;
CPU_MODEL_I486SX : constant CPU_Model_Type;
CPU_MODEL_I487SX : constant CPU_Model_Type;
CPU_MODEL_I486SL : constant CPU_Model_Type;
CPU_MODEL_I486SX2 : constant CPU_Model_Type;
CPU_MODEL_I486DX2 : constant CPU_Model_Type;
CPU_MODEL_I486DX4 : constant CPU_Model_Type;
CPU_MODEL_PENTIUM : constant CPU_Model_Type;
CPU_MODEL_PENTIUMP54C : constant CPU_Model_Type;
CPU_MODEL_PENTIUMOVERDRIVE : constant CPU_Model_Type;
CPU_MODEL_PENTIUMOVERDRIVEDX4 : constant CPU_Model_Type;
CPU_MODEL_CYRIX : constant CPU_Model_Type;
CPU_MODEL_UNKNOWN : constant CPU_Model_Type;
CPU_MODEL_K5 : constant CPU_Model_Type;
CPU_MODEL_K6 : constant CPU_Model_Type;
CPU_MODEL_PENTIUMPROA : constant CPU_Model_Type;
CPU_MODEL_PENTIUMPRO : constant CPU_Model_Type;
CPU_MODEL_PENTIUMIIKLAMATH : constant CPU_Model_Type;
CPU_MODEL_PENTIUMII : constant CPU_Model_Type;
CPU_MODEL_CELERON : constant CPU_Model_Type;
CPU_MODEL_PENTIUMIIIKATMAI : constant CPU_Model_Type;
CPU_MODEL_PENTIUMIIICOPPERMINE : constant CPU_Model_Type;
CPU_MODEL_PENTIUMIIIMOBILE : constant CPU_Model_Type;
CPU_MODEL_ATHLON : constant CPU_Model_Type;
CPU_MODEL_DURON : constant CPU_Model_Type;
CPU_MODEL_PENTIUMIV : constant CPU_Model_Type;
CPU_MODEL_XEON : constant CPU_Model_Type;
CPU_MODEL_ATHLON64 : constant CPU_Model_Type;
CPU_MODEL_OPTERON : constant CPU_Model_Type;
OSTYPE_UNKNOWN : constant OS_Type_Type;
OSTYPE_WIN3 : constant OS_Type_Type;
OSTYPE_WIN95 : constant OS_Type_Type;
OSTYPE_WIN98 : constant OS_Type_Type;
OSTYPE_WINME : constant OS_Type_Type;
OSTYPE_WINNT : constant OS_Type_Type;
OSTYPE_WIN2000 : constant OS_Type_Type;
OSTYPE_WINXP : constant OS_Type_Type;
OSTYPE_WIN2003 : constant OS_Type_Type;
OSTYPE_WINVISTA : constant OS_Type_Type;
OSTYPE_OS2 : constant OS_Type_Type;
OSTYPE_WARP : constant OS_Type_Type;
OSTYPE_DOSEMU : constant OS_Type_Type;
OSTYPE_OPENDOS : constant OS_Type_Type;
OSTYPE_LINUX : constant OS_Type_Type;
OSTYPE_SUNOS : constant OS_Type_Type;
OSTYPE_FREEBSD : constant OS_Type_Type;
OSTYPE_NETBSD : constant OS_Type_Type;
OSTYPE_OPENBSD : constant OS_Type_Type;
OSTYPE_IRIX : constant OS_Type_Type;
OSTYPE_DARWIN : constant OS_Type_Type;
OSTYPE_QNX : constant OS_Type_Type;
OSTYPE_UNIX : constant OS_Type_Type;
OSTYPE_BEOS : constant OS_Type_Type;
OSTYPE_MACOS : constant OS_Type_Type;
OSTYPE_MACOSX : constant OS_Type_Type;
procedure Allegro_Exit;
function Allegro_Error return String;
function Allegro_Id return String;
function Allegro_Initialize return Integer;
function Allegro_Initialize_Cmdline return Integer;
function CPU_Capabilities return CPU_Capabilities_Type;
function CPU_Family return CPU_Family_Type;
function CPU_Model return CPU_Model_Type;
function CPU_Vendor return String;
function Desktop_Color_Depth return Natural;
function Is_OS_Multitasking return Boolean;
function OS_Type return OS_Type_Type;
function OS_Version return Integer;
function OS_Revision return Integer;