[comp.sources.atari.st] v02i066: norad -- Earth satellite tracking program

koreth%panarthea.ebay@sun.com (Steven Grimm) (08/08/89)

Submitted-by: logajan@ns.network.com (John Logajan)
Posting-number: Volume 2, Issue 66
Archive-name: norad

Below are two files generically named NORAD Release V1.0.
NORAD is a GFA Basic (2.0) implementation of a real-time
multiple earth satellite tracking program.  Earth satellites
are graphically depicted against a map of earth's continents.
It is a very pretty display in my humble opinion.

A sample orbital elements file containing 98 satellites is
included, but I suggest you make an effort to get ahold of
the most recent released elements if you want to accurately
track satellites.
                                   Thanks -- John Logajan.


#       This is a shell archive.
#       Remove everything above and including the cut line.
#       Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
#       Run the following text with /bin/sh to create:
#       norad.lst
#       orbitals.dat
cat << \SHAR_EOF > norad.lst
Rem      N.O.R.A.D. V1.0 The graphic realtime satellite tracking program.
Rem                    ATARI ST -- GFA BASIC 2.0
Rem               Please customize the six lines below.
Rem
Tlocal=-5             ! Your time difference from GMT (UTC). i.e. -5 = CDT
L9=45.0709            ! Your latitude, degrees.fraction-of-degrees.
W9=93.1567            ! Your longitude, degrees.fraction. i.e +values for USA
H9=980                ! Your altitude above sea-level. (Feet)
El$="C:ORBITALS.DAT"  ! Path to orbital elements file. (NASA Predictions)
Ms=500                ! Maximum number of satellites. (To reserve space)
Rem
Rem Orbital calculation subroutines from the AMSAT Orbital Prediction Program
Rem (C) 1980 by Dr. T. A. Clark W3IWI, 6388 Guilford Road, Clarksville MD
Rem 21209 USA.  "Permission granted for non-commercial use provided credit is
Rem given to author, AMSAT and ORBIT magazine.  See ORBIT issue 6, March/
Rem April 1981.  Ported to ATARI ST BASIC by Scott Tilley (1/24/87.)
Rem
Rem Graphic interface and world map by John Logajan, 4248 Hamline, Arden Hills
Rem MN 55112 USA. 8/7/89  Graphic interface and map code are released into
Rem the public domain.
Rem
Dim C(3,2),Lvt%(200),S$(Ms),Y3(Ms),T0(Ms),Mmr(Ms),I0(Ms),O0(Ms),E0(Ms)
Dim W0(Ms),M0(Ms),N0(Ms),K0(Ms),A0(Ms),Xx%(Ms),Yy%(Ms)
H9=H9*12/39.37
Repeat
  Repeat
    Deftext 3,16,0,32
    Text 130,25,0,"Welcome to N.O.R.A.D."
    Deftext 1,0,0,13
    Text 105,45,0,"Your clock said the time was:  "+Date$+"  "+Time$
    Deftext 2,0,0,13
    Text 100,61,0,"Please be sure it is set to the EXACT time and date!"
    Text 175,160,0,"Press the HELP key for instructions."
    Text 80,186,0,"- Point at satellite of interest and click to get its info -"
    A$="Want to set/reset the clock?"
    Alert 2,A$,1,"No need|SetClock",But
    If But=2
      Cls
      Print "Enter date (or RETURN to skip)"
      Print
      Print "Use the format  month/day/year."
      Print "Be sure to use two digits (leading zeroes) for each."
      Print "Otherwise the system will ignore the new date."
      Print
      Print Date$;
      Input "  Date ";D$
      Cls
      Print "Enter local time (or RETURN to skip)"
      Print
      Print "Use the format  hour:minute:second."
      Print "Be sure to use two digits (leading zeroes) for each."
      Print "Otherwise the system will ignore the new time."
      Print
      Print Time$;
      Input "  Time ";T$
      Settime T$,D$
    Endif
    Cls
  Until But=1
  Y=Val(Right$(Date$,4))-1900
  If Y<89
    Print "          Is it really the year ";1900+Y;" ?"
    Print "I haven't made the program so it can work in years before 1989,"
    Print "so I am going to force you to set your clock/calender."
    Alert 1," ",1,"continue",But
    Cls
  Endif
Until Y>=89
If Y/4=Int(Y/4)
  F9=1
Else
  F9=0                   ! leap-year flag
Endif
D=Val(Mid$(Date$,4,2))
M=Val(Left$(Date$,2))
Rem Calculate day of year
Data 0,31,59,90,120,151,181,212,243,273,304,334
For I=1 To 12
  Read D9x
  If I=M
    D9=D9x
  Endif
Next I
D8=D+D9
If M>2
  D8=D8+F9
Endif
T$=Time$
Tstart=Timer
H=Val(Left$(T$,2))
S=Val(Right$(T$,2))
M=Val(Mid$(T$,4,2))
T7=D8+H/24+M/1440+S/86400-Tlocal/24
R0=6378.135                          ! physical constants
F=298.25
G0=7.5369793E+13
G1=1.0027379093
P2=2*Pi
P0=Pi/180
F=1/F
Rem  Greenwich Sidereal Time at New Year's
Yt%=0
For Y1=89 To Y
  Yd%=365
  If Y1/4=Int(Y1/4)
    Yd%=366
  Endif
  Yt%=Yt%+Yd%
