home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1994-02-04 | 40.0 KB | 1,178 lines |
- 100 REM Program to produce the User's Manual for Starfinder ON DISPLAY
- 110 REM All text is in the form of DATA statements.
- 120 REM Set Printer Characteristics
- 130 WIDE.ON$ = CHR$(14) 'Set Expanded Print ON
- 140 WIDE.OFF$ = CHR$(18) 'Set Expanded Print OFF
- 150 BOLD.ON$ = CHR$(27)+"E" 'Set Emphasized Print ON
- 160 BOLD.OFF$ = CHR$(27)+"F" 'Set Emphasized Print OFF
- 170 SQUEEZE.ON$ = CHR$(15) 'Set Compressed Print ON
- 180 SQUEEZE.OFF$ = CHR$(18) 'Set Compressed Print OFF
- 190 PAGE.EJECT$ = CHR$(12) 'Skip to Top of Next Page
- 200 REM Set the Trimming Form
- 210 DASHES$ = "+"+STRING$(54,45)+"+"
- 220 TRIM.LINE$ = "(Trim-line)"
- 230 REM Data for the Title Page and Parameters
- 240 DATA Starfinder, User's Manual, -3, 1
- 250 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
- 260 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 270 GOSUB 850 'For trim line and heading space
- 280 FOR I = 1 TO 6 : LPRINT : NEXT I
- 290 LPRINT WIDE.ON$; 'Set Expanded Print
- 300 LPRINT TAB(TAB.POS-3);TITLE$
- 310 LPRINT WIDE.OFF$; 'Return to normal
- 320 FOR I = 1 TO 3 : LPRINT : NEXT I
- 330 LPRINT BOLD.ON$; 'Set Emphasized mode
- 340 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
- 350 LPRINT BOLD.OFF$; 'Return to normal
- 360 FOR I = 1 TO 15 : LPRINT : NEXT I
- 370 LPRINT TAB(TAB.POS+9); DOC.NAME$
- 380 LINE.NO = LINE.NO + 27
- 390 '
- 400 READ REPLY$
- 410 REM Change any Tilde's to Quotes
- 420 FOR TILDE = 1 TO LEN(REPLY$)
- 430 IF MID$(REPLY$,TILDE,1) = "~" THEN MID$(REPLY$,TILDE,1) = CHR$(34)
- 440 NEXT TILDE
- 450 IF LEFT$(REPLY$,1) = "." THEN GOSUB 1200: GOTO 400
- 460 IF LINE.NO > 44 THEN GOSUB 960
- 470 REM Print the line if not a command
- 480 LPRINT TAB(TAB.POS);REPLY$
- 490 LINE.NO = LINE.NO + 1
- 500 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 510 GOTO 400
- 520 REM Data for the Copyright Page
- 530 DATA ".pa"
- 540 DATA "Anyone may request a copy of the Star-"
- 550 DATA "finder ON DISPLAY program by sending a"
- 560 DATA "blank, 5-1/4 inch, double-density disk-"
- 570 DATA "ette to the author."
- 580 DATA ".sp"
- 590 DATA "A self-addressed, postage-paid return"
- 600 DATA "mailer must accompany the diskette"
- 610 DATA "(no exceptions, please)."
- 620 DATA ".sp"
- 630 DATA "The programs and documentation will be"
- 640 DATA "copied onto the user's diskette and"
- 650 DATA "returned."
- 660 DATA ".vt 2"
- 670 DATA "Users are encouraged to copy and share"
- 680 DATA "Starfinder ON DISPLAY with others,"
- 690 DATA "provided that no changes have been made."
- 700 DATA ".vt 4"
- 710 DATA "If you are using these programs, and"
- 720 DATA "finding them of value, your contribu-"
- 730 DATA "tion ($35 suggested) will be antici-"
- 740 DATA "pated."
- 750 DATA ".sp"
- 760 DATA "Melvin O. Duke."
- 770 DATA "P.O. Box 20836"
- 780 DATA "San Jose, CA 95160"
- 790 DATA ".vt 3"
- 800 DATA "Copyright (c) 1985, by:"
- 810 DATA "Melvin O. Duke"
- 820 DATA ".sp"
- 830 DATA "All rights reserved."
- 840 '
- 850 REM Top of each page routine
- 860 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 870 LPRINT
- 880 LPRINT TAB(30); TRIM.LINE$
- 890 LPRINT DASHES$ 'Dashes
- 900 FOR I = 1 TO 6
- 910 LPRINT
- 920 NEXT I
- 930 LINE.NO = LINE.NO + 6
- 940 RETURN
- 950 '
- 960 REM Bottom of each page Routine
- 970 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1090
- 980 LPRINT TAB(TAB.POS); STRING$(40,45) 'on line 46
- 990 LPRINT TAB(TAB.POS+9); TITLE$+" ON DISPLAY" 'on line 47
- 1000 IF PAGE.NO MOD 2 = 1 THEN 1040
- 1010 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
- 1020 LPRINT TAB(TAB.POS+27);"User's Manual"
- 1030 GOTO 1090
- 1040 LPRINT TAB(TAB.POS); "User's Manual";
- 1050 IF PAGE.NO < 10 THEN DELTA = 34
- 1060 IF PAGE.NO > 9 THEN DELTA = 33
- 1070 IF PAGE.NO > 99 THEN DELTA = 32
- 1080 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO 'on line 48
- 1090 LPRINT : LPRINT : LPRINT
- 1100 LPRINT DASHES$ 'dashes after 51
- 1110 LPRINT TAB(30); TRIM.LINE$
- 1120 LPRINT PAGE.EJECT$;
- 1130 PAGE.NO = PAGE.NO + 1
- 1140 LINE.NO = 1
- 1150 IF REPLY$ = ".eof" THEN 1170 'Bypass after last page
- 1160 GOSUB 850 'For top of next page
- 1170 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 1180 RETURN
- 1190 '
- 1200 REM Command Processor
- 1210 IF LEFT$(REPLY$,3) = ".h1" THEN 1310
- 1220 IF LEFT$(REPLY$,3) = ".h2" THEN 1450
- 1230 IF LEFT$(REPLY$,3) = ".h3" THEN 1560
- 1240 IF LEFT$(REPLY$,3) = ".sp" THEN 1670
- 1250 IF LEFT$(REPLY$,4) = ".eof" THEN 1720
- 1260 IF LEFT$(REPLY$,3) = ".pa" THEN 1760
- 1270 IF LEFT$(REPLY$,3) = ".vt" THEN 1830
- 1280 IF LEFT$(REPLY$,3) = ".pk" THEN 1940
- 1290 IF LEFT$(REPLY$,3) = ".in" THEN 2070
- 1300 STOP
- 1310 REM Head 1 Processor
- 1320 FOR I = LINE.NO TO 44
- 1330 LPRINT
- 1340 NEXT I
- 1350 GOSUB 960 'Bottom of page Routine
- 1360 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1760 'For h1 on Odd pages
- 1370 LPRINT WIDE.ON$; 'Set expanded print
- 1380 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
- 1390 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
- 1400 LPRINT WIDE.OFF$; 'Return to normal
- 1410 LINE.NO = LINE.NO+1
- 1420 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 1430 RETURN
- 1440 '
- 1450 REM Head 2 Processor
- 1460 IF LINE.NO = 7 THEN 1480 'skip spacing if at top of page
- 1470 IF LINE.NO > 43 THEN GOSUB 1760 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
- 1480 LPRINT BOLD.ON$; 'Set emphasized print
- 1490 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
- 1500 LPRINT BOLD.OFF$; 'Return to normal
- 1510 LPRINT
- 1520 LINE.NO = LINE.NO + 2
- 1530 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 1540 RETURN
- 1550 '
- 1560 REM Head 3 Processor
- 1570 IF LINE.NO = 7 THEN 1590 'skip spacing if at top of page
- 1580 IF LINE.NO > 43 THEN GOSUB 1760 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
- 1590 LPRINT BOLD.ON$; 'Set emphasized print
- 1600 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
- 1610 LPRINT BOLD.OFF$; 'Return to normal
- 1620 LPRINT
- 1630 LINE.NO = LINE.NO + 2
- 1640 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 1650 RETURN
- 1660 '
- 1670 REM Single Space Processor
- 1680 IF LINE.NO = 7 THEN 1700
- 1690 IF LINE.NO > 44 THEN GOSUB 1760 ELSE LPRINT : LINE.NO = LINE.NO + 1
- 1700 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 1710 RETURN
- 1720 REM End of File Processor
- 1730 GOSUB 1760 'Bottom of Page
- 1740 LPRINT PAGE.EJECT$;
- 1750 GOTO 11860
- 1760 REM Page Eject Processor
- 1770 FOR I = LINE.NO TO 44
- 1780 LPRINT
- 1790 LINE.NO = LINE.NO + 1
- 1800 NEXT I
- 1810 GOSUB 960 'Bottom of Page Processing
- 1820 RETURN
- 1830 REM Vertical Tab Processor
- 1840 IF LINE.NO = 7 THEN 1930
- 1850 IF LINE.NO > 44 THEN GOSUB 960 'End of page
- 1860 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
- 1870 FOR I = 1 TO QTY
- 1880 LPRINT
- 1890 LINE.NO = LINE.NO + 1
- 1900 IF LINE.NO > 44 THEN I = QTY
- 1910 NEXT I
- 1920 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 1930 RETURN
- 1940 REM Pack Processor
- 1950 IF LINE.NO > 44 THEN GOSUB 960
- 1960 IF TAB.POS = 8 THEN ADJUST = 4
- 1970 IF TAB.POS = 13 THEN ADJUST = 7
- 1980 TAB.POS = TAB.POS + ADJUST + INDENT
- 1990 LPRINT SQUEEZE.ON$; 'Packed printing
- 2000 WIDTH "lpt1:", 132 'set condensed width
- 2010 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
- 2020 LPRINT SQUEEZE.OFF$; 'Return to normal
- 2030 WIDTH "lpt1:", 80 'return to normal
- 2040 LINE.NO = LINE.NO + 1
- 2050 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
- 2060 RETURN
- 2070 REM Indent Processor
- 2080 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
- 2090 RETURN
- 2100 DATA ".h1 TABLE OF CONTENTS"
- 2110 DATA ".sp"
- 2120 DATA "INTRODUCTION - - - - - - - - - - - - 1"
- 2130 DATA " OVERVIEW - - - - - - - - - - - - - 1"
- 2140 DATA " CAPABILITIES - - - - - - - - - - - 2"
- 2150 DATA " BENEFITS/ADVANTAGES - - - - - - - 3"
- 2160 DATA " RESULTS - - - - - - - - - - - - - 3"
- 2170 DATA " REQUIREMENTS - - - - - - - - - - - 4"
- 2180 DATA " Hardware Requirements - - - - - 4"
- 2190 DATA " Software Requirements - - - - - 4"
- 2200 DATA ".sp"
- 2210 DATA "GENERAL INFORMATION - - - - - - - - 5"
- 2220 DATA " DESCRIPTION OF FUNCTIONS - - - - - 5"
- 2230 DATA " Find a Star by its Common Name - 6"
- 2240 DATA " Find a Star by its Scientific"
- 2250 DATA " Name - - - - - - - - - - - - - 10"
- 2260 DATA " Find a Constellation by its"
- 2270 DATA " Name - - - - - - - - - - - - - 18"
- 2280 DATA " Print the Common Names of the"
- 2290 DATA " Stars - - - - - - - - - - - - 20"
- 2300 DATA " Print the Scientific Names of"
- 2310 DATA " the Stars - - - - - - - - - - 21"
- 2320 DATA " Move the Stars Farther Apart - - 22"
- 2330 DATA " Move the Stars Closer Together - 22"
- 2340 DATA " Move the Stars to the Left - - - 23"
- 2350 DATA " Move the Stars to the Right - - 23"
- 2360 DATA " Move the Stars Up - - - - - - - 24"
- 2370 DATA " Move the Stars Down - - - - - - 24"
- 2380 DATA " Rotate the Stars Clockwise - - - 25"
- 2390 DATA " Rotate the Stars"
- 2400 DATA " Counter-clockwise - - - - - - 25"
- 2410 DATA " Quit - - - - - - - - - - - - - - 25"
- 2420 DATA " DEFINITION OF TERMS - - - - - - - 26"
- 2430 DATA " EXPLANATION OF GENERAL CONCEPTS - 27"
- 2440 DATA ".pa"
- 2450 DATA "USING THE PROGRAM - - - - - - - - - 29"
- 2460 DATA " FIRST TIME USAGE - - - - - - - - - 29"
- 2470 DATA " GETTING STARTED - - - - - - - - - 29"
- 2480 DATA " HOW TO OPERATE - - - - - - - - - - 31"
- 2490 DATA " HOW TO STOP - - - - - - - - - - - 31"
- 2500 DATA " WHAT TO DO WHEN YOU GET AN"
- 2510 DATA " ERROR MESSAGE - - - - - - - - 32"
- 2520 DATA ".sp"
- 2530 DATA "REFERENCE MATERIAL - - - - - - - - - 33"
- 2540 DATA " SAMPLE SCREENS AND PROMPTING"
- 2550 DATA " MESSAGES - - - - - - - - - - 33"
- 2560 DATA " COMMANDS USED - - - - - - - - - - 40"
- 2570 DATA ".sp"
- 2580 DATA "APPENDIX A. MESSAGES - - - - - - - 41"
- 2590 DATA " START-UP MESSAGES - - - - - - - - 41"
- 2600 DATA " MESSAGES WHILE RUNNING"
- 2610 DATA " THE PROGRAM - - - - - - - - - 42"
- 2620 DATA ".sp"
- 2630 DATA "TERMS AND CONDITIONS - - - - - - - - 45"
- 2640 DATA " Terms - - - - - - - - - - - - - - 45"
- 2650 DATA " Conditions - - - - - - - - - - - - 46"
- 2660 DATA " Disclaimer - - - - - - - - - - - - 46"
- 2670 REM Introduction
- 2680 DATA ".h1 INTRODUCTION"
- 2690 DATA ".h2 OVERVIEW"
- 2700 DATA "The Starfinder ON DISPLAY program"
- 2710 DATA "permits a user to view the stars in any"
- 2720 DATA "portion of the sky, to change the view"
- 2730 DATA "whenever he desires, to see the names"
- 2740 DATA "of the stars, as well as the stars"
- 2750 DATA "themselves, and to locate any star or"
- 2760 DATA "constellation in the sky upon command."
- 2770 DATA ".sp"
- 2780 DATA "In the privacy of his room, and using"
- 2790 DATA "his Personal Computer, the user can"
- 2800 DATA "look at a 'window in the sky', view the"
- 2810 DATA "stars within that window, and change"
- 2820 DATA "the view whenever he so desires,"
- 2830 DATA "perhaps by zooming in on a particular"
- 2840 DATA "part of the sky, or by rotating the"
- 2850 DATA "stars to another orientation."
- 2860 DATA ".sp"
- 2870 DATA "He is able to see stars which he might"
- 2880 DATA "never have seen before (such as those"
- 2890 DATA "only seen in the southern hemisphere)."
- 2900 DATA ".sp"
- 2910 DATA "His view is unrestricted, as if the"
- 2920 DATA "horizon did not exist."
- 2930 DATA ".pa"
- 2940 DATA ".h2 CAPABILITIES"
- 2950 DATA "When Starfinder ON DISPLAY begins, an"
- 2960 DATA "initial view of a portion of the sky is"
- 2970 DATA "shown (including the Constellation"
- 2980 DATA "Orion)."
- 2990 DATA ".sp"
- 3000 DATA "For this view, and for all subsequent"
- 3010 DATA "views, the stars appear as they would"
- 3020 DATA "in the early evening, with the bright-"
- 3030 DATA "est stars showing first, followed by"
- 3040 DATA "the less-bright stars."
- 3050 DATA ".sp"
- 3060 DATA "After the completion of each view, the"
- 3070 DATA "user has the following options for the"
- 3080 DATA "next view of the stars:"
- 3090 DATA ".sp"
- 3100 DATA " 1. Find a Star by its Common Name."
- 3110 DATA " 2. Find a Star by its Scientific Name."
- 3120 DATA " 3. Find a Constellation by its Name."
- 3130 DATA " 4. Print the Common Names of the Stars."
- 3140 DATA " 5. Print the Scientific Names of the"
- 3150 DATA " stars."
- 3160 DATA " 6. Move the stars farther apart."
- 3170 DATA " 7. Move the stars closer together."
- 3180 DATA " 8. Move the stars to the left."
- 3190 DATA " 9. Move the stars to the right."
- 3200 DATA "10. Move the stars up."
- 3210 DATA "11. Move the stars down."
- 3220 DATA "12. Rotate the stars clockwise."
- 3230 DATA "13. Rotate the stars counter-clockwise."
- 3240 DATA "14. Quit."
- 3250 DATA ".pa"
- 3260 DATA ".h2 BENEFITS/ADVANTAGES"
- 3270 DATA "Highly educational in nature."
- 3280 DATA ".sp"
- 3290 DATA "Permits daytime viewing as well as"
- 3300 DATA "nighttime viewing."
- 3310 DATA ".sp"
- 3320 DATA "The user's view is not diminished by"
- 3330 DATA "weather (clouds), by the presence of a"
- 3340 DATA "bright moon, or by nearby lights."
- 3350 DATA ".sp"
- 3360 DATA "Star-names are available upon demand."
- 3370 DATA ".sp"
- 3380 DATA "The user has the ability to move a"
- 3390 DATA "particular star to the center of the"
- 3400 DATA "viewing area."
- 3410 DATA ".h2 RESULTS"
- 3420 DATA "The results are the views of the stars"
- 3430 DATA "upon the screen of the user of the"
- 3440 DATA "Starfinder ON DISPLAY program. These"
- 3450 DATA "views, with star-names (if desired)"
- 3460 DATA "can provide the user with a facility"
- 3470 DATA "that he can achieve in no other way."
- 3480 DATA ".pa"
- 3490 DATA ".h2 REQUIREMENTS"
- 3500 DATA ".h3 Hardware Requirements."
- 3510 DATA ".sp"
- 3520 DATA "IBM PC (from the PCjr Upward), or"
- 3530 DATA "Compatible Personal Computer, with:"
- 3540 DATA ".sp"
- 3550 DATA " At least one diskette drive."
- 3560 DATA ".sp"
- 3570 DATA " IBM Graphics Printer (or equiva-"
- 3580 DATA " lent, for printing documentation)."
- 3590 DATA ".sp"
- 3600 DATA " At least 96 K of Storage."
- 3610 DATA ".sp"
- 3620 DATA " 80 Character Display (either Color"
- 3630 DATA " or Monochrome)."
- 3640 DATA ".vt 2"
- 3650 DATA ".h3 Software Requirements."
- 3660 DATA ".sp"
- 3670 DATA "IBM PC-DOS (or equivalent)."
- 3680 DATA ".sp"
- 3690 DATA "PC-BASIC (on Diskette or Cartridge),"
- 3700 DATA "(or equivalent)."
- 3710 DATA ".h1 GENERAL INFORMATION"
- 3720 DATA ".h2 DESCRIPTION OF FUNCTIONS"
- 3730 DATA "Functions are provided to permit the"
- 3740 DATA "user to change his view of the stars, by"
- 3750 DATA "locating a particular star or constella-"
- 3760 DATA "tion, and moving that the the center of"
- 3770 DATA "the screen. He is able to change the"
- 3780 DATA "view of the stars by moving them or by"
- 3790 DATA "rotating them. He is able to obtain"
- 3800 DATA "their names (either their Common Names"
- 3810 DATA "or their Scientific Names). He is able"
- 3820 DATA "to zoom in on a portion of the sky or to"
- 3830 DATA "back-away and take a broader view."
- 3840 DATA ".sp"
- 3850 DATA "Following are descriptions of the"
- 3860 DATA "individual functions of the Starfinder"
- 3870 DATA "ON DISPLAY program:"
- 3880 DATA ".pa"
- 3890 DATA ".h3 Find a Star by its Common Name."
- 3900 DATA "The user may ask for a star, by typing"
- 3910 DATA "in the common name for that star."
- 3920 DATA ".sp"
- 3930 DATA "The user may abbreviate the name of the"
- 3940 DATA "star to any characters which are unique."
- 3950 DATA ".sp"
- 3960 DATA "Following is a list of the common names"
- 3970 DATA "of the stars contained in the program:"
- 3980 DATA ".sp"
- 3990 DATA Acamar, Achernar, Acrux, Adhafera, Adhara
- 4000 DATA Albiero, Alcyone, Aldebaran
- 4010 DATA Alderamin, Algeiba, Algenib, Algol, Alborab, Alhena
- 4020 DATA Alioth, Alkaid, Almach, Alnair, Alnasl, Alnilam
- 4030 DATA Alnitak, Alphard, Alphecca, Alpheratz
- 4040 DATA Altais, Altair, Aludra, Ankaa, Antares, Arcturus, Arneb
- 4050 DATA Ascella, Aspidiske, Atik, Atria, Avior, Bellatrix, Beta Crucis
- 4060 DATA Betelgeuse, Canopus, Capella, Caph, Castor, Cebalrai, Chertan
- 4070 DATA Cor Caroli, Cursa, Dabih, Deneb, Deneb Algedi, Deneb Kaitos
- 4080 DATA Denebola, Diphda, Dschubba, Dubhe, Edasich, Elnath, Eltanin, Enif
- 4090 DATA Formalhaut, Gacrux, Gienah, Gomeisa, Graffias, Hadar, Hamal
- 4100 DATA Homam, Izar, Kaus Australis, Kaus Borealis, Kaus Media, Kochab
- 4110 DATA Korneophors, Lesath, Markab, Matar, Mebsuta, Megrez, Menkalinan
- 4120 DATA Menkar, Menkent, Merak, Miaplacidus, Mimosa, Mintaka, Mira, Mirach
- 4130 DATA Mirfak, Mirzam, Mizar, Muphrid, Muscida, Nekkar, Nihal, Nunki
- 4140 DATA Peacock, Phact, Phecda, Pherkad, Polaris, Pollux, Porrima
- 4150 DATA Procyon, Propus, Rasalgethi, Rasalhague, Rastaban, Regulus
- 4160 DATA Rigel, Rigil Kentaurus, Ruchbah, Sabik, Sadalmelik, Sadr, Saiph
- 4170 DATA Saladsuud, Scheat, Schedar, Seginus, Shaula, Sheliak, Sheratan
- 4180 DATA Sirius, Skat, Spica, Suhail, Sulifat, Tania Australis
- 4190 DATA Tania Borealis, Tarazad, Unukalhai, Vega, Vindimeatrix
- 4200 DATA Yed Prior, Zaurak, Zosma, Zubenelgenubi, Zubeneschamali
- 4210 DATA ".pa"
- 4220 DATA ".h3 Find a Star by its Scientific Name."
- 4230 DATA "The user may ask for a star, by typing"
- 4240 DATA "in the scientific name of that star."
- 4250 DATA ".sp"
- 4260 DATA "The user may abbreviate the name of the"
- 4270 DATA "star to any characters which are unique."
- 4280 DATA ".sp"
- 4290 DATA "Following is a list of the scientific"
- 4300 DATA "names of the stars contained in the"
- 4310 DATA "program."
- 4320 DATA ".sp"
- 4330 DATA Alpha Andromeda, Alpha Aquarius
- 4340 DATA Alpha Aquila, Alpha Ara
- 4350 DATA Alpha Aries, Alpha Auriga
- 4360 DATA Alpha Bootes, Alpha Canes Menatici
- 4370 DATA Alpha Canis Major, Alpha Canis Minor
- 4380 DATA Alpha Carina, Alpha Cassiopeia
- 4390 DATA Alpha Centaurus, Alpha Cepheus
- 4400 DATA Alpha Cetus, Alpha Circinus
- 4410 DATA Alpha Columba, Alpha Corona Borealis
- 4420 DATA Alpha Crux, Alpha Cygnus
- 4430 DATA Alpha Dorado, Alpha Eridanus
- 4440 DATA Alpha Gemini, Alpha Grus
- 4450 DATA Alpha Hercules, Alpha Hydra
- 4460 DATA Alpha Hydrus, Alpha Indus
- 4470 DATA Alpha Leo, Alpha Lepus
- 4480 DATA Alpha Libra, Alpha Lupus
- 4490 DATA Alpha Lynx, Alpha Musca
- 4500 DATA Alpha Ophiuchus, Alpha Orion
- 4510 DATA Alpha Pago, Alpha Pegasus
- 4520 DATA Alpha Perseus, Alpha Phoenix
- 4530 DATA Alpha Pictor, Alpha Piscis Austrinus
- 4540 DATA Alpha Reticulum, Alpha Scorpius
- 4550 DATA Alpha Serpens, Alpha Taurus
- 4560 DATA Alpha Triangulum, Alpha Triangulum Australe
- 4570 DATA Alpha Tucana, Alpha Ursa Major
- 4580 DATA Alpha Ursa Minor, Alpha Virgo
- 4590 DATA Beta Andromeda, Beta Aquarius
- 4600 DATA Beta Ara, Beta Aries
- 4610 DATA Beta Auriga, Beta Bootes
- 4620 DATA Beta Canis Minor, Beta Capricornus
- 4630 DATA Beta Carina, Beta Casius Major
- 4640 DATA Beta Cassiopeia, Beta Centaurus
- 4650 DATA Beta Cepheus, Beta Cetus
- 4660 DATA Beta Columba, Beta Corvus
- 4670 DATA Beta Crux, Beta Cygnus
- 4680 DATA Beta Draco, Beta Eridanus
- 4690 DATA Beta Gemini, Beta Grus
- 4700 DATA Beta Hercules, Beta Hydrus
- 4710 DATA Beta Leo, Beta Lepus
- 4720 DATA Beta Libra, Beta Lupus
- 4730 DATA Beta Lyra, Beta Musca
- 4740 DATA Beta Ophiuchus, Beta Orion
- 4750 DATA Beta Pavo, Beta Pegasus
- 4760 DATA Beta Perseus, Beta Phoenix
- 4770 DATA Beta Scorpius, Beta Taurus
- 4780 DATA Beta Triangulum, Beta Triangulum Australe
- 4790 DATA Beta Ursa Major, Beta Ursa Minor
- 4800 DATA Gamma Andromeda
- 4810 DATA Gamma Aquila, Gamma Ara
- 4820 DATA Gamma Bootes, Gamma Cassiopeia
- 4830 DATA Gamma Centaurus, Gamma Cephus
- 4840 DATA Gamma Cetus, Gamma Corvus
- 4850 DATA Gamma Crux, Gamma Cygnus
- 4860 DATA Gamma Draco, Gamma Eridanus
- 4870 DATA Gamma Gemini, Gamma Grus
- 4880 DATA Gamma Hydra, Gamma Hydrus
- 4890 DATA Gamma Leo, Gamma Lupus
- 4900 DATA Gamma Lyra, Gamma Orion
- 4910 DATA Gamma Pegasus, Gamma Perseus
- 4920 DATA Gamma Phoenix, Gamma Sagittarius
- 4930 DATA Gamma Triangulum Australe, Gamma Ursa Major
- 4940 DATA Gamma Ursa Minor, Gamma Vela
- 4950 DATA Gamma Virgo
- 4960 DATA Delta Andromeda
- 4970 DATA Delta Aquarius, Delta Aquila
- 4980 DATA Delta Bootes, Delta Canis Major
- 4990 DATA Delta Capricornus, Delta Cassiopeia
- 5000 DATA Delta Centaurus, Delta Cepheus
- 5010 DATA Delta Corvus, Delta Crux
- 5020 DATA Delta Cygnus, Delta Draco
- 5030 DATA Delta Hercules, Delta Leo
- 5040 DATA Delta Lupus, Delta Ophiuchus
- 5050 DATA Delta Orion, Delta Perseus
- 5060 DATA Delta Sagittarius, Delta Scorpius
- 5070 DATA Delta Ursa Major, Delta Vela
- 5080 DATA Epsilon Auriga, Epsilon Bootes
- 5090 DATA Epsilon Canis Major, Epsilon Carina
- 5100 DATA Epsilon Cassiopeia, Epsilon Centaurus
- 5110 DATA Epsilon Corvus, Epsilon Cygnus
- 5120 DATA Epsilon Gemini, Epsilon Hydra
- 5130 DATA Epsilon Leo, Epsilon Lepus
- 5140 DATA Epsilon Ophiuchus, Epsilon Orion
- 5150 DATA Epsilon Pegasus, Epsilon Perseus
- 5160 DATA Epsilon Sagittarius, Epsilon Scorpius
- 5170 DATA Epsilon Taurus, Epsilon Ursa Major
- 5180 DATA Epsilon Virgo
- 5190 DATA Zeta Aquila
- 5200 DATA Zeta Ara, Zeta Canis Major
- 5210 DATA Zeta Centaurus, Zeta Cepheus
- 5220 DATA Zeta Cygnus, Zeta Draco
- 5230 DATA Zeta Hercules, Zeta Hydra
- 5240 DATA Zeta Leo, Zeta Lupus
- 5250 DATA Zeta Ophiuchus, Zeta Orion
- 5260 DATA Zeta Pegasus, Zeta Perseus
- 5270 DATA Zeta Puppis, Zeta Sagittarius
- 5280 DATA Zeta Virgo
- 5290 DATA Eta Auriga
- 5300 DATA Eta Bootes, Eta Casius Major
- 5310 DATA Eta Cassiopeia, Eta Centaurus
- 5320 DATA Eta Cepheus, Eta Cetus
- 5330 DATA Eta Draco, Eta Gemini
- 5340 DATA Eta Hercules, Eta Lupus
- 5350 DATA Eta Ophiuchus, Eta Orion
- 5360 DATA Eta Pegasus, Eta Sagittarius
- 5370 DATA Eta Scorpius, Eta Serpens
- 5380 DATA Eta Taurus, Eta Ursa Major
- 5390 DATA Theta Aquila, Theta Auriga
- 5400 DATA Theta Carina, Theta Centaurus
- 5410 DATA Theta Eridanus, Theta Leo
- 5420 DATA Theta Ophiuchus, Theta Scorpius
- 5430 DATA Theta Taurus, Theta Ursa Major
- 5440 DATA Iota Auriga
- 5450 DATA Iota Carina, Iota Centaurus
- 5460 DATA Iota Draco, Iota Orion
- 5470 DATA Iota Scorpius, Iota Ursa Major
- 5480 DATA Kappa Centaurus, Kappa Ophiuchus
- 5490 DATA Kappa Orion, Kappa Scorpius
- 5500 DATA Kappa Vela
- 5510 DATA Lambda Aquila
- 5520 DATA Lambda Centaurus, Lambda Orion
- 5530 DATA Lambda Sagittarius, Lambda Scorpius
- 5540 DATA Lambda Ursa Major, Lambda Vela
- 5550 DATA Mu Centaurus, Mu Gemini
- 5560 DATA Mu Hercules, Mu Lepus
- 5570 DATA Mu Scorpius, Mu Ursa Major
- 5580 DATA Mu Vela
- 5590 DATA Nu Centaurus, Nu Hydra
- 5600 DATA Nu Ophiuchus, Nu Puppis
- 5610 DATA Xi Gemini, Xi Puppis
- 5620 DATA Xi Sagittarius
- 5630 DATA Omicron Canis Major
- 5640 DATA Omicron Cetus, Omicron Ursa Major
- 5650 DATA Pi Hercules
- 5660 DATA Pi Hydra, Pi Orion
- 5670 DATA Pi Puppis, Pi Sagittarius
- 5680 DATA Pi Scorpius
- 5690 DATA Rho Perseus, Rho Puppis
- 5700 DATA Sigma Libra, Sigma Puppis
- 5710 DATA Sigma Sagittarius, Sigma Scorpius
- 5720 DATA Tau Cetus, Tau Puppis
- 5730 DATA Tau Sagittarius, Tau Scorpius
- 5740 DATA Upsilon Carina, Upsilon Scorpius
- 5750 DATA Phi Sagittarius
- 5760 DATA Chi Carina
- 5770 DATA Psi Ursa Major
- 5780 DATA Omega Carina
- 5790 DATA a Carina
- 5800 DATA l Carina, p Carina
- 5810 DATA q Carina
- 5820 DATA G Scorpius
- 5830 DATA N Vela
- 5840 DATA ".pa"
- 5850 DATA ".h3 Find a Constellation by its Name."
- 5860 DATA "The user may ask for a constellation by"
- 5870 DATA "typing in the name of that constellation."
- 5880 DATA "The user may abbreviate the name of the"
- 5890 DATA "constellation to any characters which"
- 5900 DATA "are unique."
- 5910 DATA ".sp"
- 5920 DATA "Following is a list of the constella-"
- 5930 DATA "tions whose Alpha star is found in the"
- 5940 DATA "program:"
- 5950 DATA ".sp"
- 5960 DATA Andromeda, Aquarius
- 5970 DATA Aquila, Ara
- 5980 DATA Aries, Auriga
- 5990 DATA Bootes, Canes Menatici
- 6000 DATA Canis Major, Canis Minor
- 6010 DATA Carina, Cassiopeia
- 6020 DATA Centaurus, Cepheus
- 6030 DATA Cetus, Circinus
- 6040 DATA Columba, Corona Borealis
- 6050 DATA Crux, Cygnus
- 6060 DATA Dorado, Eridanus
- 6070 DATA Gemini, Grus
- 6080 DATA Hercules, Hydra
- 6090 DATA Hydrus, Indus
- 6100 DATA Leo, Lepus
- 6110 DATA Libra, Lupus
- 6120 DATA Lynx, Musca
- 6130 DATA Ophiuchus, Orion
- 6140 DATA Pago, Pegasus
- 6150 DATA Perseus, Phoenix
- 6160 DATA Pictor, Piscis Austrinus
- 6170 DATA Reticulum, Scorpius
- 6180 DATA Serpens, Taurus
- 6190 DATA Triangulum, Triangulum Australe
- 6200 DATA Tucana, Ursa Major
- 6210 DATA Ursa Minor, Virgo
- 6220 DATA ".pa"
- 6230 DATA ".h3 Print the Common Names of the Stars"
- 6240 DATA "The view of the sky is plotted again,"
- 6250 DATA "but with the common name of each star"
- 6260 DATA "to the immediate right of the star"
- 6270 DATA "itself."
- 6280 DATA ".sp"
- 6290 DATA "If the star-name will not fit on the"
- 6300 DATA "same line as the star itself, the"
- 6310 DATA "star-name is truncated."
- 6320 DATA ".sp"
- 6330 DATA "Note: a star-name may overlay one which"
- 6340 DATA "was previously plotted. Another star may"
- 6350 DATA "be plotted within a star-name previously"
- 6360 DATA "plotted. This is normal, and to be"
- 6370 DATA "expected. The user may change his view"
- 6380 DATA "in order to re-orient the stars, or to"
- 6390 DATA "expand them to the point that all star-"
- 6400 DATA "names are shown."
- 6410 DATA ".pa"
- 6420 DATA ".h3 Print the Scientific Names of the Stars"
- 6430 DATA "The view of the sky is plotted again, but"
- 6440 DATA "with the scientific name of each star to"
- 6450 DATA "the immediate right of the star itself."
- 6460 DATA ".sp"
- 6470 DATA "If the star-name will not fit on the"
- 6480 DATA "same line as the star itself, the"
- 6490 DATA "star-name is truncated."
- 6500 DATA ".sp"
- 6510 DATA "Note: a star-name may overlay one which"
- 6520 DATA "was previously plotted. Another star may"
- 6530 DATA "be plotted within a star-name previously"
- 6540 DATA "plotted. This is normal, and to be"
- 6550 DATA "expected. The user may change his view"
- 6560 DATA "in order to re-orient the stars, or to"
- 6570 DATA "expand them to the point that all star-"
- 6580 DATA "names are shown."
- 6590 DATA ".pa"
- 6600 DATA ".h3 Move the Stars Farther Apart"
- 6610 DATA "The user has the ability to move the"
- 6620 DATA "stars father apart, in order to"
- 6630 DATA "'zoom-in' on a portion of the sky."
- 6640 DATA ".vt 3"
- 6650 DATA ".h3 Move the Stars Closer Together"
- 6660 DATA "The user has the ability to move the"
- 6670 DATA "stars closer together, in order to"
- 6680 DATA "'back-away', and view a larger portion"
- 6690 DATA "of the sky."
- 6700 DATA ".pa"
- 6710 DATA ".h3 Move the Stars to the Left"
- 6720 DATA "The user has the ability to shift all of"
- 6730 DATA "stars to the left."
- 6740 DATA ".sp"
- 6750 DATA "The amount of movement (in degrees) may"
- 6760 DATA "be from 0 to 360 degrees."
- 6770 DATA ".vt 3"
- 6780 DATA ".h3 Move the Stars to the Right"
- 6790 DATA "The user has the ability to shift all of"
- 6800 DATA "stars to the right."
- 6810 DATA ".sp"
- 6820 DATA "The amount of movement (in degrees) may"
- 6830 DATA "be from 0 to 360 degrees."
- 6840 DATA ".pa
- 6850 DATA ".h3 Move the Stars Up"
- 6860 DATA "The user has the ability to shift all of"
- 6870 DATA "stars upward in his field of vision."
- 6880 DATA ".sp"
- 6890 DATA "The amount of movement (in degrees) may"
- 6900 DATA "be from 0 to 360 degrees."
- 6910 DATA ".vt 3"
- 6920 DATA ".h3 Move the Stars Down"
- 6930 DATA "The user has the ability to shift all of"
- 6940 DATA "stars downward in his field of vision."
- 6950 DATA ".sp"
- 6960 DATA "The amount of movement (in degrees) may"
- 6970 DATA "be from 0 to 360 degrees."
- 6980 DATA ".pa"
- 6990 DATA ".h3 Rotate the Stars Clockwise"
- 7000 DATA "The user has the ability to shift all of"
- 7010 DATA "stars clockwise in his field of vision."
- 7020 DATA ".sp"
- 7030 DATA "The amount of movement (in degrees) may"
- 7040 DATA "be from 0 to 360 degrees."
- 7050 DATA ".vt 3"
- 7060 DATA ".h3 Rotate the Stars Counter-clockwise"
- 7070 DATA "The user has the ability to shift all of"
- 7080 DATA "stars counter-clockwise in his field of"
- 7090 DATA "vision."
- 7100 DATA ".sp"
- 7110 DATA "The amount of movement (in degrees) may"
- 7120 DATA "be from 0 to 360 degrees."
- 7130 DATA ".vt 3"
- 7140 DATA ".h3 Quit"
- 7150 DATA "The user may 'quit' at any time."
- 7160 DATA ".pa"
- 7170 DATA ".h2 DEFINITION OF TERMS"
- 7180 DATA ".h3 Move the Stars Farther Apart."
- 7190 DATA "This is equivalent to 'zooming-in on"
- 7200 DATA "a part of the sky."
- 7210 DATA ".vt 3"
- 7220 DATA ".h3 Move the Stars Closer Together"
- 7230 DATA "This is equivalent to 'backing-away'"
- 7240 DATA "from the current view, and seeing a"
- 7250 DATA "wider portion of the sky."
- 7260 DATA ".pa"
- 7270 DATA ".h2 EXPLANATION OF GENERAL CONCEPTS"
- 7280 DATA "The positions of stars are well known to"
- 7290 DATA "astronomers. These positions are"
- 7300 DATA "published in tables. They are described"
- 7310 DATA "in terms of Right-Ascension and Decli-"
- 7320 DATA "nation, so that persons may locate the"
- 7330 DATA "stars in the sky."
- 7340 DATA ".sp"
- 7350 DATA "The Starfinder ON DISPLAY program"
- 7360 DATA "assumes that all stars are at a constant"
- 7370 DATA "distance from the earth (which they are"
- 7380 DATA "not). With this simplifying assumption,"
- 7390 DATA "it is then possible to use the Right-"
- 7400 DATA "Ascension and Declination to compute a"
- 7410 DATA "set of (x, y, z) coordinates for each"
- 7420 DATA "star, which are between 0 and 1."
- 7430 DATA ".sp"
- 7440 DATA "Those coordinates can then be used for"
- 7450 DATA "transformations (rotation and scaling),"
- 7460 DATA "and for plotting the stars on the"
- 7470 DATA "screen."
- 7480 DATA ".sp"
- 7490 DATA "Plotting of the stars on the screen of"
- 7500 DATA "the any Personal Computer depends upon"
- 7510 DATA "the x,y,z coordinates of the stars, and"
- 7520 DATA "on the shape of the screen. The shape"
- 7530 DATA "of the screen was used in order to plot"
- 7540 DATA "the stars in such a fashion that they"
- 7550 DATA "appear as close to an actual star view"
- 7560 DATA "as possible."
- 7570 REM How to use the program
- 7580 DATA ".h1 USING THE PROGRAM"
- 7590 DATA ".h2 FIRST TIME USAGE"
- 7600 DATA "There is nothing unique about using the"
- 7610 DATA "Starfinder ON DISPLAY program for the"
- 7620 DATA "first time. The user should take the"
- 7630 DATA "normal precautionary steps to copy the"
- 7640 DATA "programs and their documentation to a"
- 7650 DATA "backup file."
- 7660 DATA ".h2 GETTING STARTED"
- 7670 DATA "The user should perform the following"
- 7680 DATA "steps in starting the Starfinder ON"
- 7690 DATA "DISPLAY program."
- 7700 DATA ".sp
- 7710 DATA "1. Insert the PC DOS diskette into"
- 7720 DATA " Drive a:"
- 7730 DATA ".sp
- 7740 DATA "2. Turn the Printer On (if you want"
- 7750 DATA " to print the documentation)."
- 7760 DATA ".sp"
- 7770 DATA "3. Turn the Computer On."
- 7780 DATA ".sp"
- 7790 DATA "4. Enter today's date and the time,"
- 7800 DATA " if requested to do so."
- 7810 DATA ".sp"
- 7820 DATA "5. Type: basic"
- 7830 DATA " and press the 'enter' key"
- 7840 DATA ".sp"
- 7850 DATA "6. Replace the DOS Diskette with the"
- 7860 DATA " Distribution diskette into drive"
- 7870 DATA " a:"
- 7880 DATA ".pa"
- 7890 DATA "7. Type: load ~starfind~"
- 7900 DATA " and press the 'enter' key."
- 7910 DATA ".sp"
- 7920 DATA "8. Type: run"
- 7930 DATA " and press the 'enter' key."
- 7940 DATA ".sp"
- 7950 DATA "9. Follow instructions which will be"
- 7960 DATA " shown at the bottom of each screen."
- 7970 DATA ".pa"
- 7980 DATA ".h2 HOW TO OPERATE."
- 7990 DATA "Once the user has started (see the"
- 8000 DATA "previous section on Getting Started),"
- 8010 DATA "he responds to instructions given by"
- 8020 DATA "the program. These are generally"
- 8030 DATA "selecting a number or pressing a key."
- 8040 DATA ".sp"
- 8050 DATA "Some questions pertain to the number"
- 8060 DATA "of degrees to move the stars, or the"
- 8070 DATA "expansion or shrinking factor, when"
- 8080 DATA "the user wants a different view of"
- 8090 DATA "the stars."
- 8100 DATA ".sp"
- 8110 DATA "Please refer to the General Informa-"
- 8120 DATA "tion section of this manual for the"
- 8130 DATA "details on each function."
- 8140 DATA ".sp"
- 8150 DATA ".h2 HOW TO STOP."
- 8160 DATA "The user may stop at any time, by"
- 8170 DATA "pressing (and holding down) the control"
- 8180 DATA "(Ctrl) key, and then pressing the Break"
- 8190 DATA "key (or the FN key and B key for the"
- 8200 DATA "PCjr)."
- 8210 DATA ".sp"
- 8220 DATA "The normal method of stopping, however,"
- 8230 DATA "is when the user is finished. He gives"
- 8240 DATA "the 'quit' command, and his session is"
- 8250 DATA "finished."
- 8260 DATA ".pa"
- 8270 DATA ".h2 WHAT TO DO IF YOU GET AN ERROR MESSAGE."
- 8280 DATA "Few error messages exist. Where they do,"
- 8290 DATA "the user is given the ability to re-"
- 8300 DATA "supply his previous response."
- 8310 DATA ".sp"
- 8320 DATA "Messages which he might receive are:"
- 8330 DATA ".sp"
- 8340 DATA ".pk Number is out of range."
- 8350 DATA ".pk Number must be 0 to 360"
- 8360 DATA ".pk Number must be 1 to 10"
- 8370 DATA ".pk Number must be .1 to 1"
- 8380 DATA ".pk The number must be between 1 and 14."
- 8390 DATA ".sp"
- 8400 DATA "In each of the above cases, the user is"
- 8410 DATA "expected to respond with a number which"
- 8420 DATA "is within the appropriate range."
- 8430 DATA ".vt 2"
- 8440 DATA ".pk Unable to locate star as named."
- 8450 DATA ".pk Unable to locate constellation as named."
- 8460 DATA ".sp"
- 8470 DATA "In each of the above cases, the user has"
- 8480 DATA "asked to locate something that is either"
- 8490 DATA "misspelled, or is not within the program."
- 8500 DATA ".sp"
- 8510 DATA "He is expected to re-enter a valid name."
- 8520 DATA ".h1 REFERENCE MATERIAL"
- 8530 DATA ".h2 SAMPLE SCREENS AND PROMPTING MESSAGES"
- 8540 DATA "The following is a sample session."
- 8550 DATA ".vt 2"
- 8560 DATA "After turning the sytems on, and asking"
- 8570 DATA "for basic, the user types:"
- 8580 DATA ".sp"
- 8590 DATA ".pk load ~starfind~"
- 8600 DATA ".vt 2"
- 8610 DATA "and then:"
- 8620 DATA ".sp"
- 8630 DATA ".pk run"
- 8640 DATA ".pa"
- 8650 DATA "The display screen then appears as:"
- 8660 DATA ".sp"
- 8670 DATA ".vt 3"
- 8680 DATA ".pk Starfinder"
- 8690 DATA ".pk ON DISPLAY"
- 8700 DATA ".vt 2"
- 8710 DATA ".pk If you are using these programs, and"
- 8720 DATA ".pk finding them of value, your contribution"
- 8730 DATA ".pk ($35 suggested) will be anticipated."
- 8740 DATA ".sp"
- 8750 DATA ".pk Melvin O. Duke"
- 8760 DATA ".pk P.O. Box 20836"
- 8770 DATA ".pk San Jose, CA 95160"
- 8780 DATA ".vt 3"
- 8790 DATA ".pk Copyright (c) 1985 by:"
- 8800 DATA ".pk Melvin O. Duke"
- 8810 DATA ".vt 2"
- 8820 DATA ".pk Press any key to continue"
- 8830 DATA ".pa"
- 8840 DATA "After the depression of any key, the"
- 8850 DATA "screen is cleared, and a new screen"
- 8860 DATA "appears, showing:"
- 8870 DATA ".vt 2"
- 8880 DATA ".pk This program permits you to view the stars in any portion of"
- 8890 DATA ".pk the sky, and to change that view according to your commands."
- 8900 DATA ".sp"
- 8910 DATA ".pk The program contains all of the stars whose visual magnitude"
- 8920 DATA ".pk is 3.50 or brighter. they are plotted according to the"
- 8930 DATA ".pk following:"
- 8940 DATA ".sp"
- 8950 DATA ".pk * Visual Magnitude of 0.99 or brighter."
- 8960 DATA ".pk * Visual Magnitude of 1.99 or brighter."
- 8970 DATA ".pk . Visual Magnitude of 2.99 or brighter."
- 8980 DATA ".pk . All other stars."
- 8990 DATA ".vt 4"
- 9000 DATA ".pk Press any key to continue."
- 9010 DATA ".pa"
- 9020 DATA "The screen is cleared, and the stars plot as:"
- 9030 DATA ".vt 2"
- 9040 DATA ".sp"
- 9050 DATA ".pk ."
- 9060 DATA ".sp"
- 9070 DATA ".pk *"
- 9080 DATA ".pk * ."
- 9090 DATA ".sp"
- 9100 DATA ".sp"
- 9110 DATA ".sp"
- 9120 DATA ".sp"
- 9130 DATA ".sp"
- 9140 DATA ".pk ."
- 9150 DATA ".pk * *"
- 9160 DATA ".pk ."
- 9170 DATA ".sp"
- 9180 DATA ".pk ."
- 9190 DATA ".pk ."
- 9200 DATA ".sp"
- 9210 DATA ".sp"
- 9220 DATA ".pk . *"
- 9230 DATA ".sp"
- 9240 DATA ".sp"
- 9250 DATA ".sp"
- 9260 DATA ".pk Press any key to continue"
- 9270 DATA ".pa"
- 9280 DATA "When the user presses a key, the screen"
- 9290 DATA "is cleared, and now shows:"
- 9300 DATA ".vt 2"
- 9310 DATA ".pk The following actions are available:"
- 9320 DATA ".sp"
- 9330 DATA ".pk 1. Find a Star by its Common Name."
- 9340 DATA ".pk 2. Find a Star by its Scientific Name."
- 9350 DATA ".pk 3. Find a Constellation by its Name."
- 9360 DATA ".pk 4. Print the Common Names of the Stars."
- 9370 DATA ".pk 5. Print the Scientific Names of the Stars."
- 9380 DATA ".pk 6. Move the stars farther apart."
- 9390 DATA ".pk 7. Move the stars closer together."
- 9400 DATA ".pk 8. Move the stars to the left."
- 9410 DATA ".pk 9. Move the stars to the right."
- 9420 DATA ".pk 10. Move the stars up."
- 9430 DATA ".pk 11. Move the stars down."
- 9440 DATA ".pk 12. Rotate the stars clockwise."
- 9450 DATA ".pk 13. Rotate the stars counter-clockwise."
- 9460 DATA ".pk 14. Quit."
- 9470 DATA ".sp"
- 9480 DATA ".pk What action would you like to take?"
- 9490 DATA ".pk Enter a number between 1 and 14?"
- 9500 DATA ".vt 2"
- 9510 DATA "The user decides to move the stars"
- 9520 DATA "closer together, so he types a 7 and"
- 9530 DATA "presses the 'enter' key."
- 9540 DATA ".sp"
- 9550 DATA ".pk Enter a number between 1 and 14? 7"
- 9560 DATA ".vt 2"
- 9570 DATA "He is then asked to:"
- 9580 DATA ".sp"
- 9590 DATA ".pk Enter a factor between .1 and 1?"
- 9600 DATA ".pa"
- 9610 DATA "He responds with .5 (and presses the"
- 9620 DATA "'enter' key)."
- 9630 DATA ".sp"
- 9640 DATA ".pk Enter a factor between .1 and 1? .5"
- 9650 DATA ".vt 2"
- 9660 DATA "The screen is cleared, and he watches"
- 9670 DATA "as the plot develops, to see:"
- 9680 DATA ".vt 2"
- 9690 DATA ".pk . ."
- 9700 DATA ".pk . ."
- 9710 DATA ".sp"
- 9720 DATA ".pk * * ."
- 9730 DATA ".pk ."
- 9740 DATA ".sp"
- 9750 DATA ".pk ."
- 9760 DATA ".pk . * * ."
- 9770 DATA ".pk *"
- 9780 DATA ".sp"
- 9790 DATA ".sp"
- 9800 DATA ".pk **."
- 9810 DATA ".pk ."
- 9820 DATA ".pk . ."
- 9830 DATA ".pk . *"
- 9840 DATA ".sp"
- 9850 DATA ".pk ."
- 9860 DATA ".sp"
- 9870 DATA ".pk * . ."
- 9880 DATA ".pk * ."
- 9890 DATA ".pk ."
- 9900 DATA ".pk Press any key to continue"
- 9910 DATA ".pa
- 9920 DATA "When the user has finished looking at"
- 9930 DATA "the current screen, he presses any"
- 9940 DATA "key, and once again sees the screen"
- 9950 DATA "which defines the actions which he"
- 9960 DATA "may take. He takes whatever action"
- 9970 DATA "that he desires, and finally selects"
- 9980 DATA "action 14, to quit."
- 9990 DATA ".pa"
- 10000 DATA ".h2 COMMANDS USED."
- 10010 DATA ".h3 basic"
- 10020 DATA ".sp"
- 10030 DATA "The basic command is used in order to"
- 10040 DATA "load the basic processor from the PC"
- 10050 DATA "DOS diskette, into storage."
- 10060 DATA ".h3 load"
- 10070 DATA ".sp"
- 10080 DATA "The load command is used in order to"
- 10090 DATA "load the Starfinder ON DISPLAY program"
- 10100 DATA "from the Distribution diskette."
- 10110 DATA ".h3 run"
- 10120 DATA ".sp"
- 10130 DATA "The run command is used to cause the"
- 10140 DATA "Starfinder ON DISPLAY program to"
- 10150 DATA "begin."
- 10160 REM Appendices
- 10170 DATA ".h1 APPENDIX A. MESSAGES"
- 10180 DATA ".h2 START-UP MESSAGES"
- 10190 DATA "The initial message, when the system"
- 10200 DATA "is turned on, is something like:"
- 10210 DATA ".sp"
- 10220 DATA ".pk Current date is Tues 1-01-1980"
- 10230 DATA ".pk Enter new date:"
- 10240 DATA ".sp"
- 10250 DATA "The user is expected to respond with an"
- 10260 DATA "appropriate date."
- 10270 DATA ".vt 2"
- 10280 DATA "The user then sees something like:"
- 10290 DATA ".sp"
- 10300 DATA ".pk Current time is 0:01:05.0"
- 10310 DATA ".pk Enter new time:"
- 10320 DATA ".sp"
- 10330 DATA "The user is expected to respond with an"
- 10340 DATA "appropriate time."
- 10350 DATA ".vt 2"
- 10360 DATA "The message in response to the"
- 10370 DATA "basic"
- 10380 DATA "command is something like:"
- 10390 DATA ".sp"
- 10400 DATA ".pk IBM Personal Computer Basic"
- 10410 DATA ".pk Version D2.1 Copyright IBM Corp. 1981, 1982, 1983"
- 10420 DATA ".pk 58853 Bytes Free"
- 10430 DATA ".vt 2"
- 10440 DATA "The message in response to the"
- 10450 DATA "load"
- 10460 DATA "command is:"
- 10470 DATA ".sp"
- 10480 DATA ".pk Ok"
- 10490 DATA ".pa"
- 10500 DATA ".h2 MESSAGES WHILE RUNNING THE PROGRAM"
- 10510 DATA ".pk Enter a factor between 1 and 10?"
- 10520 DATA ".sp"
- 10530 DATA "The user has asked to Move the Stars"
- 10540 DATA "farther apart. He is now being asked"
- 10550 DATA "to state a factor to use in that expan-"
- 10560 DATA "sion. He should enter a number between"
- 10570 DATA "1 and 10."
- 10580 DATA ".vt 2"
- 10590 DATA ".pk Enter a factor between .1 and 1?"
- 10600 DATA ".sp"
- 10610 DATA "The user has asked to Move the Stars"
- 10620 DATA "closer together. He is now being asked"
- 10630 DATA "to state a factor to use in that con-"
- 10640 DATA "tration. He should enter a number"
- 10650 DATA "between .1 and 1."
- 10660 DATA ".vt 2"
- 10670 DATA ".pk How many degrees clockwise?"
- 10680 DATA ".sp"
- 10690 DATA "The user has asked to rotate the stars"
- 10700 DATA "clockwise. He is now being asked to"
- 10710 DATA "state the number of degrees by which"
- 10720 DATA "to rotate the stars. He should enter"
- 10730 DATA "a number between 0 and 360."
- 10740 DATA ".vt 2"
- 10750 DATA ".pk How many degrees counter-clockwise?"
- 10760 DATA ".sp"
- 10770 DATA "The user has asked to rotate the stars"
- 10780 DATA "counter-clockwise. He is now being"
- 10790 DATA "askedto state the number of degrees by"
- 10800 DATA "which to rotate the stars. He should"
- 10810 DATA "enter a number between 0 and 360."
- 10820 DATA ".pa"
- 10830 DATA ".pk How many degrees down?"
- 10840 DATA ".sp"
- 10850 DATA "The user has asked to move the stars"
- 10860 DATA "down. He is now being asked to state"
- 10870 DATA "the number of degrees by which to move"
- 10880 DATA "the stars down. He should enter a"
- 10890 DATA "number between 0 and 360."
- 10900 DATA ".vt 2"
- 10910 DATA ".pk How many degrees to the left?"
- 10920 DATA ".sp"
- 10930 DATA "The user has asked to move the stars to"
- 10940 DATA "the left. He is now being asked toe"
- 10950 DATA "state the number of degrees by which to"
- 10960 DATA "move the stars to the left. He should"
- 10970 DATA "enter a number between 0 and 360."
- 10980 DATA ".vt 2"
- 10990 DATA ".pk How many degrees to the right?"
- 11000 DATA ".sp"
- 11010 DATA "The user has asked to move the stars to"
- 11020 DATA "the right. He is now being asked to"
- 11030 DATA "state the number of degrees by which to"
- 11040 DATA "move the stars to the right. He should"
- 11050 DATA "enter a number between 0 and 360."
- 11060 DATA ".vt 2"
- 11070 DATA ".pk How many degrees up?"
- 11080 DATA ".sp"
- 11090 DATA "The user has asked to move the stars up."
- 11100 DATA "He is now being asked to state the"
- 11110 DATA "number of degrees by which to move the"
- 11120 DATA "stars to the up. He should enter a"
- 11130 DATA "number between 0 and 360."
- 11140 DATA ".pa"
- 11150 DATA ".pk Press any key to continue"
- 11160 DATA ".sp"
- 11170 DATA "When the user has finished viewing the"
- 11180 DATA "screen, he should press any key in order"
- 11190 DATA "continue."
- 11200 DATA ".vt 2"
- 11210 DATA ".pk What action would you like to take?"
- 11220 DATA ".pk Enter a number between 1 and 14?"
- 11230 DATA ".sp"
- 11240 DATA "The user is expected to select the action"
- 11250 DATA "that he would like to take, by entering"
- 11260 DATA "a number between 1 and 14, and then"
- 11270 DATA "pressing the 'enter' key."
- 11280 DATA ".h1 TERMS AND CONDITIONS"
- 11290 DATA ".h2 Terms"
- 11300 DATA "If you are using this program, and"
- 11310 DATA "finding it of value, your contribution"
- 11320 DATA "($35 suggested) will be anticipated."
- 11330 DATA ".vt 2"
- 11340 DATA " Melvin O. Duke"
- 11350 DATA " P.O. Box 20836"
- 11360 DATA " San Jose, CA 95160"
- 11370 DATA " (408) 268-6637)"
- 11380 DATA ".vt 2"
- 11390 DATA "Regardless of whether you make a contri-"
- 11400 DATA "bution, you are encouraged to copy and"
- 11410 DATA "share this program."
- 11420 DATA ".sp"
- 11430 DATA "Anyone may request a copy of this"
- 11440 DATA "program by sending one blank, 5-1/4"
- 11450 DATA "inch, double-density diskette to the"
- 11460 DATA "author, at the address given above."
- 11470 DATA ".sp"
- 11480 DATA "An addressed, postage-paid return-"
- 11490 DATA "mailer must accompany the diskettes"
- 11500 DATA "(no exceptions, please)."
- 11510 DATA ".sp"
- 11520 DATA "The program and documentation will be"
- 11530 DATA "copied to the user's diskette, and"
- 11540 DATA "returned in the supplied mailer."
- 11550 DATA ".pa"
- 11560 DATA ".h2 Conditions"
- 11570 DATA "A limited license is granted to all users"
- 11580 DATA "of this program, to make copies, and to"
- 11590 DATA "distribute them to others, on the follow-"
- 11600 DATA "ing conditions:"
- 11610 DATA ".sp"
- 11620 DATA "1. The Starfinder ON DISPLAY program is"
- 11630 DATA " not to be distributed to others in a"
- 11640 DATA " modified form."
- 11650 DATA ".sp"
- 11660 DATA "2. No fee is to be charged for the Star-"
- 11670 DATA " finder ON DISPLAY program. Those who"
- 11680 DATA " perform the copying may charge a"
- 11690 DATA " reasonable amount for the actual"
- 11700 DATA " copying and mailing."
- 11710 DATA ".sp"
- 11720 DATA "3. The notices displayed at program"
- 11730 DATA " start-up are not to be bypassed,"
- 11740 DATA " altered, or removed."
- 11750 DATA ".h2 Disclaimer"
- 11760 DATA "In no event will the Author be liable to"
- 11770 DATA "you for any damages, including any lost"
- 11780 DATA "profits, lost savings or other inciden-"
- 11790 DATA "tal or consequential damages arising out"
- 11800 DATA "of the use of or inability to use these"
- 11810 DATA "programs, even if the Author has been"
- 11820 DATA "advised of the possibility of such"
- 11830 DATA "damages, or for any claim by any other"
- 11840 DATA "party."
- 11850 DATA ".eof"
- 11860 END
-