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`6%A6.28318T3(A6.28318):T3T36.28318:AAT3Q%A0AA6.28318:2250l%CPD(J,2)(APD(J,3))v%AAC%A6.28318AA6.28318%A0AA6.28318:2290% DISTANCE OF PLANET FROM SUN (DS)% DSPD(J,4)PD(J,5)(APD(J,6))& DIF$*$R:8:7:"LOADING STAR MAP PROGRAM"b$\D$"BLOAD RUNTIME"(13)D$"BRUN SM021.OBJ"(13)h$fn$p:t$z:z$:$:$ CALC A,DS,L$ HELIOCENTRIC LONGITUDE (A)$ANIPD(J,0)PD(J,1)%A6.28318A((A6.28318)(A6.28318))6.28318(104.5):R$(I)(R(I))I# V(I)(V(I)104.5)(104.5):V$(I)(V(I))h#*P$(I);QQ$;R$(I);QQ$;V$(I)#4 WRITE LOCATION/TIME INFO#>LL$;QQ$;YD$;QQ$;MD$;QQ$;DD$;QQ$;L1$;QQ$;L2$;QQ$;L3$;QQ$;LA;QQ$;U1$;QQ$;U2$;QQ$;U3$;QQ$;LO;QQ$;DR$$HD$;"CLOSE";FH "2350"R(I)R:V(I)VO"R(I)(R(I)104.5)(104.5):R$(I)(R(I))"V(I)(V(I)104.5)(104.5):V$(I)(V(I))"P$(I);QQ$;R$(I);QQ$;V$(I)"I"P$(10);QQ$;RA$;QQ$;DE$"CI3" ICI:A(I)DEG(A(I))#R(I)(R(I)104.5)$!D MERCURY,VENUS,SUN,MARS,JUPITERK!N SATURN,URANUS,NEPTUNE,PLUTO,MOONS!XF1u!b CALCULATE DATA FOR PLANETS!lD$;"OPEN";FF$!vD$;"WRITE";FF$!I1!J08:2200!A(I)A:DS(I)DS:L(I)L!II1:J!I19"I3ĂI: SKIP EART,19.182,  .901554,4.49084,.01396,1.28805:  NEPTUNEf  .000104,3.78556,.016965,.773181,30.06  .27054,2.33498,.031416,2.29162  PLUTO & .000069,3.16948,.471239,3.91303,39.44 0 9.86,5.23114,.300197,1.91812 :IP110:P$(IP):IP,.03142,.858702 JUPITERH .00145,4.53364,.090478,.23911,5.2028m .249374,1.76188,.01972,1.74533z SATURN .000584,4.89884,.105558,1.61094,9.5385 .534156,3.1257,.043633,1.977458 URANUS  .000205,2.46615,.088593,2.9670623,.836013J VENUS<T .027962,3.02812,.013195,2.28638g^ .7233,.00506,3.85017,.059341,1.33168sh EARTHr .017202,1.74022,.032044,1.78547,1| .017,3.33926,0,0 MARS .009146,4.51234,.175301,5.85209,1.5237 .141704,1.04656100)1))NIDG715875=2620: GET SIDEREAL TIME (T2)G2720k INPUT OF PLANETARY ORBIT DATAyF11880PY08:PX08PD(PY,PX)"PX,PY, MERCURY6 .071422,3.8484,.388301,1.34041 @ .3871,.07974,2.73514,.122M13M1:YY1n:x:L CALC DAYS TO DATE REQ. FROM EPOC 1960,1,1fDG365YD((M1)31)tM21470 FOR JAN & FEBDGDG((Y1)4)((.75)((Y1)1001))1490 FOR MAR THRU DEC DGDG(M.42.3)(Y4)((.75)((Y39:" ":SW0:120$DXD:MXM:YXYFDR$"W"DD(LO15)24:1330Y(DD(LO15)242(LY1M2(D)29)M3:DD29:1410<(LY0M2D28)M3:DD28:1410FD311410P(M4M6M9M11)MM1:DD30:1410Z(D)31MM1:DD31d"CALCULATING THE POSITIONS OF"::6:"THE SOLAR SYSTEM OBJECTS...":1300oAN$"N"ĺG$;:23:39:" ":12404:15:SQ$:6:26:SP$:8:26:SP$:10:26:SP$13:26:SP$:15:26:SP$:17:26:SP$ 19:26:SP$:21:26:SP$:23:26:SP$:23:U3$):U3$""ĺG$;:1150bJ1(U3$):((U3$,J,1))48((U3$,J,1))57ĺG$;:23:26:SP$:1150iJU30U359ĺG$;:23:26:SP$:1150:TS%U260U3LOU1TS%3600::23:31:"OK Y/N? ";:AN$:AN$IAN$"Y"ė:9:6:0U20:21:27:U2:U30:23:27:U3:1200gL21:26:" ";U2$:U2(U2$):U2$""ĺG$:21:26:SP$:1100VJ1(U2$):((U2$,J,1))48((U2$,J,1))57ĺG$:21:26:SP$:1100`JjU20U259ĺG$:21:26:SP$:1100t:~23:26:" ";U3$:U3(" ";U1$:U1(U1$):U1$""ĺG$:1030nJ1(U1$):((U1$,J,1))48((U1$,J,1))57ĺG$:19:26:SP$:1030uJ$U1180U10ĺG$:19:26:SP$:1030.19:32:"E/W ";DR$:DR$""ĺG$:10708DR$"E"DR$"W"ĺG$:19:36:SR$:1070)BU118,$`  L(  L5  LD  8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé P   #Q L,PR#0 ,  L,B , P #Q L,PR# ,  M ^ M pN $L/- N R M   RN  P   1 R N iR P  LD- C- Q  Q  1 iR #Q Lk-PR#0 f-  |N N NO N N DR lO   N N N M  P P 5 L+L+WEST + QL+L+EAST + Q N L+LONGITUDE: +  O VQ L, DEGREES ,  O VQ L., MINUTES $,  O VQ LO, SECONDS B,  Q  N R O   1 R N R 8P  L,- ,  1 RL,- ,  *O VQ  P  L* *  N VQ  \M yN L*L*NORTH * QL +L+SOUTH * Q N L)+LATITUDE: +  EO VQ LG+ DEGREES =+  lO VQ Le+ MINUTES [+  O VQ L+ SECONDS y+  Q  L+W P VQ + CH ) QLs*L)APRIL ) QLs*L)MAY ) QLs*L)JUNE ) QLs*L)JULY ) QLs*L*AUGUST * QLs*L'* SEPTEMBER * QLs*L=*OCTOBER 5* QLs*LT*NOVEMBER K* QLs*Lk*DECEMBER b* Q N L*DATE: |*  Q L* *  ( Q  Q  1 iR cO L )1* * * L O C A T I O N A N D T I M E * * * (  N L9)LOCATION: %)  N VQ  N VQ  IN  x)))))))**2*H*_*L)JANUARY {) QLs*L)FEBRUARY ) QLs*L)MAR********* * * Q 5 '  QL' ' NQ Q NQL( N ZR eP   M \ M  Q  1 ZR  NQ LQ  1 NR #Q L2(PR#0 -(  1 DR #Q LO(PR# K(  M ^ M pN $L( N R M   RN  P   1 R N iR P  L( PR# &  M ^ M pN $L& N R M   RN  P   1 R N NR AP  L ' ' Q "N N $L' N N N ZR eP  L;'-L@'! M \ N Q 9'  ;M M \ N Q >' R L'L{'* Q 5 y'  QL' M \ N Q Q  Q 1 ZRL'360ALAL360-. HE5.1454(AL3.14159180)R. DMHE23.1444(LMD3.14159180)Z. :r.& RA$(RM):DE$(DM).0 RA$(RA$,5):DE$(DE$,5).: (RA$)10RA$(RA$,4).D (DE$)9DE$(DE$,5):3160.N (DE$)10(DE$)10DE$(DE$,4).X 0):T3T33600:ALALT35- AL3600ALAL3600:2990R- AL360ALAL360:2990l- AL0ALAL360:3010- AL3600T3(AL3600):T3T33600:ALALT3- AL3600ALAL3600:3030- AL360ALAL360:3040- ALLMDAL- AL0ALAL360 . ALMD3600T3(LMD3600):T3T33600:LMDLMDT3M,^ LMD3600LMDLMD3600:2910l,h LMD360LMDLMD360:2920z,r RMLMD15,| RM24T3(RM24):T3T324:RMRMT3, RM24RMRM24:2950, RM0RMRM24, ALLENI.052954- AL3600T3(AL360360PGPG360:2810/+ LMDLZ360NI27.32158=+ PGLMDPGW+ DR6.2886(RAD(PG))f+" LMDLMDDR+, LMD3600T3(LMD3600):T3T33600:LMDLMDT3+6 LMD360LMDLMD3600:2870+@ LMD360LMDLMD360:2880+J LMD0LMDLMD360:2890,,T L0T2T224* )* RA AND DEC OF MOON9* LZ311.1687H* LE178.699X* LP255.7433m* PG.111404NILP* PG360T3(PG360):T3T3360:PGPGT3* PG360T3(PG360):T3T3360:PGPGT3* PG360PGPG360:2790* PG0PGPG360+ PG(3)3.14159)23.44194)2 7)< CALC SIDEREAL TIME T2H)F GC11.927485W)P TC.065711n)Z T2TC(NI7020)GC)d T224T3(T224):T3T334:T2T2T3)n T224T3(T224):T3T324:T2T2T3)x T224T2T224:2680) T224T2T224:2690 * T2ECLINATION;( Z0V(A(3)3.14159X)23.44194DEG(L(I))l( Z0V(A(3)3.14159X)23.44194DEG(L(I))z( XDEG(X)( R(3)DEG(A(3)3.14159)15( R(3)24R(3)R(3)24:2570( R(3)24R(3)R(3)24:2580( R(3)0R(3)R(3)24)( V(3)(A't P(DS(I)DS(3)Q)2<'~ AC(((P(PDS(I)))(DS(3)Q)))Q' AC1AC.999999b' X2ACO(AC)m' R.A.' Z0RDEG(A(3)3.14159X)15' Z0RDEG(A(3)3.14159X)15' R24RR24:2490' R24RR24:2500' R0RR24:2510 ( DSTANCE FROM ECLIPTIC (L)3& LPD(J,7)(APD(J,8))9&$ O&. CALC RA AND DECl&8 ANG. DIST FROM SUN (Z)|&B ZA(3)A(I)&L (Z)3.14159Z0ZZ6.28318&V (Z)3.14159Z0ZZ6.28318&` CI3X0:2470'j Q(DS(I)2DS(3)22DS(I)DS(3)(Z))*** ****************** ******* *** ***** * * *** * **** *********** ******* V4 o 1 NR #Q Lr4PR# n4  M ^ M pN $L4 N R M   RN  P @N N L2 O ML%3 @N P L2 O ML%3 @N P ( ;M P 7N &R L3 O ML%3 N 7N L3 O ML%3 O M M \ hM  Q M  Q o N }M PMLN3 LS3!LX3- SM \ hM  Q L3  ;M SM \ hM  Q Q3 R  ;M SM \ hM  Q V3 R P N &R  ;M M  P O &R  ;M M  P GM O DM &R L1L`4 M  P N c nP i N # eM hM WO L02 ZO eM hM N (LD2 N eM M  P =N @N N L|2 N :N c N i O gN # ML%3 N 7N L2 @N O c N i N gN # ML%3 MLZ1 N 7N L0 @N O c N i N gN # MLZ1 @N N L0 O MLZ1 @N P L1 O MLZ1 @N P ( ;M P 7N &R L:1 O MLZ1 N 7N LT1 O MLZ1 O M  1 NR #Q Lq1CLOSE k1  N N .N N NR O   M  P +N  ;M M L/READ /  Q L/,R /  M a '  Q  '  Q  '  R  '  P  '  P  Q  M Q Q R Q P  [N P  M ^N N c nP i N # eM hM WO Lk0 ZO eM hM N (L0 N eM M =N @N N L0 N :N c N i O gN # _ M  QL.! . o SP _ M  QL.! . o O _ M  QL.! . o wP _ M  QL/! / o 1 _R #Q L-/OPEN '/  Q LC/,L33 >/  #Q L]/READ W/  Q Lr/,R0 n/  '  N  N yN $Lb1 N NR N   #Q P  Q N _R AP   N dR L5?** *************** * *****  L/ / y[  y[  1 K\ Y L0+* * * O B J E C T S Y M B O L S * * * /  Y LR0%SYMBOL DESCRIPTION/MAGNITUDE ,0  Y L0*# STARS OF MAGNITUDE BRIGHTER THAN 2.0 i0  Y L0(* w[ 5 .  y[L. W \ \X [ w[  y[ 1 7\ w[  L,/  :[  \X 7\ QZ   W \ W  [  1 7\ uZ _ W  [  1 +\ [ L?/PR#0 :/  1 !\ [ L\/PR# X/  fW ^ W 2X $L/ \X s\ W   X  Z   1 s\ \X K\ Y [ L-PR# -  fW ^ W 2X $L- \X s\ W   X  Z   1 s\ \X +\ $Z  L. . y[ W eX $L. kX WLE.* * ********* w[ 5 /.  y[ \X 7\ uZ  Ll.-Lq.! W \ \X [ j.  W W \ \X [ o. [ L.L.* ,  W 'W \ 3W  [ , [  W 'W \ 3W  [ , [ L- 'W \ 3W  [L -<  - o NW hX $WL#- L(-!L--- 'W \ 3W  [ !-  W 'W \ 3W  [ &- [  W 'W \ 3W  [ +- [ L- 'W \ 3W  [L-> - o 1 +\ \ Y   W  ~Z W  W W  ~Z W &[  W W  Z W :Y W [ L,L- W  ~Z W c HZ i hX # 0W 3W Y L8, Y 0W 3W eX (LL, kX 0W W  Z Y c GX i hX # KW NW \ 3W  [ W  Z o kX HW $WL, L,!L,- 'W \ 3W  [*  W a '  [  '  [  '  [  '  Z  '  Z  [  W [ [ [ [ Z  X Z  W X W c HZ i hX # 0W 3W Y LH+ Y 0W 3W eX (L\+ kX 0W W X X Y c GX i hX # KW  1 +\ [ L+CLOSE +  X W W \X + [L)! ) o ?Z _ W  [L)! ) o Z _ W  [L)! ) o 1 <\ [ L *OPEN *  Z L *,L33 *  [ L:*READ 4*  Z LO*,R0 K*  '  W  W ;X $L+ \X +\ W   [ L*READ *  Z L*,R W Y W \X !\ Y   X W W oW  Z Z 5 Z  Z X <\ $Z   \X A\ uZ   W \ W  [L) ) o 1 A\ 1 <\ \X A\ uZ   W \ \X [LO)- M) o W \ Y [Lh)- f) o 1 A\ \X <\ $Z   $Z _ W  [L)! ) o Y _ W X s\ X  L'- '  1 s\L'- '  Y   [ L'PR#0 '  L(C ( Z [ L(PR# (  fW ^ W 2X $L`( \X s\ W   X  Z   1 s\ \X K\ Y  Lu( t( y[  y[  1 K\ [ L(PR#0 (  >X J E C T S * * * &  Y L';SYMBOL OBJECT RIGHT ASCENSION DECLINATION &  \X s\ Y   Y  X  Z  Y  X  W[  X  W[  Z  X  [  X  [  Z  X  l[  1 s\ \ TL 8T L 8T"L 8T$L 8T&L 8T(L 8  *T8iL 8iL 8jL 8jL T 8TL 8TL 8TL 8TL 8TL 8TL 8TL 8TL 8TL 8  T8jL 8jL 8jL 8jL 'S8  ;S 8S|L 8S~L 8SL 8SL 8SL 8SL 8SL 8SL 8  S 8SL 8SL 8  S 8SL 8SL 8SL 8  S 8SL 8  S 8SL 8  S 8TL 8TL 8TL 8LdLLdLLdLLdMLdML M L M L ML ML ML ML ML ML ML ML ML M L M"L M$L M&L M(L M*LdM/L M1LdM6Ld8  R 8  R 8 LLdLL LLdLL LLdLLdLL LL LL LLdLLdLLdLLdLL LL LLdLL LL LLdLLdLL LL LLdLLdLLdLL LLdLRILdRNLdRSLdRXL RZLdR_LdRdLdRnLdRsLdRxLdR}LdRLdRLdRLdRLdRLdRLdRLdLyL L{LdLLdLLdLL ***** * **?L@* * * ***** **** ** ********* ******* *** * **** ******* ** **** ** ****@L_A* * ** ** ******* * **>L>* * * ****>L?* **** ** ********** * *********** ***** ** **** ** ** **** ** ******* * *** * * ****>L>* **** ** ************ * *** * * ***** **** ** **** ** **** ** ******* * *** * * ***** **** **J=L> ********** * * *** * * **** *** *** ** * * * * * * * * *JmRS%0RS%59ĺG$:12:24:" ":950u:::" DECLINATION":8:14:"DEGREES: "8:24:" ";D9$:DD%(D9$):D9$""ĺG$:1020D9$"-"ĺG$:8:24:" ":10(RM$):RM$""ĺG$:900fJ1(RM$):((RM$,J,1))48((RM$,J,1))57ĺG$:10:24:" ":900mJRM%0RM%59ĺG$:10:24:" ":90012:14:"SECONDS: "12:24:" ";RS$:RS%(RS$):RS$""ĺG$:9507J1(RS$):((RS$):6|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM": 132 CHARACTERS PER LINE":"CALLED (CONDENSED PRINT). ONCE SET THE""PRINTER WILL STAY IN THIS COMPRESSED":"MODE UNTIL POWER IS TURNED OFF."::"HERE IS THE PROBLEM:":"IF YOU TRY TO PRINT T:2180 $12:14:"SECONDS: "R$12:24:" ";D8$:DS%(D8$):D8$""ĺG$:2230$J1(D8$):((D8$,J,1))48((D8$,J,1))57ĺG$:12:24:" ":2230$J$DS%0DS%59ĺG$:12:24:" ":2230$ CALCULATE DEC%TS%DM%60DSJ2#pDD%79DD%79ĺG$:8:24:" ":2120L#z10:14:"MINUTES: "~#10:24:" ";DM$:DM%(DM$):DM$""ĺG$:2180#J1(DM$):((DM$,J,1))48((DM$,J,1))57ĺG$:10:24:" ":2180#J$DM%0DM%59ĺG$:10:24:" "400 "*:*"4::" DECLINATION":C">8:14:"DEGREES: "t"H8:24:" ";D9$:DD%(D9$):D9$""ĺG$:2120"RD9$"-"ĺG$:8:24:" ":2120"\J1(D9$):((D9$,J,1))45((D9$,J,1))48((D9$,J,1))57ĺG$:8:24:" ":2120#f ":1990!JB!RS%0RS%59ĺG$:12:24:" ":1990V! CALCULATE RAi!TS%RM%60RS%}!RHRH%TS%3600! RH(RH104.5)(104.5)!RH24.0RH0.0!DZ$(RH):(DZ$)7Z4$DZ$:RA(Z4$):1400" Z4$(DZ$,7):RA(Z4$):1J,1))48((RM$,J,1))57ĺG$:10:24:" ":1940> Jn RM%0RM%59ĺG$:10:24:" ":1940 12:14:"SECONDS: " 12:24:" ";RS$:RS%(RS$):RS$""ĺG$:1990 !J1(RS$):((RS$,J,1))48((RS$,J,1))57ĺG$:12:24:" $):RH$""ĺG$:1890dlJ1(RH$):((RH$,J,1))48((RH$,J,1))57ĺG$:8:24:" ":1890kvJRH%0RH%23ĺG$:8:24:" ":189010:14:"MINUTES: "10:24:" ";RM$:RM%(RM$):RM$""ĺG$:19407 J1(RM$):((RM$,:1830!MM4.0MA$"+":1830<MM3.0MA$"X":1830WMM2.0MA$"*":1830cMA$"#"&MA$"V"Z3$(126):1400+Z3$MA$:14000:::DN:::" RIGHT ASCENSION":X8:14:"HOURS: "b8:24:" ";RH$:RH%(RH1)"-"(MM$,J,1)"."((MM$,J,1))48((MM$,J,1))57ĺG$:15:10:" ":1660dJMM$")"MA$")":1830MM$"="MA$"=":1830MM$"^"MA$"^":1830MM$"V"MA$"V":1830MM6.0MA$".":1830MM5.0MA$"'"2|15:10:" ";MM$:MM(MM$):MM$""ĺG$:1660^MM$"-"ĺG$:15:10:" ":1660MM$"0"MM$"1"MM$"2"MM$"3"MM$"4"MM$"5"MM$"6"MM$"7"MM$"8"MM$"9"1730MM$")"MM$"^"MM$"="MM$"V"1730J1(MM$)](MM$,J,:1580@Z2$DS$:1400 J:JT" ENTER MAGNITUDE/TYPE "::~^" ) = GALAXY":" = = NEBULA"h" ^ = GLOBULAR/GALACTIC CLUSTERS":" V = VARIABLE STARS":::r" OR TYPE IN MAGNITUDE NUMBER"::CO88:G$:6:33:" ":15203Z1$CO$:1400]":10:"ENTER DESCRIPTION ..........",10:18:" ";DS$:DS$""ĺG$:10:19:" ":10:19:"..........":15806(DS$)0(DS$)10ĺG$:10:19:" ":10:19:".........."40 CC11AZ1510,1570,1610,1860,2090,24307:=:C:q:6:"ENTER CONSTILLATION NO. (1 - 88) "6:33:" ";CO$:CO(CO$):CO$""ĺG$:1520J1(CO$):((CO$,J,1))48((CO$,J,1))57:G$:6:33:" ":1520J!CO1OUND0DxY1$Z1$:Y2$Z2$:Y3$Z3$:Y4$Z4$:Y5$Z5$:1230: TO SCREENu20:36:" ";AZ$:AZ(AZ$):AZ$""ĺG$:1410J1(AZ$):((AZ$,J,1))48((AZ$,J,1))57ĺG$:20:36:" ":1410JAZ1AZ6ĺG$:20:36:" ":1410AZ6CC0$:9:11:"TURN DATA DISK OVER":::7:"PRESS RETURN WHEN FINISHED ";AN$:QW(:]2:s< CHANGE A RECORDFTYPE1:660:750:850:VM$V1$:330: GET RA DEC WHICH FILE # OF RECPRE0İ1120:40Z460: SEARCHdFOUND0İ1120:40nFILL POWER":5::'^ER4ė:9:12:"WRITE PROTECTED":5:O'rER77AA(0):'|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":D PROGRAM":14:7:"PRESS RETURN WHEN FINISHED ";AN$:2&460j&>21:16::"LOADING CHG/DEL"::D$;"RUN UP003,V250"p&H~&@ER(222)&JER7ė:9:10:"WRONG DISK OR SIDE":5:'TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...K40:390:400:410:420:7680440:380:390:7680V40:300:310:420:430:7680|30:150:160:270:40:280:7680D40:360:370:7680l30:130:140:250:260:768030:270:40:280:768040:280:7680 40:390:400:7680)40:290:300:7680+40:290:300:7680><30:230:7680[d40:400:410:420:7680x30:100:200:210:768030:260:270:40:280:380:390:400:768030:100:110:170:180:190:200:210:7680,30:220:40:320:330:7680|360:370:7680& 40:320:330:7680L 30:180:190:40:300:310:7680x$30:130:140:150:250:260:270:7680L40:310:430:7680t30:140:150:160:170:180:190:200:768040:290:300:768030:140:150:260:270:76807000,7040,7080,7120,7160,7240,7280,7320,7400,7460,7500,7580,7620F0 :LD :RX :l 30:100:200:210:220:40:320:330:7680 40:280:290:400:410:7680 40:360:370:380:390:76804 30:220:230:7680\ 30:230:240:7680 40: OR SIDE":5:qTER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:rER77AA(0):|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":3S RETURN WHEN FINISHED ";AN$:PP1:)~/:5 :;:Q DATA STATEMENTSW(:2 "0 - 2","2 - 4","4 - 6","6 - 8","8 - 10","10 - 12","12 - 14","14 - 16","16 - 18","18 - 20","20 - 22","22 - 24"<@ER(222)JER7ė:9:10:"WRONG DISK":330$IN2:INSIİ2803.F$"C2":330:1130I8IN1:INSIİ280gBF$"A1":330:F$"B1":330}LIN2:INSIİ280VF$"C1":330:1130` RECYCLEjS11S12S20İ34kD$;"PR#0":80#t:G$:9:13:"TURN PRINTER ON":::7:"PRES PROTECTED":5:%-rER77AA(0):X-|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":980, SIDE2İ12901, 260: WRT TO STAT FILE@, SIDE1:40F, T,@ER(222),JER7ė:9:10:"WRONG DISK OR SIDE":5:,TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:-hER4ė:9:12:"WRITE""ĺG$:2850+, AN$"Y"2920/+6 AN$"N"40M+@ G$:17:32:" ":2850S+J :Y+T :q+^ DELETE THE OBJECT+h RFRE:1160:Z1$X1$:Z2$X2$:Z3$X3$:Z4$X4$:Z5$X5$+r R1K:590:RERE1:400+| SIDE1B1B11:2960+ SIDE2B2B21, SIDE12Z3$(126)Z3$"V"V* 10:"CONSTELLATION ";Z1$::10:"DESCRIPTION ";Z2$:* 10:"MAGNITUDE/SYMBOL ";Z3$::10:"RIGHT ASCENSION ";Z4$:* 10:"DECLINATION ";Z5$:::* 7:"DELETE THIS OBJECT (Y/N)?" +" 17:32:" ";AN$:AN$RN OVER DISK) 260:40) :%) :+) :?) DELETE OBJECTu) TYPE1:660:750:850: GET RA DEC CK WHICH FILE) VM$V1$:330: # OF REC) RE0İ1120:40) 460: SEARCH) FOUND0İ1120:40) FOUND0) ::15:"O B J E C T"::* 1B11:B2B214( 1290:SIDEISIDE: TURN DISK OVER:(( :@(2 :t(< F3$F4$:Z1$Y1$:Z2$Y2$:Z3$Y3$:Z4$Y4$:Z5$Y5$(A Y3$"V"Z3$(126)(F VM$V2$(P 330:RERE1:R1RE:590: NEW REC(Z 400: WRT REC 0(d :(n SIDE12690 )x 1290:SIDE1: TU RFRE:VM$V1$:1160: RD LAST FILEC' D$;"OPEN ";F3$;",L33";VM$_' D$;"WRITE ";F3$;",R";K|' X1$:X2$:X3$:X4$:X5$' D$;"CLOSE"' RERE1:400: 1 LESS TO REC 0' SIDEISIDE2620: NO CHG TO STATS' SIDE1B1B11:B2B21( SIDE2B$,8):1400&V :&` :&j :8&t QUIT AND MAKE CHANGESd&~ TYPE2:850: CK WHICH FILE CHG GOES TOw& F3$F4$2500& Z1$Y1$:Z2$Y2$:Z3$Y3$:Z4$Y4$:Z5$Y5$& Z3$"V"Z3$(126)& R1K:580:TYPE1:40& :& :& CHANGES TO DIFF FILES$'%)%(D9$,1)"-"DDDD%TS%3600:2310=%DDDD%TS%3600]% DD(DD104.5)(104.5)% DD79.6259DD79.6259ė:6:"DECLINATION OUT OF RANGE":" RANGE 79.6259 TO -79.6259":J12000:J:2090% DZ$(DD):(DZ$)8Z5$DZ$:1400 &$ Z5$(DZ10:35:" ":G$:60L d:G$:10:3:"PRINT TO SCREEN OR PRINTER (S/P)?"p n10:37:A$:A$:A$""ĺG$:110 xA$"S"170 A$"P"150 10:37:" ":G$:110 :G$:10:13:"TURN PRINTER ON":14:8 "PRESS RETURN WHEN FINISHED ";B$ _ CHECK ENVIRON FILE< SOURCE PROGRAM NAME 'EN003'i COPYRIGHT 1985 BY GIL DAVIES DENVER CO(D$(4):G$(7):FF$"EN002"2:10:3:"PRINT ENVIRONMENTAL DATA (Y/N)?"<10:35:A$:A$:A$""ĺG$:60FA$"Y"100PA$"N"480 Z  '@ER(222)A'TER7ė:9:10:"WRONG DISK OR SIDE":1540:DIS AUSTRINUS","PUPPIS","PYXIS","RETICULUM","SAGITTA","SAGITTARIUS","SCORPIUS","SCULPTOR","SCUTUM"& "SERPENS","SEXTANS","TAURUS","TELESCOPIUM","TRIANGULUM","TRIANGULUM AUSTRALE","TUCANA","URSA MAJOR","URSA MINOR","VELA","VIRGO","VOLANS","VULPECULA"',"HOROLOGIUM","HYDRA","HYDRUS","INDUS","LACERTA"% "LEO","LEO MINOR","LEPUS","LIBRA","LUPUS","LYNX","LYRA","MENSA","MICROSCOPIUM","MONOCEROS","MUSCA","NORMA","OCTANS","OPHIUCHUS","ORION"a& "PAVO","PEGASUS","PERSEUS","PHOENIX","PICTOR","PISCES","PISCASSIOPEIA","CENTAURUS","CEPHEUS","CETUS","CHAMAELEON","CIRCINUS","COLUMBA","COMA BERENICES","CORONA AUSTRALIS","CORONA BOREALIS","CORVUS","CRATER","CRUX"/% "CYGNUS","DELPHINUS","DORADO","DRACO","EQUULEUS","ERIDANUS","FORNAX","GEMINI","GRUS","HERCULES",PP1: #<#P:#d:#x:4# DATA STATEMENTS:#:# "ANDROMEDA","ANTLIA","APUS","AQUARIUS","AQUILA","ARA","ARIES","AURIGA","BOOTES","CAELUM","CAMELOPARDALIS","CANCER","CANES VENATICI","CANIS MAJOR","CANIS MINOR"$ "CAPRICORNUS","CARINA","C:7680"$40:400:410:7680?"L30:260:270:40:280:7680W"40:410:420:7680o"30:230:240:7680" PRINT REPORT"S11S12S20İ1620"D$;"PR#0":1800#(:G$:9:12:"TURN PRINTER ON":::7:"PRESS RETURN WHEN FINISHED ";AN$:40:310:320:7680,!40:350:360:7680R!30:200:210:40:320:330:7680j!H40:370:380:7680!p40:340:450:7680!30:140:150:160:170:260:270:40:280:290:7680"30:100:110:120:130:140:150:160:170:180:190:200:210680 40:430:440:76803 30:230:240:7680c @30:230:240:250:40:350:360:370:7680 30:250:260:40:370:380:7680 30:220:40:330:340:350:450:7680 030:240:7680 X30:240:250:260:7680 40:280:290:7680!210:220:230:40:330:7680M`30:190:200:210:40:310:320:330:7680j40:340:440:450:768040:420:430:768030:220:40:320:330:7680P30:220:230:40:340:350:768040:290:300:410:420:7680 40:290:410:77680!40:290:300:310:76809 40:390:400:7680Q440:370:380:7680\40:340:350:360:370:380:390:400:410:420:430:440:450:768030:240:250:260:768040:300:310:768040:350:360:370:768030:100:110:40:280:290:7680<30:160:170:40:280:290:7680TT40:300:310:7680g|30:260:768030:250:260:40:370:380:768030:170:180:40:290:300:7680D30:120:240:7680l40:420:430:440:768030:230:40:350:90:40:290:300:310:7680340:340:350:7680_30:120:130:140:240:250:260:7680w40:430:440:768030:260:270:40:280:290:380:390:400:410:7680d40:430:440:450:768040:340:350:768030:100:110:7680430:100:110:120:220:230:240:7680<\30:230:7680Y40:420:430:440:768030:110:120:130:140:150:160:170:768030:230:768040:310:320:330:430:440:450:7680$40:320:330:440:450:7680L30:170:180:10,4700,4740,4780,4820,4860,4900,4940,5020,5060,5100,5140,5220,5260 C1CO44:C15300,5340,5380,5460,5500,5540,5620,5700,5740,5780,5860,5900,5940,5980,6040,6080,6120,6160,6240,6320,6360,6400@ C1CO66:C16480,6560,6600,6640,6680,6720,6800,6880,6960,2860| PP12980 7720- CO663100= CO443080M CO223060 CO3180,3280,3340,3380,3420,3460,3500,3540,3620,3660,3700,3740,3780,3820,3860,3900,3940,3980,4020,4100,4140,4220B C1CO22:C14260,4300,4340,4420,4460,4500,4580,4620,466DEC":15);" " LINE9:# :N :9:7:"ENTER CONSTELLATION NUMBER ", 9:33:" ";CO$:CO(CO$):X0:CO$""ĺG$:2860@ J1(CO$):((CO$,J,1))48((CO$,J,1))57ĺG$:9:33:" ":2860T Jh CO1CO88ĺG$:9:33:" ":(12):52);"O B J E C T L I S T I N G"::56);"CONSTELLATION NO. ";CO;" ";CZ$(CO);33(CZ$(CO)));"PAGE ";PG ::" CONSTELLATION DESCRIPTION SYMBOL R.A. DEC CONSTELLATION DESCRIPTION SYMBOL R.A.  S10:S20& D$;"READ ";F$;",R";J9 CS$:CS(CS$)J CSCO2680d( D$;"READ ";F$;",R";Jp< S1S11P CA$(S1,1):CA$(S1,2):CA$(S1,3):CA$(S1,4):CA$(S1,5)d S12İ1620x J D$;"CLOSE"  SUB TO PRINT HEADINGz PGPG1:N:IN1VM$",V240"/IN2VM$",V242"5; :A$ :c8 SUB TO READ ONE OF 36 FILESL D$;"OPEN ";F$;",L33";VM$` D$;"READ ";F$;",R0"t R1 R10ĺD$;"CLOSE": J1R1 S10S112540 M12:N15:CA$(M,N)"":N:M G$:9:10:"REMOVE PROGRAM DISK"::7:"INSTALL DATA DISK (";::"SIDE 1";::")":::7:"PRESS RETURN WHEN FINISHED ";AN$:SI1:SX1:VM$",V240":2840:::G$:9:10:"TURN DATA DISK OVER":::7:"PRESS RETURN WHEN FINISHED ";AN$:SIIUN CR001"'G$:9:35:" ":18206SX12840MJ188:CZ$(J):JaD$;"OPEN ";FH$uD$;"READ ";FH$~IT%Y1$,Y2$,Y3$,Y4$,Y5$,Y6$,Y7$,Y8$: DUMMY VARIABLES J1IT% EN(J)4JHSS$:SS%(SS$)\D$;"CLOSE"$p:$"Y"PG0:SW1:LINE100:S10:S20::1940aDAN$"N"SW1ė:G$:9:12:"REMOVE DATA DISK"::XAN$"N"SW1Ė5:"INSTALL PROGRAM DISK (";::"SIDE 1";::")"::7:"PRESS RETURN WHEN FINISHED ";AN$::D$;"RUN CR001,V250" lAN$"N"SW0::D$;"R;5);CA$(2,4);10(CA$(2,4)));CA$(2,5)7 LINELINE1M D$;"PR#0":S21: D$(4):IN1:NN0:PG0:G$(7):FH$"EN002":SW0:SX0:PP0:S10:S20 CA$(2,5),CZ$(88),EN(12) :9:2:"PRINT CONSTELLATION REPORT (Y/N)?" 9:36:AN$:AN$*0AN hP1IT%:(EN(P));:P? |LINE60İ2760:D$;"PR#0":1620 8);CA$(1,1);11(CA$(1,1)));CA$(1,2);16(CA$(1,2)));CA$(1,3);5);CA$(1,4);10(CA$(1,4)));CA$(1,5);28(CA$(1,5)));' CA$(2,1);11(CA$(2,1)));CA$(2,2);16(CA$(2,2)));CA$(2,3) F$"C11":2380:) F$"C12":2380:_ G$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::  PROGRAM TO PRINT BY CONSTELLATION , SOURCE PROGRAM NAME 'CR003' @ COPYRIGHT 1985 BY GIL DAVIES DENVER COLORADO TD$:D$;"PR#";SS%:IT%01660B10":2380:! @F$"B11":2380:6 JF$"B12":2380:J TF$"C1":2380:^ ^F$"C2":2380:r hF$"C3":2380: rF$"C4":2380: |F$"C5":2380: F$"C6":2380: F$"C7":2380: F$"C8":2380: F$"C9":2380: F$"C10":2380:80: F$"A10":2380:. F$"A11":2380:C F$"A12":2380:W F$"B1":2380:k F$"B2":2380: F$"B3":2380: F$"B4":2380: F$"B5":2380: F$"B6":2380: F$"B7":2380: "F$"B8":2380: ,F$"B9":2380: 6F$"B  80001760-IN1:INSIİ22403 J(IN2:INSIİ2240P*ddF$"A1":2380:xnF$"A2":2380:xF$"A3":2380:F$"A4":2380:F$"A5":2380:F$"A6":2380:F$"A7":2380:F$"A8":2380: F$"A9":23              "C5":330:1130&IN1:INSIİ280DF$"A4":330:F$"B4":330ZIN2:INSIİ280qF$"C4":330:1130IN1:INSIİ280F$"A3":330:F$"B3":330IN2:INSIİ280F$"C3":330:1130IN1:INSIİ280F$"A2":330:F$"B2280RF$"A7":330*\IN2:INSIİ280NfF$"B7":330:F$"C7":330:1130dpIN1:INSIİ280zF$"A6":330:F$"B6":330IN2:INSIİ280F$"C6":330:1130IN1:INSIİ280F$"A5":330:F$"B5":330IN2:INSIİ280F$İ280+F$"B10":330:F$"C10":330:1130AIN1:INSIİ280RF$"A9":330h IN2:INSIİ280F$"B9":330:F$"C9":330:1130 IN1:INSIİ280*F$"A8":3304IN2:INSIİ280>F$"B8":330:F$"C8":330:1130HIN1:INSIİIN1:INSIİ280'F$"A12":330=IN2:INSIİ280cF$"B12":330:F$"C12":330:1130yIN1:INSIİ280F$"A11":330IN2:INSIİ280F$"B11":330:F$"C11":330:1130IN1:INSIİ280F$"A10":330IN2:INSI31:" ";RA$:RA(RA$):X0:RA$""ĺG$:590yXJ1(RA$):((RA$,J,1))48((RA$,J,1))57ĺG$:19:31:" ":590bJlRA1RA12ĺG$:19:31:" ":590nPP1630q1140vRA640,680,720,760,800,840,880,920,960,1000,1040,1080- 14"::5:"2) 2 - 4 8) 14 - 16"::5:"3) 4 - 6 9) 16 - 18"::5:"4) 6 - 8 10) 18 - 20"::D5:"5) 8 - 10 11) 20 - 22"::5:"6) 10 - 12 12) 22 - 24"::::7:"SELECT A RANGE BY NUMBER"*N19:";39);"PAGE ";PG::" CONSTELLATION DESCRIPTION SYMBOL R.A. DEC CONSTELLATION DESCRIPTION SYMBOL R.A. DEC":15);" "LINE9:.0:2:8:"HOURS OF RIGHT ASCENSION":::5:"1) 0 - 2 7) 12 "READ ";F$;",R";JS1S11XCA$(S1,1):CA$(S1,2):CA$(S1,3):CA$(S1,4):CA$(S1,5)fS12İ34mJ}D$;"CLOSE" SUB TO PRINT HEADINGPGPG1:(12):52);"O B J E C T L I S T I N G"::50);CZ$(RA);" HOURS OF RIGHT ASCENSIONV240"IN2VM$",V242"!"',:-6:O@ SUB TO READ ONE OF 36 FILESmJD$;"OPEN ";F$;",L33";VM$TD$;"READ ";F$;",R0"^R1hR10ĺD$;"CLOSE":rJ1R1|S10S11390~M12:N15:CA$(M,N)"":N:MS10:S20D$;OGRAM DISK":: 7:"INSTALL DATA DISK (";::"SIDE 1";::")":::7:"PRESS RETURN WHEN FINISHED ";AN$:SI1:SX1:VM$",V240"::560 : : :G$:9:10:"TURN DATA DISK OVER":::7:"PRESS RETURN WHEN FINISHED ";AN$:SIIN:IN1VM$"," ":90 SX15600 J112:CZ$(J):JL D$;"OPEN ";FH$;",V250"` D$;"READ ";FH$i IT% Y1$,Y2$,Y3$,Y4$,Y5$,Y6$,Y7$,Y8$: DUMMY VARIABLES J1IT% EN(J) J SS$:SS%(SS$) D$;"CLOSE" :G$:9:10:"REMOVE PRS20::140> nAN$"N"SW1ė:G$:9:12:"REMOVE DATA DISK" pAN$"N"SW1ĺ:5:"INSTALL PROGRAM DISK (";::"SIDE 1";::")":::7:"PRESS RETURN WHEN FINISHED ";AN$::D$;"RUN CR001,V250" xAN$"N"SW0::D$;"RUN CR001,V250" G$:9:35:;CA$(2,5) ,LINELINE1/ .D$;"PR#0":S21:w <D$(4):IN1:NN0:PG0:G$(7):FH$"EN002":SW0:SX0:PP0:S10:S20 FCA$(2,5),CZ$(12),EN(12) P:9:2:"PRINT HOURS OF R.A. REPORT (Y/N)?" Z9:36:AN$:AN$ dAN$"Y"SW1:LINE100:PG0:S10:! &LINE60İ460:D$;"PR#0":34 (8);CA$(1,1);11(CA$(1,1)));CA$(1,2);16(CA$(1,2)));CA$(1,3);5);CA$(1,4);10(CA$(1,4)));CA$(1,5);28(CA$(1,5))); *CA$(2,1);11(CA$(2,1)));CA$(2,2);16(CA$(2,2)));CA$(2,3);5);CA$(2,4);10(CA$(2,4))) 800060JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::t PROGRAM TO PRINT BY HOURS OF R.A. SOURCE PROGRAM NAME 'CR002' COPYRIGHT 1985 BY GIL DAVIES DENVER CO"D$:D$;"PR#";SS%:IT%038$P1IT%:(EN(P));:P        z#?    Ұ!Ұ Ұ *)ΰͰ ͰʠF԰ ΰ а!!а'"Ұ ҰűŠӠŰʠ Ͱ(Ͱʠ=.75)((Y100)1))#NIDG715875G2620: GET SIDEREAL TIME (T2)l INPUT OF PLANETARY ORBIT DATArX08:Y08PD(X,Y)"Y,X, MERCURY6 .071422,3.8484,.388301,1.34041@ .3871,.07974,2.73514,.12223,.836013J31dM13M1:YY1n:"x:S CALC DAYS TO DATE REQ. FROM EPOC 1960,1,1mDG365YD((M1)31){M21470 FOR JAN & FEBDGDG((Y1)4)((.75)((Y1)1001))1490 FOR MAR THRU DECDGDG(M.42.3)(Y4)((ER(222)7JER7ė:9:10:"WRONG DISK OR SIDE":5:TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:rER77AA(0):|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":D1"::7);"CURRENT NUMBER OF OBJECTS ";B1:7);"SPACE REMAINS FOR ";B3::::4);"SIDE 2"::7);"CURRENT NUMBER OF OBJECTS ";B2:7);"SPACE REMAINS FOR ";B4:::4);"TOTAL STARBASE OBJECTS ";B5:D$;"PR#0":170 @TOTAL STARBASE OBJECTS ";B5::::7:"PRESS RETURN TO CONTINUE";AN$:170:G$:9:13:"TURN PRINTER ON":::7:"PRESS RETURN WHEN FINISHED ";AN$:PP1:D$;"PR#0":D$;"PR#";SS(12),:::11);"D A T A D I S K":::4);"SIDE 34:" ":320h r:12:"D A T A D I S K":::5:"SIDE 1"::8:"CURRENT NUMBER OF OBJECTS ";B1: |8:"SPACE REMAINS FOR ";B3::::5:"SIDE 2"::8:"CURRENT NUMBER OF OBJECTS ";B2::8:"SPACE REMAINS FOR ";B4::P5:"0" D$;"READ ";FF$! B1,B21 "D$;"CLOSE"T ,B33830B1:B43830B2:B5B1B2] 6RF1 @:G$:9:"PRINT TO SCREEN OR PRINTER (S/P)?":::9:35:AN$:AN$:AN$""ĺG$:320 JAN$"S"370 TAN$"P"PP1410 ^AN$"P"PP0400 hG$:9:0", AN$"N"SW0::D$;"RUN CR001,V250"F G$:9:37:" ":180r :G$:9:10:"REMOVE PROGRAM DISK":: 7:"INSTALL DATA DISK (";::"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$:SW1: RF1320 D$;"OPEN ";FF$;",V24(Y/N)?" 9:38:AN$:AN$2 AN$"Y"SW0240H AN$"Y"SW1250} AN$"N"SW1ė:G$:9:12:"REMOVE DATA DISK": AN$"N"SW1Ė5:"INSTALL PROGRAM DISK (";::"SIDE 1";::")":::7:"PRESS RETURN WHEN FINISHED ";AN$::D$;"RUN CR001,V25$"EN002":SW0:PP0:RF0$ FEN(12)@ PD$;"OPEN ";FH$;",V250"T ZD$;"READ ";FH$] dIT% nY1$,Y2$,Y3$,Y4$,Y5$,Y6$,Y7$,Y8$: DUMMY VARIABLES xJ1IT% EN(J) J SS$:SS(SS$) D$;"CLOSE" :9:"PRINT THE STARBASE STATISTICS  800060JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::q PROGRAM TO OUTPUT STARBASE STATS SOURCE PROGRAM 'CR005' OBJECT PROGRAM 'CR005.OBJ'( COPYRIGHT 1985 BY GIL DAVIES DENVER CO <D$(4):G$(7):FF$"UP002":FH  :::7:"PRESS RETURN TO CONTINUE ";A$= D$;"RUN CR001"C ^ 10:36:" ":G$:110D1);"LONGITUDE: ";U1$;"D ";U2$;"M ";U3$;"S ";P$::` 1);"PRINTER I/O SLOT: ";SS%:: IT%0ĺ1);"NO PRINTER CODES DEFINED":460 1);"PRINTER CODES:": 4); X1IT%1 EN(X);" "; X:EN(IT%) A$"P"ĺD$;"PR#0") ENTAL DATA ***":::1 61);"LOCATION: ";LL$] @(L1$)(L2$)(L3$)0N$"AT EQUATOR"v J(L1$)0N$"NORTH" T(L1$)0N$"SOUTH" ^DR$"E"P$"EAST" hDR$"W"P$"WEST" r:1);"LATITUDE: ";L1$;"D ";L2$;"M ";L3$;"S ";N$:9 |D$;"OPEN ";FF$% D$;"READ ";FF$. IT%S LL$,L1$,L2$,L3$,U1$,U2$,U3$,DR$b IT%0240o J1IT%z EN(J) J SS$ D$;"CLOSE":SS%(SS$) : : A$"P"ĺD$;"PR#";SS%:(12):::::300 " ,::5);"*** ENVIRONMPROX. 50 SEC."CI1*DXD:MXM:YXYLDR$"W"DD(LO15)24:1330_(DD(LO15)242(LY1M2(D)29)M3:DD29:1410<(LY0M2D28)M3:DD28:1410FD311410P(M4M6M9M11)MM1:DD30:1410Z(D)31MM1:DD2~23:26:" ";U3$:U3(U3$):U3$""ĺG$;:1150}J1(U3$):((U3$,J,1))48((U3$,J,1))57ĺG$;:23:26:SP$:1150JU30U359ĺG$;:23:26:SP$:1150:TS%U260U3LOU1TS%3600:9:12:"CALCULATING..."::12:"AP;DR$:DR$""ĺG$:1070D8DR$"E"DR$"W"ĺG$:19:36:SR$:1070L21:26:" ";U2$:U2(U2$):U2$""ĺG$:21:26:SP$:1100VJ1(U2$):((U2$,J,1))48((U2$,J,1))57ĺG$:21:26:SP$:1100`JjU20U259ĺG$:21:26:SP$:1100t:(L1$,1)"-"LAL1TS%3600:10203LAL1TS%3600BSW11200s19:26:" ";U1$:U1(U1$):U1$""ĺG$:1030J1(U1$):((U1$,J,1))48((U1$,J,1))57ĺG$:19:26:SP$:1030J$U1180U10ĺG$:19:26:SP$:1030.19:32:"E/W "G$:15:26:SP$:860pJBzL20L259ĺG$:15:26:SP$:860r17:26:" ";L3$:L3(L3$):L3$""ĺG$:910J1(L3$):((L3$,J,1))48((L3$,J,1))57ĺG$:17:26:SP$:910JL30L359ĺG$:17:26:SP$:910TS%L260L3 :800`4J1(L1$):((L1$,J,1))45((L1$,J,1))48((L1$,J,1))57ĺG$:13:26:SP$:800g>JHL190L190ĺG$:13:26:SP$:800\15:26:" ";L2$:L2(L2$):L2$""ĺG$:15:26:SP$:860fJ1(L2$):((L2$,J,1))48((L2$,J,1))57D$,J,1))57ĺG$:10:26:SP$:700(JLD1D31ĺG$:10:26:SP$:700ZM2790LY0D28ĺG$:10:26:SP$:700LY1D29ĺG$:10:26:SP$:700SW1960 13:26:" ";L1$:L1(L1$):L1$""ĺG$:800*L1$"-"ĺG$:13:26:SP$)0LY178:26:" ";MD$:M(MD$):MD$""ĺG$:640J1(MD$):((MD$,J,1))48((MD$,J,1))57ĺG$:8:26:SP$:640JM1M12ĺG$:8:26:SP$:64010:26:" ";DD$:D(DD$):DD$""ĺG$:700!J1(DD$):((DD$,J,1))48((D570)04:15:" ";LL$:LL$""ĺG$:560\:6:26:" ";YD$:Y(YD$):LY0:YD$""ĺG$:570e?FL2DJ1(YD$):((YD$,J,1))48((YD$,J,1))57ĺG$:6:26:SP$:570NJX(YD$)4(YD$)4ĺG$:6:26:SP$:570 bY4(Y4)0Y100(Y100ECONDS:":18:16:" --------------"n 19:5:"LONGITUDE DEGREES:":21:17:"MINUTES:":23:17:"SECONDS:"| SW0550 4:16:LL$:13:27:L1$:15:27:L2$:17:27:L3$ 19:27:U1$:19:32:"E/W ";DR$ 21:27:U2$:23:27:U3$&SW1R#0" AZ1SW1S L1(L1$):L2(L2$):L3(L3$):U1(U1$):U2(U2$):U3(U3$)Y  :2:14:"LOCATION/TIME"::4:5:"LOCATION:":6:20:"YEAR:":8:19:"MONTH:":10:21:"DAY:"# 13:5:"LATITUDE DEGREES:":15:17:"MINUTES:":17:17:"S00,400,390G 21:10::"LOADING UTILITY DIR."::D$;"RUN UT001,V250"c D$;"OPEN ";FH$;",V250"w D$;"READ ";FH$ IT% LL$,L1$,L2$,L3$,U1$,U2$,U3$,DR$ IT%0436 J1IT%:EN(J):J SS$:SS(SS$) D$;"CLOSE" (18):D$;"PT":7:10:"1 STANDARD LOCATION":11:10:"2 DIFFERENT LOCATION"i 15:10:"3 EXIT TO UTILITY DIR." 19:18:AZ$:AZ$:AZ(AZ$) ^AZ$""ĺG$:140 h(AZ$)48(AZ$)57ĺG$:19:18:" ":140 rAZ1AZ3ĺG$:19:18:" ":140 |AZ4),L(9),Q(9),X(9),R(10),V(10),EN(12)? FASN(X)(X(XX1))f PACO(X)(X(XX1))1.5707963 ZRAD(X).01745328(X) dDEG(X)57.299578(X) nSQ$" ":SP$" ":SR$" "B x:4:10:"CALCULATE RISE/SE ( 800040JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::o SOURCE PROGRAM NAME 'CA001' CALCULATE RISE/SET COPYRIGHT 1985 BY GIL DAVIES DENVER CO(D$(4):G$(7):FH$"EN002":SW0:K70# <PD(9,9),IP(10),A(9),DS(9               3-( PG360T3(PG360):T3T3360:PGPGT3J( PG360PGPG360:2790^( PG0PGPG360z( PG360PGPG360:2810( LMDLZ360NI27.32158( PGLMDPG( DR6.2886(RAD(PG))(" LMDLMDDR), LMD3600T3(LMD3600):T3T33600:LMDLMDT5'P TC.065711''Z T2TC(NI7020)GCA'x T224T2T224:2680\' T224T2T224:2690o' T20T2T224u' ' RA AND DEC OF MOON' LZ311.1687' LE178.699' LP255.7433' PG.111404NILP( PG360T3(PG360):T3T3360:PGPGT(A(3)3.14159X)23.44194DEG(L(I))2& XDEG(X)Q& R(3)DEG(A(3)3.14159)15q& R(3)24R(3)R(3)24:2570& R(3)24R(3)R(3)24:2580& R(3)0R(3)R(3)24&( V(3)(A(3)3.14159)23.44194&2 &< CALC SIDEREAL TIME T2'F GC11.92748.999999% X2ACO(AC)$% R.A.G% Z0RDEG(A(3)3.14159X)15j% Z0RDEG(A(3)3.14159X)15% R24RR24:2490% R24RR24:2500% R0RR24:2510% DECLINATION% Z0V(A(3)3.14159X)23.44194DEG(L(I))$& Z0V DEC"$8 ANG. DIST FROM SUN (Z)2$B ZA(3)A(I)T$L (Z)3.14159Z0ZZ6.28318v$V (Z)3.14159Z0ZZ6.28318$` CI3X0:2470$j Q(DS(I)2DS(3)22DS(I)DS(3)(Z))$t P(DS(I)DS(3)Q)2$~ AC(((P(PDS(I)))(DS(3)Q)))% AC1AC250#CPD(J,2)(APD(J,3))(#AACC#A6.28318AA6.28318^#A0AA6.28318:2290# DISTANCE OF PLANET FROM SUN (DS)# DSPD(J,4)PD(J,5)(APD(J,6))# DISTANCE FROM ECLIPTIC (L)# LPD(J,7)(APD(J,8))#$ $. CALC RA AND$;"PR#0""\:40"f"p:$"z:*":0":C" CALC A,DS,Le" HELIOCENTRIC LONGITUDE (A)~"ANIPD(J,0)PD(J,1)"A6.28318A((A6.28318)(A6.28318))6.28318"A6.28318T3(A6.28318):T3T36.28318:AAT3#A0AA6.28318:2" RISES AT: ";O1$(J);24(O1$(J)));"RISES AT: ";O1$(J1)!Q" TRANSITS AT: ";O2$(J);24(O2$(J)));"TRANSITS AT: ";O2$(J1)!S" SETS AT: ";O3$(J);24(O3$(J)));"SETS AT: ";O3$(J1):::!UJ"WDLA;" ";N9$;" LONGITUDE: ";LO;" ";DR$::8 GJ192^ I" ";P$(J);41(P$(J)));P$(J1) K" RIGHT ASCENSION: ";R$(J);23(R$(J)));"RIGHT ASCENSION: ";R$(J1) M" DECLINATION: ";V$(J);23(V$(J)));"DECLINATION: ";V$(J1)L!OLA0N9$"S":2113@N9$" "BAD$;"PR#";SS:(9);"80N";(12)SBYD$(YD$,2)C::25);"R I S E / S E T R E P O R T"::36);MD$;"/";DD$;"/";YD$:DLA(LA104.5)(104.5):LO(LO104.5)(104.5)+ E7);"FOR ";LL$;" LATITUDE: ";(104.5):V$(I)(V(I)))"4000:4200;$CITQ:CICI1K&CI3FLAPa(CI10I10:2720k*18954 PRINT REPORT7K7121109:G$:9:12:"TURN PRINTER ON":::7:"PRESS RETURN WHEN FINISHED ";AN$:K71:>LA0N9$"N":2113?R(I)R:V(I)VDR(I)(R(I)104.5)(104.5):R$(I)(R(I))vV(I)(V(I)104.5)(104.5):V$(I)(V(I))4000:4200ITQCI:CI3 ICI:A(I)DEG(A(I))R(I)(R(I)104.5)(104.5):R$(I)(R(I)) V(I)(V(I)104.5)IP):IP-D MERCURY,VENUS,SUN,MARS,JUPITERUN SATURN,URANUS,NEPTUNE,PLUTO,MOON]XF1b CALCULATE DATA FOR PLANETSgFLAP2050I1J08:2200A(I)A:DS(I)DS:L(I)LII1:JI19I3ĂI: SKIP EARTH23506,19.182. .901554,4.49084,.01396,1.28805= NEPTUNEj .000104,3.78556,.016965,.773181,30.06 .27054,2.33498,.031416,2.29162 PLUTO& .000069,3.16948,.471239,3.91303,39.440 9.86,5.23114,.300197,1.91812:IP110:P$(,.858702 JUPITERC .00145,4.53364,.090478,.23911,5.2028i .249374,1.76188,.01972,1.74533w SATURN .000584,4.89884,.105558,1.61094,9.5385 .534156,3.1257,.043633,1.977458 URANUS .000205,2.46615,.088593,2.9670 VENUS.T .027962,3.02812,.013195,2.28638Z^ .7233,.00506,3.85017,.059341,1.33168gh EARTHr .017202,1.74022,.032044,1.78547,1| .017,3.33926,0,0 MARS .009146,4.51234,.175301,5.85209,1.5237 .141704,1.04656,.03142OF WEST (E/W)?""T5:18:" ";L$R^11:17:" ";U1$:U1(U1$):U1$""ĺG$:350hJ1(U1$):((U1$,J,1))48((U1$,J,1))57ĺG$:11:17:" ":350rJ|U10U1180ĺG$:11:17:" ":35013:17:" ";U2$:U2(U2$):U2$""ĺG$:39U6$:DR$DM$:AA(0):40& AZ2320O "L$LL$:U1(U1$):U2(U2$):U3(U3$)f ,DR$"W"EW1:550} 6DR$"E"EW2:550 @:5:10:"LOCATION":8:6:"LONGITUDE RANGE (0 - 180)"::J10:"DEGREES"::10:"MINUTES"::10:"SECONDS"::10:"EAST TIME CONV~ :4:11:"TIME CONVERSIONS":8:10:"1 STANDARD LOCATION":12:10:"2 DIFFERENT LOCATION":16:10:"3 QUIT" 18:20:AZ$:AZ$:AZ(AZ$):AZ$""ĺG$:250 AZ1AZ3ĺG$:18:20:" ":250 AZ3ĺD$;"PR#0":U1$U4$:U2$U5$:U3$ CALCULATIONS"::D$;"RUN CA004,V252"3 SW1220 D$;"OPEN ";FH$:D$;"READ ";FH$:IT%:LL$,L1$,L2$,L3$,U1$,U2$,U3$,DR$:U4$U1$:U5$U2$:U6$U3$:DM$DR$ J1IT%:EN(J):J SS$:SS(SS$):D$;"CLOSE":SW1 AZ1AZ2220 AZ21900 19:" ":100 xAZ4135\ 22:11::"LOADING UTILITY DIR."::D$;"RUN UT001,V250"k AZ3150 G$::9:10:"TURN PROGRAM DISK OVER"::10:"TO (";::"SIDE 2";::")":15:7:"PRESS RETURN WHEN FINISHED ";AN$% 20:7::"LOADING MISC.(18):D$;"PR#0":AA(0)v P:4:14:"CALCULATIONS":8:9:"1 TIME CONVERSIONS":::9:"2 EPOCH CONVERSIONS":: Z9:"3 MISC. CONVERSIONS":::9:"4 EXIT TO UTILITY DIR." d19:19:AZ$:AZ$:AZ(AZ$):AZ$""ĺG$:100 nAZ1AZ4ĺG$:19:' 800040JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::l SOURCE PROGRAM NAME 'CA003' CALCULATIONS COPYRIGHT 1985 BY THE DATA RESERVE(:AA(0)2EN(12),PR$(10,6)<G$(7):D$(4):FH$"EN002":SW0:SK0:SL0 F          PROGRAM":D)(TS)" HOUR "(TP)" MIN"#/1/@ER(222)_/JER7ė:9:10:"WRONG DISK OR SIDE":5:/TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:/hER77AA(0): 0|:G$:9:4:"SYSTEM CRASH - REBOOT 2160.TTT0TTTT24-.^TT24TTTT243.cZ.hTM60(TR(TR)):TR(TR):TM(TM).rTN60(TT(TT)):TT(TT):TN(TN).|TP60(TS(TS)):TS(TS):TP(TP).O1$(I)(TR)" HOUR "(TM)" MIN".O2$(I)(TT)" HOUR "(TN)" MIN"/O3$(IA0TATA-TAACO(TA)*-TADEG(TA)7-BTA15@-TZ0]-TR(BR(I)TZT2).99727l-TRTR160-TR0TRTR24-TR24TRTR24-CTA15-"TS(CR(I)TZT2).99727-,TSTS360-6TS0TSTS24-@TS24TSTS24.JTTR(I)T$)10RA$(RA$,4)4,D (DE$)9DE$(DE$,5):3160[,N (DE$)10(DE$)10DE$(DE$,4)o,X R(I)RM:V(I)DM,] R$(I)RA$:V$(I)DE$,l 4000,q 4200,v 2103, CALC RISE/TRAN/SET,TA(RAD(LA))(RAD(V(I))),TA0TA(TA):4040 -T3+ AL3600ALAL3600:3030;+ AL360ALAL360:3040I+ ALLMDAL]+ AL0ALAL360s+ AL360ALAL360+ HE5.1454(AL3.14159180)+ DMHE23.1444(LMD3.14159180)+ :+& RA$(RM):DE$(DM)+0 RA$(RA$,5):DE$(DE$,5),: (RA:RMRMT3#* RM24RMRM24:29506* RM0RMRM24K* ALLENI.052954|* AL3600T3(AL3600):T3T33600:ALALT3* AL3600ALAL3600:2990* AL360ALAL360:2990* AL0ALAL360:3010+ AL3600T3(AL3600):T3T33600:ALALT3")6 LMD360LMDLMD3600:2870B)@ LMD360LMDLMD360:2880_)J LMD0LMDLMD360:2890)T LMD3600T3(LMD3600):T3T33600:LMDLMDT3)^ LMD3600LMDLMD3600:2910)h LMD360LMDLMD360:2920)r RMLMD15 *| RM24T3(RM24):T3T324(T2)24T2T224:14108H2(T2):M2((T2H2)100)YS2((((T2H2)100)M2)100)yHR2(T2):MI2(T2(T2))60SE2(MI2(MI2))60:SE(SE2)MI2(MI2)RR(T1)IM(T1(T1))60:ES(IM(IM))60ES(ES):IM(IM) LOAD A4):T3T324:T2T2T3.T224T2T224:1300IT224T2T224:1310\(T20T2T224f21400{< CONVERT TO LMTFT2T1(TCNDGC)(ZN24TC)PT2T2(.0656667LGC)ZT20T2T224:1370dT224T2T224:1380nT2T2(T224TC)x100)M1)100)- PARAMETERS FOR TIME CALCSM GMST AT EPOCH 1979 MAR 22^GC11.927485v DAILY CHG OF GMSTTC.065711T$"LMT"1350 CONVERT TO LSTT2TCNDGC(((ZNT1)24)TC)T1T2T2(.0656667LGC) T224T3(T22(M1)31)((Y1)4)((.75)((Y1)1001)):1140@V MAR-DECf`DG365YD((M1)31)(M.42.3)jDGDG(Y4)((.75)((Y100)1))tDEDG:NDDEEP~TC.065753 LOOP FOR 10K1NOH1(T1):M1((T1H1)100) S1((((T1H1)CALCS AND TIME INTERVALS'NO10:IN1B TIME ZONE CORRECTIONQTZ21060dLGC(ZN15)LOtLGC01040ZNZN(LGC15):1060ZNZNLGC15 CALC DAYS FROM EPOCH$EP722895.M311208 JAN-FEBBDG365YD2LDGDG(890421:35:" ";MI$:MI(MI$):MI$""ĺG$:910^MI0MI59ĺG$:21:35:" ":91022:35:" ";SE$:SE(SE$):SE$""ĺG$:930SE0SE59ĺG$:22:35:" ":930 CONVERT CLOCK TIME TO DECIMALT1HRMI60SE3600 # OF YD$)4ĺG$:11:24:" ":830GR16:37:" ";LS$:LS$""ĺG$:850k\LS$"L"T$"LST":U$"LMT":890fLS$"S"T$"LMT":U$"LST":890pG$:16:37:" ":850z20:35:" ";HR$:HR(HR$):HR$""ĺG$:890HR0HR23ĺG$:20:35:" ": 5:24:" ";MD$:M(MD$):MD$""ĺG$:780QM1M12ĺG$:5:24:" ":780 8:24:" ";DD$:D(DD$):DD$""ĺG$:800*D1D31ĺG$:8:24:" ":8004M2D29ĺG$:8:24:" ":800>11:24:" ";YD$:Y(YD$):YD$""ĺG$:830!H(:5:9:"MONTH (1 - 12)":::9:"DAY (1 - 31)":::9:"YEAR (4 DIGITS)"::" (L) LOCAL TO SIDEREAL TIME":11:"OR":" (S) SIDEREAL TO LOCAL TIME (L/S)?"20:" ENTER THE TIME: HOURS (0-23)":21:"MINUTES (0-59)":21:"SECONDS (0-59)",G$:9:30:" ":680aJ1(ZN$):((ZN$,J,1))48((ZN$,J,1))57ĺG$:9:30:" ":680:9:"PRINT TO SCREEN OR PRINTER (S/P)?"9:35:SP$:SP$:SP$""ĺG$:710SP$"S"SP1:750SP$"P"SP2:750G$:9:34:" ":710OCURACY OF THE CALCULA-"::11:"TIONS."Mv7:33:TZ$:TZ$:TZ$""ĺG$:630dTZ$"Y"TZ1:670{TZ$"N"TZ2:700G$:7:32:" ":630:9:10:"ENTER YOUR TIME ZONE"9:30:" ";ZN$:ZN(ZN$):ZZN:ZN$""ĺG$:680ZN0ZN23W2LO0LB0:LOLBLO:600+N TIME ZONEoX:5:11:"DO YOU WISH TO ENTER"::11:"YOUR TIME ZONE (Y/N)?"b11:11:"NOTE: GIVING YOUR TIME"::11:"ZONE (NUMBER OF HOURS"::11:"FROM THE PRIME MERIDIAN)":'l11:"WILL INCREASE THE"::11:"ACJ-U30U359ĺG$:15:17:" ";430S17:29:" ";DR$:DR$""ĺG$:470jDR$"W"EW1:550p:v:|:DR$"E"EW2:550G$:17:29:" ":470 CALCULATE LO&TS%U260U30LOU1TS%3600:EW2LO0600DE0NJ1(U2$):((U2$,J,1))48((U2$,J,1))57ĺG$:13:17:" ":390UJU20U259ĺG$:13:17:" ":39015:17:" ";U3$:U3(U3$):U3$""ĺG$:430J1(U3$):((U3$,J,1))48((U3$,J,1))57ĺG$:15:17:" ":430R2D$(4):1012,0Q<(4)"BLOAD RUNTIME"(13)(4)"BRUN HE001.OBJ"(13) L  ,-`  Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`    q% 0 L`0L],wyywxzzx,Hyw wȄffȪ yw fhХhЪHwyxzwyܨwyӈ֢L  `  `  `  憅`  ` QP`  L  8e`LԩLcغh8uhHvH`  L  L  L~  憅  L  ʊ8$!   W$Li)$`  LY  L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J :, hhlP,q`h8uhv] :  ڢ gbhcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hwУ8 ewwx𴰺   抦5?wtsʆwx8dedЕБt Z Z ,խvqqȹ ",ȅ' :",ȹ ,:Vqewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk  ЮU 4Г U  5,wЅƩѤ wU!  5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓ28oph0L8` ZLhHH`/ii8ढ़ɐ0LLЗ{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.QP$  "LWHhL:5~  e  eȱeeLaL  LRwewexHH Jhh`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0<;d\PFfee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEgcbbȱbe ( HH`S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`[bcb}bb}PLb] b0(]0b 륡ݵj=i<<=kJ1(D9$):((D9$,J,1))45((D9$,J,1))48((D9$,J,1))57ĺG$:18:32:" ":2090&HJ&RDC90DC90ĺG$:18:32:" ":2090.'WDC90DC90MC$"0":MCG$:12:32:" ":2010%JI%MI0MI59ĺG$:12:32:" ":2010z%13:32:" ";SI$:SI(SI$):SI$""ĺG$:2050% J1(SI$):((SI$,J,1))48((SI$,J,1))57ĺG$:13:32:" ":2050%J% SI0SI59ĺG$:13:32:" ":2050)&*18:RI(RI$):RI$""ĺG$:1970i$J1(RI$):((RI$,J,1))48((RI$,J,1))57ĺG$:11:32:" ":1970p$J$RI0RI23ĺG$:11:32:" ":1970$12:32:" ";MI$:MI(MI$):MI$""ĺG$:2010%J1(MI$):((MI$,J,1))48((MI$,J,1))57ĺ:"SECONDS:"::o#6:"DECLINATION FOR ORIGINAL EPOCH"::22:"DEGREES:":22:"MINUTES:":22:"SECONDS:"::#4:"ENTER YEAR OF NEW EPOCH"#7:32:" ";Y1$:Y1(Y1$):Y1$""ĺG$:1950#(Y1$)4ĺG$:7:32:" ":1950$11:32:" ";RI$DM$:AA(0)"DAN$"Y"240-"NAN$"N"80;"XG$:1850L"b EPOCH CONV"l:4:12:"EPOCH CONVERSIONS":::4:"ENTER YEAR OF ORIGINAL EPOCH":"vRAD(X)X57.29878#6:"RIGHT ASCENSION FOR ORIGINAL EPOCH"::22:"HOURS:":22:"MINUTES:":22!:7:"PRESS RETURN TO CONTINUE ";AN$v!:G$:9:6:"ANOTHER CALCULATION":6:"SAME LOCATION (Y/N)? ";:AN$:AN$!AN$"Y"750!&AN$"N"1850!0G$:1810!::G$:9:7:"DIFFERENT LOCATION (Y/N)? ";:AN$:AN$ "?U1$U4$:U2$U5$:U3$U6$:DR$TIME"H " ";V1$;" ";V2$:" HR MIN SEC HR MIN SEC":T L1NO " ";PR$(L,1);5(PR$(L,1)));PR$(L,2);5(PR$(L,2)));PR$(L,3);10(PR$(L,3))); PR$(L,4);5(PR$(L,4)));PR$(L,5);5(PR$(L,5)));PR$(L,6) L:D$;"PR#0"(T ";"TZ1ĺ"ZONE ";Z:1700+" "E(MD$)1MD$"0"MD$_(DD$)1DD$"0"DD$" DATE: ";MD$;"/";DD$;"/";(YD$,2)::U$"LMT"V1$"LOCAL MEAN TIME":V2$"LOCAL SIDEREAL TM":1750 V1$"LOCAL SIDEREAL TM":V2$"LOCAL MEAN "PRESS RETURN WHEN FINISHED ";AN$:SK1:LTD$;"PR#";SS:SL0ĺ(12):SL1^::" CONVERT ";U$;" TO ";T$;" 10 HOUR CYCLE":hLP(LO102.5)(102.5)r" LOCATION: ";L$:" LONGITUDE: ";LP;" ";|DR$"E"ĺ"EAST ";:1680"WESRRAYPR$(K,1)(RR)*PR$(K,2)(IM)=PR$(K,3)(ES)QPR$(K,4)(HR2)ePR$(K,5)(MI2)yPR$(K,6)(SE2)T1T1IN"T124T1T124:NDND1:1570,K6 REPORT@SP1ė:1630)JSK0ė:G$:9:12:"TURN PRINTER ON":::7:{LHzII_#Hz2ީI_5zV︰Rh` VɭL꽌ɭLʾӠӠ׍d /@ER(222)?/JER7ė:9:10:"WRONG DISK OR SIDE":5:/TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:/rER77AA(0):/|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":ATES ";MC$;7(MC$));ME$:18);"SECONDS ";SC$;7(SC$));SE$U.- SP2ĺD$;"PR#0".2 :::::7:"PRESS RETURN TO CONTINUE ";AN$.< :9:7:"ANOTHER CALCULATION (Y/N)? ";:AN$:AN$.F AN$"Y"1900.P AN$"N"SK0:SO0:SK0:80.Z G$:2620/11);"EPOCH CONVERSION":::27);Y1$;" ";Y2$:- " RIGHT ASCENSION HOURS ";RI$;7(RI$));R3$:18);"MINUTES ";MI$;7(MI$));M2$- 18);"SECONDS ";SI$;7(SI$));S2$:::" DECLINATION DEGREES ";D9$;7(D9$));(D4)@. 18);"MINUSP$:SP$""ĺG$:2545., SP$"S"SP1:2549F, SP$"P"SP2:2549a, G$:9:34:" ":2545s, SP1ė:2570, SK0ė:G$:9:12:"TURN PRINTER ON":::7:"PRESS RETURN WHEN FINISHED ";AN$:SK1:, :D$;"PR#";SS:SL0ĺ(12):SL10- :::D4(D2)1:2490+ D4(D2)@+ D20ME160(D2(D2)):2510[+ ME60(D2(D2)):2520h+ ME60MEy+ ME$((ME))+ SE60(ME(ME))+ SE(SE)+ SE$(SE)+ SO12549+ :G$:9:"PRINT TO SCREEN OR PRINTER (S/P)?":SO1, 9:35:SP$:@L BL DL FL HL JLdOL QL SL UL WL YL [L ]L _L aL 8L 8L 8L 8L 8L 8L D n c  L ) > u TLLm X    LLOADING MAIN DIRECTORY     L! RUN MA001   LcLc@" $~( ?wLd2L 4L 6L 8L :L L  ~ 4 L:   O   L :   E   ~ 4    ~  E   ~ 4 L:    L*: (  E   ~ 4    ~  E   ~ 4  m Lp: n  E   ~ 4    ~  c    l  * = Y ~  ;  [ c  * = c   ;  e   ~  Y      ~  E ~  ~ 4  m L): '  E ~  ~ 4    ~  E   ~ 4 Li: g   L|: z  E   ~ 4    ~  E  NTINUE  QLP STAR BASE 3000 STAR BASE 3000 STAR BASE 3000 STAR  [L?%:::::::::::::::::::::::::::::::::::::  o Y eLY P G 2    E  * = E ~  ;  G O  * = O ~  ;  Q Y v X ~ |    1 |L WELCOME TO: ' S T A R B A S E 3 0 0 0 ' VER 1.1 YOUR GALACTIC DATABASE TO THE HEAVENS! (C) 1985 THE DATA RESERVE DENVER CO PRESS ANY KEY TO CO     ׍׍׍׍٬ӬӬҬάӬŬϬάάӠӠ:5|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":GSTEM CRASH - REBOOT PROGRAM":UN FINISHED ";AN$N21:9::"LOADING INSTRUCTIONS"::D$;"RUN IM002,V252":\@ER(222)JER7ė:9:10:"WRONG DISK OR SIDE":5:TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:rER77AA(0)" " 370iG$::9:12:"TURN PRINTER ON"::12:"ADJUST PAPER"::12:"WILL NEED 35 SHEETS":::7:"PRESS RETURN WHEN FINISHED ";AN$G$::9:9:"TURN PROGRAM DISK OVER"::9:"TO (";::"SIDE 2";::")":::7:"PRESS RETURN WHE(1)39):37,A:36,B:" "GA((1)23):B((1)39):37,A:36,B:" "vA((1)23):B((1)39):37,A:36,B:"."A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:A((1)23):B((1)39):37,A:36,B:" "\A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:" "A((1)23):B(,V250"6T:13:12:" STARBASE 3000 ":J11500:J<^:BhqrA((1)23):B((1)39):37,A:36,B:"."|A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:" "A((1)23):B((1)39):37,A:36,B:" "-Z$:AZ(AZ$)! AZ$""ĺG$:270Q "(AZ$)48(AZ$)57ĺG$:19:8:" ":270w ,AZ1AZ4ĺG$:19:8:" ":270 6AZ320,330,1000,340 @21:16::"LOADING PLANET CALC"::D$;"RUN SM001,V250"J21:16::"LOADING UTILITIES"::D$;"RUN UT001 *"7 " * : 4 EXIT STARBASE 3000 *"f " * : *" " * : *" " * *" " ********************************" 19:8:AZ$:A" : 2 UTILITIES *"L " * : *"{ " * : *" " * : 3 PRINT INSTRUCTIONS *" " * ENTER : *" " * SELECTION : *"7 x" * : *"f " * : 1 CREATE STAR MAP *" " * ";::"MAIN ";::" : *" " * ";::" ";::" : *" " * ";::"DIRECTORY";:: *"L F" * *"{ P" * S T A R B A S E 3 0 0 0 *" Z" * *" d" * *" n" * : 7 800040JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::_ MAIN DIRECTORY SOURCE PROGRAM NAME 'MA001' COPYRIGHT 1985 BY GIL DAVIES DENVER CO(D$(4):G$(7)2:" ********************************" <" *      ""ĺG$:910TJ1(L3$):((L3$,J,1))48((L3$,J,1))57ĺG$:17:26:SP$:910[JL30L359ĺG$:17:26:SP$:910:TS%L260L3(L1$,1)"-"LAL1TS%3600:1020LAL1TS%3600:::SW11200$19:26::15:27:L2:L30:17:27:L3:960_\15:26:" ";L2$:L2(L2$):L2$""ĺG$:15:26:SP$:860fJ1(L2$):((L2$,J,1))48((L2$,J,1))57ĺG$:15:26:SP$:860pJzL20L259ĺG$:15:26:SP$:860: 17:26:" ";L3$:L3(L3$):L3$SW19608 13:26:" ";L1$:L1(L1$):L1$""ĺG$:800[*L1$"-"ĺG$:13:26:SP$:8004J1(L1$):((L1$,J,1))45((L1$,J,1))48((L1$,J,1))57ĺG$:13:26:SP$:800>JHL190L190ĺG$:13:26:SP$:800"RL190LY90ĺG$:L20" ";DD$:D(DD$):DD$""ĺG$:700kJ1(DD$):((DD$,J,1))48((DD$,J,1))57ĺG$:10:26:SP$:700rJD1D31ĺG$:10:26:SP$:700M2790LY0D28ĺG$:10:26:SP$:700LY1D29ĺG$:10:26:SP$:700: :$:6:26:SP$:570;bY4(Y4)0Y100(Y100)0LY1Al:Gv:u8:26:" ";MD$:M(MD$):MD$""ĺG$:640J1(MD$):((MD$,J,1))48((MD$,J,1))57ĺG$:8:26:SP$:640JM1M12ĺG$:8:26:SP$:640::"10:26:19:32:"E/W ";DR$121:27:U2$:23:27:U3$?&SW1570d04:15:" ";LL$:LL$""ĺG$:560:6:26:" ";YD$:Y(YD$):LY0:YD$""ĺG$:570DJ1(YD$):((YD$,J,1))48((YD$,J,1))57ĺG$:6:26:SP$:570NJX(YD$)4(YD$)4ĺG:5:"LATITUDE DEGREES:":15:17:"MINUTES:":17:17:"SECONDS:":18:16:" --------------"19:5:"LONGITUDE DEGREES:":21:17:"MINUTES:":23:17:"SECONDS:"SW05504:16:LL$:13:27:L1$:15:27:L2$:17:27:L3$19:27:U1$:D ";FH$IT%5LL$,L1$,L2$,L3$,U1$,U2$,U3$,DR$ED$;"CLOSE"NSW1L1(L1$):L2(L2$):L3(L3$):U1(U1$):U2(U2$):U3(U3$):2:14:"LOCATION/TIME"::4:5:"LOCATION:":6:20:"YEAR:":8:19:"MONTH:":10:21:"DAY:"^13***********"+T19:8:AZ$:AZ$:AZ(AZ$)@^AZ$""ĺG$:340ph(AZ$)48(AZ$)57ĺG$:19:8:" ":340rAZ1AZ3ĺG$:19:8:" ":340|AZ400,470,39021:16::"LOADING MAIN DIR."::D$;"RUN MA001"D$;"OPEN ";FH$D$;"REA* SELECTION : *"V "" * : *" ," * : *" 6" * : *" @" * *" J" *********************" ";::" : 2 DIFFERENT LOCATION *"k " * ";::"DIRECTORY";::" : *" " * : *" " * : 3 EXIT TO MAIN DIR. *" " * ENTER : *"' " *": " * : *"w " * ";::"CREATE ";::" : 1 STANDARD LOCATION *" " * ";::" ";::" : *" " * ";::"STAR MAP ";::" : *". " * ";:: *"P " * *"~ " * S T A R B A S E 3 0 0 0 * " * *" " * *" " * : ),R(9),V(9)' FASN(X)(X(XX1))N PACO(X)(X(XX1))1.5707963i ZRAD(X).01745328(X) dDEG(X)57.299578(X) nSQ$" ":SP$" ":SR$" " x:" ********************************"" " *&$ SOURCE PROGRAM NAME 'SM001'E PLANET CALCULATION PROGRAMr COPYRIGHT 1985 BY GIL DAVIES DENVER CO(D$(4):FF$"SM003":G$(7):FH$"EN002":SW02QQ$",": COMMA USED FOR WRITING SEQUENTIAL <PD(9,9),IP(10),A(9),DS(9),L(9),Q(9),X(9                ;M SM \ hM  Q % R  ;M SM \ hM  Q % R L& SM \ hM  QL&< & o M N PML& L!&!L&&- SM \ hM  Q &  ;M SM \ hM  Q & R  ;M SM \ hM  Q $& R L& SM \ hM  QL&> & o 1 NR #Q L&   M  P +N  ;M M  P N &R  ;M M  P uO R L$L& M  P N c nP i N # eM hM WO L+% ZO eM hM N (L?% N eM M  P c xO c N i N # M M \ hM  Q M  Q o N }M PML% L%!L%- SM \ hM  Q % M a '  Q  '  Q  '  R  '  P  '  P  Q  M Q Q R Q P  [N P  M ^N N c nP i N # eM hM WO LD$ ZO eM hM N (LX$ N eM M =N xO :N c N i N # M  1 NR #Q L$CLOSE $  N N .N N NR OQL"! " o JP _ M  QL"! " o O _ M  QL"! " o 1 _R #Q L#OPEN #  Q L#,L33 #  #Q L6#READ 0#  Q LK#,R0 G#  '  N  N yN $L~$ N NR N   #Q L#READ #  Q L#,R #  N N DR P   N N N M  P P 5 P  Q N _R AP   N dR eP   M \ M  QL" " o 1 dR 1 _R N dR eP   M \ N QLK"- I" o M \ P QLd"- b" o 1 dR N _R AP   &P _ M  QL"! " o N _ M    lO  'L PRESS RETURN TO CONTINUE   DQ  XL A  P #Q L !PR# !  M ^ M pN $LP! N R M   RN  P   1 R P   N iR P  Lq! p! Q  Q  1 iR #Q L!PR#0 !  NO N |N N L!DATA DISK OVER. THROUGHOUT THIS   N L PROCESS THE COMPUTER MAY SEEM   N LB TO STOP AT TIMES. THIS OCCURS #  N Lz BECAUSE THE PROGRAM HAS A LOT OF Y  N L CALCULATIONS TO PERFORM. ' IS NOW CREATING   N L!YOUR STAR MAP. THE STAR MAP WILL   N L. TAKE APPROXIMATELY 40 MINUTES TO    N Lf PRINT. HALF WAY (ABOUT 20 MIN.) E  N L YOU WILL BE PROMPTED TO TURN THE }  O QL3  o 8Q  M X aQ  O  O LREMOVE PROGRAM DISK   O L"INSTALL DATA DISK (   L7SIDE 1 0  sLG) E  O  'LPRESS RETURN WHEN READY g  DQ  X X N L'STARBASE 3000P  N R M   ' RN  P  o  1 R '  :Q  #Q LCLOSE   N QL 1   o N QL2  o N QL24 0 o *O QLE5 C o EO QLX6 V o lO QLk7 i o O QL~8 | o O QL9  o O QLM  o lO XQ  o O XQ  o N P  o O XQ  o O XQ  o O XQ  o N P  o P XQ  o  #Q LCLOSE   vQ  #Q L=OPEN 7  Q  #Q L]READ W  Q  '  M  '  Q  Q  Q  Q  Q  R  P  O  cQ #Q LOPEN   vQ  #Q LREAD   vQ  N R O   ' RN  mQ  o RN  /Q  o RN  Q  o  RN  P RN  -Q  o RN  P RN  Q  o 1 R ' N XQ  o N XQ  o N XQ  o *O XQ  o EO XQ  o # M \ hM  Q  L 3O ML N M tM M (` M \ hM  Q Q o ` X O   O  P L+TURN PRINTER ON   O  'LaPRESS RETURN WHEN READY H  DQ  |N M *O  %QLSM003  xQ |N N |N MLEN002  QM M \ hM  Q P wP  P L N MLL. M \ hM  Q  L N MLL' M \ hM  Q  L- N MLL2+ M \ hM  Q 0 LW O MLL\X M \ hM  Q Z L O MLL* M \ hM  Q  L O MLLj: &7jR{SjL wP  Q L N qMLL. Q 5  L N qMLL' Q 5  L# N qMLL(+ Q 5 & LD O qMLLIX Q 5 G Le O qMLLj* Q 5 h L O qMLL# Q 5  L 3O qML N q                   [  1 7\ X _ W  [  1 +\ [ L%PR#0 %  1 !\ [ L%PR# %  fW ^ W 2X $L@& \X s\ W   X  Z   1 s\ \X F\ Y  LU& T& y[  y[  1 F\ Y L&7* * * S O L A R S Y S T E M O BW  [ $  W 'W \ 3W  [ $ [  W 'W \ 3W  [ $ [ L% 'W \ 3W  [L%> % o 1 +\ [ L.%PR# *%  fW ^ W 2X $Lr% \X s\ W   X  Z   1 s\ \X +\ $Z  L% % y[ \X 7\ X   W \ W [ L# gY KWL# SX X L# pY KWL# yY KW NW \ 3W  [ W  Z o kX HW $WL $ L$!L$- 'W \ 3W  [ $  W 'W \ 3W  [  $ [  W 'W \ 3W  [ $ [ L$ 'W \ 3W  [L$< $ o NW hX $WL$ L$!L$- 'W \ 3[ L"L% W  ~Z W c HZ i hX # 0W 3W Y L" Y 0W 3W eX (L# kX 0W W  Z X X tX L8# wX X c GX i LY )X # KWL# wX X Lg# X %Y c GX i hX )X # KWL# X PX L~# UY KWL# X cZ L# ^Y KWL# X cZ ( W lZ X &Y KWL" X cZ L! ^Y KWL" X cZ ( W lZ X &[ L! gY KWL" SX X L" pY KWL" yY KW  1 +\ [ L-"CLOSE '"  X W W \X +\ Y   W  ~Z W  W W  ~Z W &[  W W  Z 1Y &[  W W  Z W (Y W &[  '  [  '  Z  '  Z  [  W [ [ [ [ Z  X Z  W X W c HZ i hX # 0W 3W Y L'! Y 0W 3W eX (L;! kX 0W W X X tX Lm! wX X c GX i LY )X # KWL" wX X L! X %Y c GX i hX )X # KWL" X PX L! UL!  o ZZ _ W  [L!  o 1 <\ [ LOPEN   Z L,L33   [ L READ   Z L. ,R0 *  '  W  W ;X $L" \X +\ W   [ Ls READ m  Z L ,R   W a '  [  '  o 1 A\ 1 <\ \X A\ X   W \ \X [L-  o W \ Y [L-  o 1 A\ \X <\ $Z   Y _ W  [L%! # o 6Z _ W  [LA! ? o Y _ W  [L]! [ o X _ W  [Ly! w o -Z _ W  [L!  o Y _ W  [L DATA DISK (   LSIDE 2   sL)   CY  'LPRESS RETURN WHEN FINISHED   0[  XL0B . Z X W CY !\ Y   X W W oW  Z Z 5 Z  Z X <\ $Z   \X A\ X   W \ W  [L  2  o X ZL4  o X ZL5  o X ZL6  o Y ZL7  o CY ZL 8   o Y ZL9  o Y ZL2M 0 o Y ZLE3 C o $[  cW X M[  M[  Y  Y LREMOVE PROGRAM DISK z  CY LINSTAL  b[  [ LOPEN   [  [ LREAD   [  '  W  '  [  [  [  [  [  [  Z  Z  \X s\ W   ' X  Z  o  1 s\ '  &[  [ LCLOSE ~  \X ZL1  o X ZL[  o X  n[  o  X  Z X  [  o X  Z X  l[  o 1 s\ ' \X D[  o X D[  o X D[  o X D[  o X D[  o Y D[  o CY D[  o \X Z  o Y D[  o Y D[  o Y D[  o X Z  o Y D[  o  [ LCLOSE # NW \ 3W  [  L X ZWL kX ZW ?W WW (` NW \ 3W  [ [ o ` >X xW X  [LSM003  d[ >X W >X WL2EN002 , [ CY  O[ [ LQOPEN L  b[  [ LpREAD k  b[  \X s\ Y   ' X  Y[  o X  W NW \ 3W  [ Z ZZ  Z L X ZWLL. NW \ 3W  [  L X ZWLL' NW \ 3W  [  L- X ZWLL2+ NW \ 3W  [ 0 LW X ZWLL\X NW \ 3W  [ Z L X ZWLL* NW \ 3W  [  L X ZWLLLD 84s[X]sL ZZ  [ L X IT%HLL$;QQ$;L1$;QQ$;L2$;QQ$;L3$;QQ$;U1$;QQ$;U2$;QQ$;U3$;QQ$;DR$RIT%0890\J1IT%fEN(J)pJzSS$D$;"CLOSE"PDS ";::U3$:::L"PRINTER CONTROL CODES I/O SLOT ";::SS$::IT%0Ğ:" NO PRINTER CODES DEFINED "::760:J1IT%1" ";EN(J);J:" ";EN(J)::9:"CORRECT (Y/N)?"23:23:AN$:AN$:AN$""ĺG$:77:9:"LOCATION ";::LL$::::9:"LATITUDE"::11:"DEGREES ";::L1$:11:"MINUTES ";::L2$::11:"SECONDS ";::L3$:::9:"LONGITUDE DIRECTION ";::DR$:::11:"DEGREES ";::U1$::11:"MINUTES ";::U2$:11:"SECON0XIT%IT%1:670\b19:11:"CODE #";IT%;:" ";EN$:EN(IT%)(EN$):EN$""ĺG$:610lJ1(EN$):((EN$,J,1))48((EN$,J,1))57ĺG$:19:21:SP$:610vJEN(IT%)0EN(IT%)255ĺG$:19:21:SP$:610EN(IT%)0670590L:AN$"Y"580-0AN$"N"EN(1)0:IT%0:670G:G$:15:19:SP$:540D:7:11:"ENTER THE ASCII PRINTER"::11:"CODES AT THIS TIME.":::11:"TO QUIT ENTER A ZERO"::11:"FOR THE LAST ASCII CODE."NIT%IT%1:IT%11Ģ19:18:" ":6157Ģ9:27:G$:9:27:" ":490TSS1SS6Ģ9:27:G$:9:27:" ":490:7:11:"DO YOU NEED TO ENTER"::11:"ANY SPECIAL PRINTER"::11:"CONTROL CODES FOR 132"::11:"COLUMN PRINTING (Y/N)?"15:19:AN$:AN$:AN$""ĺG$:540 &IME MERIDIAN"39:33:" ";DR$:DR$""ĺG$:460dDR$"E"DR$"W"ĺG$:9:33:" ":460:9:2:"ENTER PRINTER I/O SLOT #"9:26:" ";SS$:SS(SS$):SS$""ĺG$:490(SS$)1Ģ9:27:G$:9:27:" ":490$(SS$)48(SS$)1:" ";U3$:U3(U3$):U3$""ĺG$:410oJ1(U3$):((U3$,J,1))48((U3$,J,1))57ĺG$:15:21:SP$:410vJU30U359ĺG$:15:21:SP$:410 :9:7:"ENTER EAST OR WEST (E/W)?":20:9:"ALL OF THE UNITED STATES":6:"IS WEST OF THE PRU1180U10ĺG$:11:21:SP$:320NhU1180U20:U2$"0":U30:U3$"0":450r13:21:" ";U2$:U2(U2$):U2$""ĺG$:370|J1(U2$):((U2$,J,1))48((U2$,J,1))57ĺG$:13:21:SP$:370JU20U259ĺG$:13:21:SP$:370&15:20{ 6:9:11:"ENTER YOUR LONGITUDE:"::14:"DEGREES"::14:"MINUTES"::14:"SECONDS":20:9:"RANGE 0 TO 180 DEGREES" @11:21:" ";U1$:U1(U1$):U1$""ĺG$:320 JJ1(U1$):((U1$,J,1))48((U1$,J,1))57ĺG$:11:21:SP$:320 TJ#^1))48((L2$,J,1))57ĺG$:13:21:SP$:2304 JZ L20L259ĺG$:13:21:SP$:230 15:21:" ";L3$:L3(L3$):L3$""ĺG$:270 J1(L3$):((L3$,J,1))48((L3$,J,1))57ĺG$:15:21:SP$:270 "J ,L30L359ĺG$:15:21:SP$:271(L1$):((L1$,J,1))45((L1$,J,1))48((L1$,J,1))57ĺG$:11:21:SP$:170Z J L190L190ĺG$:11:21:SP$:170 L190L190L20:L2$"0":L30:L3$"0":310 13:21:" ";L2$:L2(L2$):L2$""ĺG$:230- J1(L2$):((L2$,J,;& 9:16:" ";LL$:LL$""ĺG$:150 :9:11:"ENTER YOUR LATITUDE:"::14:"DEGREES"::14:"MINUTES"::14:"SECONDS":20:9:"RANGE +90 TO -90 DEGREES" 11:21:" ";L1$:L1(L1$):L1$""ĺG$:170 L1$"-"ĺG$:11:21:" ":170S J < EN(X) PRINTER CODES? FD$(4):SP$" ":QQ$","b P:4:11:"DEFINE ENVIRONMENT" Z9:12:"CONTINUE (Y/N)?" d9:28:AN$:AN$ nAN$"N"ĺD$;"RUN UT001,V250" xAN$"Y"140 G$;:9:28:" ":100 :9:"ENTER LOCATION:" 800040JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::m SOURCE PROGRAM NAME 'EN001' PROGRAM TO SAVE ENVIRONMENT COPYRIGHT 1985 BY GIL DAVIES DENVER CO(G$(7):FF$"EN002":IT%0: NUMBER OF PRINTER CODES 2EN(12)         H8:14:"HOURS: "GR8:24:" ";RH$:RH%(RH$):RH$""ĺG$:850\J1(RH$):((RH$,J,1))48((RH$,J,1))57ĺG$:8:24:" ":850fJpRH%0RH%23ĺG$:8:24:" ":850z10:14:"MINUTES: "10:24:" ";RM$:RM%A$"=":810%MM$"^"MA$"^":810?MM$"V"MA$"V":810YMM6.0MA$".":810sMM5.0MA$"'":810MM4.0MA$"+":810 MM3.0MA$"X":810MM2.0MA$"*":810 MA$"#"*:4>:::" RIGHT ASCENSION":"MM$"5"MM$"6"MM$"7"MM$"8"MM$"9"710VMM$")"MM$"^"MM$"="MM$"V"710fJ1(MM$)(MM$,J,1)"-"(MM$,J,1)"."((MM$,J,1))48((MM$,J,1))57ĺG$:15:10:" ":640JMM$")"MA$")":810 MM$"="M ^ = GLOBULAR/GALACTIC CLUSTERS":" V = VARIABLE STARS":::yv" OR TYPE IN MAGNITUDE NUMBER"::15:10:" ";MM$:MM(MM$):MM$""ĺG$:640MM$"-"ĺG$:15:10:" ":640-MM$"0"MM$"1"MM$"2"MM$"3"MM$"4DS$""ĺG$:10:19:" ":10:19:"..........":570D(DS$)0(DS$)10ĺG$:10:19:" ":10:19:"..........":570N:X" ENTER MAGNITUDE/TYPE "::b" ) = GALAXY":" = = NEBULA"Ll" ION NO. (1 - 88) "A6:33:" ";CO$:CO(CO$):CO$""ĺG$:520J1(CO$):((CO$,J,1))48((CO$,J,1))57:G$:6:33:" ":520J&CO1CO88:G$:6:33:" ":5200:10:"ENTER DESCRIPTION .........."?:10:18:" ";DS$:R OF OBJECTS ";B2::8:"SPACE REMAINS FOR ";B4::5:"TOTAL STARBASE OBJECTS ";B5::::" CONTINUE (Y/N)?"23:29:AN$:AN$AN$"Y"510AN$"N"2030:G$:23:29:" ":470:6:"ENTER CONSTILLAT240"D$;"READ ";FF$#B1,B23D$;"CLOSE"VB33830B1:B43830B2:B5B1B2:12:"D A T A D I S K":::5:"SIDE 1"::8:"CURRENT NUMBER OF OBJECTS ";B1:=8:"SPACE REMAINS FOR ";B3::::5:"SIDE 2"::8:"CURRENT NUMBE8J21:16::"LOADING MAIN DIR"::D$;"RUN MA001,V250"RT ADD OBJECTS SECTIONX^:hG$::9:10:"REMOVE PROGRAM DISK"::7:"INSTALL DATA DISK (";::"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$:|SW1D$;"OPEN ";FF$;",V ********************************"R 19:8:AZ$:AZ$:AZ(AZ$):AZ$""ĺG$:280 "(AZ$)48(AZ$)57:G$:19:8:" ":280 ,AZ1AZ4:G$:19:8:" ":280 6AZ350,2110,320,330 @21:16::"LOADING UTILITY DIR"::D$;"RUN UT001,V250" *"= " * SELECTION : *"l " * : 4 EXIT TO MAIN DIR. *" " * : *" " * : *" " * *"" " *"R " * ";::"DIRECTORY";::" : 2 CHANGE/DELETE OBJ. *" " * : *" " * : *" " * : 3 EXIT TO UTILITY DIR.*" " * ENTER : : *"^ " * ";::"UPDATE ";::" : *" " * ";::" ";::" : 1 ADD OBJECTS *" " * ";::"STARBASE ";::" : *" " * ";::" ";::" : *********"7 F" * *"e P" * *" Z" * S T A R B A S E 3 0 0 0 *" d" * *" n" * *"! x" *  800040JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::_ UPDATE PROGRAM SOURCE PROGRAM NAME 'UP001' COPYRIGHT 1985 BY GIL DAVIES DENVER CO(D$(4):FF$"UP002":G$(7)2C$"," <:" ***********************                    $::7:"2 DESCRIPTION ";Y2$::7:"3 MAGNITUDE/SYMBOL ";Y3$:7:"4 RIGHT ASCENSION ";Y4$::7:"5 DECLINATION ";Y5$::7:"6 QUIT"::::5:"ENTER FIELD NUMBER OR 6 TO QUIT":  SUB TO TURN DISK OVERK:GEC OF DATA FILE.D$;"OPEN ";F3$;",L33";VM$JD$;"READ ";F3$;",R";RFgX1$:X2$:X3$:X4$:X5$wD$;"CLOSE"}: SUB TO PRINT FIELD SELECTION::15:"O B J E C T"::Y3$(126)Y3$"V"G7:"1 CONSTELLATION ";Y1B"(F2$)6IN1:V2$",V240":10608IN2:V2$",V242"O$TYPE2ISIDEIN:^.INSIDEıp81290:SIDEINvB|L:V OBJECT NOT FOUND`:G$:9:9:"OBJECT NOT ON STARBASE":::8:"PRESS RETURN TO CONTINUE ";AN$jt:~ READ 1 R2$"12"&TYPE1TYPE0F3$F1$F2$>TYPE2F4$F1$F2$S CHECK FOR SIDEdTYPE21045F1$"A"IN1:V1$",V240":1060 F1$"B"(F2$)6IN1:V1$",V240":1060IN2:V1$",V242":1060F1$"A"IN1:V2$",V240":1060#F1$"00zRA20F2$"2":10004RA18F2$"3":1000MRA16F2$"4":1000fRA14F2$"5":1000RA12F2$"6":1000RA10F2$"7":1000RA8F2$"8":1000RA6F2$"9":1000RA4F2$"10":1000RA2F2$"11":1000F((DD$,J,1))48((DD$,J,1))57ĺG$:9:26:" ":760I J*DD79.6259DD79.6259ĺG$:9:26:" ":7604>:H WHICH FILERDD33.126F1$"A":880\DD32.626F1$"C":880fF1$"B"pRA22F2$"1":104RA0RA23.9999ĺG$:9:26:" ":670:@:N GET DECo:9:9:"ENTER DECLINATION"9:26:" ";DD$:DD(DD$):DD$""ĺG$:760DD$"-"ĺG$:9:26:" ":760 J1(DD$)B(DD$,J,1)"-"(DD$,J,1)".":Z3$:Z4$:Z5$lD$;"CLOSE"%v+:@ INPUT FOR R.A.e:9:5:"ENTER RIGHT ASCENSION"9:26:" ";RA$:RA(RA$):RA$""ĺG$:670J1(RA$)(RA$,J,1)"."((RA$,J,1))48((RA$,J,1))57ĺG$:9:26:" ":670J",L33";VM$K1RE1D$;"READ ";F3$;",R";KNZ1$:Z2$:Z3$:Z4$:Z5$pZ4$RA$Z5$DD$FOUND1:550wKFOUND0&D$;"CLOSE"0::D WRITE A DATA RECND$;"OPEN ";F3$;",L33";VM$XD$;"WRITE ";F3$;",R";R1bZ1$:Z2$$ TD$;"READ ";F3$;",R0"# ^RE3 hD$;"CLOSE"9 r? |:^  WRITE REC 0 OF DATA FILE} D$;"OPEN ";F3$;",L33";VM$ D$;"WRITE ";F3$;",R0" RE D$;"CLOSE"  :  SEARCH DATA FILE FOUND0: NOT FOUND D$;"OPEN ";F3$; D$;"OPEN ";FF$;",V240"/ D$;"READ ";FF$: B1,B2J D$;"CLOSE"P V :i WRITE UP002 D$;"OPEN ";FF$;",V240" D$;"WRITE ";FF$ B1;C$;B2 "D$;"CLOSE" , 6: @ READ REC 0 OF DATA FILE JD$;"OPEN ";F3$;",L33";VM:D$;"RUN UP001,V250"$ SX1160P :G$:9:10:"REMOVE PROGRAM DISK":: 7:"INSTALL DATA DISK (";::"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$:SW1:SX1:SIDE1: 190 AZ11350 2740 READ UP002 FOR STATS" ":70 ZJ: dAZ1AZ3ĺG$:20:27:" ":70l nAZ3SW1ė:G$:9:12:"REMOVE DATA DISK": pAZ3SW1Ė5:"INSTALL PROGRAM DISK (";::"SIDE 1";::")"::::7:"PRESS RETURN WHEN FINISHED ";AN$::D$;"RUN UP001,V250" xAZ3SW003 (CC0::5:9:"CHANGE/DELETE AN OBJECT":::p 214:"1 CHANGE":::14:"2 DELETE":::14:"3 QUIT" <20:12:"ENTER SELECTION" F20:28:AZ$:AZ$:AZ(AZ$):AZ$""ĺG$:70 PJ1(AZ$):((AZ$,J,1))48((AZ$,J,1))57ĺG$:20:27:Z% 800030JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::f CHANGE DELETE PROGRAM SOURCE PROGRAM NAME 'UP003' COPYRIGHT 1985 BY GIL DAVIES DENVER CO D$(4):G$(7):FF$"UP002":SW0:C$",":SX0:CC0:TYPE0:SIDE1:ISIDE!! ! ! ! ! !!!!!!!!!            10:"WRONG DISK OR SIDE":5:TER8ė:9:15:"I/O ERROR":13:"READJUST DISK":::5:"OR AS LAST RESORT...KILL POWER":5:|:G$:9:4:"SYSTEM CRASH - REBOOT PROGRAM":D16::"LOADING ENVIRO."::D$;"RUN CR006"|hG$::9:9:"TURN PROGRAM DISK OVER"::9:"TO (";::"SIDE 2";::")":::m7:"PRESS RETURN WHEN FINISHED ";AN$:21:11::"LOADING FULL LIST"::D$;"RUN CR004,V252"r@ER(222)JER7ė:7:"LOADING 2 HOUR"::D$;"RUN CR002"V@22:16::"LOADIING CONST."::D$;"RUN CR003"J22:16::"LOADIING UTILITY DIR."::D$;"RUN UT001"T22:16::"LOADIING MAIN DIR."::D$;"RUN MA001"^22:16::"LOADING STATS."::D$;"RUN CR005"*c22: *"G " ********************************"w 19:8:AZ$:AZ$:AZ(AZ$):AZ$""ĺG$:270 (AZ$)48(AZ$)57ĺG$:19:8:" ":270 "AZ1AZ7ĺG$:19:8:" ":270 ,AZ310,320,360,350,355,330,340#622:16:: *"3 " * SELECTION : *"b " * : 6 EXIT TO UTILITY DIR.*" " * : *" " * : 7 EXIT TO MAIN DIR. *" " * : *" " * *"H " * ";::"DIRECTORY";::" : 3 COMPLETE LISTING *"w " * : *" " * : 4 STARBASE STATISTICS *" " * : *" " * ENTER : 5 ENVIRONMENTAL DATA *"T x" * ";::"GENERATE ";::" : 1 OBJECTS WITHIN 2 HR.*" " * ";::" ";::" : *" " * ";::"REPORTS ";::" : 2 OBJECTS WITHIN CONST*" " * ";::" ";::" : - <" * *"[ F" * *" P" * S T A R B A S E 3 0 0 0 *" Z" * *" _" * *" n" * :  800040JG$:15:7:"PRESS RETURN WHEN FINISHED ";AN$::n PROGRAM FOR REPORTS DIRECTORY SOURCE PROGRAM NAME 'CR001' COPYRIGHT 1985 BY GIL DAVIES DENVER CO(D$(4):G$(7) 2:" ********************************""" " " " " """