Play and Learn 2

home *** CD-ROM | disk | FTP | other *** search

/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARFIND / STARFIND.BAS (.txt) < prev next >

Wrap

GW-BASIC | 1994-02-04 | 25.8 KB | 722 lines

1 OPTION BASE 1 90 WIDTH "scrn:",80 95 SCREEN 0,1,0,0 100 REM Starfinder ON DISPLAY 105 REM By: Melvin O. Duke. Last Updated 04 January 1985. 110 REM Dimension statements go here 120 DIM SN$(301),CN$(301),MA(301),OP(300,4),RP(1,4),TF(4,4),T1(4,4),T2(4,4) 170 TITLE$ = "Starfinder" 180 TITLE.POS = 40 - INT(LEN(TITLE$)/2) 181 KEY OFF 182 CLS 190 REM draw the title display 200 REM draw the outer double box 210 R1 = 1 : C1 = 1 : R2 = 24 : C2 = 79 : GOSUB 400 220 REM draw the title single box 230 R1=3 : C1=TITLE.POS-2 : R2=6 : C2=TITLE.POS+LEN(TITLE$)+1 : GOSUB 600 240 REM print the title 250 LOCATE 4, TITLE.POS : PRINT TITLE$ 255 LOCATE 5,35 : PRINT "ON DISPLAY"; 260 REM Draw the Contribution box 270 R1 = 8 : C1 = 19 : R2 = 17 : C2 = 62 : GOSUB 400 280 REM Request the Contribution 290 LOCATE 9,23 : PRINT "If you are using these programs, and" 300 LOCATE 10,21 : PRINT "finding them of value, your contribution" 305 LOCATE 11,23 : PRINT "($35 suggested) will be anticipated." 310 REM Draw the Mailing Label 320 R1 = 12 : C1 = 28 : R2 = 16 : C2 = 52 : GOSUB 600 325 LOCATE 13,33 : PRINT "Melvin O. Duke" 330 LOCATE 14,33 : PRINT "P.O. Box 20836" 335 LOCATE 15,30 : PRINT "San Jose, CA 95160" 340 REM draw the single lower box 350 R1 = 19 : C1 = 26 : R2 = 22 : C2 = 54 : GOSUB 600 360 REM print the copyright information 370 LOCATE 20,29 : PRINT "Copyright (c) 1985, by:"; 380 LOCATE 21,33 : PRINT "Melvin O. Duke"; 390 GOTO 800 400 REM subroutine to print a double box 405 COLOR 5 410 FOR I = R1 + 1 TO R2 - 1 420 LOCATE I, C1 : PRINT CHR$(186); 430 LOCATE I, C2 : PRINT CHR$(186); 440 NEXT I 450 FOR J = C1 + 1 TO C2 - 1 460 LOCATE R1, J : PRINT CHR$(205); 470 LOCATE R2, J : PRINT CHR$(205); 480 NEXT J 490 LOCATE R1, C1 : PRINT CHR$(201); 500 LOCATE R1, C2 : PRINT CHR$(187); 510 LOCATE R2, C1 : PRINT CHR$(200); 520 LOCATE R2, C2 : PRINT CHR$(188); 525 COLOR 7 530 RETURN 600 REM subroutine to print a single box 605 COLOR 5 610 FOR I = R1 + 1 TO R2 - 1 620 LOCATE I, C1 : PRINT CHR$(179); 630 LOCATE I, C2 : PRINT CHR$(179); 640 NEXT I 650 FOR J = C1 + 1 TO C2 - 1 660 LOCATE R1, J : PRINT CHR$(196); 670 LOCATE R2, J : PRINT CHR$(196); 680 NEXT J 690 LOCATE R1, C1 : PRINT CHR$(218); 700 LOCATE R1, C2 : PRINT CHR$(191); 710 LOCATE R2, C1 : PRINT CHR$(192); 720 LOCATE R2, C2 : PRINT CHR$(217); 725 COLOR 7 730 RETURN 800 REM ask user to press a key to continue 810 LOCATE 25,1 820 PRINT "Press any key to continue"; 830 K$ = INKEY$ : IF K$ = "" THEN 830 840 CLS 1000 REM General Description 1010 CLS : LOCATE 10,1 1020 PRINT "This program permits you to view the stars in any portion of" 1030 PRINT "the sky, and to change that view according to your commands." 1040 PRINT 1050 PRINT "The program contains all of the stars whose visual magnitude" 1060 PRINT "is 3.50 or brighter. They are plotted according to the" 1070 PRINT "following:" 1080 PRINT 1090 COLOR 7 : PRINT " "+CHR$(15); 1100 COLOR 2 : PRINT " Visual Magnitude of 0.99 or brighter." 1110 COLOR 7 : PRINT " "+CHR$(42); 1120 COLOR 2 : PRINT " Visual Magnitude of 1.99 or brighter." 1130 COLOR 7 : PRINT " ";: COLOR 15 : PRINT CHR$(249); 1140 COLOR 2 : PRINT " Visual Magnitude of 2.99 or brighter." 1150 COLOR 7 : PRINT " ";: COLOR 31 : PRINT CHR$(250); 1160 COLOR 2 : PRINT " All other stars." 1170 COLOR 7 : PRINT 1180 LOCATE 24,1 : PRINT "Press any key to continue"; 1190 A$ = INKEY$ : IF A$ = "" THEN 1190 1200 UM = 10 1210 REM Read the data, convert it, and plot it. 1220 CLS : R = 0 1230 PI = 3.14159 1240 R = R + 1 : I = R 1250 READ MA(I),SN$(I),CN$(I),RA(1),RA(2),DE(1),DE(2) 1260 IF MA(I) > UM THEN 1450 1270 IF SN$(I) = "eof" THEN 1450 1280 REM Compute the x, y, and z coordinates on a unit sphere 1290 OP(I,1) = 1 1300 D = DE(2)/60 1310 IF DE(1) < 0 THEN D1 = DE(1) -D ELSE D1 = DE(1) + D 1320 D2 = (D1 * 2 * PI) / 360 1330 OP(I,4) = SIN(D2) 'z coordinate 1340 XY = COS(D2) 1350 R1 = RA(1) + (RA(2)/60) 1360 R2 = (R1 * 2 * PI) / 24 'convert to radians 1370 OP(I,2) = XY * COS(R2) 'x coordinate 1380 OP(I,3) = XY * SIN(R2) 'y coordinate 1390 XTOPLOT = OP(I,2) 1400 YTOPLOT = OP(I,3) 1410 ZTOPLOT = OP(I,4) 1420 GOSUB 3940 'plotting subprogram 1430 REM Now obtain the next data item 1440 GOTO 1240 1450 REM End of data 1460 R = R - 1 1470 LOCATE 24,1 1480 PRINT "Press any key to continue"; 1490 A$ = INKEY$ : IF A$ = "" THEN 1490 1500 REM Determine the next user action 1510 CLS 1520 PRINT "The following actions are available:" 1530 PRINT 1540 COLOR 2 : PRINT " 1. Find a Star by its Common Name." 1550 PRINT " 2. Find a Star by its Scientific Name." 1560 PRINT " 3. Find a Constellation by its Name." 1570 COLOR 6 : PRINT " 4. Print the Common Names of the Stars." 1580 PRINT " 5. Print the Scientific Names of the Stars." 1590 COLOR 2 : PRINT " 6. Move the stars farther apart." 1600 PRINT " 7. Move the stars closer together." 1610 COLOR 6 : PRINT " 8. Move the stars to the left." 1620 PRINT " 9. Move the stars to the right." 1630 PRINT " 10. Move the stars up." 1640 PRINT " 11. Move the stars down." 1650 PRINT " 12. Rotate the stars clockwise." 1660 PRINT " 13. Rotate the stars counter-clockwise." 1670 COLOR 7 : PRINT " 14. Quit." 1680 PRINT 1690 PRINT "What action would you like to take?" 1700 INPUT "Enter a number between 1 and 14.";AC 1710 AC = INT(AC) 1720 IF AC = 8 THEN 1880 'Shift the stars to the left 1730 IF AC = 9 THEN 2020 'Shift the stars to the right 1740 IF AC = 10 THEN 2160 'Move the stars up 1750 IF AC = 11 THEN 2300 'Move the stars down 1760 IF AC = 12 THEN 2440 'Move the stars clockwise 1770 IF AC = 13 THEN 2580 'Move the stars counter-clockwise 1780 IF AC = 6 THEN 2720 'Expand the stars 1790 IF AC = 7 THEN 2830 'Shrink the stars 1800 IF AC = 4 THEN REPLY = 1 : GOTO 2940 1810 IF AC = 5 THEN REPLY = 2 : GOTO 2940 1820 IF AC = 1 THEN 3650 'To locate a star by its common name 1830 IF AC = 3 THEN 3060 'To locate a constellation 1840 IF AC = 2 THEN 3830 'To locate a star by its scientific name 1850 IF AC = 14 THEN 3020 'To quit 1860 PRINT "The number must be between 1 and 14." 1870 GOTO 1690 1880 REM Routine to shift the stars to the left 1890 CLS 1900 LOCATE 23,1 1910 INPUT "How many degrees to the left"; REPLY 1920 IF REPLY < 0 OR REPLY > 360 THEN PRINT "Number must be 0 to 360":GOTO 1910 1930 REM Convert the input-reply to radian measure 1940 THETA = (REPLY * 2 * PI)/360 1950 GOSUB 4100 ' for the identity array 1960 REM Construct the transform array 1970 TF(2,2) = COS(THETA) 1980 TF(3,3) = TF(2,2) 1990 TF(2,3) = SIN(THETA) 2000 TF(3,2) = -TF(2,3) 2010 GOTO 4170 'for matrix multiply 2020 REM Routine to shift the stars to the right 2030 CLS 2040 LOCATE 23,1 2050 INPUT "How many degrees to the right"; REPLY 2060 IF REPLY < 0 OR REPLY > 360 THEN PRINT "Number must be 0 to 360":GOTO 2050 2070 REM Convert the input-reply to radian measure 2080 THETA = (REPLY * 2 * PI)/360 2090 GOSUB 4100 ' for the identity array 2100 REM Construct the transform array 2110 TF(2,2) = COS(THETA) 2120 TF(3,3) = TF(2,2) 2130 TF(2,3) = -SIN(THETA) 2140 TF(3,2) = -TF(2,3) 2150 GOTO 4170 'for matrix multiply 2160 REM Routine to move the stars up 2170 CLS 2180 LOCATE 23,1 2190 INPUT "How many degrees up"; REPLY 2200 IF REPLY < 0 OR REPLY > 360 THEN PRINT "Number must be 0 to 360":GOTO 2190 2210 REM Convert the input-reply to radian measure 2220 THETA = (REPLY * 2 * PI)/360 2230 GOSUB 4100 ' for the identity array 2240 REM Construct the transform array 2250 TF(3,3) = COS(THETA) 2260 TF(4,4) = TF(3,3) 2270 TF(3,4) = SIN(THETA) 2280 TF(4,3) = -TF(3,4) 2290 GOTO 4170 'for matrix multiply 2300 REM Routine to move the stars down 2310 CLS 2320 LOCATE 23,1 2330 INPUT "How many degrees down"; REPLY 2340 IF REPLY < 0 OR REPLY > 360 THEN PRINT "Number must be 0 to 360":GOTO 2330 2350 REM Convert the input-reply to radian measure 2360 THETA = (REPLY * 2 * PI)/360 2370 GOSUB 4100 ' for the identity array 2380 REM Construct the transform array 2390 TF(3,3) = COS(THETA) 2400 TF(4,4) = TF(3,3) 2410 TF(3,4) = -SIN(THETA) 2420 TF(4,3) = -TF(3,4) 2430 GOTO 4170 'for matrix multiply 2440 REM Routine to move the stars clockwise 2450 CLS 2460 LOCATE 23,1 2470 INPUT "How many degrees clockwise"; REPLY 2480 IF REPLY < 0 OR REPLY > 360 THEN PRINT "Number must be 0 to 360":GOTO 2470 2490 REM Convert the input-reply to radian measure 2500 THETA = (REPLY * 2 * PI)/360 2510 GOSUB 4100 ' for the identity array 2520 REM Construct the transform array 2530 TF(2,2) = COS(THETA) 2540 TF(4,4) = TF(2,2) 2550 TF(2,4) = -SIN(THETA) 2560 TF(4,2) = -TF(2,4) 2570 GOTO 4170 'for matrix multiply 2580 REM Routine to move the stars counter-clockwise 2590 CLS 2600 LOCATE 23,1 2610 INPUT "How many degrees counter-clockwise"; REPLY 2620 IF REPLY < 0 OR REPLY > 360 THEN PRINT "Number must be 0 to 360":GOTO 2610 2630 REM Convert the input-reply to radian measure 2640 THETA = (REPLY * 2 * PI)/360 2650 GOSUB 4100 ' for the identity array 2660 REM Construct the transform array 2670 TF(2,2) = COS(THETA) 2680 TF(4,4) = TF(2,2) 2690 TF(2,4) = SIN(THETA) 2700 TF(4,2) = -TF(2,4) 2710 GOTO 4170 'for matrix multiply 2720 REM Routine to move the stars farther apart. 2730 CLS 2740 LOCATE 23,1 2750 INPUT "Enter a factor between 1 and 10"; REPLY 2760 IF REPLY < 1 OR REPLY > 10 THEN PRINT "Number must be 1 to 10":GOTO 2750 2770 GOSUB 4100 ' for the identity array 2780 REM Construct the transform array 2790 TF(2,2) = REPLY 2800 TF(3,3) = REPLY 2810 TF(4,4) = REPLY 2820 GOTO 4170 'for matrix multiply 2830 REM Routine to move the stars closer together. 2840 CLS 2850 LOCATE 23,1 2860 INPUT "Enter a factor between .1 and 1"; REPLY 2870 IF REPLY <0.1 OR REPLY > 1 THEN PRINT "Number must be .1 to 1":GOTO 2860 2880 GOSUB 4100 ' for the identity array 2890 REM Construct the transform array 2900 TF(2,2) = REPLY 2910 TF(3,3) = REPLY 2920 TF(4,4) = REPLY 2930 GOTO 4170 'for matrix multiply 2940 REM Routine to name the stars. 2950 CLS 2960 GOSUB 4100 ' for the identity array 2970 REM Construct the transform array 2980 TF(2,2) = 1 2990 TF(3,3) = 1 3000 TF(4,4) = 1 3010 GOTO 4170 'for matrix multiply 3020 REM Routine to quit 3030 CLS : LOCATE 18,1 3040 PRINT "Program finished." 3050 GOTO 7870 3060 REM Routine to locate a Constellation 3070 CLS : RC = 1 3080 LOCATE 23,1 : PRINT SPACE$(79); 3090 LOCATE 23,1 : INPUT "Enter the name of a Constellation"; FIND.CONS$ 3100 GOSUB 3760 'To make sure that the first letter is capitalized 3110 REM search for the constellation 3120 FOR K = 1 TO R 3130 IF LEFT$(SN$(K),5) = "Alpha" AND MID$(SN$(K),7,LEN(FIND.CONS$)) = FIND.CONS$ THEN GOSUB 3170 3140 NEXT K 3150 IF RC = 1 THEN LOCATE 22,1 : PRINT "Unable to locate the constellation as named." : GOTO 3080 3160 GOTO 4170 'For matrix multiply 3170 REM found the star or constellation 3180 REM construct the first transform 3190 GOSUB 4100 'For the identity matrix 3200 IF OP(K,2) > 0 AND OP(K,3) = 0 THEN ALPHA = PI/2 : GOTO 3260 3210 IF OP(K,2) < 0 AND OP(K,3) = 0 THEN ALPHA = (3*PI)/2 : GOTO 3260 3220 ALPHA = ATN(ABS(OP(K,2)/OP(K,3))) 3230 IF OP(K,2) < 0 AND OP(K,3) < 0 THEN ALPHA = ALPHA + PI 3240 IF OP(K,2) < 0 AND OP(K,3) > 0 THEN ALPHA = 2 * PI - ALPHA 3250 IF OP(K,2) > 0 AND OP(K,3) < 0 THEN ALPHA = PI - ALPHA 3260 TF(2,2) = COS(ALPHA) 3270 TF(3,3) = TF(2,2) 3280 TF(2,3) = SIN(ALPHA) 3290 TF(3,2) = -TF(2,3) 3300 REM move to first transform 3310 FOR I = 1 TO 4 3320 FOR J = 1 TO 4 3330 T1(I,J) = TF(I,J) 3340 NEXT J 3350 NEXT I 3360 REM now construct the second transform 3370 GOSUB 4100 'for the identity matrix 3380 IF OP(K,4) > 0 AND OP(K,3) = 0 THEN BETA = PI/2 : GOTO 3420 3390 IF OP(K,4) < 0 AND OP(K,3) = 0 THEN BETA = (3*PI)/2 : GOTO 3420 3400 BETA = ATN(ABS(OP(K,4)/(SQR((OP(K,2)^2)+OP(K,3)^2)))) 3410 IF OP(K,4) < 0 THEN BETA = 2 * PI - BETA 3420 TF(3,3) = COS(BETA) 3430 TF(4,4) = TF(3,3) 3440 TF(3,4) = -SIN(BETA) 3450 TF(4,3) = -TF(3,4) 3460 REM move to second transform 3470 FOR I = 1 TO 4 3480 FOR J = 1 TO 4 3490 T2(I,J) = TF(I,J) 3500 NEXT J 3510 NEXT I 3520 REM now construct the real transform 3530 FOR I = 1 TO 4 3540 FOR J = 1 TO 4 3550 T = 0 3560 FOR L = 1 TO 4 3570 T = T + T1(I,L) * T2(L,J) 3580 NEXT L 3590 TF(I,J) = T 3600 NEXT J 3610 NEXT I 3620 REM now ready to plot the located star or constellation. 3630 RC = 0 : K = R 3640 RETURN 3650 REM Routine to locate a Star by its common name 3660 CLS : RC = 1 3670 LOCATE 23,1 : PRINT SPACE$(79); 3680 LOCATE 23,1 : INPUT "Enter the name of a Star"; FIND.STAR$ 3690 GOSUB 3760 'To make sure that the first letter is capitalized 3700 REM search for the star 3710 FOR K = 1 TO R 3720 IF LEFT$(CN$(K),LEN(FIND.STAR$)) = FIND.STAR$ THEN GOSUB 3170 3730 NEXT K 3740 IF RC = 1 THEN LOCATE 22,1 : PRINT "Unable to locate the star as named." : GOTO 3670 3750 GOTO 4170 'For matrix multiply 3760 REM Routine to capitalize the first letter of the star or constellation 3770 IF AC = 3 THEN 3810 'For a Constellation 3780 IF MID$(FIND.STAR$,2,1) = " " THEN 3800 3790 IF ASC(MID$(FIND.STAR$,1,1)) > 96 AND ASC(MID$(FIND.STAR$,1,1)) < 123 THEN MID$(FIND.STAR$,1,1) = RIGHT$(CHR$(ASC(MID$(FIND.STAR$,1,1))-32),1) 3800 GOTO 3820 3810 IF ASC(MID$(FIND.CONS$,1,1)) > 96 AND ASC(MID$(FIND.CONS$,1,1)) < 123 THEN MID$(FIND.CONS$,1,1) = RIGHT$(CHR$(ASC(MID$(FIND.CONS$,1,1))-32),1) 3820 RETURN 3830 REM Routine to locate a Star by its Scientific name 3840 CLS : RC = 1 3850 LOCATE 23,1 : PRINT SPACE$(79); 3860 LOCATE 23,1 : INPUT "Enter the name of a Star"; FIND.STAR$ 3870 GOSUB 3760 'To make sure that the first letter is capitalized 3880 REM search for the star 3890 FOR K = 1 TO R 3900 IF LEFT$(SN$(K),LEN(FIND.STAR$)) = FIND.STAR$ THEN GOSUB 3170 3910 NEXT K 3920 IF RC = 1 THEN LOCATE 22,1 : PRINT "Unable to locate the star as named." : GOTO 3850 3930 GOTO 4170 'For matrix multiply 3940 REM Plotting subprogram 3950 IF XTOPLOT > 0.32 OR XTOPLOT < -0.32 THEN 4090 3960 IF YTOPLOT < 0 THEN 4090 3970 IF ZTOPLOT > 0.2 OR ZTOPLOT < -0.2 THEN 4090 3980 REM Calculate the position 3990 XP = 40 + INT(39*(XTOPLOT/0.32)) 4000 ZP = 24 - (12 + INT(11 * (ZTOPLOT/0.2))) 4010 LOCATE ZP,XP 4020 REM Determine the character to plot 4030 STAR$ = CHR$(15) 4040 IF MA(I) > 0.99 THEN STAR$ = CHR$(42) 4050 IF MA(I) > 1.99 THEN STAR$ = CHR$(249) : COLOR 15 'High Intensity 4060 IF MA(I) > 2.99 THEN STAR$ = CHR$(250) : COLOR 31 'Also blinking 4070 IF SCREEN(ZP,XP) <> 32 THEN COLOR 7 : GOTO 4090 4080 PRINT STAR$; : COLOR 7 'Return to normal 4090 RETURN 4100 REM Routine to produce an identity matrix 4110 FOR I = 1 TO 4 4120 FOR J = 1 TO 4 4130 IF I = J THEN TF(I,J) = 1 ELSE TF(I,J) = 0 4140 NEXT J 4150 NEXT I 4160 RETURN 4170 REM Routine to transform the array 4180 CLS 4190 FOR I = 1 TO R 4200 FOR J = 2 TO 4 4210 T = 0 4220 FOR K = 1 TO 4 4230 T = T + OP(I,K) * TF(K,J) 4240 NEXT K 4250 RP(1,J) = T 4260 NEXT J 4270 REM Now plot the new point 4280 XTOPLOT = RP(1,2) 4290 YTOPLOT = RP(1,3) 4300 ZTOPLOT = RP(1,4) 4310 GOSUB 3940 'plotting subprogram 4320 REM See if the name is wanted 4330 IF AC < 4 OR AC > 5 THEN 4520 4340 IF XTOPLOT > 0.32 OR XTOPLOT < -0.32 THEN 4520 4350 IF YTOPLOT < 0 THEN 4520 4360 IF ZTOPLOT > 0.2 OR ZTOPLOT < -0.2 THEN 4520 4370 IF MA(I) > UM THEN 4520 4380 IF REPLY = 1 THEN PART.NAME$ = CN$(I) 4390 IF REPLY = 2 THEN PART.NAME$ = SN$(I) 4400 XP = XP + 1 'star just plotted 4410 IF XP > 79 THEN 4520 4420 REM print a character at a time 4430 FOR PPP = 1 TO LEN(PART.NAME$) 4440 REM test for something there 4450 IF SCREEN(ZP,XP) <> 32 THEN 4490 'skip if present 4460 COLOR 2 4470 LOCATE ZP,XP : PRINT MID$(PART.NAME$,PPP,1); 4480 COLOR 7 4490 XP = XP + 1 4500 IF XP > 79 THEN PPP = LEN(PART.NAME$) 4510 NEXT PPP 4520 REM Copy the transformed point back to the original point 4530 FOR J = 2 TO 4 4540 OP(I,J) = RP(1,J) 4550 NEXT J 4560 NEXT I 4570 REM Back to next user action 4580 GOTO 1470 4590 ' 5000 REM Data Area 5010 DATA -1.46,Alpha Canis Major,Sirius,6,45.1,-16,43 5020 DATA -0.72,Alpha Carina,Canopus,6,24.0,-52,42 5030 DATA -0.04,Alpha Bootes,Arcturus,14,15.6,19,11 5040 DATA 0.00,Alpha Centaurus,Rigil Kentaurus,14,39.6,-60,50 5050 DATA 0.03,Alpha Lyra,Vega,18,37.0,38,47 5060 DATA 0.08,Alpha Auriga,Capella,5,16.7,46,00 5070 DATA 0.12,Beta Orion,Rigel,5,14.5,-8,12 5080 DATA 0.38,Alpha Canis Minor,Procyon,7,39.3,5,13 5090 DATA 0.50,Alpha Orion,Betelgeuse,5,55.2,7,24 5100 DATA 0.46,Alpha Eridanus,Achernar,1,37.7,-57,14 5110 DATA 0.61,Beta Centaurus,Hadar,14,3.7,-60,22 5120 DATA 0.77,Alpha Aquila,Altair,19,50.7,8,52 5130 DATA 0.86,Alpha Taurus,Aldebaran,4,36.0,16,31 5140 DATA 0.98,Alpha Virgo,Spica,13,25.2,-11,10 5150 DATA 0.96,Alpha Scorpius,Antares,16,29.4,-26,26 5160 DATA 1.16,Alpha Piscis Austrinus,Formalhaut,22,57.6,-29,37 5170 DATA 1.14,Beta Gemini,Pollux,7,45.3,28,02 5180 DATA 1.25,Alpha Cygnus,Deneb,20,41.4,45,17 5190 DATA 1.28,Beta Crux,Mimosa,12,47.7,-59,41 5200 DATA 1.35,Alpha Leo,Regulus,10,8.4,11,58 5210 DATA 1.41,Alpha Crux1,Acrux,12,26.6,-63,06 5220 DATA 1.88,Alpha Crux2,Acrux,12,26.6,-62,06 5230 DATA 1.50,Epsilon Canis Major,Adhara,6,58.6,-28,58 5240 DATA 1.63,Lambda Scorpius,Shaula,17,33.6,-37,6 5250 DATA 1.64,Gamma Orion,Bellatrix,5,25.1,6,21 5260 DATA 1.65,Beta Taurus,Elnath,5,26.3,28,36 5270 DATA 1.68,Beta Carina,Miaplacidus,9,13.2,-69,43 5280 DATA 1.63,Gamma Crux,Gacrux,12,31.2,-57,07 5290 DATA 1.70,Epsilon Orion,Alnilam,5,36.2,-1,12 5300 DATA 1.74,Alpha Grus,"Al Na'ir",22,8.2,-46,58 5310 DATA 1.77,Zeta Orion,Alnitak,5,40.8,-1,57 5320 DATA 1.77,Epsilon Ursa Major,Alioth,12,54.0,55,58 5330 DATA 1.80,Alpha Perseus,Mirfak,3,24.3,49,52 5340 DATA 1.85,Epsilon Sagittarius,Kaus Australis,18,24.2,-34,25 5350 DATA 1.79,Alpha Ursa Major,Dubhe,11,3.7,61,45 5360 DATA 1.78,Gamma Vela,"",8,9.5,-47,20 5370 DATA 1.86,Delta Canis Major,"",7,8.4,-26,24 5380 DATA 1.90,Beta Auriga,Menkalinan,5,59.5,44,57 5390 REM Double Star 5400 DATA 1.87,Theta Scorpius,"",17,37.3,-43,00 5410 DATA 1.86,Eta Ursa Major,Alkaid,13,47.5,49,19 5420 DATA 1.86,Epsilon Carina,Avior,8,22.5,-59,31 5430 DATA 1.93,Gamma Gemini,Alhena,6,37.7,16,24 5440 DATA 1.92,Alpha Triangulum Australe,Atria,16,48.7,-69,02 5450 DATA 1.96,Delta Vela,"",8,44.7,-54,43 5460 DATA 1.94,Alpha Pavo,Peacock,20,25.6,-56,44 5470 DATA 1.98,Beta Casius Major,Mirzam,6,22.7,-17,57 5480 DATA 1.58,Alpha Gemini,Castor,7,34.6,31,53 5490 DATA 1.98,Alpha Hydra,Alphard,9,27.6,-8,40 5500 DATA 2.02,Alpha Ursa Minor,Polaris,2,31.8,89,52 5510 DATA 2.28,Gamma Leo,Algeiba,10,20.0,19,51 5520 DATA 2.00,Alpha Aries,Hamal,2,7.2,23,28 5530 DATA 3.04,Omicron Cetus,Mira,2,19.3,-2,59 5540 DATA 2.02,Beta Cetus,Deneb Kaitos,0,43.6,-17,59 5550 DATA 2.06,Beta Andromeda,Mirach,1,9.8,35,37 5560 DATA 2.06,Theta Centaurus,Menkent,14,6.7,-36,22 5570 DATA 2.12,Beta Perseus,Algol,3,8.2,40,57 5580 DATA 2.06,Alpha Andromeda,Alpheratz,0,8.4,29,05 5590 DATA 2.06,Kappa Orion,Saiph,5,47.8,-9,40 5600 DATA 2.08,Beta Ursa Minor,Kochab,14,50.7,74,09 5610 DATA 2.08,Alpha Ophiuchus,Rasalhague,17,35.0,12,34 5620 DATA 2.02,Sigma Sagittarius,Nunki,18,55.2,-26,18 5630 DATA 2.18,Gamma Andromeda,Almach,2,3.9,42,20 5640 DATA 2.14,Beta Leo,Denebola,11,49.0,14,34 5650 DATA 2.17,Gamma Centaurus,"",12,41.5,-48,58 5660 DATA 2.11,Beta Grus,"",22,42.7,-46,53 5670 DATA 2.23,Delta Orion,Mintaka,5,32.0,0,-17 5680 DATA 2.23,Gamma Draco,Eltanin,17,56.6,51,29 5690 DATA 2.23,Alpha Cassiopeia,Schedar,0,40.5,56,32 5700 DATA 2.20,Gamma Cygnus,Sadr,20,22.2,40,15 5710 DATA 2.25,Zeta Puppis,"",8,3.6,-40,00 5720 DATA 2.23,Alpha Corona Borealis,Alphecca,15,34.7,26,43 5730 DATA 2.21,Lambda Vela,"",9,8.0,-43,26 5740 DATA 2.25,Iota Carina,Aspidiske,9,17.1,-59,17 5750 DATA 2.27,Beta Cassiopeia,Caph,0,9.2,59,09 5760 DATA 2.27,Zeta Ursa Major,Mizar,13,23.9,54,55 5770 DATA 2.29,Epsilon Scorpius,"",16,50.3,-34,18 5780 DATA 2.30,Alpha Lupus,"",14,41.9,-47,23 5790 DATA 2.30,Epsilon Centaurus,"",13,39.9,-53,28 5800 DATA 2.32,Delta Scorpius,"",16,00.3,-22,37 5810 DATA 2.37,Beta Ursa Major,Merak,11,1.8,56,23 5820 DATA 2.37,Epsilon Bootes,Izar,14,45.0,27,04 5830 DATA 2.38,Epsilon Pegasus,Enif,21,44.2,9,53 5840 DATA 2.41,Kappa Scorpius,"",17,42.5,-39,02 5850 DATA 2.31,Eta Centaurus,"",14,35.5,-42,09 5860 DATA 2.39,Alpha Phoenix,Ankaa,0,26.3,-42,18 5870 DATA 2.43,Eta Ophiuchus,Sabik,17,10.4,-15,44 5880 DATA 2.44,Gamma Ursa Major,Phecda,11,53.8,53,42 5890 DATA 2.44,Alpha Cepheus,Alderamin,21,18.6,62,35 5900 DATA 2.44,Eta Casius Major,Aludra,7,24.1,-29,18 5910 DATA 2.46,Epsilon Cygnus,"",20,46.2,33,58 5920 DATA 2.50,Kappa Vela,"",9,22.1,-55,01 5930 DATA 2.47,Gamma Cassiopeia,"",0,56.7,60,43 5940 DATA 2.42,Beta Pegasus,Scheat,23,3.8,28,05 5950 DATA 2.49,Alpha Pegasus,Markab,23,2.8,15,12 5960 DATA 2.53,Alpha Cetus,Menkar,3,2.3,4,05 5970 DATA 2.55,Zeta Centaurus,"",13,55.5,-47,17 5980 DATA 2.56,Delta Leo,Zosma,11,14.1,20,31 5990 DATA 2.56,Zeta Ophiuchus,"",16,37.2,-10,34 6000 DATA 2.58,Alpha Lepus,Arneb,5,32.7,-17,49 6010 DATA 2.60,Delta Centaurus,"",12,8.4,-50,43 6020 DATA 2.59,Gamma Corvus,Gienah,12,15.8,-17,33 6030 DATA 2.59,Zeta Sagittarius,Ascella,19,2.6,-29,53 6040 DATA 2.61,Beta Libra,Zubeneschamali,15,17.0,-9,23 6050 DATA 2.64,Alpha Columba,Phact,5,39.6,-34,4 6060 DATA 2.64,Beta Aries,Sheratan,1,54.6,20,48 6070 DATA 2.62,Theta Auriga,"",5,59.7,37,13 6080 DATA 2.65,Alpha Serpens,Unukalhai,15,44.3,6,26 6090 DATA 2.64,Beta Scorpius,Graffias,16,5.4,-19,48 6100 DATA 2.68,Beta Corvus,"",12,34.4,-23,24 6110 DATA 2.68,Delta Cassiopeia,Ruchbah,1,25.8,60,14 6120 DATA 2.69,Mu Vela,"",10,46.8,-49,25 6130 DATA 2.69,Iota Auriga,"",4,57.0,33,10 6140 DATA 2.68,Eta Bootes,Muphrid,13,54.7,18,24 6150 DATA 2.68,Beta Lupus,"",14,58.5,-43,8 6160 DATA 2.69,Alpha Musca,"",12,37.2,-69,8 6170 DATA 2.70,Pi Puppis,"",7,17.1,-37,6 6180 DATA 2.74,Eta Draco,"",16,24.0,61,31 6190 DATA 2.69,Upsilon Scorpius,Lesath,17,30.8,-37,18 6200 DATA 2.70,Delta Sagittarius,Kaus Media,18,21.0,-29,50 6210 DATA 2.74,Delta Ophiuchus,Yed Prior,16,14.3,-3,42 6220 DATA 2.72,Gamma Aquila,Tarazed,19,46.3,10,37 6230 DATA 2.76,Theta Carina,"",10,43.0,-64,24 6240 DATA 2.76,Iota Orion,"",5,35.4,-5,55 6250 DATA 2.75,Gamma Virgo,Porrima,12,41.7,-01,27 6260 DATA 2.75,Iota Centaurus,"",13,20.6,-36,43 6270 DATA 2.75,Alpha Libra,Zubenelgenubi,14,50.9,-16,03 6280 DATA 2.79,Beta Draco,Rastaban,17,30.4,52,18 6290 DATA 2.77,Beta Ophiuchus,Cebalrai,17,43.5,4,34 6300 DATA 2.80,Beta Hydrus,"",0,25.8,-77,15 6310 DATA 2.77,Beta Hercules,Kornephoros,16,30.2,21,29 6320 DATA 2.79,Beta Eridanus,Cursa,5,7.7,-5,05 6330 DATA 2.78,Gamma Lupus,"",15,35.1,-41,10 6340 DATA 2.81,Lambda Sagittarius,Kaus Borealis,18,28.0,-25,25 6350 DATA 2.81,Rho Puppis,"",8,7.5,-24,18 6360 DATA 2.84,Beta Lepus,Nihal,5,28.2,-20,46 6370 DATA 2.80,Delta Crux,"",12,15.1,-58,44 6380 DATA 2.81,Zeta Hercules,"",16,41.3,31,36 6390 DATA 2.85,Zeta Perseus,Atik,3,54.1,31,53 6400 DATA 2.83,Epsilon Virgo,Vindimeatrix,13,2.2,10,58 6410 DATA 2.83,Gamma Pegasus,Algenib,0,13.2,15,11 6420 DATA 2.86,Alpha Hydrus,"",1,58.8,-61,34 6430 DATA 2.85,Beta Triangulum Australe,"",15,55.1,-63,26 6440 DATA 2.82,Tau Scorpius,"",16,35.9,-28,13 6450 DATA 2.87,Eta Taurus,Alcyone,3,47.5,24,6 6460 DATA 2.89,Sigma Scorpius,"",16,21.2,-25,36 6470 DATA 2.91,Beta Aquarius,Saladsuud,21,31.6,-05,34 6480 DATA 2.87,Delta Cygnus,"",19,45.0,45,08 6490 DATA 2.86,Alpha Tucana,"",22,18.5,-60,16 6500 DATA 2.89,Epsilon Perseus,"",3,57.9,40,01 6510 DATA 2.89,Gamma Triangulum Australe,"",15,18.9,-68,41 6520 DATA 2.89,Pi Sagittarius,"",19,9.8,-21,2 6530 DATA 2.90,Alpha Canes Venatici,Cor Caroli,12,56.2,38,19 6540 DATA 2.85,Beta Ara,"",17,25.3,-55,32 6550 DATA 2.93,Gamma Perseus,"",3,4.8,53,30 6560 DATA 2.90,Beta Canis Minor,Gomeisa,7,27.2,8,17 6570 DATA 2.88,Mu Gemini,"",6,23.0,22,31 6580 DATA 2.93,Tau Puppis,"",6,49.9,-50,37 6590 DATA 2.89,Pi Scorpius,"",15,58.9,-26,07 6600 DATA 3.24,Theta Eridanus,Acamar,2,58.3,-40,18 6610 DATA 2.87,Delta Capricornus,Deneb Algedi,21,47.0,-16,08 6620 DATA 2.96,Alpha Aquarius,Sadalmelik,22,5.8,00,-19 6630 REM Double Star 6640 DATA 2.97,Upsilon Carina,"",9,47.1,-64,04 6650 DATA 2.95,Alpha Ara,"",17,31.8,-49,53 6660 DATA 2.94,Eta Pegasus,Matar,22,43.0,30,13 6670 DATA 2.95,Gamma Eridanus,Zaurak,3,58.0,-13,31 6680 DATA 2.95,Delta Corvus,Algorab,12,29.9,-16,31 6690 DATA 2.99,Gamma Sagittarius,Alnasl,18,5.8,-30,25 6700 DATA 3.00,Gamma Hydra,"",13,18.9,-23,10 6710 DATA 2.98,Epsilon Leo,"",9,45.9,23,46 6720 DATA 3.04,Mu Scorpius,"",16,51.9,-38,3 6730 DATA 2.99,Zeta Aquila,"",19,5.4,13,52 6740 DATA 3.00,Beta Triangulum,"",2,9.5,34,59 6750 DATA 2.99,Epsilon Auriga,"",5,2.0,43,49 6760 DATA 2.98,Epsilon Gemini,Mebsuta,6,43.9,25,8 6770 DATA 3.01,Psi Ursa Major,"",11,9.7,44,30 6780 DATA 3.00,Epsilon Corvus,"",12,10.1,-22,37 6790 DATA 3.01,Gamma Grus,"",21,53.9,-37,22 6800 DATA 3.03,Omicron Canis Major,"",7,3.0,-23,50 6810 DATA 3.03,Iota Scorpius,"",17,47.6,-40,8 6820 DATA 3.01,Delta Perseus,"",3,42.9,47,47 6830 DATA 3.02,Zeta Canis Major,"",6,20.3,-30,4 6840 DATA 3.05,Gamma Ursa Minor,Pherkad,15,20.7,71,50 6850 DATA 3.05,Mu Ursa Major,Tania Australis,10,22.3,41,30 6860 DATA 3.03,Gamma Bootes,Seginus,14,32.1,38,19 6870 DATA 3.05,Beta Musca,"",12,46.3,-68,6 6880 DATA 3.07,Delta Draco,Altais,19,12.6,67,40 6890 DATA 3.08,Beta Capricornus,Dabih,20,21.0,-14,47 6900 DATA 3.00,Zeta Taurus,"",5,37.6,21,9 6910 DATA 3.08,Beta Cygnus,Albireo,19,30.7,27,58 6920 DATA 3.19,Alpha Hercules,Rasalgethi,17,14.6,14,23 6930 DATA 3.11,Alpha Indus,"",20,37.6,-47,17 6940 DATA 3.11,Zeta Hydra,"",8,55.4,5,57 6950 DATA 3.12,Beta Columba,"",5,50.9,-35,46 6960 DATA 3.17,Theta Ursa Major,"",9,32.9,51,41 6970 DATA 3.11,Nu Hydra,"",10,49.6,-16,12 6980 DATA 3.04,Mu Centaurus,"",13,49.7,-42,28 6990 DATA 3.13,Zeta Ara,"",16,58.6,-55,59 7000 DATA 3.11,Eta Sagittarius,"",18,17.6,-36,46 7010 DATA 3.14,Iota Ursa Major,"",8,59.2,48,2 7020 DATA 3.16,Pi Hercules,"",17,15.0,36,49 7030 DATA 3.14,Delta Hercules,"",17,15.0,24,50 7040 DATA 3.13,Lambda Centaurus,"",11,35.8,-63,1 7050 DATA 3.13,Kappa Centaurus,"",14,59.2,-42,6 7060 DATA 3.23,Beta Cepheus,"",21,28.7,70,34 7070 DATA 3.19,Pi Orion,"",4,49.8,6,58 7080 DATA 3.17,Eta Auriga,"",5,6.5,41,14 7090 DATA 3.13,Alpha Lynx,"",9,21.1,34,24 7100 DATA 3.19,Alpha Circinus,"",14,42.5,-64,58 7110 DATA 3.20,Kappa Ophiuchus,"",16,57.7,9,23 7120 DATA 3.17,Nu Puppis,"",6,37.8,-43,12 7130 DATA 3.60,N Vela,"",9,30.6,-40,28 7140 DATA 3.20,Zeta Cygnus,"",21,12.9,30,14 7150 DATA 3.17,Zeta Draco,"",17,8.8,65,43 7160 DATA 3.17,Phi Sagittarius,"",18,45.7,-26,59 7170 DATA 3.21,Gamma Cepheus,"",23,39.3,77,38 7180 DATA 3.19,Epsilon Lepus,"",5,5.5,-22,22 7190 DATA 3.22,Delta Lupus,"",15,21.4,-40,39 7200 DATA 3.21,G Scorpius,"",17,49.9,-37,3 7210 DATA 3.24,Epsilon Ophiuchus,"",16,18.3,-4,42 7220 DATA 3.26,Eta Serpens,"",18,21.3,-2,54 7230 DATA 3.25,Sigma Puppis,"",7,29.2,-43,18 7240 DATA 3.23,Theta Aquila,"",20,11.3,0,-49 7250 DATA 3.27,Delta Andromeda,"",0,39.3,30,52 7260 DATA 3.27,Pi Hydra,"",14,6.4,-26,41 7270 DATA 3.24,Gamma Lyra,Sulifat,18,58.9,32,41 7280 DATA 3.27,Alpha Pictor,"",6,48.2,-61,56 7290 DATA 3.27,Alpha Dorado,"",4,34.0,-55,3 7300 DATA 3.29,Iota Draco,Edasich,15,24.9,58,58 7310 DATA 3.27,Delta Aquarius,Skat,22,54.6,-15,49 7320 DATA 3.31,Mu Lepus,"",5,12.9,-16,12 7330 DATA 3.27,Theta Ophiuchus,"",17,22.0,-25,00 7340 DATA 3.31,Beta Phoenix,"",1,6.1,-46,43 7350 DATA 3.24,Gamma Hydrus,"",3,47.2,-74,14 7360 DATA 3.32,p Carina,"",10,32.0,-61,41 7370 DATA 3.31,Delta Ursa Major,Megrez,12,15.4,57,1 7380 DATA 3.32,Tau Sagittarius,"",19,6.9,-27,40 7390 DATA 3.29,Sigma Libra,"",15,4.1,-25,17 7400 DATA 3.36,Eta Orion,"",5,24.5,-2,24 7410 DATA 3.34,Gamma Ara,"",17,25.4,-56,23 7420 DATA 3.34,Nu Ophiuchus,"",17,59.0,-9,46 7430 DATA 3.35,Alpha Reticulum,"",4,14.4,-62,28 7440 DATA 3.28,Eta Gemini,Propus,6,14.9,22,30 7450 DATA 3.32,Omega Carina,"",10,12.2,-70,02 7460 DATA 3.33,Eta Scorpius,"",17,12.2,-43,14 7470 DATA 3.34,Xi Puppis,"",7,49.3,-24,52 7480 DATA 3.34,Theta Leo,Chertan,11,14.2,15,26 7490 DATA 3.35,Zeta Cepheus,"",22,10.9,58,12 7500 DATA 3.38,Epsilon Cassiopeia,"",1,54.4,63,40 7510 DATA 3.37,Zeta Virgo,"",13,34.7,0,-35 7520 DATA 3.36,Omicron Ursa Major,Muscida,8,30.3,60,43 7530 DATA 3.36,Xi Gemini,"",6,45.3,12,54 7540 DATA 3.45,Beta Lyra,Sheliak,18,50.1,33,22 7550 DATA 3.36,Delta Aquila,"",19,25.5,3,7 7560 DATA 3.38,Epsilon Hydra,"",8,46.8,6,25 7570 DATA 3.41,Gamma Phoenix,"",1,28.4,-43,19 7580 DATA 3.39,Lambda Orion,"",5,35.1,9,56 7590 DATA 3.41,Eta Lupus,"",16,0.1,-38,23 7600 DATA 3.40,Zeta Pegasus,Homam,22,41.5,10,50 7610 DATA 3.40,q Carina,q Car,10,17.1,-61,20 7620 DATA 3.43,Eta Cepheus,"",20,45.3,61,50 7630 DATA 3.41,Alpha Triangulum,"",1,53.1,29,35 7640 DATA 3.42,Theta Taurus,"",4,28.7,15,52 7650 DATA 3.41,Nu Centaurus,"",13,49.5,-41,41 7660 DATA 3.41,Zeta Lupus,"",15,12.3,-52,6 7670 DATA 3.42,Mu Hercules,"",17,46.5,27,43 7680 DATA 3.44,a Carina,"",9,11.0,-58,58 7690 DATA 3.45,Eta Cetus,"",1,8.6,-10,11 7700 DATA 3.44,Lambda Aquila,"",19,6.2,-4,53 7710 DATA 3.45,Lambda Ursa Major,Tania Borealis,10,17.1,42,55 7720 DATA 3.42,Beta Pavo,"",20,45.0,-66,12 7730 DATA 3.53,Eta Hercules,"",16,42.9,38,55 7740 DATA 3.44,Zeta Leo,Adhafera,10,16.7,23,25 7750 DATA 3.44,Eta Cassiopeia,"",0,49.1,57,49 7760 DATA 3.47,Delta Bootes,"",15,15.5,33,19 7770 DATA 3.47,Gamma Cetus,"",2,43.3,3,14 7780 DATA 3.47,Chi Carina,"",7,56.8,-52,59 7790 DATA 3.50,Beta Bootes,Nekkar,15,1.9,40,23 7800 DATA 3.50,Tau Cetus,"",1,44.1,-15,56 7810 DATA 3.39,Rho Perseus,"",3,5.2,38,50 7820 DATA 3.51,Xi Sagittarius,"",18,57.7,-21,6 7830 DATA 3.54,Epsilon Taurus,"",4,28.6,19,11 7840 DATA 3.75,Delta Cepheus,"",22,29.2,58,25 7850 DATA 4.10,l Carina,"",9,45.2,-62,30 7860 DATA 999,eof,eof,0,0,0,0 7870 END