[allegro] pisze pisze i nie pisze po ekranie :)

#include <allegro.h>

/////////////////Globalne zmienne/////////////////////
int model[ 45 ][ 10 ]; //tablica z modelem
bool przycisk = true;
int otoczenie = 0;

/////////////////////////////////////////////Funckje/////////////////////////////////////////
volatile long speed = 0;
void increment_speed()
{
    speed++;
}
END_OF_FUNCTION( increment_speed );
LOCK_VARIABLE( speed );
LOCK_FUNCTION( increment_speed );

void init() // inicjacja allegro
{
    int depth, res;
    allegro_init();
    depth = desktop_color_depth();
    if( depth == 0 ) depth = 32;
   
    set_color_depth( depth );
    res = set_gfx_mode( GFX_AUTODETECT_FULLSCREEN, 1366, 768, 0, 0 );
    if( res != 0 ) {
        allegro_message( allegro_error );
        exit( - 1 );
    }
   
    install_timer();
    install_int_ex( increment_speed, BPS_TO_TIMER( 50 ) );
    install_keyboard();
    install_mouse();
   
    /* add other initializations here */
}

void deinit() // czystki po balaganie allegro
{
    clear_keybuf();
    /* add other deinitializations here */
}


//////////////////////////////////////////PROGRAM//////////////////////////////////////
int main()
{ init();
    int z = 0, w = 0, r = 0, zaduzo = 0;
    ////////////////////////////// Potrzebne bitmapy ////////////////////////////
    BITMAP * bufor = NULL;
    /////////////////////////////ładowanie obrazków na bitmapy //////////////////////
   
    bufor = create_bitmap( 1366, 768 );
    if( !bufor )
    {
        set_gfx_mode( GFX_TEXT, 0, 0, 0, 0 );
        allegro_message( "Nie mogę utworzyć bufora !" );
        allegro_exit();
        return 0;
    }
    /////////////////Wszystko co powinno sie zrobic///////////////////////
    for( int x = 0; x < 45; x++ )
    for( int y = 0; y < 10; y++ )
    { model[ x ][ y ] = 0; }
   
   
    //////////////////////////Ekran poczatkowy/////////////////////////
   
   
    ////////////////////////Główna pętla /////////////////////////////////
    while( z < 3000 )
    {
        clear_to_color( bufor, makecol( 0, 0, 0 ) ); /// czyszczenie bufora
        while( speed > 0 )
        {
           
           
           
            z++;
            textprintf_ex( bufor, font, 20, 20, makecol( 200, 0, 200 ), - 1, "z = %d, w = %d, r = %d, speed = %d", z, w, r, speed );
            blit( bufor, screen, 0, 0, 0, 0, 1366, 768 );
           
            speed--;
        }
       
       
    } //////koniec głównej petli
   
   
   
   
   
    ///////////////////////////////niszczenie pozostalosci /////////////////
    remove_int( increment_speed );
   
    destroy_bitmap( bufor );
    deinit();
    return 0;
}
END_OF_MAIN()