func Begin () {
trc = 1;
}
func OnLineHeader () {
ntrc = LH.NumTrc;
}
func OnTrace () {

	if ( trc == 1 ) {
		brx = Tr.SrRcMX;
		bry = Tr.SrRcMY;
		li  = Tr.LinInd;
		di  = Tr.DphInd;
		print (brx," ",bry," ",li," ",di,"\n");
	}
	trc = trc + 1;
	if ( trc > ntrc ) trc = 1;
}