%%HP: T(3)A(D)F(.);
\<<
"NORMAL 
TRANSVERSA(N)
MERIDIANA (M)
CON AZIMUT(\GrAZ)
con PSAD 56"
MSGBOX "Latitud:"
"" INPUT OBJ\-> HMS\->
"AZIMUT:" "" INPUT
OBJ\-> HMS\-> \-> l AZ
  \<< 'aa*(1-ee^2)/(1
-ee^2*SIN(l)^2)^1.5
' EVAL \-> M
    \<< 'aa/(1-ee^2*
SIN(l)^2)^.5' EVAL
\-> N
      \<< 'M*N/(N*SQ(
COS(AZ))+M*SQ(SIN(
AZ)))' EVAL \-> \Gr
        \<< M "M"
\->TAG N "N" \->TAG \Gr
"\GrAZ" \->TAG
        \>>
      \>>
    \>>
  \>>
\>>
