package Allegro.Time is
type Allegro_Timeout is private;
function Al_Get_Time return double;
function Al_Current_Time return double renames Al_Get_Time;
procedure Al_Init_Timeout
procedure Al_Rest