/* Se autoriza la distribucion y uso libre de este programa (freeware) */
/* Fernando Galindo Soria     Cd. de Mexico */
/* programa que genera sonidos a partir de caracteres que lee de un archivo
   18 de septiembre de 1999*/

#include <stdio.h>
#include <conio.h>
#include <dos.h>

char nom_arch[80];

void main(void)
{
   FILE *entra;
   int i,j;
   char car, tecla=0;

// mensaje de inicio
 clrscr();
 printf("programa que genera sonidos a partir de caracteres que lee de un archivo\n");
 printf("18 de septiembre de 1999\n");
 printf("Se autoriza la distribucion y uso libre de este programa (freeware)\n");
 printf("Fernando Galindo Soria     Cd. de Mexico\n");

 printf("\ndetiene sonido con <espacio> y termina con <Esc>");

// abre archivo
 printf("\n***Dame el nombre del archivo***\n");
 scanf("%s",nom_arch);
 entra = fopen(nom_arch, "rt+");

// lee datos
 do                                // inicia el ciclo para leer caracteres
 {  car= fgetc(entra);             // lee un caracter del archivo
    sound(car); delay(15);          // genera sonido
    printf("%c", car);             // imprime el caracter
    if (kbhit()!=0)tecla=getch();  // pregunta si presionaron el teclado
    if(tecla==32)
      {nosound(); getch(); tecla=0;}        //detiene sonido con espacio
 } while (car!=EOF && tecla!=27);  /* repite el ciclo de leer hasta
				       encontrar el fin de archivo EOF
				       o hasta que se presiona <ESC>*/
 nosound();

//cierra
  fclose(entra);
  printf("\n****************\n**oprime una tecla para terminar**\n"); getch();
}