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

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

func OnLineHeader() {
	output(LH);
}

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

func OnTrace() {
	++ind1;                  /*  increment counter by 1 */
	recnum = Tr.RecNum;      /*  record #  */
	trcnum = Tr.TrcNum;      /*  trace  #  */
	if (recnum == 4 && trcnum == 1) Tr.RecInd = 1;

	output(Tr);

}

/*      we're finished - to run this type

        ufh norm1.ufh  < inputdata > outputdata

*/