-            
-  /* Creamos buffer y memorias de video*/ 
-   
-       buffer = create_bitmap(SCREEN_W,SCREEN_H); 
-   
-       page1 = create_video_bitmap(SCREEN_W, SCREEN_H); 
-   
-       page2 = create_video_bitmap(SCREEN_W, SCREEN_H); 
-   
-        
-   
-       /* Comprobamos que se ha creado las memorias de video*/ 
-   
-       if ((!page1) || (!page2) || (!buffer))  
-   
-       { 
-   
-             set_gfx_mode(GFX_TEXT, 0, 0, 0, 0); 
-   
-             allegro_message("No se pudieron crear las paginas de memorian"); 
-   
-             return 1; 
-   
-       } 
-   
-        
-   
-       while(!key[KEY_ENTER]); 
-   
-        
-   
-       do 
-   
-       { 
-   
-             clear_bitmap(buffer); 
-   
-   
-   
-   
-   
-             s_mapa = load_bmp("Graficos/mapa1.bmp", NULL); 
-   
-             s_pj = load_bmp("Graficos/pj.bmp", NULL); 
-   
-             if(!s_mapa) 
-   
-             { 
-   
-                 set_gfx_mode(GFX_TEXT,0,0,0,0); 
-   
-                 allegro_message("Error. No se pudo leer la imagen"); 
-   
-                 return 1; 
-   
-             } 
-   
-             if(!s_pj) 
-   
-             { 
-   
-                 set_gfx_mode(GFX_TEXT,0,0,0,0); 
-   
-                 allegro_message("Error. No se pudo leer la imagen"); 
-   
-                 return 1; 
-   
-             } 
-   
-             draw_sprite(buffer, s_mapa, 0, 0); 
-   
-             draw_sprite(buffer, s_pj, pj_X*Cuadro, pj_Y*Cuadro); 
-   
-   
-   
-             show_video_bitmap(buffer); 
-   
-             if (buffer == page1) 
-   
-                         buffer = page2; 
-   
-             else 
-   
-                         buffer = page1; 
-   
-                          
-   
-   
-       }while(aux !=0); 
-   
-        
-   
-       destroy_bitmap(page1); 
-   
-       destroy_bitmap(page2); 
-   
-       destroy_bitmap(buffer); 
-