QBasic-programmer i relation til Liv-2 hypotesen
Jesus-loves-you
rem
rem see file 4978
rem news:8KMjf.1793$Cl2....@news000.worldonline.dk
rem
rem calculation of unknown object-position
REM The nearest star systems
REM
REM Data from:
REM http://nstars.arc.nasa.gov/starname.cfm
REM
REM Starlist:
REM http://www.solstation.com/stars.htm
REM
REM List 1, version 001.001
rem ****************************************************
rem
rem How to create a BASIC-program file:
rem
rem 1.
rem Mark *all* this text, and copy it into a noteblok-file (txt-format)
rem and save the file as (for instance): 001.txt
rem
rem 2.
rem Rename this file to 001.bak
rem
rem If You don't have a basic-program,
rem You can download one here as freeware:
rem
rem http://www.uv.tietgen.dk/staff/mlha/Download/DOS/microsoft/qbasic11.zip
rem
100 REM Vores opmåling
110 REM
120 VoresGalacticLongitude# = 111.7361#
130 VoresGalacticLatitude# = -2.13468#
140 VoresAfstandTilGalaksensCentrum# = 27000#
150 VoresAfstandTilObjekt# = 11000#
160 REM Deres opmåling
170 REM
180 DeresGalacticLongitude# = 111.8400146#
190 DeresGalacticLatitude# = -2.130018#
200 CONST Pi# = 3.141592653589793#
210 P# = Pi# / 180
220 CLS
230 DIM a#(400): DIM b(400): DIM XX#(400): DIM ZZ#(400): DIM YY#(400)
240 VGLon# = VoresGalacticLongitude#
250 VGLat# = VoresGalacticLatitude#
260 VATGC# = VoresAfstandTilGalaksensCentrum#
270 VATO# = VoresAfstandTilObjekt#
280 DGLon# = DeresGalacticLongitude#
290 DGLat# = DeresGalacticLatitude#
300 X = 0
310 GOSUB 100000
320 IF X = 10000 THEN GOTO 41000
330 XX# = (-COS(Lon# * P#)) * COS(Lat# * P#)
340 YY# = SIN(Lat# * P#)
350 ZZ# = SIN(Lon# * P#) * COS(Lat# * P#)
360 XX# = XX# * Afs# + VoresAfstandTilGalaksensCentrum#
370 ZZ# = ZZ# * Afs#
380 YY# = YY# * Afs#
400 Q# = 0.001#
410 TTT# = 35000#
420 Afstandold# = 50000#
500 REM **********************************************
505 Counter1 = 1
510 REM
515 TTT# = TTT# / 10#
520 Counter2 = 0
530 REM
535 Qold# = Q#
540 IF Counter2 > 0 THEN Q# = Q# + TTT#
1000 REM *********************************************
1010 REM
1020 REM Vores position
1030 X1# = (-COS(VGLon# * P#)) * COS(VGLat# * P#) * VATO# + VATGC#
1040 Z1# = SIN(VGLon# * P#) * COS(VGLat# * P#) * VATO#
1050 Y1# = SIN(VGLat# * P#) * VATO#
1100 CATGC# = SQR(X1# ^ 2 + Z1# ^ 2 + Y1# ^ 2)
1200 Afstand# = CATGC#
1210 X# = X1#
1220 Y# = Y1#
1230 Z# = Z1#
1300 GOSUB 90000
1310 VGLon1# = Lon1#
1320 VGLon2# = Lon2#
1330 VGLat1# = Lat#
2000 REM ***********************************************
2010 REM
2020 REM Deres position
2030 Z1Uo# = SIN(DGLon# * P#) * COS(DGLat# * P#) * Q#
2040 Y1Uo# = SIN(DGLat# * P#) * Q#
2050 X1Uo# = SQR(CATGC# ^ 2 - Z1Uo# ^ 2 - Y1Uo# ^ 2)
2200 Afstand# = CATGC#
2210 X# = X1Uo#
2220 Y# = Y1Uo#
2230 Z# = Z1Uo#
2300 GOSUB 90000
2400 DGLon1# = Lon1#
2410 DGLon2# = Lon2#
2420 DGLat1# = Lat#
2500 AA2# = (-COS(DGLon# * P#)) * COS(DGLat# * P#) * Q#
2510 DATGC# = X1Uo# - AA2#
3000 REM ******************************************************************
3010 REM
3020 REM Beregning udfra ...
3040 REM
3050 REM Cas-A's grad-forskel
3055 DeltaLat1# = VGLat1# - DGLat1#
3060 M# = SIN(DGLon1# * P#) / COS(DGLat1# * P#)
3061 DGLon101# = 180 - (ATN(M# / SQR(-M# * M# + 1)) / P#)
3062 M# = SIN(VGLon1# * P#) / COS(VGLat1# * P#)
3063 Lon101# = 180 - (ATN(M# / SQR(-M# * M# + 1)) / P#)
3064 DeltaLon1# = Lon101# - DGLon101#
3072 M# = SIN(VGLon2# * P#) / COS(VGLat1# * P#)
3073 Lon201# = 180 - (ATN(M# / SQR(-M# * M# + 1)) / P#)
3074 DeltaLon2# = Lon201# - DGLon101#
3075 X2Uo# = (-COS((180 + DeltaLon1#) * P#)) * COS(DeltaLat1# * P#) * DATGC#
3076 Y2Uo# = SIN(DeltaLat1# * P#) * DATGC#
3077 Z2Uo# = SIN((180 + DeltaLon1#) * P#) * COS(DeltaLat1# * P#) * DATGC#
3200 DeltaX# = X2Uo# - VATGC#
3210 DATGC2# = SQR(X2Uo# ^ 2 + Y2Uo# ^ 2 + Z2Uo# ^ 2)
3230 DATOs2# = SQR(DeltaX# ^ 2 + Y2Uo# ^ 2 + Z2Uo# ^ 2)
3240 DATC2# = SQR((X1# - X2Uo#) ^ 2 + (Y1# - Y2Uo#) ^ 2 + (Z1# - Z2Uo#) ^ 2)
3242 Afstand2# = DATOs2#
5000 REM *****************************************************************
33010
33011 Afstand# = SQR((XX# - X2Uo#) ^ 2 + (ZZ# - Z2Uo#) ^ 2 + (YY# - Y2Uo#) ^ 2)
GOTO 33020
33020 IF Afstand# > Afstandold# THEN Q# = Qold# - TTT#: Afstandold# = 50000#: GOTO 33100
33021 Afstandold# = Afstand#: GOTO 33060
33030 IF VA11Uo# < 47.74238# THEN Q# = Qold# - TTT#: Afstandold# = 50000#: GOTO 33100
33031 Afstandold# = VA11Uo#: GOTO 33060
33060 REM NEXT Counter2
33070 Counter2 = Counter2 + 1
33080 IF Counter2 > 19 THEN GOTO 33100
33090 GOTO 530
33100 IF Q# < 0 THEN Q# = .001#
33110 IF t# <> 0 THEN Q# = t#: Qold# = Q
33120 REM NEXT Counter1
33130 Counter1 = Counter1 + 1
33140 IF Counter1 > 20 THEN GOTO 40000
33150 GOTO 510
40000 REM ****************************************************************
40010 CLS
40012 PRINT "Vores Afstand til Galaksens Centrum ="; VATGC#
40013 PRINT "Vores Afstand til Cas-A ="; VATO#
40014 PRINT
40015 PRINT "Ukendt Objects Galactic Longitude ="; DGLon#
40016 PRINT "Ukendt Objects Galactic Latitude ="; DGLat#
40017 print
40020 PRINT X; NA$
40030 a#(X) = Afstand#
40040 b(X) = X
40050 XX#(X) = X4Uo#
40060 ZZ#(X) = Z4Uo#
40070 YY#(X) = Y4Uo#
40100 X = X + 1 : GOTO 310
40110 REM ******************************************************************
40120 REM
40130 REM Data-sortering (efter afstand til objekt)
41000 REM
41001 Yold = Y
41002 FOR X = 0 TO Yold
41005 REM
41010 FOR Y = X TO Yold
41020 a# = a#(X)
41030 b# = a#(Y)
41040 a = b(X)
41050 b = b(Y)
41900 IF b# < a# THEN a#(X) = b#: a#(Y) = a#: b(X) = b: b(Y) = a: GOTO 41005
41990 NEXT Y
42000 NEXT X
REM ******************************************************************
REM GOTO 50000
FOR XX = 0 TO Yold
X = b(XX)
GOSUB 100000
If XX = 0 then print" nr Afstand til objekt Af.til os Stjernens navn"
LOCATE , 3
IF XX + 1 >= 10 THEN LOCATE , 2
IF XX + 1 >= 100 THEN LOCATE , 1
PRINT XX + 1;
LOCATE , 7
IF X >= 10 THEN LOCATE , 6
IF X >= 100 THEN LOCATE , 5
PRINT X;
LOCATE , 14
IF a#(XX) >= 1 THEN LOCATE , 13
IF a#(XX) >= 10 THEN LOCATE , 12
IF a#(XX) >= 100 THEN LOCATE , 12
IF a#(XX) >= 1000 THEN LOCATE , 10
IF a#(XX) >= 10000 THEN LOCATE , 9
PRINT a#(XX);
Afs = Afs#
LOCATE , 39
IF Afs# >= 10 then locate , 38
IF Afs# >= 100 then locate , 37
IF Afs# >= 1000 then locate , 36
IF Afs# >= 10000 then locate , 35
PRINT Afs;
Locate , 48
print NA$
t = 0
IF XX + 1 > 0 AND CINT((XX + 1) / 20) = (XX + 1) / 20 THEN INPUT t
IF t > 0 THEN XX = t
If t < 0 then XX = -1
NEXT XX
END
90000 REM ***************************************************************
90010 REM
90020 REM Subrutine
90030 REM
90040 REM Omregning fra (X,Y,Z) til Longitude-og-Latitude
90050 REM
90060 REM Input: Afstand#, X#, Y#, Z#, (evt. V)
90070 REM
90080 REM OUTPUT: Lat#, Lon1#; Lon2#
90090 V = 0
90100 M# = Y# / Afstand#
90110 Lat# = (ATN(M# / SQR(-M# * M# + 1)) / P#)
90120 r = 0
90130 IF X# < V AND Z# > 0 THEN r = 0
90140 IF X# > V AND Z# > 0 THEN r = 90
90150 IF X# > V AND Z# < 0 THEN r = 180
90160 IF X# < V AND Z# < 0 THEN r = 270
90200 REM Inv Sin
90210 M# = Z# / Afstand# / COS(Lat# * P#)
90220 M1# = (ATN(M# / SQR(-M# * M# + 1)) / P#)
90230 Lon1# = M1#
90240 IF r >= 90 AND r < 270 THEN Lon1# = 180 - M1#
90250 IF r >= 270 THEN Lon1# = 360 + M1#
90300 REM Inv Cos
90310 M# = X# / Afstand# / COS(Lat# * P#)
90320 M2# = -(ATN(M# / SQR(-M# * M# + 1)) / P#)
90330 Lon2# = 270 + M2#
90340 IF r < 180 THEN Lon2# = 90 - M2#
90399 RETURN
100000 REM ***************************************************************
REM the Starlist
REM
REM Symbols:
REM
REM NA$ = Name
REM Afs# = Distance from us in lightyears (distance in pc is better)
REM pc# = Distance from us in parsec (1 pc = 1 AstUnit * 206.265 unit)
REM Lon# = Galactic longitude (degrees)
REM Lat# = Galactic latitude (degrees)
REM ********************************************************
NA$ = "Sun"
Afs# =0#
pc# =0#
Lon# =0#
Lat# =0#
Y = 0: if Y = X then return
NA$ = "1429-6240, Alpha Centauri A"
Afs# =04.36#
pc# =1.338#
Lon# =315.74204#
Lat# =-0.68124#
Y = Y + 1: if Y = X then return
NA$ = "1757+0441, Barnards Star"
Afs# =05.96#
pc# =1.828#
Lon# =31.01612#
Lat# =14.06306#
Y = Y + 1: if Y = X then return
NA$ = "1056+0700, Wolf 359"
Afs# =07.78#
pc# =2.386#
Lon# =244.06543#
Lat# =56.11932#
Y = Y + 1: if Y = X then return
NA$ = "1103+3558, Lalande 21185"
Afs# =08.29#
pc# =2.542#
Lon# =185.13010#
Lat# =65.43196#
Y = Y + 1: if Y = X then return
NA$ = "0645-1642, Sirius A"
Afs# =08.58#
pc# =2.631#
Lon# =227.23788#
Lat# =-8.89115#
Y = Y + 1: if Y = X then return
NA$ = "0139-1757, Luyten 726-8A"
Afs# =08.72#
pc# =2.676#
Lon# =175.48624#
Lat# =-75.69897#
Y = Y + 1: if Y = X then return
NA$ = "1849-2350, Ross 154"
Afs# =09.68#
pc# =2.968#
Lon# =11.31535#
Lat# =-10.28478#
Y = Y + 1: if Y = X then return
REM ******************************************************** 10 lysår
NA$ = "2341+4410, Ross 248"
Afs# =10.32#
pc# =3.165#
Lon# =109.99699#
Lat# =-16.94068#
Y = Y + 1: if Y = X then return
NA$ = "0332-0927, epsilon Eri"
Afs# =10.52#
pc# =3.226#
Lon# =195.85044#
Lat# =-48.05124#
Y = Y + 1: if Y = X then return
NA$ = "2305-3551, Lacaille 9352"
Afs# =10.74#
pc# =3.293#
Lon# =5.11256#
Lat# =-65.95750#
Y = Y + 1: if Y = X then return
NA$ = "1147+0048, Ross 128"
Afs# =10.91#
pc# =3.348#
Lon# =270.15582#
Lat# =59.55738#
Y = Y + 1: if Y = X then return
NA$ = "2238-1518, Luyten 789-6"
Afs# =11.26#
pc# =3.454#
Lon# =47.07602#
Lat# =-56.97900#
Y = Y + 1: if Y = X then return
NA$ = "0739+0513, Procyon A"
Afs# =11.40#
pc# =3.496#
Lon# =213.71050#
Lat# =13.01890#
Y = Y + 1: if Y = X then return
NA$ = "2106+3844, 61 Cygni A"
Afs# =11.40#
pc# =3.496#
Lon# =82.32768#
Lat# =-5.81650#
Y = Y + 1: if Y = X then return
NA$ = "1842+5937, BD+59 1915A"
Afs# =11.52#
pc# =3.534#
Lon# =89.29595#
Lat# =24.23246#
Y = Y + 1: if Y = X then return
NA$ = "0018+4401, Groombridge 34A"
Afs# =11.62#
pc# =3.564#
Lon# =116.68464#
Lat# =-18.44517#
Y = Y + 1: if Y = X then return
NA$ = "2203-5647, epsilon Indi"
Afs# =11.82#
pc# =3.625#
Lon# =336.20196#
Lat# =-48.04608#
Y = Y + 1: if Y = X then return
NA$ = "0829+2646, Giclas 051-015"
Afs# =11.82#
pc# =3.626#
Lon# =197.02269#
Lat# =32.42164#
Y = Y + 1: if Y = X then return
NA$ = "0144-1556, Tau Ceti"
Afs# =11.88#
pc# =3.644#
Lon# =173.10305#
Lat# =-73.43894#
Y = Y + 1: if Y = X then return
NA$ = "0336-4430, GJ 1061"
Afs# =11.92#
pc# =3.658#
Lon# =251.87597#
Lat# =-52.90546#
Y = Y + 1: if Y = X then return
NA$ = "0112-1659, GJ 54.1"
Afs# =12.13#
pc# =3.720#
Lon# =149.70701#
Lat# =-78.75830#
Y = Y + 1: if Y = X then return
NA$ = "0727+0513, Luytens Star"
Afs# =12.36#
pc# =3.791#
Lon# =212.35269#
Lat# =10.37304#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 23
NA$ = "0255+1617, Teegarden's Star"
Afs# =12.565#: rem anslået værdi (12.36 - 12.77)
pc# =3.8525#
Lon# =161.22417#
Lat# =-37.22258#
Y = Y + 1: if Y = X then return
NA$ = "0511-4501, Kapteyns Star"
Afs# =12.77#
pc# =3.917#
Lon# =250.53877#
Lat# =-36.00353#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 25
NA$ = "1845-6357, SCR 1845-6357"
Afs# =12.815#: rem anslået værdi (12.77 - 12.86)
pc# =3.9292#
Lon# =331.51641#
Lat# =-23.50402#
Y = Y + 1: if Y = X then return
NA$ = "2117-3852, GJ 825"
Afs# =12.86#
pc# =3.946#
Lon# =3.91379#
Lat# =-44.25701#
Y = Y + 1: if Y = X then return
NA$ = "2227+5741, Kruger 60"
Afs# =13.14#
pc# =4.031#
Lon# =104.69509#
Lat# =-0.00113#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 28
NA$ = "1048-3956, DEN 1048-3956"
Afs# =13.24#: rem anslået værdi (13.14 - 13.34)
pc# =4.0595#
Lon# =278.68409#
Lat# =17.06623#
Y = Y + 1: if Y = X then return
NA$ = "0629-0248, GJ 234 A"
Afs# =13.34#
pc# =4.093#
Lon# =212.93726#
Lat# =-6.18569#
Y = Y + 1: if Y = X then return
NA$ = "1630-1239, GJ 628"
Afs# =13.81#
pc# =4.237#
Lon# =3.35874#
Lat# =23.67948#
Y = Y + 1: if Y = X then return
NA$ = "0049+0523, van Maanens Star"
Afs# =14.06#
pc# =4.313#
Lon# =121.88677#
Lat# =-57.47674#
Y = Y + 1: if Y = X then return
NA$ = "0005-3721, GJ 1"
Afs# =14.22#
pc# =4.363#
Lon# =343.56759#
Lat# =-75.90403#
Y = Y + 1: if Y = X then return
NA$ = "1233+0901, GJ 473 A"
Afs# =14.30#
pc# =4.388#
Lon# =288.76559#
Lat# =71.38953#
Y = Y + 1: if Y = X then return
NA$ = "0200+1303, GJ 83.1"
Afs# =14.50#
pc# =4.448#
Lon# =147.66655#
Lat# =-46.48930#
Y = Y + 1: if Y = X then return
NA$ = "1044-6111, LHS 288"
Afs# =14.65#
pc# =4.494#
Lon# =288.25246#
Lat# =-1.99634#
Y = Y + 1: if Y = X then return
NA$ = "1736+6820, GJ 687"
Afs# =14.79#
pc# =4.535#
Lon# =98.60998#
Lat# =31.96586#
Y = Y + 1: if Y = X then return
NA$ = "1048-1120, LHS 292"
Afs# =14.80#
pc# =4.539#
Lon# =261.00474#
Lat# =41.28713#
Y = Y + 1: if Y = X then return
NA$ = "1728-4653, GJ 674"
Afs# =14.80#
pc# =4.540#
Lon# =343.01194#
Lat# =-6.77866#
Y = Y + 1: if Y = X then return
NA$ = "1953+4424, GJ 1245 A"
Afs# =14.80#
pc# =4.541#
Lon# =78.86632#
Lat# =8.51223#
Y = Y + 1: if Y = X then return
NA$ = "1145-6450, GJ 440"
Afs# =15.05#
pc# =4.617#
Lon# =296.02472#
Lat# =-2.85761#
Y = Y + 1: if Y = X then return
NA$ = "0006-0732, GJ 1002"
Afs# =15.31#
pc# =4.695#
Lon# =92.47650#
Lat# =-67.72528#
Y = Y + 1: if Y = X then return
NA$ = "2253-1415, GJ 876"
Afs# =15.33#
pc# =4.704#
Lon# =52.01449#
Lat# =-59.62910#
Y = Y + 1: if Y = X then return
NA$ = "1105+4331, GJ 412 A"
Afs# =15.82#
pc# =4.854#
Lon# =168.51368#
Lat# =63.07234#
Y = Y + 1: if Y = X then return
NA$ = "1011+4927, GJ 380"
Afs# =15.84#
pc# =4.859#
Lon# =165.87588#
Lat# =52.14656#
Y = Y + 1: if Y = X then return
NA$ = "1019+1952, GJ 388"
Afs# =15.93#
pc# =4.888#
Lon# =216.46745#
Lat# =54.57971#
Y = Y + 1: if Y = X then return
NA$ = "2133-4900, GJ 832"
Afs# =16.08#
pc# =4.931#
Lon# =349.18253#
Lat# =-46.35049#
Y = Y + 1: if Y = X then return
NA$ = "0339-3525, NS 0339-3525"
Afs# =16.19#
pc# =4.965#
Lon# =236.67618#
Lat# =-53.41285#
Y = Y + 1: if Y = X then return
NA$ = "1737-4419, GJ 682"
Afs# =16.33#
pc# =5.009#
Lon# =345.99366#
Lat# =-6.63568#
Y = Y + 1: if Y = X then return
NA$ = "0415-0739, 40 Eri"
Afs# =16.38#
pc# =5.025#
Lon# =200.75918#
Lat# =-38.04790#
Y = Y + 1: if Y = X then return
NA$ = "2246+4420, GJ 873"
Afs# =16.46#
pc# =5.049#
Lon# =100.61464#
Lat# =-13.06758#
Y = Y + 1: if Y = X then return
NA$ = "1805+0230, 70 Oph"
Afs# =16.64#
pc# =5.103#
Lon# =29.90092#
Lat# =11.36739#
Y = Y + 1: if Y = X then return
NA$ = "1950+0852, Altair"
Afs# =16.72#
pc# =5.129#
Lon# =47.75222#
Lat# =-8.90829#
Y = Y + 1: if Y = X then return
NA$ = "0858+1945, GJ 1116 A"
Afs# =17.05#
pc# =5.230#
Lon# =207.56107#
Lat# =36.46438#
Y = Y + 1: if Y = X then return
NA$ = "0600+0242, Giclas 099-049"
Afs# =17.51#
pc# =5.371#
Lon# =204.57091#
Lat# =-10.14316#
Y = Y + 1: if Y = X then return
NA$ = "1147+7841, GJ 445"
Afs# =17.54#
pc# =5.381#
Lon# =126.85551#
Lat# =37.94977#
Y = Y + 1: if Y = X then return
NA$ = "0015-1608, GJ 1005 A"
Afs# =19.41#
pc# =5.954#
Lon# =83.92983#
Lat# =-76.19920#
Y = Y + 1: if Y = X then return
NA$ = "1345+1453, GJ 526"
Afs# =17.70#
pc# =5.429#
Lon# =351.57833#
Lat# =72.41225#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 58
NA$ = "0501-0656, LHS 1723"
Afs# =17.80#: rem anslået værdi (17.70 - 17.90)
pc# =5.4576#
Lon# =206.42970#
Lat# =-27.47293#
Y = Y + 1: if Y = X then return
NA$ = "2052-1658, LP 816-060"
Afs# =17.90#
pc# =5.490#
Lon# =30.17239#
Lat# =-34.21492#
Y = Y + 1: if Y = X then return
NA$ = "0431+5858, GJ 169.1 A"
Afs# =18.05#
pc# =5.536#
Lon# =148.11060#
Lat# =7.31312#
Y = Y + 1: if Y = X then return
NA$ = "0654+3316, GJ 251"
Afs# =18.15#
pc# =5.569#
Lon# =182.94466#
Lat# =15.13591#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 62
NA$ = "1835+3259, 2MA 1835+3259"
Afs# =18.38#: rem anslået værdi (18.15 - 13.61)
pc# =5.6354#
Lon# =61.64614#
Lat# =17.44401#
Y = Y + 1: if Y = X then return
NA$ = "1920-4533, GJ 754"
Afs# =18.61#
pc# =5.708#
Lon# =352.36914#
Lat# =-23.90259#
Y = Y + 1: if Y = X then return
NA$ = "0531-0340, GJ 205"
Afs# =18.61#
pc# =5.709#
Lon# =206.94189#
Lat# =-19.44782#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 65
NA$ = "0415-0935, 2MA 0415-0935"
Afs# =18.695#: rem anslået værdi (18.61 - 18.78)
pc# =5.7320#
Lon# =202.93832#
Lat# =-38.94289#
Y = Y + 1: if Y = X then return
NA$ = "1932+6939, sig Dra"
Afs# =18.78#
pc# =5.761#
Lon# =101.31107#
Lat# =21.87875#
Y = Y + 1: if Y = X then return
NA$ = "0610-2151, GJ 229 A"
Afs# =18.83#
pc# =5.775#
Lon# =228.61963#
Lat# =-18.44013#
Y = Y + 1: if Y = X then return
NA$ = "1746-5719, GJ 693"
Afs# =18.99#
pc# =5.824#
Lon# =335.31263#
Lat# =-14.45446#
Y = Y + 1: if Y = X then return
NA$ = "1916+0510, Wolf 1055"
Afs# =19.06#
pc# =5.848#
Lon# =40.45490#
Lat# =-3.28260#
Y = Y + 1: if Y = X then return
NA$ = "0542+1229, GJ 213"
Afs# =19.13#
pc# =5.870#
Lon# =193.71571#
Lat# =-9.21195#
Y = Y + 1: if Y = X then return
NA$ = "0812-2133, GJ 300"
Afs# =19.19#
pc# =5.886#
Lon# =241.46827#
Lat# =6.88004#
Y = Y + 1: if Y = X then return
NA$ = "1457-2124, GJ 570 A"
Afs# =19.19#
pc# =5.888#
Lon# =338.24921#
Lat# =32.67570#
Y = Y + 1: if Y = X then return
NA$ = "2349+0224, GJ 908"
Afs# =19.35#
pc# =5.934#
Lon# =93.57222#
Lat# =-56.87785#
Y = Y + 1: if Y = X then return
NA$ = "0049+5748, eta Cas"
Afs# =19.36#
pc# =5.939#
Lon# =122.62783#
Lat# =-5.05339#
Y = Y + 1: if Y = X then return
NA$ = "1532-4116, GJ 588"
Afs# =19.36#
pc# =5.940#
Lon# =332.68245#
Lat# =12.12782#
Y = Y + 1: if Y = X then return
NA$ = "0744+0333, GJ 285"
Afs# =19.46#
pc# =5.969#
Lon# =215.86430#
Lat# =13.45682#
Y = Y + 1: if Y = X then return
NA$ = "1715-2636, 36 Oph"
Afs# =19.46#
pc# =5.970#
Lon# =358.28651#
Lat# =6.87743#
Y = Y + 1: if Y = X then return
NA$ = "2011-3606, GJ 783 A"
Afs# =19.72#
pc# =6.049#
Lon# =5.24206#
Lat# =-30.92507#
Y = Y + 1: if Y = X then return
NA$ = "0319-4304, 82 Eri"
Afs# =19.76#
pc# =6.060#
Lon# =250.75237#
Lat# =-56.07831#
Y = Y + 1: if Y = X then return
NA$ = "1748+7052, GJ 1221"
Afs# =19.79#
pc# =6.072#
Lon# =101.43741#
Lat# =30.68991#
Y = Y + 1: if Y = X then return
NA$ = "2008-6610, del Pav"
Afs# =19.90#
pc# =6.106#
Lon# =329.77593#
Lat# =-32.41781#
Y = Y + 1: if Y = X then return
REM ******************************************************** 20 lysår
NA$ = "0710+3831, GJ 268 A"
Afs# =20.01#
pc# =6.138#
Lon# =178.96272#
Lat# =19.90549#
Y = Y + 1: if Y = X then return
NA$ = "1434-1231, GJ 555"
Afs# =20.02#
pc# =6.140#
Lon# =338.42671#
Lat# =43.15309#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 84
NA$ = "0937+2931, 2MA 0937+2931"
Afs# =20.065#: rem anslået værdi (20.02 - 20.11)
pc# =6.1521#
Lon# =197.86379#
Lat# =47.57522#
Y = Y + 1: if Y = X then return
NA$ = "0914+5241, GJ 338 A"
Afs# =20.11#
pc# =6.168#
Lon# =164.94469#
Lat# =42.66851#
Y = Y + 1: if Y = X then return
NA$ = "1746-3206, GJ 2130 A"
Afs# =20.15#
pc# =6.182#
Lon# =357.36871#
Lat# =-1.75716#
Y = Y + 1: if Y = X then return
NA$ = "2013-4509, GJ 784"
Afs# =20.23#
pc# =6.204#
Lon# =354.81561#
Lat# =-32.97544#
Y = Y + 1: if Y = X then return
NA$ = "1519-0743, GJ 581"
Afs# =20.47#
pc# =6.278#
Lon# =354.08408#
Lat# =40.01795#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 89
NA$ = "0900+2150, LHS 2090"
Afs# =20.57#: rem anslået værdi (20.47 - 20.67)
pc# =6.3069#
Lon# =205.29897#
Lat# =37.61116#
Y = Y + 1: if Y = X then return
NA$ = "2331+1956, GJ 896 A"
Afs# =20.67#
pc# =6.340#
Lon# =98.58381#
Lat# =-39.14010#
Y = Y + 1: if Y = X then return
NA$ = "1712+4539, GJ 661 A"
Afs# =20.85#
pc# =6.397#
Lon# =71.34383#
Lat# =35.96705#
Y = Y + 1: if Y = X then return
NA$ = "1456-2809, LHS 3003"
Afs# =20.86#
pc# =6.398#
Lon# =333.89649#
Lat# =27.07578#
Y = Y + 1: if Y = X then return
NA$ = "1631+4051, Giclas 180-060"
Afs# =20.90#
pc# =6.410#
Lon# =64.76554#
Lat# =43.21377#
Y = Y + 1: if Y = X then return
NA$ = "0555-0410, GJ 223.2"
Afs# =21.03#
pc# =6.452#
Lon# =210.22801#
Lat# =-14.41539#
Y = Y + 1: if Y = X then return
NA$ = "1655-0820, GJ 644 A"
Afs# =21.04#
pc# =6.453#
Lon# =11.05174#
Lat# =21.14094#
Y = Y + 1: if Y = X then return
NA$ = "2313+5710, GJ 892"
Afs# =21.25#
pc# =6.518#
Lon# =109.90628#
Lat# =-3.19678#
Y = Y + 1: if Y = X then return
NA$ = "1219+1107, GJ 1156"
Afs# =21.32#
pc# =6.540#
Lon# =275.90707#
Lat# =72.27116#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 98
NA$ = "1238-3822, LHS 337"
Afs# =21.4#: rem anslået værdi (21.32 - 21.48)
pc# =6.5614#
Lon# =300.21610#
Lat# =24.42352#
Y = Y + 1: if Y = X then return
NA$ = "1625+5418, GJ 625"
Afs# =21.48#
pc# =6.588#
Lon# =83.21867#
Lat# =42.78698#
Y = Y + 1: if Y = X then return
REM ........................................... Test denne 100
NA$ = "0942-6853, GJ 1128"
Afs# =21.595#: rem anslået værdi (21.48 - 21.71)
pc# =6.6212#
Lon# =287.26488#
Lat# =-11.96966#
Y = Y + 1: if Y = X then return
NA$ = "1100+2249, GJ 408"
Afs# =21.71#
pc# =6.660#
Lon# =216.43308#
Lat# =64.45354#
Y = Y + 1: if Y = X then return
NA$ = "2129+1738, GJ 829"
Afs# =21.99#
pc# =6.745#
Lon# =69.57261#
Lat# =-23.68753#
Y = Y + 1: if Y = X then return
NA$ = "1451+1906, xi Boo"
Afs# =22.09#
pc# =6.776#
Lon# =23.09038#
Lat# =61.35649#
Y = Y + 1: if Y = X then return
NA$ = "1050+0648, GJ 402"
Afs# =22.18#
pc# =6.802#
Lon# =242.78340#
Lat# =54.91078#
Y = Y + 1: if Y = X then return
NA$ = "0811+0846, GJ 299"
Afs# =22.28#
pc# =6.835#
Lon# =214.13374#
Lat# =21.85491#
Y = Y + 1: if Y = X then return
NA$ = "0301-1635, NS 0301-1635"
Afs# =35.07#
pc# =10.756#
Lon# =200.49142#
Lat# =-58.07391#
Y = Y + 1: if Y = X then return
NA$ = "2256+1633, GJ 880"
Afs# =22.36#
pc# =6.859#
Lon# =87.07016#
Lat# =-38.18879#
Y = Y + 1: if Y = X then return
rem *******************************************************
rem
rem Extra
NA$ = "1718-3459, GJ 667"
Afs# =23.59#
pc# =7.235#
Lon# =351.85127#
Lat# =1.41980#
Y = Y + 1: if Y = X then return
NA$ = "0236+0653, GJ 105"
Afs# =23.80#
pc# =7.300#
Lon# =163.40822#
Lat# =-47.59232#
Y = Y + 1: if Y = X then return
NA$ = "0048+0516, GJ 33"
Afs# =24.26#
pc# =7.443#
Lon# =121.52032#
Lat# =-57.58096#
Y = Y + 1: if Y = X then return
NA$ = "0025-7715, bet Hyi"
Afs# =24.35#
pc# =7.470#
Lon# =304.78027#
Lat# =-39.78385#
Y = Y + 1: if Y = X then return
NA$ = "0142+2016, 107 Psc"
Afs# =24.38#
pc# =7.478#
Lon# =138.88300#
Lat# =-41.01559#
Y = Y + 1: if Y = X then return
NA$ = "0108+5455, mu Cas"
Afs# =24.59#
pc# =7.543#
Lon# =125.38011#
Lat# =-7.86990#
Y = Y + 1: if Y = X then return
NA$ = "2256-3133, GJ 879"
Afs# =24.97#
pc# =7.658#
Lon# =15.94869#
Lat# =-64.61738#
Y = Y + 1: if Y = X then return
NA$ = "2257-2937, Fomalhaut"
Afs# =24.97#
pc# =7.658#
Lon# =20.49988#
Lat# =-64.90954#
Y = Y + 1: if Y = X then return
NA$ = "1836+3847, Vega"
Afs# =25.27#
pc# =7.751#
Lon# =67.45564#
Lat# =19.23862#
Y = Y + 1: if Y = X then return
NA$ = "1821+7243, chi Dra"
Afs# =26.18#
pc# =8.031#
Lon# =103.46409#
Lat# =28.05886#
Y = Y + 1: if Y = X then return
NA$ = "0449+0657, pi3 Ori"
Afs# =26.26#
pc# =8.056#
Lon# =191.45910#
Lat# =-23.06460#
Y = Y + 1: if Y = X then return
NA$ = "0139-5611, GJ 66"
Afs# =26.31#
pc# =8.071#
Lon# =289.60311#
Lat# =-59.66400#
Y = Y + 1: if Y = X then return
NA$ = "2300-2231, GJ 884"
Afs# =26.53#
pc# =8.137#
Lon# =37.14993#
Lat# =-64.41356#
Y = Y + 1: if Y = X then return
NA$ = "1118+3133, ksi UMa"
Afs# =27.28#
pc# =8.368#
Lon# =195.03918#
Lat# =69.26868#
Y = Y + 1: if Y = X then return
NA$ = "1233+4121, bet CVn"
Afs# =27.35#
pc# =8.390#
Lon# =136.14432#
Lat# =75.31560#
Y = Y + 1: if Y = X then return
NA$ = "1746+2743, mu Her"
Afs# =27.39#
pc# =8.402#
Lon# =52.44571#
Lat# =25.62719#
Y = Y + 1: if Y = X then return
NA$ = "1143-5150, GJ 438"
Afs# =27.42#
pc# =8.410#
Lon# =292.36535#
Lat# =9.62608#
Y = Y + 1: if Y = X then return
NA$ = "1318-1818, 61 Vir"
Afs# =27.78#
pc# =8.522#
Lon# =311.86616#
Lat# =44.09096#
Y = Y + 1: if Y = X then return
NA$ = "0020-6452, zet Tuc"
Afs# =27.99#
pc# =8.586#
Lon# =308.33064#
Lat# =-51.92566#
Y = Y + 1: if Y = X then return
NA$ = "0652-0510, GJ 250"
Afs# =28.50#
pc# =8.742#
Lon# =217.64458#
Lat# =-2.16582#
Y = Y + 1: if Y = X then return
NA$ = "1719-4638, 41 Ara"
Afs# =28.55#
pc# =8.759#
Lon# =342.30684#
Lat# =-5.26906#
Y = Y + 1: if Y = X then return
NA$ = "0554+2016, chi01 Ori"
Afs# =28.70#
pc# =8.804#
Lon# =188.46580#
Lat# =-2.73219#
Y = Y + 1: if Y = X then return
NA$ = "0500-0545, GJ 183"
Afs# =28.70#
pc# =8.804#
Lon# =205.09837#
Lat# =-27.17596#
Y = Y + 1: if Y = X then return
NA$ = "2015-2701, GJ 785"
Afs# =28.76#
pc# =8.822#
Lon# =15.63340#
Lat# =-29.39752#
Y = Y + 1: if Y = X then return
NA$ = "0544-2226, gam Lep"
Afs# =29.19#
pc# =8.953#
Lon# =226.80289#
Lat# =-24.27397#
Y = Y + 1: if Y = X then return
NA$ = "0343-0945, del Eri"
Afs# =29.41#
pc# =9.023#
Lon# =198.09323#
Lat# =-45.99578#
Y = Y + 1: if Y = X then return
NA$ = "1152+3743, Groombridge 1830"
Afs# =29.70#
pc# =9.109#
Lon# =168.54427#
Lat# =73.77921#
Y = Y + 1: if Y = X then return
NA$ = "0319+0322, kap Cet"
Afs# =29.91#
pc# =9.173#
Lon# =178.22954#
Lat# =-43.07153#
Y = Y + 1: if Y = X then return
NA$ = "1311+2752, bet Com"
Afs# =29.94#
pc# =9.185#
Lon# =43.49030#
Lat# =85.40808#
Y = Y + 1: if Y = X then return
REM ******************************************************** 30 lysår
NA$ = "2126-6521, gam Pav"
Afs# =30.04#
pc# =9.215#
Lon# =328.16542#
Lat# =-40.29357#
Y = Y + 1: if Y = X then return
NA$ = "1146-4029, GJ 442"
Afs# =30.13#
pc# =9.244#
Lon# =289.80284#
Lat# =20.70826#
Y = Y + 1: if Y = X then return
NA$ = "1141+3412, 61 UMa"
Afs# =30.89#
pc# =9.476#
Lon# =183.56317#
Lat# =73.32510#
Y = Y + 1: if Y = X then return
NA$ = "1636-0219, 12 Oph"
Afs# =31.95#
pc# =9.802#
Lon# =13.73192#
Lat# =28.41186#
Y = Y + 1: if Y = X then return
NA$ = "2045-3120, GJ 803"
Afs# =32.16#
pc# =9.866#
Lon# =12.66381#
Lat# =-36.80265#
Y = Y + 1: if Y = X then return
NA$ = "0147+6351, GJ 75"
Afs# =32.54#
pc# =9.982#
Lon# =129.09560#
Lat# =1.65748#
Y = Y + 1: if Y = X then return
NA$ = "0610-7445, alp Men"
Afs# =33.07#
pc# =10.145#
Lon# =285.76602#
Lat# =-28.80346#
Y = Y + 1: if Y = X then return
NA$ = "1142+2642, GJ 436"
Afs# =33.19#
pc# =10.180#
Lon# =210.55607#
Lat# =74.56852#
Y = Y + 1: if Y = X then return
NA$ = "0745+2801, Pollux"
Afs# =33.68#
pc# =10.333#
Lon# =192.23791#
Lat# =23.40645#
Y = Y + 1: if Y = X then return
NA$ = "0309+4936, iot Per"
Afs# =34.37#
pc# =10.542#
Lon# =144.60548#
Lat# =-7.37873#
Y = Y + 1: if Y = X then return
NA$ = "0217+3413, GJ 92"
Afs# =35.28#
pc# =10.821#
Lon# =142.45053#
Lat# =-25.38148#
Y = Y + 1: if Y = X then return
NA$ = "0210-5049, GJ 86"
Afs# =35.58#
pc# =10.915#
Lon# =275.93341#
Lat# =-61.96273#
Y = Y + 1: if Y = X then return
NA$ = "0039+2115, 54 Psc"
Afs# =36.18#
pc# =11.098#
Lon# =119.18015#
Lat# =-41.53135#
Y = Y + 1: if Y = X then return
NA$ = "1415+1910, Arcturus"
Afs# =36.72#
pc# =11.264#
Lon# =15.05317#
Lat# =69.11121#
Y = Y + 1: if Y = X then return
NA$ = "1354+1823, eta Boo"
Afs# =37.05#
pc# =11.364#
Lon# =5.29059#
Lat# =73.02992#
Y = Y + 1: if Y = X then return
NA$ = "1546+0721, lam Ser"
Afs# =38.32#
pc# =11.755#
Lon# =15.70283#
Lat# =44.10301#
Y = Y + 1: if Y = X then return
NA$ = "0318-6230, zet2 Ret"
Afs# =39.41#
pc# =12.090#
Lon# =278.97734#
Lat# =-47.21883#
Y = Y + 1: if Y = X then return
NA$ = "0002+2704, 85 Peg"
Afs# =39.59#
pc# =12.143#
Lon# =109.61341#
Lat# =-34.50950#
Y = Y + 1: if Y = X then return
REM ******************************************************** 40 lysår
NA$ = "0818-1237, GJ 302"
Afs# =41.02#
pc# =12.582#
Lon# =234.57161#
Lat# =12.82267#
Y = Y + 1: if Y = X then return
NA$ = "0852+2819, rho Cnc"
Afs# =41.02#
pc# =12.583#
Lon# =196.80390#
Lat# =37.69893#
Y = Y + 1: if Y = X then return
NA$ = "1503+4739, 44 Boo"
Afs# =41.53#
pc# =12.740#
Lon# =80.37626#
Lat# =57.06759#
Y = Y + 1: if Y = X then return
NA$ = "1200-1026, GJ 454"
Afs# =42.06#
pc# =12.903#
Lon# =283.12573#
Lat# =50.46330#
Y = Y + 1: if Y = X then return
NA$ = "1624-3911, GJ 620.1"
Afs# =42.06#
pc# =12.903#
Lon# =341.62851#
Lat# =7.21156#
Y = Y + 1: if Y = X then return
NA$ = "0516+4559, Capella"
Afs# =42.18#
pc# =12.940#
Lon# =162.59643#
Lat# =4.56749#
Y = Y + 1: if Y = X then return
NA$ = "1838-2103, GJ 722"
Afs# =42.34#
pc# =12.989#
Lon# =12.73316#
Lat# =-6.79664#
Y = Y + 1: if Y = X then return
NA$ = "0447-1656, 58 Eri"
Afs# =43.39#
pc# =13.308#
Lon# =215.37042#
Lat# =-34.80573#
Y = Y + 1: if Y = X then return
NA$ = "0136+4124, ups And"
Afs# =44.22#
pc# =13.563#
Lon# =132.00848#
Lat# =-20.66448#
Y = Y + 1: if Y = X then return
NA$ = "2218-5337, GJ 853"
Afs# =44.35#
pc# =13.604#
Lon# =339.02076#
Lat# =-51.38833#
Y = Y + 1: if Y = X then return
NA$ = "1955+0624, Alshain"
Afs# =44.68#
pc# =13.704#
Lon# =46.13362#
Lat# =-11.09425#
Y = Y + 1: if Y = X then return
NA$ = "2339+7737, gam Cep"
Afs# =45.02#
pc# =13.808#
Lon# =119.00012#
Lat# =15.31720#
Y = Y + 1: if Y = X then return
NA$ = "1615-0822, 18 Sco"
Afs# =45.82#
pc# =14.055#
Lon# =4.70206#
Lat# =29.15659#
Y = Y + 1: if Y = X then return
NA$ = "1059+4025, 47 UMa"
Afs# =45.86#
pc# =14.069#
Lon# =175.79361#
Lat# =63.36977#
Y = Y + 1: if Y = X then return
Rem ..............NB! M1 ca. 10 dage afstand
NA$ = "1734+6152, 26 Dra"
Afs# =45.94#
pc# =14.092#
Lon# =91.00057#
Lat# =32.65132#
Y = Y + 1: if Y = X then return
NA$ = "1121-1313, LHS 2397a"
Afs# =46.57#
pc# =14.286#
Lon# =271.78466#
Lat# =44.16125#
Y = Y + 1: if Y = X then return
NA$ = "1604+3909, GJ 611"
Afs# =46.81#
pc# =14.360#
Lon# =62.37576#
Lat# =48.27388#
Y = Y + 1: if Y = X then return
NA$ = "1720+3228, 72 Her"
Afs# =46.89#
pc# =14.384#
Lon# =55.87272#
Lat# =32.31022#
Y = Y + 1: if Y = X then return
NA$ = "1634+5709, GJ 630.1"
Afs# =47.11#
pc# =14.451#
Lon# =86.58286#
Lat# =40.94268#
Y = Y + 1: if Y = X then return
NA$ = "1521-4819, nu02 Lup"
Afs# =47.54#
pc# =14.582#
Lon# =327.08493#
Lat# =7.37679#
Y = Y + 1: if Y = X then return
NA$ = "2040-2346, GJ 796"
Afs# =47.74#
pc# =14.643#
Lon# =21.27275#
Lat# =-33.77804#
Y = Y + 1: if Y = X then return
NA$ = "1544+0230, psi Ser"
Afs# =48.14#
pc# =14.767#
Lon# =9.70471#
Lat# =41.96730#
Y = Y + 1: if Y = X then return
NA$ = "1001+3155, 20 LMi"
Afs# =48.78#
pc# =14.963#
Lon# =195.02575#
Lat# =52.85344#
Y = Y + 1: if Y = X then return
NA$ = "1924+1156, 31 Aql"
Afs# =49.45#
pc# =15.170#
Lon# =47.37976#
Lat# =-1.86559#
Y = Y + 1: if Y = X then return
NA$ = "1547-3754, GJ 599"
Afs# =49.66#
pc# =15.232#
Lon# =337.17046#
Lat# =12.98733#
Y = Y + 1: if Y = X then return
NA$ = "1744-5150, mu Ara"
Afs# =49.74#
pc# =15.258#
Lon# =340.06883#
Lat# =-11.49928#
Y = Y + 1: if Y = X then return
NA$ = "0734+3153, Castor"
Afs# =49.77#
pc# =15.267#
Lon# =187.44956#
Lat# =22.47956#
Y = Y + 1: if Y = X then return
NA$ = "1925+0306, del Aql"
Afs# =49.98#
pc# =15.330#
Lon# =39.62679#
Lat# =-6.13076#
Y = Y + 1: if Y = X then return
REM ******************************************************** 50 lysår
NA$ = "2257+2046, 51 Peg"
Afs# =50.21#
pc# =15.401#
Lon# =90.07087#
Lat# =-34.72554#
Y = Y + 1: if Y = X then return
NA$ = "1923+3313, GJ 758"
Afs# =50.57#
pc# =15.513#
Lon# =66.08415#
Lat# =8.38457#
Y = Y + 1: if Y = X then return
NA$ = "2148-4718, GJ 838"
Afs# =50.94#
pc# =15.625#
Lon# =350.88782#
Lat# =-49.10692#
Y = Y + 1: if Y = X then return
NA$ = "1347+1727, tau Boo"
Afs# =51.00#
pc# =15.645#
Lon# =358.93883#
Lat# =73.88838#
Y = Y + 1: if Y = X then return
NA$ = "2003+2953, GJ 777 A"
Afs# =52.01#
pc# =15.954#
Lon# =67.41877#
Lat# =-0.67110#
Y = Y + 1: if Y = X then return
NA$ = "1323+0243, HD 116442"
Afs# =52.78#
pc# =16.192#
Lon# =321.83974#
Lat# =64.40481#
Y = Y + 1: if Y = X then return
NA$ = "1403+1047, GJ 538"
Afs# =54.04#
pc# =16.576#
Lon# =352.46190#
Lat# =66.44653#
Y = Y + 1: if Y = X then return
NA$ = "1652-0001, GJ 641"
Afs# =55.16#
pc# =16.920#
Lon# =18.38295#
Lat# =26.07758#
Y = Y + 1: if Y = X then return
NA$ = "1730-0103, GJ 678"
Afs# =55.37#
pc# =16.984#
Lon# =22.40724#
Lat# =17.43844#
Y = Y + 1: if Y = X then return
NA$ = "1906-3748, GJ 744"
Afs# =55.95#
pc# =17.161#
Lon# =359.45885#
Lat# =-19.07921#
Y = Y + 1: if Y = X then return
NA$ = "1248+2450, GJ 486.1"
Afs# =55.98#
pc# =17.173#
Lon# =288.18329#
Lat# =87.63372#
Y = Y + 1: if Y = X then return
NA$ = "0242-5048, iot Hor"
Afs# =56.15#
pc# =17.224#
Lon# =268.81647#
Lat# =-58.32532#
Y = Y + 1: if Y = X then return
NA$ = "0655+2522, 37 Gem"
Afs# =56.34#
pc# =17.283#
Lon# =190.42672#
Lat# =12.06411#
Y = Y + 1: if Y = X then return
NA$ = "2003+2953, GJ 777 B"
Afs# =56.35#
pc# =17.286#
Lon# =67.36887#
Lat# =-0.64846#
Y = Y + 1: if Y = X then return
NA$ = "1244+3916, 10 CVn"
Afs# =56.57#
pc# =17.352#
Lon# =128.84511#
Lat# =77.77704#
Y = Y + 1: if Y = X then return
NA$ = "0142-5344, HD 10647"
Afs# =56.57#
pc# =17.352#
Lon# =286.90516#
Lat# =-61.77123#
Y = Y + 1: if Y = X then return
NA$ = "1806-3601, GJ 702.1"
Afs# =56.62#
pc# =17.367#
Lon# =356.04903#
Lat# =-7.33068#
Y = Y + 1: if Y = X then return
NA$ = "1601+3318, rho CrB"
Afs# =56.90#
pc# =17.455#
Lon# =53.49494#
Lat# =48.92457#
Y = Y + 1: if Y = X then return
NA$ = "1553+1311, 39 Ser"
Afs# =57.03#
pc# =17.495#
Lon# =24.06386#
Lat# =45.40318#
Y = Y + 1: if Y = X then return
NA$ = "2017+6651, GJ 788"
Afs# =57.20#
pc# =17.547#
Lon# =100.46903#
Lat# =16.91626#
Y = Y + 1: if Y = X then return
NA$ = "1423+0114, GJ 547"
Afs# =57.30#
pc# =17.578#
Lon# =347.16971#
Lat# =56.01610#
Y = Y + 1: if Y = X then return
NA$ = "0016-7951, HD 1237"
Afs# =57.43#
pc# =17.618#
Lon# =304.87961#
Lat# =-37.14581#
Y = Y + 1: if Y = X then return
NA$ = "2004+1704, 15 Sge"
Afs# =57.55#
pc# =17.652#
Lon# =56.55730#
Lat# =-7.54966#
Y = Y + 1: if Y = X then return
NA$ = "1126+0300, GJ 429"
Afs# =57.67#
pc# =17.690#
Lon# =259.27484#
Lat# =58.50973#
Y = Y + 1: if Y = X then return
NA$ = "2005-6719, GJ 776"
Afs# =57.77#
pc# =17.721#
Lon# =328.47427#
Lat# =-31.99090#
Y = Y + 1: if Y = X then return
NA$ = "1810-6200, iot Pav"
Afs# =57.89#
pc# =17.759#
Lon# =332.21809#
Lat# =-19.16516#
Y = Y + 1: if Y = X then return
NA$ = "1147-3017, GJ 446"
Afs# =57.92#
pc# =17.768#
Lon# =286.84787#
Lat# =30.57024#
Y = Y + 1: if Y = X then return
NA$ = "1450+2354, GJ 564"
Afs# =58.36#
pc# =17.902#
Lon# =32.76893#
Lat# =63.06259#
Y = Y + 1: if Y = X then return
NA$ = "1316+0925, eps Vir"
Afs# =58.42#
pc# =17.921#
Lon# =322.79494#
Lat# =71.31094#
Y = Y + 1: if Y = X then return
NA$ = "1702+4704, GJ 651"
Afs# =58.81#
pc# =18.041#
Lon# =73.02932#
Lat# =37.66492#
Y = Y + 1: if Y = X then return
NA$ = "1704-2834, GJ 652"
Afs# =58.83#
pc# =18.047#
Lon# =355.24490#
Lat# =7.67280#
Y = Y + 1: if Y = X then return
NA$ = "1328+1346, 70 Vir"
Afs# =59.05#
pc# =18.113#
Lon# =337.66843#
Lat# =74.09952#
Y = Y + 1: if Y = X then return
NA$ = "1610+4349, 14 Her"
Afs# =59.13#
pc# =18.139#
Lon# =69.17705#
Lat# =46.94630#
Y = Y + 1: if Y = X then return
NA$ = "0537-8028, pi Men"
Afs# =59.37#
pc# =18.212#
Lon# =292.52141#
Lat# =-29.77812#
Y = Y + 1: if Y = X then return
NA$ = "0416-5918, eps Ret"
Afs# =59.42#
pc# =18.228#
Lon# =270.21157#
Lat# =-42.56497#
Y = Y + 1: if Y = X then return
NA$ = "2144+1446, GJ 836.7"
Afs# =59.86#
pc# =18.362#
Lon# =69.86783#
Lat# =-28.26791#
Y = Y + 1: if Y = X then return
REM ******************************************************** 60 lysår
NA$ = "1523+3017, eta CrB"
Afs# =60.76#
pc# =18.639#
Lon# =47.54166#
Lat# =56.72568#
Y = Y + 1: if Y = X then return
NA$ = "2119-2621, GJ 825.4"
Afs# =61.01#
pc# =18.716#
Lon# =21.19066#
Lat# =-43.09821#
Y = Y + 1: if Y = X then return
NA$ = "2005+3828, GJ 1249"
Afs# =61.57#
pc# =18.886#
Lon# =74.85064#
Lat# =3.63893#
Y = Y + 1: if Y = X then return
NA$ = "1819-0156, GJ 710"
Afs# =62.26#
pc# =19.099#
Lon# =27.58848#
Lat# =6.13075#
Y = Y + 1: if Y = X then return
NA$ = "2000+2242, HD 189733"
Afs# =62.76#
pc# =19.253#
Lon# =60.97099#
Lat# =-3.92102#
Y = Y + 1: if Y = X then return
NA$ = "0547-5103, bet Pic"
Afs# =62.83#
pc# =19.272#
Lon# =258.37115#
Lat# =-30.61333#
Y = Y + 1: if Y = X then return
NA$ = "2002+1535, GJ 775.1"
Afs# =63.02#
pc# =19.331#
Lon# =55.08962#
Lat# =-8.00312#
Y = Y + 1: if Y = X then return
NA$ = "2027-3052, GJ 790"
Afs# =63.24#
pc# =19.399#
Lon# =12.18820#
Lat# =-33.06410#
Y = Y + 1: if Y = X then return
NA$ = "1951+1024, omi Aql"
Afs# =63.24#
pc# =19.399#
Lon# =49.14339#
Lat# =-8.19729#
Y = Y + 1: if Y = X then return
NA$ = "1722-0223, HD 157347"
Afs# =63.44#
pc# =19.459#
Lon# =20.22311#
Lat# =18.43345#
Y = Y + 1: if Y = X then return
NA$ = "1429+8048, HD 128642"
Afs# =63.87#
pc# =19.592#
Lon# =118.28152#
Lat# =35.41653#
Y = Y + 1: if Y = X then return
NA$ = "1447+0242, HD 130307"
Afs# =64.10#
pc# =19.662#
Lon# =356.53755#
Lat# =53.06827#
Y = Y + 1: if Y = X then return
NA$ = "2258-0223, HD 217107"
Afs# =64.29#
pc# =19.720#
Lon# =70.48348#
Lat# =-53.32259#
Y = Y + 1: if Y = X then return
NA$ = "2319+7900, HD 220140"
Afs# =64.41#
pc# =19.759#
Lon# =118.47162#
Lat# =16.94002#
Y = Y + 1: if Y = X then return
NA$ = "2226-1644, 53 Aqr"
Afs# =64.44#
pc# =19.767#
Lon# =42.56347#
Lat# =-54.97892#
Y = Y + 1: if Y = X then return
NA$ = "1351-2423, GJ 530"
Afs# =64.86#
pc# =19.897#
Lon# =319.96106#
Lat# =36.49198#
Y = Y + 1: if Y = X then return
NA$ = "1912+5740, GJ 1233"
Afs# =65.25#
pc# =20.016#
Lon# =88.41150#
Lat# =20.01705#
Y = Y + 1: if Y = X then return
NA$ = "0435+1630, Aldebaran"
Afs# =65.27#
pc# =20.020#
Lon# =180.97913#
Lat# =-20.24778#
Y = Y + 1: if Y = X then return
NA$ = "1933+2150, GJ 762.2"
Afs# =65.71#
pc# =20.157#
Lon# =57.03655#
Lat# =1.09737#
Y = Y + 1: if Y = X then return
NA$ = "2114+3802, tau Cyg"
Afs# =66.27#
pc# =20.329#
Lon# =82.86170#
Lat# =-7.43062#
Y = Y + 1: if Y = X then return
NA$ = "1441-7508, HD 128400"
Afs# =66.33#
pc# =20.346#
Lon# =309.96981#
Lat# =-13.79802#
Y = Y + 1: if Y = X then return
NA$ = "1312-3748, GJ 501.2"
Afs# =66.65#
pc# =20.446#
Lon# =307.42709#
Lat# =24.88732#
Y = Y + 1: if Y = X then return
NA$ = "2124-6813, GJ 1262"
Afs# =66.72#
pc# =20.467#
Lon# =324.90513#
Lat# =-38.91134#
Y = Y + 1: if Y = X then return
NA$ = "0022-1212, 9 Cet"
Afs# =67.08#
pc# =20.576#
Lon# =97.36781#
Lat# =-73.64400#
Y = Y + 1: if Y = X then return
NA$ = "1018+4402, HD 89269"
Afs# =67.40#
pc# =20.674#
Lon# =173.82236#
Lat# =55.09768#
Y = Y + 1: if Y = X then return
NA$ = "2316-4047, GJ 893.3"
Afs# =67.49#
pc# =20.704#
Lon# =351.83585#
Lat# =-66.19915#
Y = Y + 1: if Y = X then return
NA$ = "2040+1956, GJ 797"
Afs# =67.97#
pc# =20.851#
Lon# =63.86119#
Lat# =-13.21514#
Y = Y + 1: if Y = X then return
NA$ = "1921-3459, GJ 755"
Afs# =67.99#
pc# =20.855#
Lon# =3.34210#
Lat# =-20.90393#
Y = Y + 1: if Y = X then return
NA$ = "1907+1651, GJ 746"
Afs# =68.17#
pc# =20.912#
Lon# =49.80854#
Lat# =4.06470#
Y = Y + 1: if Y = X then return
REM ******************************************************** 70 lysår
NA$ = "0546-1449, zet Lep"
Afs# =70.14#
pc# =21.515#
Lon# =219.40649#
Lat# =-20.82714#
Y = Y + 1: if Y = X then return
NA$ = "0312-0111, 94 Cet"
Afs# =73.08#
pc# =22.416#
Lon# =181.51004#
Lat# =-47.34117#
Y = Y + 1: if Y = X then return
NA$ = "1008+1158, Regulus"
Afs# =77.42#
pc# =23.747#
Lon# =226.43703#
Lat# =48.93334#
Y = Y + 1: if Y = X then return
REM ******************************************************** 80 lysår
NA$ = "2319-1327, 94 Aqr"
Afs# =81.01#
pc# =24.851#
Lon# =60.71893#
Lat# =-64.47206#
Y = Y + 1: if Y = X then return
REM ******************************************************** 90 lysår
REM ******************************************************** 100 lysår
X = 10000: return
rem
rem Med venlig hilsen,
rem Mogens Kall, The servant of Michael
rem --
rem SETI: Win (vind) 5000 Danish Kr. (around 800 US $), jump ...
rem 4193 news:3gpee.1412$Fe7....@news000.worldonline.dk
rem Info: 5057 news:VoEHf.7481$Cl2.1...@news000.worldonline.dk
rem (use perhaps http://www.google.dk/grphp ). File-number: 5198
Jesus-loves-you
5198 news:GB4Qf.8467$Cl2.1...@news000.worldonline.dk
> rem The Cassiopeia A fragment
[ ... ]
> rem 2.
> rem Rename this file to 001.bak
Rettelse:
Rename this file to 001.bas
Med venlig hilsen,
Mogens Kall, The servant of Michael
--
SETI: Win (vind) 5000 Danish Kr. (around 800 US $), jump ...
4193 news:3gpee.1412$Fe7....@news000.worldonline.dk
Info: 5057 news:VoEHf.7481$Cl2.1...@news000.worldonline.dk
(use perhaps http://www.google.dk/grphp ). File-number: 5215