home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 May / 64er_Magazin_85-05_1985_Markt__Technik_de.d64 / sternenhimmel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  14.1 KB  |  598 lines
  1. 0 rem ********************************
  2. 1 rem *                              *
  3. 2 rem *        sternenhimmel         *
  4. 3 rem *                              *
  5. 4 rem *      horst  hinkelmann       *
  6. 5 rem *        nicolaistr. 6         *
  7. 6 rem *         4700 hamm 1          *
  8. 7 rem *     telefon  02385/1653      *
  9. 8 rem *                              *
  10. 9 rem ********************************
  11. 10 goto50000
  12. 96 rem **********************
  13. 97 rem *    stern setzen    *
  14. 98 rem **********************
  15. 100 rem ** stundenwinkel **
  16. 120 sw=fnmo(ar-re-l)
  17. 130 rem ** bogenmass **
  18. 140 sw=sw*p1
  19. 150 rem ** koordinaten-transformation **
  20. 160 h=fnas(sb*sin(de)+cb*cos(de)*cos(sw))
  21. 170 ifh<0thenx=0:y=0:return
  22. 180 a=fnac((sin(de)-sb*sin(h))/(cb*cos(h)))
  23. 190 ifsw<pithena=-a
  24. 200 rem ** gradmass **
  25. 210 r=99-h*198/pi:w=-a-pi/2
  26. 220 x=int(cos(w)*r*1.1+159.5)
  27. 230 y=int(sin(w)*r+99.5)
  28. 240 Dx,y,1
  29. 296 rem ***********************
  30. 297 rem * DO ueberschreiben *
  31. 298 rem ***********************
  32. 300 n$=left$(n$,13)
  33. 310 ifn3$<>n$thengosub340
  34. 320 ifn4$<>n1$thengosub360
  35. 330 return
  36. 340 n3$=n$:D0,184,103,191,0
  37. 350 DO0,184,n$,1,0,8:return
  38. 360 n4$=n1$:D0,192,119,199,0
  39. 370 D216,192,319,199,0
  40. 380 DO0,192,n1$,1,0,8
  41. 390 DO319-8*len(n2$),192,n2$,1,0,8
  42. 395 return
  43. 396 rem ***********************
  44. 397 rem *   fehlermeldungen   *
  45. 398 rem ***********************
  46. 400 n1$=left$(n1$,9)
  47. 410 DO0,192,n1$+" nicht",1,0,8
  48. 420 DO232,192,"sichtbar",1,0,8
  49. 430 goto41000
  50. 450 n$=left$(n$,9)
  51. 460 DO0,192,n$+" nicht",1,0,8
  52. 470 DO232,192,"gespeichert",1,0,8
  53. 480 goto41000
  54. 496 rem ***********************
  55. 497 rem *    kreuz bewegen    *
  56. 498 rem ***********************
  57. 500 hn=x+19:vn=y+46
  58. 510 D1,hv,vv,hn,vn,0,100
  59. 520 goto300
  60. 596 rem ***********************
  61. 597 rem * buchstaben loeschen *
  62. 598 rem ***********************
  63. 600 le=len(n$)-1
  64. 610 Dle*8,184,le*8+7,199,0
  65. 620 n$=left$(n$,le)
  66. 630 return
  67. 996 rem ************************
  68. 997 rem * bildschirm erstellen *
  69. 998 rem ************************
  70. 1000 D7,6
  71. 1010 Db160,100,110,100,1
  72. 1020 hu=0:ifb<0thenhu=200
  73. 1030 ifb<0thenDb160,hu+b/9*10,2,2,1
  74. 1040 DO1,0,mid$(str$(t),2)+"."+mid$(str$(m),2)+"."+mid$(str$(j),2),1,0,8
  75. 1050 DO1,8,"oz"+oz$,1,0,8
  76. 1060 DO1,16,"wz"+wz$,1,0,8
  77. 1070 t$=mid$(str$(int(b+.5)),2,4)
  78. 1080 sp$=right$("   ",3-len(t$))
  79. 1090 DO216,0,"breite "+sp$+t$,1,0,8
  80. 1100 t$=mid$(str$(int(l+.5)),2,4)
  81. 1110 sp$=right$("   ",3-len(t$))
  82. 1120 b$="n":ifb<0thenb$="s"
  83. 1130 DO304,0,b$,1,0,8
  84. 1140 DO216,8,"laenge "+sp$+t$,1,0,8
  85. 1150 l$="w":ifl<0thenl$="o"
  86. 1160 DO304,8,l$,1,0,8
  87. 1170 DO32,96,"o",1,0,8
  88. 1180 DO280,96,"w",1,0,8
  89. 1190 gosub2010
  90. 1200 gosub2110
  91. 1210 DO288,128,"f5 =",1,0,8
  92. 1220 DO288,136,"copy",1,0,8
  93. 1230 DO288,152,"f7 =",1,0,8
  94. 1240 DO256,160,"neustart",1,0,8
  95. 1250 return
  96. 2000 D0,128,39,143,0
  97. 2010 DO0,128,"f1 =",1,0,8
  98. 2020 DO0,136,"stern",1,0,8
  99. 2030 return
  100. 2050 D0,128,39,143,0
  101. 2060 DO0,128,"sucht",1,0,8
  102. 2070 DO0,136,"stern",1,0,8
  103. 2080 return
  104. 2100 D0,152,39,159,0
  105. 2110 D0,160,71,167,0
  106. 2120 DO0,152,"f3 =",1,0,8
  107. 2130 DO0,160,"sternbild",1,0,8
  108. 2140 return
  109. 2150 D0,152,39,159,0
  110. 2160 D0,160,71,167,0
  111. 2170 DO0,152,"sucht",1,0,8
  112. 2180 DO0,160,"sternbild",1,0,8
  113. 2190 return
  114. 4996 rem **********************
  115. 4997 rem *    D kreuz     *
  116. 4998 rem **********************
  117. 5000 DB 0,32*64+49152
  118. 5020 @.....b..................
  119. 5030 @.....b..................
  120. 5040 @.....b..................
  121. 5050 @.....b..................
  122. 5060 @b.b.b.b.b.b.............
  123. 5070 @.....b..................
  124. 5080 @.....b..................
  125. 5090 @.....b..................
  126. 5100 @.....b..................
  127. 5110 @........................
  128. 5120 @........................
  129. 5130 @........................
  130. 5140 @........................
  131. 5150 @........................
  132. 5160 @........................
  133. 5170 @........................
  134. 5180 @........................
  135. 5190 @........................
  136. 5200 @........................
  137. 5210 @........................
  138. 5220 @........................
  139. 5230 D 1,32,0,1,0
  140. 5240 hn=179:vn=145
  141. 5250 D1,hv,vv,hn,vn,0,0
  142. 5260 return
  143. 9996 rem *********************
  144. 9997 rem *  erde/sonne/mond  *
  145. 9998 rem *********************
  146. 10000 rem ** erde **
  147. 10100 be=fnmo(tg*.985609121+99.18)
  148. 10200 el=fnmo(be+sin((be-102.2)*p1)*1.845)
  149. 10300 ea=1+sin((el-192.2)*p1)*.0167
  150. 11000 rem ** sonne **
  151. 11200 ls=fnmo(el+180)
  152. 12000 rem ** mond **
  153. 12010 lm=tg*13.1763976+51.23
  154. 12020 pm=tg*.111399014+208.9
  155. 12030 km=372.1-tg*.052953643
  156. 12040 lm=fnmo(lm)
  157. 12050 pm=fnmo(pm)
  158. 12060 km=fnmo(km)
  159. 12070 am=lm-pm
  160. 12080 km=km-sin(as*p1)*.16
  161. 12090 ms=(lm-ls)*2-am
  162. 12100 am=am+sin(ms*p1)*1.27388889-sin(as*p1)*(.18638889+.36)
  163. 12110 lm=lm+sin(ms*p1)*1.27388889-sin(as*p1)*.18638889+sin(am*p1)*6.28833333
  164. 12120 m1=lm-ls
  165. 12130 lm=lm+sin(m1*2*p1)*.658333333
  166. 12140 m2=lm-km
  167. 12150 lm=lm-sin(m2*2*p1)*.12
  168. 12160 bm=sin(m2*p1)*5.14539
  169. 12170 m3=(lm-ls)*2-m2
  170. 12180 bm=bm+sin(m3*p1)*.15
  171. 15000 n$="sonne":al=ls:ab=0:gosub30000
  172. 15010 ifx=0goto15040
  173. 15020 Dbx,y,4,3,1
  174. 15030 DUx+1,y,1
  175. 15040 n$="mond":al=lm:ab=bm:gosub30000
  176. 15050 ifx=0goto15080
  177. 15060 Dx,y,0
  178. 15070 Dbx,y,4,3,1
  179. 15080 return
  180. 19996 rem *********************
  181. 19997 rem *      planeten     *
  182. 19998 rem *********************
  183. 20000 D062500
  184. 20010 forz=0to5
  185. 20020 readn$,tb,ep,ph,mp,e,kn,i,ae
  186. 20030 p$(z)=n$
  187. 20040 ml=fnmo(tb*tg+ep)
  188. 20050 wl=ml+sin((ml-ph)*p1)*mp
  189. 20060 sp=ae+sin((wl-ph-90)*p1)*e*ae
  190. 20070 ws=fnmo(c+el-wl)*p1:si=sin(ws)
  191. 20080 fl=ea/sp-cos(ws)
  192. 20090 we=atn(si/fl)*p2
  193. 20100 al=fnmo(el+we-180*(fl>=0))
  194. 20110 wt=sin((wl-kn)*p1)*i
  195. 20120 ab=atn(tan(wt*p1)*abs(sin(we*p1)/si))*p2
  196. 20130 gosub30000
  197. 20140 p(2*z)=x:p(2*z+1)=y
  198. 20150 next
  199. 20160 return
  200. 24996 rem *********************
  201. 24997 rem *     fixsterne     *
  202. 24998 rem *********************
  203. 25000 D060000
  204. 25010 fors=1toi1
  205. 25020 readre,de,n$,a
  206. 25030 de=de*p1
  207. 25040 n1$=z$(a,1):n2$=z$(a,0)
  208. 25050 gosub100
  209. 25060 z%(s)=x:z%(s+i2)=y
  210. 25070 next
  211. 25080 return
  212. 29996 rem *********************
  213. 29997 rem *  rektas./dekDy.  *
  214. 29998 rem *********************
  215. 30000 sn=sin(ab*p1):cs=cos(ab*p1)
  216. 30010 sl=sin(al*p1):cl=cos(al*p1)
  217. 30020 de=fnas(ec*sn+es*cs*sl)
  218. 30030 re=2*atn((ec*cs*sl-es*sn)/(cos(de)+cs*cl))
  219. 30040 re=fnmo(re*p2)
  220. 30050 goto100
  221. 39996 rem *********************
  222. 39997 rem *     eingaben      *
  223. 39998 rem *********************
  224. 40000 getg$:ifg$=""thenv=1:goto40000
  225. 40010 p=asc(g$)
  226. 40020 ifp=17thenvn=vn+v:goto41000
  227. 40030 ifp=145thenvn=vn-v:goto41000
  228. 40040 ifp=29thenhn=hn+v:goto41000
  229. 40050 ifp=157thenhn=hn-v:goto41000
  230. 40060 ifp=133thengosub2050:goto42000
  231. 40070 ifp=134thengosub2150:goto42000
  232. 40080 ifp=135goto57000
  233. 40090 ifp=136goto58000
  234. 40100 ifp>64andp<91goto47000
  235. 40110 goto40000
  236. 41000 v=v+.5
  237. 41010 D1,hn,vn,hn,vn,0,0
  238. 41020 goto40000
  239. 42000 x=int(hn-19):y=int(vn-46)
  240. 42010 xm=200000
  241. 42020 ifp=134goto44000
  242. 42030 fora=0to10step2
  243. 42035 f=p(a)-x:h=p(a+1)-y
  244. 42040 xx=f*f+h*h
  245. 42050 ifxx<xmthenxm=xx:zp=a
  246. 42060 ifxx=0thena=12
  247. 42070 next
  248. 42080 n$=p$(zp/2):n1$=" ":n2$=" "
  249. 42090 ifxx=0goto45000
  250. 44000 xp=xm
  251. 44010 fora=0toi1
  252. 44015 f=z%(a)-x:h=z%(a+i2)-y
  253. 44020 xx=f*f+h*h
  254. 44030 ifxx<xmthenxm=xx:z=a
  255. 44040 ifxx=0thena=i2
  256. 44050 next
  257. 44060 x=p(zp):y=p(zp+1)
  258. 44070 ifxp=xmgoto45000
  259. 44080 x=z%(z):y=z%(z+i2)
  260. 44090 D060000+z*10
  261. 44100 readre,de,n$,d
  262. 44110 n1$=z$(d,1):n2$=z$(d,0)
  263. 44120 ifp=134thenz1=z:z=d:gosub2100:goto48060
  264. 45000 gosub2000
  265. 45010 hv=hn:vv=vn:gosub500:goto40000
  266. 47000 n$=g$:n1$=" ":n2$=" "
  267. 47010 gosub340:gosub360
  268. 47020 getg$:ifg$=""goto47020
  269. 47030 ifasc(g$)=20thengosub600:goto47020
  270. 47040 ifasc(g$)=13goto47060
  271. 47050 n$=n$+g$:gosub350:goto47020
  272. 47060 p=0:z=-1
  273. 47070 fors=0to5
  274. 47080 ifD(n$,p$(s))thenz=s:s=5
  275. 47090 next
  276. 47100 ifz<0goto48000
  277. 47110 hv=hn:vv=vn
  278. 47120 x=p(2*z):y=p(2*z+1)
  279. 47130 n1$=p$(z):n2$=" "
  280. 47140 ifx=0goto400
  281. 47150 gosub500:goto40000
  282. 48000 fors=0toi3
  283. 48010 ifD(n$,z$(s,0))thenz=s:s=i3
  284. 48020 ifD(n$,z$(s,1))thenz=s:s=i3
  285. 48030 next
  286. 48040 ifz<0goto49000
  287. 48050 z1=-1
  288. 48060 a1=z(z,1):a2=a1+z(z,0)
  289. 48070 ifz1>=0goto48120
  290. 48080 fora=a1toa2
  291. 48090 ifz%(a)thenz1=a:a=a2
  292. 48100 next
  293. 48110 ifz1<0thenn1$=z$(z,1):goto400
  294. 48120 f=0:hv=hn:vv=vn
  295. 48130 n1$=z$(z,1):n2$=z$(z,0)
  296. 48140 x=z%(z1):y=z%(z1+i2):gosub500
  297. 48150 fora=a1toa2
  298. 48160 x=z%(a)
  299. 48170 ifxthenDx,z%(a+i2),f
  300. 48180 next
  301. 48190 f=1-f
  302. 48200 iff=1goto48150
  303. 48210 getg$:p=asc(g$+chr$(0))
  304. 48220 ifpgoto40020
  305. 48240 fora=1to1000*f+10:next
  306. 48250 goto48150
  307. 49000 D060000
  308. 49010 fors=1toi1
  309. 49020 readre,de,s$,a
  310. 49030 ifD(n$,s$)thenz=s:s=i2
  311. 49040 next
  312. 49050 ifz<0thenhn=x+19:vn=y+46:goto450
  313. 49060 ifz%(z)=0thenn1$=s$:goto400
  314. 49070 hv=hn:vv=vn
  315. 49080 x=z%(z):y=z%(z+i2)
  316. 49090 n$=s$:n1$=z$(a,1):n2$=z$(a,0)
  317. 49100 gosub500:goto40000
  318. 49996 rem ********************
  319. 49997 rem *  programmbeginn  *
  320. 49998 rem ********************
  321. 50000 DP1
  322. 50010 ifpeek(900)>0andpeek(900)<11then50110
  323. 50020 print"[147][200]eutiges [196]atum"
  324. 50030 input"[202]ahr ";j$
  325. 50035 j$="19"+right$(j$,2)
  326. 50040 input"[205]onat";m$
  327. 50050 input"[212]ag  ";t$
  328. 50060 a$=t$+"."+m$+"."+j$
  329. 50070 fora=1tolen(a$)
  330. 50080 poke900+a,asc(mid$(a$,a,1))
  331. 50090 poke900,a
  332. 50100 next
  333. 50110 t$=left$(ti$,4)
  334. 50120 print"[147][213]hrzeit [200][200][205][205]"
  335. 50130 printtab(8)t$
  336. 50140 print"[145]"tab(6);:inputt1$:
  337. 50150 ift$<>t1$thenti$=right$("0"+t1$+"00",6)
  338. 50160 a$=""
  339. 50170 fora=0topeek(900)
  340. 50180 a$=a$+chr$(peek(900+a))
  341. 50190 next
  342. 50200 i1=124:i2=125:i3=22:f=1
  343. 50210 pi=(NULL):p1=pi/180:p2=180/pi:c=360
  344. 50220 dimz$(i3,1),z(i3,1),p(11),z%(2*i2)
  345. 50300 print"[147]"
  346. 50301 printtab(11)"[167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
  347. 50302 printtab(11)"[167] [211]ternenhimmel [165]"
  348. 50304 printtab(11)"[167][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][165]"
  349. 50310 print"[194]reite  90 (noerdl) bis  -90 (suedl.)"
  350. 50320 print"[204]aenge 180 (westl.) bis -180 (oestl.)"
  351. 50330 print"[214]orgegeben sind die [215]erte von [200]amm und  die heutige [218]eit."
  352. 50340 print"[194]reite     "52:print"[145]"tab(10);:inputb
  353. 50350 ifabs(b)>=90then50340
  354. 50360 print"[204]aenge      ";-8:print"[145]"tab(10);:inputl
  355. 50370 ifabs(l)>180then50360
  356. 50380 sb=sin(b*p1):cb=cos(b*p1)
  357. 50390 print"[202]ahr        "right$(a$,4)
  358. 50400 print"[145]"tab(10);:inputj
  359. 50410 t=int(val(mid$(a$,2)))
  360. 50420 m=int(val(mid$(a$,len(str$(t))+2,2)))
  361. 50430 print"[205]onat      "m
  362. 50440 print"[145]"tab(10);:inputm
  363. 50450 ifm>12orm<1then50440
  364. 50460 print"[212]ag        ";t
  365. 50470 print"[145]"tab(10);:inputt
  366. 50480 ift<1ort>31then50470
  367. 50490 wz=int(val(ti$)/100)-100
  368. 50495 ifwz<100thenwz=wz+2400
  369. 50500 print"[215]eltzeit    hhmm"
  370. 50505 printtab(12)right$(str$(wz),4)
  371. 50510 print"[145]"tab(10);:inputwz$:wz=val(wz$)/100
  372. 50520 ifwz<0orwz>24goto50510
  373. 50530 zt=int(wz)+D(wz)/.6
  374. 50600 i=m<3
  375. 50610 k=t+int((153*m-11*i-162)/5)+int((1461*j+i)/4)+(j>=0)*366
  376. 50620 ifk>577736thenk=k-int((int((j+i)/100)*3-5)/4)
  377. 50630 ta=k-693596:tg=k-711858+zt/24:i=ta/36525
  378. 50640 e=23.452294-i*.013125-i*i*1.639e-6+i*i*i*5.028e-7
  379. 50650 es=sin(e*p1):ec=cos(e*p1)
  380. 52000 rem ** funktionen definieren **
  381. 52010 rem **  DKsin  **
  382. 52020 deffnas(x)=atn(x/sqr(1-x*x))
  383. 52030 rem **  DKcos  **
  384. 52040 deffnac(x)=pi/2-atn(x/sqr(1-x*x))
  385. 52050 rem **  Drulo  **
  386. 52060 deffnmo(x)=x-int(x/c)*c
  387. 54000 rem ** zeit **
  388. 54010 wz$=mid$(str$(int(D(wz)*100+.5)),2)
  389. 54020 wz$=right$("0"+wz$,2)
  390. 54030 wz$=right$(" "+str$(int(wz)),3)+":"+wz$
  391. 54040 lo=int(l/15)*15
  392. 54050 oz=fnmo(zt*15-lo)/15
  393. 54060 oz$=right$(" "+str$(int(oz)),3)+right$(wz$,3)
  394. 54200 rem aries
  395. 54210 ar=zt*360.985647/24+D(ta/1461)*1440.02509
  396. 54220 ar=ar+int(ta/1461)*.0307572+99.2018973
  397. 54230 ar=fnmo(ar)
  398. 54300 rem daten sternbilder
  399. 54310 D062000
  400. 54320 fora=0toi3
  401. 54330 readz$(a,0),z$(a,1),z(a,0),z(a,1)
  402. 54340 next
  403. 54350 ifwhgoto56000
  404. 55000 rem ** anleitung **
  405. 55010 print"[147][196]ieses [208]rogramm zeichnet eine [211]ternen-"
  406. 55020 print"karte mit der [211]onne, dem [205]ond, den"
  407. 55030 print"[208]laneten und den [198]ixsternen.":print
  408. 55040 print"[196]ie [206]amen der [211]terne oder deren"
  409. 55050 print"[211]tandorte koennen wie folgt gesucht"
  410. 55060 print"werden:":print
  411. 55080 print"[205]it den [195]ursor-[212]asten das [203]reuz auf"
  412. 55090 print"oder in die [206]aehe des [211]ternes fuehren"
  413. 55100 print"und f1 druecken.":print
  414. 55110 print"[215]enn das ganze [211]ternzeichen gesucht"
  415. 55120 print"wird, dann f3 druecken.":print
  416. 55130 print"[215]enn der [206]ame oder ein [212]eil des [206]amens"
  417. 55140 print"eines [211]terns oder [211]ternbildes eingegeben";
  418. 55150 print"wird, geht das [203]reuz alleine auf den":print"[211]tern"
  419. 55160 print"[194]ei einem [211]ternbild blinken die dazu-"
  420. 55170 print"gehoerigen [211]terne.":print
  421. 55180 print"[215]eiter = [212]aste druecken!";
  422. 55200 poke198,0:wait198,1
  423. 56000 gosub 1000:rem bildschirm
  424. 56010 gosub10000:rem sonne mond
  425. 56020 gosub20000:rem planeten
  426. 56030 gosub25000:rem fixsterne
  427. 56040 gosub 5000:rem kreuz
  428. 56050 goto40000
  429. 57000 rem ** hardDW **
  430. 57100 DW
  431. 57110 goto40000
  432. 58000 rem ** neustart **
  433. 58010 DG:DP1:DH 1:wh=1
  434. 58020 goto50300
  435. 60000 rem ** daten fixsterne **
  436. 60010 data037.8,89.3,polaris,0
  437. 60020 data269.8,86.0,umi2,0
  438. 60030 data252.5,82.2,umi3,0
  439. 60040 data246.3,75.5,umi4,0
  440. 60050 data238.5,78.0,umi5,0
  441. 60060 data230.2,71.8,pherkad,0
  442. 60070 data222.7,74.2,kochab,0
  443. 60080 data206.9,49.3,benetnasch,1
  444. 60090 data201.0,54.9,mizar,1
  445. 60100 data193.5,56.0,alioth,1
  446. 60110 data183.9,57.0,megrez,1
  447. 60120 data178.5,53.7,phekda,1
  448. 60130 data165.9,61.8,dubhe,1
  449. 60140 data165.5,56.4,merak,1
  450. 60150 data28.6,63.7,cas1,2
  451. 60160 data21.5,60.2,cas2,2
  452. 60170 data14.2,60.7,cas3,2
  453. 60180 data10.1,56.5,schedir,2
  454. 60190 data2.3,59.2,caph,2
  455. 60200 data  3.3,15.2,algenib,3
  456. 60210 data346.2,15.2,markab,3
  457. 60220 data345.9,28.1,scheat,3
  458. 60230 data311.6,34.0,cyg1,4
  459. 60240 data310.4,45.3,deneb,4
  460. 60250 data305.6,40.3,schedir,4
  461. 60260 data296.2,45.1,cyg4,4
  462. 60270 data292.7,28.0,albireo,4
  463. 60280 data302.8,-0.8,aql1,5
  464. 60290 data297.7,08.9,atair,5
  465. 60300 data296.6,10.6,aql3,5
  466. 60310 data292.0,03.5,aql4,5
  467. 60320 data286.6,-4.9,aql5,5
  468. 60330 data286.4,13.9,aql6,5
  469. 60340 data284.7,32.7,lyr1,6
  470. 60350 data283.0,37.0,lyr2,6
  471. 60360 data282.5,33.4,lyr3,6
  472. 60370 data280.2,38.8,lyr4,6
  473. 60380 data279.2,38.8,wega,6
  474. 60390 data265.6,-39.0,sco1,7
  475. 60400 data264.3,-43.0,sco2,7
  476. 60410 data263.4,-37.1,sco3,7
  477. 60420 data262.7,-37.3,sco4,7
  478. 60430 data252.5,-34.3,sco5,7
  479. 60440 data249.0,-28.2,sco6,7
  480. 60450 data247.3,-26.4,antares,7
  481. 60460 data241.4,-19.8,acrab,7
  482. 60470 data240.1,-22.6,sco9,7
  483. 60480 data239.7,-26.1,sco10,7
  484. 60490 data228.9,33.3,boo1,8
  485. 60500 data225.0,41.0,boo2,8
  486. 60510 data221.2,27.1,boo3,8
  487. 60520 data218.0,38.3,boo4,8
  488. 60530 data218.0,30.5,boo5,8
  489. 60540 data213.9,19.2,arktur,8
  490. 60550 data201.3,-11.2,spika,9
  491. 60560 data198.0, -7.5,vir2,9
  492. 60570 data195.5, 11.0,vir3,9
  493. 60580 data193.9,  3.4,vir4,9
  494. 60590 data190.0, -1.0,vir5,9
  495. 60600 data185.0,  0.0,vir6,9
  496. 60610 data177.0,  2.0,vir7,9
  497. 60620 data191.9,-59.7,cru1,10
  498. 60630 data187.8,-57.1,cru2,10
  499. 60640 data186.7,-63.1,cru3,10
  500. 60650 data183.8,-58.8,cru4,10
  501. 60660 data177.3,14.5,denebola,11
  502. 60670 data168.6,15.4,leo2,11
  503. 60680 data168.5,20.5,leo3,11
  504. 60690 data155.0,19.9,leo4,11
  505. 60700 data152.1,12.0,regulus,11
  506. 60710 data151.8,16.8,leo7,11
  507. 60720 data146.5,23.8,leo6,11
  508. 60730 data116.3,28.0,pollux,12
  509. 60740 data113.7,31.9,kastor,12
  510. 60750 data101.3,12.9,gem3,12
  511. 60760 data101.0,25.1,gem4,12
  512. 60770 data 99.4,16.4,gem5,12
  513. 60780 data 95.7,22.5,gem6,12
  514. 60790 data111.0,-29.3,cma1,13
  515. 60800 data107.1,-26.4,cma2,13
  516. 60810 data104.7,-29.0,cma3,13
  517. 60820 data101.3,-16.7,sirius,13
  518. 60830 data 98.2,-18.0,cma5,13
  519. 60840 data90.0,37.2,aur1,14
  520. 60850 data89.9,45.0,aur2,14
  521. 60860 data79.2,46.0,capella,14
  522. 60870 data75.5,43.8,aur4,14
  523. 60880 data74.3,33.2,aur5,14
  524. 60890 data88.8, 7.4,beteigeuze,15
  525. 60900 data86.9,-9.1,ori2,15
  526. 60910 data85.2,-2.0,ori3,15
  527. 60920 data84.1,-1.2,ori4,15
  528. 60930 data83.0,-0.3,ori5,15
  529. 60940 data81.3, 6.4,bellatrix,15
  530. 60950 data78.6,-8.2,rigel,15
  531. 60960 data59.5,40.0,per1,16
  532. 60970 data58.5,31.9,per2,16
  533. 60980 data55.7,47.8,per3,16
  534. 60990 data51.1,49.9,algenib,16
  535. 61000 data47.0,41.0,algol,16
  536. 61010 data46.2,53.5,per6,16
  537. 61020 data31.0,42.0,alamak,17
  538. 61030 data17.4,35.6,mirach,17
  539. 61040 data 9.8,31.9,and3,17
  540. 61050 data 2.1,29.1,sirrah,17
  541. 61060 data354.8,77.6,cep1,18
  542. 61070 data342.5,66.0,cep2,18
  543. 61080 data322.2,70.6,alfrik,18
  544. 61090 data319.6,62.6,alderamin,18
  545. 61100 data269.2,51.5,dra1,19
  546. 61110 data262.6,52.3,dra2,19
  547. 61120 data231.2,59.0,dra3,19
  548. 61130 data246.0,61.5,dra4,19
  549. 61140 data257.2,65.7,dra5,19
  550. 61150 data288.1,67.7,dra6,19
  551. 61160 data31.8,23.5,hamal,20
  552. 61170 data28.7,20.8,ari2,20
  553. 61180 data84.4,21.2,tau1,21
  554. 61190 data81.6,28.6,elnath,21
  555. 61200 data69.0,16.5,aldebaran,21
  556. 61210 data58.8,12.5,tau4,21
  557. 61220 data56.9,24.1,plejaden,21
  558. 61230 data114.8,5.2,prokyon,22
  559. 61240 data111.8,8.3,cmi2,22
  560. 62000 rem ** daten sternbilder **
  561. 62010 dataursa minor,kleiner wagen,6,1
  562. 62020 dataursa maior,grosser wagen,6,8
  563. 62030 datacassiopeia,kassiopeia,4,15
  564. 62040 datapegasus,pegasus,2,20
  565. 62050 datacygnus,schwan,4,23
  566. 62060 dataaquilla,adler,5,28
  567. 62070 datalyra,leier,4,34
  568. 62080 datascorpius,skorpion,9,39
  569. 62090 databootes,bootes,5,49
  570. 62100 datavirgio,jungfrau,6,55
  571. 62110 datacrux,kreuz sueden,3,62
  572. 62120 dataleo,loewe,6,66
  573. 62130 datagemini,zwillinge,5,73
  574. 62140 datacanis maior,grosser hund,4,79
  575. 62150 dataauriga,fuhrmann,4,84
  576. 62160 dataorion,orion,6,89
  577. 62170 dataperseus,perseus,5,96
  578. 62180 dataandromeda,andromeda,3,102
  579. 62190 datacepheus,kepheus,3,106
  580. 62200 datadraco,drache,5,110
  581. 62210 dataaries,widder,1,116
  582. 62220 datataurus,stier,4,118
  583. 62230 datacanis minor,kleiner hund,1,123
  584. 62500 rem ** daten planeten **
  585. 62510 datamerkur,4.0923, 31.19, 76.987
  586. 62520 data23.00,.2056, 47.826,7.004, 0.3871
  587. 62530 datavenus ,1.6021, 80.85,131.149
  588. 62540 data 0.76,.0068, 76.410,3.394, 0.7233
  589. 62550 datamars  ,0.5240,144.14,335.507
  590. 62560 data11.00,.0934, 49.326,1.850, 1.5237
  591. 62570 datajupiter,.0831,316.19, 13.839
  592. 62580 data 5.30,.0485,100.146,1.305, 5.2028
  593. 62590 datasaturn,0.0335,158.36, 92.460
  594. 62600 data 5.50,.0557,113.511,2.486, 9.5810
  595. 62610 datauranus,0.0117, 98.38,170.173
  596. 62620 data 5.70,.0472, 73.847,0.773,19.1823
  597. 62700 rem ** e n d e **
  598.