func Begin()
{
/* Number of lines in flat file containing water depths */
        num = 686;
        counter = 1;
}

func OnLineHeader(){
        output(LH);
/*
flatfile called "paulg" contains water depths.
*/
        stream= fopen(" paulg","r");
/*
read in each line to get the string tokens[0], tokens[1] for each line
Then convert the string tokens to vector values.  Divide the water depth
by 32.81 which is the sample interval so that when using a sample interval
of unity the mute will be correct.
*/
        for (i=1; i<=num;i++) {
                tokens = getTokenLine(stream);
                if (tokens == Nothing)
                {
                        print("Nothing read from water depth file");
                }
                else
                trace[i]=strtonum(tokens[0]);
              /*  print("Record ",trace[i],"Water Depth ",depth[i],"\n"); */
        }               
}

func OnTrace()
{
/*
Read a trace  install trace number 
*/
        
        Tr.TrcNum = trace[counter];
        output(Tr);
	counter ++;
}
 
func End()
{
        fclose(stream);
}