2 ! **********************************************************************
3 ! Program EME.BAS Utg}va 1.0 1985-01-07
4 ! av Jinge Fl~cht, medlem 4716
5 ! Ins{nd av Jinge Fl~cht
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC802
9 ! **********************************************************************
10 ! ********************************************
20 ! * PROGRAMMET KR[VER ATT ABC'ns INTERN- *
30 ! * KLOCKA [R ST[LLD I GMT, DVS TV] TIMMAR *
40 ! * F\RE SVENSK SOMMARTID. RIKTNINGEN UTL[SES*
50 ! * UR AZ OCH ELEVATIONEN UR AZ *
60 ! ********************************************
65 EXTEND : FLOAT
70 !
80 ! Programmet modifierat f|r 802 av Jinge >4716< tel 0750 31341
90 !
100 ; CHR$(12)
110 ; "================================================================================"
120 ;
130 ; " Program f|r utr{kning av elevation och riktning till m}nen."
140 ;
150 ; " Modifierat f|r ABC 802 "
160 ;
170 ; "================================================================================"
180 ;
190 ; "Dagens datum: "; : INPUT D
200 ; "M}nad: "; : INPUT M
210 ; "]r: "; : INPUT Y
220 !
230 !
240 A3$=MID$(TIME$,12,2)
250 D3$=LEFT$(TIME$,2)
260 B3$=MID$(TIME$,15,2)
270 X$=A3$+B3$
280 B=VAL(X$)
290 IF X$="2359" THEN GOTO 310
300 GOTO 330
310 X$="0000"
320 D=D+1
330 DEF FNA(X)=INT(X*D5*10+.5)/10
340 DEF FNB(X)=(X-INT(X))*P5
350 P5=2*PI
360 D5=360/P5
370 R5=P5/360
380 L5=59
390 U5=10
400 L6=-18
410 U6=4
420 IF L6<0 THEN U6=-U6
430 L5=(L5+U5/60)*R5
440 L6=(L6+U6/60)*R5
450 I6=100
460 Y1=Y-(INT(Y/100)*100)
470 I1=2
480 IF M>3 THEN 560
490 IF INT((Y-1853)/4)<11 THEN 520
500 C1=-1
510 GOTO 530
520 C1=0
530 J1=365*(Y-1853)+D+30*(M+9)+INT((M+10)/2)
540 J2=INT((Y-1853)/4)+1+C1
550 GOTO 670
560 IF INT((Y-1852)/4)<11 THEN 590
570 C1=-1
580 GOTO 600
590 C1=0
600 IF M=9 THEN 640
610 IF M=11 THEN 640
620 C2=0
630 GOTO 650
640 C2=1
650 J1=365*(Y-1852)+D+30*(M-3)+INT((M-2)/2)
660 J2=INT((Y-1852)/4)+C1+C2
670 J=J1+J2
680 T1=J-17472.5
690 T=(B-INT(B/100)*100)/1440+INT(B/100)/24
700 T5=T1+T
710 K1=FNB(.751213+3.6601102E-02*T5)
720 K2=FNB(.822513+3.62916457E-02*T5)
730 K3=FNB(.995766+2.73777852E-03*T5)
740 K4=FNB(.974271+3.38631922E-02*T5)
750 K5=FNB(3.12525E-02+3.67481957E-02*T5)
760 L8=K1+.658*R5*SIN(2*K4)+6.289*R5*SIN(K2)
770 L8=L8-1.274*R5*SIN(K2-2*K4)-.186*R5*SIN(K3)
780 L8=L8+.214*R5*SIN(2*K2)-.114*R5*SIN(2*K5)
790 L8=L8-.059*R5*SIN(2*K2-2*K4)-.057*R5*SIN(K2+K3-2*K4)
800 K6=K5+.6593*R5*SIN(2*K4)+6.2303*R5*SIN(K2)-1.272*R5*SIN(K2-2*K4)
810 L7=5.144*R5*SIN(K6)-.146*R5*SIN(K5-2*K4)
820 D1=COS(L7)*SIN(L8)*.397821+SIN(L7)*.917463
830 D1=ATN(D1/(SQR(1-D1^2))) : ! KOLLA EXPONENTIERINGEN
840 A2=COS(L7)*COS(L8)/COS(D1)
850 A1=(COS(L7)*SIN(L8)*.917463-SIN(L7)*.397821)/COS(D1)
860 A=ATN(A1/A2)
870 GOSUB 1110
880 R1=A
890 L1=6.5709822E-02*T1
900 L=T*24*1.002738+6.646055+(L1-INT(L1/24)*24)
910 L=(L-INT(L/24)*24)
920 G=(L/24)*2*PI-R1
930 IF G