forked from robhagemans/basicode
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Weer.bc2
438 lines (438 loc) · 12.3 KB
/
Weer.bc2
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
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
1000 A=200:GOTO 20: REM PLANETARIUM, version 1.0
1010 GOTO 5000
1050 REM INITIALIZATION
1051 MP=11:XP=-1:QZ=1:AA=1:KR=1:PL$="00000000000":VV=32:TP=0:NZ=1
1052 TL=730:TA=1:CE=3 :RP=11:AP=0
1053 DIM RO(MP),MM(MP)
1054 DIM X(MP),Y(MP),R(MP),L(MP),A$(MP),B$(12),C(12),F(MP),D0(12),V(MP)
1055 DIM P$(5)
1056 AA=1
1060 PP=ATN(1)*4
1070 AS=13
1080 DIM SB$(AS),SB(AS)
1100 DIM A(MP,9),B(4,3),Z(3)
1199 FOR I=1 TO MP
1200 READ A$(I)
1210 FOR J=1 TO 9
1220 READ A(I,J)
1230 NEXT J
1240 NEXT I
1250 FOR I=1 TO 4
1260 FOR J=1 TO 3
1270 READ B(I,J)
1280 NEXT J
1290 NEXT I
1300 FOR I=1 TO 5
1310 READ P$(I)
1320 NEXT I
1330 FOR I= 1 TO AS
1340 READ SB$(I),SB(I)
1350 NEXT I
1360 FOR I=1 TO 12
1370 READ D0(I)
1380 NEXT I
1381 REM erase old values
1382 FOR I=1 TO MP
1384 MM(I)=0:RO(I)=0
1385 NEXT I
1390 RETURN
1400 REM CONVERSION GREGORIAN TO JULIAN
1415 M1=MD
1420 J1=JR
1421 U1=UR-1
1425 D1=DG+U1/24
1450 IF MD<>1 AND MD<>2 THEN 1600
1500 M1=M1+12
1550 J1=J1-1
1600 GR=2+INT(J1/400)-INT(J1/100)
1650 JD=71.5+INT((J1-1900)*365.25)
1655 JD=JD+GR+D1+INT(M1*30.6-91.3)
1657 T=JD/36525
1660 GOSUB 9800
1700 RETURN
1750 REM DETERMINE TRUE FEED RADIUS AND LENGTH
1753 IF I=4 THEN 3550
1755 E=A(I,7)
1760 GOSUB 2000
1765 CO=COS(M)
1770 SI=SIN(M)
1800 R(I)=A(I,8)*(1-E*CO+.5*E*E*SI*SI)
1850 L(I)=W+M+2*E*SI*(1.25*E*CO+1)-PP/2
1875 L(I)=L(I)-2*PP*(INT(L(I)/2/PP))
1950 RETURN
2000 REM DETERMINE MEDIUM ANOMALY AND LENGTH
2050 M=A(I,1)+A(I,2)*T+A(I,4)*T*T
2100 W=A(I,5)+A(I,6)*T
2150 RETURN
2200 REM PLANET POSITION
2250 X(I)=-R(I)*SIN(L(I))
2300 Y(I)=R(I)*COS(L(I))
2350 RETURN
2360 REM PLACE CURSOR ON THE LAST LINE
2361 VE=22:HO=0:GOSUB 110
2362 PRINT" "
2363 GOSUB 110
2365 RETURN
2400 REM REQUEST DATE
2450 GOSUB 2360
2453 PRINT "PLANETARIUM 1.4 INPUT YEAR";
2458 INPUT JR
2550 GOSUB 2360
2600 PRINT "INPUT MONTH";
2650 INPUT MD
2700 IF MD<1 OR MD>12 THEN 2650
2750 GOSUB 2360
2800 PRINT "INPUT DAY";
2850 INPUT DG
2900 IF DG<1 OR DG>31 THEN 2850
3055 UR=0
3120 GOSUB 1400
3122 RETURN
3125 GOSUB 4700
3130 HO=0:VE=21:GOSUB 110
3140 PRINT" MVAMMJSUNPZ "
3145 GOSUB 2360:PRINT"input planet";:INPUT PL$
3150 RETURN
3200 REM DETERMINE ANGLE WITH ARCTAN
3210 QU=ABS(Y)/ABS(1E-11+X)
3212 HO=ATN(QU)
3300 IF X<0 AND Y<0 THEN HO=PP+HO
3350 IF X<0 AND Y>0 THEN HO=PP-HO
3400 IF X>0 AND Y<0 THEN HO=2*PP-HO
3450 RETURN
3500 REM Moon Orbit
3510 FOR J=1 TO 3
3512 Z(J)=B(J,1)+B(J,2)*T+B(J,3)*T*T
3515 NEXT J
3520 RETURN
3550 REM MOON CALCULATION
3555 GOSUB 3500
3557 I=4
3560 M=Z(1)
3570 L(4)=Z(2)+B(4,1)*SIN(2*Z(3))+B(4,2)*SIN(M)
3580 L(4)=L(4)+B(4,3)*SIN(2*Z(3)-M)-PP/2
3590 R(4)=A(4,8)*(1-A(4,7)*COS (M)+.5*A(4,7)*A(4,7)*SIN(M)*SIN(M))
3600 GOTO 1875
4000 REM SET DATA
4005 GOSUB 1050
4010 GOSUB 100
4050 GOSUB 2400
4060 GOSUB 3125
4100 RETURN
4150 REM PLANES POSITIONS RELATED TO SUN
4152 XM=0:YM=0:MT=0:PH=0
4155 FOR I=1 TO MP
4200 GOSUB 1750
4250 GOSUB 2200
4255 GOSUB 8200
4260 IF WE=1 THEN GOSUB 8100
4270 GOSUB 7200
4300 NEXT I
4310 L(3)=L(3)+PP:X(3)=-X(3):Y(3)=-Y(3)
4320 X(4)=X(4)+X(3):Y(4)=Y(4)+Y(3)
4400 REM PLANES POSITIONS RELATED TO CENTRAL PLANET
4401 XC=X(CE):YC=Y(CE)
4405 FOR I=1 TO MP
4410 X(I)=X(I)-XC
4415 Y(I)=Y(I)-YC
4420 R(I)=SQR(X(I)*X(I)+Y(I)*Y(I))
4421 X=X(I)
4422 Y=Y(I)
4425 GOSUB 3200
4447 IF HO<0 THEN HO=2*PP+HO
4450 L(I)=HO*180/PP
4460 F(I)=0:IF I<>CE THEN F(I)=A(I,9)/R(I)/R(I)
4470 V(I)=0: IF I<>CE THEN V(I)=A(I,9)*SQR(1/R(I)/(1+A(I,9)))
4500 NEXT I
4501 FOR I=1 TO MP
4502 X(I)=R(I)*COS((L(I)-NZ*L(RP))/180*PP):Y(I)=R(I)*SIN((L(I)-NZ*L(RP))/180*PP)
4503 NEXT I
4600 RETURN
4700 REM ask for central/refremacy planet
4710 GOSUB 2360:PRINT"Input central planet (1-11):";:INPUT CE
4715 IF CE<1 OR CE>11 THEN 4710
4720 GOSUB 2360:PRINT"Input reference planet (1-11):";:INPUT RP
4725 IF RP<1 OR RP>11 THEN 4720
4730 RETURN
4800 REM stop writing to file
4810 TP=0
4820 VE=21:HO=0:GOSUB 110:PRINT" "
4830 GOSUB 580
4840 RETURN
5000 GOSUB 4000
5005 J0=JD
5006 GOSUB 9300
5007 GOSUB 4150
5010 IF KR=5 THEN GOSUB 6000: GOTO 5208
5028 GOSUB 5300
5205 GOSUB 8000
5208 GOSUB 9100
5212 GOSUB 9500
5215 T=JD/36525
5220 GOTO 5007
5300 REM plotting force
5305 XF=0:YF=0:XV=0:YV=0
5310 FOR I=1 TO MP
5311 GOSUB 8200 : IF WE=0 THEN GOTO 5319
5312 LL=L(I)
5315 XF=XF+F(I)*COS(LL/180*PP):YF=YF+F(I)*SIN(LL/180*PP)
5317 XV=XV+V(I)*COS((LL+90)/180*PP):YV=YV+V(I)*SIN((LL+90)/180*PP)
5319 NEXT I
5320 X=XF:Y=YF:GOSUB 3200
5321 R=SQR(XF^2+YF^2):AL=HO-L(RP)/180*PP
5322 X=XV:Y=YV:GOSUB 3200
5323 RV=SQR(XV^2+YV^2):AV=HO-L(RP)/180*PP
5324 X=XM:Y=YM:GOSUB 3200
5325 RM=SQR(XM^2+YM^2):AM=HO+L(RP)/180*PP
5326 GOSUB 9700
5327 GOSUB 7500
5328 SR=AA*QZ:GOSUB 300
5330 GOSUB 2360
5337 IF KR=1 THEN PRINT "POWER ";"(";XF;",";YF;") ";JG$;" ";SR$;" ";VV;" ";NZ;" "
5338 IF KR=0 THEN PRINT "dF/dt ";"(";XF;",";YF;") ";JG$;" ";SR$;" ";VV;" ";NZ;" "
5339 IF KR=2 THEN PRINT "SPEED";"(";XV;",";YV;") ";JG$;" ";SR$;" ";VV;" ";NZ;" "
5340 IF KR=3 THEN PRINT "dv/dt ";"(";XV;",";YV;") ";JG$;" ";SR$;" ";VV;" ";NZ;" "
5341 IF KR=4 THEN PRINT "GRAVITY ";"(";XM;",";YM;") ";JG$;" ";SR$;" ";VV;" ";NZ;" "
5342 RETURN
6000 GOSUB 100: GOSUB 600: PRINT "PLANET:";PL$;" ";STR$(CE);" ";JG$
6001 PRINT TAB(25);"M V A M M J S U N P Z";
6002 PRINT TAB(47);"CONSTELLATION":PRINT
6003 FOR I=1 TO MP
6004 GOSUB 8200: IF WE=0 THEN GOTO 7130
6005 PRINT A$(I);TAB(20);INT(L(I));TAB(25)
6010 FOR J=1 TO MP
6020 FOR K=1 TO 5
6022 RE=ABS(A(I,2)+A(J,2))*7.284336E-04
6023 L1=L(I):L2=L(J):IF L1<L2 THEN L1=L2:L2=L(I)
6024 VR=L1-L2
6026 IF K<>1 THEN VR=VR-360/K
6030 IF ABS(VR)>RE THEN 6070
6040 PRINT TAB(25+2*(J-1));P$(K);
6050 K=5
6060 GOTO 7100
6070 VR=L2-L1+360
6080 VR=VR-360/K
6085 IF ABS(VR)>RE THEN 7100
6090 GOTO 6040
7100 NEXT K
7120 NEXT J
7121 FOR II=1 TO AS : IF L(I)<SB(II) THEN NS=II:II=AS
7122 NEXT II
7123 PRINT TAB(47);SB$(NS)
7130 NEXT I
7136 GOSUB 600
7140 RETURN
7200 REM determine center of gravity
7210 ML=A(I,9)
7216 MT=MT+ML
7220 XM=XM+(X(I)-XM)*ML/MT
7230 YM=YM+(Y(I)-YM)*ML/MT
7240 RETURN
7500 REM writing data to disk
7505 IF TP=0 THEN RETURN
7506 SR=KR:GOSUB 300: GOSUB 560
7507 SR=JR:GOSUB 300:GOSUB 560
7508 SR=MD:GOSUB 300:GOSUB 560
7509 SR=DG:GOSUB 300:GOSUB 560
7510 IF KR<>0 AND KR<>1 THEN 7550
7520 SR=XF:GOSUB 300: GOSUB 560
7530 SR=YF:GOSUB 300: GOSUB 560
7540 RETURN
7550 IF KR<>2 AND KR<>3 THEN 7580
7560 SR=XV:GOSUB 300: GOSUB 560
7570 SR=YV:GOSUB 300: GOSUB 560
7575 RETURN
7580 IF KR<>4 THEN 7620
7600 SR=XM:GOSUB 300: GOSUB 560
7610 SR=YM:GOSUB 300: GOSUB 560
7620 RETURN
8000 REM printing orbits around center planet
8005 SC=4:QQ=6
8010 FOR I=1 TO MP
8014 GOSUB 8200
8015 IF WE=0 THEN GOTO 8040
8020 HO=X(I)/QQ:VE=Y(I)/QQ*1.3283
8022 IF HO>1 THEN HO=1
8023 IF VE<-1 THEN VE=-1
8025 HO=(HO/2+.5)/SC:VE=(.5-VE/2)/SC
8030 GOSUB 620
8040 NEXT I
8050 RETURN
8100 REM DETERMINING PERIHELIUM AND APHELIUM
8104 IF MM(I)=0 AND RO(I)=0 THEN GOTO 8190
8105 IF MM(I)=0 AND R(I)>RO(I) THEN MM(I)=1: GOTO 8190
8106 IF MM(I)=0 AND R(I)<RO(I) THEN MM(I)=-1: GOTO 8190
8107 IF PH=0 AND MM(I)<=0 AND R(I)>RO(I) THEN MM(I)=1:PH=1:GOTO 8190
8110 IF PH=0 AND MM(I)>=0 AND R(I)<RO(I) THEN MM(I)=-1:PH=2
8190 RO(I)=R(I)
8199 RETURN
8200 REM determine which should be plotted
8210 WE=0
8220 IF I<>CE AND MID$(PL$,I,1)="1" THEN WE=1
8230 RETURN
9100 REM increase/decrease date
9101 GOSUB 200
9102 IF IN=40 THEN KR=1:VV=32:GOSUB 4800
9103 IF IN=41 THEN KR=0:VV=1:GOSUB 4800
9104 IF IN=80 THEN KR=5:GOSUB 4800
9105 IF IN=32 THEN XP=-XP
9106 IF IN=45 THEN QZ=-1 : GOTO 9101
9107 IF IN=43 OR IN=61 THEN QZ=1 : GOTO 9101
9108 IF IN=30 AND AA-1>0 THEN AA= AA-1 : RETURN
9109 IF IN=31 AND AA+1>0 THEN AA= AA+1: RETURN
9110 IF IN=127 THEN GOSUB 9300
9112 IF IN=71 THEN VV=VV*2
9113 IF IN=75 THEN VV=VV/2
9114 IF IN=38 THEN KR=2:VV=16:GOSUB 4800
9116 IF IN=42 THEN KR=3:VV=.5:GOSUB 4800
9117 IF IN=94 THEN KR=4:VV=1/64:GOSUB 4800
9118 IF IN=84 THEN GOSUB 2400:GOSUB 9300:GOSUB 4800
9119 IF IN=90 THEN GOSUB 3125
9120 IF IN=81 AND AP=0 THEN AP=1:GOTO 9101
9121 IF IN=81 AND AP=1 THEN AP=0:GOTO 9101
9123 IF IN=68 THEN AA= 1: RETURN
9124 IF IN=77 THEN AA= 30: RETURN
9125 IF IN=89 THEN AA= 365:RETURN
9126 IF IN=74 THEN AA=36525 :RETURN
9127 IF XP>0 THEN RETURN
9128 IF IN=33 AND TP=0 THEN TP=1:GOSUB 9400:GOTO 9101
9129 IF IN=33 AND TP=1 THEN TP=0:GOSUB 580:GOTO 9101
9130 IF IN=65 AND TA=0 THEN TA=1:GOSUB 9300:GOTO 9101
9131 IF IN=65 AND TA=1 THEN TA=0:GOSUB 9300:GOTO 9101
9132 IF IN=83 THEN GOSUB 580: END
9140 GOTO 9101
9200 VE=0:HO=P0:GOSUB 620:VE=2*P0:GOSUB 630
9210 HO=0:VE=P0:GOSUB 620:HO=2*P0:GOSUB 630
9220 RETURN
9300 REM WISSEN SCHERMEN
9310 GOSUB 100: GOSUB 600
9315 T0=JD
9320 P0=.5:GOSUB 9200:P0=.125:GOSUB 9200
9325 GOSUB 1381
9327 PRINT JG$
9330 RETURN
9400 REM determine output data
9410 NF=5
9415 VE=21:HO=0: GOSUB 110
9420 PRINT "Input file name:";
9425 INPUT NF$:NF$=NF$+".dat":GOSUB 500
9430 SR$=PL$:GOSUB 560
9440 SR=KR:GOSUB 300:GOSUB 560
9450 RETURN
9500 REM bepalen datum
9510 JD=JD+AA*QZ : DG=DG+AA*QZ
9515 D0(2)=28
9520 IF INT(JR/4)=JR/4 THEN D0(2)=29
9530 IF INT(JR/100)=JR/100 AND INT(JR/400)<>JR/400 THEN D0(2)=28
9540 IF DG<=D0(MD) THEN GOTO 9600
9550 DG=DG-D0(MD) :MD=MD+1
9560 IF MD<=12 THEN GOTO 9515
9570 JR=JR+1:MD=1
9580 GOTO 9515
9600 IF DG>0 THEN 9800
9610 MD=MD-1: IF MD>0 THEN 9650
9620 JR=JR-1:MD=12
9650 DG=DG+D0(MD)
9660 GOTO 9515
9700 REM plotting magnitudes
9705 GOSUB 9900
9710 IF KR<>0 THEN 9750
9722 XF=(R*COS(AL)-X0)/AA/QZ:YF=(R*SIN(AL)-Y0)/AA/QZ
9723 X0=XF*QZ*AA+X0:Y0=Y0+YF*QZ*AA
9724 VE=.5-YF/2/VV*1.328:HO=XF/2/VV+.5
9725 IF TA=1 THEN HO=(JD-T0)/TL:IF HO>1.1 THEN GOSUB 9300
9726 GOSUB 620
9728 GOSUB 9910
9730 RETURN
9750 IF KR<>1 THEN 9781
9755 XF=R*COS(AL):YF=R*SIN(AL)
9760 GOTO 9724
9781 IF KR<>2 THEN 9787
9782 XV=RV*COS(AV):YV=RV*SIN(AV)
9784 HO=XV/2/VV+.5:VE=.5-YV/2/VV*1.3283
9785 GOTO 9725
9787 IF KR<>3 THEN 9791
9788 XV=(RV*COS(AV)-VX)/AA/QZ:YV=(RV*SIN(AV)-VY)/AA/QZ
9789 VX=XV*QZ*AA+VX:VY=VY+YV*QZ*AA
9790 GOTO 9784
9791 XM=RM*COS(AM):YM=RM*SIN(AM)
9792 HO=XM/2/VV+.5:VE=.5-YM/2/VV*1.3283
9793 GOTO 9725
9800 REM convert date to string
9805 CT=4:CN=0:SR=JR:GOSUB 310
9810 JG$=SR$+"/"
9820 CT=2:SR=MD:GOSUB 310
9830 JG$=JG$+SR$+"/"
9840 SR=DG:GOSUB 310
9850 JG$=JG$+SR$
9860 RETURN
9900 REM print legend
9901 HO=0
9902 VE=.28:GOSUB 620: SR$="planet:"+PL$+" "+STR$(CE)+" "+STR$(RP)+" "
9903 GOSUB 650
9905 RETURN
9910 REM plot per/aph in graph
9911 IF AP=0 THEN RETURN
9915 IF PH=0 THEN RETURN
9920 IF PH=1 THEN VE=VE+.02:GOSUB 630:RETURN
9930 IF PH=2 THEN VE=VE-.02:GOSUB 630:RETURN
9980 RETURN
25000 DATA "MERCURY (FRUIT)"
25010 DATA 1.78511,2608.79,0,1.16355E-07,1.3247
25020 DATA 2.71484E-2,.205614,.387099,.055
25030 DATA "VENUS (FLOWER)"
25035 DATA 3.71063,1.02133E3,0,2.24459E-5,2.27179
25040 DATA 2.45749E-2,.00682069,.723332,.815
25050 DATA "EARTH"
25060 DATA 3.11499,6.28302E2,0,-2.61799E-6
25070 DATA 1.76664,3.00053E-2,.016751,1,1
25080 DATA "MOON (LEAF)"
25090 DATA 0,8.32869E3,0,0,0,0
25100 DATA .0549,2.5721E-3,.01228
25110 DATA "MARS (LEAF)"
25120 DATA 5.57684,3.34054E2,0,3.15565E-6,5.83321,3.21273E-2
25130 DATA .0933129,1.52369,.107
25140 DATA "JUPITER (FLOWER)"
25150 DATA 3.93272,5.29654E1,0,-1.25941E-5,2.22022E-1
25160 DATA 2.79246E-2,.0483348,5.20256,317.9
25170 DATA "SATURN (FRUIT)"
25180 DATA 3.06246,2.13201E1,0,-8.7584E-6,1.58996,3.41808E-2
25190 DATA .0558923,9.55475,95.2
25200 DATA "URANUS (FLOWER)"
25210 DATA 1.26796,7.47663,0,1.3761E-6,2.99409,2.59082E-2
25220 DATA .0463444,19.2181,14.6
25230 DATA "NEPTUN (LEAF)"
25240 DATA 6.58524E-1,3.81287,0,-1.22755E-6,8.15546E-1
25250 DATA 2.48635E-2,.00899704,30.1096,17.2
25260 DATA "PLUTO (FRUIT)"
25270 DATA 4.00643,2.53681,0,0,3.89914,2.42213E-2
25280 DATA .248975,39.538,.002
25282 DATA "SUN (ROOT)"
25283 DATA 0,0,0,0,0
25284 DATA 0,0,0,329400
25290 REM MOON PARAMETERS
25300 DATA 5.168,8.32869E3,1.60425E-4
25310 DATA 4.71997,8.39971E3,-1.97804E-5
25320 DATA 6.12152,7.77138E3,2.50649E-5
25330 DATA 1.14897E-2,1.09759E-1,2.22358E-2
25340 REM LETTERS FOR PLANET CONSTELLATIONS
25350 DATA "C","O","T","K","Q"
25360 REM LETTER AND FINAL POSITION STAR IMAGE
25370 DATA "FISH (LEAF)",29
25380 DATA "RAM (FRUIT)",53
25390 DATA "BULL (ROOT)",99
25400 DATA "TWINS (FLOWER)",118
25410 DATA "LOBSTER (LEAF)",139
25420 DATA "LION (FRUIT)",174
25430 DATA "VIRGIN (ROOT)",219
25440 DATA "SCALE (FLOWER)",238
25450 DATA "SCORPION (LEAF)",268
25460 DATA "ARCHER (FRUIT)",299
25470 DATA "CAPRICORN (ROOT)",326
25480 DATA "AQUARIUS (FLOWER)",352
25490 DATA "FISH (LEAF)",360
25500 DATA 31,28,31,30,31,30,31,31,30,31,30,31
32000 REM VICTOR REIJS
32010 REM LEEUWERIKSTRAAT 12
32020 REM 6971 ZD BRUMMEN
32030 REM COPYRIGHT (C) 1994, 2005