)X,******** H I M M E L ****************V************************************* ` by Torsten Baumbach 18.10.1990 ** Ahornstra~e 16 ** Gera-Lusan ** O-65o2 *)************************************ S2====SONNE/PLANETEN/ERDMOND==========}<---Planetennamen--------------------FSONNE,MERKUR,VENUS,ERDE,MARSPJUPITER,SATURN,URANUS,NEPTUNZPLUTO,ERDMONDd---Entfernung zur Sonne in AE------"n0,.387099,.723332,1.00,1.523691Bx5.204892,9.575616,19.28093`30.14180,39.88009,384000---Bahnexzentrit{t-----------------0,.20563,.00678,.01671,.09340.04822,.05528,.04782,.00978.24913,.0071848 ---Bahnneigung---------------------,0,7.00456,3.39453,0,1.48972L1.3046,2.4874,.7719,1.7710^17.1505,5.25---L{nge des aufst.Knotens---------0,48.21275,76.58983,0,49.48033100.4693,113.6793,74.0075131.7701,110.2292,138---j{hrliche Aenderung-------------20,.01185,.00901,0,.00771,0,0,0=0,0,0f"---Umlaufzeit----------------------,0,87.969,224.701,365.2566686.980,4332.0597,10821.396@30923.667,60443.932,91989.9J27.32166T---ekliptikale L{nge(29.1.1990)---- ^0,201.10,135.06,128.95,245.38@ h98.69,287.11,275.90,282.38S r225.84,336.53| |---mittlerer Durchmesser----------- 1.3916E06,4840,12112,12756,6800 143650,120670,52400,49200,4000,0 ---Darstellungsfarbcode------------ 7,10,6,4,2,7,6,5,12,14,7 ? ====JUPITERMONDE===================h ---Mondnamen----------------------- IO,EUROPA,GANYMED,KALLISTO ---Abstand vom Planet-------------- 421600,670900,1070000,1880000 ---Durchmesser--------------------- 3632,3126,5376,4820? ---sid.Umlaufzeit------------------] 1.769,3.551,7.155,16.689 ---Standort(1.1.1990)-------------- 6.4,166,148.8,49.3 ====STERNE/-BILDER================= &----Sternkoordinaten(Rek,Dek)------ 037.8,89.3,0,269.8,86,09 :252.5,82.2,0,246.3,75.5,0X D238.5,78.0,0,230.2,71.8,0w N222.7,74.2,0,206.9,49.3,1 X201,54.9,1,193.5,56,1 b183.9,57,1,178.5,53.7,1 l165.9,61.8,1,165.5,56.4,1 v28.6,63.7,2,21.5,60.2,2 14.2,60.7,2,10.1,56.5,2# 2.3,59.2,2,3.3,15.2,2B 346.2,15.2,3,345.9,28.1,3a 311.6,34.0,4,310.4,45.3,4 305.6,40.3,4,296.2,45.1,4 292.7,28,4,302.8,-.8,5 297.7,8.9,5,296.6,10.6,5 292,3.5,5,286.6,-4.9,5 286.4,13.9,5,284.7,32.7,6283,37,6,282.5,33.4,6/280.2,38.8,6,279.2,38.8,6L265.6,-39,7,264.3,-43,7m263.4,-37.1,7,262.7,-37.3,7252.5,-34.3,7,249,-28.2,7 247.3,-26.4,7,241.4,-19.8,7240.1,-22.6,7,239.7,-26.1,7 228.9,33.3,8,225,41,8*221.2,27.1,8,218,38.3,8#4218,30.5,8,213.9,19.2,8A>201.3,-11.2,9,198,-7.5,9]H195.5,11,9,193.9,3.4,9{R190,-1,9,185,0,9,177,2,9\191.9,-59.7,10,187.8,-57.1,10f186.7,-63.1,10,183.8,-58.8,10p177.3,14.5,11,168.6,15.4,11z168.5,20.5,11,155,19.9,11 152.1,12,11,151.8,16.8,11?146.5,23.8,11,116.3,28,12`113.7,31.9,12,101.3,12.9,12~101,25.1,12,99.4,16.4,1295.7,22.5,12,111,-29.3,13107.1,-26.4,13,104.7,-29,13101.3,-16.7,13,98.2,-18,1390,37.2,14,89.9,45,1479.2,46,14,75.5,43.8,14474.3,33.2,14,88.8,7.4,15Q86.9,-9.1,15,85.2,-2,15m84.1,-1.2,15,83,-.3,1581.3,6.4,15,78.6,-8.2,1559.5,40,16,58.5,31.9,1655.7,47.8,1651.1,49.9,16,47,41,16$46.2,53.5,16,31,42,17.17.4,35.6,17,9.8,31.9,17-82.1,29.1,17,354.8,77.6,18LB342.5,66,18,322.2,70.6,18mL319.6,62.6,18,269.2,51.5,19V262.6,52.3,19,231.2,39,19`246,61.5,19,257.2,65.7,19j288.1,67.7,19,31.8,23.5,20t28.7,20.8,20,84.4,21.2,20~81.6,28.6,20,69,16.5,21&58.8,12.5,21,56.9,24.1,21F114.8, 5.2,22,111.8,8.3,22f124.1,9.2,23,134.6,11.9,23131.2,18.2,23,131.7,28.8,23274.4,-36.8,24,276,-34.4,24271.5,-30.4,24,275.3,-29.8,24285.6,-29.9,24,286.7,-27.7,24283.8,-26.3,24,277,-25.4,24.287.4,-21,24,222.7,-16,25P229.3,-9.4,25,233.9,-14.8,25s304.4,-12.5,26,305.3,-14.8,26316.1,-19.9,26,316.5,-17.2,26320.6,-16.9,26,325,-16.7,26 326.8,-16.1,26,321.7,-22.4,26313,-27,26,96,-52.7,27125.6,-59.5,27,146.8,-65.1,27<(160.7,-64.4,27,139.3,-59.3,27\2138.3,-69.7,27,45.6,4.1,28y<10.9,-18,28,40.8,3.3,28F39.9,.3,28,37,8.5,28P27.9,-10.3,28,17.2,-10.2,28Z4.9,-8.8,28,41.2,10.1,28d34.8,-8,28,39,5.6,28 n26.1,-16,28,6.6,-42.3,29+x16.5,-46.7,29,22.1,-43.3,29K22.8,-49.1,29,2.3,-45.7,29k331.4,-.3,30,322.9,-5.6,30335.4,-1.4,30,343.7,-15.8,30311.9,-9.5,30,338.8,-.1,30343.2,-7.6,30,350.7,-20.1,3030.5,2.8,31,349.3,3.3,31 15.8,7.9,31,22.9,15.4,31*18.4,24.6,31,15.7,31.8,31I17.9,30.1,31,359.8,6.9,31j252.2,-69,32,238.8,-63.4,32229.7,-68.7,32,332.1,-47,33340.7,-46.9,33,328.5,-37.4,33344,-29.6,34,340.2,-27.1,34122.4,-47.3,35,131.2,-54.7,35161.7,-49.4,35,137,-43.4,354140.5,-55,35,220.1,-60.9,36S"211,-60.4,36,190.4,-49,36t,182.1,-50.7,36,205,-35.5,366208.9,-47.3,36,211.7,-37.4,36@200.2,-36.7,36,24.4,-57.2,37J77,-5.1,37,71.4,-3.2,37T59.5,-13.5,37,53,-9.5,37^44.6,-40.3,37,69.1,-3.3,373h64.5,-33.8,37,29,-51.6,37Qr55.8,-9.8,37,244.5,19,38r|246.2,20.6,38,249.5,31.5,38250,39,38,247.5,41.7,38244,47.5,38,253.5,31,38257.5,14.5,38,257.5,25,38257.5,36.7,38,264,46.2,38----Sternbildnamen----------------0URSA MINOR,KLEINER WAGENNURSA MAIOR,GROSSER WAGENiCASSIOPEIA,KASSIOPEIAPEGASUS,PEGASUS,CYGNUS,SCHWANAQILLA,ADLER,LYRA,LEIERSCORPIUS,SKORPION,BOOTESBOOTES,VIRGIO,JUNGFRAUCRUX,KREUZ DES SUEDENLEO,LOEWE,GEMINI,ZWILLINGE<CANIS MAIOR,GROSSER HUND]AURIGA,FUHRMANN,ORION,ORION|&PERSEUS,PERSEUS,ANDROMEDA0ANDROMEDA,CEPHEUS,KEPHEUS:DRACO,DRACHE,ARIES,WIDDERDTAURUS,STIER,CANIS MINORNKLEINER HUND,CANCER,KREBSXSAGITTARIUS,SCHUETZE.bLIBRA,WAAGE,CAPRICORNUSDlSTEINBOCK,CARINAdvSCHIFFSKIEL,CETUS,WALFISCHPHOENIX,PHOENIX,AQUARIUSWASSERMANN,PISCES,FISCHETRIANGULUM AUSTRALESUEDLICHES DREIECK,GRUSFISCHE,PISCIS AUSTRINUSSUEDLICHER FISCH,VELA,SEGEL4CENTAURUS,ZENTAUR,ERIDANUSYFLUSS ERIDAN,HERCULES, HERKULES =====ERKLAERUNG=================== 14249,254 0,31,0,39:7,0: "Copyright by TORSTEN BAUMBACH 18.10.90";(17) 0,245,319,245,7 3,31,0,390 "Das Programm dient zur }berwiegend gra-"a "phischen Darstellung der aktuellen Daten"  "}ber Sterne,Sonne,Mond und Planeten. " "Der Hauptteil zeigt den Sternenhimmel in" "Abh{ngigkeit von Datum ,Zeit ,Beobacht-"! "tungsstandort und Blickrichtung. Dieser"R& "wird in 5min-Zeitabst{nden weiterbewegt." 0 "Zwischen den Berechnungen kann man z.B.": "die zu beobachtenden Meteoritenstr|me"D "oder die Mondphase aufrufen." N :"In Nebenprogrammen kann man die Jupiter-"8 X "mond- bzw.Planetenbewegungen darstellen."h b "Durch Kompromi~ zwischen Rechengeschwin-" d "digkeit und -genauigkeit ,kann es zu" f "leichten Abweichungen kommen." l ===VARIABLEN INITIALISIEREN=======!v XS(229),YS(229),SB(229)'! X1(229),Y1(229),X2(229),Y2(229):! L$(38),S$(38)O! A010:N$(A):d! A010:AE(A):y! A010:EX(A):! A010:NE(A):! A010:KL(A):! A010:KV(A):! A010:UZ(A):! A010:AW(A):! A010:D(A): " A010:F(A):" A14:M$(A):2" A14:MA(A):F" A14:MD(A):Z" A14:MU(A):n" A14:MW(A):{"* A0229"4 XS(A),YS(A),SB(A):"> A038"H L$(A),S$(A):"I 17000"J A023:G:15624A,G"L #R ----Funktionen definieren---------!#\ MO(X)X(X360)360;#f AS(X)(X(1XX))Y#p AC(X)ǯ2(X(1XX))v#z P1ǯ180:P2180:DV288# EF149.6E6:P7985# (31,33);2;""# յ(13)3470 # ====PROGRAMMTEILWAHL==============$ :"(1) STERNHIMMEL"'$ :"(2) JUPITERMONDBEWEGUNGEN"I$ :"(3) REL.PLANETENBEWEGUNG"U$ :"";Kv$ K3480,4000,5000:3472 $ **** STERNHIMMELDARSTELLUNG ******$ 11000:<--Eingaben------------$ 10000:<--Ausgangsstandorte---% ----Bildschirm--------------------"% 0,31,0,39::77% 22,31,0,39::0F% A045.5[% X(Aǯ180)160p% Y(Aǯ180)160% 160X,Y95,7:160X,Y95% 160Y,X95:159Y,X95%%0,95,319,95:157,94,157,92%$RI180(21,19);"S"&.RI90(21,19);"W"&8RI0(21,19);"N"5&BRI90(21,19);"O"E&L0,7:16130m&V----Programmschleife--------------&`12000:<--Koordinaten ber.---&j13000:<--Sternhimmel--------&t14000:<--Men}---------------&~3680 #'**** JUPITERMONDBEWEGUNG *********B':"BEOBACHTUNGSZEITRAUM:"U':"Monat:";M$q'(M$)0MO(M$):4080|'11080'A112:N$'M$N$MOA:A12':MO04020'"Jahr :";JA:'TA1:ZR1:11170:ZR0(,----Jupiter darstellen------------+(6-24,-13,4,20,-70,7,-58,2,-48,2P(@-40,5,-5,3,26,6,41,3,51,3,59,11f(E0,31,0,39:0,7:x(F160,144,71,0(J4150(TA03:AS(^160(4900AS2),AS144,160(4900AS2),AS144(h(rA08:AS,AZ(|BASASAZ)160(4901B2),B144,160(4901B2),B144'):;)(4,18);"Nord"O)(23,19);"S}d"h)130,120,110,120,128z)120,116,12,0)"NOMENKLATUR DER GRUNDFORMATION")"DER JUPITEROBERFLAECHE (nach B}deler)")26,0)"Mondabst{nde vom Planeten:"*7*(27,29);"Mondauswahl"7*(28,29);"mit Pfeil-"R*(29,29);"tasten und"h*(30,29);"Enter"o*0z*A14*M$(A),MA(A);"km":*C1*(C26,0);4;M$(C)*E(509)*(C26,0);M$(C)*E10C4CC1*E11C1CC1+E13N$M$(C):4350+4342G+----Mondbewegung darstellen-------_+(C26,0);4;M$(C)l+10260:x+A230+&(A1,0);((A),2)+015,A84,18,A84+:+D19,12,19,251:19,12,319,12+N310,12,310,251+X310,251,19,251 ,]" 1.";(MO);".";JAA,b(31,0);" 1300000km JUPITER 1300000km"_,l60,12,60,8:260,12,260,8s,v148,12,148,251,149,12,149,251,172,12,172,251,171,12,171,251,A25012C1,X1(M1(C)P1)MA(C)13500,A2504660-(M1(C)P1)0(X1)124590!-FF146600-BAC1AF-160X2,B1,148,BW-:FF1:4660f-FF04630u-BAC1A-172,B1,160X1,B- :FF0:4660-BAC1A- X1160,B,X2160,B1-*-4M1(C)M1(C)45MU(C)->X2X1:.C(0,38(N$));N$!.H(509)13:4680 I.**** REL.PLANETENBEWEGUNG ********k.ZR1:DV18:EE1E30:ES1E30:."Beobachtungsjahr:";JA.MO1:11170.:"Planetenname:";P$.P19:P$N$(P)P35062.:5040.P75070/"Verh{ltnis von Umlaufzeit zu Bahnradius"F/"l{~t innerhalb eines Jahres keine gut"r/"sichtbare rel.Bewegung am Himmel zu."|/5040/0,31,0,39:7,1:/:" Bewegung des Planeten ";P$/" rel.zum Sternhimmel aus Sicht der Erde"0" von Januar bis Dezember";JA*0(30,0);"0h":(30,37);"24h"I08,20,8,217,7:8,20,311,20]0 311,20,311,217p08,217,311,21708,118,311,1180(A831112.62502A,19:0<A2021824.630F6,A,8,A:0K2,118,2:5,1200PA0229 1ZXXS(A)1.1888:YYS(A)2.46118!1dY20Y217X,Y'1n71xA02ǫ.1V1A48.2248,(A)57.66118\1k114249,1881(19,38);"a":14249,2541(31,17);23;"Moment!"1100201ZA1481V10:V20:120001TATA8:TA32TA0:MOMO12XRE(P)1.1888:YDE(P)2.4611812ZA1(XXX)2005331O2X,Y,XX,YY:X,Y1,XX,YY1a2EEE(P)5335w2EEE(P):XZX:YZY2TETA:MEMO2ESE2(P)53402ESE2(P):TSTA:MSMO2XSX:YSY2XXX:YYY:ZA2(31,9);"F-FUNKTIONEN,E-ENDE"3E(509)3E693E70537063(31,9);(20," ")G3"1,3,23,35:^3,184,255,184,224,7s36184,224,287,2243;287,224,287,2553<287,255,184,2553@1,2,24,343J"1)SONNEN-"3T"2)ERDNAH"3^E(509)3hE4955553rE5054704wME13TE31:ME12+4|:(TE);".";(ME);"."F4(EEEF1E4)1E4;"AE"\4XZ,YZ,XZ,YZ1,71r41:յ(13)55204XZ,YZ,XZ,YZ1,7456104MS13TS31:MS124:(TS);".";(MS);"."4(ESEF1E4)1E4;"AE"4XS,YS,XS,YS1,71 51:յ(13)55805XS,YS,XS,YS1,7050,3,23,35:@5(1,23);P$]5(2,23);"s Sicht der E"q5(3,23);"r";JA50,31,0,39:5360 5(#52# 6<# UNTERPROGRAMME -6F# U6P# |6'** UP * AUSGANGSSTANDORTE *******6'(25,16);"MOMENT!"6$'---Planeten/Erdmond--------------6.'A1968'K1(A)KL(A)KV(A)N365.2566B'6L'A110 7V'AWAW(A)K1(A)7`'MRAE(A)EF/7j'KLMR(1EX(A))A7t'DHMR2EX(A)e7~'NN(N28)((N28)UZ(A))UZ(A)7'A1A4A9A1(A)AW(A)NN360UZ(A):102307'H0:NNUZ(A)2NNNNUZ(A)2:H17'A1NN360UZ(A)7'CAW5A1AW58'RR((CP1))(1DHKL)DH8'ZZ18'%8'DRRZKLA8'UZ(UZ(A)2MR3DR3)e8'A1(A)AW(A)NN360UZ(H1)180z8'A1(A)MO(A1(A))8(R(A)KL(((A1(A)K1(A))P1))((1DHKL)1.9)DH8 (8(---Jupitermonde------------------8(A149((NNN(NMU(A))MU(A)92(M1(A)MW(A)NN360MU(A)49<(M1(A)MO(M1(A)):9F(\9P( 9*** UP * EINGABEN ****************9+---Anfangszeit-------------------9 +9+:" ANFANGSZEIT"9 +" -----------"9*+:" DATUM Jahr ";JA:4+" Monat ";M$5:>+(M$)0MO(M$):11140t:H+JANUAR,FEBRUAR,MAERZ,APRIL,MAI,JUNI,JULI,AUGUST,SEPTEMBER:R+OKTOBER,NOVEMBER,DEZEMBER:\+11080:f+A112:p+N$:M$N$MOA:A12:z+:MO011060:+" Tag ";TA:;+" ZEIT(WZ) Stunde ";ST.;+" Minute ";MIU;+...Zeitdifferenz zum 1.1.1990....j;+MMO1:JJA:TTA;+M4MM12:JJ1;+N(J365.25)(M30.6001)T;+N(N726911)(MI60ST)24;+ZR1;+----Standort---------------------;+<+:" STANDORT AUF DER ERDE",<+" ";(21,"-")L<,:"L{nge OST -> positiv"j<," WEST -> negativ"<,:"Breite NORD -> positiv"<$, " SUED -> negativ"<.,:" LAENGE ? ";L<8,(L)18011310.** UP * NEUER STERNHIMMEL *******+>.IM3i>.NNTA((153MO11I162)5)((1461JAI)4)(JA0)366y>.TNN726747>/Z(STMI60)((STMI60).6((STMI60).6))>/ARMO(Z360.98564724(T1461(T1461))1440.02509)>/ZR112250 ?/KLRI88:GLRI883?&/----Fixsterne--------------------@?0/A0229V?:/(509)1316060o?D/REXS(A):DEYS(A)P1?N/SWMO(ARLRE)P1?X/HAS(SB(DE)CB(DE)(SW))?b/H0:12250?l/X((DE)SB(H))(CB(H))?v/X1AZ:12170 @/X1AZ0:AZAC(X)@/SWǩAZAZ.@/WMO(AZP2)G@/RI90W180WW360a@/RI270W180WW360y@/KLWGLW:12250@/YHP21.76661@/X1(A)(WRI)(25600YY)90160@/Y1(A)Y96:@/----Planeten/Erdmond/Sonne-------@/A110 A/(509)1316060)A/A1(A)A1(A)360UZ(A)DV>A0A1(A)MO(A1(A))DA 0sA0BF(1(A1(3)A1(10))180)(A1(3)A1(10))A 0XE(A1(3)P1)EFA*0YE(A1(3)P1)EFA40A09:A312440A>0(509)1316060AH0X1AE(A)(A1(A)P1)EFBR0Y1AE(A)(A1(A)P1)EFB\0XDX1XE:YDY1YE1Bf0E(A)(XDXDYDYD)JBk0E2(A)(X1X1Y1Y1)jBp0XD0RE(A)90(YD):12420Bz0RE(A)(YDXD)P2B0XD0RE(A)180RE(A)B0RE(A)0RE(A)360RE(A)B0B0RE(10)A1(10)B0DWA1(10)K1(10)B0GHAE(10)(1EX(10))C0HH(NE(10)P1)GH'C0WH(DWP1)HHUC0DE(10)(WHAE(10))P2(RE(10)P1)23.45kC0A09:A312580C0(509)1316060C0DWA1(A)K1(A)C0GHAE(A)EF(1EX(A))C1HH(NE(A)P1)GHC1WH(DWP1)HHD1DE(A)(WHE(A))P2(RE(A)P1)23.4431944 D$1D)1ZR1$D.1A010:D81(509)1316060SDB1RERE(A):DEDE(A)P1jDL1SWMO(ARREL)P1DV1HAS(SB(DE)CB(DE)(SW))D`1A0HSHDj1H0:12780Dt1X((DE)SB(H))(CB(H))D~1X1AZ:12690D1X1AZ0:AZAC(X)E1SWǩAZAZ E1WMO(AZP2)9E1RI90W180WW360SE1RI270W180WW360kE1KLWGLW:12780E1YHP21.76661E1XP(A)(WRI)(25600YY)90160E1YP(A)Y96E1A0A10:12780E1XPXP(A):XP(A)31YP(A)8:YP(A)XP8'F1((YP(A))19.5)2(19(XP(A)))2361XP(A)0-F1TF1----Jupitermonde-----------------_F1A14}F2M1(A)M1(A)360MU(A)288F 2M1(A)M1(A)(M1(A)360)360F2F2----neue Zeit (+5min)------------F(2MIMI5F22MI60STST1:MIMI60 G<2ST24TATA1:ST0=GF2((MO(MO7))2)(MO(MO7))2MM30:MM31MGP2MO3MM28zGZ2MO3(JA4)JA4(JA10)JA10MM29Gd2TAMMTA1:MOMO1Gn2MO13MO1:JAJA1Gx2 G2** UP * STERNHIMMEL AUSGEBEN ****H2XR(0)013006!H2(XR(0),YR(0));0;" "5H2XR(10)013010RH2(XR(10),YR(10));0;" "yH2----Sterne-----------------------H2A0229H2X2(A)0X2(A),Y2(A)H2X1(A)0X1(A),Y1(A),7:X2(A)X1(A):Y2(A)Y1(A):X2(A)0H2X1(A)0H3I3----Planeten---------------------*I3A19:A3=I"3XR(A)013120]I,3XR(A),YR(A):XR(A)1,YR(A)I63XR(A)1,YR(A)1:XR(A),YR(A)1I@3XP(A)0XR(A)0::13170IJ3XP(A),YP(A),F(A):XP(A)1,YP(A)IT3XP(A),YP(A)1:XP(A)1,YP(A)1 J^3XR(A)XP(A):YR(A)YP(A):XP(A)0Jh39Jr3----Sonne/Mond-------------------HJw314249,188dJ|3XR(0)XP(0):YR(0)YP(0)wJ3XP(0)013210J3(XP(0),YP(0));7,0;"a"J3XR(10)XP(10):YR(10)YP(10)J3XP(10)013240J3A$"b"K3(XP(0))(XP(10))(YP(10))(YP(0))A$"c"#K3(XP(10),YP(10));7,0;A$2K314249,254VK3(0,0);7,0;(TA);(MO);JA;" "uK3(1,0);7,0;ST;":";MI;" "K3 K6*** UP * MENU *******************K60,7:PP7982K6BB5:"Name: ";E$:15210L6BB6:"Name: ";E$:15360 L6BB014190+L6:BB0DL6:" (1) Meteoriten"ZL6" (2) Mondphase"sL7" (3) Jupitermonde"L 7" (4) Himmelsausschnitt"L7" (5) Planeten"L7" (6) Sternbilder"L(7" (7) Ende"L<7PP7982:E(509)LF7E014170MP7::16160MZ7BBE48M_7BB72Md7BB1BB6141408Mn7`Mx7BB114580,14810,15010,15100,15100M7----Meteoritenstr|me-------------M7TGMO100TAM714260:A111M7MN,MA,N$,AZ:PP2.5M7TGMNMATG:14550M7101,104,DRACONIDEN,30N7402,423,LYRIDEN,50N7612,614,SCORBIUS-SIGITT.,5NN7502,506,ETHA AQUARIDEN,5nN7714,819,BETHA AQUARIDEN,10N7729,817,PERSEIDEN,40N71018,1026,ORIONIDEN,13N71024,1031,TAURIDEN,7N81114,1120,LEONIDEN,6N81207,1215,GERMINIDEN,55O81217,1224,URSIDEN,15DO"8:N$;" vom ";MN(MN100)100;".";(MN100);"."O,8((N$)," ");" bis ";MA(MA100)100;".";(MA100);".O68:"Im Maximum";AZ;"pro Stunde"O@8A1114440OJ8AA111:MN,MA,N$,AZOT8TGMNTGMA :14440O^814370 Ph8H1((1)50)100Pr8H2((1)90)KP|8X1160((1)(25600H12))((1)105)yP8X2160((1)(25600H22))((1)105)P8X1,H195,X2,H295,71P8X1,H195,X2,H295,71P8(7982P)505041116010P8A0175:(509)1314050P8P8PP150Q814440-Q8"ZUR ZEIT KEIN METEORIDENSTROM!"DQ830:PP145:14050kQ8----Mondphase--------------------|Q8270,40,36,0Q8ZE(1(BF))70Q9BF0A135:A235ZE:A135:A2ZE35Q 9AA1A2(A2A1)Q9XA270Q9Y(1225AA)R&9X,40Y,X,40Y:PP10R09#R:9H(35(BF70))9RD9H35X0:14680NRN9X(1225HH)35fRX9X1AF180:14700Rb9AF2(X(1XX))P2Rl9FǮ1225AF360H(1225HH)Rv9PZ(F25.9841.5)1E3R9(BF).5PZ100PZR9:(PZ10)10;"% beleuchtet"R9S9ZE2" Vollmond":160109S9ZE68" Neumond":16010QS9BF0" abnehmend"iS9BF0" zunehmend"tS916010S9----Jupitermonde-----------------S9PP100S9160,40,11,0:160,40,12S9A14S9X1(M1(A)P1)MA(A)12600T:XX(A)0:P(A)0+T :(M1(A)P1)0(X1)13WW(A)0:14890ET:X1160,40,MD(A)2400VT :XX(A)X1160\T*:vT4:A14:XX(A)014940T>:C14:XX(C)0AC14930TH:XX(A)XX(C)P(A)P(A)1TR:T\:ATf:A03Tp:C14Tz:AP(C)XX(C)0M$(C);" ";T::U:16010.U:----Standort---------------------TU::" Beobachtungsstandort:";(L);hU:L0"O":Ԟ"W"U:" (";O$;")";22);(B);U:B0"S":Ԟ"N"U:U:" Blickrichtung: Azimut";RI180((RI180)360)360V::" H|he der Sonne:";(HSP210)10;"Grad"'V::" 25% des Gesamthimmels"9V:PP20:16010`V:----Planeten---------------------jV;E$""|V;"Name:":SP6V;(22,SP);"<"V$;E(509):PP4.5:E015140V.;E13E3215140V8;E1315200VB;E90EE32VL;(22,SP);(E)WV;E$E$(E):SPSP1:15130(W`;(22,SP);" "8Wj;BB615360CWt;A19WW~;E$N$(A)15250fW;::15270yW;XR(A)015280W;"nicht sichtbar!":10W;PP50:BB0:14050W;XPXR(A):YPYR(A):PLAW;XP,YP,21W;XP,YP1,21X;"Durchmesser:";D(A);"km" X;"Umlaufzeit :";UZ(A);"d"HX;"L{nge der Ekliptik:";A1(A);"Grad"ZX;PP10:16010X;----Sternbilder------------------X----Ende der Unterprogramme------$Z>PP79829Z>(509)1316060?Z>EZ>QZ>ZR1bZ>BB516090Z>XP,YP,F(PL):XP,YP1,F(PL)Z>16130Z>BB616130Z>A010:LX(A)016120Z>LX(A),LY(A),7Z>Z?:BB0:PP10Z ?P745014030[?P7975(7981P)5:P7980E[ ?(26,3);"NEUER STERNHIMMEL WIRD BERECHNET"g[*? [hB----Zusatzzeichen----------------[rB60,66,129,153,153,129,66,60[|B28,40,88,76,72,72,40,28[B120,132,183,190,143,126,14,7 \ N*********************************K?P7975(,60[|B28,40,88,76,72,72,40,28[B120,132,183,190,143,126,14,7 \ N*********