extern char allegro_error[ALLEGRO_ERROR_SIZE];
   void abort_on_error(const char *message)
   {
      if (screen != NULL)
         set_gfx_mode(GFX_TEXT, 0, 0, 0, 0);
   
      allegro_message("%s.\nLast Allegro error `%s'\n",
                      message, allegro_error);
      exit(-1);
   }
   ...
      if (some_allegro_function() == ERROR_CODE)
         abort_on_error("Error calling some function!");