char mens[6][124]={
"\n Programa que  genera y grafica Ruido Blanco o Aleatorio o 1 en f cero\n\n",
" Se autoriza la distribucion y uso libre de este programa (freeware)\n",
" Fernando Galindo Soria      Cd. de Mexico\n",
" fgalindo@ipn.mx     www.fgalindosoria.com   www.laredi.com\n\n",
" 4 de Junio de 2004\n\n",
" oprime una tecla para continuar"};

#include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <graphics.h>
#include <time.h>
#include <stdlib.h>

void main(void)
{
	int i0,i, sonido,sonido0;
	int gd=DETECT,gm;

// inicio
	clrscr();
	printf("%s%s%s%s%s%s",mens[0],mens[1],mens[2],mens[3],mens[4],mens[5]);
	printf("\n****************\n**Y oprime otra tecla para parar**\n");
	getch();
	randomize();
	initgraph(&gd,&gm,"");
	setrgbpalette(0, 63,63,63); setrgbpalette(1, 0, 0, 0); setcolor(1);
	i0=10; i=10; sonido0=0;
	line(0,150,320,150); line(i0,0,i0,160);  //pone ejes para grafica de puntos
	line(0,350,320,350);	line(i0,200,i0,360);//pone ejes para grafica de lineas

	while( !kbhit() && (i<=320))
	{
		sonido=random(100);                //genera sonido en forma aleatoria
		sound(sonido*40);  delay(55);      //emite sonido
		circle(i=i0+3,150-sonido,1);       //grafica de puntos
		line(i0,350-sonido0,i,350-sonido); //grafica de lineas
		i0=i; sonido0=sonido;
	}

	nosound();
 //	printf("\n****************\n**oprime una tecla para terminar**\n");
	getch();
	closegraph();
}