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* * * * * * * * * * * * * * * * * * * * *$ * * * * * * * * * * * * * * * * * * *$44ECLIPSES calculates the date of new and full moo$n and tests whether an eclipse$4will occur. As EBASIC has only six or seven digi$t precision, the times shown$4are only accurate to within five or six minutes.$ This should suffice.$4*** WARNING *** DO NOT LOOK DIRECTLY AT THE SUN $DURING AN ECLIPSE!!$4PROTECT YOUR EYES - LOOK ONLY AT AN IMAGE OF THE$ SUN PROJECTED ONTO A SCREEN!!$44UNIVERSAL time is shown. You must convert this $to local time yourself. Sorry.$4Input is terminated with a <CR>. ^P means: hold$ down <CTRL> key & press P.$4If you make an error use$<BACKSPACE> and reinput before typing <CR>.$4You can review and alter the input before the $calculation is made.$4Ç152.75Ç+31.4Ç└XÇ└XÇPEMBROOKE, NSWCHANGE LOCATION (Y/N) $4;Ç1'└N└n7ò6s. [└!..
R$4NEW 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$4TO TURN PRINTER ON/OFF, ENTER P^P ELSE ENTER P$4;Ç1'.R$4LUNAR and SOLAR ECLIPSES at $└$44Ç.Ç..[└!.7 6 Ç└ÇÇ└D└.7 6 |Start at (Day,Month,Year) $4;Ç"Ç"Ç"'For many months $4;Ç "'4Ç!└..R$4LUNAR and SOLAR ECLIPSES at $└$ ALT $└# LONG $└# LAT $└#44└.7 ΩÇ"SÇ└..[└!..[└!.(JÇ.└#.7
└╟|Ç/└╬└╤└╥.ö└╬└╫.7-ßÇ*.òÇ╪└╫IÇ-└&└╪Ç.Ç└&└╪Ç.û.└-.7.Ç-└-.ùÇ% - can't see from this locationÇ#.ÿÇ% - no eclipseÇ#.Ç`.0Ç┘.ÖÇ}└P└┘ÇH..Ü[└!.2ÇO└IÇ└}sÇ|.Ç└P└┘ÇZ└a┬ÇZ└aÇ└P└┘sÇ└P└┘Ç`.ipseÇ