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