7X I#1: 1:******** H I M M E L ****************d************************************* ` by Torsten Baumbach 18.10.1990 ** Ahornstra~e 16 ** Gera-Lusan * * O-65o2 *7************************************ a2====SONNE/PLANETEN/ERDMOND==========<---Planetennamen--------------------FSONNE,MERKUR,VENUS,ERDE,MARSPJUPITER,SATURN,URANUS,NEPTUNZPLUTO,ERDMOND d---Entfernung zur Sonne in AE------0n0,.387099,.723332,1.00,1.523691Px5.204892,9.575616,19.28093n30.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.48972Z1.3046,2.4874,.7719,1.7710l17.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-------------@0,.01185,.00901,0,.00771,0,0,0K0,0,0t"---Umlaufzeit----------------------,0,87.969,224.701,365.2566686.980,4332.0597,10821.396@30923.667,60443.932,91989.9J27.32166 T---ekliptikale L{nge(29.1.1990)----. ^0,201.10,135.06,128.95,245.38N h98.69,287.11,275.90,282.38a 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 M ====JUPITERMONDE===================v ---Mondnamen----------------------- IO,EUROPA,GANYMED,KALLISTO ---Abstand vom Planet-------------- 421600,670900,1070000,1880000 ---Durchmesser---------------------$ 3632,3126,5376,4820M ---sid.Umlaufzeit------------------k 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,0G :252.5,82.2,0,246.3,75.5,0f D238.5,78.0,0,230.2,71.8,0 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,21 2.3,59.2,2,3.3,15.2,2P 346.2,15.2,3,345.9,28.1,3o 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,5286.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,6Z265.6,-39,7,264.3,-43,7{263.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,814218,30.5,8,213.9,19.2,8O>201.3,-11.2,9,198,-7.5,9kH195.5,11,9,193.9,3.4,9R190,-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,11M146.5,23.8,11,116.3,28,12n113.7,31.9,12,101.3,12.9,12101,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,14$79.2,46,14,75.5,43.8,14B74.3,33.2,14,88.8,7.4,15_86.9,-9.1,15,85.2,-2,15{84.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,18ZB342.5,66,18,322.2,70.6,18{L319.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,21458.8,12.5,21,56.9,24.1,21T114.8, 5.2,22,111.8,8.3,22t124.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,25^229.3,-9.4,25,233.9,-14.8,25304.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,27'125.6,-59.5,27,146.8,-65.1,27J(160.7,-64.4,27,139.3,-59.3,27j2138.3,-69.7,27,45.6,4.1,28<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,28n26.1,-16,28,6.6,-42.3,299x16.5,-46.7,29,22.1,-43.3,29Y22.8,-49.1,29,2.3,-45.7,29y331.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,3115.8,7.9,31,22.9,15.4,31818.4,24.6,31,15.7,31.8,31W17.9,30.1,31,359.8,6.9,31x252.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,35!161.7,-49.4,35,137,-43.4,35B140.5,-55,35,220.1,-60.9,36a"211,-60.4,36,190.4,-49,36,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,37Ah64.5,-33.8,37,29,-51.6,37_r55.8,-9.8,37,244.5,19,38|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---------------->URSA MINOR,KLEINER WAGEN\URSA MAIOR,GROSSER WAGENwCASSIOPEIA,KASSIOPEIAPEGASUS,PEGASUS,CYGNUS,SCHWANAQILLA,ADLER,LYRA,LEIERSCORPIUS,SKORPION,BOOTESBOOTES,VIRGIO,JUNGFRAU CRUX,KREUZ DES SUEDEN,LEO,LOEWE,GEMINI,ZWILLINGEJCANIS MAIOR,GROSSER HUNDkAURIGA,FUHRMANN,ORION,ORION&PERSEUS,PERSEUS,ANDROMEDA0ANDROMEDA,CEPHEUS,KEPHEUS:DRACO,DRACHE,ARIES,WIDDERDTAURUS,STIER,CANIS MINORNKLEINER HUND,CANCER,KREBSXSAGITTARIUS,SCHUETZE<bLIBRA,WAAGE,CAPRICORNUSRlSTEINBOCK,CARINArvSCHIFFSKIEL,CETUS,WALFISCHPHOENIX,PHOENIX,AQUARIUSWASSERMANN,PISCES,FISCHETRIANGULUM AUSTRALESUEDLICHES DREIECK,GRUSFISCHE,PISCIS AUSTRINUS"SUEDLICHER FISCH,VELA,SEGELBCENTAURUS,ZENTAUR,ERIDANUSgFLUSS 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,39> "Das Programm dient zur }berwiegend gra-"o "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"`& "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-"F X "mond- bzw.Planetenbewegungen darstellen."v 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)5! X1(229),Y1(229),X2(229),Y2(229)H! L$(38),S$(38)]! A010:N$(A):r! A010:AE(A):! 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):@" A14:MA(A):T" A14:MD(A):h" A14:MU(A):|" 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)360I#f AS(X)(X(1XX))g#p AC(X)ǯ2(X(1XX))#z P1ǯ180:P2180:DV288# EF149.6E6:P7985# (31,33);2;""# յ(13)3470 # ====PROGRAMMTEILWAHL==============$ :"(1) STERNHIMMEL"5$ :"(2) JUPITERMONDBEWEGUNGEN"W$ :"(3) REL.PLANETENBEWEGUNG"c$ :"";K$ K3480,4000,5000:3472 $ **** STERNHIMMELDARSTELLUNG ******$ 11000:<--Eingaben------------$ 10000:<--Ausgangsstandorte---% ----Bildschirm--------------------0% 0,31,0,39::7E% 22,31,0,39::0T% A045.5i% X(Aǯ180)160~% 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"C&BRI90(21,19);"O"S&L0,7:16130{&V----Programmschleife--------------&`12000:<--Koordinaten ber.---&j13000:<--Sternhimmel--------&t14000:<--Men}--------------- '~3680 1'**** JUPITERMONDBEWEGUNG *********P':"BEOBACHTUNGSZEITRAUM:"c':"Monat:";M$'(M$)0MO(M$):4080'11080'A112:N$'M$N$MOA:A12':MO04020'"Jahr :";JA:'TA1:ZR1:11170:ZR0(,----Jupiter darstellen------------9(6-24,-13,4,20,-70,7,-58,2,-48,2^(@-40,5,-5,3,26,6,41,3,51,3,59,11t(E0,31,0,39:0,7:(F160,144,71,0(J4150(TA03:AS(^160(4900AS2),AS144,160(4900AS2),AS144(h(rA08:AS,AZ(|BASASAZ-)160(4901B2),B144,160(4901B2),B1445):I)(4,18);"Nord"])(23,19);"S}d"v)130,120,110,120,128)120,116,12,0)"NOMENKLATUR DER GRUNDFORMATION")"DER JUPITEROBERFLAECHE (nach B}deler)")26,0*"Mondabst{nde vom Planeten:"*7**(27,29);"Mondauswahl"E*(28,29);"mit Pfeil-"`*(29,29);"tasten und"v*(30,29);"Enter"}*0*A14*M$(A),MA(A);"km":*C1*(C26,0);4;M$(C)*E(509)*(C26,0);M$(C)*E10C4CC1 +E11C1CC1#+E13N$M$(C):4350-+4342U+----Mondbewegung darstellen-------m+(C26,0);4;M$(C)z+10260:+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);".";JAO,b(31,0);" 1300000km JUPITER 1300000km"m,l60,12,60,8:260,12,260,8,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/-FF14660>-BAC1AT-160X2,B1,148,Be-:FF1:4660t-FF04630-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 W.**** REL.PLANETENBEWEGUNG ********y.ZR1:DV18:EE1E30:ES1E30:."Beobachtungsjahr:";JA.MO1:11170.:"Planetenname:";P$.P19:P$N$(P)P35062.:5040.P75070'/"Verh{ltnis von Umlaufzeit zu Bahnradius"T/"l{~t innerhalb eines Jahres keine gut"/"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";JA80(30,0);"0h":(30,37);"24h"W08,20,8,217,7:8,20,311,20k0 311,20,311,217~08,217,311,21708,118,311,1180(A831112.62502A,19:0<A2021824.630F6,A,8,A:0K2,118,2:5,1200PA02291ZXXS(A)1.1888:YYS(A)2.46118/1dY20Y217X,Y51nE1xA02ǫ.1d1A48.2248,(A)57.66118j1y114249,1881(19,38);"a":14249,2541(31,17);23;"Moment!"1100201ZA1481V10:V20:120001TATA8:TA32TA0:MOMO1$2XRE(P)1.1888:YDE(P)2.46118?2ZA1(XXX)2005331]2X,Y,XX,YY:X,Y1,XX,YY1o2EEE(P)53352EEE(P):XZX:YZY2TETA:MEMO2ESE2(P)53402ESE2(P):TSTA:MSMO2XSX:YSY2XXX:YYY:ZA3(31,9);"F-FUNKTIONEN,E-ENDE"3E(509)3E69-3E705370D3(31,9);(20," ")U3"1,3,23,35:l3,184,255,184,224,736184,224,287,2243;287,224,287,2553<287,255,184,2553@1,2,24,343J"1)SONNEN-"3T"2)ERDNAH"3^E(509)3hE4955554rE5054704wME13TE31:ME1294|:(TE);".";(ME);"."T4(EEEF1E4)1E4;"AE"j4XZ,YZ,XZ,YZ1,7141:յ(13)55204XZ,YZ,XZ,YZ1,7456104MS13TS31:MS124:(TS);".";(MS);"."4(ESEF1E4)1E4;"AE"5XS,YS,XS,YS1,7151:յ(13)5580-5XS,YS,XS,YS1,7>50,3,23,35:N5(1,23);P$k5(2,23);"s Sicht der E"5(3,23);"r";JA50,31,0,39:5360 5(#52# 6<# UNTERPROGRAMME ;6F# c6P# 6'** UP * AUSGANGSSTANDORTE *******6'(25,16);"MOMENT!"6$'---Planeten/Erdmond--------------6.'A1968'K1(A)KL(A)KV(A)N365.2566B'7L'A1107V'AWAW(A)K1(A))7`'MRAE(A)EF=7j'KLMR(1EX(A))O7t'DHMR2EX(A)s7~'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'ZZ1%8'38'DRRZKLO8'UZ(UZ(A)2MR3DR3)s8'A1(A)AW(A)NN360UZ(H1)1808'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)B9<(M1(A)MO(M1(A))H9F(j9P( 9*** UP * EINGABEN ****************9+---Anfangszeit-------------------9 +9+:" ANFANGSZEIT"9 +" -----------" :*+:" DATUM Jahr ";JA&:4+" Monat ";M$C:>+(M$)0MO(M$):11140: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 ";MIc;+...Zeitdifferenz zum 1.1.1990....x;+MMO1:JJA:TTA;+M4MM12:JJ1;+N(J365.25)(M30.6001)T;+N(N726911)(MI60ST)24;+ZR1<+----Standort---------------------<+'<+:" STANDORT AUF DER ERDE":<+" ";(21,"-")Z<,:"L{nge OST -> positiv"x<," WEST -> negativ"<,:"Breite NORD -> positiv"<$, " SUED -> negativ"<.,:" LAENGE ? ";L<8,(L)18011310, />.** UP * NEUER STERNHIMMEL *******9>.IM3w>.NNTA((153MO11I162)5)((1461JAI)4)(JA0)366>.TNN726747>/Z(STMI60)((STMI60).6((STMI60).6))>/ARMO(Z360.98564724(T1461(T1461))1440.02509)?/ZR112250?/KLRI88:GLRI88A?&/----Fixsterne--------------------N?0/A0229d?:/(509)1316060}?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)U@/RI90W180WW360o@/RI270W180WW360@/KLWGLW:12250@/YHP21.76661@/X1(A)(WRI)(25600YY)90160@/Y1(A)Y96:@/----Planeten/Erdmond/Sonne-------A/A110A/(509)13160607A/A1(A)A1(A)360UZ(A)DVLA0A1(A)MO(A1(A))RA 0A0BF(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)EF'B\0XDX1XE:YDY1YE?Bf0E(A)(XDXDYDYD)XBk0E2(A)(X1X1Y1Y1)xBp0XD0RE(A)90(YD):12420Bz0RE(A)(YDXD)P2B0XD0RE(A)180RE(A)B0RE(A)0RE(A)360RE(A)B0B0RE(10)A1(10)B0DWA1(10)K1(10) C0GHAE(10)(1EX(10))"C0HH(NE(10)P1)GH5C0WH(DWP1)HHcC0DE(10)(WHAE(10))P2(RE(10)P1)23.45yC0A09: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.4431944D$1&D)1ZR12D.1A010HD81(509)1316060aDB1RERE(A):DEDE(A)P1xDL1SWMO(ARREL)P1DV1HAS(SB(DE)CB(DE)(SW))D`1A0HSHDj1H0:12780Dt1X((DE)SB(H))(CB(H))D~1X1AZ:12690 E1X1AZ0:AZAC(X)E1SWǩAZAZ.E1WMO(AZP2)GE1RI90W180WW360aE1RI270W180WW360yE1KLWGLW:12780E1YHP21.76661E1XP(A)(WRI)(25600YY)90160E1YP(A)Y96E1A0A10:12780F1XPXP(A):XP(A)31YP(A)8:YP(A)XP85F1((YP(A))19.5)2(19(XP(A)))2361XP(A)0;F1bF1----Jupitermonde-----------------mF1A14F2M1(A)M1(A)360MU(A)288F 2M1(A)M1(A)(M1(A)360)360F2F2----neue Zeit (+5min)------------F(2MIMI5G22MI60STST1:MIMI60G<2ST24TATA1:ST0KGF2((MO(MO7))2)(MO(MO7))2MM30:MM31[GP2MO3MM28GZ2MO3(JA4)JA4(JA10)JA10MM29Gd2TAMMTA1:MOMO1Gn2MO13MO1:JAJA1Gx2 H2** UP * STERNHIMMEL AUSGEBEN ****H2XR(0)013006/H2(XR(0),YR(0));0;" "CH2XR(10)013010`H2(XR(10),YR(10));0;" "H2----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)0H3&I3----Planeten---------------------8I3A19:A3KI"3XR(A)013120kI,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)1J^3XR(A)XP(A):YR(A)YP(A):XP(A)0 Jh3GJr3----Sonne/Mond-------------------VJw314249,188rJ|3XR(0)XP(0):YR(0)YP(0)J3XP(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"1K3(XP(10),YP(10));7,0;A$@K314249,254dK3(0,0);7,0;(TA);(MO);JA;" "K3(1,0);7,0;ST;":";MI;" "K3 K6*** UP * MENU *******************K60,7:PP7982K6BB5:"Name: ";E$:15210L6BB6:"Name: ";E$:15360.L6BB0141909L6:BB0RL6:" (1) Meteoriten"hL6" (2) Mondphase"L7" (3) Jupitermonde"L 7" (4) Himmelsausschnitt"L7" (5) Planeten"L7" (6) Sternbilder"L(7" (7) Ende"L<7PP7982:E(509)MF7E014170MP7::16160MZ7BBE48+M_7BB7@Md7BB1BB614140FMn7nMx7BB114580,14810,15010,15100,15100M7----Meteoritenstr|me-------------M7TGMO100TAM714260:A111M7MN,MA,N$,AZ:PP2.5M7TGMNMATG:14550N7101,104,DRACONIDEN,30N7402,423,LYRIDEN,5>N7612,614,SCORBIUS-SIGITT.,5\N7502,506,ETHA AQUARIDEN,5|N7714,819,BETHA AQUARIDEN,10N7729,817,PERSEIDEN,40N71018,1026,ORIONIDEN,13N71024,1031,TAURIDEN,7N81114,1120,LEONIDEN,6O81207,1215,GERMINIDEN,55O81217,1224,URSIDEN,15RO"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 :14440P^814370Ph8H1((1)50)100+Pr8H2((1)90)YP|8X1160((1)(25600H12))((1)105)P8X2160((1)(25600H22))((1)105)P8X1,H195,X2,H295,71P8X1,H195,X2,H295,71P8(7982P)505041116010P8A0175:(509)1314050P8 Q8PP150Q814440;Q8"ZUR ZEIT KEIN METEORIDENSTROM!"RQ830:PP145:14050yQ8----Mondphase--------------------Q8270,40,36,0Q8ZE(1(BF))70Q9BF0A135:A235ZE:A135:A2ZE35Q 9AA1A2(A2A1)Q9XA270Q9Y(1225AA)R&9X,40Y,X,40Y:PP10R091R:9H(35(BF70))GRD9H35X0:14680\RN9X(1225HH)35tRX9X1AF180:14700Rb9AF2(X(1XX))P2Rl9FǮ1225AF360H(1225HH)Rv9PZ(F25.9841.5)1E3R9(BF).5PZ100PZS9:(PZ10)10;"% beleuchtet" S9)S9ZE2" Vollmond":16010GS9ZE68" Neumond":16010_S9BF0" abnehmend"wS9BF0" zunehmend"S916010S9----Jupitermonde-----------------S9PP100S9160,40,11,0:160,40,12S9A14S9X1(M1(A)P1)MA(A)12600T:XX(A)0:P(A)09T :(M1(A)P1)0(X1)13WW(A)0:14890ST:X1160,40,MD(A)2400dT :XX(A)X1160jT*:T4:A14:XX(A)014940T>:C14:XX(C)0AC14930TH:XX(A)XX(C)P(A)P(A)1TR:T\:ATf:A03Tp:C14Uz:AP(C)XX(C)0M$(C);" "; U::U:16010----Ende der Unterprogramme------2Z>PP7982GZ>(509)1316060MZ>SZ>_Z>ZR1pZ>BB516090Z>XP,YP,F(PL):XP,YP1,F(PL)Z>16130Z>BB616130Z>A010:LX(A)016120Z>LX(A),LY(A),7Z>Z?:BB0:PP10[ ?P745014030#[?P7975(7981P)5:P7980S[ ?(26,3);"NEUER STERNHIMMEL WIRD BERECHNET"u[*? [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