func OnLineHeader () {
        output(LH);
}
func OnTrace () {
        sx = Tr.SrPtXC;
        sy = Tr.SrPtYC;
        rx = Tr.RcPtXC;
        ry = Tr.RcPtYC;
        denom = rx - sx;
        if (abs (denom ) > 1 ) {
                anum = ry - sy;
                value = anum/denom;
                az = atan(value);
                ay = 10000*az;
                Tr.SrRcAz = ay;
                }
        output(Tr);
}
func End(){
print (" end of azimuth ufh \n");
}