extern float SR;

float delget(a,wait,l)
float *a,wait;
int *l;
{
/*  get value from delay line, wait seconds old. */

	register i = *l - (int)(wait * SR +.5);
	if(i < 0)  {
		i += *(l+1);
		if(i < 0) return(0);
		}
	return(*(a+i));
}