N_uCC5CCC1DDXDXHMSCCCCZDMSTDTYJSSSCGGGGGSSSSSTTLLLLLWWWWWWDELAD?ffp>'7CD0P@@@vBd A6 @` CD @ @@@@1@uAA39@@1@CDc9PE!S!`E!BITE!BWBD B2!@"#$%CE09&@@'(@6)@@*Ba+Aw@8p,BTYb-@ .@Yb/@P0@Yb1E!BVA2CE083@ 4@"5@(6@ 7AQ8Bf6UT AA*ASTRON 2* BY JAMES J. BRENNAN IN INTERFACE AGE AUGUST 1977@ +(  ASTRON 22//A PROGRAM TO DO ASTRONOMICAL COMPUTATIONS< FINITIALIZE THE PROGRAMP AZ77GET THE REQUIRED INFORMATION FOR THE CALCULATIONSd A nUUCALCULATE THE NUMBER OF DAYS ELAPSED FROM THE BASE DATE TO THE DATE IN QUESTION A0__CALCULATE THE JULIAN DATE (@ 0 HRS U.T.) FOR THE DATE IN QUESTION (@ GREENWICH LONGITUDE) A@ CALCULATE THE SIDEREAL DAY AP++CALCULATE THE GREENWICH SIDEREAL TIME A`PPCALCULATE THE GREENWICH MEAN TIME GIVEN THE LOCAL CIVIL TIME AND TIME ZONE ApDDCONVERT THE GREENWICH SIDEREAL TIME ACCOUNT FOR THE ACTUAL GMT ACONVERT GMT TO LMT A((CONVERT GMT TO LOCAL SIDEREAL TIME" B,**PRINT OUT THE DATA THAT WAS COMPUTED6 BINITIALIZATION SUBROUTINE6-?ffp6->'756-CD0PN6-@X6-@b6-@vl6-Bdq6-Bf6UTv6-A66-@`6-CD$00SUBROUTINE TO GET THE REQUIRED INFORMATION.. & ENTER THE YEAR, MONTH AND DAY OF THE88 0DATE IN QUESTION. (DON'T FORGET THE COMMAS!) -&Add \ ENTER THE HOURS, MINUTES AND SECONDS OF THE LOCAL CIVIL TIME. (DON'T FORGET THE COMMAS!)  11 (WHAT IS THE CIVIL TIME ZONE (PST OR PDT);@,VV N ENTER THE DEGREES, MINUTES AND SECONDSOF LONGITUDE OF THE PLACE IN QUESTION.*)) !(AGAIN, DON'T FORGET THE COMMAS!)4 >$ ``ROUTINE TO CALCULATE THE NUMBER OF ELAPSED DAYS FROM THE BASE DATE TO THE DATE IN QUESTION 9@, ))31,28,31,30,31,30,31,31,30,31,30,31 6- !@A10+ ..P:'@,&+'@,A100 6-@: -@@D "8,-X  b 6-8,&% -%@@ 6-8,%   6- 6-%@ A3p ..P:'@,&+'@,"A3@ 6-%Ae A2e 6-%Af A2e* @A44 ..P:'@,&+'@,A4> 6-%@H -@&@R 6-8,%\  f 6-%p  "6-&Afu @6-&@1z $--SUBROUTINE TO CALCULATE THE JULIAN DATEccTHE JULIAN DATE FOR THE BASE DATE OF 10 AUGUST 1976 IS 2443000.5 AT 0 HOURS U.T. AT GREENWICH 6-%$hhSUBROUTINE TO CALCULATE THE SIDEREAL DATE IN TOTAL SECONDS AT 0 HOURS U.T. ON THE DATE IN QUESTION$$SD=2449690.0 ON 10 AUGUST 1976 6-$ 6-%$$p99SUBROUTINE TO CALCULATE THE GREENWICH SIDEREAL TIMEzeeTHE GST AT 0 HOURS U.T. ON THE BASE DATE OF 10 AUGUST 1976 WAS 21 HOURS, 14 MINUTES, 23.155 SEC(MEAN SIDEREAL TIME)''6-%+@!$%@$%@#P,$XIICALCULATE THE ACTUAL GREENWICH MEAN TIME FOR THE CIVIL TIME ENTEREDv6-$%$%@$$Au0PSTAv+ 4PST6-%@$+ADD 8 HOURS+ 4PDT6-%@$+ADD 7 HOURS6-P:',6-&+$,6-P:',6-&+$, 6- $L>> 6THERE WAS AN ERROR IN THE CIVIL TIME THAT YOU ENTERED.V66 .PLEASE RE-ENTER THE LOCAL TIME IN HRS,MIN,SEC.`  Ap4PDTAqR R GRE-ENTER THE TIME ZONE. (IT CAN ONLY BE OR ):INPUT CZ$:GOTO 7080@LLSUBROUTINE TO CONVERT GREENWICH SIDEREAL TO ACCOUNT FOR THE ACTUAL GMTT 6-%h16-P:',6-&+$,%6-P:',16-&+$,r 6-P:',6-&+$, 6-|$(#&&SUBROUTINE TO CONVERT GMT TO LMT<#6-$%$%P# 6-$d# 6-&x#6-P:',#6-&+$,#6-P:',#6-&+$,# 6-#$'66SUBROUTINE TO CONVERT GMT TO LOCAL SIDEREAL TIME`'6-&&$j'6-P:',DAYSt'6-&+$,SEC REMAINING~'6-P:',HOURS'6-&+$,SEC REMAINING'6-P:',MIN'6-&+$,SEC REMAINING'* 6-*SECONDS OF LOCAL SIDEREAL TIME'$ N//SUBROUTINE TO PRINT OUT THE DATA COMPUTED*N    4N11 FOR THE CIVIL DATE   %A>N// AND THE CIVIL TIME :: HN##  AT LONGITUDE ::RN** "THE FOLLOWING INFORMATION APPLIES:WN-@AP ZN 6-%@$[N@$6-&@$\N3  3 %THE GREENWICH MEAN TIME (OR U.T.) IS aN ::dN 6-%@$eN@$6-&@$fN; ; THE GREENWICH SIDEREAL TIME IS ::P:,pN, , THE GREENWICH SIDEREAL DATE IS N  THE JULIAN DAY IS N 6-%@$N@$6-&@$N. . #THE LOCAL MEAN TIME (CORRECTED FOR N::  LONGITUDE :: ) IS ::P:,N' ' THE LOCAL SIDEREAL DAY IS N 6-%@$N7 7 THE LOCAL SIDEREAL TIME IS ::P:,ND:ASTRONII.BASPSTPO@1@