func Begin()
{
       RecNum = 1;
       Traces = 1
}

func OnLineHeader()
{

	output(LH);
}
 
func OnTrace()
{
	Tr.RecNum = RecNum;

	output(Tr);

        if(Traces%481)==0){
		++RecNum;
}

	Traces++;

}