func Begin () {
       TotalTraces = 1;
}
func OnLineHeader () {
	 output(LH);
}
func OnTrace () {
	Tr.LinInd=Tr.RecNum;
	Tr.DphInd=Tr.TrcNum;
	output(Tr);
}
func End () {
}