home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / sternenhimmel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  613 lines
  1. 0 rem ********************************
  2. 1 rem *                              *
  3. 2 rem *        sternenhimmel         *
  4. 3 rem *                              *
  5. 4 rem *      horst  hinkelmann       *
  6. 8 rem *                              *
  7. 9 rem ********************************
  8. 10 D:goto50000
  9. 96 rem **********************
  10. 97 rem *    stern setzen    *
  11. 98 rem **********************
  12. 100 rem ** stundenwinkel **
  13. 120 sw=fnmo(ar-re-l)
  14. 130 rem ** bogenmass **
  15. 140 sw=sw*p1
  16. 150 rem ** koordinaten-transformation **
  17. 160 h=fnas(sb*sin(de)+cb*cos(de)*cos(sw))
  18. 170 ifh<0thenx=0:y=0:return
  19. 180 a=fnac((sin(de)-sb*sin(h))/(cb*cos(h)))
  20. 190 ifsw<pithena=-a
  21. 200 rem ** gradmass **
  22. 210 r=99-h*198/pi:w=-a-pi/2
  23. 220 x=int(cos(w)*r*1.1+159.5)
  24. 230 y=int(sin(w)*r+99.5)
  25. 240 D)x,y,1
  26. 296 rem ***********************
  27. 297 rem * DO ueberschreiben *
  28. 298 rem ***********************
  29. 300 n$=left$(n$,13)
  30. 310 ifn3$<>n$thengosub340
  31. 320 ifn4$<>n1$thengosub360
  32. 330 return
  33. 340 n3$=n$:D00,184,103,7,0
  34. 350 D80,184,n$,1,1,8,1:return
  35. 360 n4$=n1$:D00,192,119,7,0
  36. 370 D0216,192,103,7,0
  37. 380 D80,192,n1$,1,1,8,1
  38. 390 D8319-8*len(n2$),192,n2$,1,1,8,1
  39. 395 return
  40. 396 rem ***********************
  41. 397 rem *   fehlermeldungen   *
  42. 398 rem ***********************
  43. 400 n1$=left$(n1$,9)
  44. 410 D80,192,n1$+" nicht",1,1,8,1
  45. 420 D8232,192,"sichtbar",1,1,8,1
  46. 430 goto41000
  47. 450 n$=left$(n$,9)
  48. 460 D80,192,n$+" nicht",1,1,8,1
  49. 470 D8232,192,"gespeichert",1,1,8,1
  50. 480 goto41000
  51. 496 rem ***********************
  52. 497 rem *    kreuz bewegen    *
  53. 498 rem ***********************
  54. 500 hn=x+19:vn=y+46
  55. 510 D1,hv,vv,hn,vn,0
  56. 520 goto300
  57. 596 rem ***********************
  58. 597 rem * buchstaben loeschen *
  59. 598 rem ***********************
  60. 600 le=len(n$)-1
  61. 610 D0le*8,184,7,15,0
  62. 620 n$=left$(n$,le)
  63. 630 return
  64. 996 rem ************************
  65. 997 rem * bildschirm erstellen *
  66. 998 rem ************************
  67. 1000 D%7,6
  68. 1010 D1160,100,110,100,1
  69. 1020 hu=0:ifb<0thenhu=200
  70. 1030 ifb<0thenD1160,hu+b/9*10,2,2,1
  71. 1040 D81,0,mid$(str$(t),2)+"."+mid$(str$(m),2)+"."+mid$(str$(j),2),1,1,8,1
  72. 1050 D81,8,"oz"+oz$,1,1,8,1
  73. 1060 D81,16,"wz"+wz$,1,1,8,1
  74. 1070 t$=mid$(str$(int(b+.5)),2,4)
  75. 1080 sp$=right$("   ",3-len(t$))
  76. 1090 D8216,0,"breite "+sp$+t$,1,1,8,1
  77. 1100 t$=mid$(str$(int(l+.5)),2,4)
  78. 1110 sp$=right$("   ",3-len(t$))
  79. 1120 b$="n":ifb<0thenb$="s"
  80. 1130 D8304,0,b$,1,1,8,1
  81. 1140 D8216,8,"laenge "+sp$+t$,1,1,8,1
  82. 1150 l$="w":ifl<0thenl$="o"
  83. 1160 D8304,8,l$,1,1,8,1
  84. 1170 D832,96,"o",1,1,8,1
  85. 1180 D8280,96,"w",1,1,8,1
  86. 1190 gosub2010
  87. 1200 gosub2110
  88. 1210 D8288,128,"f5 =",1,1,8,1
  89. 1220 D8288,136,"copy",1,1,8,1
  90. 1230 D8288,152,"f7 =",1,1,8,1
  91. 1240 D8256,160,"neustart",1,1,8,1
  92. 1250 return
  93. 2000 D00,128,39,15,0
  94. 2010 D80,128,"f1 =",1,1,8,1
  95. 2020 D80,136,"stern",1,1,8,1
  96. 2030 return
  97. 2050 D00,128,39,15,0
  98. 2060 D80,128,"sucht",1,1,8,1
  99. 2070 D80,136,"stern",1,1,8,1
  100. 2080 return
  101. 2100 D00,152,63,7,0
  102. 2110 D00,160,71,7,0
  103. 2120 D80,152,"f3/feuer",1,1,8,1
  104. 2130 D80,160,"sternbild",1,1,8,1
  105. 2140 return
  106. 2150 D00,152,39,7,0
  107. 2160 D00,160,71,7,0
  108. 2170 D80,152,"sucht   ",1,1,8,1
  109. 2180 D80,160,"sternbild",1,1,8,1
  110. 2190 return
  111. 4996 rem **********************
  112. 4997 rem *    D kreuz     *
  113. 4998 rem **********************
  114. 5000 D 1,0,2
  115. 5020 D "........................
  116. 5030 D "........................
  117. 5040 D "........................
  118. 5050 D "........................
  119. 5060 D ".....bbbbbbbb...........
  120. 5070 D ".....bbbbbbbb...........
  121. 5080 D ".....bbbbb..............
  122. 5090 D ".....bb.bbb.............
  123. 5100 D ".....bb..bbb............
  124. 5110 D ".....bb...bbb...........
  125. 5120 D ".....bb....bbb..........
  126. 5130 D "............bbb.........
  127. 5140 D ".............b..........
  128. 5150 D "........................
  129. 5160 D "........................
  130. 5170 D "........................
  131. 5180 D "........................
  132. 5190 D "........................
  133. 5200 D "........................
  134. 5210 D "........................
  135. 5220 D "........................
  136. 5230 D1,0,3,1,0
  137. 5240 hn[178]179:vn[178]145
  138. 5250 D1,hv,vv,hn,vn,0
  139. 5260 [142]
  140. 9996 [143] *********************
  141. 9997 [143] *  erde/sonne/mond  *
  142. 9998 [143] *********************
  143. 10000 [143] ** erde **
  144. 10100 be[178][165]mo(tg[172].985609121[170]99.18)
  145. 10200 el[178][165]mo(be[170][191]((be[171]102.2)[172]p1)[172]1.845)
  146. 10300 ea[178]1[170][191]((el[171]192.2)[172]p1)[172].0167
  147. 11000 [143] ** sonne **
  148. 11200 ls[178][165]mo(el[170]180)
  149. 12000 [143] ** mond **
  150. 12010 lm[178]tg[172]13.1763976[170]51.23
  151. 12020 pm[178]tg[172].111399014[170]208.9
  152. 12030 km[178]372.1[171]tg[172].052953643
  153. 12040 lm[178][165]mo(lm)
  154. 12050 pm[178][165]mo(pm)
  155. 12060 km[178][165]mo(km)
  156. 12070 am[178]lm[171]pm
  157. 12080 km[178]km[171][191](as[172]p1)[172].16
  158. 12090 ms[178](lm[171]ls)[172]2[171]am
  159. 12100 am[178]am[170][191](ms[172]p1)[172]1.27388889[171][191](as[172]p1)[172](.18638889[170].36)
  160. 12110 lm[178]lm[170][191](ms[172]p1)[172]1.27388889[171][191](as[172]p1)[172].18638889[170][191](am[172]p1)[172]6.28833333
  161. 12120 m1[178]lm[171]ls
  162. 12130 lm[178]lm[170][191](m1[172]2[172]p1)[172].658333333
  163. 12140 m2[178]lm[171]km
  164. 12150 lm[178]lm[171][191](m2[172]2[172]p1)[172].12
  165. 12160 bm[178][191](m2[172]p1)[172]5.14539
  166. 12170 m3[178](lm[171]ls)[172]2[171]m2
  167. 12180 bm[178]bm[170][191](m3[172]p1)[172].15
  168. 15000 n$[178]"sonne":al[178]ls:ab[178]0:[141]30000
  169. 15010 [139]x[178]0[137]15040
  170. 15020 D1x,y,4,3,1
  171. 15030 D3x[170]1,y,1
  172. 15040 n$[178]"mond":al[178]lm:ab[178]bm:[141]30000
  173. 15050 [139]x[178]0[137]15080
  174. 15060 D)x,y,0
  175. 15070 D1x,y,4,3,1
  176. 15080 [142]
  177. 19996 [143] *********************
  178. 19997 [143] *      planeten     *
  179. 19998 [143] *********************
  180. 20000 Cj62500
  181. 20010 [129]z[178]0[164]5
  182. 20020 [135]n$,tb,ep,ph,mp,e,kn,i,ae
  183. 20030 p$(z)[178]n$
  184. 20040 ml[178][165]mo(tb[172]tg[170]ep)
  185. 20050 wl[178]ml[170][191]((ml[171]ph)[172]p1)[172]mp
  186. 20060 sp[178]ae[170][191]((wl[171]ph[171]90)[172]p1)[172]e[172]ae
  187. 20070 ws[178][165]mo(c[170]el[171]wl)[172]p1:si[178][191](ws)
  188. 20080 fl[178]ea[173]sp[171][190](ws)
  189. 20090 we[178][193](si[173]fl)[172]p2
  190. 20100 al[178][165]mo(el[170]we[171]180[172](fl[177][178]0))
  191. 20110 wt[178][191]((wl[171]kn)[172]p1)[172]i
  192. 20120 ab[178][193]([192](wt[172]p1)[172][182]([191](we[172]p1)[173]si))[172]p2
  193. 20130 [141]30000
  194. 20140 p(2[172]z)[178]x:p(2[172]z[170]1)[178]y
  195. 20150 [130]
  196. 20160 [142]
  197. 24996 [143] *********************
  198. 24997 [143] *     fixsterne     *
  199. 24998 [143] *********************
  200. 25000 Cj60000
  201. 25010 [129]s[178]1[164]i1
  202. 25020 [135]re,de,n$,a
  203. 25030 de[178]de[172]p1
  204. 25040 n1$[178]z$(a,1):n2$[178]z$(a,0)
  205. 25050 [141]100
  206. 25060 z%(s)[178]x:z%(s[170]i2)[178]y
  207. 25070 [130]
  208. 25080 [142]
  209. 29996 [143] *********************
  210. 29997 [143] *  rektas./dekDy.  *
  211. 29998 [143] *********************
  212. 30000 sn[178][191](ab[172]p1):cs[178][190](ab[172]p1)
  213. 30010 sl[178][191](al[172]p1):cl[178][190](al[172]p1)
  214. 30020 de[178][165]as(ec[172]sn[170]es[172]cs[172]sl)
  215. 30030 re[178]2[172][193]((ec[172]cs[172]sl[171]es[172]sn)[173]([190](de)[170]cs[172]cl))
  216. 30040 re[178][165]mo(re[172]p2)
  217. 30050 [137]100
  218. 39996 [143] *********************
  219. 39997 [143] *     eingaben      *
  220. 39998 [143] *********************
  221. 40000 [143] C- und cursorabfrage
  222. 40001 j[178]0:j[178]C(2):[139]j[178]0[167]40006
  223. 40002 [139]j[178]5[167]vn[178]vn[170]v:[137]41000
  224. 40003 [139]j[178]1[167]vn[178]vn[171]v:[137]41000
  225. 40004 [139]j[178]3[167]hn[178]hn[170]v:[137]41000
  226. 40005 [139]j[178]7[167]hn[178]hn[171]v:[137]41000
  227. 40006 [139]j[178]128[167][141]2150:[137]42000
  228. 40009 [161]g$:[139]g$[178]""[167]v[178]1:[137]40000
  229. 40010 p[178][198](g$)
  230. 40020 [139]p[178]17[167]vn[178]vn[170]v:[137]41000
  231. 40030 [139]p[178]145[167]vn[178]vn[171]v:[137]41000
  232. 40040 [139]p[178]29[167]hn[178]hn[170]v:[137]41000
  233. 40050 [139]p[178]157[167]hn[178]hn[171]v:[137]41000
  234. 40060 [139]p[178]133[167][141]2050:[137]42000
  235. 40070 [139]p[178]134[167][141]2150:[137]42000
  236. 40080 [139]p[178]135[137]57000
  237. 40090 [139]p[178]136[137]58000
  238. 40100 [139]p[177]64[175]p[179]91[137]47000
  239. 40110 [137]40000
  240. 41000 v[178]v[170].5
  241. 41002 [139]hn[177]290[167]hn[178]290
  242. 41004 [139]hn[179]72[167]hn[178]72
  243. 41006 [139]vn[177]245[167]vn[178]245
  244. 41008 [139]vn[179]40[167]vn[178]40
  245. 41010 D1,hn,vn,hn,vn,0
  246. 41020 [137]40000
  247. 42000 x[178][181](hn[171]19):y[178][181](vn[171]46)
  248. 42010 xm[178]200000
  249. 42020 [139]p[178]134[137]44000
  250. 42030 [129]a[178]0[164]10[169]2
  251. 42035 f[178]p(a)[171]x:h[178]p(a[170]1)[171]y
  252. 42040 xx[178]f[172]f[170]h[172]h
  253. 42050 [139]xx[179]xm[167]xm[178]xx:zp[178]a
  254. 42060 [139]xx[178]0[167]a[178]12
  255. 42070 [130]
  256. 42080 n$[178]p$(zp[173]2):n1$[178]" ":n2$[178]" "
  257. 42090 [139]xx[178]0[137]45000
  258. 44000 xp[178]xm
  259. 44010 [129]a[178]0[164]i1
  260. 44015 f[178]z%(a)[171]x:h[178]z%(a[170]i2)[171]y
  261. 44020 xx[178]f[172]f[170]h[172]h
  262. 44030 [139]xx[179]xm[167]xm[178]xx:z[178]a
  263. 44040 [139]xx[178]0[167]a[178]i2
  264. 44050 [130]
  265. 44060 x[178]p(zp):y[178]p(zp[170]1)
  266. 44070 [139]xp[178]xm[137]45000
  267. 44080 x[178]z%(z):y[178]z%(z[170]i2)
  268. 44090 Cj60000[170]z[172]10
  269. 44100 [135]re,de,n$,d
  270. 44110 n1$[178]z$(d,1):n2$[178]z$(d,0)
  271. 44120 [139]p[178]134[176]j[178]128[167]z1[178]z:z[178]d:[141]2100:[137]48060
  272. 45000 [141]2000
  273. 45010 hv[178]hn:vv[178]vn:[141]500:[137]40000
  274. 47000 n$[178]g$:n1$[178]" ":n2$[178]" "
  275. 47010 [141]340:[141]360
  276. 47020 j[178]C(2)
  277. 47021 [139]j[178]128[167]g$[178][199](13):[137] 47040
  278. 47029 [161]g$:[139]g$[178]""[137]47020
  279. 47030 [139][198](g$)[178]20[167][141]600:[137]47020
  280. 47040 [139][198](g$)[178]13[137]47060
  281. 47050 n$[178]n$[170]g$:[141]350:[137]47020
  282. 47060 p[178]0:z[178][171]1
  283. 47070 [129]s[178]0[164]5
  284. 47080 [139]C(n$,p$(s))[167]z[178]s:s[178]5
  285. 47090 [130]
  286. 47100 [139]z[179]0[137]48000
  287. 47110 hv[178]hn:vv[178]vn
  288. 47120 x[178]p(2[172]z):y[178]p(2[172]z[170]1)
  289. 47130 n1$[178]p$(z):n2$[178]" "
  290. 47140 [139]x[178]0[137]400
  291. 47150 [141]500:[137]40000
  292. 48000 [129]s[178]0[164]i3
  293. 48010 [139]C(n$,z$(s,0))[167]z[178]s:s[178]i3
  294. 48020 [139]C(n$,z$(s,1))[167]z[178]s:s[178]i3
  295. 48030 [130]
  296. 48040 [139]z[179]0[137]49000
  297. 48050 z1[178][171]1
  298. 48060 a1[178]z(z,1):a2[178]a1[170]z(z,0)
  299. 48070 [139]z1[177][178]0[137]48120
  300. 48080 [129]a[178]a1[164]a2
  301. 48090 [139]z%(a)[167]z1[178]a:a[178]a2
  302. 48100 [130]
  303. 48110 [139]z1[179]0[167]n1$[178]z$(z,1):[137]400
  304. 48120 f[178]0:hv[178]hn:vv[178]vn
  305. 48130 n1$[178]z$(z,1):n2$[178]z$(z,0)
  306. 48140 x[178]z%(z1):y[178]z%(z1[170]i2):[141]500
  307. 48150 [129]a[178]a1[164]a2
  308. 48160 x[178]z%(a)
  309. 48170 [139]x[167]D)x,z%(a[170]i2),f
  310. 48180 [130]
  311. 48190 f[178]1[171]f
  312. 48200 [139]f[178]1[137]48150
  313. 48210 [161]g$
  314. 48211 [139]C(2)[178]128[167]g$[178][199](13)
  315. 48212 p[178][198](g$[170][199](0))
  316. 48220 [139]p[137]40020
  317. 48240 [129]a[178]1[164]1000[172]f[170]10:[130]
  318. 48250 [137]48150
  319. 49000 Cj60000
  320. 49010 [129]s[178]1[164]i1
  321. 49020 [135]re,de,s$,a
  322. 49030 [139]C(n$,s$)[167]z[178]s:s[178]i2
  323. 49040 [130]
  324. 49050 [139]z[179]0[167]hn[178]x[170]19:vn[178]y[170]46:[137]450
  325. 49060 [139]z%(z)[178]0[167]n1$[178]s$:[137]400
  326. 49070 hv[178]hn:vv[178]vn
  327. 49080 x[178]z%(z):y[178]z%(z[170]i2)
  328. 49090 n$[178]s$:n1$[178]z$(a,1):n2$[178]z$(a,0)
  329. 49100 [141]500:[137]40000
  330. 49996 [143] ********************
  331. 49997 [143] *  programmbeginn  *
  332. 49998 [143] ********************
  333. 50000 Cx
  334. 50010 [139][194](900)[177]0[175][194](900)[179]11[167]50110
  335. 50020 [153]"loadleft$eutiges str$atum"
  336. 50030 [133]"mid$ahr ";j$
  337. 50035 j$[178]"19"[170][201](j$,2)
  338. 50040 [133]"(NULL)onat";m$
  339. 50050 [133]"(NULL)ag  ";t$
  340. 50060 a$[178]t$[170]"."[170]m$[170]"."[170]j$
  341. 50070 [129]a[178]1[164][195](a$)
  342. 50080 [151]900[170]a,[198]([202](a$,a,1))
  343. 50090 [151]900,a
  344. 50100 [130]
  345. 50110 t$[178][200](ti$,4)
  346. 50120 [153]"load(NULL)hrzeit left$left$(NULL)(NULL)"
  347. 50130 [153][163]8)t$
  348. 50140 [153]"on"[163]6);:[133]t1$:
  349. 50150 [139]t$[179][177]t1$[167]ti$[178][201]("0"[170]t1$[170]"00",6)
  350. 50160 a$[178]""
  351. 50170 [129]a[178]0[164][194](900)
  352. 50180 a$[178]a$[170][199]([194](900[170]a))
  353. 50190 [130]
  354. 50200 i1[178]124:i2[178]125:i3[178]22:f[178]1
  355. 50210 pi[178][255]:p1[178]pi[173]180:p2[178]180[173]pi:c[178]360
  356. 50220 [134]z$(i3,1),z(i3,1),p(11),z%(2[172]i2)
  357. 50300 [153]"load"
  358. 50301 [153][163]11)"thentab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(fn"
  359. 50302 [153][163]11)"then (NULL)ternenhimmel fn"
  360. 50304 [153][163]11)"thentototototototototototototototofn"
  361. 50310 [153]"peekreite  90 (noerdl) bis  -90 (suedl.)"
  362. 50320 [153]"(NULL)aenge 180 (westl.) bis -180 (oestl.)"
  363. 50330 [153]"(NULL)orgegeben sind die (NULL)erte von left$amm."
  364. 50340 [153]"peekreite     "52:[153]"on"[163]10);:[133]b
  365. 50350 [139][182](b)[177][178]90[167]50340
  366. 50360 [153]"(NULL)aenge      ";[171]8:[153]"on"[163]10);:[133]l
  367. 50370 [139][182](l)[177]180[167]50360
  368. 50380 sb[178][191](b[172]p1):cb[178][190](b[172]p1)
  369. 50390 [153]"mid$ahr        "[201](a$,4)
  370. 50400 [153]"on"[163]10);:[133]j
  371. 50410 t[178][181]([197]([202](a$,2)))
  372. 50420 m[178][181]([197]([202](a$,[195]([196](t))[170]2,2)))
  373. 50430 [153]"(NULL)onat      "m
  374. 50440 [153]"on"[163]10);:[133]m
  375. 50450 [139]m[177]12[176]m[179]1[167]50440
  376. 50460 [153]"(NULL)ag        ";t
  377. 50470 [153]"on"[163]10);:[133]t
  378. 50480 [139]t[179]1[176]t[177]31[167]50470
  379. 50490 wz[178][181]([197](ti$)[173]100)[171]100
  380. 50495 [139]wz[179]100[167]wz[178]wz[170]2400
  381. 50500 [153]"(NULL)eltzeit    hhmm"
  382. 50505 [153][163]12)[201]([196](wz),4)
  383. 50510 [153]"on"[163]10);:[133]wz$:wz[178][197](wz$)[173]100
  384. 50520 [139]wz[179]0[176]wz[177]24[137]50510
  385. 50530 zt[178][181](wz)[170](wz[171][181](wz))[173].6
  386. 50600 i[178]m[179]3
  387. 50610 k[178]t[170][181]((153[172]m[171]11[172]i[171]162)[173]5)[170][181]((1461[172]j[170]i)[173]4)[170](j[177][178]0)[172]366
  388. 50620 [139]k[177]577736[167]k[178]k[171][181](([181]((j[170]i)[173]100)[172]3[171]5)[173]4)
  389. 50630 ta[178]k[171]693596:tg[178]k[171]711858[170]zt[173]24:i[178]ta[173]36525
  390. 50640 e[178]23.452294[171]i[172].013125[171]i[172]i[172]1.639e[171]6[170]i[172]i[172]i[172]5.028e[171]7
  391. 50650 es[178][191](e[172]p1):ec[178][190](e[172]p1)
  392. 52000 [143] ** funktionen definieren **
  393. 52010 [143] **  DKsin  **
  394. 52020 [150][165]as(x)[178][193](x[173][186](1[171]x[172]x))
  395. 52030 [143] **  D2cos  **
  396. 52040 [150][165]ac(x)[178]pi[173]2[171][193](x[173][186](1[171]x[172]x))
  397. 52050 [143] **  modulo  **
  398. 52060 [150][165]mo(x)[178]x[171][181](x[173]c)[172]c
  399. 54000 [143] ** zeit **
  400. 54010 wz$[178][202]([196]([181]((wz[171][181](wz))[172]100[170].5)),2)
  401. 54020 wz$[178][201]("0"[170]wz$,2)
  402. 54030 wz$[178][201](" "[170][196]([181](wz)),3)[170]":"[170]wz$
  403. 54040 lo[178][181](l[173]15)[172]15
  404. 54050 oz[178][165]mo(zt[172]15[171]lo)[173]15
  405. 54060 oz$[178][201](" "[170][196]([181](oz)),3)[170][201](wz$,3)
  406. 54200 [143] aries
  407. 54210 ar[178]zt[172]360.985647[173]24[170](ta[173]1461[171][181](ta[173]1461))[172]1440.02509
  408. 54220 ar[178]ar[170][181](ta[173]1461)[172].0307572[170]99.2018973
  409. 54230 ar[178][165]mo(ar)
  410. 54300 [143] daten sternbilder
  411. 54310 Cj62000
  412. 54320 [129]a[178]0[164]i3
  413. 54330 [135]z$(a,0),z$(a,1),z(a,0),z(a,1)
  414. 54340 [130]
  415. 54350 [139]wh[137]56000
  416. 55000 [143] ** anleitung **
  417. 55010 [153]"loadstr$ieses (NULL)rogramm zeichnet eine (NULL)ternen-"
  418. 55020 [153]"karte mit der (NULL)onne, dem (NULL)ond, den"
  419. 55030 [153]"(NULL)laneten und den ascixsternen.":[153]
  420. 55040 [153]"str$ie (NULL)amen der (NULL)terne oder deren"
  421. 55050 [153]"(NULL)tandorte koennen wie folgt gesucht"
  422. 55060 [153]"werden:"
  423. 55080 [153]"(NULL)it den lenursor-(NULL)asten den (NULL)feil auf"
  424. 55090 [153]"oder in die (NULL)aehe des (NULL)ternes fuehren"
  425. 55100 [153]"und <asc1> druecken.":[153]
  426. 55110 [153]"(NULL)enn das ganze (NULL)ternzeichen gesucht"
  427. 55112 [153]"wird, kann man statt den lenursortasten"
  428. 55114 [153]"auch den mid$oystick (NULL)ort 2 verwenden."
  429. 55116 [153]"atnn der gewuenschten (NULL)osition drueckt"
  430. 55120 [153]"man dann <asc3> oder den asceuerknopf."
  431. 55130 [153]"(NULL)enn der (NULL)ame oder ein (NULL)eil des (NULL)amens"
  432. 55140 [153]"eines (NULL)terns oder (NULL)ternbildes eingegeben";
  433. 55150 [153]"wird, geht das (NULL)reuz alleine auf den":[153]"(NULL)tern"
  434. 55160 [153]"peekei einem (NULL)ternbild blinken die dazu-"
  435. 55170 [153]"gehoerigen (NULL)terne.":[153]
  436. 55180 [153]"(NULL)eiter = (NULL)aste druecken!";
  437. 55200 [151]198,0:[146]198,1
  438. 56000 [141] 1000:[143] bildschirm
  439. 56010 [141]10000:[143] sonne mond
  440. 56020 [141]20000:[143] planeten
  441. 56030 [141]25000:[143] fixsterne
  442. 56040 [141] 5000:[143] kreuz
  443. 56050 [137]40000
  444. 57000 [143] ** hardDW **
  445. 57100 D
  446. 57110 [137]40000
  447. 58000 [143] ** neustart **
  448. 58010 D(:Cx:D 1:wh[178]1
  449. 58020 [137]50300
  450. 60000 [143] ** daten fixsterne **
  451. 60010 [131]037.8,89.3,polaris,0
  452. 60020 [131]269.8,86.0,umi2,0
  453. 60030 [131]252.5,82.2,umi3,0
  454. 60040 [131]246.3,75.5,umi4,0
  455. 60050 [131]238.5,78.0,umi5,0
  456. 60060 [131]230.2,71.8,pherkad,0
  457. 60070 [131]222.7,74.2,kochab,0
  458. 60080 [131]206.9,49.3,benetnasch,1
  459. 60090 [131]201.0,54.9,mizar,1
  460. 60100 [131]193.5,56.0,alioth,1
  461. 60110 [131]183.9,57.0,megrez,1
  462. 60120 [131]178.5,53.7,phekda,1
  463. 60130 [131]165.9,61.8,dubhe,1
  464. 60140 [131]165.5,56.4,merak,1
  465. 60150 [131]28.6,63.7,cas1,2
  466. 60160 [131]21.5,60.2,cas2,2
  467. 60170 [131]14.2,60.7,cas3,2
  468. 60180 [131]10.1,56.5,schedir,2
  469. 60190 [131]2.3,59.2,caph,2
  470. 60200 [131]  3.3,15.2,algenib,3
  471. 60210 [131]346.2,15.2,markab,3
  472. 60220 [131]345.9,28.1,scheat,3
  473. 60230 [131]311.6,34.0,cyg1,4
  474. 60240 [131]310.4,45.3,deneb,4
  475. 60250 [131]305.6,40.3,schedir,4
  476. 60260 [131]296.2,45.1,cyg4,4
  477. 60270 [131]292.7,28.0,albireo,4
  478. 60280 [131]302.8,-0.8,aql1,5
  479. 60290 [131]297.7,08.9,atair,5
  480. 60300 [131]296.6,10.6,aql3,5
  481. 60310 [131]292.0,03.5,aql4,5
  482. 60320 [131]286.6,-4.9,aql5,5
  483. 60330 [131]286.4,13.9,aql6,5
  484. 60340 [131]284.7,32.7,lyr1,6
  485. 60350 [131]283.0,37.0,lyr2,6
  486. 60360 [131]282.5,33.4,lyr3,6
  487. 60370 [131]280.2,38.8,lyr4,6
  488. 60380 [131]279.2,38.8,wega,6
  489. 60390 [131]265.6,-39.0,sco1,7
  490. 60400 [131]264.3,-43.0,sco2,7
  491. 60410 [131]263.4,-37.1,sco3,7
  492. 60420 [131]262.7,-37.3,sco4,7
  493. 60430 [131]252.5,-34.3,sco5,7
  494. 60440 [131]249.0,-28.2,sco6,7
  495. 60450 [131]247.3,-26.4,antares,7
  496. 60460 [131]241.4,-19.8,acrab,7
  497. 60470 [131]240.1,-22.6,sco9,7
  498. 60480 [131]239.7,-26.1,sco10,7
  499. 60490 [131]228.9,33.3,boo1,8
  500. 60500 [131]225.0,41.0,boo2,8
  501. 60510 [131]221.2,27.1,boo3,8
  502. 60520 [131]218.0,38.3,boo4,8
  503. 60530 [131]218.0,30.5,boo5,8
  504. 60540 [131]213.9,19.2,arktur,8
  505. 60550 [131]201.3,-11.2,spika,9
  506. 60560 [131]198.0, -7.5,vir2,9
  507. 60570 [131]195.5, 11.0,vir3,9
  508. 60580 [131]193.9,  3.4,vir4,9
  509. 60590 [131]190.0, -1.0,vir5,9
  510. 60600 [131]185.0,  0.0,vir6,9
  511. 60610 [131]177.0,  2.0,vir7,9
  512. 60620 [131]191.9,-59.7,cru1,10
  513. 60630 [131]187.8,-57.1,cru2,10
  514. 60640 [131]186.7,-63.1,cru3,10
  515. 60650 [131]183.8,-58.8,cru4,10
  516. 60660 [131]177.3,14.5,denebola,11
  517. 60670 [131]168.6,15.4,leo2,11
  518. 60680 [131]168.5,20.5,leo3,11
  519. 60690 [131]155.0,19.9,leo4,11
  520. 60700 [131]152.1,12.0,regulus,11
  521. 60710 [131]151.8,16.8,leo7,11
  522. 60720 [131]146.5,23.8,leo6,11
  523. 60730 [131]116.3,28.0,pollux,12
  524. 60740 [131]113.7,31.9,kastor,12
  525. 60750 [131]101.3,12.9,gem3,12
  526. 60760 [131]101.0,25.1,gem4,12
  527. 60770 [131] 99.4,16.4,gem5,12
  528. 60780 [131] 95.7,22.5,gem6,12
  529. 60790 [131]111.0,-29.3,cma1,13
  530. 60800 [131]107.1,-26.4,cma2,13
  531. 60810 [131]104.7,-29.0,cma3,13
  532. 60820 [131]101.3,-16.7,sirius,13
  533. 60830 [131] 98.2,-18.0,cma5,13
  534. 60840 [131]90.0,37.2,aur1,14
  535. 60850 [131]89.9,45.0,aur2,14
  536. 60860 [131]79.2,46.0,capella,14
  537. 60870 [131]75.5,43.8,aur4,14
  538. 60880 [131]74.3,33.2,aur5,14
  539. 60890 [131]88.8, 7.4,beteigeuze,15
  540. 60900 [131]86.9,-9.1,ori2,15
  541. 60910 [131]85.2,-2.0,ori3,15
  542. 60920 [131]84.1,-1.2,ori4,15
  543. 60930 [131]83.0,-0.3,ori5,15
  544. 60940 [131]81.3, 6.4,bellatrix,15
  545. 60950 [131]78.6,-8.2,rigel,15
  546. 60960 [131]59.5,40.0,per1,16
  547. 60970 [131]58.5,31.9,per2,16
  548. 60980 [131]55.7,47.8,per3,16
  549. 60990 [131]51.1,49.9,algenib,16
  550. 61000 [131]47.0,41.0,algol,16
  551. 61010 [131]46.2,53.5,per6,16
  552. 61020 [131]31.0,42.0,alamak,17
  553. 61030 [131]17.4,35.6,mirach,17
  554. 61040 [131] 9.8,31.9,and3,17
  555. 61050 [131] 2.1,29.1,sirrah,17
  556. 61060 [131]354.8,77.6,cep1,18
  557. 61070 [131]342.5,66.0,cep2,18
  558. 61080 [131]322.2,70.6,alfrik,18
  559. 61090 [131]319.6,62.6,alderamin,18
  560. 61100 [131]269.2,51.5,dra1,19
  561. 61110 [131]262.6,52.3,dra2,19
  562. 61120 [131]231.2,59.0,dra3,19
  563. 61130 [131]246.0,61.5,dra4,19
  564. 61140 [131]257.2,65.7,dra5,19
  565. 61150 [131]288.1,67.7,dra6,19
  566. 61160 [131]31.8,23.5,hamal,20
  567. 61170 [131]28.7,20.8,ari2,20
  568. 61180 [131]84.4,21.2,tau1,21
  569. 61190 [131]81.6,28.6,elnath,21
  570. 61200 [131]69.0,16.5,aldebaran,21
  571. 61210 [131]58.8,12.5,tau4,21
  572. 61220 [131]56.9,24.1,plejaden,21
  573. 61230 [131]114.8,5.2,prokyon,22
  574. 61240 [131]111.8,8.3,cmi2,22
  575. 62000 [143] ** daten sternbilder **
  576. 62010 [131]ursa minor,kleiner wagen,6,1
  577. 62020 [131]ursa maior,grosser wagen,6,8
  578. 62030 [131]cassiopeia,kassiopeia,4,15
  579. 62040 [131]pegasus,pegasus,2,20
  580. 62050 [131]cygnus,schwan,4,23
  581. 62060 [131]aquilla,adler,5,28
  582. 62070 [131]lyra,leier,4,34
  583. 62080 [131]scorpius,skorpion,9,39
  584. 62090 [131]bootes,bootes,5,49
  585. 62100 [131]virgio,jungfrau,6,55
  586. 62110 [131]crux,kreuz sueden,3,62
  587. 62120 [131]leo,loewe,6,66
  588. 62130 [131]gemini,zwillinge,5,73
  589. 62140 [131]canis maior,grosser hund,4,79
  590. 62150 [131]auriga,fuhrmann,4,84
  591. 62160 [131]orion,orion,6,89
  592. 62170 [131]perseus,perseus,5,96
  593. 62180 [131]andromeda,andromeda,3,102
  594. 62190 [131]cepheus,kepheus,3,106
  595. 62200 [131]draco,drache,5,110
  596. 62210 [131]aries,widder,1,116
  597. 62220 [131]taurus,stier,4,118
  598. 62230 [131]canis minor,kleiner hund,1,123
  599. 62500 [143] ** daten planeten **
  600. 62510 [131]merkur,4.0923, 31.19, 76.987
  601. 62520 [131]23.00,.2056, 47.826,7.004, 0.3871
  602. 62530 [131]venus ,1.6021, 80.85,131.149
  603. 62540 [131] 0.76,.0068, 76.410,3.394, 0.7233
  604. 62550 [131]mars  ,0.5240,144.14,335.507
  605. 62560 [131]11.00,.0934, 49.326,1.850, 1.5237
  606. 62570 [131]jupiter,.0831,316.19, 13.839
  607. 62580 [131] 5.30,.0485,100.146,1.305, 5.2028
  608. 62590 [131]saturn,0.0335,158.36, 92.460
  609. 62600 [131] 5.50,.0557,113.511,2.486, 9.5810
  610. 62610 [131]uranus,0.0117, 98.38,170.173
  611. 62620 [131] 5.70,.0472, 73.847,0.773,19.1823
  612. 62700 [143] ** e n d e **
  613.