Next Y1
G2=Frac(Yt%*G1+0.27676779)
Rem  Routine to evaluate OBSERVER's GEOCENTRIC Coordinates, where
Rem   X-axis=GREENWICH, Y-axis goes thru India, Z-axis=North Pole
L8=L9*P0
S9=Sin(L8)
C9=Cos(L8)                                   ! Initial GEOCENTRIC coordinates
S8=Sin(-W9*P0)
C8=Cos(W9*P0)                                ! W9= West longitude
Rem Now to account for flattened Earth
R9=R0*(1-(F/2)+(F/2)*Cos(2*L8))+H9/1000      ! H9=height in meters
Rem Now to make L8 the GEOCENTRIC latitude
L8=Atn((1-F)^2*S9/C9)
Z9=R9*Sin(L8)
X9=R9*Cos(L8)*C8
Y9=R9*Cos(L8)*S8
Rem   *********** get Parameters for Satellites *********
Print "Reading orbital elements from file: ";El$
Print
On Error Gosub Missing
Open "I",#1,El$
Sp%=0
On Error Gosub Baddy
Do
  Exit If Eof(#1)
  Line Input #1,Ln$
  Exit If Eof(#1)
  Line Input #1,L1$
  Exit If Eof(#1)
  Line Input #1,L2$
  While Left$(L1$,1)<>"1" Or Left$(L2$,1)<>"2"
    Ln$=L1$
    L1$=L2$
    Exit If Eof(#1)
    Line Input #1,L2$
  Wend
  Exit If Eof(#1)
  Inc Sp%
  S$(Sp%)="[ "+Left$(Ln$,11)+" "+Mid$(L1$,3,5)+" ]"
  Y3(Sp%)=Val(Mid$(L1$,19,2))
  T0(Sp%)=Val(Mid$(L1$,21,12))
  If Y3(Sp%)<Y                     ! Correct for "old" orbital elements
    Yt%=0
    For Y1=Y3(Sp%) To Y-1
      Yd%=365
      If Y1/4=Int(Y1/4)
        Yd%=366
      Endif
      Yt%=Yt%+Yd%
    Next Y1
    T0(Sp%)=T0(Sp%)-Yt%
    Y3(Sp%)=Y
  Endif
  Mmr(Sp%)=Val(Mid$(L1$,34,10))
  I0(Sp%)=Val(Mid$(L2$,9,8))
  O0(Sp%)=Val(Mid$(L2$,18,8))
  E0(Sp%)=Val("."+Mid$(L2$,27,7))
  W0(Sp%)=Val(Mid$(L2$,35,8))
  M0(Sp%)=Val(Mid$(L2$,44,8))
  N0(Sp%)=Val(Mid$(L2$,53,11))
  K0(Sp%)=Val(Mid$(L2$,64,5))
  A0(Sp%)=0
  Xx%(Sp%)=-1
  Yy%(Sp%)=-1
  Print Sp%;Tab(5);S$(Sp%)
  If Sp%>Ms
    Print "Oops! Not enough room reserved for all satellite elements."
    Print "Increase the variable -Ms- to a higher number and try again."
    Edit
  Endif
  If Inp?(2)
    If Inp(2)=27
      Edit
    Endif
  Endif
Loop
On Error
If Sp%=0
  Gosub Missing
Endif
Close #1
Mxsp%=Sp%-1
Rem   ******** Here follows the actual computation loop *********
Cls
Setcolor 0,0,0,0  ! For color 0 (black -- background)
Setcolor 1,0,0,7  ! For color 2 (blue -- trails)
Setcolor 3,7,0,0  ! For color 1 (red -- satellites/text/arrow)
Setcolor 2,3,2,0  ! For color 3 (brown -- world map)
Deffill 3,1
White!=False
Hilite!=False
Facts!=False
Clkon!=False
Mapon!=True
D$=Chr$(248)
Gosub Map
Do
  For Sp%=1 To Mxsp%
    T=T7+(Timer-Tstart)/17280000
    Gosub Fnc
    Gosub Fnm
    Gosub Fnk
    Gosub Fnx
    Color 2
    If Hilite!
      If Sp%=Sr%
        Color 1
      Endif
    Endif
    Plot Xx%(Sp%),Yy%(Sp%)
    Yy%(Sp%)=1.11111111*(90-L5)
    Wx5=W5+180
    If Wx5>=360
      Wx5=Wx5-360
    Endif
    Xx%(Sp%)=1.77777777*(360-Wx5)
    Color 1
    Plot Xx%(Sp%),Yy%(Sp%)
    If Facts!
      Swap Sp%,Sr%
      T=T7+(Timer-Tstart)/17280000
      Gosub Fnc
      Gosub Fnm
      Gosub Fnk
      Gosub Fnx
      Print "AZ=";Int(A9);D$;Tab(8);"EL=";Int(E9);D$;Tab(16);"ALT=";
      Print Int((R-R0)*0.6215);"m";Tab(28);"LT=";Int(L5);D$;Tab(36);
      Print "LN=";Int(W5);D$;Tab(44);"ORB#=";K;Tab(56);S$(Sp%);Chr$(13);
      Swap Sp%,Sr%
    Endif
    If Mousek<>0
      Xm%=Mousex
      Ym%=Mousey
      Hilite!=False
      Facts!=False
      Pause 5
      Mk%=Mousek
      If Mk%=3
        Cls
        Gosub Map
      Else
        Print Spc(78);Chr$(13);
        If Mk%=1 Or Mk%=2
          Found!=False
          For Sr%=0 To Mxsp%
            If ((Xx%(Sr%)-Xm%) And &HFFE)=0 And ((Yy%(Sr%)-Ym%) And &HFFE)=0
              Found!=True
              Print Chr$(7);    ! Sound bell!
              Pause 50
            Endif
            Exit If Found!
          Next Sr%
          If Sr%=0
            Found!=False
            Print "That's not a satellite, that's you!";Chr$(13);
          Endif
          If Mk%=1
            Facts!=Found!
          Endif
          If Mk%=2
            Hilite!=Found!
          Endif
        Endif
      Endif
    Endif
    If Inp?(2)
      Ex$=Inkey$
      If Ex$=Chr$(27)      ! Esc key quits.
        Gosub Done
      Endif
      If Ex$=Chr$(0)+"b"   ! Help key
        Gosub Help
      Endif
      If Ex$=Chr$(0)+"G"   ! Clr/Home key clears screen
        Cls
        Facts!=False
        Hilite!=False
        Gosub Map
      Endif
      If Ex$=Chr$(0)+";"   ! F1 - toggel background
        White!=Not White!
        If White!
          Setcolor 0,7,7,7
          Setcolor 1,0,0,0
          Setcolor 2,5,6,3
        Else
          Setcolor 0,0,0,0
          Setcolor 1,0,0,7
          Setcolor 3,7,0,0
          Setcolor 2,3,2,0
        Endif
      Endif
      If Ex$=Chr$(0)+"<"   ! F2 - toggel world map drawing
        Mapon!=Not Mapon!
        If Mapon!
          Print "Map will be redrawn after next CLR/HOME    ";Chr$(13);
        Else
          Print "Map will not be redrawn after next CLR/HOME";Chr$(13);
        Endif
        Pause 25
      Endif
      If Ex$=Chr$(0)+"="   ! F3 - toggel clock
        Clkon!=Not Clkon!
        If Not Clkon!
          Text 480,199,0,"                   "
          Fill 481,198
        Else
          Deftext 1,0,0,6
          Text 480,199,0,Time$+" "+Date$
        Endif
      Endif
    Endif
  Next Sp%
  If Clkon!
    Text 480,199,0,Time$+" "+Date$
  Endif
Loop
End
Procedure Missing
  Print "The data file is missing or empty!  You need the orbital elements"
  Print "data for each satellite -- available on-line from the Celestial BBS,"
  Print " @ 513-427-0674, Fairborn Ohio, TS Kelso -- sysop."
  Print
  Print "Or, if you have the file, make sure you change the path in the first"
  Print "few lines of this program to point to it!  Right now the path is set"
  Print "to point at ";El$
  Stop
Return
Procedure Baddy
  Print "The data file ";El$;" has problems."
  Print "The most likely problem is that the line at the end of the file is"
  Print "not terminated by a carriage return (CR) and/or line feed (LF)."
  Print "Please correct the file and try it again!"
  Stop
Return
Procedure Done
  Color 1
  Setcolor 0,7,7,7
  Setcolor 3,0,0,0
  Setcolor 1,7,0,0
  Setcolor 2,0,7,0
  Edit
Return
Procedure Help
  Alt$="Aim mouse arrow to select:"
  Alt$=Alt$+"|Satellite's data -left button"
  Alt$=Alt$+"|Highlight trail  -right button"
  Alt$=Alt$+"|Clear screen     -both buttons"
  Alert 0,Alt$,1,"Resume|MoreHelp|STOP!",But
  If But=2
    Alt$="F1  - Toggel background color"
    Alt$=Alt$+"|F2  - World-map off/on"
    Alt$=Alt$+"|Esc - Stop program"
    Alt$=Alt$+"|Clr/Home - Clear screen"
    Alert 0,Alt$,1,"Resume|MoreHelp",But
    If But=2
      Alt$="To sight actual satellite:"
      Alt$=Alt$+"|AZ: 0=North, 90=East 180S/270W"
      Alt$=Alt$+"|EL: 0=Horizon, 90=Straight up"
      Alert 0,Alt$,1,"Resume|MoreHelp",But
      If But=2
        Alt$="ALT: Altitude(Miles/sea-level)"
        Alt$=Alt$+"|LT/LN: Latitude/Longitude"
        Alt$=Alt$+"|ORB#: Current revolution #"
        Alt$=Alt$+"|- xx - Description & Sat #"
        Alert 0,Alt$,1,"Resume|MoreHelp",But
        If But=2
          Alt$="Misc functions:"
          Alt$=Alt$+"|F3 - Show clock on/off"
          Alt$=Alt$+"|ALT+HELP - Print screen"
          Alt$=Alt$+"|Hint: F1 before printing!"
          Alert 0,Alt$,1,"EndHelp",But
        Endif
      Endif
    Endif
  Else
    If But=3
      Gosub Done
    Endif
  Endif
Return
Rem ********** ORBIT DETERMINATION ROUTINES ******************
Procedure Fnc
  Rem Routine to initialize the C(J,K) coordinate rotation matrix
  Rem   and other parameters associated with the orbital elements.
  A0(Sp%)=((G0/(N0(Sp%)^2))^(1/3))
  E2=1-E0(Sp%)^2
  E1=Sqr(E2)
  Q0=M0(Sp%)/360+K0(Sp%)                       ! Q0=initial orbit phase
  Rem -----Account for nodal effects due to lumpy gravity field due to
  Rem        the flattened, oblate spheroid shape of Earth
  K2=9.95*((R0/A0(Sp%))^3.5)/(E2^2)
  Rem Update elements to current epoch and evaluate their SIN/COSs
  S1=Sin(I0(Sp%)*P0)
  C1=Cos(I0(Sp%)*P0)                      ! I0=inclination
  O=O0(Sp%)-(T-T0(Sp%))*K2*C1
  S0=Sin(O*P0)
  C0=Cos(O*P0)                       ! O = R.A.A.N. (deg)
  W=W0(Sp%)+(T-T0(Sp%))*K2*(2.5*(C1^2)-0.5)
  S2=Sin(W*P0)
  C2=Cos(W*P0)                       ! W = arg of perigee
  Rem Set up coordinate rotation matrix for the current orbit
  C(1,1)=+(C2*C0)-(S2*S0*C1)
  C(1,2)=-(S2*C0)-(C2*S0*C1)
  C(2,1)=+(C2*S0)+(S2*C0*C1)
  C(2,2)=-(S2*S0)+(C2*C0*C1)
  C(3,1)=+(S2*S1)
  C(3,2)=+(C2*S1)
Return
Rem ------------------------------------------------------------------
Procedure Fnm
  Rem ---- Function to evaluate M = MEAN ANOMALY in 0-2pi range----
  Rem          K = perigee passage counter
  Rem          used by Phase-3 telemetry on General Beacon
  Q=N0(Sp%)*(T-T0(Sp%))+Q0
  K=Int(Q)
  M=(Q-K)*P2
Return
Rem -----------------------------------------------------------------
Procedure Fnk
  Rem Routine to solve KEPLER's equation, given M
  Rem  returns satellite's GEOCENTRIC coordinates
  E=M+E0(Sp%)*Sin(M)+0.5*(E0(Sp%)^2)*Sin(2*M)      !     initial trial value
  Rem  interation loop to solve Kepler's transcental equation-------
  Do
    S3=Sin(E)
    C3=Cos(E)
    R3=1-E0(Sp%)*C3
    M1=E-E0(Sp%)*S3
    M5=M1-M
    Exit If Abs(M5)<1.0E-06
    E=E-M5/R3
  Loop
  Rem  Now get satellite's XYZ coordinates------------
  X0=A0(Sp%)*(C3-E0(Sp%))
  Y0=A0(Sp%)*E1*S3
  R=A0(Sp%)*R3                        ! in the plane of the orbit
  Rem Now rotate from orbital plane to INERTIAL CELESTIAL Coordinates
  X1=X0*C(1,1)+Y0*C(1,2)
  Y1=X0*C(2,1)+Y0*C(2,2)
  Z1=X0*C(3,1)+Y0*C(3,2)
  Rem Rotate through current GHA of Aries, convert to GEOCENTRIC coordinates
  G7=T*G1+G2
  G7=(G7-Int(G7))*P2
  S7=-Sin(G7)
  C7=Cos(G7)
  X=+(X1*C7)-(Y1*S7)
  Y=+(X1*S7)+(Y1*C7)
  Z=Z1
Return
Rem ----------------------------------------------------------
Procedure Fnx
  Rem Routine to extract all the parameters you might ever need
  Rem    First get Vector from observer to satellite--
  X5=(X-X9)
  Y5=(Y-Y9)
  Z5=(Z-Z9)
  R5=Sqr(X5^2+Y5^2+Z5^2)
  Rem Now rotate into observer' s LOCAL Coordinates----
  Rem where X8=North, Y8=East, Z8=Up (Left-handed system)
  Z8=+(X5*C8*C9)+(Y5*S8*C9)+(Z5*S9)
  X8=-(X5*C8*S9)-(Y5*S8*S9)+(Z5*C9)
  Y8=+(Y5*C8)-(X5*S8)
  S5=Z8/R5
  C5=Sqr(1-S5*S5)
  E9=(Atn(S5/C5))/P0                   ! E9=elevation
  Dx=X8
  Dy=Y8
  Gosub Fna
  A9=D/P0                              ! FNA resolves quadrant A9=Azimuth
  Dx=X
  Dy=Y
  Gosub Fna
  W5=360-D/P0                          ! W5=SubSatellitePoint W.long.
  B5=Z/R
  L5=Atn(B5/(Sqr(1-B5^2)))/P0          ! L5=SSP Lat.
Return                            !---note R-R0=sat. alt. above mean spheroid
Rem --------------------------------------------------------------------
Procedure Fna
  Rem Calculates INVERSE TANGENT in proper quadrant ala FORTRAN ATAN2
  If Dx<0
    D=Pi+Atn(Dy/Dx)         ! Q2 or Q3
  Endif
  If Dx>0                   ! Q1 or Q4
    If Dy>=0
      D=Atn(Dy/Dx)
    Else
      D=P2+Atn(Dy/Dx)
    Endif
  Endif
  Rem The two cases for DX=0
  If Dx=0
    If Dy>=0
      D=Pi/2
    Else
      D=3*Pi/2
    Endif
  Endif
Return
Rem -------------------------------------------------------------------
Procedure Map
  Cls
  If Mapon!
    Arrayfill Xx%(),-1
    Arrayfill Yy%(),-1
    Restore Map
    For Mj%=0 To 199
      Read Lvt%(Mj%)
    Next Mj%
    Green!=False
    For My%=0 To 199
      Ox%=0
      Nx%=640
      Lvs%=Lvt%(My%)
      Repeat
        If Lvs%<>0
          Read Nx%
        Endif
        If Green!
          Color 3
        Else
          Color 0
        Endif
        Draw Ox%,My% To Nx%,My%
        Ox%=Nx%
        If Lvs%<>0
          Green!=Not Green!
        Endif
        Dec Lvs%
      Until Lvs%<=0
      If Green!
        Color 3
        Draw Nx%,My% To 640,My%
      Endif
    Next My%
  Endif
  Yy%(0)=1.11111111*(90-L9)
  Wx5=W9+180
  If Wx5>=360
    Wx5=Wx5-360
  Endif
  Xx%(0)=1.77777777*(360-Wx5)
  Color 2
  Circle Xx%(0),Yy%(0),3
  Color 1
  Plot Xx%(0),Yy%(0)
Return
Rem World map data (by John Logajan) in scanned form (for data compression),
Rem left to right, top to bottom (0-639, 0-199.)
Rem The first 200 datums represent the number of color transitions per each
Rem line.  The remaining datums represent each X coordinate at which the
Rem transitions occur -- it is up to the software to keep track of the Y
Rem coordinate based on the transitions-count-per-line data.
Map:
Data 0,0,0,0,0,0,0,2,4,4,8,12,12,18,18,22,16,10,24,20,21,20,19,18,13,10,12,14
Data 16,17,14,12,12,16,18,18,18,16,18,20,18,20,18,10,12,8,10,12,12,16,20,18,20
Data 18,14,20,22,16,16,16,16,14,8,10,10,10,6,12,14,12,14,12,20,14,14,20,18,18
Data 18,18,14,12,14,12,12,12,18,18,16,20,16,12,14,16,12,10,10,10,14,16,18,18,12
Data 16,20,14,18,14,10,10,14,10,10,10,12,14,12,12,13,11,10,8,12,12,10,8,8,8,8,6
Data 6,6,6,6,6,6,8,8,10,6,6,6,6,6,4,6,6,6,8,6,4,4,4,2,4,4,2,4,4,2,4,4,0,0,0,0,0
Data 2,2,2,2,2,4,8,6,6,8,8,4,6,6,6,6,6,4,5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,236,283
Data 163,201,207,285,159,196,203,300,157,182,198,297,352,369,485,495,146,156
Data 164,177,189,194,200,290,339,369,483,498,145,159,162,185,191,288,340,360
Data 490,496,501,507,114,117,121,126,135,139,146,159,161,186,190,287,342,354
Data 356,365,497,509,100,106,112,117,148,158,160,182,193,288,346,351,358,362
Data 436,443,496,520,99,106,113,116,125,131,136,139,141,144,149,156,159,180,196
Data 286,423,443,479,523,567,575,135,138,148,154,175,179,216,287,418,432,473
Data 523,565,578,581,589,98,111,161,171,218,286,416,427,470,522,99,110,114,121
Data 126,132,137,142,146,153,159,178,180,185,220,284,414,423,443,448,462,549
Data 569,576,97,110,111,135,137,141,145,154,160,189,220,282,411,419,442,450,452
Data 551,567,587,0,5,41,45,98,109,110,136,145,155,160,195,220,282,411,421,439
Data 551,554,591,637,3,31,61,88,93,114,139,146,154,170,199,222,282,357,376,414
Data 422,438,605,638,0,30,75,79,107,146,158,165,169,182,201,222,281,350,382,425
Data 434,438,632,0,4,24,121,128,138,142,171,184,202,226,276,345,388,396,402,406
Data 636,0,9,24,122,126,174,182,206,224,267,342,393,397,15,29,175,183,211,224
Data 261,343,394,397,19,22,166,186,210,224,259,277,282,284,294,342,16,21,164
Data 169,174,180,208,225,250,276,296,340,360,363,0,8,13,24,162,166,175,180,205
Data 227,249,277,295,337,359,360,0,14,19,27,159,165,175,191,206,228,248,279,291
Data 333,357,358,639,25,159,181,191,194,206,229,245,306,309,329,352,357,636,24
Data 155,181,193,199,203,231,246,328,351,357,631,24,153,181,197,233,245,328,352
Data 357,597,604,627,28,56,61,152,182,197,203,207,239,244,329,354,360,596,605
Data 617,32,52,73,155,180,199,201,209,311,315,329,353,359,585,588,596,603,613
Data 37,50,75,156,181,211,307,317,330,336,340,350,352,355,358,571,599,611,36,43
Data 47,50,78,161,183,212,307,317,341,350,352,354,357,569,597,610,32,40,45,47
Data 79,165,183,212,309,316,341,349,357,566,596,611,27,37,82,174,179,215,305
Data 307,310,318,334,340,343,346,356,566,596,608,26,29,83,86,87,174,178,219,302
Data 308,310,320,335,342,347,569,572,574,596,609,20,25,83,86,87,176,179,221,302
Data 308,312,321,329,570,571,575,596,605,84,87,90,143,147,177,179,221,303,308
Data 311,324,328,570,571,575,597,602,626,629,5,7,86,88,92,177,179,222,301,308
Data 310,323,326,570,571,575,598,602,91,216,312,321,323,570,572,576,597,600,92
Data 214,217,222,310,314,321,570,572,576,595,597,95,211,216,221,318,570,572,577
Data 98,161,166,206,214,224,315,570,572,574,99,159,163,165,168,207,216,223,314
Data 568,572,575,99,158,161,214,316,410,414,566,572,575,586,588,99,167,173,213
Data 318,374,378,406,412,426,428,565,571,573,582,587,99,164,168,172,175,210,317
Data 373,379,383,386,404,409,424,428,563,571,576,581,583,99,163,166,173,178,197
Data 202,205,305,345,347,372,389,405,411,561,571,580,98,163,166,174,177,195,303
Data 327,329,332,338,345,350,370,391,405,411,559,568,579,98,196,304,326,335,337
Data 339,349,352,370,377,385,393,407,412,553,568,575,99,193,304,324,334,338,342
Data 352,354,409,413,551,568,572,99,189,304,321,325,327,334,338,346,353,354,363
Data 366,410,413,535,536,549,568,573,100,188,303,320,324,326,334,338,348,351
Data 355,362,366,408,414,533,535,539,542,548,568,573,100,187,303,321,341,350
Data 356,364,366,407,415,531,541,549,567,572,102,186,304,319,342,348,357,363
Data 368,410,415,538,542,550,563,571,103,186,308,317,320,339,345,348,358,362
Data 369,538,544,551,561,571,104,186,310,313,318,340,361,367,378,382,383,534
Data 544,551,556,571,105,185,308,340,363,367,377,381,383,534,544,549,552,569
Data 108,182,305,340,382,535,551,563,111,180,303,346,356,362,381,535,550,559
Data 112,177,303,348,355,366,381,537,551,555,113,117,118,176,302,353,355,537
Data 551,554,113,117,119,176,302,538,114,118,120,162,168,177,295,297,301,406
Data 410,537,116,120,121,151,172,177,290,293,294,296,300,407,410,537,115,121
Data 123,148,172,178,298,382,383,408,411,535,117,122,124,148,173,178,180,183
Data 294,381,384,410,414,534,120,123,125,148,174,178,294,382,385,412,419,533
Data 120,124,127,147,175,177,180,182,293,383,386,412,416,421,428,436,438,532
Data 534,537,122,125,128,147,181,183,292,384,386,425,439,531,533,537,124,126
Data 130,147,171,179,291,384,388,426,442,529,533,536,35,37,39,40,132,147,169
Data 173,176,183,290,386,389,427,442,482,483,524,534,535,38,40,41,43,132,148
Data 159,166,289,387,389,426,443,478,483,513,514,519,41,45,132,149,159,165,184
Data 189,290,387,390,425,449,475,484,510,514,518,42,45,132,149,158,165,185,194
Data 290,387,392,423,449,473,486,509,513,518,135,165,187,191,197,201,291,388
Data 393,423,449,471,486,509,513,517,534,538,138,164,198,201,291,389,394,421
Data 450,469,488,510,533,538,141,164,290,390,395,418,450,467,487,512,533,538
Data 145,171,290,391,395,414,450,465,487,491,493,513,532,537,155,173,289,394
Data 396,412,451,463,493,514,533,537,156,173,290,395,396,407,452,463,494,515
Data 534,541,160,172,290,404,452,463,495,515,534,537,538,541,164,172,191,198
Data 290,398,414,418,453,463,495,498,501,515,534,537,540,544,166,172,187,199
Data 292,398,404,412,454,462,495,498,502,515,532,533,536,544,167,173,185,212
Data 293,411,455,462,495,497,504,512,531,533,536,543,167,174,177,181,184,212
Data 295,411,455,461,462,464,495,498,506,510,529,532,537,545,171,214,296,410
Data 456,460,461,465,494,499,506,508,528,530,538,545,174,178,180,216,297,409
Data 461,466,494,499,537,546,181,218,298,409,461,466,495,501,527,530,536,538
Data 540,546,182,225,301,324,328,408,462,465,489,491,496,503,526,531,540,545
Data 182,228,303,319,329,407,489,495,498,504,523,533,182,230,330,405,490,497
Data 499,504,521,531,182,230,335,404,492,498,500,504,518,529,180,230,337,403
Data 493,500,517,530,546,548,178,232,336,400,492,504,515,532,534,538,541,543
Data 546,549,157,158,177,231,336,398,496,505,515,532,533,535,537,542,546,549
Data 157,159,176,237,335,376,381,397,497,505,515,529,532,534,546,548,551,562
Data 157,158,176,241,336,375,380,395,498,509,515,529,532,536,546,549,552,567
Data 176,244,336,394,499,510,515,528,531,535,554,571,177,251,337,392,500,510
Data 516,527,531,541,544,553,554,576,589,591,175,253,339,391,502,509,523,526
Data 532,535,536,539,544,547,551,553,556,578,589,593,175,258,340,390,503,509
Data 532,535,537,540,562,580,588,592,175,258,341,390,505,510,532,535,538,540
Data 558,560,565,582,585,591,595,597,176,259,342,391,512,523,558,560,566,582
Data 586,588,595,598,178,259,342,390,509,525,543,546,566,584,179,259,343,391
Data 517,547,569,576,580,584,180,258,343,391,531,535,539,544,570,575,581,587
Data 603,606,180,257,343,393,539,542,582,589,605,609,181,255,344,393,551,557
Data 572,574,608,609,182,254,344,393,406,409,551,564,572,575,12,13,184,253,342
Data 392,406,409,551,564,572,576,12,16,184,251,342,393,404,410,544,547,550,562
Data 571,576,185,251,341,393,404,410,542,562,571,579,616,618,186,251,340,392
Data 400,410,541,565,571,579,616,618,189,251,340,391,398,409,537,568,570,580
Data 617,619,637,0,192,251,340,390,398,408,537,580,635,638,195,250,341,386,398
Data 408,536,581,635,638,195,250,342,384,398,408,535,583,195,249,342,382,398
Data 407,421,423,530,585,612,613,195,248,343,383,397,407,418,420,525,586,612
Data 616,195,248,344,383,396,406,522,588,614,618,194,246,345,384,396,405,522
Data 589,194,240,345,384,397,405,521,590,194,237,345,383,397,405,521,592,194
Data 235,346,381,399,404,521,592,194,234,346,379,521,593,193,234,347,379,522
Data 593,193,234,348,378,523,594,192,233,349,377,524,593,192,231,350,375,524
Data 593,192,230,350,375,525,593,192,230,352,373,525,592,192,227,351,372,525
Data 543,558,591,192,226,352,369,524,541,559,590,191,225,354,365,524,533,560
Data 589,627,629,191,219,562,588,627,631,190,220,563,588,628,633,189,219,568
Data 587,630,638,188,218,570,586,630,637,189,215,574,581,628,637,188,210,629
Data 635,188,210,577,584,626,634,188,207,577,584,624,633,188,207,578,584,623
Data 630,5,7,187,205,579,582,620,628,6,7,187,205,617,626,187,204,616,625,185
Data 201,616,624,185,204,617,620,185,204,185,201,442,446,185,200,442,445,186
Data 198,186,198,213,218,186,199,214,216,188,200,189,205,252,257,193,205,255
Data 257,237,241,215,218,212,218,212,220,207,219,205,216,545,551,203,215,497
Data 511,516,528,544,566,196,214,409,425,466,577,196,211,394,444,460,582,192
Data 210,379,446,456,587,593,601,185,189,192,210,332,344,369,607,184,211,306
Data 618,173,178,184,212,298,625,137,158,171,212,295,624,100,113,127,213,287
Data 620,97,114,125,213,279,617,70,88,95,211,275,613,54,209,271,610,0,219,262
Data 610,627,226,256
Rem -- SYMBOL TABLE -- (ala Clark and Tilley)
Rem A0 = SEMI-MAJOR axis
Rem A9 = Azimuth
Rem Cn = COSines, C(J,K) also
Rem E0 = eccentricity of orbit
Rem E8 = observer horizion
Rem E9 = satellite elevation
Rem G0 = GM of Earth
Rem G1 = Sidereal/Solar
Rem G2 = New Year's sidereal time
Rem G7 = GHA Aries
Rem H1 = Hours duration
Rem H3 = Hour epoch
Rem H4 = Hour
Rem H9 = observer height
Rem K0 = initial orbit #
Rem K  = orbit counter
Rem K7 = INT(T)
Rem L5 = SSP LATITUDE
Rem L8 = GEOCENTRIC latitude
Rem L9 = observer longitude
Rem M  = mean anomaly
Rem M0 = mean anomaly of ref epoch
Rem M3 = ref epoch minutes
Rem M4 = integer minutes
Rem M5 = difference in Transcendental Eq.
Rem N0 = mean motion
Rem O, O0 = R.A.A.N.
Rem P0,P1,P2 variations on a theme of PI
Rem Q,Q0 = total orbits
Rem R = ? in plane of orbit
Rem R5 = range
Rem R6 = previous range
Rem R9 intermediate for GEOCENTRICs
Rem Ss used for SIN
Rem T0 = ref time in orbit days
Rem W, W0 arg of perigee
Rem W5 = SSP W. long.
Rem W9 = observers W. long
Rem X0,Y0,R coord in plane of orbit
Rem X1,Y1,Z1 "    " INERTIAL CELESTIAL
Rem X,Y,Z in GEOCENTRIC coordinates
Rem X9,Y9,R9 are observer's GEOCENTRIC coordinates
Rem X5,Y5,Z5 ==> R5  vector from observer to satellite
Rem X8,Y8,Z8 are observer's LOCAL Coordinates

SHAR_EOF
cat << \SHAR_EOF > orbitals.dat

The most current orbital elements from the NASA Prediction Bulletins are
carried on the Celestial RCP/M, (513) 427-0674, and are updated several times
weekly.  Documentation and tracking software are also available on this
system.

The Celestial RCP/M may be accessed 24 hours/day at 300, 1200, or 2400 baud
using 8 data bits, 1 stop bit, no parity.

- Current NASA Prediction Bulletins #546 -
Alouette 1 
1 00424U          89206.16793576 0.00000172           19720-3 0  2241
2 00424  80.4633 248.4238 0024150  36.2692 324.0085 13.67172480338002
SOLRAD R/B 
1 00727U 64001  A 89198.56177170  .00000164  00000-0  15604-3 0  2797
2 00727  69.9022  30.4841 0011954  55.4275 304.7932 13.93553262297324
Cos 185 R/B
1 03019U 67104  B 89198.54646773  .00004760  00000-0  32780-3 0  3891
2 03019  64.0624  18.9846 0219843 225.3173 132.9859 14.89572043109609
ATS 3      
1 03029U 67111  A 89187.56917568 -.00000074  00000-0  99999-4 0  2365
2 03029  12.7757  24.1274 0015540 194.3702 165.6963  1.00272176 79330
Cosmos 398 
1 04966U 71 16  A 89199.72951283 -.00016207  00000-0 -10554-3 0  8303
2 04966  51.5658 319.5495 2511049 266.1090  65.2085 10.54262717555713
LAGEOS     
1 08820U          89206.77237598 0.00000005                   0  8285
2 08820 109.8345 243.2992 0044897 307.8156  51.8574  6.38664132 53099
GOES 2     
1 10061U          89193.69270730 -.00000018                   0  2869
2 10061   7.2367  67.9134 0005870  97.5785 262.2768  1.00279674  5639
GPS-0001   
1 10684U          89202.85871690 0.00000011           10000-3 0  1698
2 10684  63.6023  99.7113 0108902 198.3317 161.3557  2.00559884 69221
GPS-0002   
1 10893U          89201.32278087 -.00000027                   0    87
2 10893  64.4770 340.6383 0154404  28.1763 332.6305  2.00549743 82010
GOES 3     
1 10953U          89198.73487946 0.00000088           10000-3 0  6896
2 10953   6.1136  70.5293 0006800 259.6167 100.2746  1.00274815  1248
SeaSat 1   
1 10967U          89197.23438422 0.00000977           38799-3 0  1437
2 10967 108.0115 347.4202 0002168 235.2265 124.8673 14.34718776578251
GPS-0003   
1 11054U          89204.62709625 -.00000027                   0   653
2 11054  64.0167 336.9646 0060222 114.0010 246.6680  2.00561675 79092
GPS-0004   
1 11141U          89204.72662801 0.00000010                   0  1804
2 11141  63.5822  99.6011 0057467 321.4893  38.1454  2.00571030 77794
NOAA 6     
1 11416U          89200.05544746 0.00000829           36445-3 0  8753
2 11416  98.5094 196.1955 0012703  22.3345 337.8387 14.25872183522445
Solar Max  
1 11703U          89201.89658051 0.00059458           78802-3 0   285
2 11703  28.4937  40.2847 0000586  68.4626 291.6007 15.56850600525095
GPS-0006   
1 11783U          89202.68997067 -.00000027                   0  9317
2 11783  63.9528 336.6909 0143336  61.9063 299.5654  2.00568321 67691
GOES 4     
1 11964U          89198.09983592 -.00000043                   0   594
2 11964   5.5501  73.3770 0033168  94.9661 265.3246  0.99228840  2329
GOES 5     
1 12472U          89191.00000000 -.00000249           10000-3 0  7407
2 12472   2.6193  79.9038 0001682 120.2420  23.8683  1.00267489 28808
SME        
1 12887U 81100  A 89198.60724050  .00015696  00000-0  53802-3 0  2468
2 12887  97.6841 225.6881 0003215 118.0081 242.1476 15.30277523429809
UOSAT 1    
1 12888U          89204.08152074 0.00099250           89255-3 0  6439
2 12888  97.5502 260.2192 0000794 345.5117  14.5401 15.67921102434601
Meteor 2-08
1 13113U          89204.00241408 0.00000167           14110-3 0  6564
2 13113  82.5370  30.2903 0015066 327.4850  32.5383 13.84020055370192
Salyut 7   
1 13138U          89206.08301020 0.00004463           10793-3 0  6700
2 13138  51.6084 131.6728 0001507 128.3129 231.8984 15.43251658414047
LandSat 4  
1 13367U 82 72  A 89198.64210169  .00001099  00000-0  25410-3 0   257
2 13367  98.2119 261.8410 0003570  97.4120 262.7608 14.57119054372585
Meteor 2-09
1 13718U          89198.61733429 0.00000206           10247-3 0  7970
2 13718  81.2447 251.7785 0054867 272.8515  86.6395 14.13238180339859
IRAS       
1 13777U          89199.57374005 -.00000334          -22041-3 0  6598
2 13777  99.0426  36.2509 0012030 223.9617 136.0646 13.98617482   306
TDRS 1     
1 13969U 83 26  B 89193.61106535 -.00000183  00000-0  00000 0 0  8197
2 13969   3.6420  68.4417 0002893 137.6679 225.5675  1.00123858 89665
GOES 6     
1 14050U          89197.78372817 0.00000114                   0  9878
2 14050   1.3661  82.3935 0001858 111.0113 248.3075  1.00287640  6901
OSCAR 10   
1 14129U          89202.10971599 -.00000084                   0  4175
2 14129  26.0887 253.9637 6053670  60.6568 346.2092  2.05883104 17918
GPS-0008   
1 14189U          89204.77202103 0.00000010           10000-3 0  6472
2 14189  63.2041  98.2080 0136478 215.3731 143.7755  2.00567719 44174
Meteor 2-10
1 14452U          89204.06734195 0.00000522           21975-3 0  7515
2 14452  81.1648 257.5931 0095433 354.0213   5.9821 14.22260082297640
LandSat 5  
1 14780U          89207.04971353 0.00000739           17364-3 0  8416
2 14780  98.1656 268.5478 0003865 111.5435 248.6087 14.57132172287228
UOSAT 2    
1 14781U 84 21  B 89199.62625717  .00001626  00000-0  32042-3 0  4813
2 14781  98.0027 257.5120 0012166 219.4269 140.6050 14.63764368287146
LDEF       
1 14898U          89203.36779891 0.00028572           43127-3 0  9142
2 14898  28.5060 288.4742 0000305 293.9869  66.0580 15.53295791296922
GPS-0009   
1 15039U          89203.83458933 0.00000009                   0  7055
2 15039  62.7617  97.2295 0012949 206.4440 153.6685  2.00568700 37437
Meteor 2-11
1 15099U          89198.39046606 0.00000145           12119-3 0  9573
2 15099  82.5295 342.3507 0013080 147.4673 212.7293 13.83679414254299
GPS-0010   
1 15271U          89205.72943660 -.00000027                   0  6756
2 15271  63.3556 336.3361 0100019 321.0446  38.0588  2.00566524 34584
Cosmos 1602
1 15331U          89194.80061499 0.00002232           32106-3 0   546
2 15331  82.5390 313.8830 0025148   1.4155 358.7130 14.75782144258144
NOAA 9     
1 15427U          89196.47764042 0.00000488           28734-3 0  4043
2 15427  99.1448 183.9754 0014425 233.1046 126.8803 14.12086380236448
Meteor 2-12
1 15516U          89204.60370140 0.00000358           31246-3 0  1000
2 15516  82.5350 275.7939 0017505  17.9536 342.2241 13.84145796226099
Cosmos 1686
1 16095U          89205.69444412 0.00020490           46125-3 0  3190
2 16095  51.6090 133.5796 0001120 115.5547 244.4815 15.43260670215088
GPS-0011   
1 16129U          89205.88500538 0.00000010                   0  3410
2 16129  63.7328  98.1204 0118094 149.8658 210.8873  2.00563934 27794
Meteor 3-1 
1 16191U          89204.98012498 0.00000043           10000-3 0  8418
2 16191  82.5457 209.7207 0018896 204.8083 155.2143 13.16870606180362
Meteor 2-13
1 16408U          89204.97574168 0.00000112           94947-4 0  5153
2 16408  82.5350 190.3584 0015447 192.8233 167.2520 13.84191299180642
Mir        
1 16609U          89205.39540184 -.00008640          -11215-3 0  9543
2 16609  51.6196 177.4198 0009423 191.1241 168.9523 15.57421363196968
SPOT 1     
1 16613U          89207.05108603 0.00000626           31158-3 0  5390
2 16613  98.7367 281.0995 0001802  81.9325 278.2091 14.20034337 17646
Meteor 2-14
1 16735U          89205.02762104 0.00000109           93312-4 0  3094
2 16735  82.5350 217.1531 0012761 270.4679  89.5000 13.83938849159552
Cosmos 1766
1 16881U          89207.05339059 0.00001437           20739-3 0  6775
2 16881  82.5248   2.0576 0022790 337.5195  22.5000 14.75440085161025
EGP        
1 16908U          89202.18032835 -.00000038           77810-5 0  1479
2 16908  50.0064 193.5888 0011257  74.2487 285.9588 12.44379520133640
FO-12      
1 16909U          89197.10014353 -.00000025           10000-3 0  1630
2 16909  50.0167 209.4498 0011078  60.4152 299.7766 12.44400597133006
NOAA 10    
1 16969U          89200.21509624 0.00000598           28162-3 0  2513
2 16969  98.6366 230.0955 0013415 153.2927 206.8943 14.23090983148495
Meteor 2-15
1 17290U          89204.23805203 0.00000216           18513-3 0  2728
2 17290  82.4688 124.8780 0012784 154.3441 205.8358 13.83741427128609
MOS-1      
1 17527U 87 18  A 89199.02136141 -.00000388  00000-0 -27596-3 0  1872
2 17527  99.1484 270.2132 0000531  56.6570 303.4662 13.94831938122675
GOES 7     
1 17561U 87 22  A 89196.48328078 -.00000046  00000-0  99999-4 0  3008
2 17561   0.0171 117.6897 0002124 328.5324 273.7952  1.00272540  2048
Kvant      
1 17845U          89205.58789710 0.00027395           37108-3 0  8192
2 17845  51.6217 176.4560 0008890 193.4524 166.6002 15.57436073133268
DMSP B5D2-3
1 18123U 87 53  A 89197.02695732  .00000640  00000-0  35987-3 0  3478
2 18123  98.8252  27.1514 0013117 260.6515  99.3174 14.13471492106904
RS-10/11   
1 18129U          89206.02614146 0.00000078           79289-4 0  8262
2 18129  82.9239 210.1998 0010652 312.2194  47.8085 13.71991825104588
Cosmos 1867
1 18187U 87 60  A 89198.97796186  .00000132  00000-0  69311-4 0  8858
2 18187  65.0147 296.5794 0019568 256.3044 103.5840 14.29382746105525
Cosmos 1870
1 18225U          89206.76974459 0.00141952  11453-4  16950-3 0  1552
2 18225  71.8628 310.9157 0016331 252.2513 107.7208 16.07994556117480
Meteor 2-16
1 18312U          89204.42835747 0.00000219           18868-3 0  2952
2 18312  82.5524 190.8171 0013701  90.0786 270.1941 13.83494008 97529
Meteor 2-17
1 18820U          89205.69077344 0.00000176           14776-3 0  1356
2 18820  82.5427 250.7488 0016955 159.4792 200.7026 13.84186077 74874
DMSP B5D2-4
1 18822U 88  6  A 89198.42622926  .00000551  00000-0  27225-3 0  2468
2 18822  98.6986  78.6651 0006110 152.8227 207.3284 14.20830029 75295
AO-13      
1 19216U          89186.15508008 -.00000132           10000-3 0   382
2 19216  57.2070 200.8551 6748913 207.0433  90.2906  2.09703317  8118
OKEAN 1    
1 19274U 88 56  A 89199.05309436  .00002434  00000-0  35763-3 0  4351
2 19274  82.5184 108.0916 0024166 128.8964 231.4413 14.74959851 55635
Meteor 3-2 
1 19336U          89204.81473383 0.00000391           10000-2 0  2226
2 19336  82.5418 149.7562 0019050  54.2703 306.0096 13.16855216 47735
NOAA 11    
1 19531U          89199.89876582 0.00000494           29490-3 0  1061
2 19531  98.9414 143.7651 0012043 138.5761 221.6325 14.11072946 41948
TDRS 3     
1 19548U 88 91  B 89153.77764324  .00000129  00000-0  99999-4 0   261
2 19548   0.5410  85.9584 0002050  10.4654 263.5580  1.00263057  1649
GPS-0014   
1 19802U 89 13  A 89195.92402568  .00000015  00000-0  99999-4 0   489
2 19802  55.1018 210.7161 0066687 157.4981 202.8516  2.00556819  2987
Meteor 2-18
1 19851U          89204.99868031 0.00000117           10000-3 0   589
2 19851  82.5237 129.9222 0013482 200.0593 160.0041 13.83820641 20175
TDRS 4     
1 19883U 89 21  B 89193.30721528 -.00000234  00000-0  99999-4 0   201
2 19883   0.4184  71.6153 0001726  52.2881 235.9737  1.00264167   477
Cosmos 2022
1 20024U          89180.39981994 -.00000011           10000-2 0   363
2 20024  64.8272  50.8719 0001867 255.3129 104.7148  2.13102677  6110
Cosmos 2023
1 20025U          89180.69329080 -.00000011           10000-3 0   337
2 20025  64.8449  50.8407 0013705 210.6426 149.3398  2.13102719   639
Cosmos 2024
1 20026U          89180.38648897 -.00000011           10000-3 0   312
2 20026  64.8327  50.8698 0008813 267.3366  92.6243  2.13204691   623
SuperBird A
1 20040U          89183.78104506 -.00000099           10000-3 0   180
2 20040   0.0262 313.9524 0003825 147.9338 258.1480  1.00273104   239
1989 041C  
1 20042U          89185.08517834 0.00030059           39919-2 0   287
2 20042   6.9331  37.4445 7284280 200.3317 100.7896  2.29417718   558
Cosmos 2026
1 20045U          89182.87143968 0.00000147           14176-3 0   337
2 20045  82.9397 343.5786 0038435 224.9740 134.8304 13.75019694  3391
1989 042B  
1 20046U          89190.25933410 -.00005554          -56739-2 0   517
2 20046  82.9417 338.0442 0035026 199.2664 160.7174 13.76469147  4415
Molniya3-35
1 20052U          89189.80933893 0.00000326          -81454-3 0   444
2 20052  62.9521  99.8751 7379264 288.3629   9.3770  2.00620985   616
1989 043D  
1 20055U          89187.82942194 0.00000550           19192-2 0   268
2 20055  62.8484 100.2186 7414419 288.3220   9.1933  1.95983490   552
GPS-0013   
1 20061U          89195.11831124 -.00000029                   0   285
2 20061  54.5868  29.5793 0080698 163.2427 197.0849  2.00573534   713
1989 044B  
1 20062U          89193.27933477 0.18331712 -23867-4  49193-3 0   674
2 20062  30.2951 166.4880 0064540   2.3773 357.7413 16.35924744  3699
1989 044C  
1 20063U          89190.62410034 0.00111825  17032-4  12205-2 0   390
2 20063  37.5403   7.2226 6012784 224.5458  67.5657  4.12779176  1205
Cosmos 2027
1 20064U          89180.22022443 0.00008604           36818-3 0   107
2 20064  65.8385  25.6376 0024329 340.4779  20.7342 15.23081660  2240
1989 045B  
1 20065U          89189.58668525 0.00012737           51370-3 0   330
2 20065  65.8410 356.1109 0028402 352.2314   7.8374 15.24711048  3678
Raduga 1-1 
1 20083U          89206.78146626 0.00000150           10000-3 0   381
2 20083   1.4049 273.2133 0005585 348.2342  12.0835  1.00271194   344
1989 048D  
1 20086U          89194.20510965 -.00000025           10000-3 0    76
2 20086   1.4319 273.6399 0021177 326.9784  33.7202  0.97889488   224
Nadezhda   
1 20103U          89207.11643209 0.00000084           83861-4 0   170
2 20103  82.9622 165.3359 0036332 225.3657 134.4533 13.73490787  2954
1989 050B  
1 20104U          89203.09208317 0.00000006                   0   107
2 20104  82.9619 168.2739 0032035 214.1965 145.7130 13.74883091  2390
Gorizont 18
1 20107U          89206.53673588 -.00000252           10000-3 0   219
2 20107   1.4679 275.1362 0002553  36.6151 324.4230  1.00278437   204
1989 052D  
1 20110U          89198.38268624 -.00000040           10000-3 0    65
2 20110   1.5129 275.7936 0028263  76.8720 284.4159  1.03064188   121
Olympus    
1 20122U          89206.45833329 -.00000133           10000-3 0   137
2 20122   0.3111 116.5200 0039730 161.1000 186.6730  0.99668381    02
1989 053B  
1 20123U          89202.09859699 0.00114392           97589-2 0   130
2 20123   6.1734 103.5478 7316792 185.4997 162.2780  2.26199326   227
Cosmos 2030
1 20124U          89207.14165407 0.01706290  29258-4  32748-3 0   402
2 20124  67.1451  96.1609 0067734  59.2471 301.7086 16.24824071  2182
1989 055A  
1 20134U          89206.75123345 0.00119290  52645-5  19047-3 0   225
2 20134  82.5685 101.3308 0010288 271.6879  88.3357 16.03507280  1187
1989 056A  
1 20136U          89206.77059950 0.00212921  26538-4  38047-3 0   215
2 20136  50.5522  85.5202 0092144  44.9697 315.8559 15.93565154  1173
1989 057A  
1 20145U          89206.75002318 0.00051150 -19215-7  10033-3 0   239
2 20145  82.3116  93.3835 0097667  75.8591 285.3595 15.91659320   868
1989 058A  
1 20147U          89206.79664603 -.00025164          -41389-3 0    99
2 20147  65.0243 330.8234 0009661 269.1416  90.7071 15.52051461   284
1989 059A  
1 20149U          89207.11359027 0.00018128           19706-1 0    73
2 20149  82.9394  87.6575 0030268 276.4523  83.3026 13.72429037   111
1989 059B  
1 20150U          89207.03988152 0.00034193           36088-1 0    42
2 20150  82.9381  87.7138 0023133 269.7533  90.1012 13.74127805    92
-- 
Dr TS Kelso                           Asst Professor of Space Operations
tkelso@blackbird.afit.af.mil          Air Force Institute of Technology

SHAR_EOF
#       End of shell archive
exit 0