OIG SatSit Report format change
Bjoern Gimle (b_gimle@algonet.se)
Wed, 22 Oct 1997 20:26:34 +0100
OIG has moved and widened the Perigee and RCS columns in their reports.
My SSR_PACK program, which can merge and pack the SSR09x.rpt files into two
one-line and two two-line formats, has been upsdated on my /programs/ibmpc.
(.bas and .exe files available)
The QBasic changes since last post are:
-------- Line 4 of 'SSR_PACK.BAK' ----
++++++++ Line 4 of 'SSR_PACK.BAS' ++++
+++DIM Sort(4), RP(4)
-------- Line 32 of 'SSR_PACK.BAK' ----
---HDR = LEFT$(RPT, j - 2) + ".hdr"
++++++++ Line 33 of 'SSR_PACK.BAS' ++++
+++HDR = LEFT$(RPT, j - 1) + ".hdr"
+++IF j>2 THEN HDR = LEFT$(RPT, j - 1) + ".hdr"
-------- Line 60 of 'SSR_PACK.BAK' ----
++++++++ Line 62 of 'SSR_PACK.BAS' ++++
+++' Satellite Situation Report Decayed Objects part C
+++'------------------------------------------------------------------------
-------
+++' INT-ID/Name CATALOG# SOURCE PERIOD INCL APOGEE PERIGEE
RCS
+++'------------------------------------------------------------------------
-------
+++'1997-051H 24951 CIS 87.2 72.6 142 125
N/A
+++'SL-12 R/B Launched (09/14/97) Decayed
[09/14/97]
+++'1997-032A 24849 US 90.5 28.5 300 296
999.0000
+++'STS 94 Launched (07/01/97) Decayed
[07/17/97]
-------- Line 114 of 'SSR_PACK.BAK' ----
--- IF LEN(R) > 61 THEN
--- Perigee = MID$(R, 61, 6)
--- RCS = MID$(R, 68)
++++++++ Line 124 of 'SSR_PACK.BAS' ++++
+++ IF LEN(R) > 62 THEN
+++ Perigee = MID$(R, 62, 6)
+++ RCS = MID$(R, 71)
---------------------------------------------------------------
-- bjorn@tt-tech.se (office) b_gimle@algonet.se (home) --
-- 59.2237N, 18.2286E, 44 m http://www.algonet.se/~b_gimle --
-- SeeSat-L / Visual Satellite Observer Home Page found at --
-- http://www.satellite.eu.org/satintro.html --
---------------------------------------------------------------