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<P5 THEN 960
940 G=G-P5
950 GOTO 990
960 IF G<0 THEN 980
970 GOTO 990
980 G=G+P5
990 H=L6-G
1000 E3=COS(L5)*COS(H)*COS(D1)+SIN(D1)*SIN(L5)
1010 E2=SQR(1-(E3*E3))
1020 E=ATN(E3/E2)
1030 IF E<-.5 THEN 1270
1040 A2=SIN(D1)/(COS(L5)*COS(E))
1050 A2=A2-(SIN(L5)/COS(L5))*(SIN(E)/COS(E))
1060 A1=SIN(L5)*SIN(D1)+COS(L5)*COS(D1)*COS(H)
1070 A1=(SIN(H)*COS(D1))/(SQR(1-A1^2)) : ! 
1080 A=ATN(A1/A2)
1090 GOSUB 1110
1100 GOTO 1270
1110 IF A=0 THEN 1130
1120 GOTO 1170
1130 IF A2<0 THEN 1150
1140 GOTO 1260
1150 A=P5/2
1160 GOTO 1260
1170 IF A>0 THEN 1230
1180 IF A2<0 THEN 1210
1190 A=P5+A
1200 GOTO 1260
1210 A=P5+(A-P5/2)
1220 GOTO 1260
1230 IF A2>0 THEN 1260
1240 IF A2=0 THEN 1260
1250 A=A+P5/2
1260 RETURN 
1270 ; 
1280 ; CUR(14,0) "Tid: " X$ " GMT"
1290 IF FNA(E)<-.5 THEN 1360
1300 ; CUR(16,0) "AZ " FNA(A) " Degrees"
1310 ; CUR(17,0) "EL " FNA(E) " Degrees"
1320 ; CUR(18,0) "GH " FNA(G) " Degrees"
1330 ; CUR(19,0) "DC " FNA(D1) " Degrees"
1340 ; CUR(22,0) "--------------------------- M}nen {r nu |ver horisonten ------------------------"
1350 GOTO 1380
1360 ; 
1370 ; CUR(22,0) FLSH " Sorry! M}nen {r nu under horisonten "
1380 A3$=MID$(TIME$,12,2)
1390 B3$=MID$(TIME$,15,2)
1400 D3$=LEFT$(TIME$,2)
1410 Y$=A3$+B3$
1420 O=VAL(Y$)
1430 ; CUR(14,0) "Tid: " O " GMT"
1440 IF O=B THEN GOTO 1380
1450 GOTO 230