2IMGCdrP@@0' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]֠ĠǠ èӍ软 L  鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"H]hL고ೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>? $  = #& . "( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0!)8$)?/;-!)/)?!)/:::EB)4h; #,0PX !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`D ?LV?LV`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`E ߼k *f0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`000   LDcpq` [` ~  LӜu`".Q`pNФbptťܥhm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-" pŲ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  /* ED ޶ B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`i  d͠z# u`----!--+ ! !";31);"!":" !";27);"! ! ! 1 ADD OBJECTS";15);"!"&" ! 2 UTILITIES -----------!--+ ! !";31);"!":" !";27);"! ! ! +--+ 2 CHANGE/DELETE OBJECTS !"T'" ! 3 PRINT INSTRUCTIONS ! ---------+-------------+ ! !":" ! MAIN DIRECTORY ! ! ! +-------------------------------+":" !";27);"! ! ! ! UPDATE STARBASE DIRECTORY !"T&" !";27);"! ! ! !";31);"!":" ! 1 CREATE STAR MAP -- +-------------+-------------+ ! !";14);"! !";15);"!"$l20);"!";16);"! +--------------+ +-------+-------+":20);"!";16);"!";32);"!":20);"!";16);"!";32);"!":20);"!";16);"! +-----------------------------+"%v" +---- +--------------+ +---------------+":" !";27);"! !";14);"! !";15);"!":" ! MAIN BOOTUP MODULE ! +-----+ PLANET";B$b" CALC. ! ! ENVIRONMENT !":" !";27);"! ! ! STAR MAP ! ! MODULE !":" RIES AND SCREEN PROMPTING. IF YOU""N" SHOULD MAKE A MISTAKE"C$" 'STARBASE 3000' WILL GENTLY EASE YOU OUT OF IT OR":" GIVE YOU A CHANCE TO BACK OUT. THE DIRECTORY ROAD MAP IS SHOWN BELOW."::::#X" +---------------------------+:{!A" A R C H I T E C T U R E :":::" 'STARBASE 3000' IS EXTREMLY USER FRIENDLY. ALTHOUGH 'STARBASE 3000'"#"D" CONTAINS OVER FIFTY PROGRAMS AND DATA FILES"C$" YOU WILL BE GUIDED THROUGH":" THIS ARCHITECTURAL MAZE BY DIRECTOASTRONOMY HOBBY STORES"C$" BOOK":" STORES"C$" PUBLIC LIBRARIES"C$" AND"; " COLLEGE BOOK STORES. SEEK AND YOU SHALL":" FIND!"::::::39);"PAGE 3"::: : : : :  PAGE 4 FOLLOWS : &: 0: ::!?:ND STAR ATLASES ON THE MARKET WHICH"x" WILL AID YOU IN YOUR STUDY OF ASTRONOMY AND GREATLY ENHANCE THE USE OF"T " 'STARBASE 3000'. SEVERAL OF THESE PUBLICATIONS ARE LISTED IN APPENDIX":" 'D'. YOU CAN FIND THIS LITERATURE AT MANY APER IS DESIRABLE."W::" ALTHOUGH NOT A REQUIREMENT FOR RUNNING 'STARBASE ";"3000'";C$;" EXTRA DISKETTES":" FOR BACKING UP YOUR PROGRAMS IS HIGHLY RECOMMENDED. SEE PAGE 7."$::" THERE ARE MANY FINE BOOKS";C$;" MAGAZINES APORTS"C$" A DOT MATRIX PRINTER CAPABLE OF":" PRINTING 132 CHARACTERS PER LINE WILL BE REQUIRED. MOST DOT MATRIX"" PRINTERS HAVE THIS CAPABILITY"C$" SUCH AS THE EPSON AND APPLE IMAGEWRITER":" PRINTERS. FORMFEED 8 1/2 X 11 INCH PR E M E N T S :":::" 'STARBASE 3000' REQUIRES EITHER AN APPLE II+"C$" II"(101)C$" OR II"(99)" COMPUTER WITH":" AT LEAST 48K OF MEMORY. YOU WILL ONLY NEED ";y"ONE DISK DRIVE. IN ORDER TO":" PRINT THE STAR MAP AND OTHER REBJECTS ARE PLOTTED IN THEIR"l" CORRECT POSITIONS"C$" FOR THE TIME PERIOD THAT YOU SELECTED."::" WITH 'STARBASE 3000' YOUR COMPUTER AND PRINTER CAN BE YOUR 'GALACTIC":" DATABASE TO THE HEAVENS'."::::" R E Q U I LENDID TWO BY FOUR FOOT"o" STAR MAP. WITH 'STARBASE 3000'";C$;" YOU CAN GENERATE THIS STAR MAP WITH"" LITTLE EFFORT. THE STAR MAP CAN BE AS CURRENT AS RIGHT NOW! PLUS"C$" AS":" AN ADDED BONUS"C$" ALL OF THE SOLAR SYSTEM OLATING THE RISING AND SETTING OF THE PLANETS"C$" DISPLAYING":" DATA ABOUT OUR MOON"C$" AND A MODULE FOR PERFORMING ";"MANY TYPES OF ASTRONOMY-":" BASED CALCULATIONS.":::" CENTRAL TO THE THEME OF 'STARBASE 3000'";C$;" IS THE SPICH IS PRE-LOADED WITH OVER 3000 STELLAR OBJECTS. THERE IS":" PLENTY OF ROOM LEFT FOR HUNDREDS OF ADDITIONAL OBJECTS THAT YOU MIGHT":" CHOOSE TO ADD. ";|"OTHER FEATURES INCLUDE MODULES FOR GENERATING NUMEROUS":" REPORTS"C$" CALCUTRONOMY PROGRAM FOR THE APPLE"h" II+"(44)" II"(101)(44)" AND II"(99)". 'STARBASE 3000' WAS DESIGNED TO BE A FUN PROGRAM AS":" WELL AS INSTRUCTIONAL AND FUNCTIONAL. AMONG ITS FEATURES IS THE STARBASE"r" ITSELF"C$" WHDEEP-SKY":" OBJECTS. THESE PROCEDURES WILL BE FOUND BEGINNING ON PAGE 16.":::::::39);"PAGE 5"|6:::::6:6:6:6 PAGE 6 FOLLOWS6$:6.:68:6B:F7L" UTILITIES DIRECTORY (CONT.):":::" SELECTION NUMBETAIL":" UNDER THE SECTION 'INITIALIZING YOUR ENVIRONMENT' ON PAGE 9."5::" SELECTION NUMBER TWO";C$;" 'UPDATE STARBASE'";C$;" WILL DIRECT YOU TO THE SECTION"l6" OF THE PROGRAM WHERE YOU WILL BE ABLE TO ADD";C$;" CHANGE OR DELETE ION"4" OF 'STARBASE 3000'. IT IS HERE THAT YOU TELL THE PROGRAM THE PARTICULARS":" OF WHERE YOU LIVE (LOCATION ON EARTH) AND ANY SPECIAL PRINTER CONTROL":" CODES THAT YOUR PARTICULAR PRINTER NEEDS. ";L5"THIS WILL BE COVERED IN D25);"*";32);"*":26);"********************************"::::4" UTILITIES DIRECTORY:":::" THE UTILITIES DIRECTORY HAS SEVEN DIRECTORY SELECTIONS. SELECTION":" NUMBER ONE 'DEFINE ENVIRONMENT' TAKES YOU TO THE ENVIRONMENTAL SECT*":23);"* :";24);"*":23);"* : 3 PRINT INSTRUCTIONS *":23);"* ENTER :";24);"*":23);"* SELECTION :";24);"*"B323);"* : 4 EXIT STARBASE 3000 *":23);"* :";24);"*":24);"* :";23);"*":":23);"* :";24);"*"123);"* :";24);"*":23);"* : 1 CREATE STAR MAP *":23);"* MAIN :";24);"*":23);"* :";24);"*":23);"* DIRECTORY : 2 UTILITIES *"223);"* :";24);"HE REMAINING 'STARBASE 3000' FUNCTIONS.":" SELECTION FOUR IS SELF-EXPLANATORY.":::26);"********************************" 125);"*";32);"*":24);"*";34);"*":23);"* S T A R B A S E 3 0 0 0 *":23);"*";36);"*":23);"*";36);"*D TYPE A ONE AND THEN PRESS RETURN. YOU HAVE":" ALREADY SELECTED ITEM NUMBER THREE WHICH PRINTED THESE INSTRUCTIONS."/" SELECTING ITEM NUMBER TWO WILL TAKE YOU TO THE UTILITIES DIRECTORY WHICH"0" WILL ALLOW YOU TO ACCESS ALL OF T DIRECTORY IS AUTOMATICALLY DISPLAYED AFTER THE 'STARBASE 3000'":" LOGO AND CREDITS ARE PRESENTED. YOU HAVE ONE OF FOUR CHOICES. IF YOU".z" WANT TO PRINT THE TWO BY FOUR FOOT STAR MAP THEN ENTER SELECTION"|/" NUMBER ONE. YOU WOUL ! 7 EXIT TO MAIN DIR. !":46);"!";31);"!"-46);"+-------------------------------+"::39);"PAGE 4":::::::" MAIN DIRECTORY:"::-:- :-*:-4:-> PAGE 5 FOLLOWS-H:-R:-\:-f:.p" THE MAIN ENVIRONMENTAL DATA !":" !";27);"! !";31);"!"," ! 7 EXIT TO MAIN DIR. ! ! 6 EXIT TO UTILITIES DIR. !":" !";27);"! !";31);"!", PAGE 5>- " +---------------------------+ ! 3 COMPLETE LISTING !":" !";27);"! !";31);"!"+" ! 5 MOON DATA";13);"! ! 4 STARBASE STATISTICS !":" !";27);"! !";31);"!"F," ! 6 CALCULATIONS ! ! 5 ! 1 OBJECTS WITHIN 2 HR. !":" !";27);"! !";31);"!"*" ! 3 CREATE REPORTS ------!-----------+ 2 OBJECTS WITHIN CONST. !":" !";27);"! !";31);"!"K+" ! 4 RISE/SET SOLAR OBJ. ! +-------------------------------+")" !";27);"! ! ! ! GENERATE REPORTS DIRECTORY !":" ! 1 DEFINE ENVIRONMENT ---!-----+ ! !";31);"!":" !";27);"! ! !";31);"!"K*" ! 2 UPDATE STARBASE -----!--------+ ! ! ! !";31);"!":37);"! ! ! +-------------------------------+":20);"+----------------+ ! !"")20);"!";19);"! !":" +-------------+-------------+ ! !":" ! UTILITIES DIRECTORY ! ! !":" !";27);"! ! ! ! ! ! !";31);"!":" !";27);"! ! ! ! ! 3 EXIT TO UTILITIES DIR. !"'" ! 4 EXIT STARBASE 3000 ! ! ! ! !";31);"!":" !";27);"! ! ! ! ! 4 EXIT TO MAIN DIR. !"h(" +---------------------------+ ILL NOTICE THAT ON THE DOUBLE SIDED DISKETTE";C$;" THERE IS ONLY ONE":" WRITE PROTECT NOTCH. THIS IS BECAUSE COMPUTERS WHICH USE THESE DISKS"5G" HAVE DISK DRIVES THAT HAVE TWO READ/WRITE HEADS. THESE DRIVES CAN":" READ EITHER SIDE OFDS. THIS FIRST"En" METHOD IS THE SAFEST. PURCHASE SEVERAL (DOUBLE SIDED - DOUBLE DENSITY)":" DISKETTES. THESE DISKETTES ARE CERTIFIED";C$;" 'ERROR FREE'";C$;" ON BOTH SIDES."Fx" PURCHASE GOOD QUALITY DISKETTES.":::" YOU WS":23);"UPDATE THE STARBASE";C$;" IN WHICH CASE FIRST!":23);"IF THERE SHOULD BE A POWER FAILURE"Ed23);"OR WHATEVER";C$;" YOU WILL HAVE A BACK-":23);"UP OR TWO TO SAVE THE DAY.":::" YOU CAN MAKE YOUR BACKUPS USING TWO DIFFERENT METHO "CP" ":::23);"MAKE SURE THAT YOU MAKE AT LEAST":23);"ONE COPY OF THESE DISKS";C$;" RIGHT PLEASE"iDZ23);"NOW! LATER";C$;" YOU MAY WISH TO DO THIDISK' CONTAINS THE DEEP-SKY OBJECTS (UP TO 7660) WHICH ARE":" THE HEART OF 'STARBASE 3000'. THIS DISK CONTAINS DATA FILES ON BOTH",CF" SIDES OF THE DISKETTE. ":" BY ANY NORMAL COPY"A2" PROGRAM";C$;" SUCH AS THE ONE THAT CAME WITH YOUR APPLE COMPUTER. THE":" PROGRAM DISK CONTAINS ALL OF THE DRIVER PROGRAMS FOR 'STARBASE 3000'."B<" ":::" THE 'DATA ING:":::" YOUR 'STARBASE 3000' ASTRONOMY PROGRAM CAME WITH TWO DISKETTES. ONE"@(" DISKETTE IS LABELED 'PROGRAM DISK' AND THE OTHER DISK IS LABELED 'DATA":" DISK'."A*::" THE 'PROGRAM DISK' AND THE 'DATA DISK' MAY BE COPIED******************************"B?:::::39);"PAGE 6":::H?:N?:T?:Z?:p?: PAGE 7 FOLLOWSv?:|?:? :?:?:::31);"S E C T I O N I I":::" F I R S T T H I N G S F I R S T :"::W@ " DISKS AND COPY : 5 MOON DATA *":23);"* ENTER :";24);"*":23);"* SELECTION : 6 CALCULATIONS *":23);"* :";24);"*"?23);"* : 7 EXIT TO MAIN DIR. *":24);"* :";23);"*":25);"*";32);"*":26);"**;"*":23);"* : 2 UPDATE STARBASE *":23);"* UTILITIES :";24);"*"=23);"* : 3 CREATE REPORTS *":23);"* DIRECTORY :";24);"*":23);"* : 4 RISE/SET SOLAR OBJ.*":23);"* :";24);"*">23);"* ."::::<26);"********************************":25);"*";32);"*":24);"*";34);"*":23);"* S T A R B A S E 3 0 0 0 *":23);"*";36);"*"R=23);"*";36);"*":23);"* : 1 DEFINE ENVIRONMENT *":23);"* :";24) A STAR'S POSITION AT ANY EPOCH AND CALCULATE ITS NEW POSITION FOR ANY";" OTHER EPOCH. THIS MODULE HAS NUMEROUS COMPUTATIONAL FUNCTIONS.":" INSTRUCTIONS CAN BE FOUND BEGINNING ON PAGE 23." <::" SELECTION 7 IS SELF-EXPLANATORYAYS FOR YOU VARIOUS INFORMATION"w:y" ABOUT THE MOON";C$;" SUCH AS ITS PHASES AND UMBRAL ECLIPSES. THIS MODULE":~" BEGINS ON PAGE 22.":::" SELECTION NUMBER SIX";C$;" 'CALCULATIONS'";C$;" ALLOWS YOU TO INPUT SUCH THINGS AS"J;" G";C$;" RIGHT ASCENSION";C$;" AND DECLINATION"9j" FOR ALL OF THE INNER AND OUTER PLANETS PLUS THE MOON AND THE SUN. THIS"9o" SECTION WILL BE FOUND BEGINNING ON PAGE 21.":: :t" SELECTION NUMBER FIVE";C$;" 'MOON DATA'";C$;" DISPL RIGHT ASCENSION OR WITHIN A CONSTELLATION. THIS SECTION CAN BE FOUND":" BEGINNING ON PAGE 19."8`::" SELECTION NUMBER FOUR";C$;" 'RISE/SET SOLAR OBJ.'";C$;" GIVES YOU THE ABILITY TO".9e" DISPLAY OR PRINT THE RISING";C$;" SETTINER THREE";C$;" 'CREATE REPORTS'";C$;" ALLOWS YOU TO GENERATE A NUMBER"7Q" OF HELPFUL REPORTS. YOU CAN GENERATE REPORTS";C$;" FOR EXAMPLE";C$;" FOR ALL"7V" OBJECTS CONTAINED ON THE STARBASE OR FOR ALL OBJECTS WITHIN TWO HOURS OF"i8[" URN"::37);"A NEGATIVE LATITUDE FOR EXAMPLE:":46);"-22 DEGREES ENTER -22 & RETURN"V47);"14 MINUTES ENTER 14 & RETURN":47);"41 SECONDS ENTER 41 & RETURN":::" 3 ENTER YOUR LONGITUDE: THE RANGE FOR LONGITUDE IS 0 TO 180"W&ITUDE IS +90 DEGREES AT"U37);"THE NORTH POLE AND -90 AT THE SOUTH POLE."::37);"FOR EXAMPLE";C$;" DENVER COLORADO IS AT:":37);"LATITUDE +39 DEGREES ENTER 39 & RETURN"WV47);"44 MINUTES ENTER 44 & RETURN":47);"58 SECONDS ENTER 58 & RET IN: DENVER"T37);"COLORADO";C$;" THEN PRESS RETURN. NO COMMAS.":::" 2 ENTER YOUR LATITUDE: APPENDIX 'B' GIVES THE COORDINATES FOR"U14);"DEGREES";16);"MANY MAJOR CITIES.":14);"MINUTES":14);"SECONDS";16);"THE RANGE FOR LATO";C$;" YOU WILL"S" BE ABLE TO SET UP ANY SPECIAL PRINTER CONTROL CODES THAT YOUR PARTICULAR":" PRINTER REQUIRES.":::" YOU WILL BE ASKED SIX QUESTIONS:":: T" 1 ENTER LOCATION: FOR EXAMPLE";C$;" YOU COULD TYPE'"::25);"3 AT THE UTILITY DIRECTORY";C$:28);"SELECT NUMBER 1 'DEFINE"S28);"ENVIRONMENT'":::" YOU ARE NOW INTO THE DEFINE ENVIRONMENT MODULE. IT IS HERE THAT YOU CAN":" TELL 'STARBASE 3000' WHERE YOU LIVE ON THE PLANET EARTH. ALSIALIZING YOUR ENVIRONMENT:":::" BEFORE YOU USE ANY 'STARBASE 3000' FUNCTIONS";C$;" YOU NEED TO INITIALIZE":" THE SYSTEM"::Q25);"1 BOOT THE 'PROGRAM DISK'"::25);"2 AT THE MAIN DIRECTORY";C$;" SELECT"KR28);"NUMBER 2 'UTILITIESLES";C$;" ON BOTH SIDES OF YOUR BACKUP";C$;" WERE"Pj" READ IN ORDER FOR THE PROGRAM TO COMPLETE EITHER MISSION. GOOD LUCK!"::::::39);"PAGE 8":::Pr:P|:P:P:P PAGE 9 FOLLOWSP:P:P:P:Q:::" INITFOR YOUR BACKUPS";C$;" THEN HERE IS HOW YOU CAN"O^" CHECK OUT YOUR COPY. EITHER PRINT A REPORT OF FULL OBJECT LISTING OR":" PRINT A STAR MAP. IF THE PROGRAM DOES NOT CRASH";C$;" THEN THE BACKUP IS"2Ph" GOOD. THIS IS BECAUSE ALL FI THE BACK SIDE AS 'ERROR FREE'. USUALLY ONE TO TWO PERCENT OF YOUR":" DISKETTES WILL HAVE A BAD BACK SIDE. THERE ARE PROGRAMS ON THE MARKET"0OT" THAT WILL CERTIFY THE DISKETTE SURFACE FOR YOU.":::" IF YOU USE THIS SECOND METHOD " USE THE BACK SIDE OF ANY DISKETTE THE SAME AS THE FRONT SIDE AS LONG AS"M@" YOU HAVE A SECOND NOTCH";C$;" AS PREVIOUSLY DESCRIBED. SINCE YOUR NORMAL":" DISKETTES ARE LABELED 'SINGLE-SIDED' THE MANUFACTURER HAS NOT CERTIFIED"NJ" SKETTE JACKET":J16:41);"!":J:36);"---..."L.36);"! . -----------1/2 CIRCLE CUTOUT":36);"! .":17);"NOTCH OUTLINE------!--..."L6J15:41);"!":J:::::" THE SECOND METHOD USES YOUR STANDARD SINGLE-SIDED DISKETTES. YOU CAN"PM; A ONE-HALF CIRCLE OVER THE NOTCH OUTLINE. DO NOT PUNCH A FULL"K"" CIRCLE AS YOU STAND A CHANCE OF CUTTING THE DISK MEDIA ITSELF. SEE":" FIGURE BELOW.":::::14);"----------------------------":41);"!"1L,41);"!":41);"!---------DICH IS OPPOSITE THE ORIGINAL NOTCH";C$;" DIRECTLY ACROSS FROM THE":" ORIGINAL NOTCH. NOW";C$;" WITH A PENCIL";C$;" TRACE THE OUTLINE OF THE NOTCH."::@K" THE EASIEST WAY TO CUT THE NOTCH IS TO USE A 'SINGLE-HOLE' PAPER PUNCH.":" PUNCH:I: I:I:EI:::" DISKS AND COPYING (CONT.):"::I" TO MAKE THE SECOND NOTCH";C$;" USE A SECOND DISKETTE AS A TEMPLET. PLACE":" THIS SECOND DISKETTE OVER THE DISKETTE WHICH YOU ARE MODIFYING SO THAT"J" THE NOTSKETTE OVER.":::15);"ONE MINOR PROBLEM! THE DISKETTE MUST HAVE A NOTCH ON THE":15);"OTHER SIDE OF THE DISKETTE. NO PROBLEM! YOU CAN MAKE"H15);"THIS FIX EASILY."::::::39);"PAGE 7":::H:H:H:H:H PAGE 8 FOLLOWSI THE DISKETTE WITHOUT HAVING THE USER FLIP THE DISK-"G" ETTE OVER";C$;" THUS ONLY ONE NOTCH. THE NORMAL APPLE DRIVES ONLY HAVE ONE":" READ/WRITE HEAD";C$;" SO TO READ THE BACK SIDE OF THE DISKETTE YOU WOULD HAVE"H" TO FLIP THE DI 3 EXIT TO MAIN DIR. *":23);"* ENTER :";24);"*"f*23);"* SELECTION :";24);"*":23);"* :";24);"*":23);"* :";24);"*":24);"* :";23);"*"f425);"*";32);"*":26);"********************************"::g>24);"*"e23);"* CREATE : 1 STANDARD LOCATION *":23);"* :";24);"*":23);"* STAR MAP :";24);"*":23);"* : 2 DIFFERENT LOCATION *"8f 23);"* DIRECTORY :";24);"*":23);"* :";24);"*":23);"* : E 'CREATE STAR MAP DIRECTORY'":::26);"********************************":25);"*";32);"*":24);"*";34);"*"e 23);"* S T A R B A S E 3 0 0 0 *":23);"*";36);"*":23);"*";36);"*":23);"* :";24);"*":23);"* :";:::" P R I N T I N G T H E S T A R M A P :"::c" FROM THE MAIN DIRECTORY SELECT NUMBER 1";C$;" 'CREATE STAR MAP'. THE PLANET":" CALCULATION PROGRAM WILL BE LOADED AND RUN FIRST."::qd" YOU WILL BE PRESENTED WITH TH. THESE VALUES"b" WILL THEN BE USED BY 'STARBASE 3000' IN MANY OF ITS MODULES. YOU MAY":" ALSO CHANGE THE ENVIRONMENTAL DATA AT ANY TIME."::39);"PAGE 10":::b:b:b:b:b PAGE 11 FOLLOWSb:b:b:b:=c 133+ CHAR/LINE.":::" ONCE FINISHED WITH THE QUESTIONS";C$;" YOU WILL BE GIVEN A CHANCE TO REDO"b" YOUR ANSWERS. IF EVERYTHING IS FINE";C$;" THEN YOUR RESPONSES WILL BE SAVED":" TO A FILE AND YOU WILL BE RETURNED TO THE UTILITY DIR2 CHARACTERS/LINE WHICH IS"`" EQUAL TO 17 CHARACTERS/INCH. EQUAL TO 16.5 CHARACTERS/INCH.":" CALLED 'ULTRACONDENSED' PRINT CALLED 'NORMAL COMPRESSED' PRINT":ha" IF MIDDLE SECTION OF STAR MAP DOUBLE SPACES SET PRINTER TO";24);"15 CONTROL O (NOT ZERO)"_12);"81 Q";27);"0 ZERO (END SEQUENCE)":13);"0 ZERO (END SEQUENCE)"`" THIS WILL SET THE PRINTER AT THIS WILL SET THE PRINTER AT":" 136 CHARACTERS/LINE WHICH IS 13 MX-80":" ASCII";30);"ASCII":13);"9 CONTROL I";19);"9 CONTROL I"^12);"49 1";26);"49 1":12);"51 3";26);"51 3":12);"54 6";26);"50 2":12);"78 N";26);"78 N"%_12);"27 ESC TO END THE COMMAND STRING. PLEASE REFER":" TO THE ASCII CHART IN APPENDIX 'C'."]:" EXAMPLES ARE SHOWN FOR THE EPSON MX-80 AND APPLE II";(99);" IMAGEWRITER"Y^" DOT MATRIX PRINTERS."::" IMAGEWRITER";23);" EPSONS. THESE ASCII VALUES REPRESENT YOUR SPECIAL COMMAND"\" PROCEDURE WHICH YOUR PRINTER EXPECTS TO SEE IN ORDER TO PRINT 132":" CHARACTERS (COLUMNS) PER LINE. YOU MAY ENTER UP TO ELEVEN VALUES. THE"W]" LAST CHARACTER MUST BE A ZEROOT REQUIRE SPECIAL CODES."[v" CODES FOR 132 COLUMN":" PRINTING (Y/N)? IF YES";C$;" THEN ENTER Y AND PRESS RETURN."::6\" IF YOU ANSWERED Y (YES) THEN YOU WILL BE PROMPTED TO ENTER A SERIES OF":" ASCII VALUEINTO";C$Zb41);"USUALLY SLOT NUMBER ONE. SOME APPLE":41);"MODELS HAVE SIX I/O SLOTS";C$;" OTHERS HAVE":41);"LESS."::[l" 6 DO YOU NEED TO ENTER ENTER N AND PRESS RETURN IF YOUR PRINTER":" ANY SPECIAL PRINTER DOES N37);"ALL OF THE UNITED STATES IS WEST."::37);"FOR EXAMPLE";C$;" DENVER COLORADO IS WEST."ZX41);"ENTER W AND PRESS RETURN":::" 5 ENTER YOUR PRINTER I/O SLOT: THIS IS ASKING YOU WHICH INPUT/OUTPUT":41);"SLOT YOUR PRINTER IS PLUGGED :X;: X<:X=:)X> PAGE 10 FOLLOWS/X?:5X@:;XA:AXB:XD:::" INITIALIZING YOUR ENVIRONMENT (CONT.):":::" 4 ENTER EAST OR WEST E/W: THIS IS ASKING YOU IF YOU ARE LOCATED"^YN37);"EAST OR WEST OF THE PRIME MERIDIAN."::37);"DEGREES."::37);"FOR EXAMPLE";C$;" DENVER COLORADO IS AT:":37);"LONGITUDE 104 DEGREES":48);"59 MINUTES":48);"22 SECONDS"::W0" HIGHWAY MAPS";C$;" TOPOGRAPHY MAPS";C$;" AND ATLASES GIVE THIS INFORMATION.":::39);"PAGE 9":::X:H AND"X!" ANY SPECIAL PRINTER CONTROL CHARACTERS THAT YOUR PRINTER MAY NEED TO"!" PRINT 132 COLUMNS. THIS MODULE WAS PREVIOUSLY DESCRIBED ON PAGE 9."::::::::::39);"PAGE 14":::!:!:!:!:! PAGE 15 FOLLOWSE MAIN DIRECTORY";C$;" SELECT NUMBER 2 'UTILITIES'. THE UTILITIES"!" DIRECTORY WILL BE DISPLAYED ON THE SCREEN";C$;" AS SHOWN ABOVE.":::" 1 DEFINE ENVIRONMENT:"::" THIS MODULE ALLOWS YOU TO DEFINE YOUR PARTICULAR LOCATION ON EARTTER :";24);"*":23);"* SELECTION : 6 CALCULATIONS *":23);"* :";24);"*":23);"* : 7 EXIT TO MAIN DIR. *"C 24);"* :";23);"*":25);"*";32);"*":26);"********************************":::" FROM TH:23);"* UTILITIES :";24);"*":23);"* : 3 CREATE REPORTS *"|23);"* DIRECTORY :";24);"*":23);"* : 4 RISE/SET SOLAR OBJ.*":23);"* :";24);"*":23);"* : 5 MOON DATA *"23);"* ENh25);"*";32);"*":24);"*";34);"*":23);"* S T A R B A S E 3 0 0 0 *":23);"*";36);"*":23);"*";36);"*":23);"* : 1 DEFINE ENVIRONMENT *"Nr23);"* :";24);"*":23);"* : 2 UPDATE STARBASE *"CENSION AND":" DECLINATION FOR THE DATE INDICATED. THIS INFORMATION IS ESPECIALLY"^" USEFUL WHEN LOCATING A PARTICULAR SOLAR SYSTEM OBJECT WITH A TELESCOPE.":::::" U T I L I T I E S :":::26);"********************************"IN THE TOP SECTION OF THE MAP"J" INDICATES THE LOCATION AND THE DATE FOR WHICH THE MAP WAS GENERATED.":" THE INFORMATION IN THE MIDDLE SECTION OF THE MAP DISPLAYS A LIST OF"YT" THE SOLAR SYSTEM OBJECTS AND THEIR RESPECTIVE RIGHT AS6: 7:8:9:.: PAGE 14 FOLLOWS4;::<:@=:F>:v@:::" STAR MAP INFORMATION BORDER:"E::" ON THE RIGHT-HAND SIDE OF THE STAR MAP";C$;" YOU WILL SEE SEVERAL LINES OF":" TEXT (INFORMATION). THE INFORMATION OBJECTS"e:19);"<1> MERCURY";13);"<6> SATURN"::19);"<2> VENUS";15);"<7> URANUS":"19);"<3> SUN";17);"<8> NEPTUNE"::19);"<4> MARS";16);"<9> PLUTO"::19);"<5> JUPITER";13);" MOON":,:39);"PAGE 13":::":19);". STARS OF MAGNITUDE FROM 6.0 AND DIMMER"::19);(126);" STARS OF VARIABLE MAGNITUDE (SHOWN AS V ON SCREEN)":19);") GALAXIES"::19);"= NEBULA": 19);"^ GLOBULAR/GALACTIC CLUSTERS":::28);"SOLAR SYSTEMRIGHTER THAN 2.0"::19);"* STARS OF MAGNITUDE FROM 2.0 TO LESS THAN 3":19);"X STARS OF MAGNITUDE FROM 3.0 TO LESS THAN 4"::19);"+ STARS OF MAGNITUDE FROM 4.0 TO LESS THAN 5"::19);"' STARS OF MAGNITUDE FROM 5.0 TO LESS THAN 6kx: ky:kz(4);"PR#0"1k(4);"RUN IM003"7k:=k:CkCMk:Sk0YEAR MUST BE FOUR DIGITS. FOR EXAMPLE";C$;" TYPE":18);"1984 AND THEN PRESS RETURN."::::39);"PAGE 11":::xjp:~jq:jr:js:jt CHAIN TO 'IM003' FOR NEXT SECTIONju OF THE INSTRUCTIONS.jv THE NEXT SECTION BEGINS WITH PAGE 12jw: DESCRIBED ON PAGE 9. THE ONLY EXCEPTION IS THAT PRINTER CONTROL CODES":" ARE NOT REQUESTED.":::" AFTER SELECTING EITHER 1 OR 2 FROM THE DIRECTORY";C$;" YOU WILL BE PROMPTED"rjf" FOR THE YEAR";C$;" MONTH";C$;" AND DAY."::18);"THE ":::" SELECTION NUMBER 3 WILL TAKE YOU BACK TO THE MAIN DIRECTORY."hR::" IF YOU SELECT NUMBER 2";C$;" YOU WILL BE ASKED THE SAME TYPE OF INFORMATION":" AS WAS ASKED FOR IN THE ENVIRONMENTAL MODULE. THIS WAS PREVIOUSLY"i\" " SELECTION NUMBER 1 WILL DEFAULT TO THE INFORMATION THAT WAS PREVIOUSLY":" DEFINED IN THE ENVIRONMENTAL SECTION OF 'STARBASE 3000'."KhH::" SELECTION NUMBER 2 WILL PROMPT YOU FOR A NEW LOCATION AND ITS LATITUDE":" AND LONGITUDE.."::1" ADDING OBJECTS IS EASY. THE HARD PART COMES WHEN YOUR DOG STUMBLES OVER":" YOUR POWER CORD AND YOU TRASH YOUR DATA DISK. PLEASE GO TO PAGE 7 AND"T2" MAKE SOME BACKUP COPIES";C$;" RIGHT NOW! IF YOU LOSE POWER WHILE IN TH ADDED TO EACH SIDE OF THE DATA DISK. PLEASE NOTE":" THAT EACH TIME YOU ADD AN OBJECT";C$;" THIS SCREEN WILL BE UPDATED AND"1" DISPLAYED";(59);" THUS YOU WILL ALWAYS KNOW HOW CLOSE YOU ARE TO THE MAXIMUM":" CAPACITY OF THE DATA DISKER THIS MODULE";C$;" YOU WILL BE PRESENTED WITH YOUR STARBASE"/" STATISTICS. THIS DISPLAY WILL TELL YOU HOW MANY OBJECTS ARE CONTAINED":" ON EACH SIDE OF YOUR DATA DISK. YOU WILL ALSO BE INFORMED AS TO HOW"0" MANY OBJECTS CAN BE 3000 OBJECTS. THIS FUNCTION WILL ENABLE YOU TO ADD ADDITIONAL OBJECTS":" TO THE STARBASE. YOU MAY ADD ADDITIONAL OBJECTS UP TO A MAXIMUM OF">/" 7660. I'M SORRY! THE DATA DISK JUST CAN'T HOLD ANY MORE THAN THAT.":::" WHEN YOU ENT*":23);"* :";24);"*":24);"* :";23);"*":25);"*";32);"*"-26);"********************************":::" 1 ADD OBJECTS:"::" AS WAS DISCUSSED IN THE OVERVIEW";C$;" THE STARBASE IS PRE-LOADED WITH OVER":." TORY : 2 CHANGE/DELETE OBJ. *":23);"* :";24);"*",v23);"* :";24);"*":23);"* : 3 EXIT TO UTILITY DIR.*":23);"* ENTER :";24);"*":23);"* SELECTION :";24);"*"R-23);"* : 4 EXIT TO MAIN DIR. E 3 0 0 0 *":23);"*";36);"*"|+b23);"*";36);"*":23);"* :";24);"*":23);"* UPDATE :";24);"*"+g23);"* : 1 ADD OBJECTS *":23);"* STARBASE :";24);"*"?,l23);"* :";24);"*":23);"* DIRECM THE UTILITIES"*N" DIRECTORY";C$;" SELECT NUMBER 2 'UPDATE STARBASE'. THE 'UPDATE STARBASE'":" DIRECTORY IS SHOWN BELOW."::*X26);"********************************"'+]25);"*";32);"*":24);"*";34);"*":23);"* S T A R B A S AND MANY OTHERS.")+:::8)039);"PAGE 15":::>)::D);:J)<:P)=:f)> PAGE 16 FOLLOWSl)?:r)@:x)A:~)B:*D:::" 2 U P D A T E S T A R B A S E :":::" FROM THE MAIN DIRECTORY";C$;" SELECT NUMBER 2 'UTILITIES'. FROLIPSES FOR THE YEAR THAT YOU CHOOSE":22);"MOON PHASES FOR ANY REQUESTED DATE":::)&" 6 CALCULATIONS:"::" VARIOUS CALCULATIONS CAN BE PERFORMED SUCH AS ASTRONOMICAL CONVERSIONS";C$:" TIME CONVERSIONS";C$;" EPOCH CALCULATIONS";C$;"ON";C$;" FOR ANY DATE THAT YOU":" CHOOSE.":::'" 5 MOON DATA:"::" THROUGH THIS MODULE";C$;" YOU ARE ABLE TO LIST TO THE SCREEN OR TO YOUR":" PRINTER THE FOLLOWING INFORMATION ABOUT EARTH'S MOON:":U(22);"UMBRAL LUNAR ECUR STARBASE"5&22);"LIST YOUR ENVIRONMENTAL DATA"&::" 4 RISE/SET SOLAR OBJ.:"::" YOU CAN LIST TO THE SCREEN OR PRINT";C$;" THE VARIOUS RISING";C$;" SETTING";C$;" AND"6'" TRANSITS OF ALL OF THE PLANETS";C$;" SUN";C$;" AND MOITY TO":" PRINT THE FOLLOWING REPORTS:"::22);"LIST ALL OBJECTS WITHIN ANY 2-HOURS OF RIGHT ASCENSION" &22);"LIST ALL OBJECTS WITHIN ANY CONSTELLATION":22);"LIST ALL OBJECTS CONTAINED ON THE STARBASE":22);"LIST THE CURRENT STATISTICS OF YOM THE STARBASE OR AN OBJECT'S DATA MAY"$" BE CHANGED."::::" 3 CREATE REPORTS:"::" THE 'CREATE REPORTS' MODULE PROVIDES THE ABILITY TO GENERATE SEVERAL"n%" PRINTED REPORTS CONCERNING YOUR STARBASE DATA. YOU HAVE THE ABILCAN":" INCLUDE THE FOLLOWING INFORMATION:"::22);"CONSTELLATION WHERE THE OBJECT IS LOCATED"'$22);"OBJECT NAME/NUMBER":22);"MAGNITUDE/TYPE OF OBJECT":22);"RIGHT ASCENSION":22);"DECLINATION"::" PLUS";C$;" OBJECTS CAN BE DELETED FRO": ":":":":::" UTILITIES (CONT.):":::" 2 UPDATE STARBASE:"::" THIS FUNCTION ENABLES YOU TO ADD OBJECTS TO THE STARBASE. THE DATA DISK"d#" HAS THE CAPACITY TO HOLD UP TO 7660 OBJECTS. EACH OBJECT RECORD OR IF YOU KNOW THE CONSTELLATION OF THE OBJECT";C$;" YOU CAN"A" PRINT A LISTING BY CONSTELLATION. THIS WILL SAVE PAPER. THE REASON":" IS THAT YOU MUST INPUT THE OBJECT'S RIGHT ASCENSION AND DECLINATION AS"B" IT IS WITHIN THE ST'."::::" 2 CHANGE/DELETE OBJ.:"::" WITH 'STARBASE 3000' YOU HAVE THE CAPABILITY OF CHANGING AN OBJECT'S">A" DATA OR DELETING AN OBJECT.":::" IMPORTANT: YOU WILL NEED A PRINTOUT OF ALL OF THE STARS ON THE":" STARBASE REJECTING THE DATA. IF YOU ANSWER 'Y'";C$?" THEN THE INFORMATION WILL BE ADDED TO THE STARBASE. YOU WILL BE":" PRESENTED WITH THE UPDATED STATISTICS DISPLAY WHERE YOU MAY ADD ANOTHER"y@" OBJECT OR LEAVE THE 'ADD OBJECTS FUNCTION40);"DECLINATION IN THE RANGE OF +79.6259":40);"TO -79.6259 DEGREES. ANY OBJECT BEYOND":40);"THIS RANGE WILL BE REJECTED."::+?" THE PROGRAM WILL THEN PRESENT YOU WITH A RECAP OF YOUR RESPONSES. YOU":" HAVE THE CHOICE OF ACCEPTING ORD FOR THE OBJECT'S":40);"DECLINATION IN DEGREES";C$;" MINUTES";C$;" AND"=40);"SECONDS. VALID ENTRIES ARE:":47);"DEGREES = +79 TO -79":47);"MINUTES = 0 TO 59":47);"SECONDS = 0 TO 59"::40);"NOTE: THE STARBASE WILL ONLY ACCEPT A"> ASCENSION AND DECLINATION MUST BE FOR"Y<15);"EPOCH 1950.":::39);"PAGE 17":::_<:e<:k<:q<:< PAGE 18 FOLLOWS<:<:<:<:<::J=" ADD OBJECTS (CONT.):":::" DECLINATION:";19);"HERE YOU ARE ASKE;p40);"MINUTES AND SECONDS. VALID ENTRIES":40);"ARE: HOURS = 0 TO 23":47);"MINUTES = 0 TO 59":47);"SECONDS = 0 TO 59"'14);") = GALAXY";16);"A ION: THIS IS THE OBJECT'S COMMON NAME";C$;" SUCH"6 40);"AS THE GREEK ALPHABET";C$;" AN NGC CATALOG":40);"NUMBER";C$;" MESSIER NUMBER (M13)";C$;" OR OTHER":40);"DESCRIPTIVE TERM.":^7*40);"THIS FIELD ALLOWS UP TO TEN CHARACTERS.":: THAT YOU ARE ADDING. CONSTELLA-"5 40);"TION NUMBERS AND NAMES CAN BE FOUND":40);"IN APPENDIX 'A'."::40);"FOR EXAMPLE";C$;" ORION IS CONSTELLATION"=640);"NUMBER 60. YOU WOULD ENTER 60 AND":40);"PRESS RETURN.":::" ENTER DESCRIPT DIRECTORY'. IF YOU ANSWER 'Y' THEN YOU WILL BE":" SYSTEMATICALLY PROMPTED FOR THE FOLLOWING INFORMATION:"!5:" ENTER CONSTELLATION NUMBER: THIS IS THE CONSTELLATION NUMBER OF":40);"THE CONSTELLATION THAT CONTAINS THE":40);"OBJECT:3: 3:3:3:::" ADD OBJECTS (CONT.):":::" AT THE STATISTICS DISPLAY";C$;" YOU ARE PROMPTED WHETHER OR NOT YOU WISH TO"q4" ADD AN OBJECT. IF YOU ANSWER 'N' THEN THE PROGRAM WILL RETURN TO THE":" 'UPDATE STARBASEE 'ADD":" OBJECTS' MODE";C$;" YOU WILL CORRUPT YOUR STARBASE STATISTICS FILE."2:" REMEMBER! THE LIFE YOU SAVE MAY BE YOUR DOG'S..."::26);"N U F F S A I D !":::39);"PAGE 16":::2:2:2:2:2 PAGE 17 FOLLOWS3Q::" PARTICULAR CONSTELLATION'S NUMBER. ENTER THE CONSTELLATION NUMBER AND":" THE PROGRAM WILL DO THE REST. THE REPORT WILL CONTAIN THE SAME TYPE OF"Q" DATA AS DEFINED IN THE REPORT BY RIGHT ASCENSION."aR:::" 3 CO ENTER A CONSTELLATION NUMBER. IF"P" YOU REFER TO APPENDIX 'A' ON PAGE 24";C$;" YOU WILL BE ABLE TO GET A":::39);"PAGE 19":::P:P:P:P:P PAGE 20 FOLLOWSP:P:P:P:Q:::" CREATE REPORTS (CONT.):":)O" 2 OBJECTS WITHIN CONST.:"O:" THIS FUNCTION (PERHAPS THE MOST USEFUL) WILL GENERATE A REPORT OF ALL":" OBJECTS LOCATED WITHIN A PARTICULAR CONSTELLATION. WHEN YOU SELECT"#P" THIS FUNCTION";C$;" YOU WILL BE ASKED TOOWN TO":" -80 DEGREES). THE PROGRAM WILL PRINT UP TO 102 OBJECTS PER PAGE.":" INFORMATION WILL INCLUDE THE OBJECT'S:":O29);"CONSTELLATION NUMBER":29);"DESCRIPTION":29);"MAGNITUDE/SYMBOL":29);"RIGHT ASCENSION":29);"DECLINATION":HAT ARE"ZM" BETWEEN 6 AND 8 HOURS OF RIGHT ASCENSION AND ALSO +80 TO -80 DEGREES"M" OF DECLINATION. THE REPORT IS NOT SORTED";E$;" HOWEVER";C$;" THE OBJECTS WILL"N" GENERALLY BE PRINTED IN DECENDING ORDER BY DECLINATION (+80 DT ASCEN-":" TION. WHEN YOU SELECT THIS FUNCTION";C$;" YOU WILL BE GIVEN A SELECTION OF"M" TWELVE GROUPINGS OF RIGHT ASCENSION RANGES. FOR EXAMPLE";C$;" IF YOU SELECT":" NUMBER 4";C$;" THE PROGRAM WILL PRINT A REPORT OF ALL OBJECTS T23);"* :";24);"*":24);"* : 7 EXIT TO MAIN DIR.";2);"*":25);"*";32);"*":26);"********************************"::^L" 1 OBJECTS WITHIN 2 HR.:"::" THIS FUNCTION WILL GENERATE A REPORT FOR ANY TWO HOURS OF RIGH LISTING *":23);"* :";24);"*":23);"* : 4 STARBASE STATISTICS *"J~23);"* :";24);"*":23);"* ENTER : 5 ENVIRONMENTAL DATA *":23);"* SELECTION :";24);"*":23);"* : 6 EXIT TO UTILITY DIR.*"K;36);"*":23);"*";36);"*":23);"* :";24);"*"Ij23);"* GENERATE : 1 OBJECTS WITHIN 2 HR.*":23);"* :";24);"*":23);"* REPORTS : 2 OBJECTS WITHIN CONST*"\Jt23);"* :";24);"*":23);"* DIRECTORY : 3 COMPLETE DIRECTORY";C$;" SELECT NUMBER 3 'CREATE REPORTS'. THE 'CREATE REPORTS'":" DIRECTORY IS SHOWN BELOW.":::26);"********************************";I`25);"*";32);"*":24);"*";34);"*":23);"* S T A R B A S E 3 0 0 0 *":23);"*"PLE.":::::39);"PAGE 18":::)GB:/GC:5GD:;GE:QGF PAGE 19 FOLLOWSWGG:]GH:cGI:iGJ:GL:::" 3 C R E A T E R E P O R T S :":::" FROM THE MAIN DIRECTORY";C$;" SELECT NUMBER 2 'UTILITIES'. FROM THE UTILITIES"HV" OBJECT IS EVEN EASIER. AT THE PROMPTS";C$;" INPUT THE OBJECT'S"F." RIGHT ASCENSION AND DECLINATION. WHEN THE OBJECT IS DISPLAYED ON THE":" SCREEN";C$;" YOU HAVE THE CHOICE OF DELETING THE OBJECT OR NOT DELETING."#G8" IT'S THAT SIM PROGRAM WILL THEN DO THE REST. NOTE: YOU MAY BE ASKED TO TURN THE":" DATA DISK OVER BECAUSE YOUR NEW CHANGES MAY REQUIRE THAT THE OBJECT BE"AF$" PLACED ON A DIFFERENT DATA FILE. THERE ARE 36 DATA FILES IN ALL.":::" DELETING AN VALUES":" ARE IN DECIMAL FORM. YOU WILL BE PRESENTED WITH THE OBJECT'S DATA IF"D" THAT OBJECT EXISTS ON THE STARBASE. FOLLOW THE PROMPTS TO CHANGE ANY":" DATA FIELD OR TYPE IN A '6' AND QUIT WITHOUT CHANGING ANYTHING. THE"E" E AN OBJECT' AND YOU WILL BE"C" ASKED TO INPUT THE OBJECT'S RIGHT ASCENSION AND DECLINATION. THIS":" INFORMATION WILL BE AVAILABLE ON ANY LISTING (REPORT). TYPE"WD" IN THESE COORDINATES";C$;" EXACTLY AS SHOWN ON THE LISTING. THEARBASE SO THAT 'STARBASE 3000' WILL KNOW WHERE TO":" FIND IT ON THE DATA DISK. THE PROGRAM SEARCHES BY RIGHT ASCENSION AND"C" DECLINATION. SEE 'CREATE REPORTS'";C$;" BEGINNING ON PAGE 19.":::" CHANGING DATA IS EASY. SELECT 'CHANGDULE";C$;" YOU WILL BE GIVEN THE CHOICE OF"a" USING YOUR STANDARD LOCATION OR A NEW";C$;" RANDOM LOCATION. IF YOU SELECT":" THE STANDARD LOCATION";C$;" THEN THE PROGRAM WILL ACCESS THE DATA IN YOUR PRE-"b" DEFINED ENVIRONMENTAL FI S E / S E T S O L A R O B J . :":::" RISE/SET BEGINS THE GROUP OF 'STARBASE 3000'S CALCULATION FUNCTIONS."+a" THIS FUNCTION WILL UTILIZE YOUR PRINTER";C$;" AS THE OUTPUT EXCEEDS THE SCREEN":" CAPACITY. WHEN YOU ENTER THIS MOTS CONTAINED ON"_" YOUR DATA DISK AND HOW MANY MORE OBJECTS YOU CAN ADD. THE RESULTS CAN":" BE DISPLAYED TO YOUR SCREEN OR PRINTER. ALSO YOUR ENVIRONMENTAL DATA"_" CAN BE REPORTED BY SELECTING NUMBER 5.":::z`" 4 R ;" YOU WILL BE PROMPTED TO FLIP THE DATA DISK."::" INCIDENTALLY";C$;" THE STAR MAP IS PRINTED IN THE SAME SEQUENCE."_:::" 4 STARBASE STATISTICS & 5 ENVIRONMENTAL DATA:"::" THIS FUNCTION WILL PRESENT TO YOU THE NUMBER OF OBJEC--------+ DECLINATION"::]" THEREFORE";C$;" THE FULL LISTING READS THE DATA FILES IN ORDER";C$;" BEGINNING":" WITH FILES A1 THRU A12";C$;" THEN FILES B1 THRU B12";C$;" THEN FILES C1 THRU C12."{^" HALF-WAY THROUGH THE PROCESS";C$"!"v\11);"! B1 B2 B3 B4 B5 B6 B7 B8 B9 B10 B11 B12 ! +33.1259 TO -32.6259":11);"!";41);"!":11);"!";41);"!"]11);"! C1 C2 C3 C4 C5 C6 C7 C8 C9 C10 C11 C12 ! -32.6260 TO -79.6259":11);"!";41);"!":11);"+---------------------------------HE SEQUENCE."::[11);"24HRS. ----> RIGHT ASCENSION -------> 0HRS.":11);"+-----------------------------------------+":11);"!";41);"!"\11);"! A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 ! +79.6259 TO +33.1260":11);"!";41);"!":11);"!";41);:: Zx:Zy:Zz:Z{:2Z| PAGE 21 FOLLOWS8Z}:>Z~:DZ:JZ:uZ:::" CREATE REPORTS (CONT.):"[::" IN SUMMARY";C$;" THERE ARE THREE GROUPS OF DATA FILES. THE DIAGRAM WHICH":" FOLLOWS";C$;" MIGHT HELP TO VISUALIZE T - 2 HOURS OF RIGHT ASCENSION.":Yd12);"FILES C1 THRU C12 ARE SEQUENCED THE SAME AS THE 'A' AND 'B' FILES.":12);"THE 'C' FILES HOWEVER";C$;" CONTAIN ALL OBJECTS FROM -32.6260 TO"Zn12);"-79.6250 DEGREES OF DECLINATION.":::::39);"PAGE 20":STARTING AT 22 - 24 HOURS";C$;" WITH"XP12);"FILE B1.":::" SIDE TWO OF THE DATA DISK CONTAINS 18 DATA FILES.":29);"B7 THRU B12":29);"C1 THRU C12":!YZ12);"FILE B7 CONTINUES WITH 10 - 12 HOURS AND SO ON TO FILE B12 WHICH":12);"EQUALS 0ILE A12 WHICH ="W<12);"0 - 2 HOURS OF RIGHT ASCENSION."::12);"FILES B1 THRU B6 WORK THE SAME WAY EXCEPT THE 'B' FILES CONTAIN"%XF12);"ALL OBJECTS FROM -32.6250 TO +33.1250 DEGREES OF DECLINATION.":12);"RIGHT ASCENSION IS AGAIN BY TWOS";C$;" ALL OBJECTS FROM +33.1260 TO +79.6250":12);"DEGREES OF DECLINATION. EACH FILE COVERS TWO HOURS OF RIGHT"W212);"ASCENSION. THUS";C$;" FILE A1 CONTAINS OBJECTS FROM 22 - 24 HOURS OF":12);"RIGHT ASCENSION";C$;" A2 = 20 - 22";C$;" AND SO ON TO THE F.";U29);"A1 THRU A12":29);"B1 THRU B6":29);"UP002"U#:12);"UP002 IS THE STARBASE STATISTICS FILE. THIS FILE CONTAINS":12);"THE TOTAL NUMBER OF OBJECTS CONTAINED ON EACH SIDE OF THE"kV(12);"DATA DISK"::12);"FILES A1 THRU A12 CONTAIN A GENERAL TREND IN":" THE SEQUENCE OF THE REPORT. A SHORT DISCUSSION OF THE STARBASE FILE"U" STRUCTURE IS IN ORDER.":::" THE DATA DISK CAN BE CATALOGED. YOU WILL SEE THAT SIDE ONE OF THE DATA":" DISK CONTAINS 19 DATA FILESF PAPER"S" ON HAND. THIRTY PAGES IS BASED UPON THE PRE-LOADED STARBASE CONTAINING":" OVER 3000 OBJECTS. AS YOU ADD MORE OBJECTS";C$;" THE REPORT WILL GET LONGER."::bT " THE FULL LISTING IS NOT SORTED";E$;" HOWEVER";C$;" THERE ISMPLETE LISTING:"::" THIS FUNCTION WILL GENERATE A REPORT FOR ALL OBJECTS CONTAINED ON THE"S" STARBASE. EACH PAGE OF THE REPORT WILL CONTAIN 108 OBJECTS";C$;" SO THIS":" LISTING WILL BE APPROXIMATELY 29 PAGES LONG. HINT! HAVE LOTS O 30 CRUX";26);"74 SCULPTOR"#v" 31 CYGNUS";24);"75 SCUTUM":" 32 DELPHINUS";21);"76 SERPENS"#" 33 DORADO";24);"77 SEXTANS":" 34 DRACO";25);"78 TAURUS"[$" 35 BERENICES";16);"69 PYXIS":" 26 CORONA AUSTRALIS";14);"70 RETICULUM""b" 27 CORONA BOREALIS";15);"71 SAGITTA":" 28 CORVUS";24);"72 SAGITTARIUS"*#l" 29 CRATER";24);"73 SCORPIUS":" 23);"64 PHOENIX"x!D" 21 CETUS";25);"65 PICTOR":" 22 CHAMAELEON";20);"66 PISCES"!N" 23 CIRCINUS";22);"67 PISCIS AUSTRINUS":" 24 COLUMBA";23);"68 PUPPIS"Y"X" 25 COMA R";19);"59 OPHIUCHUS":" 16 CAPRICORNUS";19);"60 ORION" 0" 17 CARINA";24);"61 PAVO":" 18 CASSIOPEIA";20);"62 PEGASUS"!:" 19 CENTAURUS";21);"63 PERSEUS":" 20 CEPHEUS";ROSCOPIUM"t" 11 CAMELOPARDALIS";16);"55 MONOCEROS":" 12 CANCER";24);"56 MUSCA"" 13 CANES VENATICI";16);"57 NORMA":" 14 CANIS MAJOR";19);"58 OCTANS"L &" 15 CANIS MINO AQUILA";24);"49 LIBRA":" 6 ARA";27);"50 LUPUS"" 7 ARIES";25);"51 LYNX":" 8 AURIGA";24);"52 LYRA" " 9 BOOTES";24);"53 MENSA":" 10 CAELUM";24);"54 MICBER NAME";20);"NUMBER NAME"::" 1 ANDROMEDA";21);"45 LACERTA":" 2 ANTLIA";24);"46 LEO"" 3 APUS";26);"47 LEO MINOR":" 4 AQUARIUS";22);"48 LEPUS"J" 5";C$;" ETC."e:" THE PROGRAM IS LARGE AND WILL TAKE A WHILE TO LOAD.":39);"PAGE 23":::k:q:w:}: PAGE 24 FOLLOWS (APPENDIX A)::::,:::21);"T H E C O N S T E L L A T I O N S"::::" NUM CAN CONVERT TEMPERATURE. ALSO INCLUDED"" ARE USEFUL CHARTS WHICH INCLUDE:"::15);"DECIMAL EQUIVALENTS COOKING MEASURES" 15);"MEASURES OF PRESSURE DRY MEASURES":15);"SURVEYOR'S MEASURES TIME MEASURES ETC FOLLOWING:":15);"VOLUME MEASUREMENTS AREA MEASUREMENTS"15);"WEIGHT MEASUREMENTS LENGTH MEASUREMENTS"::" THERE ARE CONVERSIONS FOR DECIMAL TO HEXADECIMAL AND VISE VERSA";C$;" WITH")" BINARY NOTATION INCLUDED. YOUAM WILL THEN DISPLAY ON YOUR SCREEN";C$;" THE ADJUSTED COORDINATES."|:::" MISCELLANEOUS CONVERSIONS:"::" THIS PROGRAM WILL LET YOU CONVERT JUST ABOUT ANYTHING. YOU CAN CONVERT"C" ENGLISH TO METRIC AND VISE VERSA";C$;" FOR THED"[^" TO INPUT THE FOLLOWING DATA:"::22);"BEGINNING EPOCH (IE) YEAR 1950"h22);"NEW EPOCH (IE) YEAR 2010":22);"RIGHT ASCENSION FOR THE BEGINNING EPOCH"Dr22);"DECLINATION FOR THE BEGINNING EPOCH"::" THE PROGRJ" SOME OTHER STAR WILL ASSUME THE RANK OF 'NORTH STAR'. ANYWAY";C$;" THIS"T" GRADUAL CHANGE OR PRECESSION";C$;" CHANGES THE RIGHT ASCENSION AND DECLINA-":" TION OF THE DEEP-SKY OBJECTS. TO ADJUST FOR THIS CHANGE";C$;" YOU ARE ASKEE THAT THE OBJECT TRANSITS"nd"18);"DECLINATION";14);"TIME THAT THE OBJECT SETS":::39);"PAGE 21":::td$:d%(4);"PR#0"d&(4);"RUN IM004"d,:d-:d.:d/:d0 PAGE 22 FOLLOWSd1:d2:d3:d4: dLL TAKE A FEW MOMENTS TO PERFORM ITS CALCULATIONS";C$;" THEN":" THE FOLLOWING INFORMATION";C$;" FOR EACH SOLAR SYSTEM OBJECT";C$;" WILL BE PRINTED."d:18);"LOCATION AND DATE TIME THAT THE OBJECT RISES":18);"RIGHT ASCENSION TIMILE. THE ONLY ITEMS THAT YOU WOULD THEN NEED TO":" INPUT WOULD BE THE YEAR";C$;" MONTH";C$;" AND DAY. IF YOU SELECT 'RANDOM LOCA-"b" TION'";C$;" THEN ALL DATA FOR LOCATION AND DATE WOULD NEED TO BE ENTERED."::c" THE PROGRAM WI252 785221 GRAND JUNCTION CO 390406 1083354"3B" BURLINGTON ONT 431933 794757 GRAND RAPIDS MI 425803 854013"3D" BURLINGTON VT 442834 731246 GREENSBORO NC 360417 794725"&4F" CALGARY ALTA 510246 114032 400013 1051542 GADSDEN AL 340057 860041"2<" BRATTLEBORO VT 425106 723348 GALLUP NM 353130 1084430"2>" BROCKTON MA 420502 710125 GALVESTON TX 291810 944743"03@" BUFFALO NY 425LOOMINGTON IL 402858 885936 FT. SMITH AR 352310 942536"16" BOISE ID 433707 1161158 FORT WAYNE IN 410421 850826"18" BOSTON MA 422124 710325 FRESNO CA 364412 1194711":2:" BOULDER CO " BINGHAMTON NY 420603 755447 FARGO ND 465230 964718"00" BIRMINGHAM AL 333101 864836 FLAGSTAFF AZ 351136 1113906"02" BISMARCK ND 464823 1004717 FLINT MI 430050 834133"D14" B00457"X/(" BERKELEY CA 375210 1221617 EUGENE OR 404808 1240946"/*" BETHLEHEM PA 403716 752234 EVANSVILLE IN 375820 873421"/," BILLINGS MT 454700 1083004 FAIRBANKS AK 644800 1475100"N0. 314536 1062911"b."" BAY CITY MI 433604 835315 ELIZABETH NJ 403943 741259".$" BELLEVILLE ONT 440942 772311 ENID OK 362340 975235"/&" BELLINGHAM WA 484534 1222836 ERIE PA 420715 8NC 360000 785445"l-" BANGOR ME 444813 684618 EAU CLAIRE WI 444831 912949"-" BATON ROUGE LA 302658 911100 EDMONTON ALTA 533243 1132921". " BATTLE CREEK MI 421858 851048 EL PASO TX DETROIT MI 421948 830257"v," AUSTIN TX 301609 974437 DODGE CITY KS 374517 1000109"," BAKERSFIELD CA 352231 1190118 DULUTH MN 464656 920624"-" BALTIMORE MD 391726 763645 DURHAM 0 842337 DAYTONA BEACH FL 291244 810110"+" ATLANTIC CITY NJ 392132 742553 DECATUR IL 395042 885647"+" AUGUSTA GA 332820 815800 DENVER CO 394458 1045922"$," AUGUSTA ME 441853 694629 421659 834452 DARTMOUTH NS 443950 633408"* " ASHEVILLE NC 353542 823326 DAWSON YUKON 640330 1392600"* " ASHLAND KY 382836 823823 DAYTON OH 394532 841143".+" ATLANTA GA 33451OONA PA 403055 782403 COLUMBUS GA 322807 845924")" AMARILLO TX 351227 1015004 CONCORD NH 421222 713225")" ANCHORAGE AK 611000 1495900 DALLAS TX 324709 964737"8*" ANN ARBOR MI " ALBANY NY 423901 734501 CLEVELAND OH 412951 814150"(" ALBUQUERQUE NM 350501 1063905 COLORADO SPGS CO 385007 1044916"(" ALLENTOWN PA 403611 752806 COLUMBIA SC 340002 810200"B)" ALT CITY LAT N LONG W"V'24);"DDMMSS DDDMMSS";22);"DDMMSS DDDMMSS":'" ABILENE TX 322705 994351 CHICAGO IL 415228 873822"'" AKRON OH 410500 813044 CINCINNATI OH 390607 843035"L(::::27);"APPENDIX A PAGE 24":::.&:4&::&:@&:c& PAGE 25-A APPENDIX B FOLLOWSi&:o&:u&:{&:&:::26);"L A T I T U D E / L O N G I T U D E":32);"NORTH AMERICAN CITIES":#'" CITY LAT N LONG W 40 HERCULES";22);"84 URSA MINOR"%" 41 HOROLOGIUM";20);"85 VELA":" 42 HYDRA";25);"86 VIRGO"%" 43 HYDRUS";24);"87 VOLANS":" 44 INDUS";25);"88 VULPECULA"(&:::: EQUULEUS";22);"79 TELESCOPIUM":" 36 ERIDANUS";22);"80 TRIANGULUM"$" 37 FORNAX";24);"81 TRIANGULUM AUSTRALE":" 38 GEMINI";24);"82 TUCANA"0%" 39 GRUS";26);"83 URSA MAJOR":" 350846 900313 ROANOKE VA 371613 795644"C" MEXICO CITY MEX 192545 990700 ROCHESTER MN 440121 922803"C" MIAMI FL 254637 801132 ROCKFORD IL 421607 890548"/D" MILWAUKEE WI 4302CON GA 325012 833736 REGINA SASK 502702 1043630"B" MADISON WI 430423 892255 RENO NV 393127 1194840"B" MANCHESTER NH 425928 712741 RICHMOND VA 373215 772609"9C" MEMPHIS TN " LOS ANGELES CA 340315 1181428 RACINE WI 424349 874712"A" LOUISVILLE KY 381447 854549 RAPID CITY SD 440452 1031311"A" LUBBOCK TX 333505 1015033 RALEIGH NC 354638 783821"CB" MA1900"W@" LITTLE ROCK AR 344442 921637 PROVO UH 401406 1113924"@" LONDON ONT 425917 811403 PUEBLO CO 381617 1043633"@" LORAIN OH 412805 821049 QUEBEC CITY QUE 464851 711230"MA433933 701519"a?" LEXINGTON KY 380250 842946 PORTLAND OR 453106 1224035"?" LIMA OH 404435 840620 PORTSMOUTH VA 365007 761814"@" LINCOLN NE 404859 964215 PRINCE RUPERT BC 541900 130G PA 402619 800000"k>" LAS VEGAS NV 361020 1150837 PITTSFIELD MA 422653 731514">" LAVAL QUE 453305 734442 PORT ARTHUR TX 295230 935615"?" LETHBRIDGE ALTA 494138 1124958 PORTLAND ME PHILADELPHIA PA 395658 750921"u=" LANSING MI 424401 843315 PHOENIX AZ 332712 1120428"=" LAREDO TX 273022 993030 PIERRE SD 442218 1002054">" LA SALLE QUE 452530 733930 PITTSBUR 814812 PADUCAH KY 370513 883556"<" KITCHENER ONT 432658 802912 PATERSON NJ 405501 741021"<" KNOXVILLE TN 355739 835507 PEORIA IL 404142 893533"#=" LAFAYETTE IN 402511 865339 421729 853514 OMAHA NE 411542 955614";" KANSAS CITY MO 390456 943520 ORLANDO FL 283242 812238";" KENOSHA WI 423543 875011 OSHAWA ONT 435346 785157"-<" KEY WEST FL 243330EY CITY NJ 404350 740356 NORFOLK VA 365110 761721":" JOHNSTOWN PA 401935 785503 OAKLAND CA 374803 1221554":" JOPLIN MO 370526 904211 OKLAHOMA CITY OK 352826 973104"7;" KALAMAZOO MI IOWA CITY IA 413937 913153 NEW YORK NY 404506 735939"9" JACKSON MI 421443 842422 NIAGARA FALLS NY 430534 790326"9" JACKSON MS 321756 901106 NOME AK 643000 1652500"A:" JERSPPENDIX B FOLLOWS8k:8l:#8m:)8n:t8z:::" LATITUDE/LONGITUDE (CONT.) NORTH AMERICAN CITIES"::8" CITY LAT N LONG W CITY LAT N LONG W"824);"DDMMSS DDDMMSS";22);"DDMMSS DDDMMSS":K9" 822633"Z7Z" CHEYENNE WY 410809 1044907 INDIANAPOLIS IN 394607 860946"7\:" DD = DEGREES MM = MINUTES SS = SECONDS N = NORTH W = WEST"::27);"APPENDIX B PAGE 25-A":::7f:7g:7h:7i:8j PAGE 25-B A 194330 1550524"d6T" CHARLESTON WV 382101 813752 HONOLULU HI 211822 1575135"6V" CHARLOTTE NC 351344 805045 HOUSTON TX 294526 952137"7X" CHATTANOOGA TN 350241 851832 HUNTINGTON WV 382512 TON ONT 431520 795230"n5N" CEDAR RAPIDS IA 415801 913953 HARRISBURG PA 401543 765259"5P" CHAMPAIGN IL 400705 881448 HARTFORD CT 414612 724049"6R" CHARLESTON SC 324635 795553 HILO HI 4 GREENVILLE SC 345050 822401"x4H" CAMDEN NJ 395641 750714 GROVE CITY PA 410524 800300"4J" CANTON OH 404750 812237 GULFPORT MS 302204 890536"5L" CARSON CITY NV 391000 1194600 HAMILMPA FL 275658 822725 YUMA AZ 324254 1143724"Sd" TEXARKANA TX 332548 940230 ZANESVILLE OH 395618 820030"Sf::23);"WORLD CITIES S = NEGATIVE LATITUDE":#Th" ABALA NIGER 143336N 031536E " SYRACUSE NY 430304 760914 YONKERS NY 405555 735354"R^" TACOMA WA 471459 1222615 YORK PA 395735 764336"R`" TALLAHASSEE FL 302630 841656 YOUNGSTOWN OH 410557 803902"CSb" TA0210"WQV" STUBENVILLE OH 402142 803653 WINSTON-SALEM NC 360552 801442"QX" STOCKTON CA 375730 1211716 YAKIMA WA 463609 1203039"QZ" SUPERIOR WI 464314 920607 YELLOWKNIFE NWT 622815 1142200"MR\374130 972016"aPP" SPRINGFIELD MO 371303 931732 WILKES-BARRE PA 411432 755317"PR" SPRINGFIELD OH 395538 834829 WILMINGTON DE 394446 753251"QT" STAMFORD CT 410309 733224 WINDSOR ONT 421856 83 WV 400403 804320"kOJ" SPARTANBURG SC 345703 815606 WHITEHORSE YUKON 604315 1350315"OL" SPOKANE WA 473932 1172533 WHITE PLAINS NY 410200 734548"PN" SPRINGFIELD IL 394758 893851 WICHITA KA WALLA WALLA WA 460408 1182024"uND" SIOUX FALLS SD 433235 964335 WASHINGTON DC 385351 770033"NF" SUMMERVILLE MA 422315 710607 WATERLOO LA 422940 922020"OH" SOUTH BEND IN 414033 861501 WHEELING 1222012 UTICA NY 430612 751333"M>" SHEBOYGAN WI 434503 874252 VANCOUVER BC 491856 1230444"M@" SHERIDAN WY 444755 1065710 WACO TX 313312 970800"#NB" SHREVEPORT LA 323046 934458 320442 810537 TROY NY 424345 734058"L8" SCHENECTADY NY 424842 735542 TUCSON AZ 321315 1105808"L:" SCRANTON PA 412432 753946 TULSA OK 360912 955934"-M<" SEATTLE WA 473632A FE NM 354111 1055610 TOLEDO OH 413914 833239"K2" SARASOTA FL 272005 823230 TORONTO ONT 433910 792300"K4" SASKATOON SASK 520749 1063935 TRENTON NJ 401314 744613"7L6" SAVANNAH GA RTH AMERICAN CITIES"::jJ" CITY LAT N LONG W CITY LAT N LONG W"J$24);"DDMMSS DDDMMSS";22);"DDMMSS DDDMMSS":J." SANTA CRUZ CA 365818 1220118 THUNDER BAY ONT 482256 891446"AK0" SANT:" DD = DEGREES MM = MINUTES SS = SECONDS N = NORTH W = WEST"::27);"APPENDIX B PAGE 25-B":::I:I:I:I:I PAGE 25-C APPENDIX B FOLLOWSI:I:I:I:J:::" LATITUDE/LONGITUDE (CONT.) NO171728"YH" NEW BRITAIN CT 414008 724659 SAN DIEGO CA 324253 1170921"H" NEW HAVEN CT 411825 725530 SAN FRANCISCO CA 374639 1222440"H" NEW ORLEANS LA 295653 900410 SAN JUAN PR 182700 660415"yIT 404523 1115326"cG" NASHVILLE TN 360933 864655 SAN ANGELO TX 312739 1002603"G" NATCHEZ MS 313348 912330 SAN ANTONIO TX 292537 982906"H" NEWARK NJ 404414 741019 SAN BERNARDINO CA 340630 1UL MN 445719 930607"mF" MONTREAL QUE 453033 733314 SALEM OR 445624 1230159"F" MOOSE JAW SASK 502334 1053204 SALINA KS 385036 973646"G" MUNCIE IN 401128 852316 SALT LAKE CITY U ST. JOHN'S NFLD 473400 524330"wE" MOLINE IL 413031 903049 ST. JOSEPH MO 394557 945102"E" MONTGOMERY AL 322233 861831 ST. LOUIS MO 383745 901222"F" MONTPELIER VT 441536 723441 ST. PA19 875415 SACRAMENTO CA 383457 1212941"D" MINNEAPOLIS MN 445857 931543 SAGINAW MI 432552 835605"D" MINOT SD 481409 1011738 ST. CLOUD MN 453400 941924"%E" MOBILE AL 304136 880233z"#?     ! ΰ"Ұ !Ӡ"ŲͰeͰ^ͰTͰ- pION SOME TYPE OF NOTATION SUCH AS:"::27);"H4383":31);"GAMMA":35);"H4321DELTA"E42);"SIRIUS":46);"----------":" WHERE POSSIBLE";C$;" A DESCRIPTIVE TERM IS USED. FOR INSTANCE";C$;" GREEK TERMS"2 J" ARE USED";C$;" FOLLOWED BY FLAMTARBASE 3000' IS PRE-LOADED WITH OVER 3000 DEEP-SKY OBJECTS. EACH"6" OBJECT HAS FIVE DATA ELEMENTS AS DESCRIBED ON PAGE 17. THE KEY TO";" DESCRIPTIVE TERMS IS THE TOPIC OF THIS DISCUSSION. EACH OBJECT HAS AS"T@" ITS DESCRIPTAM PUBLISHING CO."^57);"NEW YORK";C$;" NY 1984"::::27);"APPENDIX D PAGE 27":::d":j#:p$:v%:& PAGE 28 APPENDIX E FOLLOWS':(:):*:,:::21);"O B J E C T D E S C R I P T I O N K E Y"::C1" 'S;C$;" CA 1982"" COMPUTER":::" THE NEW SOLAR SYSTEM BEATTY";C$;" O'LEARY";C$;" CAMBRIDGE UNIV. PRESS"34);"CHAIKIN";16);"CAMBRIDGE";C$;" MA 1982"::" STARWATCH";13);"MEYER";C$;" BEN";13);"PUTNOVER PUBLICATIONS";C$;" INC"" HANDBOOK";37);"NEW YORK";C$;" NY 1978":" VOL 1";C$;" 2";C$;" 3":: " CELESTIAL BASIC BURGESS";C$;" ERIC SYBEX INC.":" ASTRONOMY ON YOUR";28);"BERKELEY" PLANETS"::u" ASTRONOMICAL FORMULA MEEUS";C$;" JEAN WILLMAN - BELL";C$;" INC."" FOR CALCULATORS";30);"RICHMOND";C$;" VA 1982"::" BURNHAM'S CELESTIAL BURNHAM JR";C$;" ROBERT DATLAS 2000.0 TIRION";C$;" WIL ESSEX PUBLISHING CO.":::" HANDBOOKS/TEXTS:"::" A FIELD GUIDE TO MENZEL";C$;" DONALD H. HOUGHTON-MIFFLIN CO."" THE STARS AND";32);"BOSTON";C$;" MA 1964":" TELLSTAR SCHARF SOFTWARE SYSTEMS BOULDER";C$;" CO 1984":::" ATLASES:"::" HANDBOOK OF THE VEHRENBERG";C$;" BLANK DUSSELDORF"C" CONSTELLATIONS";30);" W. GERMANY 1977":::" SKY MONTHLY PUBLICATIONS:"::" ASTRONOMY MAGAZINE ASTROMEDIA CORP. MILWAUKEE";C$;" WI 53202":" SKY & TELESCOPE SKY PUBLISHING CO. CAMBRIDGE";C$;" MA 02238":" MAGAZINE":::L" SOFTWARE:"::" BEGINS WITH PAGE 26 APPENDIX C$Z:*Z:0Z:AZ(4);"PR#0"WZ(4);"RUN IM005"]Z:cZ AGE 26 APPENDIX CZ:Z:Z:Z(4);"PR#0"Z(4);"RUN IM005"Z:Z I A CHINA 243036N 1140748E"xY:::" DD = DEGREES MM = MINUTES SS = SECONDS N = NORTH W = WEST"Y56);"S = SOUTH E = EAST":27);"APPENDIX B PAGE 25-C":::Y:Y:Y:Y:Y CHAIN TO 'IM005'Z NEXT SECTION IDA NIHON JA 360112N 1390112E"tX" LIMAN USSR 492136N 361612E ZHUJIAWAN CHINA 303336N 1140600E"X" LONDON ENGLAND 513000N 000000 LINE ISLANDS 000300N 1570000W"Y" MALELA ZAIRE 021648S 260524E LUOBAYO JAPAN 354500N 1394500E"uW|" HILLSBOROUGH IRE 541648N 060300W WALLDORF GERMANY 491048N 082248E"W~" JERUSALEM ISRAEL 314700N 351300E WARSAW POLAND 521500N 210000E"X" JOHANNESBURG S.AF 261000S 280200E YOSHDNEY AUSTRALIA 335200S 1511200E"vVv" CERDON FRANCE 472248N 021312E TAKAHAMA NINON JA 370000N 1362736E"Vx" COVENTRY ENGLAND 521500N 011800W TEL AVIV 320300N 342848E" Wz" GRAFTON AUSTRALIA 292436S 1523336E TOKEKING CHINA 395400N 1162800E"wUp" BERLIN GERMANY 523200N 132500E RIO DE JANEIRO BR 225343S 431322W"Ur" BETANZOS BOLIVIA 192024S 651612W ROME ITALY 415300N 123000E"!Vt" CAIRO EGYPT 300148N 310900E SIMOSCOW USSR 554500N 374200E"xTj" ADELAIDE S.AFR 322512S 261200E NEW DELHI INDIA 283800N 771200E"Tl" ATHENS GREECE 375800N 234400E PARIS FRANCE 485014N 022014E""Un" BAGHDAD IRAQ 331236N 441500E PTTE RETURNED. TO RECEIVE REPLACEMENT DISKETTES";C$;" FOUR"/]" CRITERIA MUST BE MET:"::21);"1 THE WARRANTY CARD MUST BE OR HAVE"/b25);"BEEN RETURNED TO THE DATA RESERVE":0g21);"2 SEND AN ORIGINAL OR COPY OF THE":25);"SALES RECE DEFECTIVE DISKETTES MAY BE RETURNED FREE OF CHARGE WITHIN 90 DAYS".N" FROM DATE OF PURCHASE. AFTER THE INITIAL 90 DAY WARRANTY PERIOD";C$.S" DEFECTIVE DISKETTES MAY BE RETURNED FOR A REPLACEMENT FEE OF $10.00";/X" FOR EACH DISKER ANY DIRECT";C$;" INDIRECT";C$;" INCIDENTAL OR CONSEQUENTIAL";C$-:" SPECIAL OR EXEMPLARY DAMAGES";C$;" REGARDLESS OF ITS HAVING BEEN ADVISED"-?" OF THE POSSIBILITY OF SUCH DAMAGES.":::-D30);"---- RETURN POLICY ----":C.I" RMS OF CORRECTNESS";C$;" ACCURACY";C$;" RELIABILITY";C$,+" CURRENTNESS";C$;" OR OTHERWISE";(59);" AND THE PURCHASER RELIES ON THE PROGRAMS",0" AND THE RESULTS SOLELY AT HIS OWN RISK. THE DATA RESERVE ASSUMES NO"A-5" LIABILITY FOUALITY AND PERFORMANCE IS ASSUMED BY THE"+" PURCHASER. THE DATA RESERVE DOES NOT GUARANTEE";C$;" WARRANT";C$;" NOR MAKE"+!" ANY REPRESENTATION REGARDING THE USE OF";C$;" OR THE RESULTS OF THE USE"7,&" OF";C$;" THE PROGRAMS IN TE" TO ENSURE PROOF OF ORIGINAL PURCHASE THE OWNER WARRANTY CARD SHOULD"* " BE COMPLETED AND RETURNED TO THE DATA RESERVE."::*" THE DATA RESERVE PROGRAMS ARE LICENSED ON AN 'AS IS' BASIS. THE")+" ENTIRE RISK AS TO THEIR QPLACE OR"Y)" REPAIR THE MEDIUM AT ITS OWN OPTION WITHOUT CHARGE TO THE ORIGINAL")" PURCHASER. THE SOLE AND EXCLUSIVE REMEDY IN THE EVENT OF A DEFECT")" IS LIMITED TO REPLACEMENT OR REPAIR OF THE MEDIUM AS PROVIDED ABOVE."L*E RECORDING"b(" MEDIUM (DISKETTE) ONLY";C$;" NOT TO THE INFORMATION ENCODED ON IT. IF A"(" DEFECT IN THE MEDIUM SHOULD OCCUR DURING THIS PERIOD";C$;" THE MEDIUM MAY" )" BE RETURNED TO THE DATA RESERVE. THE DATA RESERVE WILL RE RECORDED IS WARRANTED TO BE"l'" FREE OF DEFECTS IN MATERIALS AND WORKMANSHIP UNDER NORMAL USE FOR"'" A PERIOD OF 90 DAYS FROM DATE OF PRODUCT PURCHASE. THIS LIMITED" (" WARRANTY APPLIES TO THE ORIGINAL PURCHASER ONLY AND TO THY ON PAGE 27."&J19::JD&27);"APPENDIX E PAGE 28":::J&:P&:V&:\&:}& PAGE 29 APPENDIX F FOLLOWS&:&:&:&:&::::28);"STATEMENT OF LIMITED WARRANTY":::'" THE MEDIUM ON WHICH YOUR PROGRAM(S) ISCOULD BE FOUND IN THE ATLASES."::%" THE TWO PRIMARY SOURCES FOR THE STARBASE DATA WERE:"::23);"HANDBOOK OF THE CONSTELLATIONS"%35);"AND":23);"BURNHAM'S CELESTIAL HANDBOOK":&" THESE PUBLICATIONS ARE NOTED IN THE BIBLIOGRAPHOLLOW THE NUMBER SYSTEM IN THE NEW GENERAL"|$" CATALOG (NGC). OTHER NOMENCLATURE SUCH AS (M33) FOLLOW THE MESSIER"$" NUMBERING SCHEME. SOME OBJECTS ARE DESCRIBED WITH ----------. THIS"#%" INDICATES THAT NO NAME OR IDENTIFIER 16);"JAC W.S. JACOB PHI W.S. FINSEN"#::" DESIGNATION FOR VARIABLE STARS FOLLOW THE STANDARD ALPHABETICAL ORDER."::33);"R - Z"#32);"RR - ZZ":32);"AA - QZ":32);"V256...":+$" GALACTIC/GLOBULAR CLUSTERS F"m16);"H W. HERSCHEL SH J. SOUTH & T. HERSCHEL""r16);"HO G.W. HOUGH BETA S.W. BURNHAM""w16);"HU W.J. HUSSEY LAMBDA T.J. SEE""|16);"I R.T.A. INNES EPSILON F.G.W. STRUVE"9#VERER LIST FOLLOWS:":!^16);"A R.G. AITKEN KNT G. KNOTT":16);"AC ALVAN CLARK KPR G.P. KUIPER"!c16);"B W.H. VAN DEN BOS R H.C. RUSSELL"!h16);"BRS BRISBANE OBSERV. RST R.A. ROSSITER"DSTEED NUMBERS";C$;" FOR MOST OF THE BRIGHT STARS." O" FOR DOUBLE STARS";C$;" THE NUMBERING SYSTEM IN AITKEN'S NEW GENERAL CATALOG" T" IS EMPLOYED. FOR THE SOUTHERN DOUBLES";C$;" THE NAME OF THE DISCOVERER IS"!Y" USED. THE DISCO.0010((2A3RA)(A2RA)):Q4.0005((A1RA)(2A2RA))f" TPP1P2P3P4P5P6P7P8P9Q1Q2Q3Q4s"J1JDTPy" "*:"4:"> 1ST & LAST QTR'#HP1(.1721(.0004T1))(A1RA):P2.0021((2A1)RA):P3.6280(A2RA):P4.0089((2A2)RA):P5.A):P2.0021((2A1)RA):P3.4068(A2RA):P4.0161((2A2)RA):P5.0004((3A2)RA)!P6.0104((2A3)RA):P7.0051((A1A2)RA):P8.0074((A1A2)RA):P9.0004((2A3RA)(A1RA)):Q1.0004((2A3RA)(A1RA))8"Q2.0006((2A3RA)(A2RA)):Q3***********************$ L11CCN  ***********************************T :| O1$(L1):O2$(L1):O3$(L1):O4$(L1) L88L80:(12) :: L8L81 L1 D$;"PR#0":70 990  NEW & FULLV!P1(.1734(.000393T1))(A1RINTER ON":12:7:"PRESS RETURN WHEN FINISHED ";AN$:SQ8:^bD$;"PR#";SS:(12):(9);"80N"l:27);"M O O N ' S P H A S E S":34);"FOR ";CC;" CYCLES":" UNIVERSAL TIME": v ************"M1$" "DA$" "YY$" "X1$"H "X4$"M "X7$"S"O4$(L2)" LAST QUARTER "DN$" "M1$" "DA$" "YY$" "X1$"H "X4$"M "X7$"S"SW1&L10::L2D:NSP2SQ81890:X:G$:9:12:"TURN PR "DN$" "M1$" "DA$" "YY$" "X1$"H "X4$"M "X7$"S"O2$(L2)" FIRST QUARTER "DN$" "M1$" "DA$" "YY$" "X1$"H "X4$"M "X7$"S"9O3$(L2)" FULL MOON "DN$" "JUN":1730 |M1$"JUL":17304M1$"AUG":1730HM1$"SEP":1730\M1$"OCT":1730pM1$"NOV":1730~M1$"DEC":M12.5YYZ54716:1750YYZ54715YY$(YY):L11780,1790,1800,1810SO1$(L2)" NEW MOONZ713.5M1Z71:1570#M1Z713)":P,L11L21M1MD2D2.039::11006M11600,1610,1620,1630,1640,1650,1660,1670,1680,1690,1700,1710@M1$"JAN":1730JM1$"FEB":1730TM1$"MAR":1730^M1$"APR":1730hM1$"MAY":1730 rM1$H.041666667):X2.041666667X1:X3DHX2YX4(X3.000694444):X5.000694444X4:X6X3X5qX7(X6.000011574)X1$(X1):(X1$)2XB$X1$:X1$"0"XB$X4$(X4):(X4$)2XB$X4$:X4$"0"XB$X7$(X7):(X7$)2XB$X7$:X7$"0"XB$::1440FZ2299161Z3((Z1867216.25)36524.25):Z2Z1Z3(Z34)Z4Z21524:Z5((Z4122.1)365.25):Z6(365.25Z5):Z7((Z4Z6)30.6001)Z8Z4Z6(30.6001Z7)Z1:DA(Z8):DHZ8DADA$(DA):(DA$)2DB$DA$:DA$"0"DB$:'X1(DA2A4A6eFA421.2964(390.67050646K)(.0016528T2)(.00000239T3):A5(A4360):A6A5360:A3A4A6kP:ZL11L13İ2030:1400d2120n:xW1J11.5:W2(W17):W3W27:W4W1W3:W5(W4):2230J2J1.5:Z(J2):Z1J2ZZ2299161Z2Z)(.0001178T2)(.000000155T3).00033(166.56(132.87T).0009173T2)M(:2A4359.2242(29.10535608K)(.0000333T2)(.00000347T3):A5(A4360):A6A5360:A1A4A6<A4306.0253(385.81691806K)(.0107306T2)(.00001236T3):A5(A4360):A6A5360:ER7ė:9:10:"WRONG DISK OR SIDE":5:3TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:3rER77AA(0):3|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM": CRASH - REBOOT PROGRAM":U2:#2(9);"40N":(4);"PR#0"52J110:G$:2:9:9:"TURN PROGRAM DISK OVER"::9:"TO (";::"SIDE 1";::")":::27:"PRESS RETURN WHEN FINISHED";AN$:21:9::"LOADING MAIN DIRECTORY"::(4);"RUN MA001,V250"22@ER(222)*3J" THE PROGRAM DISKETTE (BOTH SIDES) AND/OR DATA DISKETTE (BOTH SIDES)"1" FOR A FEE OF $10.00 FOR EACH DISKETTE. ITEMS 1 AND 2 OF THE CRITERIA"1" ABOVE MUST ALSO BE MET."::27);"APPENDIX F PAGE 29":::1:1:1:2:IPT FOR THIS PRODUCT":I0l21);"3 RETURN THE ORIGINAL DISKETTE(S)":0q21);"4 REMIT REPLACEMENT FEE IF APPLICABLE":::0v30);"---- BACKUP POLICY ----":0{" ONLY THE ORIGINAL PURCHASER IS ENTITLED TO RECEIVE ONE (1) BACKUP OF"L1.7645"nU50000&"xU(B$)"Y"ī218001"U201007"UJ"UN$(37):50232`"U(N$(37),33)::p"UBA.033818{"U50000"U(B$)"Y"ī21900"U20300"U"UN$(38):50232""V(N$(38),33)::",VBA.061023"6V50000"@V(B$)"Y"ī22000#JV$(33):50232"!T(N$(33),23)::4!TBA.00378543?!T50000T!T(B$)"Y"ī21600_!T20100e!Tx!TN$(34):50232!T(N$(34),26)::!UBA.028316! U50000!U(B$)"Y"ī21700!U20100!(U!2UN$(35):50232!ZU(N$(35),27)::"dUBA0 S(B$)"Y"ī21300! S20100' S: SN$(31):50232P S(N$(31),36)::` SBA.352379k S50000 S(B$)"Y"ī21400 S20100 S TN$(32):50232 .T(N$(32),26):: 8TBA7.645 BT50000 LT(B$)"Y"ī21500 VT20100 `T !jTNR(N$(28),20)::"RBA28.316-R50000BR(B$)"Y"ī21100MR20100SRfRN$(29):50232|S(N$(29),22):: SBA.0378543S50000 S(B$)"Y"ī21200*S201004S>SN$(30):50232fS(N$(30),25)::pSBA.28316 zS500020800Q20100Q*QN$(26):50232@Q(N$(26),16)::OQBA.94636ZQ50000oQ(B$)"Y"ī20900zQ20100RRN$(27):50232:R(N$(27),17)::DRBA3.78543NR50000XR(B$)"Y"ī21000bR20100lRvRN$(28):502323)::PBA16.387 P500005P(B$)"Y"ī20600@P20100FPYPN$(24):50232oQ(N$(24),32)::|QBA3.69"Q50000,Q(B$)"Y"ī207006Q20100@QJQN$(25):50232rQ(N$(25),22)::|QBA.016387Q50000Q(B$)"Y"1A15ī20300oOA21900,22000,22100,22200,22300,22400,22500,22600,22700,22800,22900,23000,23100,23200,20000uPPN$(22):50232FP(N$(22),33)::PPBA29.57ZP50000dP(B$)"Y"ī20500nP20100xPPN$(23):50232P(N$(23),320000!pN(A$)20100,20300,300,N501609NJ2236DNN$(J)KNJRNAgNA1A15ī20100NA20500,20600,20700,20800,20900,21000,21100,21200,21300,21400,21500,21600,21700,21800,20000LO50200jOJ3751tON$(J)~OJOAOA"ī15500=15000>,>6)N$(12)::7>50050A>:10O>N$(16):c>(N$(12),21):v>B((95)A)32@50000@(B$)"Y"ī16000@15000N ***VOLUME CONVERSION*** N:7*N:9:N$(4):::4N50100fN(A$)1(A$)3:7:N$(3):::$:6)N$(0):::1:J1113?:6)N$(J)F:JN:A$j:(A$)1(A$)3ī15000:(A$)15500,16000,300<<6)N$(11)::<50050<:10(a50100Z(a(A$)1(A$)3ī25000u(a(A$)25100,25300,300( b50160(bJ5260( bN$(J)(*bJ(4bA$(>b(A$)1(A$)9ī25100)Hb(A$)25500,25600,25700,25800,25900,26000,26100,26200,2'(Z(B$)"Y"ī23000'2Z20300%'X20300%HX+%RXN$(44):50232A%zX(N$(44),22)::P%XBA26.417[%X50000p%X(B$)"Y"ī22600{%X20300%X%XN$(45):50232%X(N$(45),25)::%XBA3.5317%X50000%X(B$)"Y"ī22700%Y20300%Y%YN$(46):50232&::$XWBA1.05668$bW500004$lW(B$)"Y"ī22300?$vW20300E$WX$WN$(42):50232n$W(N$(42),17)::}$WBA.26417$W50000$W(B$)"Y"ī22400$W20300$W$WN$(43):50232$X(N$(43),20)::$ XBA.035317$*X50000%4X(B$)"Y"20300 #TV#^VN$(39):502324#V(N$(39),32)::A#VBA.271L#V50000a#V(B$)"Y"ī22100l#V20300r#V#VN$(40):50232#V(N$(40),22)::#VBA61.023#V50000#W(B$)"Y"ī22200#W20300#W#&WN$(41):50232$NW(N$(41),16)21012,0::0)" READ AND DO THIS FIRST!!!":::40:"PAGE 2":::@:F:L:R":g, PAGE 3 FOLLOWSm6:s@:yJ:T:^:::33:"S E C T I O N I"::::::" O V E R V I E W :":::" 'STARBASE 3000' IS A HIGHLY SOPHISTICATED ASLATITUDE/LONGITUDE MAJOR CITIES 25":27:"C ASCII CHART";22);"26":27:"D BIBLIOGRAPHY";21);"27":27:"E OBJECT DESCRIPTION KEY 28"27:"F WARRANTY/RETURN";C$;" BACKUP POLICIES 29"::15:"* NOTICE! FOR YOUR PROTECTION"(44";20);"22":27:"6 CALCULATIONS";21);"23":30:"TIME CONVERSIONS";17);"23"30:"EPOCH CONVERSIONS";16);"23":30:"MISC. CONVERSIONS";16);"23":::20:"S E C T I O N I I I"::24:"APPENDIX":27:"A THE CONSTELLATIONS";15);"24"27:"B S WITHIN CONSTELLATION 19":30:"COMPLETE LISTING (FILE STRUCT) 20"30:"STARBASE STATISTICS/ENVIRO DATA";2);"21":27:"4 RISE/SET OF SOLAR OBJECTS 21"N27:"5 MOON DATA";24);"22":30:"LUNAR ECLIPSE";20);"22":30:"MOON'S PHASES14":27:"1 DEFINE ENVIRONMENT(SEE PAGE 9) 9"v27:"2 UPDATE STARBASE";18);"16":30:"ADD OBJECTS";22);"16"30:"CHANGE/DELETE OBJECTS";12);"18":27:"3 CREATE REPORTS";19);"19":30:"OBJECTS WITHIN 2 HOURS OF RA 19"I30:"OBJECT YOUR ENVIRONMENT 9":24:"PRINTING THE STAR MAP";18);"11":27:"ASSEMBLING THE STAR MAP";13);"12"27:"STAR MAP STATISTICS";17);"13":27:"STAR MAP SYMBOLS";20);"13":27:"STAR MAP INFORMATION BORDER 14"124:"UTILITIES";30);""REQUIREMENTS";28);"3"24:"ARCHITECTURE";28);"4":27:"MAIN DIRECTORY";23);"5":27:"UTILITIES DIRECTORY";18);"5":::20:"S E C T I O N II"::15:"*----> FIRST THINGS FIRST";22);"7"k27:"DISKS AND COPYING";20);"7":27:"INITIALIZING:23);"THANK YOU ERIC";C$::23);"GIL DAVIES"::::::39);"PAGE 1"::::XZ:^[:d\:y] PAGE 2 FOLLOWS^:_:`:::::27:"T A B L E O F C O N T E N T S"::::20:"S E C T I O N I"::24:"OVERVIEW";32);"3":24: SOME OF":23);"THE MATHEMATICAL ALGORITHMS IN 'STARBASE":23);"3000' WERE DERIVED FROM THIS REFERENCE."V23);"IF YOU ARE LOOKING FOR A GOOD SOURCE OF":23);"INFORMATION ON WRITING ASTRONOMY-TYPE":23);"PROGRAMS THEN PURCHASE THIS FINE BOOK."RXK":23);"WRITTEN BY ERIC BURGESS TITLED 'CELESTIAL" R23);"BASIC: ASTRONOMY ON YOUR COMPUTER'. THIS":23);"IS ONE OF THE BEST BOOKS ON THE MARKET":23);"TODAY";C$;" ON WRITING ASTRONOMY-BASED PROGRAMS"kT23);"FOR THE APPLE COMPUTERS AND OTHERS.:38);"TO": L25);"MY BROTHER-IN-LAW PAUL MESSINA":::23);"WHO KEPT ME UP UNTIL 2:30 IN THE":23);"MORNING USER-TESTING 'STARBASE 3000'" N" ":::::::::4 P23);"SPECIAL CREDIT...":::23);"I WANT TO GIVE SPECIAL CREDIT TO A BOOT MICROSOFT";C$;" INC. 1981";C$;" 1982";C$;" 1983"@ C::::Q FJ110::J H35);"DEDICATED":38);"TO"::28);"MILLIE AND JAIME DAVIES":: J23);"WHO SPENT MANY NIGHTS AND WEEKENDS":23);"WITHOUT A HUSBAND AND FATHER."::::37);"ALSO";(101);C$;" II";(99);C$;" APPLESOFT LANGUAGE SYSTEM";C$;" IMAGEWRITER";C$ A" REGISTERED TRADEMARKS OF APPLE COMPUTER";C$;" INC.":" EPSON MX-80 REGISTERED TRADEMARK OF EPSON AMERICA";C$;" INC."2 B" PORTIONS COPYRIGHTHE DATA RESERVE":33);"P.O. BOX 27925":29);"DENVER"(44)" COLORADO 80227":::: =30);"DESIGNED AND WRITTEN":39);"BY":32);"GILDAS E. DAVIES" >:::::29);"JULY 27";C$;" 1985 REV 1.1":J118::JK @" APPLE II+";C$;" II"Dc PROGRAM NAME 'IM002'O COPYRIGHT 1985 BY GIL DAVIES DENVER COLORADO\ C$",":(4);"PR#1":(12):(9);"80N";(J115::J222);"I N S T R U C T I O N M A N U A L":::::32);"'STARBASE 3000'W <::24);"COPYRIGHT 1985                                  N WHICH AN OBJECT WILL LOCATE ITSELF ON THE MAP."::31);"- TOLERANCE -":18);"RIGHT ASCENSION = PLUS/MINUS 6 MINUTES"::18);"DECLINATION = PLUS/MINUS 0.5 DEGREES"N::" STAR MAP SYMBOLS:":::19);"# STARS OF MAGNITUDE BE WITHIN THE BOUNDARIES OF THE MAP AND YOUR PARTICULAR"" PRINTER. THE STAR MAP CONTAINS A TOTAL OF 76";C$;"560 PRINT POSITIONS":" WHICH PERMITS A HIGH DEGREE OF ACCURACY. HOWEVER";C$;" THERE DOES EXIST A"I" RANGE OR TOLERANCE I CELESTIAL SPHERE. OBJECTS BEYOND +80 OR -80 DEGREES OF DECLINATION":" WOULD BE DISTORTED";C$;" THUS THE UPPER AND LOWER DECLINATION LIMITS."::7" ACCURACY OF YOUR STAR MAP IS GOVERNED BY THE NUMBER OF PRINT POSI-":" TIONS AVAILABL PAGE 13 FOLLOWS::%:+:5::" STAR MAP STATISTICS:":::" THE STAR MAP COVERS A RANGE FROM 0 - 24 HOURS OF RIGHT ASCENSION AND":" +80 TO -80 DEGREES OF DECLINATION. THIS ABOUT COVERS THE COMPLETE"" " BEST APPEARANCE";C$;" YOU SHOULD TAPE THE SECTIONS TOGETHER ON THE":" BACK SIDE OF THE MAP. IF YOU SHOULD MESS UP THE FIRST TIME";C$;" YOU CAN"" ALWAYS PRINT ANOTHER MAP.":::::39);"PAGE 12":::::::AND BOTTOM."" YOU WILL NEED TO SPLIT THESE THREE SECTIONS";C$;" TRIM THE EDGES TO MATCH":" EACH OTHER";C$;" AND THEN TAPE THE THREE SECTIONS TOGETHER."::" A PAPER CUTTER IS THE MOST ACCURATE WAY TO TRIM THE EDGES. FOR THE"E.":::" WHEN THE PRINTING HAS COMPLETED";C$;" YOU CAN THEN FOLLOW THE PROMPTS"" TO CONTINUE WITH 'STARBASE 3000'."::::" ASSEMBLING THE STAR MAP:" ::" THE STAR MAP IS PRINTED IN THREE SECTIONS: TOP";C$;" MIDDLE";C$;" RFORMED AND"" THEN THAT BLOCK OF DATA IS PRINTED. HALF-WAY THROUGH THE PRINTING":" PROCESS";C$;" APPROXIMATELY ONE HALF HOUR";C$;" YOU WILL BE PROMPTED TO TURN THE"V" DATA DISK OVER. THE DATA DISK CONTAINS 18 DATA FILES PER SIDONE TIME. THUS";C$:" THE STARBASE DATA IS LOADED INTO MEMORY AS 'BLOCKS OF DATA'. THE DATA" x" DISK CONTAINS 36 DATA FILES OF STARBASE INFORMATION. ONE DATA FILE IS":" READ IN AT A TIME";C$;" IN A CERTAIN ORDER. CALCULATIONS ARE PE d" THIS WILL VARY BY THE AMOUNT OF OBJECTS ON THE STARBASE AND PRINTER":" TYPE. HERE'S WHY:"::" WITH THE LIMITED MEMORY OF THE APPLE COMPUTER";C$;" THERE IS NO WAY THAT"cn" ALL OF THE STARBASE INFORMATION CAN BE IN MEMORY AT ON THE":" PRINTER AND TO REPLACE THE PROGRAM DISK WITH THE DATA DISK. WHEN YOU" Z" ARE FINISHED";C$;" PRESS RETURN AND YOUR STAR MAP WILL BEGIN PRINTING.":::" THE STAR MAP WILL TAKE APPROXIMATELY 30 MINUTES TO ONE HOUR TO PRINT."HE" F" SUN";C$;" MOON";C$;" AND PLANETS. THE CALCULATION PROCESS WILL TAKE APPROXIMATELY":" ONE MINUTE. AFTER THIS PROCESS HAS COMPLETED";C$;" THE STAR MAP PLOTTING"W P" ROUTINE WILL BE LOADED AND RUN. YOU WILL BE PROMPTED TO TURNINFORMATION IS CORRECT OR NOT. TYPE EITHER Y OR N. IF THE INFORMA-" <" TION IS NOT CORRECT";C$;" YOU WILL BE GIVEN A CHANCE TO CORRECT THE":" INFORMATION.":::" IF EVERYTHING IS OK";C$;" THE PROGRAM WILL CALCULATE THE POSITIONS OF T18);"THE MONTH MUST BE 1 TO 2 DIGITS. FOR EXAMPLE";C$:18);"TYPE 8 THEN PRESS RETURN. (8 = AUGUST)":::18);"THE DAY MUST BE 1 TO 2 DIGITS. (1 TO 31)"E 2::" AFTER THE INFORMATION HAS BEEN SUPPLIED";C$;" YOU WILL BE ASKED IF THIS":" \ PROGRAM NAME 'IM003'O COPYRIGHT 1985 BY GIL DAVIES DENVER COLORADOa C$",":E$";"(4);"PR#1":(9);"80N";:: :!:" PAGE 12 FOLLOWS#:$:%:&:(:::" PRINTING THE STAR MAP (CONT.):" -::                                                  26";C$;"000 YEARS";C$;" EARTH'S AXIS POINTS TO DIFFERENT AREAS OF THE SKY. THIS"@" PHENOMENON IS KNOWN AS PRECESSION. TODAY";C$;" EARTH'S AXIS POINTS TO THE":" STAR PLOARIS. OVER THE YEARS";C$;" POLARIS WILL NOT BE THE NORTH STAR."SATION IN MAGAZINES SUCH AS 'ASTRONOMY' AND 'SKY AND":" TELESCOPE'. THESE MAGAZINES HELP YOU TO FIGURE YOUR LOCAL TIME ZONE.":::," EPOCH CONVERSIONS:"::" THE EARTH WOBBLES ON ITS AXIS LIKE A TOP. OVER A PERIOD OF ABOUT"T6" E OR VISE VERSA. YOU CAN EITHER GIVE YOUR STANDARD LOCATION"" OR A RANDOM LOCATION. YOU ARE ALSO ASKED TO GIVE THE LOCAL CLOCK TIME":" AND THE NUMBER OF HOURS THAT YOU ARE FROM THE 'UNIVERSAL TIME'. YOU"" CAN FIND THIS INFORMCHOICES:"::30);"TIME CONVERSIONS":30);"EPOCH CONVERSIONS"30);"MISC. CONVERSIONS":30);"EXIT TO UTILITIES DIR.":::" TIME CONVERSIONS:":=" THIS FUNCTION WILL CALCULATE THE LOCAL SIDEREAL TIME FROM YOUR LOCAL":" CLOCK TIM: PAGE 23 FOLLOWS:$:*:0::::" 6 C A L C U L A T I O N S :":::" THIS MODULE IS GEARED PRIMARILY TO PERFORMING MATHEMATICAL CONVERSIONS.">" WHEN YOU ENTER THIS MODULE";C$;" YOU ARE PRESENTED WITH FOUR INFORMATION CAN REALLY BE OF BENEFIT TO YOU";C$;" ESPECIALLY IF YOU PLAN ON":" VIEWING FAINT DEEP-SKY OBJECTS. A BRIGHT MOON IS THE LAST THING THAT"" YOU WANT WHEN VIEWING THESE OBJECTS."::::39);"PAGE 22"::::::OON DATE TIME":22);"LAST QUARTER DATE TIME"::" AN IMPORTANT FACT TO REMEMBER IS THAT THE PARTICULAR MONTH THAT YOU":" SELECTED WILL NOT NECESSARILY BEGIN WITH A NEW MOON. ALSO";C$;" THIS"" OR UP TO 56"" CYCLES";C$;" BEGINNING WITH THE DATE THAT YOU ENTERED. FOR EACH CYCLE";C$;" FOUR":" PHASES ARE DISPLAYED:":22);"NEW MOON DATE TIME":22);"FIRST QUARTER DATE TIME"T22);"FULL Mp" 2 MOON'S PHASES:"::" THIS FUNCTION WILL CALCULATE AND DISPLAY FOR YOU THE MOON'S PHASES FOR" " ANY DATE THAT YOU CHOOSE. YOU WILL BE ASKED TO ENTER THE YEAR AND":" THE MONTH. THE PROGRAM WILL DISPLAY THE LUNAR PHASES FE YEAR IN WHICH YOU WISH TO START THE CALCULATIONS.":" THE SCREEN OUTPUT WILL DISPLAY THE MAGNITUDE OF THE ECLIPSE AND THE YEAR";C$ x" MONTH";C$;" AND DAY. A MAGNITUDE OF 1 OR GREATER";C$;" INDICATES A TOTAL UMBRAL":" ECLIPSE.":::UNTIL IT FINDS SUCH AN OCCURANCE.":::" AN UMBRAL ECLIPSE OCCURS WHEN THE MOON GOES BEHIND THE UMBRAL SHADOW OF" d" THE EARTH";(59);" THAT IS";C$;" ON THE FAR SIDE OF THE EARTH";C$;" FROM THE SUN. YOU ARE" n" ONLY PROMPTED FOR TH 1 LUNAR ECLIPSE:": P" THIS FUNCTION WILL DISPLAY TO YOUR PRINTER";C$;" ANY OCCURANCE OF AN UMBRAL":" ECLIPSE";C$;" FOR THE YEAR THAT YOU SELECTED. IF THERE IS NO ECLIPSE FOR THAT"w Z" YEAR";C$;" THEN THE PROGRAM WILL SEARCH D DECLINATION WILL HELP YOU LOCATE THE OBJECT.":::::" 5 M O O N D A T A :":: >" WHEN YOU ENTER THIS FUNCTION";C$;" YOU ARE GIVEN THREE CHOICES:": F31);"LUNAR ECLIPSE:":31);"MOON'S PHASES":31);"EXIT TO UTILITY DIR.":::" RISE/SET REPORT";C$;" YOU WILL BE ABLE TO DETERMINE IF A PARTICULAR" 2" SOLAR SYSTEM OBJECT IS AVAILABLE FOR VIEWING AT NIGHT OR IF THE OBJECT";C$:" FOR THE PARTICULAR SEASON";C$;" IS IN THE DAYTIME SKY. THE RIGHT ASCENSION"\ <" ANeR PROGRAM NAME 'IM004'O COPYRIGHT 1985 BY GIL DAVIES DENVER COLORADOa C$",":E$";"(4);"PR#1":(9);"80N";:: :!:" PAGE 22 FOLLOWS#:$:%:&:E (:::" RISE/SET (CONT.):":::" FROM THE                                  EANS CONTROL";C$;" AS IN CONTROL A"4J112::JZ27);"APPENDIX C PAGE 26":::`:f:l:r: PAGE 27 APPENDIX D FOLLOWS:::::::31);"B I B L I O G R A P H Y":34);"SUGGESTED READINGS"::l" (62);" 94 ";(94);" 126 ";(126)" 31 ^ ";(95);" 63 ";(63);" 95 ";(95);" 127 DELETE"" ":" !":" !"#" +----- ^ M ^ ";(92);" 60 ";(60);" 92 ";(92);" 124 ";(124)" 29 ^ ";(93);" 61 ";(61);" 93 ";(93);" 125 ";(125)<" 30 ^ ";(94);" 62 "; 89 Y 121 ";(121)" 26 ^ Z 58 : 90 Z 122 ";(122)" 27 ^ ";(91);" ESCAPE 59 ";(59);" 91 ";(91);" 123 ";(123)^" 28 86 V 118 ";(118){~" 23 ^ W 55 7 87 W 119 ";(119)" 24 ^ X 56 8 88 X 120 ";(120))" 25 ^ Y 57 9 S 115 ";(115)vx" 20 ^ T 52 4 84 T 116 ";(116)z" 21 ^ U 53 5 85 U 117 ";(117)$|" 22 ^ V 54 6 112 ";(112)qr" 17 ^ Q 49 1 81 Q 113 ";(113)t" 18 ^ R 50 2 82 R 114 ";(114)v" 19 ^ S 51 3 83 109 ";(109)ll" 14 ^ N 46 . 78 N 110 ";(110)n" 15 ^ O 47 / 79 O 111 ";(111)p" 16 ^ P 48 0 80 P06 ";(106)gf" 11 ^ K 43 + 75 K 107 ";(107)h" 12 ^ L 44 , 76 L 108 ";(108)j" 13 ^ M RETURN 45 - 77 M ";(103)b `" 8 ^ H 40 ( 72 H 104 ";(104) b" 9 ^ I 41 ) 73 I 105 ";(105)d" 10 ^ J 42 * 74 J 1(100)] Z" 5 ^ E 37 % 69 E 101 ";(101) \" 6 ^ F 38 & 70 F 102 ";(102) ^" 7 ^ G BELL 39 ' 71 G 103 " 2 ^ B 34 ";(34);" 66 B 98 ";(98) V" 3 ^ C 35 # 67 C 99 ";(99) X" 4 ^ D 36 $ 68 D 100 "; ----- ------ ----- ------ ----- ------ ----- ------": P" 0 ^ @ 32 SPACE 64 @ 96 ";(96) R" 1 ^ A 33 ! 65 A 97 ";(97)Y TX C FOLLOWS #: $: %:# &:Y (::::::30);"A S C I I V A L U E S"::: 2" ASCII SYMBOL ASCII SYMBOL ASCII SYMBOL ASCII SYMBOL" <" VALUE VALUE VALUE VALUE"O F"+ 800010JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::e PROGRAM NAME 'IM005' COPYRIGHT 1985 BY GIL DAVIES DENVER COLORADO C$",":E$";":G$(7)(4);"PR#1":(9);"80N";:: :!: " PAGE 26 APPENDI            *12:" "612:12LL11ĺ"NEW MOON"gL12ĺ"FIRST QUARTER"~L13ĺ"FULL MOON"L14ĺ"LAST QUARTER"AA(0)KK.25 :T1K1236.85:T2T1T1:T3T1T1T1GJD2415020.75933(29.53058868K8D1.041BD2YD1;LK(D21900)12.3685:K(K1.5)1GVKK.25M`:Sj:~t:8:12:"CYCLE OF ";CC;" CYCLES"~ ***********************************L21CC ***********************************8:18:L2:L114-10:31:" ";M$:M(M$):M$""ĺG$:1020TM1M12ĺG$:10:31:" ":1020|12:5:"NUMBER OF CYCLES (1 - 56)"12:31:" ";CC$:CC(CC$):CC$""ĺG$:1050$CC1CC56ĺG$:12:31:" ":1050.M1D1(M1).083131112.04:1090 19:29:" ";AN$:AN$""ĺG$:9201AN$"Y"230WAN$"N"ĺG$:19:29:" ":920_70l PHASESuL81RA.0174532925:SW1:8:5:"ENTER YEAR (IE 1985)"8:31:" ";Y$:Y(Y$):Y$""ĺG$:100010:5:"ENTER MONTH (1 - 12)"AN ECLIPSE (Y/N)?"8p19:38:" ";AN$:AN$""ĺG$:880zAN$"Y"ė:9:13:"CALCULATING..."::13:"APPROX. 5 SEC.":FL1:350AN$"N"ĺG$:19:38:" ":88019:" ":19:8:"DIFFERENT YEAR (Y/N)?" O$,2)T4:::::6);"AN ECLIPSE WILL TAKE PLACE:"::16);;T;"/";R;"/";O$:::o>11);"MAGNITUDE: ";KHSP2ĺD$;"PR#0"R9:" "\11:" "f19:" NEXT OCCURANCE OF (Q30.6001))10000%Q13.77747007SQ121:710ASQ1ITSTT2TRd(5)S750nOO1yUOT2R3R10000T2R28TT1:RR28 T3R31TT1:RR31SP2ĺD$;"PR#";SS:(9);"80N";:810 *O$(O):O$(&LL((RAD(2D)))6260L(L((RAD(2E)))97)I:L2299161630qDL2((22991611867216.25)36525.25)|NLL2LXM(L24)bLLMlLL1vNL1720995O((N122.1)365.25)P(O365.25)Q((NP)30.6001)R((NP)(I))!J0.7128((RAD(D)))36.WI10JOW0W1.84769W1.8216:490kW0W1.84769W1.8216KW((RAD(D)))30K0350FL1520K(((K),4))L2415036.025(A29.53058868)LL(.406(RAD(D)))(.174(RAD(C)))(ZD) TRAD(X)X3.141592180* ^AA1= hB29.1053561AM rCB13.7774j |D(25.81691806A)138.94 E(30.670565A)216.6378 FE((RAD(D))).412 GF((RAD(2D)))8.8 HG((RAD(C)))2.2265 IH((RAD(2E))).13I(RADG$:260' SP$"S"SP$"P"ĺG$:260> SP$"S"SP1:300 "SP2::G$:9:12:"TURN PRINTER ON":12:7:"PRESS RETURN WHEN FINISHED ";AN$:SQ8: ,FL0::9:13:"CALCULATING..."::13:"APPROX. 5 SEC." 6ZY1900 @ZD(Z12.368267)2 JA2$,U3$,DR$! J1IT%:EN(J):JE SS$:SS(SS$):D$;"CLOSE":SW1S AZ2970a ECLIPSE :9:7:"ENTER THE YEAR (4 DIGITS) ";Y$:Y(Y$) (Y$)4ĺG$:230 SP1SP2300 :9:" PRINT TO SCREEN OR PRINTER (S/P)? ";SP$:SP$""ĺQ G$::9:9:"TURN PROGRAM DISK OVER"::9:"TO (";::"SIDE 1";::")"::: 7:"PRESS RETURN WHEN FINISHED ";AN$:21:9::"LOADING UTILITY DIR."::D$;"RUN UT001,V250" SW1210 D$;"OPEN ";FH$:D$;"READ "FH$:IT%:LL$,L1$,L2$,L3$,U1$,U):SP0:SW0:SQ0q dAA(0)::4:11:"MOON CALCULATIONS":8:11:"1 LUNAR ECLIPSE":11:11:"2 MOON'S PHASES" n14:11:"3 EXIT TO UTILITY DIR." x19:19:AZ$:AZ$:AZ(AZ$):AZ$""ĺG$:120 AZ1AZ3ĺG$:19:18:" ":120 AZ3170  232070JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::l( SOURCE PROGRAM NAME 'CA002'2 MOONS PHASE & ECLIP< COPYRIGHT 1985 BY THE DATA RESERVEFPO1$(56),O2$(56),O3$(56),O4$(56),EN(12) ZG$(7):FH$"EN002":D$(4          (:::(N$(17) (B$5)(B$)"Y"ī10000I)(B$)"Y"ī300a) ***CONVERSION***p)H0ĺ"0";,)H1ĺ"1";6)H2ĺ"2";@)H3ĺ"3";J)H4ĺ"4";T)H5ĺ"5";^)H6ĺ"6";h)H7ĺ"7";r)H8ĺ"8";|)H9ĺ"9";)H1I:10520(104700( SUBROUTINE DEC. >= 16=(G(KC)L(HG:10520Z(IK(GC)i(HI:10520t(10470( SUBROUTINE DEC. <= 15(HK:10520(10470(::"THE BINARY EQUIVALENT IS:"(:(J$(0);1);J$(1);1);J$(2);1);J$(3):10520'F((K(EA))B)+(HF:10520F (G((K(EA)(FB))C)U(HG:10520o(IK(EA)(FB)(GC)~((HI:105202(10470<( SUBROUTINE DEC. >= 256F(F(KB)P(HF:10520Z(G((K(FB))C)d(HG:10520n(IK(FB)(GC) x(H CERTAIN SIZED DECIMALSN'K65535ĺ"NUMBER TOO LARGE":P11000:P:10000'"DECIMAL";2);K;2);"=";2);"HEXADECIMAL";2);'K4096ī10210'K256ī10310'K16ī10390'K15ī10450' SUBROUTINE DEC. >= 4096'E(KA)'HE.'78':5:N$(2):::EB'"ENTER IN NUMBER TO BE CONVERTED.":oF'"NO NEGATIVES OR DECIMALS PLEASE!":J'" MAXIMUM NUMBER 65535 ";DL'KDQ':10V'"YOUR DECIMAL IS:";2);K`':':::':5' BRANCH ROUTINE FOR ";E11ĺ"1011 ";1E12ĺ"1100 ";G E13ĺ"1101 ";]E14ĺ"1110 ";sE15ĺ"1111 ";y(O CONVERT DEC TO HEX'$'A4096:B256:C16:S1)'J$(0)"":J$(1)"":J$(2)"":J$(3)"":B$"":D0:E0:F0:G0:H0:I0:K0"Y"ī1000,(B$)"Y"ī3002E0ĺ"0000 ";GE1ĺ"0001 ";\E2ĺ"0010 ";qE3ĺ"0011 ";E4ĺ"0100 ";E5ĺ"0101 ";E6ĺ"0110 ";E7ĺ"0111 ";E8ĺ"1000 ";E9ĺ"1001 ";E10ĺ"1010(16M)N:1460+D(256L)(16M)N:1460@D(16M)N:1460HDNODt::"THE BINARY EQUIVALENT IS:"|:(A$)1530,1520,1510,1500EK:5000EL:5000EM:5000EN:5000::::N$(17)B$ "(B$) L(G$)M(H$)"N(I$)A((A$)1390,1370,1350,1330X2K57KK55:1350c<KK48zFL57LL55:1370PLL48ZM57MM55:1390dMM48nN57NN55:1420xNN48(A$)1450,1440,1430,1420D(4096K)(256L)TRY AGAIN":P11500:P:1010x (H$)48(H$)70((H$)57(H$)65)ĺ"DIGIT NOT HEX - TRY AGAIN":P11500:P:1010 (I$)48(I$)70((I$)57(I$)65)ĺ"DIGIT NOT HEX - TRY AGAIN":P11500:P:1010 (A$)1310,1300,1290,1280 K(F$) :: :5H "HEXADECIMAL ";F$;G$;H$;I$;" = ";"DECIMAL ";g (A$)1260,1250,1240,1230 (F$)48(F$)70((F$)57(F$)65)ĺ"DIGIT NOT HEX - TRY AGAIN":P11500:P:1010 (G$)48(G$)70((G$)57(G$)65)ĺ"DIGIT NOT HEX - :" NO NEGATIVES OR DECIMALS PLEASE!". :: $A$:A$F .:::r B"TYPE HEX NUMBER TO BE CONVERTED";2); L(A$)1(A$)4ī1000 V(A$)1150,1140,1130,1120 `F$:F$; jG$:G$; tH$:H$; ~I$:I$; :10 F$;G$;H$;I$::; A1000,10000,15000,20000,25000,30000,35000,40000,45000`  PROGRAM TO CONVERT HEX TO DEC A$"":B$"":F$"":G$"":H$"":I$"":J$"":K0:L0:M0:N0:D0:E0: : 7:6 :5:N$(1)::: "HOW MANY HEX DIGITS ? MAXIMUM IS 4"& J076 R$(J) "J! ,L 6::8:"*** STARBASE 3000 ***":::d @6)N$(0):R$(20):p JJ110{ TN$(J) ^J c:::"ENTER CATEGORY NUMBER -- PRESS RETURN.":::" THANK YOU!" hA rA1A10ī300 |A10ī50700Tn 5081010KG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::Q l PROGRAM NAME 'CA004' MISC. CONVERSIONS( COPYRIGHT 1985 BY THE DATA RESERVEdD$(4):G$(7)N$(85)J085N$(J)JR$(76)                                        !!! ! ! ! @$R$(19):R$(20) @.J3853+@8R$(J)2@BJ@@G:R$(54)H@LB$S@V40000s@ǯ *** OTHER INFORMATION ***|@ȯ:7@ү:11:N$(9):::@ܯ8)N$(0)::@毁J5558@9)R$(J)::@J@A$@(A$)1(A$)4ī45000A"(A$)46000N$(0)::?^9)R$(16)::/?h9)R$(17)::>?r9)N$(13)F?|A$b?(A$)1(A$)3ī40000}?(A$)41000,42000,300?(?29)R$(16):?(R$(13),26)::+>BA247.1046>50000K>(B$)"Y"ī36700V>35300\>o>ʏR$(14):50232>(R$(14),33)::>BA.3861>50000>(B$)"Y"ī36800>35300>? *INCH TO DEC. OF INCH*>@:7>J:N$(8)::: ?T8)$)"Y"ī36400=35300=1=R$(11):50232G=Ǝ(R$(11),29)::W=ЎBA1.19599b=ڎ50000w=䎭(B$)"Y"ī36500=35300==R$(12):50232=*(R$(12),16)::=4BA2.47104=>50000=H(B$)"Y"ī36600=R35300=\>fR$(13):(R$(8),35)::;Ҍ(R$(5),26)::O;܌BA.0040469Z;挰50000o;(B$)"Y"ī36000z;35100;;R$(6):50232;6(R$(6),33)::;@BA2.5899;J50000;T(B$)"Y"ī36100;^35100;h;rR$(8):50232<2),28):::BA.0929#:500008:ċ(B$)"Y"ī35700C:΋35100I:؋[:⋺R$(3):50232p: (R$(3),29):::BA.83613:50000:((B$)"Y"ī35800:235100:<:FR$(4):50232:n(R$(4),17):::xBA.40469:50000;(B$)"Y"0,36800,350009%9R$(0):50232:9ފ(R$(0),35)::J9BA645.163U950000j9(B$)"Y"ī35500u935100{99R$(1):502329B(R$(1),35)::9LBA6.451639V500009`(B$)"Y"ī356009j351009t9~R$(2):50232 :(R$(8501608&J0780R$(J)&8:J.8?A$J8D(A$)1(A$)8ī351008N(A$)35500,35600,35700,35800,35900,36000,36100,350008䉰502008J8158R$(J)8J8A$8 (A$)1(A$)8ī35300 9(A$)36200,36300,36400,36500,36600,3670ī317007.|3030078|+7B|N$(84):50232A7j|(N$(84),28)::P7t|BA.53959[7~|50000p7|(B$)"Y"ī31800{7|303007 **** AREA CONVERSION ****7:77ˆ:10:N$(7):::7̈501007ֈ(A$)1(A$)3ī350007(A$)35100,35300,300 )::6H{BA1.09361 6R{5000056\{(B$)"Y"ī31500@6f{30300F6p{Y6z{N$(82):50232o6{(N$(82),18)::~6{BA3280.86{500006{(B$)"Y"ī316006{303006{6{N$(83):502326|(N$(83),27)::6|BA.621376|500007$|(B$)"Y"0300 5Dz5NzN$(79):5023235vz(N$(79),16)::B5zBA39.370M5z50000b5z(B$)"Y"ī31300m5z30300s5z5zN$(80):502325z(N$(80),14)::5zBA3.28085z500005z(B$)"Y"ī314005{303005 {5{N$(81):502326>{(N$(81),15609354^y50000%4hy(B$)"Y"ī3100004ry3010064|yI4yN$(76):50232_4y(N$(76),28)::o4yBA1.85325z4y500004y(B$)"Y"ī311004y301004y4yN$(78):502324z(N$(78),21)::4zBA.0393704&z5000040z(B$)"Y"ī312005:z3$(73):50232"3x(N$(73),15)::13xBA.91440<3x50000Q3x(B$)"Y"ī30800\3x30100b3xu3xN$(74):502323x(N$(74),18)::3xBA.0030483x500003y(B$)"Y"ī309003y301003y3"yN$(75):502323Jy(N$(75),27)::4TyBA1.002tw(B$)"Y"ī30500"2~w30100(2w;2wN$(71):50232Q2w(N$(71),16)::_2wBA.0254j2w500002w(B$)"Y"ī306002w301002w2wN$(72):502322x(N$(72),14)::2(xBA.3048022x500002Rϼ"1 SQ POLE = 625 SQ LINKS"OR:6)R$(63)^RB$:47700dRtR10)R$(69)RR$(20):R"CIRCUMFERENCE(EQUATOR) = 21600 NAUTICAL MILES"R"60 NAUTICAL MILES = 1 DEGREE @ EQUATOR" S"3 NAUTICAL MILES ="1 CHAIN = 4 RODS = 22 YARDS = 66 FEET = 100 LINKS"RQ"1 LINK = 7.92 INCHES"ZQ:rQ13)"AREA MEASURE"Q13)"------------"Q"36 SQ MILES = 1 TOWNSHIP = 36 SECTIONS"Q"1 SQ MILE = 1 SECTION = 640 ACRES"Qż"1 ACRE = 10 SQ CHAINS"625 49/64 = .765625","17/32 = .53125 25/32 = .78125","35/64 = .546875 51/64 = .796875"," 9/16 = .5625 13/16 = .8125","37/64 = .578125 53/64 = .828125"qŃ "19/32 = .59375 27/32 = .84375","39/64 = .60937.1875 7/16 = .4375","13/64 = .203125 29/64 = .453125"oŃ " 7/32 = .21875 15/32 = .46875","15/64 = .234375 31/64 = .484375"," 1/4 = .25 1/2 = .5"," *** PRESS RETURN FOR MENU ***"pŃ "33/64 = .515= .09375 11/32 = .34375"," 7/64 = .109375 23/64 = .359375"," 1/8 = .125 3/8 = .375"FovŃ " 9/64 = .140625 25/64 = .390625"," 5/32 = .15625 13/32 = .40625","11/64 = .171875 27/64 = .421875"," 3/16 = ---------------------------------"," 1/64 = .015625 17/64 = .265625"," 1/32 = .03125 9/32 = .28125"," 3/64 = .046875 19/64 = .296875"qnlŃ " 1/16 = .0625 5/16 = .3125"," 5/64 = .078125 21/64 = .328125"," 3/32 XŃ "5 HECTARS TO ACRES","6 SQUARE KILOMETERS TO ACRES","7 SQUARE KILOMETERS TO SQUARE MILES","8 BACK TO MENU","1 ( 1/64 IN THRU 1/2 IN )","2 ( 33/64 IN THRU 1 IN )"l]Ń "3 BACK TO MAIN MENU"mbŃ "FRACTION DECIMAL FRACTION DECIMAL","------CTARES","6 ACRES TO SQUARE KILOMETERS"kNŃ "7 SQUARE MILES TO SQUARE KILOMETERS","8 BACK TO MENU","1 SQUARE MILLIMETERS TO SQUARE INCHES","2 SQUARE CENTIMETERS TO SQUARE INCHES","3 SQUARE METERS TO SQUARE FEET","4 SQUARE METERS TO SQUARE YARDS"lOMETERS TO STATUTE MILES"SjŃ "7 KILOMETERS TO NAUTICAL MILES","8 BACK TO MENU"'kDŃ "1 SQUARE INCHES TO SQUARE MILLIMETERS","2 SQUARE INCHES TO SQUARE CENTIMETERS","3 SQUARE FEET TO SQUARE METERS","4 SQUARE YARDS TO SQUARE METERS","5 ACRES TO HE4 YARDS TO METERS","5 FEET TO KILOMETERS","6 STATUTE MILES TO KILOMETERS","7 NAUTICAL MILES TO KILOMETERS","8 BACK TO MENU"jă "1 MILLIMETERS TO INCHES","2 METERS TO INCHES","3 METERS TO FEET","4 METERS TO YARDS","5 KILOMETERS TO FEET","6 KILLUID OUNCES(WATER)","5 KILOGRAMS TO OUNCES(AVD)"hă "6 KILOGRAMS TO POUNDS(AVD)","7 METRIC TON TO NET TON(2000 LBS)","8 METRIC TON TO GROSS TON(2240 LBS)","9 BACK TO MENU","1 INCHES TO MILLIMETERS","2 INCHES TO METERS"iă "3 FEET TO METERS","S(WATER) TO GRAMS","5 OUNCES(AVD) TO KILOGRAMS","6 POUNDS(AVD) TO KILOGRAMS","7 NET TON(2000 LBS) TO METRIC TONS","8 GROSS TON(2240 LBS) TO METRIC TON"1hă "9 BACK TO MENU","1 GRAMS TO DYNES","2 GRAMS TO GRAINS","3 GRAMS TO OUNCES","4 GRAMS TO F"10 HECTOLITER TO BUSHELS(2150.42 CU.IN)","11 HECTOLITERS TO CUBIC YARDS"fă"12 METERS TO GALLONS","13 METERS TO CUBIC FEET","14 METERS TO CUBIC YARDS","15 BACK TO MENU","1 DYNES TO GRAMS","2 GRAINS TO GRAMS"gă "3 OUNCES TO GRAMS","4 FLUID OUNCE FLUID OUNCES","2 CUBIC CENTIMETERS TO CUBIC INCHES","3 CUBIC CENTIMETERS TO FLUID DRAMS","4 LITERS TO CUBIC INCHES","5 LITERS TO QUARTS"Ifă "6 LITERS TO GALLONS","7 LITERS TO CUBIC FEET","8 HECTOLITERS TO GALLONS","9 HECTOLITERS TO CUBIC FEET",RS"dă "9 CUBIC FEET TO HECTOLITERS","10 BUSHELS(2150.42 CU.IN) TO HECTOLITER","11 CUBIC YARDS TO HECTOLITERS","12 GALLONS TO CUBIC METERS","13 CUBIC FEET TO CUBIC METERS","14 CUBIC YARDS TO CUBIC METERS"eă"15 BACK TO MENU","1 CUBIC CENTIMETERS TO REQUIRE?","1 FLUID OUNCES TO CUBIC CENTIMETERS","2 CUBIC INCHES TO CUBIC CENTIMETERS"dă "3 FLUID DRAMS TO CUBIC CENTIMETERS","4 CUBIC INCHES TO LITERS","5 QUARTS TO LITERS","6 GALLONS TO LITERS","7 CUBIC FEET TO LITERS","8 GALLONS TO HECTOLITE FAHRENHEIT TO CELSIUS"bă "2 CELSIUS TO FAHRENHEIT","3 BACK TO MAIN MENU","TYPE IN THE NUMBER TO BE CONVERTED","VOID","ANSWER:","ANOTHER CONVERSION (Y/N)?"Xcă "1 U.S. TO METRIC","2 METRIC TO U.S.","3 BACK TO MAIN MENU","WHICH CONVERSION DO YOUECIMAL TO DECIMAL","2 DECIMAL TO HEXADECIMAL","3 TEMPERATURE CONVERSION","4 VOLUME CONVERSION","5 WEIGHT CONVERSION"bă "6 LENGTH CONVERSION","7 AREA CONVERSION","8 DECIMAL EQUIV.(INCH TO DEC. OF INCH)","9 OTHER INFORMATION","10 *** QUIT ***","1{LHzII_#Hz2ީI_5zV︰Rh` VɭL꽌ɭLʾ!ӠӠ׍!ƭER77AA(0):vƭER254ĦRvƗ:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM": E"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$:WuƺD$;"RUN CA003,V250"]upƀkuzER(222)uƭER7ė:9:10:"WRONG DISK OR SIDE":5:uƭER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:v "4 SURVEYOR'S MEASURES","5 NAUTICAL MEASURES","6 CUBIC MEASURES","7 DRY MEASURES","8 LIQUID MEASURES","9 WEIGHT MEASURES"tŃ "10 TIME MEASURES","11 CIRCULAR MEASURES","12 BACK TO MENU">u ƺG$::9:9:"TURN PROGRAM DISK OVER":::9:"TO (";::RES"rsŃ"4 BACK TO MAIN MENU","1 RELATIVE TO A CIRCLE","2 RELATIVE TO A SQUARE","3 RELATIVE TO OTHER SHAPES"sŃ"4 BACK TO MENU","*** PRESS ANY KEY FOR MENU ***","NO DATA","1 COOKING MEASURES(FLUID)","2 LENGTH MEASURES","3 SQUARE MEASURES"t 61/64 = .953125","23/32 = .71875 31/32 = .96875","47/64 = .734375 63/64 = .984375"sŃ" 3/4 = .75 1 = 1.000"," **** PRESS RETURN FOR MENU ****","1 MEASURES OF PRESSURE","2 USEFUL FORMULAS","3 OTHER HELPFUL MEASU5 55/64 = .859375"," 5/8 = .625 7/8 = .875","41/64 = .640625 57/64 = .890625","21/32 = .65625 29/32 = .90625"grŃ "43/64 = .671875 59/64 = .921875","11/16 = .6875 15/16 = .9375","45/64 = .703125 ER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:trER77AA(0):|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":DS11S12S20İ170= :G$:9:12:"REMOVE DATA DISK":: 6:"INSTALL PROGRAM DISK (";::"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$:D$;"RUN CR001,V250" @ER(222)JER7ė:9:10:"WRONG DISK OR SIDE":5:_TNS10S11660XM12'bN156lH$(M,N)""@vN:MNS10:S20T:sD$:D$;"READ ";F3$;",R";LS1S11H$(S1,1):H$(S1,2):H$(S1,3):H$(S1,4):H$(S1,5)S12İ170LD$;"CLOSE"KJ:::K112"F2$(K):F3$F1$F2$J2K7ė:Q110:G$:Q:9:10:"TURN DATA DISK OVER":::7:"PRESS RETURN WHEN FINISHED ";AN$:VM$",V242":D$;"OPEN ";F3$;",L33";VM$&D$;"READ ";F3$;",R0"0R1:R10ĺD$;"CLOSE":720DL1R17:"INSTALL DATA DISK (";::"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$:VM$",V240"::G$:9:13:"TURN PRINTER ON":::7:"PRESS RETURN WHEN FINISHED ";AN$:J13J1F1$"A"J2F1$"B"J3F1$"C": NLINE! @D$;"OPEN ";FH$;",V252"5 JD$;"READ ";FH$> TIT%u ^Y1$,Y2$,Y3$,Y4$,Y5$,Y6$,Y7$,Y8$: DUMMY VARIABLES hJ1IT% rEN(J) |J SS$:SS(SS$) D$;"CLOSE" LINE100 : : :G$:9:10:"REMOVE PROGRAM DISK"::i/N)?" 9:33:AN$:AN$3 AN$"Y"PG0::320 "AN$"N":G$::9:9:"TURN PROGRAM DISK OVER"::9:"TO (";::"SIDE 2";::")"::: $AN$"N"Ė7:"PRESS RETURN WHEN FINISHED ";AN$::D$;"RUN CR001,V250" ,G$:9:32:" ":270 6 MAI(H$(1,2)));H$(1,3);5);H$(1,4);10(H$(1,4)));H$(1,5);28(H$(1,5))); H$(2,1);11(H$(2,1)));H$(2,2);16(H$(2,2)));H$(2,3);5);H$(2,4);10(H$(2,4)));H$(2,5) LINELINE1 D$;"PR#0":S21: : : :9:7:"PRINT FULL LISTING (YONSTELLATION DESCRIPTION SYMBOL R.A. DEC":15);" "O LINE6:U :[ :u SUB FOR DETAIL LINE D$:D$;"PR#";SS:IT%0190 P1IT%:(EN(P));:P LINE60İ110:D$;"PR#0":170I 8);H$(1,1);11(H$(1,1)));H$(1,2);16:G$(7):FH$"EN002":S12:S202 <EN(12),H$(2,5); F260A P:G Z:d d SUBROUTINE TITLE BLOCK nPGPG1:(12):52);"O B J E C T L I S T I N G";39);"PAGE ";PG::B x" CONSTELLATION DESCRIPTION SYMBOL R.A. DEC C 800050JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::z PROGRAM TO PRINT FULL LISTING OF STARBASE SOURCE PROGRAM NAME 'CR004' OBJECT PROGRAM NAME 'CR004.OBJ'( COPYRIGHT 1985 BY GIL DAVIES DENVER CO 2D$(4):PG0"" " " " " """""