func Begin () { icount=0; ndi=76; nli=76; firstli=1; } func OnLineHeader () { ntrc=LH.NumTrc; output(LH); } func OnTrace () { li=Tr.LinInd; di=Tr.DphInd; Tr.SrPrLt = (li-firstli)*nli + di; output(Tr); } func End () { }