6⌐└ .└ └ I.G .R$4 * * * * * * * * * * * * * * * * ECLI$ PSES * * * * * * * * * * * * * * * *$4 * $ *$4 * SHOWS DATES, START and FINISH TI$ MES of LUNAR & SOLAR ECLIPSES *$4 * $ *$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 * * * * * * * * * * * * * * * * * * * * *$ * * * * * * * * * * * * * * * * * * *$44 ECLIPSES calculates the date of new and full moo$ n and tests whether an eclipse$4 will occur. As EBASIC has only six or seven digi$ t precision, the times shown$4 are only accurate to within five or six minutes.$ This should suffice.$4 Solar eclipse times may be less accurate than those $ for lunar eclipses.$4 *** WARNING *** - LOOK ONLY AT AN IMAGE OF THE$ SUN PROJECTED ONTO A SCREEN!!$44 EAST time is shown. You must convert for$ daylight saving time yourself.$4 ^P means: hold down <CTRL> key while pressing P.$4 Input is terminated with <CR>, so:$4 if you make an error use $ <BACKSPACE> and reinput before typing <CR>.$4 NOTE - ECLIPSE doesn't check if the sun or moon is ac$ tually in the sky.$4Ç 152.75Ç -31.4Ç 10Ç└ XÇ└XÇ└XÇ PEMBROOKE, NSW CHANGE LOCATION (Y/N) $4;Ç1'└ N└ n7¡6ï. [└!..
R$4 NEW LOCATION (14 chars max) : $4;Ç1' NEW LONGITUDE (+/-ddd,mm,ss) : $4;Ç"Ç"Ç"' Ç└ NEW LATITUDE (+/-dd,mm,ss) : $4;Ç"Ç"Ç"' Ç└ Height above sea level (metres) $4;Ç"'Ç└.[└!.. R$4 TO TURN PRINTER ON/OFF, ENTER P^P ELSE ENTER P$4;Ç1'. R$4 LUNAR and SOLAR ECLIPSES at $└$44Ç.Ç ..[└!.7 6 8Ç └Ç Ç└ D└ .7 86 ö Start at (Day,Month,Year) $4;Ç "Ç "Ç!"' For many months $4;Ç""'4Ç#└..R$4 LUNAR and SOLAR ECLIPSES at $└$ ALT $└# LONG $└# LAT $└#44└ .7
Ç$ SÇ└..[└!..[└!. +ÉÇ .└%.7
-6
Y└%.7
968.J└&#.J└ #.J└!#.J└'$468└$ L7
wÇ' Lunar eclipse
ò└$ S7
òÇ' Solar eclipseDÇÇ└(.Ç. .└└.7
╚Ç└.Ç&└&.Ç). Ñ.J└&#.J└ #.J└!#.J└'$4. J moon enters penumbra (EAST):$. J└#. J└#4└*.7 ,6 F. J no umbral phase$46 AÇÇ└+. Ç.! .└└."7 yÇ└.#Ç&└&.Ç). Ñ.$J moon enters umbra (EAST):$.%J└#.&J└#4└*.'7 ╙.(J no total phase$46 AÇÇ└,.)Ç.* .└└.+7 Ç└.,Ç&└&.Ç). Ñ.-J total eclipse begins (EAST):$..J└#./J└#4ÇÇ└-.0Ç.1 .└└.27 tÇ└.3Ç&└&.Ç). Ñ.4J middle of the eclipse (EAST):$.5J└#.6J└#4└*.7 ╝6(ÇÇ└..7Ç.8 .└└.97 ∩Ç└.:Ç&└&.Ç). Ñ.;J total eclipse ends (EAST):$.<J└#.=J└#4└*.776:6:6ÑÇÇ└/.>Ç.? .└└.@7mÇ└.AÇ&└&.Ç). Ñ.BJ moon leaves umbra (EAST):$.CJ└#.DJ└#4ÇÇ└0.EÇ.F .└└.G7╪Ç└.HÇ&└&.Ç). Ñ.IJ moon leaves penumbra (EAST):$.JJ└#.KJ└#4.LJ eclipse magnitude $.MJ└1.N.OB.P#468ÇÇ└(.QÇ.R .└└.S7wÇ└.TÇ&└&.Ç). Ñ└.U7╡Ç' Solar eclipse - can't see from here.8└.V7ΩÇ' Solar eclipse - can't see from here.8.J└&#.WJ└ #.XJ└!#.YJ└'$4.ZJ eclipse starts (EAST): $.[J└#.\J└#4ÇÇ└-.]Ç.^ .└└._7hÇ└.`Ç&└&.Ç). Ñ.aJ middle of eclipse (EAST):$.bJ└#.cJ└#4ÇÇ└0.dÇ.e .└└.f7╙Ç└.gÇ&└&.Ç). Ñ.hJ eclipse ends (EAST): $.iJ└#.jJ└#4.kJ eclipse magnitude $.lJ└1.m.nB.o#4└$ S7JÇ$ L
└╔ |Ç1└╨└╙└╘.┴└╨└┘.71'Ç*.┬ Ç┌└┘IÇ,└-└┌Ç.Ç└-└┌Ç.├ .└,.71[Ç,└,.─ Ç' Solar - can't see from this locationÇ%.┼ Ç' - no eclipseÇ%. Çb.0 ZÇ█.╞Ç└R└█ÇJ..╟[└!. xÇQ└KÇ└ ╣Ç~.Ç└R└█Ç\└c Ç\└cÇ└R└█ ╣Ç└R└█Çb. Z ipseÇ%. Çb.0 ZÇ█.╞Ç
