home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 14 / CD_ASCQ_14_0694.iso / news / 2464 / music.c < prev    next >
Text File  |  1991-08-14  |  22KB  |  60 lines
  1. /*   EXEMPLE.C   */
  2.  
  3. /**************************************************************************/
  4. /*      Exemple d'inclusion de fichier .STD (format standard) créé        */
  5. /*     à l'aide d'Edimus dans le code source même d'un programme en       */
  6. /*    langage C. Les nombres contenu dans le fichier sont inclus dans     */
  7. /*    un tableau.                                                         */
  8. /**************************************************************************/
  9.  
  10. #include <dos.h>
  11. #include <conio.h>
  12. #include <stdio.h>
  13. #include <process.h>
  14. main ()
  15. {
  16.   int a,b,c;
  17.   double mus[]={
  18. 1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,2217.399,1712.5,2349.300,1712.5,2217.399,1712.5,2349.300,1712.5,1975.5,1712.5,2217.399,1712.5,1975.5,1712.5,2217.399,1712.5,1759.900,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1567.900,1712.5,1975.5,1712.5,0,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,1479.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,2217.399,1712.5,2349.300,1712.5,2217.399,1712.5,2349.300,1712.5,1975.5,1712.5,2217.399,1712.5,1975.5,1712.5,2217.399,1712.5,1759.900,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,2217.399,1712.5,2349.300,1712.5,0,1712.5,2959.899,1712.5,2637,1712.5,2959.899,1712.5,2349.300,1712.5,1759.900,1712.5,2349.300,1712.5,1479.900,1712.5,0,1712.5,2959.899,1712.5,2637,1712.5,2959.899,1712.5,2349.300,1712.5,1759.900,1712.5,2349.300,1712.5,1479.900,1712.5,0,1712.5,2959.899,1712.5,3322.399,1712.5,3519.899,1712.5,3322.399,1712.5,3519.899,1712.5,2959.899,1712.5,3322.399,1712.5,2959.899,1712.5,3322.399,1712.5,2637,1712.5,2959.899,1712.5,2637,1712.5,2349.300,1712.5,2637,1712.5,2959.899,1712.5,0,1712.5,2959.899,1712.5,2637,1712.5,2959.899,1712.5,2349.300,1712.5,1759.900,1712.5,2349.300,1712.5,1479.900,1712.5,0,1712.5,2959.899,1712.5,2637,1712.5,2959.899,1712.5,2349.300,1712.5,1759.900,1712.5,2349.300,1712.5,1479.900,1712.5,0,1712.5,2959.899,1712.5,3322.399,1712.5,3519.899,1712.5,3322.399,1712.5,3519.899,1712.5,2959.899,1712.5,3322.399,1712.5,2959.899,1712.5,3322.399,1712.5,2637,1712.5,2959.899,1712.5,2637,1712.5,2349.300,1712.5,2637,1712.5,2959.899,1712.5,0,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,2217.399,1712.5,2349.300,1712.5,2217.399,1712.5,2349.300,1712.5,1975.5,1712.5,2217.399,1712.5,1975.5,1712.5,2217.399,1712.5,1759.900,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1567.900,1712.5,1975.5,1712.5,0,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,1479.900,1712.5,1975.5,1712.5,1479.900,1712.5,1174.599,1712.5,1479.900,1712.5,987.7600,3425,1975.5,1712.5,2217.399,1712.5,2349.300,1712.5,2217.399,1712.5,2349.300,1712.5,1975.5,1712.5,2217.399,1712.5,1975.5,1712.5,2217.399,1712.5,1759.900,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,1479.900,1712.5,1975.5,1712.5,0,1712.5,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,0,1712.5,0,3425,0,3425,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,0,1712.5,0,3425,0,3425,1975.5,1712.5,1759.900,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,2349.300,1712.5,1975.5,1712.5,0,1712.5,0,3425,/* POP CORN' festival - Gershon KINGSLEY */
  19.  
  20. 783.9899,2237.5,698.4500,2237.5,698.4500,13425,0,4475,879.9899,2237.5,987.7600,2237.5,1108.699,2237.5,1174.599,2237.5,1318.5,2237.5,1396.900,2237.5,1318.5,4475,1174.599,2237.5,1174.599,11187.,0,4475,1174.599,2237.5,1174.599,2237.5,1046.5,2237.5,932.3200,2237.5,879.9899,2237.5,783.9899,2237.5,932.3200,4475,879.9899,2237.5,879.9899,6712.5,783.9899,4475,698.4500,4475,879.9899,4475,783.9899,4475,587.3200,4475,698.4500,4475,879.9899,2237.5,879.9899,11187.,783.9899,2237.5,698.4500,2237.5,698.4500,13425,0,4475,879.9899,2237.5,987.7600,2237.5,1108.699,2237.5,1174.599,2237.5,1318.5,2237.5,1396.900,2237.5,1318.5,4475,1174.599,2237.5,1174.599,11187.,0,4475,1174.599,2237.5,1174.599,2237.5,1046.5,2237.5,932.3200,2237.5,879.9899,2237.5,783.9899,2237.5,932.3200,4475,879.9899,2237.5,879.9899,6712.5,783.9899,4475,698.4500,4475,879.9899,4475,783.9899,4475,587.3200,4475,698.4500,4475,879.9899,2237.5,879.9899,11187.,879.9899,8950,879.9899,8950,1174.599,4475,1318.5,4475,1396.900,4475,1318.5,2237.5,1174.599,2237.5,1318.5,6712.5,1174.599,2237.5,1046.5,4475,1174.599,4475,879.9899,17900,879.9899,8950,879.9899,8950,1174.599,4475,1318.5,4475,1396.900,4475,1318.5,2237.5,1174.599,2237.5,1318.5,6712.5,1174.599,2237.5,1046.5,4475,1318.5,4475,1396.900,4475,1046.5,4475,932.3200,4475,879.9899,4475,783.9899,2237.5,698.4500,2237.5,698.4500,13425,0,4475,879.9899,2237.5,987.7600,2237.5,1108.699,2237.5,1174.599,2237.5,1318.5,2237.5,1396.900,2237.5,1318.5,4475,1174.599,2237.5,1174.599,11187.,0,4475,1174.599,2237.5,1174.599,2237.5,1046.5,2237.5,932.3200,2237.5,879.9899,2237.5,783.9899,2237.5,932.3200,4475,879.9899,2237.5,879.9899,6712.5,783.9899,4475,698.4500,4475,879.9899,4475,783.9899,4475,587.3200,4475,698.4500,4475,879.9899,2237.5,879.9899,11187.,698.4500,5050,879.9899,5050,783.9899,5050,587.3200,5050,698.4500,5375,879.9899,2687.5,879.9899,13437.,/* Yesterday - J. LENNON & P. M. CARTNEY*/
  21.  
  22. 3519.899,753.12,3135.899,753.12,3519.899,1506.2,0,1506.2,3135.899,376.56,                                                                                                                                                   2793.800,376.56,2637,376.56,
  23. 2349.300,376.56,2217.399,753.12,2349.300,1506.2,0,1506.2,0,3012.5,1759.900,753.12,1567.900,753.12,1759.900,1506.2,0,1506.2,1318.5,753.12,1396.900,753.12,1108.699,753.12,1174.599,1506.2,0,1506.2,0,3012.5,879.9899,753.12,783.9899,753.12,879.9899,1506.2,0,1506.2,783.9899,376.56,698.4500,376.56,659.25,376.56,587.3200,376.56,554.3599,753.12,587.3200,1506.2,0,1506.2,0,3012.5,0,6025,554.3599,1506.2,587.3200,1506.2,659.25,1506.2,698.4500,1506.2,1108.699,1506.2,1174.599,3012.5,0,6025,0,3012.5,0,1506.2,1108.699,981.25,1174.599,981.25,1318.5,981.25,1108.699,981.25,1174.599,981.25,1318.5,981.25,1108.699,981.25,1174.599,981.25,1318.5,981.25,1108.699,981.25,1174.599,981.25,1318.5,981.25,1396.900,981.25,1567.900,981.25,1318.5,981.25,1396.900,981.25,1567.900,981.25,1318.5,981.25,1396.900,981.25,1567.900,981.25,1318.5,981.25,1396.900,981.25,1567.900,981.25,1759.900,981.25,1864.599,981.25,1567.900,981.25,1759.900,981.25,1864.599,981.25,1567.900,981.25,1759.900,981.25,1864.599,981.25,1567.900,981.25,1759.900,981.25,0,981.25,0,3925,0,1962.5,0,981.25,2217.399,981.25,2349.300,981.25,2637,981.25,2217.399,981.25,2349.300,981.25,2637,981.25,2217.399,981.25,2349.300,981.25,2637,981.25,2217.399,981.25,2349.300,981.25,2637,981.25,2793.800,981.25,3135.899,981.25,2637,981.25,2793.800,981.25,3135.899,981.25,2637,981.25,2793.800,981.25,3135.899,981.25,2637,981.25,2793.800,981.25,3135.899,981.25,3519.899,981.25,3729.300,981.25,3135.899,981.25,3519.899,981.25,3729.300,981.25,3135.899,981.25,3519.899,981.25,3729.300,981.25,3135.899,981.25,3519.899,981.25,0,981.25,0,3925,0,1962.5,0,981.25,3519.899,981.25,3135.899,981.25,3729.300,981.25,2637,981.25,3135.899,981.25,3729.300,981.25,2637,981.25,2793.800,981.25,3519.899,981.25,2349.300,981.25,2793.800,981.25,3519.899,981.25,2349.300,981.25,2637,981.25,3135.899,981.25,2093,981.25,2637,981.25,3135.899,981.25,2093,981.25,2349.300,981.25,2793.800,981.25,1864.599,981.25,2349.300,981.25,2793.800,981.25,1864.599,981.25,2093,981.25,2637,981.25,1759.900,981.25,2093,981.25,2637,981.25,1759.900,981.25,1864.599,981.25,2349.300,981.25,1567.900,981.25,1864.599,981.25,2349.300,981.25,1567.900,981.25,1759.900,981.25,2093,981.25,1396.900,981.25,1759.900,981.25,2093,981.25,1396.900,981.25,1567.900,981.25,1864.599,981.25,1318.5,981.25,1567.900,981.25,1864.599,981.25,1318.5,981.25,1396.900,981.25,1759.900,981.25,1174.599,981.25,1396.900,981.25,1759.900,981.25,1174.599,981.25,1318.5,981.25,1567.900,981.25,1108.699,981.25,1318.5,981.25,1567.900,981.25,1108.699,981.25,0,3925,1864.599,12271.,1759.900,721.87,1567.900,721.87,1396.900,721.87,1318.5,721.87,1174.599,721.87,1108.699,721.87,987.7600,721.87,1108.699,721.87,879.9899,721.87,1108.699,721.87,1318.5,721.87,1567.900,721.87,1396.900,360.93,1567.900,360.93,1396.900,360.93,1567.900,360.93,1396.900,360.93,1567.900,360.93,1396.900,360.93,1567.900,360.93,1396.900,360.93,1567.900,360.93,1396.900,360.93,1567.900,360.93,1318.5,1443.7,1174.599,5775,0,2887.5,0,1443.7,1759.900,1043.7,2349.300,1043.7,1759.900,1043.7,2637,1043.7,1759.900,1043.7,2793.800,1043.7,1759.900,1043.7,2349.300,1043.7,1759.900,1043.7,2637,1043.7,1759.900,1043.7,2793.800,1043.7,1759.900,1043.7,3135.899,1043.7,1759.900,1043.7,2637,1043.7,1759.900,1043.7,2793.800,1043.7,1759.900,1043.7,3135.899,1043.7,1759.900,1043.7,3519.899,1043.7,1759.900,1043.7,2793.800,1043.7,1759.900,1043.7,3135.899,1043.7,1759.900,1043.7,3519.899,1043.7,1759.900,1043.7,3729.300,1043.7,1759.900,1043.7,3135.899,1043.7,1759.900,1043.7,3519.899,1043.7,1759.900,1043.7,2793.800,1043.7,1759.900,1043.7,3135.899,1043.7,1759.900,1043.7,2637,1043.7,1759.900,1043.7,2793.800,1043.7,1759.900,1043.7,2349.300,1043.7,1759.900,1043.7,2637,1043.7,1759.900,1043.7,2217.399,1043.7,1759.900,1043.7,2349.300,1043.7,1759.900,1043.7,1759.900,1043.7,1759.900,1043.7,1864.599,1043.7,1759.900,1043.7,1567.900,1043.7,1759.900,1043.7,1759.900,1043.7,1759.900,1043.7,1396.900,1043.7,1759.900,1043.7,1567.900,1043.7,1759.900,1043.7,1318.5,1043.7,1759.900,1043.7,1396.900,1043.7,1759.900,1043.7,1174.599,1043.7,1759.900,1043.7,1567.900,1043.7,1759.900,1043.7,1318.5,1043.7,1759.900,1043.7,1396.900,1043.7,1759.900,1043.7,1174.599,1043.7,1759.900,1043.7,1318.5,1043.7,1759.900,1043.7,1108.699,1043.7,1759.900,1043.7,1174.599,1043.7,1759.900,1043.7,879.9899,1043.7,1759.900,1043.7,932.3200,1043.7,1759.900,1043.7,783.9899,1043.7,1759.900,1043.7,879.9899,1043.7,1759.900,1043.7,698.4500,1043.7,1759.900,1043.7,783.9899,1043.7,1759.900,1043.7,659.25,1043.7,1759.900,1043.7,698.4500,1043.7,1759.900,1043.7,587.3200,1043.7,1759.900,1043.7,783.9899,1043.7,1759.900,1043.7,659.25,1043.7,1759.900,1043.7,698.4500,1043.7,1759.900,1043.7,587.3200,1043.7,1759.900,1043.7,659.25,1043.7,1759.900,1043.7,554.3599,1043.7,1759.900,1043.7,587.3200,1043.7,0,1106.2,1759.900,1106.2,1567.900,1106.2,1759.900,1106.2,1396.900,1106.2,1759.900,1106.2,1318.5,1106.2,1759.900,1106.2,1174.599,1106.2,1759.900,1106.2,1108.699,1106.2,1759.900,1106.2,1174.599,1106.2,1759.900,1106.2,1318.5,1106.2,1759.900,1106.2,1396.900,1106.2,1759.900,1106.2,879.9899,1106.2,1759.900,1106.2,987.7600,1106.2,1759.900,1106.2,1108.699,1106.2,1759.900,1106.2,1174.599,1106.2,1759.900,1106.2,1108.699,1106.2,1759.900,1106.2,1174.599,1106.2,1759.900,1106.2,1318.5,1106.2,1759.900,1106.2,1396.900,2212.5,0,1106.2,2349.300,1106.2,2093,1106.2,2349.300,1106.2,1864.599,1106.2,2349.300,1106.2,1759.900,1106.2,2349.300,1106.2,1567.900,1106.2,2349.300,1106.2,1479.900,1106.2,2349.300,1106.2,1567.900,1106.2,2349.300,1106.2,1759.900,1106.2,2349.300,1106.2,1864.599,1106.2,2349.300,1106.2,1174.599,1106.2,2349.300,1106.2,1318.5,1106.2,2349.300,1106.2,1479.900,1106.2,2349.300,1106.2,1567.900,1106.2,2349.300,1106.2,1479.900,1106.2,2349.300,1106.2,1567.900,1106.2,2349.300,1106.2,1759.900,1106.2,2349.300,1106.2,1864.599,2212.5,2349.300,2212.5,1864.599,2212.5,2349.300,2212.5,2489,2212.5,1567.900,2212.5,2489,2212.5,1567.900,2212.5,2093,2212.5,1759.900,2212.5,2093,2212.5,1759.900,2212.5,2349.300,2212.5,1396.900,2212.5,2349.300,2212.5,1396.900,2212.5,1864.599,2212.5,1567.900,2212.5,1864.599,2212.5,1567.900,2212.5,2217.399,2212.5,1318.5,2212.5,2217.399,2212.5,1318.5,2212.5,1759.900,2212.5,1396.900,2212.5,1759.900,2212.5,1396.900,2212.5,1567.900,2212.5,1108.699,2212.5,1567.900,2212.5,1108.699,2212.5,1396.900,2212.5,1174.599,2212.5,1396.900,2212.5,1174.599,2212.5,1318.5,2212.5,932.3200,2212.5,1318.5,2212.5,932.3200,2212.5,3519.899,1106.2,3135.899,1106.2,3519.899,1106.2,2793.800,1106.2,3519.899,1106.2,2637,1106.2,3519.899,1106.2,2349.300,1106.2,3519.899,1106.2,2217.399,1106.2,3519.899,1106.2,2349.300,1106.2,3519.899,1106.2,2637,1106.2,3519.899,1106.2,2793.800,1106.2,3519.899,1106.2,1759.900,1106.2,3519.899,1106.2,1975.5,1106.2,3519.899,1106.2,2217.399,1106.2,3519.899,1106.2,2349.300,1106.2,3519.899,1106.2,2217.399,1106.2,3519.899,1106.2,2349.300,1106.2,3519.899,1106.2,2637,1106.2,3519.899,1106.2,2793.800,1106.2,3519.899,1106.2,2637,1106.2,3519.899,1106.2,2349.300,1106.2,3519.899,1106.2,2093,1106.2,3519.899,1106.2,1864.599,1106.2,3519.899,1106.2,2093,1106.2,3519.899,1106.2,2349.300,1106.2,3135.899,1106.2,1864.599,1106.2,3135.899,1106.2,2637,1106.2,3135.899,1106.2,2349.300,1106.2,3135.899,1106.2,2093,1106.2,3135.899,1106.2,1864.599,1106.2,3135.899,1106.2,1759.900,1106.2,3135.899,1106.2,1864.599,1106.2,3135.899,1106.2,2093,1106.2,2793.800,1106.2,1759.900,1106.2,2793.800,1106.2,2349.300,1106.2,2793.800,1106.2,2093,1106.2,2793.800,1106.2,1864.599,1106.2,2793.800,1106.2,1759.900,1106.2,2793.800,1106.2,1567.900,1106.2,2793.800,1106.2,1759.900,1106.2,2793.800,1106.2,1864.599,1106.2,2637,1106.2,1567.900,1106.2,2637,1106.2,2217.399,1106.2,2637,1106.2,1864.599,1106.2,2637,1106.2,1759.900,1106.2,2637,1106.2,1567.900,1106.2,2637,1106.2,1396.900,1106.2,2637,1106.2,1567.900,1106.2,2637,1106.2,1759.900,1106.2,2349.300,1106.2,1396.900,1106.2,2349.300,1106.2,1318.5,1106.2,2637,1106.2,1318.5,1106.2,2637,1106.2,1396.900,1106.2,2349.300,1106.2,1567.900,1106.2,2349.300,1106.2,1864.599,1106.2,2217.399,1106.2,1864.599,1106.2,2217.399,1106.2,1759.900,1106.2,2349.300,1106.2,1396.900,1106.2,2349.300,1106.2,1318.5,1106.2,2637,1106.2,1318.5,1106.2,2637,1106.2,1396.900,1106.2,2349.300,1106.2,1396.900,1106.2,2349.300,1106.2,0,1106.2,2349.300,1106.2,2217.399,1106.2,2349.300,1106.2,1975.5,1106.2,2349.300,1106.2,2217.399,1106.2,1975.5,1106.2,2217.399,1106.2,1759.900,1106.2,1567.900,1106.2,1759.900,1106.2,1318.5,1106.2,1567.900,1106.2,1396.900,1106.2,1318.5,1106.2,0,1106.2,2349.300,1106.2,2217.399,1106.2,2349.300,1106.2,2793.800,1106.2,2349.300,1106.2,2217.399,1106.2,1975.5,1106.2,2217.399,4425,2637,6637.5,2349.300,4425,2217.399,2212.5,2093,4425,1864.599,4425,1759.900,4425,1759.900,4425,1567.900,4425,1567.900,4425,1479.900,4425,1759.900,4425,2489,2212.5,2349.300,4425,0,2212.5,3135.899,4425,587.3200,1106.2,523.25,1106.2,587.3200,1106.2,466.1600,1106.2,587.3200,1106.2,440,1106.2,587.3200,1106.2,391.9899,1106.2,587.3200,1106.2,369.9899,1106.2,587.3200,1106.2,391.9899,1106.2,587.3200,1106.2,440,1106.2,587.3200,1106.2,466.1600,1106.2,587.3200,1106.2,293.6600,1106.2,587.3200,1106.2,329.6199,1106.2,587.3200,1106.2,369.9899,1106.2,587.3200,1106.2,391.9899,1106.2,587.3200,1106.2,369.9899,1106.2,587.3200,1106.2,391.9899,1106.2,587.3200,1106.2,440,1106.2,587.3200,1106.2,466.1600,4425,1567.900,1106.2,1759.900,1106.2,1396.900,1106.2,1567.900,1106.2,1318.5,1106.2,2093,1106.2,1864.599,1106.2,2093,1106.2,1759.900,1106.2,1864.599,1106.2,1567.900,1106.2,1759.900,1106.2,1396.900,1106.2,2349.300,1106.2,2093,1106.2,2349.300,1106.2,1864.599,1106.2,2093,1106.2,1759.900,1106.2,1864.599,1106.2,1567.900,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,2093,1106.2,2349.300,1106.2,1864.599,1106.2,2093,1106.2,1759.900,2212.5,1396.900,2212.5,1864.599,1106.2,1759.900,1106.2,1567.900,1106.2,1396.900,1106.2,1567.900,1106.2,1864.599,1106.2,1567.900,1106.2,1396.900,1106.2,1318.5,1106.2,1567.900,1106.2,1318.5,1106.2,1174.599,1106.2,1046.5,1106.2,1174.599,1106.2,1318.5,1106.2,1396.900,1106.2,1567.900,2212.5,1318.5,2212.5,1046.5,1106.2,932.3200,1106.2,1046.5,1106.2,879.9899,1106.2,1046.5,1106.2,783.9899,1106.2,1046.5,1106.2,698.4500,1106.2,1046.5,1106.2,659.25,1106.2,1046.5,1106.2,698.4500,1106.2,1046.5,1106.2,783.9899,1106.2,1046.5,1106.2,879.9899,1106.2,1046.5,1106.2,523.25,1106.2,1046.5,1106.2,587.3200,1106.2,1046.5,1106.2,659.25,1106.2,1046.5,1106.2,698.4500,1106.2,1046.5,1106.2,659.25,1106.2,1046.5,1106.2,698.4500,1106.2,1046.5,1106.2,783.9899,1106.2,1046.5,1106.2,2093,1106.2,1864.599,1106.2,1759.900,1106.2,1567.900,1106.2,1396.900,1106.2,1244.5,1106.2,1174.599,1106.2,1046.5,1106.2,2349.300,1106.2,2093,1106.2,1864.599,1106.2,1759.900,1106.2,1567.900,1106.2,1396.900,1106.2,1318.5,1106.2,1174.599,1106.2,2637,1106.2,2349.300,1106.2,2093,1106.2,1864.599,1106.2,1759.900,1106.2,1567.900,1106.2,1396.900,1106.2,1318.5,1106.2,2793.800,1106.2,2637,1106.2,2349.300,1106.2,2093,1106.2,1864.599,1106.2,1759.900,1106.2,1567.900,1106.2,1396.900,1106.2,3135.899,1106.2,2793.800,1106.2,2637,1106.2,2349.300,1106.2,2093,1106.2,1864.599,1106.2,1759.900,1106.2,1567.900,1106.2,3519.899,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,2093,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,3519.899,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,2093,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,3135.899,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,2093,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,3135.899,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,2093,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,3519.899,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,2093,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,3519.899,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,2093,1106.2,2793.800,1106.2,2637,1106.2,2793.800,1106.2,3135.899,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,2093,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,3135.899,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,2093,1106.2,2637,1106.2,2349.300,1106.2,2637,1106.2,2793.800,1106.2,3135.899,1106.2,2793.800,1106.2,2637,1106.2,2349.300,1106.2,2093,1106.2,1975.5,1106.2,1759.900,1106.2,1975.5,1106.2,1567.900,1106.2,1975.5,1106.2,2349.300,1106.2,2793.800,1106.2,3519.899,1106.2,2793.800,1106.2,2349.300,1106.2,1975.5,1106.2,1567.900,1106.2,1975.5,1106.2,2349.300,1106.2,2793.800,1106.2,3519.899,1106.2,2793.800,1106.2,2349.300,1106.2,1864.599,1106.2,1567.900,1106.2,1864.599,1106.2,2093,1106.2,2637,1106.2,3135.899,1106.2,2637,1106.2,2093,1106.2,1864.599,1106.2,1567.900,1106.2,1864.599,1106.2,2093,1106.2,2637,1106.2,3135.899,1106.2,2637,1106.2,2093,1106.2,1759.900,1106.2,1396.900,1106.2,1759.900,1106.2,2093,1106.2,2349.300,1106.2,2793.800,1106.2,2349.300,1106.2,1864.599,1106.2,1759.900,1106.2,1396.900,1106.2,1759.900,1106.2,2093,1106.2,2349.300,1106.2,2793.800,1106.2,2349.300,1106.2,1864.599,1106.2,1567.900,1106.2,1318.5,1106.2,1567.900,1106.2,1864.599,1106.2,2217.399,1106.2,2637,1106.2,2217.399,1106.2,1864.599,1106.2,1567.900,1106.2,1318.5,1106.2,1567.900,1106.2,1864.599,1106.2,2217.399,1106.2,2637,1106.2,2217.399,1106.2,1864.599,1106.2,1759.900,6637.5,1567.900,8850,1396.900,4425,1318.5,8850,1174.599,4425,932.3200,4425,1174.599,17700,/* Tocata et fugue en Ré mineur. J.S. BACH*/
  24. 2637,1500,1567.900,1500,2093,1500,2637,1500,2349.300,1500,1567.900,1500,1975.5,1500,2349.300,1500,2093,1500,1318.5,1500,1759.900,1500,2093,1500,1975.5,1500,1318.5,1500,1567.900,1500,1975.5,1500,1759.900,1500,1046.5,1500,1396.900,1500,1759.900,1500,1567.900,1500,1046.5,1500,1318.5,1500,1567.900,1500,1479.900,1500,1174.599,1500,2093,1500,1759.900,1500,1567.900,1500,1759.900,1500,1567.900,3000,1318.5,3000,1046.5,3000,1567.900,6000,2093,3000,1759.900,3000,1318.5,4500,1567.900,1500,1046.5,4500,1759.900,1500,1046.5,4500,1318.5,1500,1396.900,1500,1318.5,1500,1396.900,1500,1318.5,1500,1567.900,1500,1396.900,750,1318.5,750,1174.599,3000,1318.5,3000,1046.5,3000,1567.900,6000,2093,3000,1759.900,3000,1318.5,4500,1567.900,1500,1046.5,4500,1759.900,1500,1046.5,4500,1318.5,1500,1396.900,1500,1318.5,1500,1396.900,1500,1174.599,1500,1046.5,6000,1174.599,3000,1174.599,1500,1318.5,1500,879.9899,4500,1318.5,1500,1318.5,3000,1567.900,750,1479.900,750,1318.5,750,1174.599,750,1318.5,6000,1174.599,3000,1174.599,1500,1318.5,1500,879.9899,4500,1318.5,1500,1318.5,3000,1567.900,750,1479.900,750,1318.5,750,1174.599,750,1318.5,6000,1318.5,3000,1046.5,3000,1567.900,6000,2093,4500,1759.900,1500,1318.5,4500,1567.900,1500,1046.5,4500,1759.900,1500,1046.5,4500,1318.5,1500,1396.900,1500,1318.5,1500,1396.900,1500,1318.5,1500,1567.900,1500,1396.900,750,1318.5,750,1174.599,3000,1318.5,3000,1046.5,3000,1567.900,6000,2093,4500,1759.900,1500,1318.5,4500,1567.900,1500,1046.5,4500,1759.900,1500,1046.5,4500,1318.5,1500,1396.900,1500,1318.5,1500,1396.900,1500,1174.599,1500,1046.5,6000/*Rain and Tears - E. PAPATHANASSIOU*/
  25.  
  26. };      /* notez que comme ces fichiers standards ont été enregistrés avec le
  27.        titre, celui-ci a été changé en commentaire dans la liste de
  28.        données ci dessus   */
  29.   clrscr();
  30.   printf (" P: pause\n Barre espace: musique suivante\n Tab: avance de");
  31.   printf (" quelques notes\n Autre touche: arrête le programme\n\n");
  32.   nosound();
  33.   a=0;
  34.   printf ("\n Pop corn' festival \n Yesterday \n Tocata et fugue en ré mineur de J.S. BACH (extraits) \n Rain and tears \n");
  35.   while (1==1) {
  36.     if (kbhit()==-1)
  37.        switch (getch()) {
  38.      case 32: { if (a<434) a=434; else if (a<688) a=688; else if (a<2450) a=2450; else a=0; }
  39.       break;
  40.      case 9: a+=20; break;
  41.      case 112:
  42.      case 80: {gotoxy(25,12); printf ("    PAUSE   \n"); getch();
  43.            gotoxy(25,12); printf ("            \n");} break;
  44.      default: exit(0);   }
  45.  
  46.     sound (mus[a]);
  47.     for (c=0;c<(mus[a+1]/2.8);c+=1);/*  boucle vide servant à faire durer la */
  48.                   /*  note le temps indiqué après celle-ci */
  49.                   /*  dans le tableau, divisé par 2. suivant*/
  50.                   /*  la vitesse de votre ordinateur, ou   */
  51.                   /*  la manière d'utiliser ce facteur, ce */
  52.                   /*  facteur peut varier */
  53.     a+=2;     /*  incrémentation de 2 pour passer à la note suivante */
  54.     nosound ();
  55.     for (c=0;c<1140;c++);            /* met de 'l'espace' entre les notes */
  56.     if (a<434) for (c=0;c<1140;c++); /* rajoute encore de 'l'espace' pour */
  57.                      /* staccato de Popcorn               */
  58.   }
  59.   nosound();
  60. }