func Begin()
{
       LinInd = 28;
       DphInd = 1810;
       Traces = 1;
}

func OnLineHeader()
{
        output(LH);
}
 
func OnTrace()
{
        Tr.LinInd = LinInd;
        Tr.DphInd = DphInd;

        output(Tr);

        if( (Traces%32) == 0 ){
                ++LinInd;
}

        if( (Traces%37856) == 0 ){
                ++DphInd;
                LinInd = 28;
}

        Traces++;

}