-
Notifications
You must be signed in to change notification settings - Fork 0
/
ssr_fin.bas
339 lines (337 loc) · 8 KB
/
ssr_fin.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SSR SONNENSYSTEMROTATION
Einstellungen ausgeben ssr_fin.bas
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
© 2023 by Dietmar Gerald Schrausser
!!
TEXT.OPEN w, fsr, "ssr.ini"
TEXT.WRITELN fsr, s00
TEXT.WRITELN fsr, s01
TEXT.WRITELN fsr, s02
TEXT.WRITELN fsr, s03
TEXT.WRITELN fsr, s04
TEXT.WRITELN fsr, u00
TEXT.WRITELN fsr, t00
TEXT.WRITELN fsr, s07
TEXT.WRITELN fsr, s08
TEXT.WRITELN fsr, s09
TEXT.WRITELN fsr, s10
TEXT.WRITELN fsr, s11
TEXT.WRITELN fsr, st00
TEXT.WRITELN fsr, nb00
TEXT.WRITELN fsr, gm00
TEXT.WRITELN fsr, gx00
TEXT.WRITELN fsr, gq00
TEXT.WRITELN fsr, gh00
TEXT.WRITELN fsr, gw00
TEXT.WRITELN fsr, t98
TEXT.WRITELN fsr, t99
TEXT.WRITELN fsr, t01
TEXT.WRITELN fsr, t02
TEXT.WRITELN fsr, t03
TEXT.WRITELN fsr, gx01
TEXT.WRITELN fsr, t05
TEXT.WRITELN fsr, t06
TEXT.WRITELN fsr, t06s
TEXT.WRITELN fsr, t06st
TEXT.WRITELN fsr, t06nb
TEXT.WRITELN fsr, t06gm
TEXT.WRITELN fsr, t06gx
TEXT.WRITELN fsr, t06gh
TEXT.WRITELN fsr, t06gq
TEXT.WRITELN fsr, t06gw
TEXT.WRITELN fsr, s99
TEXT.WRITELN fsr, st99
TEXT.WRITELN fsr, nb99
TEXT.WRITELN fsr, gm99
TEXT.WRITELN fsr, gx99
TEXT.WRITELN fsr, gh99
TEXT.WRITELN fsr, gq99
TEXT.WRITELN fsr, gw99
TEXT.WRITELN fsr, t07
TEXT.WRITELN fsr, t08
TEXT.WRITELN fsr, t09
TEXT.WRITELN fsr, t10
TEXT.WRITELN fsr, t11
TEXT.WRITELN fsr, t12
TEXT.WRITELN fsr, t13
TEXT.WRITELN fsr, t14
TEXT.WRITELN fsr, t15
TEXT.WRITELN fsr, st01
TEXT.WRITELN fsr, st02
TEXT.WRITELN fsr, st03
TEXT.WRITELN fsr, st04
TEXT.WRITELN fsr, st05
TEXT.WRITELN fsr, st06
TEXT.WRITELN fsr, st07
TEXT.WRITELN fsr, st08
TEXT.WRITELN fsr, st09
TEXT.WRITELN fsr, st10
TEXT.WRITELN fsr, st11
TEXT.WRITELN fsr, st12
TEXT.WRITELN fsr, st13
TEXT.WRITELN fsr, st14
TEXT.WRITELN fsr, st15
TEXT.WRITELN fsr, st16
TEXT.WRITELN fsr, st17
TEXT.WRITELN fsr, st18
TEXT.WRITELN fsr, st19
TEXT.WRITELN fsr, st20
TEXT.WRITELN fsr, st21
TEXT.WRITELN fsr, st22
TEXT.WRITELN fsr, st23
TEXT.WRITELN fsr, st24
TEXT.WRITELN fsr, st25
TEXT.WRITELN fsr, st26
TEXT.WRITELN fsr, st27
TEXT.WRITELN fsr, st28
TEXT.WRITELN fsr, st29
TEXT.WRITELN fsr, st30
TEXT.WRITELN fsr, st31
TEXT.WRITELN fsr, st32
TEXT.WRITELN fsr, st33
TEXT.WRITELN fsr, st34
TEXT.WRITELN fsr, st35
TEXT.WRITELN fsr, st36
TEXT.WRITELN fsr, st37
TEXT.WRITELN fsr, st38
TEXT.WRITELN fsr, st39
TEXT.WRITELN fsr, st40
TEXT.WRITELN fsr, st41
TEXT.WRITELN fsr, st42
TEXT.WRITELN fsr, st43
TEXT.WRITELN fsr, st44
TEXT.WRITELN fsr, st45
TEXT.WRITELN fsr, st46
TEXT.WRITELN fsr, st47
TEXT.WRITELN fsr, st48
TEXT.WRITELN fsr, st49
TEXT.WRITELN fsr, st50
TEXT.WRITELN fsr, st51
TEXT.WRITELN fsr, st52
TEXT.WRITELN fsr, st53
TEXT.WRITELN fsr, st54
TEXT.WRITELN fsr, st55
TEXT.WRITELN fsr, st56
TEXT.WRITELN fsr, st57
TEXT.WRITELN fsr, t17
TEXT.WRITELN fsr, t18
TEXT.WRITELN fsr, t19
TEXT.WRITELN fsr, t20
TEXT.WRITELN fsr, nb10
TEXT.WRITELN fsr, nb11
TEXT.WRITELN fsr, nb12
TEXT.WRITELN fsr, nb14
TEXT.WRITELN fsr, nb15
TEXT.WRITELN fsr, nb16
TEXT.WRITELN fsr, nb17
TEXT.WRITELN fsr, nb18
TEXT.WRITELN fsr, nb19
TEXT.WRITELN fsr, nb20
TEXT.WRITELN fsr, nb21
TEXT.WRITELN fsr, nb22
TEXT.WRITELN fsr, gm01
TEXT.WRITELN fsr, gm02
TEXT.WRITELN fsr, gm03
TEXT.WRITELN fsr, gm04
TEXT.WRITELN fsr, gm05
TEXT.WRITELN fsr, gm06
TEXT.WRITELN fsr, gx02
TEXT.WRITELN fsr, gx03
TEXT.WRITELN fsr, gx04
TEXT.WRITELN fsr, gx05
TEXT.WRITELN fsr, gx06
TEXT.WRITELN fsr, gx07
TEXT.WRITELN fsr, gx08
TEXT.WRITELN fsr, gx09
TEXT.WRITELN fsr, gx10
TEXT.WRITELN fsr, gx11
TEXT.WRITELN fsr, gx12
TEXT.WRITELN fsr, gx13
TEXT.WRITELN fsr, gx14
TEXT.WRITELN fsr, gx15
TEXT.WRITELN fsr, gx16
TEXT.WRITELN fsr, gx17
TEXT.WRITELN fsr, gx18
TEXT.WRITELN fsr, gx19
TEXT.WRITELN fsr, gx20
TEXT.WRITELN fsr, gx21
TEXT.WRITELN fsr, gx22
TEXT.WRITELN fsr, gx23
TEXT.WRITELN fsr, gx24
TEXT.WRITELN fsr, gx25
TEXT.WRITELN fsr, gx26
TEXT.WRITELN fsr, gx27
TEXT.WRITELN fsr, gx28
TEXT.WRITELN fsr, gx29
TEXT.WRITELN fsr, gx30
TEXT.WRITELN fsr, gx31
TEXT.WRITELN fsr, gh01
TEXT.WRITELN fsr, gh02
TEXT.WRITELN fsr, gh03
TEXT.WRITELN fsr, gh04
TEXT.WRITELN fsr, gh05
TEXT.WRITELN fsr, gh06
TEXT.WRITELN fsr, gh07
TEXT.WRITELN fsr, gh08
TEXT.WRITELN fsr, gh09
TEXT.WRITELN fsr, gh10
TEXT.WRITELN fsr, gh11
TEXT.WRITELN fsr, gh12
TEXT.WRITELN fsr, gh13
TEXT.WRITELN fsr, gh14
TEXT.WRITELN fsr, gh14
TEXT.WRITELN fsr, t31
TEXT.WRITELN fsr, t32
TEXT.WRITELN fsr, t33
TEXT.WRITELN fsr, t34
TEXT.WRITELN fsr, t35
TEXT.WRITELN fsr, t36
TEXT.WRITELN fsr, swvgl
TEXT.WRITELN fsr, vglst
TEXT.WRITELN fsr, objv$
TEXT.WRITELN fsr, t38
TEXT.WRITELN fsr, t82
TEXT.WRITELN fsr, t83
TEXT.WRITELN fsr, t84
TEXT.WRITELN fsr, t85
TEXT.WRITELN fsr, t86
TEXT.WRITELN fsr, t87
TEXT.WRITELN fsr, t88
TEXT.WRITELN fsr, t89
TEXT.WRITELN fsr, t90
TEXT.WRITELN fsr, t91
TEXT.WRITELN fsr, t92
TEXT.WRITELN fsr, t93
TEXT.WRITELN fsr, t94
TEXT.WRITELN fsr, t95
TEXT.WRITELN fsr, t96
TEXT.WRITELN fsr, t97
TEXT.WRITELN fsr, t100
TEXT.WRITELN fsr, t101
TEXT.WRITELN fsr, t102
TEXT.WRITELN fsr, t103
TEXT.WRITELN fsr, t104
TEXT.WRITELN fsr, t105
TEXT.WRITELN fsr, t106
TEXT.WRITELN fsr, t107
TEXT.WRITELN fsr, t108
TEXT.WRITELN fsr, t109
TEXT.WRITELN fsr, t110
TEXT.WRITELN fsr, t111
TEXT.WRITELN fsr, t112
TEXT.WRITELN fsr, t113
TEXT.WRITELN fsr, t114
TEXT.WRITELN fsr, t115
TEXT.WRITELN fsr, t116
TEXT.WRITELN fsr, t117
TEXT.WRITELN fsr, t118
TEXT.WRITELN fsr, t119
TEXT.WRITELN fsr, t120
TEXT.WRITELN fsr, t121
TEXT.WRITELN fsr, t122
TEXT.WRITELN fsr, t123
TEXT.WRITELN fsr, t124
TEXT.WRITELN fsr, t125
TEXT.WRITELN fsr, t126
TEXT.WRITELN fsr, t127
TEXT.WRITELN fsr, t128
TEXT.WRITELN fsr, t129
TEXT.WRITELN fsr, t130
TEXT.WRITELN fsr, nb01
TEXT.WRITELN fsr, t39
TEXT.WRITELN fsr, gq01
TEXT.WRITELN fsr, gq02
TEXT.WRITELN fsr, gq03
TEXT.WRITELN fsr, gq04
TEXT.WRITELN fsr, gq05
TEXT.WRITELN fsr, gq06
TEXT.WRITELN fsr, gq07
TEXT.WRITELN fsr, gq08
TEXT.WRITELN fsr, gq09
TEXT.WRITELN fsr, gq10
TEXT.WRITELN fsr, gq11
TEXT.WRITELN fsr, gq12
TEXT.WRITELN fsr, gq13
TEXT.WRITELN fsr, gq14
TEXT.WRITELN fsr, gq15
TEXT.WRITELN fsr, gq16
TEXT.WRITELN fsr, gq17
TEXT.WRITELN fsr, gq18
TEXT.WRITELN fsr, gq19
TEXT.WRITELN fsr, gq20
TEXT.WRITELN fsr, u01
TEXT.WRITELN fsr, u02
TEXT.WRITELN fsr, u03
TEXT.WRITELN fsr, u04
TEXT.WRITELN fsr, u05
TEXT.WRITELN fsr, u06
TEXT.WRITELN fsr, u07
TEXT.WRITELN fsr, u08
TEXT.WRITELN fsr, u09
TEXT.WRITELN fsr, u10
TEXT.WRITELN fsr, u11
TEXT.WRITELN fsr, u13
TEXT.WRITELN fsr, u14
TEXT.WRITELN fsr, u15
TEXT.WRITELN fsr, u16
TEXT.WRITELN fsr, aed
TEXT.WRITELN fsr, aed$
TEXT.WRITELN fsr, ed
TEXT.WRITELN fsr, swu
TEXT.WRITELN fsr, swk
TEXT.WRITELN fsr, inf
TEXT.WRITELN fsr, vsm_mn
TEXT.WRITELN fsr, vsm_mx
TEXT.WRITELN fsr, vsm
TEXT.WRITELN fsr, vsmn
TEXT.WRITELN fsr, vse
TEXT.WRITELN fsr, ae1
TEXT.WRITELN fsr, v
TEXT.WRITELN fsr, sw
TEXT.WRITELN fsr, sec1
TEXT.WRITELN fsr, h_
TEXT.WRITELN fsr, m_
TEXT.WRITELN fsr, s_
TEXT.WRITELN fsr, dg_
TEXT.WRITELN fsr, dm_
TEXT.WRITELN fsr, ds_
TEXT.WRITELN fsr, rk$
TEXT.WRITELN fsr, dkl$
TEXT.WRITELN fsr, ur$
TEXT.WRITELN fsr, kp$
TEXT.WRITELN fsr, gwf$
TEXT.WRITELN fsr, skl
TEXT.WRITELN fsr, vgr
TEXT.WRITELN fsr, vgr_s
TEXT.WRITELN fsr, vgr_st
TEXT.WRITELN fsr, vgr_nb
TEXT.WRITELN fsr, vgr_gm
TEXT.WRITELN fsr, vgr_gx
TEXT.WRITELN fsr, vgr_gh
TEXT.WRITELN fsr, vgr_gq
TEXT.WRITELN fsr, vgr_w1
TEXT.WRITELN fsr, vgr_p
TEXT.WRITELN fsr, s101
TEXT.WRITELN fsr, st101
TEXT.WRITELN fsr, nb101
TEXT.WRITELN fsr, gx101
TEXT.WRITELN fsr, gq101
TEXT.WRITELN fsr, gw101
TEXT.CLOSE fsr
CONSOLE.TITLE _name$
PRINT _name$+" SONNENSYSTEMROTATION "+_ver$
PRINT"Copyright "+_cr$+" 2023 by Dietmar Gerald SCHRAUSSER"
PRINT"https://github.com/Schrausser/SSR"
PRINT "DOI:10.5281/zenodo.8240203"
!PRINT " "
PRINT "Astronomische Datenquellen:
PRINT "NASA Planetary Fact Sheet ["+_g1_mon$+"/"+_g1_jar$+"]"
!PRINT "https://nssdc.gsfc.nasa.gov/planetary/factsheet"
PRINT "CDS SIMBAD ["+_g2_mon$+"/"+_g2_jar$+"]"
!PRINT "https://cdsweb.u-strasbg.fr/Simbad.html"
PRINT "NED* ["+_g2_mon$+"/"+_g2_jar$+"]"
!PRINT" "
PRINT "*) The NASA/IPAC Extragalactic Database (NED) is funded by the National Aeronautics and Space Administration and operated by the California Institute of Technology."
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%