/*  must have function "Begin" to start with even if nothing inside */

func Begin() {
	ind1 = 0;    /*  initialize a counter */
}

func OnLineHeader() {
}

/*  here is the guts of what we want to do to each trace header */

func OnTrace() {
	++ind1;                  /*  increment counter by 1 */
	recnum = Tr.RecNum;
	trcnum = Tr.TrcNum;
	srcpt  = Tr.SrcPnt;
	cdp    = Tr.DphInd;
	gi     = Tr.RecInd;
	dist   = Tr.DstSgn;

	print(recnum," ",srcpt,"\n");

}

/*      we're finished - to run this type

        ufh norm.ufh  < inputdata >& index_file

*/