home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8506b.d64
/
sternenhimmel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
14KB
|
598 lines
0 REM ********************************
1 REM * *
2 REM * STERNENHIMMEL *
3 REM * *
4 REM * HORST HINKELMANN *
5 REM * NICOLAISTR. 6 *
6 REM * 4700 HAMM 1 *
7 REM * TELEFON 02385/1653 *
8 REM * *
9 REM ********************************
10 GOTO50000
96 REM **********************
97 REM * STERN SETZEN *
98 REM **********************
100 REM ** STUNDENWINKEL **
120 SW=FNMO(AR-RE-L)
130 REM ** BOGENMASS **
140 SW=SW*P1
150 REM ** KOORDINATEN-TRANSFORMATION **
160 H=FNAS(SB*SIN(DE)+CB*COS(DE)*COS(SW))
170 IFH<0THENX=0:Y=0:RETURN
180 A=FNAC((SIN(DE)-SB*SIN(H))/(CB*COS(H)))
190 IFSW<PITHENA=-A
200 REM ** GRADMASS **
210 R=99-H*198/PI:W=-A-PI/2
220 X=INT(COS(W)*R*1.1+159.5)
230 Y=INT(SIN(W)*R+99.5)
240 dX,Y,1
296 REM ***********************
297 REM * do UEBERSCHREIBEN *
298 REM ***********************
300 N$=LEFT$(N$,13)
310 IFN3$<>N$THENGOSUB340
320 IFN4$<>N1$THENGOSUB360
330 RETURN
340 N3$=N$:d0,184,103,191,0
350 do0,184,N$,1,0,8:RETURN
360 N4$=N1$:d0,192,119,199,0
370 d216,192,319,199,0
380 do0,192,N1$,1,0,8
390 do319-8*LEN(N2$),192,N2$,1,0,8
395 RETURN
396 REM ***********************
397 REM * FEHLERMELDUNGEN *
398 REM ***********************
400 N1$=LEFT$(N1$,9)
410 do0,192,N1$+" NICHT",1,0,8
420 do232,192,"SICHTBAR",1,0,8
430 GOTO41000
450 N$=LEFT$(N$,9)
460 do0,192,N$+" NICHT",1,0,8
470 do232,192,"GESPEICHERT",1,0,8
480 GOTO41000
496 REM ***********************
497 REM * KREUZ BEWEGEN *
498 REM ***********************
500 HN=X+19:VN=Y+46
510 d,HV,VV,HN,VN,0,100
520 GOTO300
596 REM ***********************
597 REM * BUCHSTABEN LOESCHEN *
598 REM ***********************
600 LE=LEN(N$)-1
610 dLE*8,184,LE*8+7,199,0
620 N$=LEFT$(N$,LE)
630 RETURN
996 REM ************************
997 REM * BILDSCHIRM ERSTELLEN *
998 REM ************************
1000 d7,6
1010 dB160,100,110,100,1
1020 HU=0:IFB<0THENHU=200
1030 IFB<0THENdB160,HU+B/9*10,2,2,1
1040 do1,0,MID$(STR$(T),2)+"."+MID$(STR$(M),2)+"."+MID$(STR$(J),2),1,0,8
1050 do1,8,"OZ"+OZ$,1,0,8
1060 do1,16,"WZ"+WZ$,1,0,8
1070 T$=MID$(STR$(INT(B+.5)),2,4)
1080 SP$=RIGHT$(" ",3-LEN(T$))
1090 do216,0,"BREITE "+SP$+T$,1,0,8
1100 T$=MID$(STR$(INT(L+.5)),2,4)
1110 SP$=RIGHT$(" ",3-LEN(T$))
1120 B$="N":IFB<0THENB$="S"
1130 do304,0,B$,1,0,8
1140 do216,8,"LAENGE "+SP$+T$,1,0,8
1150 L$="W":IFL<0THENL$="O"
1160 do304,8,L$,1,0,8
1170 do32,96,"O",1,0,8
1180 do280,96,"W",1,0,8
1190 GOSUB2010
1200 GOSUB2110
1210 do288,128,"F5 =",1,0,8
1220 do288,136,"COPY",1,0,8
1230 do288,152,"F7 =",1,0,8
1240 do256,160,"NEUSTART",1,0,8
1250 RETURN
2000 d0,128,39,143,0
2010 do0,128,"F1 =",1,0,8
2020 do0,136,"STERN",1,0,8
2030 RETURN
2050 d0,128,39,143,0
2060 do0,128,"SUCHT",1,0,8
2070 do0,136,"STERN",1,0,8
2080 RETURN
2100 d0,152,39,159,0
2110 d0,160,71,167,0
2120 do0,152,"F3 =",1,0,8
2130 do0,160,"STERNBILD",1,0,8
2140 RETURN
2150 d0,152,39,159,0
2160 d0,160,71,167,0
2170 do0,152,"SUCHT",1,0,8
2180 do0,160,"STERNBILD",1,0,8
2190 RETURN
4996 REM **********************
4997 REM * d KREUZ *
4998 REM **********************
5000 db 0,32*64+49152
5020 @.....B..................
5030 @.....B..................
5040 @.....B..................
5050 @.....B..................
5060 @B.B.B.B.B.B.............
5070 @.....B..................
5080 @.....B..................
5090 @.....B..................
5100 @.....B..................
5110 @........................
5120 @........................
5130 @........................
5140 @........................
5150 @........................
5160 @........................
5170 @........................
5180 @........................
5190 @........................
5200 @........................
5210 @........................
5220 @........................
5230 d 1,32,0,1,0
5240 HN=179:VN=145
5250 d,HV,VV,HN,VN,0,0
5260 RETURN
9996 REM *********************
9997 REM * ERDE/SONNE/MOND *
9998 REM *********************
10000 REM ** ERDE **
10100 BE=FNMO(TG*.985609121+99.18)
10200 EL=FNMO(BE+SIN((BE-102.2)*P1)*1.845)
10300 EA=1+SIN((EL-192.2)*P1)*.0167
11000 REM ** SONNE **
11200 LS=FNMO(EL+180)
12000 REM ** MOND **
12010 LM=TG*13.1763976+51.23
12020 PM=TG*.111399014+208.9
12030 KM=372.1-TG*.052953643
12040 LM=FNMO(LM)
12050 PM=FNMO(PM)
12060 KM=FNMO(KM)
12070 AM=LM-PM
12080 KM=KM-SIN(AS*P1)*.16
12090 MS=(LM-LS)*2-AM
12100 AM=AM+SIN(MS*P1)*1.27388889-SIN(AS*P1)*(.18638889+.36)
12110 LM=LM+SIN(MS*P1)*1.27388889-SIN(AS*P1)*.18638889+SIN(AM*P1)*6.28833333
12120 M1=LM-LS
12130 LM=LM+SIN(M1*2*P1)*.658333333
12140 M2=LM-KM
12150 LM=LM-SIN(M2*2*P1)*.12
12160 BM=SIN(M2*P1)*5.14539
12170 M3=(LM-LS)*2-M2
12180 BM=BM+SIN(M3*P1)*.15
15000 N$="SONNE":AL=LS:AB=0:GOSUB30000
15010 IFX=0GOTO15040
15020 dBX,Y,4,3,1
15030 duX+1,Y,1
15040 N$="MOND":AL=LM:AB=BM:GOSUB30000
15050 IFX=0GOTO15080
15060 dX,Y,0
15070 dBX,Y,4,3,1
15080 RETURN
19996 REM *********************
19997 REM * PLANETEN *
19998 REM *********************
20000 d062500
20010 FORZ=0TO5
20020 READN$,TB,EP,PH,MP,E,KN,I,AE
20030 P$(Z)=N$
20040 ML=FNMO(TB*TG+EP)
20050 WL=ML+SIN((ML-PH)*P1)*MP
20060 SP=AE+SIN((WL-PH-90)*P1)*E*AE
20070 WS=FNMO(C+EL-WL)*P1:SI=SIN(WS)
20080 FL=EA/SP-COS(WS)
20090 WE=ATN(SI/FL)*P2
20100 AL=FNMO(EL+WE-180*(FL>=0))
20110 WT=SIN((WL-KN)*P1)*I
20120 AB=ATN(TAN(WT*P1)*ABS(SIN(WE*P1)/SI))*P2
20130 GOSUB30000
20140 P(2*Z)=X:P(2*Z+1)=Y
20150 NEXT
20160 RETURN
24996 REM *********************
24997 REM * FIXSTERNE *
24998 REM *********************
25000 d060000
25010 FORS=1TOI1
25020 READRE,DE,N$,A
25030 DE=DE*P1
25040 N1$=Z$(A,1):N2$=Z$(A,0)
25050 GOSUB100
25060 Z%(S)=X:Z%(S+I2)=Y
25070 NEXT
25080 RETURN
29996 REM *********************
29997 REM * REKTAS./DEKdY. *
29998 REM *********************
30000 SN=SIN(AB*P1):CS=COS(AB*P1)
30010 SL=SIN(AL*P1):CL=COS(AL*P1)
30020 DE=FNAS(EC*SN+ES*CS*SL)
30030 RE=2*ATN((EC*CS*SL-ES*SN)/(COS(DE)+CS*CL))
30040 RE=FNMO(RE*P2)
30050 GOTO100
39996 REM *********************
39997 REM * EINGABEN *
39998 REM *********************
40000 GETG$:IFG$=""THENV=1:GOTO40000
40010 P=ASC(G$)
40020 IFP=17THENVN=VN+V:GOTO41000
40030 IFP=145THENVN=VN-V:GOTO41000
40040 IFP=29THENHN=HN+V:GOTO41000
40050 IFP=157THENHN=HN-V:GOTO41000
40060 IFP=133THENGOSUB2050:GOTO42000
40070 IFP=134THENGOSUB2150:GOTO42000
40080 IFP=135GOTO57000
40090 IFP=136GOTO58000
40100 IFP>64ANDP<91GOTO47000
40110 GOTO40000
41000 V=V+.5
41010 d,HN,VN,HN,VN,0,0
41020 GOTO40000
42000 X=INT(HN-19):Y=INT(VN-46)
42010 XM=200000
42020 IFP=134GOTO44000
42030 FORA=0TO10STEP2
42035 F=P(A)-X:H=P(A+1)-Y
42040 XX=F*F+H*H
42050 IFXX<XMTHENXM=XX:ZP=A
42060 IFXX=0THENA=12
42070 NEXT
42080 N$=P$(ZP/2):N1$=" ":N2$=" "
42090 IFXX=0GOTO45000
44000 XP=XM
44010 FORA=0TOI1
44015 F=Z%(A)-X:H=Z%(A+I2)-Y
44020 XX=F*F+H*H
44030 IFXX<XMTHENXM=XX:Z=A
44040 IFXX=0THENA=I2
44050 NEXT
44060 X=P(ZP):Y=P(ZP+1)
44070 IFXP=XMGOTO45000
44080 X=Z%(Z):Y=Z%(Z+I2)
44090 d060000+Z*10
44100 READRE,DE,N$,D
44110 N1$=Z$(D,1):N2$=Z$(D,0)
44120 IFP=134THENZ1=Z:Z=D:GOSUB2100:GOTO48060
45000 GOSUB2000
45010 HV=HN:VV=VN:GOSUB500:GOTO40000
47000 N$=G$:N1$=" ":N2$=" "
47010 GOSUB340:GOSUB360
47020 GETG$:IFG$=""GOTO47020
47030 IFASC(G$)=20THENGOSUB600:GOTO47020
47040 IFASC(G$)=13GOTO47060
47050 N$=N$+G$:GOSUB350:GOTO47020
47060 P=0:Z=-1
47070 FORS=0TO5
47080 IFd(N$,P$(S))THENZ=S:S=5
47090 NEXT
47100 IFZ<0GOTO48000
47110 HV=HN:VV=VN
47120 X=P(2*Z):Y=P(2*Z+1)
47130 N1$=P$(Z):N2$=" "
47140 IFX=0GOTO400
47150 GOSUB500:GOTO40000
48000 FORS=0TOI3
48010 IFd(N$,Z$(S,0))THENZ=S:S=I3
48020 IFd(N$,Z$(S,1))THENZ=S:S=I3
48030 NEXT
48040 IFZ<0GOTO49000
48050 Z1=-1
48060 A1=Z(Z,1):A2=A1+Z(Z,0)
48070 IFZ1>=0GOTO48120
48080 FORA=A1TOA2
48090 IFZ%(A)THENZ1=A:A=A2
48100 NEXT
48110 IFZ1<0THENN1$=Z$(Z,1):GOTO400
48120 F=0:HV=HN:VV=VN
48130 N1$=Z$(Z,1):N2$=Z$(Z,0)
48140 X=Z%(Z1):Y=Z%(Z1+I2):GOSUB500
48150 FORA=A1TOA2
48160 X=Z%(A)
48170 IFXTHENdX,Z%(A+I2),F
48180 NEXT
48190 F=1-F
48200 IFF=1GOTO48150
48210 GETG$:P=ASC(G$+CHR$(0))
48220 IFPGOTO40020
48240 FORA=1TO1000*F+10:NEXT
48250 GOTO48150
49000 d060000
49010 FORS=1TOI1
49020 READRE,DE,S$,A
49030 IFd(N$,S$)THENZ=S:S=I2
49040 NEXT
49050 IFZ<0THENHN=X+19:VN=Y+46:GOTO450
49060 IFZ%(Z)=0THENN1$=S$:GOTO400
49070 HV=HN:VV=VN
49080 X=Z%(Z):Y=Z%(Z+I2)
49090 N$=S$:N1$=Z$(A,1):N2$=Z$(A,0)
49100 GOSUB500:GOTO40000
49996 REM ********************
49997 REM * PROGRAMMBEGINN *
49998 REM ********************
50000 dp1
50010 IFPEEK(900)>0ANDPEEK(900)<11THEN50110
50020 PRINT"[147][200]EUTIGES [196]ATUM"
50030 INPUT"[202]AHR ";J$
50035 J$="19"+RIGHT$(J$,2)
50040 INPUT"[205]ONAT";M$
50050 INPUT"[212]AG ";T$
50060 A$=T$+"."+M$+"."+J$
50070 FORA=1TOLEN(A$)
50080 POKE900+A,ASC(MID$(A$,A,1))
50090 POKE900,A
50100 NEXT
50110 T$=LEFT$(TI$,4)
50120 PRINT"[147][213]HRZEIT [200][200][205][205]"
50130 PRINTTAB(8)T$
50140 PRINT"[145]"TAB(6);:INPUTT1$:
50150 IFT$<>T1$THENTI$=RIGHT$("0"+T1$+"00",6)
50160 A$=""
50170 FORA=0TOPEEK(900)
50180 A$=A$+CHR$(PEEK(900+A))
50190 NEXT
50200 I1=124:I2=125:I3=22:F=1
50210 PI=(null):P1=PI/180:P2=180/PI:C=360
50220 DIMZ$(I3,1),Z(I3,1),P(11),Z%(2*I2)
50300 PRINT"[147]"
50301 PRINTTAB(11)"[167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
50302 PRINTTAB(11)"[167] [211]TERNENHIMMEL [165]"
50304 PRINTTAB(11)"[167][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][165]"
50310 PRINT"[194]REITE 90 (NOERDL) BIS -90 (SUEDL.)"
50320 PRINT"[204]AENGE 180 (WESTL.) BIS -180 (OESTL.)"
50330 PRINT"[214]ORGEGEBEN SIND DIE [215]ERTE VON [200]AMM UND DIE HEUTIGE [218]EIT."
50340 PRINT"[194]REITE "52:PRINT"[145]"TAB(10);:INPUTB
50350 IFABS(B)>=90THEN50340
50360 PRINT"[204]AENGE ";-8:PRINT"[145]"TAB(10);:INPUTL
50370 IFABS(L)>180THEN50360
50380 SB=SIN(B*P1):CB=COS(B*P1)
50390 PRINT"[202]AHR "RIGHT$(A$,4)
50400 PRINT"[145]"TAB(10);:INPUTJ
50410 T=INT(VAL(MID$(A$,2)))
50420 M=INT(VAL(MID$(A$,LEN(STR$(T))+2,2)))
50430 PRINT"[205]ONAT "M
50440 PRINT"[145]"TAB(10);:INPUTM
50450 IFM>12ORM<1THEN50440
50460 PRINT"[212]AG ";T
50470 PRINT"[145]"TAB(10);:INPUTT
50480 IFT<1ORT>31THEN50470
50490 WZ=INT(VAL(TI$)/100)-100
50495 IFWZ<100THENWZ=WZ+2400
50500 PRINT"[215]ELTZEIT HHMM"
50505 PRINTTAB(12)RIGHT$(STR$(WZ),4)
50510 PRINT"[145]"TAB(10);:INPUTWZ$:WZ=VAL(WZ$)/100
50520 IFWZ<0ORWZ>24GOTO50510
50530 ZT=INT(WZ)+d(WZ)/.6
50600 I=M<3
50610 K=T+INT((153*M-11*I-162)/5)+INT((1461*J+I)/4)+(J>=0)*366
50620 IFK>577736THENK=K-INT((INT((J+I)/100)*3-5)/4)
50630 TA=K-693596:TG=K-711858+ZT/24:I=TA/36525
50640 E=23.452294-I*.013125-I*I*1.639E-6+I*I*I*5.028E-7
50650 ES=SIN(E*P1):EC=COS(E*P1)
52000 REM ** FUNKTIONEN DEFINIEREN **
52010 REM ** dkSIN **
52020 DEFFNAS(X)=ATN(X/SQR(1-X*X))
52030 REM ** dkCOS **
52040 DEFFNAC(X)=PI/2-ATN(X/SQR(1-X*X))
52050 REM ** dRULO **
52060 DEFFNMO(X)=X-INT(X/C)*C
54000 REM ** ZEIT **
54010 WZ$=MID$(STR$(INT(d(WZ)*100+.5)),2)
54020 WZ$=RIGHT$("0"+WZ$,2)
54030 WZ$=RIGHT$(" "+STR$(INT(WZ)),3)+":"+WZ$
54040 LO=INT(L/15)*15
54050 OZ=FNMO(ZT*15-LO)/15
54060 OZ$=RIGHT$(" "+STR$(INT(OZ)),3)+RIGHT$(WZ$,3)
54200 REM ARIES
54210 AR=ZT*360.985647/24+d(TA/1461)*1440.02509
54220 AR=AR+INT(TA/1461)*.0307572+99.2018973
54230 AR=FNMO(AR)
54300 REM DATEN STERNBILDER
54310 d062000
54320 FORA=0TOI3
54330 READZ$(A,0),Z$(A,1),Z(A,0),Z(A,1)
54340 NEXT
54350 IFWHGOTO56000
55000 REM ** ANLEITUNG **
55010 PRINT"[147][196]IESES [208]ROGRAMM ZEICHNET EINE [211]TERNEN-"
55020 PRINT"KARTE MIT DER [211]ONNE, DEM [205]OND, DEN"
55030 PRINT"[208]LANETEN UND DEN [198]IXSTERNEN.":PRINT
55040 PRINT"[196]IE [206]AMEN DER [211]TERNE ODER DEREN"
55050 PRINT"[211]TANDORTE KOENNEN WIE FOLGT GESUCHT"
55060 PRINT"WERDEN:":PRINT
55080 PRINT"[205]IT DEN [195]URSOR-[212]ASTEN DAS [203]REUZ AUF"
55090 PRINT"ODER IN DIE [206]AEHE DES [211]TERNES FUEHREN"
55100 PRINT"UND F1 DRUECKEN.":PRINT
55110 PRINT"[215]ENN DAS GANZE [211]TERNZEICHEN GESUCHT"
55120 PRINT"WIRD, DANN F3 DRUECKEN.":PRINT
55130 PRINT"[215]ENN DER [206]AME ODER EIN [212]EIL DES [206]AMENS"
55140 PRINT"EINES [211]TERNS ODER [211]TERNBILDES EINGEGEBEN";
55150 PRINT"WIRD, GEHT DAS [203]REUZ ALLEINE AUF DEN":PRINT"[211]TERN"
55160 PRINT"[194]EI EINEM [211]TERNBILD BLINKEN DIE DAZU-"
55170 PRINT"GEHOERIGEN [211]TERNE.":PRINT
55180 PRINT"[215]EITER = [212]ASTE DRUECKEN!";
55200 POKE198,0:WAIT198,1
56000 GOSUB 1000:REM BILDSCHIRM
56010 GOSUB10000:REM SONNE MOND
56020 GOSUB20000:REM PLANETEN
56030 GOSUB25000:REM FIXSTERNE
56040 GOSUB 5000:REM KREUZ
56050 GOTO40000
57000 REM ** HARDdw **
57100 dw
57110 GOTO40000
58000 REM ** NEUSTART **
58010 dg:dp1:dh 1:WH=1
58020 GOTO50300
60000 REM ** DATEN FIXSTERNE **
60010 DATA037.8,89.3,POLARIS,0
60020 DATA269.8,86.0,UMI2,0
60030 DATA252.5,82.2,UMI3,0
60040 DATA246.3,75.5,UMI4,0
60050 DATA238.5,78.0,UMI5,0
60060 DATA230.2,71.8,PHERKAD,0
60070 DATA222.7,74.2,KOCHAB,0
60080 DATA206.9,49.3,BENETNASCH,1
60090 DATA201.0,54.9,MIZAR,1
60100 DATA193.5,56.0,ALIOTH,1
60110 DATA183.9,57.0,MEGREZ,1
60120 DATA178.5,53.7,PHEKDA,1
60130 DATA165.9,61.8,DUBHE,1
60140 DATA165.5,56.4,MERAK,1
60150 DATA28.6,63.7,CAS1,2
60160 DATA21.5,60.2,CAS2,2
60170 DATA14.2,60.7,CAS3,2
60180 DATA10.1,56.5,SCHEDIR,2
60190 DATA2.3,59.2,CAPH,2
60200 DATA 3.3,15.2,ALGENIB,3
60210 DATA346.2,15.2,MARKAB,3
60220 DATA345.9,28.1,SCHEAT,3
60230 DATA311.6,34.0,CYG1,4
60240 DATA310.4,45.3,DENEB,4
60250 DATA305.6,40.3,SCHEDIR,4
60260 DATA296.2,45.1,CYG4,4
60270 DATA292.7,28.0,ALBIREO,4
60280 DATA302.8,-0.8,AQL1,5
60290 DATA297.7,08.9,ATAIR,5
60300 DATA296.6,10.6,AQL3,5
60310 DATA292.0,03.5,AQL4,5
60320 DATA286.6,-4.9,AQL5,5
60330 DATA286.4,13.9,AQL6,5
60340 DATA284.7,32.7,LYR1,6
60350 DATA283.0,37.0,LYR2,6
60360 DATA282.5,33.4,LYR3,6
60370 DATA280.2,38.8,LYR4,6
60380 DATA279.2,38.8,WEGA,6
60390 DATA265.6,-39.0,SCO1,7
60400 DATA264.3,-43.0,SCO2,7
60410 DATA263.4,-37.1,SCO3,7
60420 DATA262.7,-37.3,SCO4,7
60430 DATA252.5,-34.3,SCO5,7
60440 DATA249.0,-28.2,SCO6,7
60450 DATA247.3,-26.4,ANTARES,7
60460 DATA241.4,-19.8,ACRAB,7
60470 DATA240.1,-22.6,SCO9,7
60480 DATA239.7,-26.1,SCO10,7
60490 DATA228.9,33.3,BOO1,8
60500 DATA225.0,41.0,BOO2,8
60510 DATA221.2,27.1,BOO3,8
60520 DATA218.0,38.3,BOO4,8
60530 DATA218.0,30.5,BOO5,8
60540 DATA213.9,19.2,ARKTUR,8
60550 DATA201.3,-11.2,SPIKA,9
60560 DATA198.0, -7.5,VIR2,9
60570 DATA195.5, 11.0,VIR3,9
60580 DATA193.9, 3.4,VIR4,9
60590 DATA190.0, -1.0,VIR5,9
60600 DATA185.0, 0.0,VIR6,9
60610 DATA177.0, 2.0,VIR7,9
60620 DATA191.9,-59.7,CRU1,10
60630 DATA187.8,-57.1,CRU2,10
60640 DATA186.7,-63.1,CRU3,10
60650 DATA183.8,-58.8,CRU4,10
60660 DATA177.3,14.5,DENEBOLA,11
60670 DATA168.6,15.4,LEO2,11
60680 DATA168.5,20.5,LEO3,11
60690 DATA155.0,19.9,LEO4,11
60700 DATA152.1,12.0,REGULUS,11
60710 DATA151.8,16.8,LEO7,11
60720 DATA146.5,23.8,LEO6,11
60730 DATA116.3,28.0,POLLUX,12
60740 DATA113.7,31.9,KASTOR,12
60750 DATA101.3,12.9,GEM3,12
60760 DATA101.0,25.1,GEM4,12
60770 DATA 99.4,16.4,GEM5,12
60780 DATA 95.7,22.5,GEM6,12
60790 DATA111.0,-29.3,CMA1,13
60800 DATA107.1,-26.4,CMA2,13
60810 DATA104.7,-29.0,CMA3,13
60820 DATA101.3,-16.7,SIRIUS,13
60830 DATA 98.2,-18.0,CMA5,13
60840 DATA90.0,37.2,AUR1,14
60850 DATA89.9,45.0,AUR2,14
60860 DATA79.2,46.0,CAPELLA,14
60870 DATA75.5,43.8,AUR4,14
60880 DATA74.3,33.2,AUR5,14
60890 DATA88.8, 7.4,BETEIGEUZE,15
60900 DATA86.9,-9.1,ORI2,15
60910 DATA85.2,-2.0,ORI3,15
60920 DATA84.1,-1.2,ORI4,15
60930 DATA83.0,-0.3,ORI5,15
60940 DATA81.3, 6.4,BELLATRIX,15
60950 DATA78.6,-8.2,RIGEL,15
60960 DATA59.5,40.0,PER1,16
60970 DATA58.5,31.9,PER2,16
60980 DATA55.7,47.8,PER3,16
60990 DATA51.1,49.9,ALGENIB,16
61000 DATA47.0,41.0,ALGOL,16
61010 DATA46.2,53.5,PER6,16
61020 DATA31.0,42.0,ALAMAK,17
61030 DATA17.4,35.6,MIRACH,17
61040 DATA 9.8,31.9,AND3,17
61050 DATA 2.1,29.1,SIRRAH,17
61060 DATA354.8,77.6,CEP1,18
61070 DATA342.5,66.0,CEP2,18
61080 DATA322.2,70.6,ALFRIK,18
61090 DATA319.6,62.6,ALDERAMIN,18
61100 DATA269.2,51.5,DRA1,19
61110 DATA262.6,52.3,DRA2,19
61120 DATA231.2,59.0,DRA3,19
61130 DATA246.0,61.5,DRA4,19
61140 DATA257.2,65.7,DRA5,19
61150 DATA288.1,67.7,DRA6,19
61160 DATA31.8,23.5,HAMAL,20
61170 DATA28.7,20.8,ARI2,20
61180 DATA84.4,21.2,TAU1,21
61190 DATA81.6,28.6,ELNATH,21
61200 DATA69.0,16.5,ALDEBARAN,21
61210 DATA58.8,12.5,TAU4,21
61220 DATA56.9,24.1,PLEJADEN,21
61230 DATA114.8,5.2,PROKYON,22
61240 DATA111.8,8.3,CMI2,22
62000 REM ** DATEN STERNBILDER **
62010 DATAURSA MINOR,KLEINER WAGEN,6,1
62020 DATAURSA MAIOR,GROSSER WAGEN,6,8
62030 DATACASSIOPEIA,KASSIOPEIA,4,15
62040 DATAPEGASUS,PEGASUS,2,20
62050 DATACYGNUS,SCHWAN,4,23
62060 DATAAQUILLA,ADLER,5,28
62070 DATALYRA,LEIER,4,34
62080 DATASCORPIUS,SKORPION,9,39
62090 DATABOOTES,BOOTES,5,49
62100 DATAVIRGIO,JUNGFRAU,6,55
62110 DATACRUX,KREUZ SUEDEN,3,62
62120 DATALEO,LOEWE,6,66
62130 DATAGEMINI,ZWILLINGE,5,73
62140 DATACANIS MAIOR,GROSSER HUND,4,79
62150 DATAAURIGA,FUHRMANN,4,84
62160 DATAORION,ORION,6,89
62170 DATAPERSEUS,PERSEUS,5,96
62180 DATAANDROMEDA,ANDROMEDA,3,102
62190 DATACEPHEUS,KEPHEUS,3,106
62200 DATADRACO,DRACHE,5,110
62210 DATAARIES,WIDDER,1,116
62220 DATATAURUS,STIER,4,118
62230 DATACANIS MINOR,KLEINER HUND,1,123
62500 REM ** DATEN PLANETEN **
62510 DATAMERKUR,4.0923, 31.19, 76.987
62520 DATA23.00,.2056, 47.826,7.004, 0.3871
62530 DATAVENUS ,1.6021, 80.85,131.149
62540 DATA 0.76,.0068, 76.410,3.394, 0.7233
62550 DATAMARS ,0.5240,144.14,335.507
62560 DATA11.00,.0934, 49.326,1.850, 1.5237
62570 DATAJUPITER,.0831,316.19, 13.839
62580 DATA 5.30,.0485,100.146,1.305, 5.2028
62590 DATASATURN,0.0335,158.36, 92.460
62600 DATA 5.50,.0557,113.511,2.486, 9.5810
62610 DATAURANUS,0.0117, 98.38,170.173
62620 DATA 5.70,.0472, 73.847,0.773,19.1823
62700 REM ** E N D E **