CP/M/CPM_CDROM.iso/mbug/mbug139.arc/MOONPOS.INT

Text File | 1979-12-31 | 14KB | 9 lines

1$0$11$1E-20$1.570796327$5.729577951E1$1.745329252E-2$.5$26$63781.4E2$63781.4E2$26$40$40$65$6$26$40$40$65$60$24$24$5$50$5$50$5$50$15$5$50$5$50$6378.14$384401$5.181E-1$5$50$5$50$1.468E-1$1.0$5.49E-2$1.0$1.67E-2$1.0$2$5$50$1000$60$15$15$15$5$50$5$50$24$24$3$15$24$24$24$24$15$4$5$50$5$50$5$6$7$60$600$.5$10$60$60$2$3$12$1582$1582$10$1582$10$15$100$2$4$365.25$694025.0$365.25$.75$694025.0$30.6001$.5$2$2$.5$115860.0$36524.25$9.9835726E-1$14$4$365.25$8.02601E-1$365.25$7.50001E-1$416$30.6001$30.6001$1899$13.5$13$2.5$1900$2$3$3$36525$6.6460656$5.1262E-2$2.581E-5$2400$1900$100$24$6.57098E-2$24$24$9.972695677E-1$1.002737908$24$24$24$4$4$6.283185308$1E-20$1E-20$15$24$24$24$24$5$5$36525$1.81E-3$5.9E-3$4.6845E1$2.345229444E1$3600$1.745329252E-2$7$3.1415926535$2$7$6$1E-20$1E-20$6$6$7$36525$1.000021358E2$360$2.796967E2$3.03E-4$1.336855231E3$360$2.704342E2$1.133E-3$9.999736056E1$360$3.584758E2$1.5E-4$1.325552359E7$360$2.961046E2$9.192E-3$5.372616667$360$2.591833E2$2.078E-3$2$2$2$17.2327$1.737E-2$1.2729$1.3E-4$2.088E-1$2.037E-1$1.261E-1$3.1E-4$6.75E-2$4.97E-2$1.2E-4$3.42E-2$2.61E-2$2.14E-2$1.49E-2$1.24E-2$1.14E-2$9.21$9.1E-4$5.522E-1$2.9E-4$9.04E-2$8.84E-2$2.16E-2$1.83E-2$1.3E-2$9.3E-3$6.6E-3$3600$3600$11$9.96647E-1$11$9.96647E-1$6.283185308$1E-6$1E-6$6.283185308$1E-6$2$2$36525$1.000021359E2$360$2.7969668E2$3.025E-4$9.999736042E1$360$3.5847583E2$1.5E-4$3.3E-6$1.675104E-2$4.18E-5$1.26E-7$6.255209472E1$360$153.23$1.251041894E2$360$216.57$9.156766028E1$360$312.69$1.236853095E3$360$350.74$1.44E-3$231.19$20.2$1.831353208E2$360$353.4$1.34E-3$1.54E-3$2E-3$1.79E-3$1.78E-3$5.43E-6$1.575E-5$1.627E-5$3.076E-5$9.27E-6$6.283185308$1.0000002$36525$2.732158213E1$3.652596407E2$2.755455094E1$2.953058868E1$2.721222039E1$6.798363307E3$360$360$360$360$360$360$2.70434164E2$1.133E-3$1.9E-6$3.58475833E2$1.5E-4$3.3E-6$2.96104608E2$9.192E-3$1.44E-5$3.50737486E2$1.436E-3$1.9E-6$11.250889$3.211E-3$3E-7$2.59183275E2$2.078E-3$2.2E-5$51.2$20.2$346.56$132.87$9.1731E-3$3.964E-3$275.05$2.3$2.33E-4$1.964E-3$1.778E-3$8.17E-4$2.541E-3$2.4691E-2$4.328E-3$2.011E-3$1.964E-3$2.495E-3$7.52E-6$6.28875$1.274018$2$6.58309E-1$2$2.13616E-1$2$1.85596E-1$1.14336E-1$2$5.8793E-2$2$5.7212E-2$2$5.332E-2$2$4.5874E-2$2$4.1024E-2$3.4718E-2$3.0465E-2$1.5326E-2$2$1.2528E-2$2$1.098E-2$2$1.0674E-2$4$1.0034E-2$3$8.548E-3$4$2$7.91E-3$2$6.783E-3$2$5.162E-3$5E-3$3.862E-3$4$4.049E-3$2$3.996E-3$2$3.665E-3$2$3$2.695E-3$2$2.602E-3$2$2.396E-3$2$2.349E-3$2.249E-3$2$2.125E-3$2$2.079E-3$2$2.059E-3$2$1.773E-3$2$1.595E-3$2$1.22E-3$4$1.11E-3$2$8.92E-4$3$8.11E-4$2$7.61E-4$4$2$7.04E-4$2$6.93E-4$2$5.98E-4$2$5.5E-4$4$5.38E-4$4$5.21E-4$4$4.86E-4$2$7.17E-4$2$6.283185308$5.128189$2.80606E-1$2.77693E-1$1.73238E-1$2$5.5413E-2$2$4.6272E-2$2$3.2573E-2$2$1.7198E-2$2$9.267E-3$2$8.823E-3$2$8.247E-3$2$4.323E-3$2$4.2E-3$2$3.372E-3$2$2.472E-3$2$2.222E-3$2$2.072E-3$2$1.877E-3$1.828E-3$4$1.803E-3$1.75E-3$3$1.57E-3$1.487E-3$1.481E-3$1.417E-3$1.35E-3$1.33E-3$1.106E-3$3$1.02E-3$4$8.33E-4$4$7.81E-4$3$6.7E-4$4$2$6.06E-4$2$3$5.97E-4$2$4.92E-4$2$4.5E-4$2$4.39E-4$3$4.23E-4$2$4.22E-4$2$3$3.67E-4$2$3.53E-4$2$3.31E-4$4$3.17E-4$2$3.06E-4$2$2.83E-4$3$4.664E-4$7.54E-5$9.50724E-1$5.1818E-2$9.531E-3$2$7.843E-3$2$2.824E-3$2$8.57E-4$2$5.33E-4$2$4.01E-4$2$3.2E-4$2.71E-4$2.64E-4$1.98E-4$2$1.73E-4$3$1.67E-4$4$1.11E-4$1.03E-4$4$2$8.4E-5$2$2$8.3E-5$2$7.9E-5$2$2$7.2E-5$4$6.4E-5$2$6.3E-5$2$4.1E-5$3.5E-5$2$3.3E-5$3$2$3E-5$2.9E-5$2$2.9E-5$2$2.6E-5$2$2.3E-5$2$1.9E-5$4$*(áÇ.[ 
6 └
.└
└

I.G61.Ç
└
6<.└6G.└6Y└└.B└.R$4* * * * * * * * * * * * * * * *     MOON$POS     * * * * * * * * * * * * * * * *$4*                                       $                                      *$4*               DISPLAYS THE MOON'S POSI$TION AT A GIVEN TIME.                 *$4* SET FOR  PEMBROOKE, NSW  -|- LONGITUDE$ 152.45.00 E, LATITUDE 31.24.00 S     *$4*                                       $                                      *$4*                               copyrigh$t,  1990                              *$4*                                  Terry$ Hill                                 *$4*                                (065) 8$5 9264                                *$4*                                       $                                      *$4* * * * * * * * * * * * * * * * * * * * *$ * * * * * * * * * * * * * * * * * * *$44MOONPOS  calculates the Moon's position for an o$bserver at the earth's centre $4(apparent, geocentric) and on the surface (tru$e, topocentric) after adjusting$4for parallax. Altitude and Azimuth (E of North) a$re then calculated. Right $4Ascension and Declination are accurate to within$10 arcseconds, Altitude   $4and Azimuth to within one degree.$4Local mean time is used - for daylight saving $either adjust the time zone or$4calculate mentally. Input is terminated with a <CR>.$If you make an error, use$4<BACKSPACE> and reinput before typing <CR>.$4You can review and alter the input before the $ calculation is made.$44Ç+152.75Ç-31.40Ç    +10.00Ç
+0020ÇPEMBROOKE, NSWÇ└XÇ└XÇ└    XÇ└
XÇ└.    ÇÇ└?CHANGE LOCATION (Y/N) $4;Ç1'└N└n7∞6NEW LOCATION   (14 chars max) : $4;Ç1'NEW LONGITUDE  (+/-ddd,mm,ss) : $4;Ç"Ç"Ç"'ïÇ└NEW LATITUDE  (+/-dd,mm,ss)   : $4;Ç"Ç"Ç"'ïÇ└ÇÇ└?NEW TIME ZONE (+/-hh,mm,ss)   : $4;Ç"Ç"Ç"'ïÇ└HEIGHT ABOVE SEA LEVEL (m)    : $4;Ç"'Ç└.
Ç└.R$4LOCATION  : $└$.JTIME ZONE : $└#4LONGITUDE : $└#.JLATITUDE : $└#.JALTITUDE : $└#m$441 YEAR    (yyyy)     : $4;Ç"'2 MONTH   (mm)       : $4;Ç"'3 DAY     (dd)       : $4;Ç"'4 HOUR    (0 - 24)   : $4;Ç"'5 MINS    (0 - 59)   : $4;Ç"'4ENTER 6 TO RUN OR 1..5 TO ALTER INPUT $4;Ç"'└.└.7    a6█└[Ç\96x6Ö6║6█6ⁿ6    z.R$4LOCATION  : $└$.JTIME ZONE : $└#4LONGITUDE : $└#.JLATITUDE : $└#.JALTITUDE : $└#m$4DATE: $└#└#└#  TIME: $└#└#4Ç└└.└
└.
7
/Ç└.Ç└└.Ç .EÇ!└"4╠ÇÇ└#4└$Ç%..4.JApparent geocentric longitude (D,M,S): $.J└&$└#└#└#4ÇÇ└'4..JApparent geocentric latitude  (D,M,S): $.J└&$└#└#└#4ÇÇ└(4..JHorizontal parallax           (D,M,S): $.J└&$└#└#└#4Ç└#Ç)└'Ç*.0╥ÇÇ└+.4.4.JApparent Right Ascension      (H,M,S): $.J└&$└#└#└#4ÇÇ└,4.. JApparent Declination          (D,M,S): $.!J└&$└#└#└#44Ç-."└(EÇ.└-.#Ç/.$└..%JDistance from Earth to Moon     (kms): $.&J└-#4Ç└/..'JAngular diameter              (D,M,S): $.(J└#└#└#4Ç0└#└1
F└'FÇ2Ç└0#Ç3└2EÇ4.)└3.*.+└5E
.,.-└6E
Ç4└7└2
Ç└4?
Ç8..└4F./.0JPhase             (new = 0, full = 1): $.1JÇ└8Ç.2J#4Ç└└.3Ç└Ç .EÇ!└"Ç9.0ÇÇ└+.441Ç)└,Ç:└(ÇÇ└+.5?,ÇÇ└+.6414Ç└+Ç%...7JTrue Right Ascension          (H,M,S):$.8J└#└#└#4ÇÇ└,4..9JTrue Declination              (H,M,S):$.:J└&$└#└#└#44Ç;└+Ç<Ç└,4Ç└Ç└Ç.
ïÇ=└Ç>└=└
└>.7mÇ>└>.;└>.
7Ç>└>.<Ç└>.
[└!.
.=[└!.
Ç .EÇ?└"└.>└?.?7┴Ç?└?.@
└?.
7╙Ç?└?.AÇ@└?└;
└@.
7φÇ@└@.BÇ└ÇÇ└?Ç└@ÇAÇ└?.CÇ└<Ç)Ç└?Ç└A.D[└!.
åÇ+Ç└+4Ç,Ç└,4Ç└+;.EJAzimuth                      (D,M,S) : $.FJ└&$└#└#└#4Ç└,;.GJAltitude                     (D,M,S) :$.HJ└&$└#└#└#44Again  (Y/N)$4;ÇB1'└BN└Bn7 .[└!.
.I[└!.
.J[└!.
.K[└!.
6╣└%.07;6ïÇC└DÇD└AÇ└DBÇE└D└
.LÇ└EBÇ└E└
.M.NB.OÇ&+└C.07èÇ&-ÇC.└.
└.
└.
7»ÇC.0ÇF└AÇG└AÇH└AÇ└H.P└G.Q└F└C.[└!.7Ω6ⁿ6└IB.
[└!└ID└ID.
.RBÇJ└ÇK└.[└!.ÇL.
└K.
79ÇK└K.└.S7TÇJ└.TÇK└K.
└.U7`6¿└.V└.W7s6¿└.X└.Y└.Z7ì6¿ÇE└K.[BÇL.\└E
└E.]B└K.
7┤6┼ÇM.^└KB._
6▄ÇMÇI.`└K.a
φ.b
Ç2.c└J.BÇN└L└M└2└.d
.e[└!.76/└OB.
[└!.
└OD.
.fB
Ç2└N.gÇ4ÇO└2Ç.└2└4
└..7cÇ..
Ç4└4.└4.h0
7p6áÇEÇO└4.i.j.kÇ4└4.└EÇO└E.l
ÇLÇO└4.m.nÇP└4ÇO.o└L.p
.qÇQÇO└P.rÇ└Q.
Ç└PÇO.s└Q
└.Ç└L.t└Q.u7Ç└Q.v
└.w7'Ç└L.x└.79Ç└.
.y[└!..z[└!.7W6σÇR└ÇS└.{[└!..[└!.
╪ÇT└NÇ.Ç.
.[└!.
╪ÇU└N.|Ç-.}.~└U.└UÇV.Ç└U└.ü
.é
ÇL.â└-
└V
ÇW└T└N
.ä└L
└ .7±6)└W.
7ÇW└W.àÇ"└└W
└".
7Ç"└".åÇ"└".ç6YÇ"└.ê└W└".ë7GÇ"└".è
└".
7YÇ"└".ïÇ└"Ç%..ÇX└Ç6└ÇY└Ç└RÇ└SÇN└T.î[└!.7ÿ6╡ÇZ└FÇ[└E.ì[└!.Ç\.ÄÇ]└)EÇ^└)FÇ_└EÇ`└FÇa└]└[└^└Z└`Ç,Ç
└aÇb└,FÇE└Z└b└E.Å7ÇE.ÉÇc└]└[└a
└EÇ+Ç└c#└_.
70Ç+└\└+
Ç?└!└.æ└?.Æ7OÇ?└?.ô
└?.
7aÇ?└?.öÇ+└?└
└+.
7{Ç+└+.ò.û[└!.7î.ù[└!.╪ÇU└N.ÿÇM.Ö└U0.Ü└U.¢└UÇd.£└M.¥
Çe└d.₧.ƒ[└!.7Σ60Ç7.áÇ\.í└7.ó[└!..ú[└!.
7Çf.
|ÇgÇ└d└f?Çh└gEÇi└gFÇ^└)FÇ]└)E└^A.ñ7LÇ^.ÑÇj└]└^Ç`└FÇ_└EÇa└]└i└^└h└_└*
Ç,Ç
└aÇE└_└i└j└h└*Ç+└E└`G└`.
7¬Ç+└+└7└+└\7║Ç+└+└\
└+.
7╦Ç+└+└\.ª[└!.7▄.º[└!..¿[└!.
╪ÇU└N.⌐Çk└U└UÇE.¬└UÇL.½└E└EB
Çl.¼.¡└k└LÇE.«└UÇL.»└E└EB
Çm.░.▒└k
└LÇE.▓└UÇL.│└E└EB
Ç6.┤.╡└k
└LÇE.╢└UÇL.╖└E└EB
Ç5.╕.╣└k└LÇE.║└UÇL.╗└E└EB
Çn.╝.╜└k└L
Ço.╛Ç└l?ÇnÇ└n?Çp.┐Ç└n?Ç6Ç└6?Çq.└Ç└m?Ç5Ç└5?Ç$.┴0.┬└U
└nE.├0.─└U
└oE.┼└pE.╞└qE
.╟.╚└U
└6E.╔└5E.╩.╦└U
└o└6E
.╠└q└n
E
.═└q└5E
.╬└o└6
E.╧└o└q
└5E
.╨└o└n
E.╤└q└5
EÇf.╥.╙└U└nF.╘.╒└U
└oF.╓└pF
.╫└qF.╪└o└6F.┘└q└n
F.┌└q└5F.█└o└6
F
.▄└o└n
F
Ç$└$.▌Çf└f.▐.▀[└!.7>6ÄÇZ└FÇ[└EÇr.α└[└ZGÇs└rFÇt└rE.ß[└!.Çu.Γ└t└└[Çv└s└└ZÇ\.πÇw.└:E└9.07Ñ6⌐%Çx└Çy└)Çz.
Ç{.
%Ç|└+└
Ç}└,└)
└|└z
A.Σ└}└{
A.σ7φ6
Ç└x└|
Ç)└y└}
Çz└|Ç{└}6┐Ç+└x└|
Ç,└y└}
Ç└xÇ)└yÇ`└FÇ]└)EÇ^└)FÇ~└v└E└w└^└v└`
Ç└~GÇ+└└Çc└+F└+└\7pÇ+└+└\
└+.
7üÇ+└+└\Ç,└c└w└]└u
└w└^└`└v
GÇ\.µÇÇ└ü└\└ü└\B
Çé└ÇÇâ└é└ä└éE
└Ç
└âA.τ7╙6εÇâ└â.└ä└éF
Çé└é└â
6╖Çà.└ä.└ä
I└é.ΦHÇå.Θ└àG╪ÇU└N.ΩÇk└U└UÇE.δ└UÇL.∞└E└EB
Çl.φ.ε└k└LÇE.∩└UÇL.≡└E└EB
Ç6.±.≥.≤└U└k
└LÇä.⌠.⌡└U
.÷└k
ÇüÇ└6?¥ÇE.≈└UÇL.°└E└EB
ÇçÇ.∙└L?ÇE.·└UÇL.√└E└EB
ÇêÇ.ⁿ└L?ÇE.²└UÇL.■└E└EB
ÇëÇ. └L?ÇE.
└UÇL.

└E└EB
ÇèÇ.
.
└k
└L?ÇïÇ.
.
└U?ÇE.
└UÇL.
└E└EB
ÇîÇ.
└L?Çì.
    └çF.

└êF.
└ëF.
└èE.
└ïEÇÄ.
└çE.
└êE.
└ëE.
└èF.
└îEÇ1└åÇ└l└6
└ì?Ç\.
ÇÅ.
.└ä└éF
└Ä└1.
7Ç1└1└\6≡└1└\7Ç1└1└\
6╪ÇU└N.
Çk└U└UÇÉ.
Çæ.
ÇÆ.
Çô.
Çö.
Çò.
ÇÉ└N└ÉÇæ└N└æÇÆ└N└ÆÇô└N└ôÇö└N└öÇò└N└òÇÉ.
└É└ÉB
Çæ.
└æ└æB
ÇÆ.
└Æ└ÆB
Çô.
└ô└ôB
Çö.
 └ö└öB
Çò.
!└ò└òB
Çm.
"└É.
#.
$└U
└k
Ç6.
%└æ.
&.
'└U└k
Ç5.
(└Æ.
).
*└U└kÇû.
+└ô.
,.
-└U
└k
Ç..
.└ö.
/.
0└U└k
Çù.
1└ò
.
2.
3└U└kÇEÇ.
4.
5└U?Çÿ└EEÇCÇ└ù?EÇL.
6.
7.
8└U
└UÇÖ.
9Ç└L?EÇMÇ└ù.
:.
;└U
?ÇÜ└MEÇm└m.
<└ÿ└Ö.
=└CÇ6└6.
>└ÿ
Ç5└5.
?└ÿ└Ö.
@└CÇ.└.└Ö.
A└C
.
B└Ü
Çû└û.
C└ÿ└Ö.
D└CÇ¢..
E.
F└U└U
Ç£└¢└¢ÇmÇ└m?Ç6Ç└6?ÇùÇ└ù?ÇûÇ└û?Ç.Ç└.?Ç5Ç└5?Ç¥.
G└5E.
H.
I└û└5
E.
J.
K└ûE.
L.
M└5E└¢.
N└6E
.
O.
P└.E
.
Q.
R└û└5
E.
S└¢.
T└û└6
└5
E.
U.
V└û└5E.
W└¢.
X└û└6
E.
Y└¢└5└6
E.
Z└ûE
└¢.
[└6└5E
.
\.
]└û└.
E.
^.
_└.└5E
.
`.
a└.└5
E
.
b.
c└û└5
E.
d.
e└5E.
f.
g└û.
h└5
E└¢.
i└6└5
.
j└ûE
└¢.
k.
l└û└6E
.
m└5└û
E└¢.
n└6└ûE.
o.
p└ûE└¢.
q└5└6
.
r└ûE.
s.
t└5└ûE.
u.
v└û.
w└5
E└¢.
x.
y└5└6
E.
z└5.
{└.└û
E└¢.
|.
}└û└5
└6
E.
~└5└ûE
└£.
.
Ç└û└6
E└¢.
ü.
é└5└6E
└£.
â.
ä└6E
└£.
à.
å└û└6
└5
E.
ç└5.
ê└û└.
E
.
ë.
è└.└ûE
└¢.
ï.
î└û└6
└5
E.
ì.
Ä└5└.E
.
Å└5.
É└û
E└¢.
æ└6└5.
Æ└ûE
└¢.
ô.
ö└û└6
.
ò└5
E└£.
û└5.
ù└6└û
E└¢.
ÿ└6.
Ö└5└û

E└¢.
Ü.
¢└û└.
└6
E.
£└5.
¥└ûE.
₧.
ƒ└5E└¢.
á.
í└û└6
E.
ó.
ú└5└û
E└£.
ñ└5.
Ñ└6
EÇ#└mÇ└¥?Ç\.
ª└#.
7"╤Ç#└#└\6"╜└#└\7"ΣÇ#└#└\
6"рQ.
º└.E.
¿└5└.E.
⌐└5└.
E.
¬.
½└û└.
E.
¼.
¡└û└.└5
E.
«.
»└û└.
└5
E.
░.
▒└û└.E.
▓.
│└5└.E.
┤.
╡└û└5└.
E.
╢.
╖└5└.
E└¢.
╕.
╣└û└6
└.
E.
║.
╗└û└5
└.
E.
╝.
╜└û└.└5E└¢.
╛└.└6
.
┐└û
E└¢.
└.
┴└û└.└6
└5
E└¢.
┬.
├└û└.└6
E└¢.
─.
┼└û└.
└6
└5
E└¢.
╞└.└6
└5E.
╟.
╚└û└.
└5
E└¢.
╔└.└6E
.
╩.
╦└.E
└¢.
╠└5└6
└.
E.
═└.└ûE
└¢.
╬└.└6└5E
└¢.
╧└.└6
└5
E└¢.
╨└.└6
E.
╤└.└û
E.
╥└..
╙└5E.
╘.
╒└û└.
E.
╓└..
╫└û└5
E.
╪└5.
┘└.
E.
┌└..
█└û.
▄└5
E.
▌.
▐└û.
▀└.
E.
α.
ß└û└5└.
E└¢.
Γ.
π└û└5└6
└.
E.
Σ.
σ└5└û
└.
E.
µ.
τ└5└.
E.
Φ└..
Θ└û└5E.
Ω.
δ└û└.
.
∞└5
E└¢.
φ└6└..
ε└û└5
E
└¢.
∩└6└..
≡└ûE
.
±└..
≥└ûE└¢.
≤.
⌠└û└.└6
└5E└£.
⌡.
÷└û└6
└.
E.
≈└5.
°└.E
Ç₧.
∙└ùFǃ.
·└MFÇ'Ç└Q?.└₧
└ƒ
Ç(.
√.
ⁿ└5F.
².
■└û└5
F.
 .└ûF.
.└5F..└û└5F└¢..└û└6
F└¢..└û└5
└6
F└¢.    └5└6
F.
└ûF
└¢.└6└5F
..└.└5
F
..└5F..└û└5
F└¢.└6F
..└û.└5
F..└5.└û
F
└¢..└û└6F
..└û.└5F..└ûF└¢. .!└û└6
└5F└¢.".#└û└6└5
F
└¢.$└6└ûF└¢.%.&└5└6
F.'.(└5.)└û
F
.*└5└ûF
.+.,└.└û
F
└¢.-..└5└6F
└£./.0└û└6
F.1.2└.└û
└5F
└¢.3.4└û└6
└5
FÇ(Ç└(?5.)└û
F
.*└5└ûF
.+.,└.└û
F
└¢.-..└5└6