eme.kcc ";E1pLRR1V3560ZKA/ Égo|gxG>W5Bʙ9v" GSљ e͘w>!u  î/ICG! 6 REBASIC RUN :END>0)I4<4I1=p0 146000HNUNG* ********** M O N D ***************S * HORIZONT-KOORDINATEN DES MONDES*| *BERECHNUNG FUER EME-VERBINDUNGEN*( *FUER FUNKAMATEURE *2 * VERFASSER :V.SCHEFFER * < * DATUM :06.03.1985 * F * ORT :ASMW-AS116 GERAEP * QUELLE :"M C" 12/83 S.54/55 *nZ * LAENGE :4663 BYTE *d**********************************n(0,0); 7,0;" "x:7,0: :" HORIZONT-KOORDINATEN DES MONDES"9:" BERECHNUNG FUER EME-VERBINDUNGEN"J:(40,"[")a8,31,0,39:13,2::"Dieses Programm berechnet zum aktuellem":"Zeitpunkt die Horizont-Koordinaten des":"Mondes.An Hand des LOCATORS werden die" :"geografischen Daten Ihres Standortes"O:"ermittelt.Fuer die Zeitangabe ist MEZ"|:"zwingend vorgeschrieben.Bei Eingabe":"der Daten fuer Datum und Zeit sind":"diese durch einen Punkt zu trennen.":"Das Ergebnis wird mit einer Genauigkeit"):"von einem Grad berechnet."A(30,30);">ENTER<"JA$Y"A$""280n,A$(13):320y6:280@::1620:8,31,0,39:7,0:JT" Standort :LOCATOR :";^ Y$h1450 r:" geografische Laenge : ";U;:34);"Grad"9 |:" geografische Breite : ";X;:34);"Grad"_ (3,11);Y$:(4,10);U:(5,10);Xe  " Datum :TT.MM.JJJJ :";  W$ JA((W$,4)) TA((W$,2)) MK((W$,4,2)) (3,28);W$  MK1520  MK2510 TATA30(MK1)(.6(MK1).6)1$ 5201 TATA31N JDTA365(JA1983)5334g JD(JD(JA1980)4)v  MK2560 &JDJD1 0:" Zeit/MEZ :h.min.sec. :"; : Q$ DSE((Q$,2)) NST((Q$,2)) XMU((Q$,3,2)) b(4,28);Q$ l:" Intervall(Min.) :";! vQQ1 (5,27);QQ> QA60QQD f JDJD.5(STMU60SE360)24n P V4(XP180) V5(XP180) V323.45P180 T(JD24980.001)365.25 YY1 L270.4344812.678831T M296.1055771.988491T FL259.18319.3414201T= M2358.476359.9904975T[ DL279.697360.0076893To E1.2495E 4T LL6.28875(M180P).21362(M90P) *LL1.27402((2DM)180P) 4LL.65831(D90P) >LL.1856E(M2180P) HLL.11434(F90P)* RLL.5879E 1((MD)90P)R \LL.5721E 1E((2DM2M)180P)u fLL.5332E 1((2DM)180P) pLL.4587E 1E((2DM2)180P) zLL.4101E 1E((MM2)180P) LL.3476E 1(D180P)LL.3046E 1E((M2M)180P)LL360(L360)B08BB5.12819(F180P)VBB.28061((FM)180P)tBB.27769((MF)180P)BB.17324((2DF)180P)BB.5541E 1((2DFM)180P)BB.4627E 1((2DFM)180P)BB.3257E 1((2DF)180P) V((LP180)(BP180))BV1((VV3)(V)(LP180))S L90 1070c V0 1130v VV30 1120$1130. L270 11008V1V1PB1130LV0 1120V VV30 1130`V1V12PjV2((V1)(VV3))#tT9(JD5344.5)365.2422366.2422.3026337731598~T9T9U360124NT9(T9(T9))2P[T3T9V1lT30 1200zT3T32PZ1V4(V2)V5(V2)(T3) Z10 1510:1430Z2((1Z1Z1)Z1)Z3(V5(V2)V4(V2)(T3))(Z2) Z4((1Z3Z3)Z3)P Z30 1270)Z4Z4P:T3P 1290HZ42PZ4c A9(JD.5(JD.5))24xB9(A9(A9))60C9(B9(B9))60(U$((A9)): (U$)3 U$"0"(U$,1)2I$((B9)): (I$)3 I$"0"(I$,1) <O$((C9)): (O$)3 O$"0"(O$,1)2FP$(U$,2)"."(I$,2)"."(O$,2)MP" Durchlauf :";Y|Z: " Zeit / MEZ : ";P$;:27);"Uhr"dn" Deklination :";90Z2180P;:27);"Grad"x" Azimut :";Z4P180360(Z4P2);:27);"Grad"(40,"-")JDJD124QA'30:7205 K1 6KA(K)((Y$,K,1))S KU180(A(1)65)20(A(3)48)2(A(5)64.5)12X90(A(2)65)10A(4)48(A(6)64.5)24(10,2);"Zur gegenwaertigen Zeit der Berechnung"'(12,2);"sind die Sichtbarkeitsbedingungen"X(14,2);"des Mondes nicht gegeben,d.h.die" (16,2);"Deklination ist kleiner als 0 Grad."(18,2);"Eine Ausgabe der Berechnung erfolgt""(20,2);"erst wieder wenn die Deklination",(22,2);"groesser 0 Grad ist."46(27,8);"Bitte warten Sie !">@70:DJYT0,7,0,39:6,2:v^(1,12);"Ausgangsdaten"h(3,2);"LOCATOR:"r(4,2);"Laenge :"|(5,2);"Breite :"(3,20);"Datum :" (4,20);"MEZ :"(5,20);"Int.v.:"3,5,10,18:0:)3,5,27,38:0:/AKA/