%%HP: T(3)A(D)F(.);
\<< DEG 2. FIX
  IF DEPTH 1. \>=
  THEN '\GlS' STO
  END
  IF '\GlS' VTYPE 0. ==
  THEN
    IF '\Gl0' VTYPE -1.
==
    THEN 11.57 '\Gl0'
STO
    END
    IF '\Gr' VTYPE -1.
==
    THEN 48.13 '\Gr'
STO
    END
    IF \GlS \Gl0 - ABS
90. <
    THEN \GlS \Gl0 - '\Gl'
STO \Gl TAN \Gr SIN
      IF DUP 0. \=/
      THEN / ATAN
      ELSE DROP DROP
        IF \Gl 0. <
        THEN -90.
        ELSE 90.
        END
      END '\Ga' STO \Gr
COS \Gl COS * DUP ACOS
'b' STO
      IF DUP 1. \=/
      THEN DUP
.151105964361 - SWAP
ACOS SIN / ATAN '\Ge'
STO
      ELSE DROP 90.
'\Ge' STO
      END
"Satellitenpeilung
Ort:     \Gl0 = "
\Gl0 \->STR +
"\^o
         \Gr  = " +
\Gr \->STR +
"\^o
Orbit:   \GlS = " +
\GlS \->STR +
"\^o
Peilung: \Ga  = " +
\Ga \->STR +
"\^o
         \Ge  = " +
\Ge \->STR + "\^o" +
      IF \Ge 0. <
      THEN
"
       nicht sichtbar!"
+
      END CLLCD 1.
DISP 0. WAIT DROP
      \<< { LOE \Ge b \Ga \Gl
\Gr \Gl0 \GlS } PURGE
      \>> 'LOE' STO
    ELSE 4000. .1
BEEP
"Winkel > 90\^o!
 Berechnung
 wird nicht
 durchgef\252hrt!"
MSGBOX
    END
  ELSE 4000. .1 BEEP
"Satelliten-Peilung:

 Angabe \GlS f\252r
 Orbitposition fehlt!

 Ost=(+)     West=(-)"
CLLCD 1. DISP 0. WAIT
DROP
  END
\>>