-   
-   
- #include "allegro.h" 
-   
- int main(int argc, char *argv[]) 
- { 
-    SAMPLE *the_sample; 
-    int pan = 128; 
-    int pitch = 1000; 
-   
-    allegro_init(); 
-   
-    if (argc != 2) { 
-       allegro_message("Usage: 'exsample filename.[wav|voc]'\n"); 
-       return 1; 
-    } 
-   
-    install_keyboard();  
-    install_timer(); 
-   
-    /* install a digital sound driver */ 
-    if (install_sound(DIGI_AUTODETECT, MIDI_NONE, argv[0]) != 0) { 
-       allegro_message("Error initialising sound system\n%s\n", allegro_error); 
-       return 1; 
-    } 
-   
-    /* read in the WAV file */ 
-    the_sample = load_sample("Incio.wav");//argv[1]); 
-    if (!the_sample) { 
-       allegro_message("Error reading WAV file '%s'\n", argv[1]); 
-       return 1; 
-    } 
-   
-    if (set_gfx_mode(GFX_SAFE, 320, 200, 0, 0) != 0) { 
-       set_gfx_mode(GFX_TEXT, 0, 0, 0, 0); 
-       allegro_message("Unable to set any graphic mode\n%s\n", allegro_error); 
-       return 1; 
-    } 
-    set_palette(desktop_palette); 
-    clear_to_color(screen, makecol(255,255,255)); 
-    text_mode(-1); 
-   
-    textprintf_centre(screen, font, SCREEN_W/2, SCREEN_H/3, makecol(0, 0, 0), 
-          "Driver: %s", digi_driver->name); 
-    textprintf_centre(screen, font, SCREEN_W/2, SCREEN_H/2, makecol(0, 0, 0), 
-          "Playing %s", argv[1]); 
-    textprintf_centre(screen, font, SCREEN_W/2, SCREEN_H*2/3, makecol(0, 0, 0), 
-          "Use the arrow keys to adjust it"); 
-   
-    /* start up the sample */ 
-    play_sample(the_sample, 255, pan, pitch, TRUE); 
-   
-    do { 
-       poll_keyboard(); 
-   
-       /* alter the pan position? */ 
-       if ((key[KEY_LEFT]) && (pan > 0)) 
-    pan--; 
-       else if ((key[KEY_RIGHT]) && (pan < 255)) 
-    pan++; 
-   
-       /* alter the pitch? */ 
-       if ((key[KEY_UP]) && (pitch < 16384)) 
-    pitch = ((pitch * 513) / 512) + 1;  
-       else if ((key[KEY_DOWN]) && (pitch > 64)) 
-    pitch = ((pitch * 511) / 512) - 1;  
-   
-       /* adjust the sample */ 
-       adjust_sample(the_sample, 255, pan, pitch, TRUE); 
-   
-       /* delay a bit */ 
-       rest(2); 
-   
-    } while ((!key[KEY_ESC]) && (!key[KEY_SPACE])); 
-   
-    /* destroy the sample */ 
-    destroy_sample(the_sample); 
-   
-    return 0; 
- } 
-   
- END_OF_MAIN(); 
-   
-