M0 I#1: 10 100:13702 STERN SETZENNSWM(ARREL):SWSWP1p(HS(SB(DE)CB(DE)(SW))2H0X0:Y0:<AC(((DE)SB(H))(CB(H)))FSWǩAAPR120H240:WAǯ2ZX((W)R120.5)dY(128(W)R)#n(25,30);(N$" ",10):X,Y,7)x9 FIXSTERNEC2280OI0I1m RE,DE,F$(I),H:F(I)HQQzDEDEP1N$F$(I):30F(I)F(I)QCXY: REKTASZENSION/DEKLINATIONSN(ABP1):CS(ABP1)SL(ALP1):CL(ALP1)DES(ECSNESCSSL)ERE2((ECCSSLESSN)((DE)CSCL))ZREM(REP2):30i EINGABENQA(U8)QB((QCV)4),QD"QA(X8)QB((QCY)4),QE:UX:VY,A$:A$""3006A(A$):A8X8XX8:280@A9X232XX8:280JA10Y12YY4:280:TA11Y244YY4:280T^A25X8XX1:280phA24X240XX1:280rA18Y8YY1:280|A17Y248YY1:280A48A54:280A526:::1700A480,31,0,39:7,1::: XM1E9:Z1:A517306A505;(25,30);"STERNBILD ":490R5;(25,30);"SU.STERN"f TEST PLANETENI05:XPP(I,0)X:YPP(I,1)YXPXPXPYPYP:XPXMXMXP:ZI:XPXM:XP0(26,30);P$(Z):680 TEST FIXSTERNE I0I1:HF(I):HS(HQQ)9 HHHSQQ:XT(HQC):HHQCXT:XSXTX:YPHYo XFXSXSYPYP:XFXMXMXF:ZFI:XUXT:YUH:HUHS :XPXMA49(26,30);P$(Z):XP(Z,0):YP(Z,1):680 XXU:YYU:(26,30);F$(ZF) &(27,30);"Sternbild":(28,30);S$(HU,1) 0(29,30);S$(HU,0):A50680' :GHU:HS(G)1? D STERNBILD BLINKENT NIH:H70:HL HLq XHS(F(I)QQ):HSG650 bHUF(I)QQHS:XU(HUQC):YUHUQCXU lXUYU0640:H71 vHLXU,YU:XU,YU II1:600 H702;(27,30);"N.SICHTBAR":710 A$:A$""HL5905 25,30,30,39:6::280H X,Y:3:X,Y,7_ 2:A$:A$""680h 670| A$:A$""710 X9:Y9:670 2;"Eingabe:" "";N$:N(N$)  TEST PLANETEN Z1:I05:N$(P$(I),N)ZI:I5 :Z08000 (26,30);(P$(Z)" ",9):XP(Z,0):YP(Z,1)] X0680:Ԟ2;(27,30);"N.SICHTBAR":710r  TEST FIXSTERNE *I0I1:N$(F$(I),N)ZI:II1 4:Z0880 >(26,30);(F$(Z)" ",10):(27,30);"Sternbild" HHF(Z):HS(HQQ):HHQQHS:X(HQC):YHXQC; R(28,30);S$(HS,1):(29,30);S$(HS,0)H \X0680k f2;(27,30);"N.SICHTBAR":710 p TEST STERNBILDER zI0I3:N$(S$(I,0),N)ZI:II3:910 N$(S$(I,1),N)ZI:II3 :Z02;(27,30);"UNBEKANNT":710 (27,30);"STERNBILD":(28,30);S$(Z,1)C(29,30);S$(Z,0):GZ:HS(Z)1L590W ERDEsBEM(TG.98560999.18)ELM(BE((BE102.2)P1)1.845)EA1((EL192.2)P1).0167 SONNELSM(EL180) MONDLMTG13.176451.23PMTG.111399208.9*KM372.1TG.0529536LLMM(LM):PMM(PM):KMM(KM)l$AMLMPM:KMKM(ASP1).16.MS(LMLS)2AM8AMAM(MSP1)1.27389(ASP1)(.186389.36)BLMLM(MSP1)1.27389(ASP1).186389(AMP1)2LM1LMLS:LMLM(M12P1).6583333VM2LMKM:LMLM(M22P1).12K`BM(M2P1)5.14539_jM3(LMLS)2M2vtBMBM(M3P1).15~ALLS:AB0:N$"SONNE":220X01180I13:X,Y,I,6:ALLM:ABBM:N$"MOND":220X0X,Y,2,7 PLANETEN4450:Z057P$(Z),TB,EP,PH,MP,E,KN,I,AEKMLM(TBTGEP)fWLML((MLPH)P1)MPSPAE((WLPH90)P1)EAEWSM(CELWL)P1:SI(WS) FLEASP(WS)WE(SIFL)P2ALM(ELWE180(FL0))(WT((WLKN)P1)I$2AB((WTP1)((WEP1)SI))P26<N$P$(Z):220LFP(Z,0)X:P(Z,1)YTP:jZ0,31,0,39:7,6:d1,11,1,38:6,2::n" **** ***** ***** **** * * *****"x" * * * * * * * *"" * * * * * ** * *")" *** * **** **** * * * ****"Q" * * * * * * ** *"~" **** * ***** * * * * *****" " ==================================="" (C) bidat'88 fuer KC85/3" NACH H.HINKELMANN (HAMM/BRD)13,30,1,38:7,6/"DIESES PROGRAMM ZEICHNET EINE STERN-"["KARTE MIT SONNE, MOND, PLANETEN UND""FIXSTERNEN FUER EINEN VORGEGEBENEN""ORT UND ZEITPUNKT. DER DANACH IM BILD""ERSCHEINENDE CURSOR KANN MIT DEN CUR-""SORTASTEN AUF EINEN STERN BEWEGT WER-":"DEN. DAS PROGRAMM GIBT DEN NAMEN DES"f"STERNS AN. WIRD EIN NAME EINGEGEBEN,"""SUCHT DAS PROGRAMM DEN STERN BZW.","DAS STERNBILD UND LAESST ES BLINKEN."6P$(5),P(5,1),F$(176),F(176),S$(38,1),S(38),M(12)@M(X)X(X360)360'JS(X)(X(1XX))DTC(X)ǯ2(X(1XX))k^I1175:I338:F1:P1ǯ180:P2180h2260:I112:M(I):rQA10240:QB32:QC255:QD56:QE62:QQ65536| STERNBILDER EINLESEN4050:I0I3:S$(I,0),S$(I,1),S(I)::30);:"";A$+ PARAMETEREINGABEA1,30,1,38:7,3:y0,7:" * * STERNE * * PARAMETEREINGABE * * ":7,3"BITTE GEBEN SIE NUN DIE GEOGRAFISCHEN""KOORDINATEN FUER DEN STANDORT DES BE-""OBACHTERS AN, z.B. FUER ERFURT:"-1:"LAENGE:11";:3:" (WESTL.LAENGE NEGATIV)"`1:"BREITE:51";:3:" (SUEDL.BREITE NEGATIV)":2:"EINGABE GEOGR. LAENGE:";L:LL(L)1801770"EINGABE GEOGR. BREITE:";B(B)901790:3:"BITTE GEBEN SIE NUN DIE UHRZEIT"1:"(WELTZEIT)";:3:"EIN:"E&:2:"EINGABE UHRZEIT (WELTZEIT)";d01:"hh.mm";:2:":";WZ:3::"BITTE GEBEN SIE NUN DAS DATUM EIN:":D2:"EINGABE JAHR:";J:J100JJ1900N" MONAT:";M:M1M121870X" TAG:";T:T1T311880b ABLAUFSTEUERUNG(l19702v2100;950E1230N140oX120:Y128:U120:V128:280 ZEITBERECHNUNGZT(WZ)(WZ(WZ)).6H7TZT24M(M)(M2(J4(J4)))K365.2422JH7TA365.2422(J1900)H7TG365.2422(J1950)H7(E23.427:AS5.145BSB(BP1):CB(BP1)\ES(EP1):EC(EP1)LO(L15)15:OZM(ZT15LO)15 ARZT360.98624(TA1461(TA1461))1440.03ARAR(TA1461).030757299.2019 ARM(AR):* BILDSCHIRMAUFBAU47,0:1,30,0,29:->7,6:1,30,30,39:_H1,3,30,39::0:"* STERNE * ======" R4,15,30,39:7,3:::"DATUM:"\((T),2)"."((M),2)"."((J),4)f"ORTSZEIT ";(OZ)(OZ(OZ)).6p"WELTZEIT ";WZ:"KOORDINAT"zA$"o.L.":L0A$"w.L."8(L);A$:A$"n.B.":B0A$"s.B."Y(B);A$:15,23,30,39:7,5::"FUNKTIONEN==========1=STERN 2=ST.BILD""3=NAME":"4=PARAM.":"0=ENDE"0,8,0,247,77,0:120,128,120,70:25,30,30,39 0,31,59,90,120,151&181,212,243,273,304,3346 FIXSTERNEM27.2,89,POLARIS,0f267,86.6,PHERKORD,0} 252.8,82.1,UMI3,0 246.3,75.5,UMI4,0 236.5,78,UMI5,0$ 230,72,PHERKAD,0. 222.7,74.4,KOCHAB,08 206.4,49.6,BENETNASCH,1 B 200.5,55.2,MIZAR,1$L 193,56.2,ALIOTH,1=V 183.2,57.3,MEGREZ,1T` 177.8,54,PHEKDA,1jj 165.2,62,DUBHE,1t 164.7,56.6,MERAK,1~ 28.6,63.2,CAS1,2 20.5,60,KSORA,2 13.5,60.4,CAS3,2 9.5,56.3,SCHEDAR,2 1.6,58.9,CAPH,2 2.7,14.9,ALGENIB,3! 345.5,14.9,MARKAB,3: 345.3,27.8,SCHEAT,3P 327.8,9.6,ENIF,3g 311,33.8,GIENHA,4} 310,45.1,DENEB,4 305,40.1,SADOR,4 296.2,45,CYG4,4 292.2,28,ALBIREO,4 302.8,-.9,AQL1,5  297,8.7,ATAIR,5! 298.2,6.3,ALSHAIN,5!( 296,10.5,TARAZED,50!2 290.8,3,OKAB,5E!< 286.6,-5,AQL5,5\!F 286.4,13.8,AQL6,5w!P 284.2,32.6,SULAPHAT,6!Z 281,39.6,LYR2,6!d 282,33.3,SCHELIAK,6!n 283,37,LYR4,6!x 278.8,38.7,WEGA,6! 264.8,-30,SCO1,7! 261.8,-37,SCO2,7" 251.8,-34.2,SCO3,7-" 262.5,-37.1,SHAULA,7A" 239,-26,SCO5,7Y" 244.5,-25.5,SCO6,7t" 246.5,-26.3,ANTARES,7" 240.6,-19.7,ACRAB,7" 239.3,-22.5,DSHUBBA,7" 248.2,-28.1,SCO10,7" 228.4,33.3,BOO1,8" 225,40.6,MERES,8# 220.8,27.3,IZAR,8# 217.5,38.5,HARIS,84# 217.4,30.6,BOO5,8M# 213.2,19.5,ARKTUR,8d#" 208,18.6,MUFRID,8{#, 200.5,-11,SPIKA,9#6 197,-5.3,VIR2,9#@ 195,11,VINDEMIAT,9#J 193.2,3.7,AUVA,9#T 190,-1,PORRIMA,9#^ 184,0,VIR6,9#h 177,2,ZAVIJAH,9$r 191.2,-59.4,CRU1,10+$| 187,-56.8,CRU2,10B$ 186,-62.8,CRU3,10Y$ 184.6,-60,CRU4,10u$ 176.5,14.9,DENEBOLA,11$ 167.8,15.7,COXA,11$ 167.8,20,ZOSMA,11$ 154.3,20.1,ALGEIBA,11$ 151.5,12.2,REGULUS,11$ 151.2,17,LEO7,11% 145.8,24,ELASED,11 % 115.5,28,POLLUX,128% 112.7,32,KASTOR,12N% 100.6,13,GEM3,12g% 100,25.2,MEBSUTA,12% 98.8,16.4,ALHENA,12% 93,22.5,TEJAD,12% 110.5,-29.2,ALUDRA,13%& 106.5,-26.3,WEZEN,13%0 104.2,-29,ADARA,13%: 100.8,-16.4,SIRIUS,13&D 95,-18,MIRZAM,13+&N 94.5,-30,FURUD,13@&X 89,37.2,AUR1,14X&b 89,45,MENKALMAN,14p&l 78.2,46,CAPELLA,14&v 75.5,41.2,HOEDUS,14& 73.5,29.5,HASSALEH,14& 88,7.4,BETEIGEUZE,15& 86.2,-9.7,SAYPH,15& 84.5,-2,ALNITAK,15' 83.2,-1.2,ALNILAM,15!' 82.2,-.3,MINTAKA,15<' 80.5,6.3,BELLATRIX,15R' 78,-8.2,RIGEL,15g' 58.6,40,PER1,16' 57.8,31.7,MENKHIB,16' 54.8,47.6,PER3,16' 50.2,49.7,ALGENIB,16' 46.2,40.8,ALGOL,16' 45.2,53.3,MIRFAK,16' 30,42,ALAMAK,17( 16.2,35.4,MIRACH,17'( 9.2,30.6,AND3,17?(* 1.5,28.8,SIRRAH,17X(4 354.2,77.4,ALRAI,18l(> 342,66,CEP2,18(H 322,70.3,ALPHIRK,18(R 319.2,62.4,ALDERAMIN,18(\ 268.8,51.5,ETAMIN,19(f 262.2,52.3,ALWAID,19(p 231,59,DRA3,19)z 246,61.6,DRA4,19) 257.2,65.8,NODUS1,192) 288,67.6,NODUS2,19H) 31,23.2,HAMAL,20a) 28,20.6,SHERATAN,20v) 83.7,21,TAU1,21) 80.8,28.6,NATH,21) 68.2,16.4,ALDEBARAN,21) 59.5,12.4,TAU4,21) 56.1,24,ALCYONE,21) 56.9,24.1,PLEJADEN,21 * 114.2,5.5,PROKYON,22%* 111,8.4,GOMEISA,22B* 330.8,-.6,SADALMELEK,23\*322.2,-6,SADALSUD,23u*210.9,-36.1,CEN1,24*199.4,-36.5,CEN2,24*$219,-60.6,TOLIMAN,24*.210,-60.1,CEN4,24*8189.9,-48.7,CEN5,24*B181.5,-50.4,CEN6,24 +L204.2,-53.2,CEN7,24!+V218,-41.9,CEN8,247+`45,3.9,MENKAR,25P+j10.2,18.3,KAITOS,25d+t34,3.2,M\RA,25}+~233.1,26.9,GEMMA,26+141.2,-8.4,ALFARD,27+263,12.6,ALHAGUE,28+265.2,4.6,AL_RAI,28+243,-3.6,YED,28+248.6,-10.5,OPH4,28,256.9,-15.7,OPH5,28/,343.8,-29.9,FORMALHAUT,29H,102.2,-50.4,PUP1,30b,120.4,-39.9,NAPOS,30y,108.8,-37,PUP3,30,121.4,-24.2,PUP4,30,274.5,-29.9,KAUSMEDIUS,31,275.2,-34.4,KAUS_AUSTR,31, 284.8,-30,ASCELLA,31 -276.2,-25.4,KAUSBOREAL,31!-283,-26.4,NUNKI,31<-(95.5,-52.7,CANOPUS,32U-2138.2,-69.5,CAR2,32n-<125.4,-59.3,CAR3,32-F139,-59.1,CAR4,32-P24,-57.5,ARCHERNAR,33-Z331.2,-47.2,ALNAIR,34-d340,-47.1,GRU2,34-n305.5,-56.9,PAV1,35.x6,-42.6,PHO1,36.250,-68.9,TRA1,370.237.8,-63.3,TRA2,37I.228.5,-68.5,TRA3,37a.122,-47.12,VEL1,38z.130.8,-54.5,VEL2,38.140.2,-54.8,VEL3,38.136.5,-43.2,VEL4,38.161.2,-49.1,VEL5,38. STERNBILDER.URSA MINOR,KL.WAGEN,1 /URSA MAIOR,GR.WAGEN,8+/CASSIOPEIA,KASSIOPEIA,15C/PEGASUS,PEGASUS,20Y/CYGNUS,SCHWAN,24o/AQUILLA,ADLER,29/LYRA,LEIER,36/"SCORPIUS,SKORPION,41/,BOOTES,BOOTES,51/6VIRGIO,JUNGFRAU,58/@CRUX,KR.SUEDENS,65/JLEO,LOEWE,69 0TGEMINI,ZWILLINGE,76)0^CANIS MAIOR,GR.HUND,82A0hAURIGA,FUHRMANN,88U0rORION,ORION,93n0|PERSEUS,PERSEUS,1000ANDROMEDA,ANDROMEDA,1060CEPHEUS,KEPHEUS,1100DRACO,DRACHE,1140ARIES,WIDDER,1200TAURUS,STIER,1221CANIS MINOR,KL.HUND,128 1AQUARIUS,WASSERMANN,130;1CENTAURUS,ZENTAUR,132S1CETUS,WALFISCH,140n1CORONABOR,N.KRONE,1431HYDRA,WASSERSCHL,1441OPHIUCHUS,SCHLTRAGER,1451PISCESAUST,S.FISCHE,1501PUPPIS,PUPPIS,1511SAGITARIUS,SCHUETZE,155 2CARINA,KIEL,160'2&ERIDANUS,ERIDANUS,164=20GRUS,KRANICH,165P2:PAVO,PFAU,167i2DPHOENIX,PHOENIX,1682NTRIANGAUST,S.DREIECK,1692XVELA,SEGEL,1722b PLANETEN2lMERKUR,4.0923,31.19,76.9872v23,.2056,47.826,7.004,.3871 3VENUS,1.6021,80.85,131.149.30.76,.0068,76.410,3.394,.7233M3MARS,.5240,144.14,335.507o311,.0934,49.326,1.850,1.52373JUPITER,.0831,316.19,13.83935.30,.0485,100.146,1.305,5.20283SATURN,.0335,158.36,92.46035.5,.0557,113.511,2.486,9.58104URANUS,.0117,98.38,170.173=45.70,.0472,73.847,.773,19.1823L4 *** ENDE2.46035.5,.0557,113.511,2.486,9.58104U