' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-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- (  Ϡ@跻~!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`IPAAAAAAAAAAXI !INTEGER I-X8725.234:Y3.1415926K"RET FOR LOOP ONLY: ";A$\I110000:#1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I("RET FOR MULT: ";A$2I110000:ZXY:<"DONE"254): $C082OHHHHLNU@LdLdL LdLdL 8L  Z % #  q @  7  X I rL MANDELBROT   'L Enter side:      'LAEnter a&b corner: .    >  R Ln MANDELBROT- a   aL    aL   A a    LdLdL LdLdL LdL LdLdLdLdL LdLdL L ny key to view the planet ^  L7_Hit ESC to exit &_   e e  e L\ 'd b b b e a b e b d aL ^   Bg  n a Nd L%_ "_  a Ae $LU_ c Zd c ee LU_ he c a d $L}_ ]d c c ,e (L}_ /e c a Je $L9B a d L^ c  Nd L_-> _  f  Nd  f 8 f L_Hit any key to view the planet _  'd Jh e  L^ ^  c g  jf r c 5g a f r c g a 1 f L^Pick a Arrows to move a^  L^!planet Return to choose ^  L^ ESC to exit ^  /e c c  Nd  8  M 8  M 8  N 8  IN 8  N 8  N 8  N 8O%L 8O'L 8  )O 8  ?O LdJCLdJHLdJMLdJRLdJWLdJ\LdJaLdJfLdJkLdJpLdJuLdJzLdLdILdILdILdILdILdILdILdILdILdILdILdILdJLdJLdJ LdJLdJLdJLdIlLdIqLdIvLdI{LdILdILdILdILdILdILdILdILdILdILdILdILdILdIf/:z" ՘zn{/}~ (K7vI&LdI+LdI0LdI5LdI:LdI?LdIDLdIILdINLdISLdIXLdI]LdIbLdIgLd pҲpҿpҿV`TŃ p@XP @xp`ht;@\)UVfffpHt333EM1[4p46 jq6i >mL aX`m7@qXRc r E } W  L00.0000  k ` ; N 9 < 0L    < a 1 Lc rsLdxLd"L $Ld)L +Ld8L LL NLdSL UL WLd8L  L;`L { lݥ`o OLLȱȱ0 $. *媆` 9 r륢H #h 4ZNEF- ,00 *$,XǘP$,ȱ8# =ۥ % ,  G I110% A$"00.0000":380020Y(1)EX(Y):" ",Y: Y(1)dX(Y):" ",Y: I g  'd Jh e   ' c 7g  o  ' c g  o  1 d  LW]CLOSE P]  jg  ]d c 8e  f 8 g  L] Planet ]  f rL]R.A ]  f rL]Dec ]  L]'--------------------------------------- ]   L\> PLANETS.DATA \  Nd  'L.\> +\  lg L@\ jg 5 ?\  a jg  9d g L\Lx\ PLANETS.DATA k\ lg e  f 8 f L\Loading \  jg  d  L\OPEN \  jg  d  L\READ \  jg  ' ec Z  c e # c e i a L%[ f > od T f > od T f > =f T |f   d  Lf[PR#0 a[  ` X 4f rL[Planets Display [  4f rL[--------------- [  cLn] 8e L[%Display the planets using which file? [` d r c _g  1 e  f L6ZArrows to move 'Z  f  f LaZRETURN to choose PZ  +f  f LZESCAPE to exit {Z  ` d  LZPR#1 Z  c d $L"[ g  f rLZR.A Z  b e # c e i a e rLZDg aL Y Degrees. Y  f LDY"Hit any key to view constellation !Y  LfYHit ESC to exit UY   Bg f  @g LY c c c YLV c g a c g c c *g }bL V   Bg  n c c Ae $0ULU URSA MAJOR11.55040UL6U URSA MINOR1680459ULLUVELA9.5-5045OULbUVIRGO13.5050eULxUVOLANS8-7040{ULUVULPECA202540 X e Ic Ff rLUConstellations U  Ff rLU-------------- U  bLtV d LV'Please waR0.5-3045TL%TSCUTUM18.75-1030(TLDT SERPENS CAPUT15.81040GTLaT SERPENS CAUDA18-550dTLzTSEXTANS10.25035}TLTTAURUS4.52050TLT TELESCOPIUM19-5040TLT TRIANGULUM23030TLTTRIANGULUM AUSTRALE16-6540TLUTUCANA0-654-4535 SLSPICTOR6-5530SL3SPISCES0.515606SLVSPISCES AUSTRINUS22.5-3040YSLoSPUPPIS7.75-3050rSLSPYXIS9-3040SLS RETICULUM3.75-6030SLSSAGITTA19.752030SLS SAGITTARIUS18.5-3040SLSSCORPIUS17-3550SL TSCULPTORLR MICROSCOPIUM21-3540RL6R MONOCEROS7.250459RLNRMUSCA12.5-6535QRLdRNORMA16-5040gRL{ROCTANS20-9050~RLR OPHIUCHUS17045RLRORION5.5040RLRPAVO20-6540RLRPEGASUS23.52560RLRPERSEUS3.5-5040RLSPHOENIX190QLQHYDRUS2-7050QL0QINDUS21.5-55303QLIQLACERTA22.55030LQL\QLEO111550_QLxQ LEO MINOR10.253535{QLQLEPUS5.5-2030QLQLIBRA15.25-1530QLQLUPUS15-4040QLQLYNX85050QLQLYRA18.753530QLQMENSA5.5-7540D # c F i  H H  pF (L:L:0 : 5 H  HL: D D (L;L:- : 5 H  HLw:L; ; 5 H  H H L4; 2;   D`LcM3j춀|Sb0{|S\O |Sa|P@Yu7POI9  = H D : = H D : = H D : = H D : 1  D :7LLc D #  H  YE $L::L):0 ': 5 H  H D D (La:LM:- K: 5 H  HLw:Lf: d: 5 H  H H   D` D D $L:L: 00.00 : HL); F nE o D H F o D ]I G   = I  = H D : = H D :L9 ! 8  = H D : = mH D :L.9 ! *9  = H @ \ -D D :LS9 Q9  ? D :Lk9 ! g9  = H @ \ -D D :L9 9  ? D :L9 ! @ = " @ A = j= A D @ = $ D C`L7 Twilight begins 7  @ aL8H 7  cA aL(8 Twilight ends 8  @ aL<8H 98  C a L8I----------RISE----SET-------RA--------DEC-------PHASE---AU----SIZE---MAG- P8  D zH C i > < @ = c C i > bB < B > = ` = C > : _B < = > c C i < < @ = c C i > < B > > = # $ -% % % '` I LU7 S7  @ aLh7/ f7  A aL{7/ y7  = a :7 @ B > @ c L. = j= A D > ` Q> = C > _B eB $ QG *G @ c E i |@ ` |@ E v@ ? E B )H < C ? < y@ F @ ` @ G @ > ,H 0> *> hE < C > *> kE < > hB > (L6 G @ < = @ c C i _B < = @ c C i _B > < B < > hB > L6 @ = cc ? i > ` > B c G i > 3> B 0 nE -> < 3> hE < c D < E a@ : < D E D B D C = 3> *> hE B < C D *> kE < eB C = c C i < C pC < >  > C = c C i < C pC < J? C = c C i > # T> F C Q1986.112170.01158.15476.008117.94350.9673162.2384 c \E K G    y=  y=  y=  y=  y=  y=  y=  y=  y= 1 \E K G    ,B  C  C  ?  B  0>  sC 1  D ;? /B j= nE D D =  D 8? ;? ?G 2? ;? 6G 5? 7713.42L21974.12334.1319.615.036.0870.1059.72L31966.94334.0347.217.936.8580.77515.0 3LH31956.8286.4250.427.899.1730.91928.9K3Lv31956.4615085.469.4716.8430.9344.6y3L31954.3994.2255.270.9817.20.95574.2 3L34.7123.3126.06.513.4890.3863.71L21974.3667.875.16.763.5760.63230.22L021970.7718.2188.47.473.8210.35110.232L[21958.44150155.17.883.9580.1444^2L21960.29138.186.28.184.054.705122L21969.83102.962.88.554.1820.5 H > o ` G D > j@ m@ B g@ c > ? D &L1 ? D L1 m@ B hE ? 'A g@ j@L0`LC11974.32160.1334.23.32.209.84712F1Lr11972.87310.2119.35.263.024.54912.5u1L11978.7712.016131.75.373.066.641525.8051L1197L7 ( > > < n? h? < < E > h? < @ = c C i < < = @ GH eB @ ? C = H @ o = H hB o = H C o ` = H = = o = H = H c C i kE D o ` n? @ < = H &? < A > RF A > > F > F > > = T> C ? A # MB @ " @ 4@ B @ " @ I@ = j= `D D @ C 7@ @ R" @ 4@ C @ L@ @ R" @ I@ 7@ @ 4@  4@ L@ @ I@  I@ 7@ @ \ = H @ # o = H ? o = dH A o L@ @ \ = H @ # o = oH ? o = H A o / 20 l0 1 B > # = H T> o = H ? o ` @ K> c C i > < @ K> c C i > .C < = = B = N> = ` = C > : +C < T> = c C i < < @ K> c C i > < > > B > # = H T> o = H ? o ` $ " \E ]I G   .+ J? A = c C i > # T> F Q> A Q> C > h? 1C = E L- T> @ c C i +C < T> @ c C i +C > < = = B = G @ = = = D (L[- = 3G =LA- = ` = C > : +C < T> = c C i < < @ K> c C i > < > > ` = A = oA m@ d@ hE v= < C lA d@ kE < k? PE D |@ ` |@ E v@ ? C ? E y@ F @ @ D (L&, @ 3G @L , @ -G L@, 6G @ @L&, G @ > C > )H kE E > > A = c C i < C pC < >  > A = c C i < C pC <2148.00900230.109571.771602 131.56064962.27.597E-5*L.+250.9209.439222.972.2538739.7845917.137109.9418.24.073E-61  ?  A  A  j@  y=  sC  A  ?  )? GE D c ? i "C ` "C A c A B E B d@ < C B < C A =0484665.202561.304182 100.252017196.741.994E-4)L8*29.45771 165.322242 92.665397.0556169.5547472.489374 113.488834165.61.74E-4;*L*84.01247 228.0708551 172.736328.04632319.21814.772989 73.87686465.87.597E-5*L* 164.79558260.3579 47.86706.3870986 7.0043579 48.09417336.741.918E-6(L4).61621 355.73352 131.289579.0067826.72333163.394435 76.499752416.921.721E-57)L)1.88089 126.30783 333.6908166.0933865 1.52368831.84980149.40329.364.539E-6)L)11.86224 146.96636 14.009549.H X@ o ` C 8B : < C B : < > 5 ? YH < C 8B < C B < < < C 8B < C B < < > 5 C ? C c "F i C >E C 1@ B L@ C @ B @ \ @ # ? ? `A A B @ @ \ @ # @ ? C A @@`L(.24085231.2973 77.1442128.20563C B < QD G KD QD 1@ 4@ L@ ND I@ 7@  4@ L@  I@ 7@ @ " @ 4@ L@ @ " @ I@ `D D " 7@ @ R" @ 4@ L@ @ R" @ I@ 7@ @ 4@  4@ L@ @ I@  I@ 7@ @ \ @ # {> ? ? A WA L@ @ \ @ # ? ? U@ A #B D H ~> o D H ? o D H ? o D o ? > = 5E = D > # = VB ? `> T> B D A A C !> A # MB ND r> TD B ? B C c> A # MB ND > TD B \? F l> < F o> c > < 4@ F ? < F ? c _? < I@ !> ]> c E i B C 8B < C B < > 5 > C > H >  J? !G G? < ` L$ H D D` $ E D D ` D E D D ` D C C E NA D KA HG = ` = D > # T> @ ? > D H @ o D H > o ` $ D KA C C C )H kE c #E i > eE %@ ? ,E = @ \ @ # @ S? ? @ A C D H (@ o D H = F o ` $ = B T> AG Q> T> D (L# T> 3G Q> "F H> Q> @ ? >` @ C > A C 8B : < C A : < ? 5 ? "F ? ? gF C c ? JB C ? B  B MB  JB C 8B < C A < > 5 > E > C > H J?  J? !G G? < C A < QD G KD QD B ND B TD GB JB @ D @` -D @ [C D ? A 6A c "F i B @ B @  @ -D @ [C D ? A "F 0A C @ |C @  @` B = BD > C > E < C > PH < C = < < ?  ? C = E < C > : PH < J? C = > #` > D? Q> B Q> > D (L# T> {D D  BA D D >H D }B D D @ @ A D gC A . @ E @ D @  @ \ ` = j= A D @ = = 6D D A m= xD nE D D =  D ?A 9D = A D {D j=  BA D @` @ >H = }B D $Ll" ! }B = = D (L" = dF = = [F L" gF = = = @ @ C A ?` A @ A @ @  @ -D @ [C D ? A @ @ @ >  @ = j= A D @ = -D @ [C A ? dC m= D = 6D D xD D = nE D  D j= D = 6D D xD D = nE D  D j= H D A G A A G A F < G A A < > uG g= ^F > qB aF zB` D ?A 9D = Wednesday  o F IL Thursday  o sF IL Friday  o F IL Saturday  o = I I` -D @ [C D ? A F A A D A D F C D @ D @ A` A @ @ ? @ @ # ? *D @ # @ F > # > F # A ? # > @ ? @ ? X ?> iD > < F ? # < @ ? @F (L nE ? AL IF ? A A E (L G = =L  G = =` D wE c E i OC # IC = E = # = D LI = kE = = # = D ILe Sunday [ o \E IL Monday v o E IL Tuesday  o E ILLLcL = j= A D @ = m= = D ]D D E &L nE g= j= D 7F D F a= # OC E < E FC # < C ?G d= # oD D kE F # z? C lD w? = G D` G A c G i # OC A kE LC < E FC # < C lG oD F iD c ?G i # = ?G = # <> iD c F i # ?E A < E A # < &I L F {A E = < E = # <  < A E $&I L  F {A E = < E = # < $ < A E $&I L> F {A @ kE @ xA La A kE A nE @ A 4F L~ nE A = kE = C = $ < =C A $&I  < !D @ $&I  >B D (LL S   LL N     7LJ7 A +F ( < E A < E A # < &I L# |F {A A E  < E A < E A # < $&I LX |F {A A E ( < A E &I  < E A < E A # < $&I L F {A A E  < TUDE,LONGITUDE   '  ;B  3A  "F 0A # @LStop at YY,MM,DD   '  C  :C  D  L* Longitude   6A a 6A D (L]LO E L  LnLc W `  L| Zone q  A a L Latitude   >B aE ILVenus  o E ILMars  o F ILJupiter  o sF IL Saturn  o F IL%Uranus  o F IL?Neptune 6 o G ILYPluto P o L~Input the YEAR,MONTH,DAY d  '  =  A  @ LInput LATI`L- ASTRO-CALC MK IV   L!1 APPLE VERSION MARCH 1986   L`- BY BRYAN BURGESS 2  D ILSun  o \E ILMercury  o NUS20.54040PL)P DELPHINIUS20.61530,PL?PDORADO7-6030BPLYPEQUUELUS21.25530\PLuPERIDANUS3.75-30100xPLPFORNAX3-3030PLPGEMINI72045PLPGRUS21.25-5030PLPHERCULES173060PLP HOROLOGIUM3.255040PLQHYDRA11-20ON10.5-8030OL&OCIRCINUS15-6040)OL>OCOLUMBA6-3530 AOL\OCOMA BERENICES132030_OLOCORONA AUSTRALIS18.75-4030OLOCORONA BOREALIS15.753030OLOCORVUS12.5-2030OLOCRATER11.5-1540OLOCRUX AUSTRALIS12.5-6030OL PCYG040NL#NCANES VENACETI12.54030&NLAN CANIS MAJOR6.8-2535 DNL\N CANIS MINOR7.7530_NLxN CAPRICORNUS21-2040{NLNCARINA8-6040NLN CASSIOPEIA16030NLN CENTAURUS13.5-5050NLNCEPHUS227040NLNCETUS1.5-1060NL O CHAMAELEMLMANTILA10-3030ML+MAPUS16-8030.MLDMAQUARIUS22-1060GMLZMAQUILA201040]MLpMARA17.5-5530sMLMARIES2.52030MLMAURIGA5.53540MLMBOOTES14.83040MLMCAELUM4.75-4030MLM CAMELOPARDIS4.257040MLNCANCER8.52 e > f T Ug LLBLOAD L  tg L1L,A32860 )L  ` d c b c c G a c Zd G n c e i a f :c c ~d G a c d G n c e i a b b e LL b e b b c b c d G n c d i #b &b d LL &b e #b`LL ANDROMEDA13540a 5b 9d (g LK ]d b bb ( a hb 9d (g LK "cLIKLAK ?K  &b 9d (L]K  'd Tc d $L^`LJ  J   Bg d Wd $L6J Z c HUr[ b Uc c 7c ac c a c b Xc Ab Xc tb dc b dc b a >b Zd a b qb b a xd b .c b qb b 2b .c b a b >b a a qb b a a eb 5b c 2b hb b d eb ]d b /b ( H  LIHit ESC to exit  I   Bg f  @g L9B b e c b i +c g a c c c c d  sf A 'd T Yb $LI 'd  'd ]d b  'd ]d b  ]d b 'd  ]d b 'd  'd Nd ch Mb   =L CJ &b b LI Mb Zd c 1 d c a Je $L9B a d LzGLC d > f TLWH%Enter the RA,Dec of the field centre- 1H  'LqHRA,Dec: hH  a  c LH!Enter the field width in degrees- H  'LHWidth: H  }b  f LHHit any key to view the field jf  f   Bg @g  n a d $ a a Ae $g LNG d $ d f d Ed bLF a Je $L9B a d LzGLoG mG LF f  Nd  d 8 c ~g  f   Bg @g  n a d $LG ]d c c Wd (LG ]d c a Ae $LH c Zd c d LH B a d LFLF F LE Of  f  b a Of  f   Bg @g  n a Je $L9B a d $LF ]d b b Wd (LF ]d b a Ae $LF b Zd b d LF d b a ze ( a a e g LF e a b a d LF jf  f  d Jg  f  f  Yb Jg  f  f   Bg @g  n a d $ a a Ae $g LaE Yb $ VbLD a Je $L9B a d LELE E LD 4f  f  "c Jg  4f  f   Bg @g  n a d $ a a Ae $g LE "c $ cLE a Je $L9 f 8 f L5D&Do you wish to change the parameters N D  e    BgLQDY @g 5 OD LD @g  f $LD f  Nd  f 8Lc c HUr[ @g  f LDArrows to select D  LDReturn to move D  LD ESC to exit D ield you select. B  f L.C Draw a border  C  f r Yb Jg  L]C Beep a star QC  f r "c Jg  LCLimiting Magnitude C  f r b a LCPrint the screen C  f r d Jg  c ~g  f  Nd ranus A o e gLBNeptune B o e gL1BPluto +B o $^   e  n ` Fc LJ^ G^  a 9d $Lz^ b Rc b ]d Lz^ `d b a c $L^ Uc b b $d (L^ 'd b a Bd $L9B a c L^ b  Fc L^-> ^  _e  Fc  e 8 _e L_Hit a---------------------------- \  1c g d  L=] :]  b Bf  De r b e a e r b e a 1 _e L]Pick a Arrows to move ]  L]!planet Return to choose ]  L^ c  L \READ \  #f  '  Of  1c g d   ' b e  o  ' b e  o  1 c  L|\CLOSE u\  #f  Uc b 0d  e 8 Mf  L\ Planet \  _e rL\R.A \  e rL\Dec \  L]'-----------ay the planets using which file? Z  L<[> PLANETS.DATA -[  Fc  'LS[> P[  %f Le[ #f 5 d[  ` #f  :c Yf L[L[ PLANETS.DATA [ %f d  e 8 d L[Loading [  #f  c  L[OPEN [  #f  ` c r b f  1 d  }e L6ZArrows to move 'Z  d  }e LaZRETURN to choose PZ  e  }e LZESCAPE to exit {Z  `` X e rLZPlanets Display Z  e rLZ--------------- Z  bL\ 0d L[%Disple aL Y Degrees. Y  _e LDY"Hit any key to view constellation !Y  LfYHit ESC to exit UY   e e  e LY b b b YLV b e a b e b b e aL V   e  n b b 9d $0ULU URSA MAJOR11.55040UL6U URSA MINOR1680459ULLUVELA9.5-5045OULbUVIRGO13.5050eULxUVOLANS8-7040{ULUVULPECA202540 X d Sb e rLUConstellations U  e rLU-------------- U  aLtV c LV'Please waR0.5-3045TL%TSCUTUM18.75-1030(TLDT SERPENS CAPUT15.81040GTLaT SERPENS CAUDA18-550dTLzTSEXTANS10.25035}TLTTAURUS4.52050TLT TELESCOPIUM19-5040TLT TRIANGULUM23030TLTTRIANGULUM AUSTRALE16-6540TLUTUCANA0-654-4535 SLSPICTOR6-5530SL3SPISCES0.515606SLVSPISCES AUSTRINUS22.5-3040YSLoSPUPPIS7.75-3050rSLSPYXIS9-3040SLS RETICULUM3.75-6030SLSSAGITTA19.752030SLS SAGITTARIUS18.5-3040SLSSCORPIUS17-3550SL TSCULPTORLR MICROSCOPIUM21-3540RL6R MONOCEROS7.250459RLNRMUSCA12.5-6535QRLdRNORMA16-5040gRL{ROCTANS20-9050~RLR OPHIUCHUS17045RLRORION5.5040RLRPAVO20-6540RLRPEGASUS23.52560RLRPERSEUS3.5-5040RLSPHOENIX190QLQHYDRUS2-7050QL0QINDUS21.5-55303QLIQLACERTA22.55030LQL\QLEO111550_QLxQ LEO MINOR10.253535{QLQLEPUS5.5-2030QLQLIBRA15.25-1530QLQLUPUS15-4040QLQLYNX85050QLQLYRA18.753530QLQMENSA5.5-7540NUS20.54040PL)P DELPHINIUS20.61530,PL?PDORADO7-6030BPLYPEQUUELUS21.25530\PLuPERIDANUS3.75-30100xPLPFORNAX3-3030PLPGEMINI72045PLPGRUS21.25-5030PLPHERCULES173060PLP HOROLOGIUM3.255040PLQHYDRA11-20ON10.5-8030OL&OCIRCINUS15-6040)OL>OCOLUMBA6-3530 AOL\OCOMA BERENICES132030_OLOCORONA AUSTRALIS18.75-4030OLOCORONA BOREALIS15.753030OLOCORVUS12.5-2030OLOCRATER11.5-1540OLOCRUX AUSTRALIS12.5-6030OL PCYG040NL#NCANES VENACETI12.54030&NLAN CANIS MAJOR6.8-2535 DNL\N CANIS MINOR7.7530_NLxN CAPRICORNUS21-2040{NLNCARINA8-6040NLN CASSIOPEIA16030NLN CENTAURUS13.5-5050NLNCEPHUS227040NLNCETUS1.5-1060NL O CHAMAELEMLMANTILA10-3030ML+MAPUS16-8030.MLDMAQUARIUS22-1060GMLZMAQUILA201040]MLpMARA17.5-5530sMLMARIES2.52030MLMAURIGA5.53540MLMBOOTES14.83040MLMCAELUM4.75-4030MLM CAMELOPARDIS4.257040MLNCANCER8.52 d > te T f LLBLOAD L  -f L1L,A32860 )L  ` c b !a b b G ` b Rc G n c d i ` e Db b vc G ` b c G n c d i ` a a d LL a d a a b a b c G n c c i -a 0a c LL 0a d -a`LL ANDROMEDA13540` ?a :c (Yf LK Uc a la ( ` ra :c (Yf LK ,bLIKLAK ?K  0a :c (L]K =c -a %c Rc kKK 0a Rc  ?a  ra ` 0a sc Kd  ?a  ra ` XLKLOADING DATABASE K  c  f f LKBLOAD NEWSHAPES,A$1800 K  d > 1c Tb c $L_LJ  J   e %c Oc $L6J Z b HUZ a _b b Ab kb b ` b a bb Ka bb ~a nb a nb a a Ha Rc ` a {a a ` pc a 8b a {a a  d TLWH%Enter the RA,Dec of the field centre- 1H  'LqHRA,Dec: hH  a  b LH!Enter the field width in degrees- H  'LHWidth: H  a  _e LHHit any key to view the field De  }e   e e  n ` c $ ` a 9d $Yf LNG %c $ "c e c Rc bLF a Bd $L9B a c LzGLoG mG LF Ve  Fc  c 8 b 7f  }e   e e  n ` c $LG Uc b b Oc (LG Uc b a 9d $LH b Rc b c LH B a c LFLF F LE )e  }e  a a )e  }e   e e  n ` Bd $L9B a c $LF Uc a a Oc (LF Uc a a 9d $LF a Rc a c LF c a a rd ( ` a {d Yf LF ~d ` a a c LF De  }e  %c f  d  }e  ca f  d  }e   e e  n ` c $ ` a 9d $Yf LaE ca $ `aLD a Bd $L9B a c LELE E LD e  }e  ,b f  e  }e   e e  n ` c $ ` a 9d $Yf LE ,b $ )bLE a Bd $L9 e 8 he L5D&Do you wish to change the parameters N D  d    eLQDY e 5 OD LD e  e $LD d  Fc  e 8Lc b HUZ e  _e LDArrows to select D  LDReturn to move D  LD ESC to exit D ield you select. B  d L.C Draw a border  C  }e r ca f  L]C Beep a star QC  }e r ,b f  LCLimiting Magnitude C  }e r a a LCPrint the screen C  }e r %c f  b 7f  _e  Fc ranus A o d DfLBNeptune B o d DfL1BPluto +B o =c b X De LWBSTARPLOT NB  De LtB-------- kB  0d LB%Starplot plots a stereographic map of B  LB$the sky from a star database, of the B  L Cregion and fiew a part of the sky @ o gc 9fL6AView constellations "A o c 9fL]AView planets position GA o 1c DfLrASun nA o Fc DfLAMercury A o gc DfLAVenus A o c DfLAMars A o c DfLAJupiter A o 0d DfLASaturn A o id DfLBUv1 (TO%I$OTO G  F  LPR#3   E B G B ZG > ~G T cG > 5H T G > G TL2 = = kE = B`L] = = kE = (= E B %= B`L 4= 6G 1= @= 6G 1= c 6G i # 0G ==`L L= gF I= X= gF I= c gF i # ^F U=               X:SASX:D(0)RX:T(0)TH60:T 2700:L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:G2GX:A2AD:XMMX:RHA1:DHG1:2632:R1LRDT:S1LSDT:RHA2:DHG2:2632:R2LRDT:S2LSDT:TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2):GD(G1G2)2:X(OIPJ)(G 8D8D87B1B5  "K RAM DRIVE"  8D00 ; ; ; RWPTCH RAMDRIVE   ; ;  ; ;  0  0000000000000021-27  0000000000000028-34 ; ; ; ONE 110FDIRECTORY SECTOR )THIRTY 1101START OF DISK ALLOCATION? THFOUR 2310DISK T/S LIMITS !SEVNCEE 1FFETRACK $11 BIT MAP )EHTEE FFFFBIT MAPS FOR TK $12,13,14 ; ; ; MESG$00SET OFFSET TO 0 PRNTMSG #$00SET OFFSET TO 0 ^4 MESG,XGET A CHAR >5IF 0, END COUTPRINT IT OUT  <4AND LOOP ^5 FPDONE, DO AN FP ; ; ; "CHKTRK 00000000000000TRKS 0-6  0000000000000007-13  0000004050607014-2 $11 #$04NOW PATCH THE RWTS ^6 RWPTCH,X RWTS+4,X  <6 SELFMOD >7NOW ALTER CODE TO INITEXITFMEXITEXIT THRU FM $^7 #$00SET THE ABOVE BRANCH !SELFMOD+1TO POINT TO INITEXIT BUFNOSET MAXFILES TO 2 ; ; ; STARTERR#400)"254): $C082OHHHHLNU@IPAAAAAAAAAU           a 1 LcLdL L  #(82[<z 1 1 Lc`H d`LdeLdjLdoLdtLdyLd~L LdLdLdLdLdLdL AAXG:BBC*K0YW:BBYG:X0:Y0:Q07:7:J,KQN1IL:XXXX:YYYYlXXYY4QN:NIL:210X1XXYYA:Y2XYB:XX1Q7QQ7:220Q:J,K:I MANDELBROT 3 !INTEGER N,J,KPZIL50:BL4:XW279:YW159Xd:sn15);"MANDELBROT"::x"Enter side: ";SIDE"Enter a&b corner: ";AC,BC:21:"MANDELBROT- "SIDE" "AC" "BCXGSIDEXW:YGSIDEYW:AAC J0XW: h   }       ~  e  A      ~  z   2  Y   .      ~ &  ~ 5 /  \ V     L^ M  & JL      / V  Y  2 1   L   L     @' L#o???g%n#o Xf  "f JbL0@ STARCAT1.OBJ #@ vg af b fd pc e mc c e D $d $ a e D 0d $g Lv@ K f b e b ]d b d b d d b d fd pc e mc c !8510!8510TURN PRINT OFFV& J08l& RAPR(J)0.261799}&!DECPD(J)RD& !MAGJ6&!2000& !&*!PRQ: RESET PRINT&4!1150>!8510!8510Oany key to view the planet":K% "Hit ESC to exit ";:A$::A$(27)8150U% QQ9q% R0PR(Q):D0PD(Q):WI60{% 1080% NOW DISPLAY THE PLANET% QPR:PR0: TURN PRINT OFF% J08% RAPR(J)0.261799%!DECPD(J)RD% !MAGJ6%!2000anet Return to choose"G$: :" ESC to exit";O$D Q9`$N Q:1:"->";p$X A$:A(A$)~$b 1:" ";$l A21QQ1:Q17Q17$v A8QQ1:Q9Q9$ A27290$ A138270$ Q:1:"->";$ 20:1:958% 20:"Hit #(4);"CLOSE ";P$#PP1,#5:9586#DTE$]#" Planet";20);"R.A";30);"Dec"#"---------------------------------------"## I08# " ";PN$(I);16);PR(I);28);PD(I)# #& 20:"Pick a Arrows to move" $0 :"pl--""cPP8150@"h5:"Display the planets using which file?"Y"r:"> PLANETS.DATA";i"|1:"> ";P$"P$""(P$)0P$"PLANETS.DATA""7:958"9:"Loading ";P$"(4);"OPEN ";P$"(4);"READ ";P$"DTE$#I08:PR(I):PD(I):14!JCNJQ20::)!4);CN$(J):F! 7:25:"Arrows to move"e!9:25:"RETURN to choose"!11:25:"ESCAPE to exit"!(!X PRINT THE SCREEN!!@ DISPLAY PLANETS !J:!T12);"Planets Display""^12);"-------------th of ";CW(Q);" Degrees."I 20:"Hit any key to view constellation ": "Hit ESC to exit ";:A$::A$(27)QQS:6350:6120 R0CR(Q):D0CD(Q):WICW(Q):1080  SHOW 15 CONSTELLATIONS  Q IS 'FIRST' CONSTELLATION 7:958!JQQȖ1:" ":SS1:S161203VS14:QQ15:Q1Q1C`6350:6120MjQQSptQCNQCN14:S14:6350:6120~7:1:9588:CN$(Q);" IS CENTERED ON":" R.A ";CR(Q);" Hours"" Dec ";CD(Q);" Degrees" 13:"with a field wid4:1:958:"Choose a constellation.."4Q1:6350AS0:CF1U7S:1:"-->";eA$:T(A$)tT216190T86220T136250T27290$"";:6130.1:" ":SS1:S1561208S0:QQ15:QCNQCN14B6350:6120LECA,20,25,40(p CONSTELLATION SECTION0z::CN88U13);"Constellations"p13);"--------------"}CF6090CN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I):&URUS,4.5,20,50* TELESCOPIUM,19,-50,40C TRIANGULUM,2,30,30g TRIANGULUM AUSTRALE,16,-65,40} TUCANA,0,-65,40 URSA MAJOR,11.5,50,40 URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40  VULP0: RETICULUM,3.75,-60,307D SAGITTA,19.75,20,30UN SAGITTARIUS,18.5,-30,40nX SCORPIUS,17,-35,50b SCULPTOR,0.5,-30,45l SCUTUM,18.75,-10,30v SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAPHIUCHUS,17,0,45% ORION,5.5,0,40: PAVO,20,-65,40S PEGASUS,23.5,25,60l PERSEUS,3.5,-50,40 PHOENIX,1,-45,35 PICTOR,6,-55,30 PISCES,0.5,15,60 PISCES AUSTRINUS,22.5,-30,40& PUPPIS,7.75,-30,500 PYXIS,9,-30,4S,5.5,-20,30%h LIBRA,15.25,-15,30;r LUPUS,15,-40,40N| LYNX,8,50,50e LYRA,18.75,35,30| MENSA,5.5,-75,40 MICROSCOPIUM,21,-35,40 MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 O3,-30,30 GEMINI,7,20,455 GRUS,21.25,-50,30M HERCULES,17,30,60i HOROLOGIUM,3.25,50,40" HYDRA,11,-20,90, HYDRUS,2,-70,506 INDUS,21.5,-55,30@ LACERTA,22.5,50,30J LEO,11,15,50T LEO MINOR,10.25,35,35 ^ LEPU CORONA BOREALIS,15.75,30,308 CORVUS,12.5,-20,30Q CRATER,11.5,-15,40r CRUX AUSTRALIS,12.5,-60,30 CYGNUS,20.5,40,40 DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,NA,8,-60,40$< CASSIOPEIA,1,60,30@F CENTAURUS,13.5,-50,50VP CEPHUS,22,70,40mZ CETUS,1.5,-10,60d CHAMAELEON,10.5,-80,30n CIRCINUS,15,-60,40x COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30,30 AURIGA,5.5,35,402 BOOTES,14.8,30,40K CAELUM,4.75,-40,30i CAMELOPARDIS,4.25,70,40 CANCER,8.5,20,40  CANES VENACETI,12.5,40,30 CANIS MAJOR,6.8,-25,35  CANIS MINOR,7.7,5,30( CAPRICORNUS,21,-20,40 2 CARIECDECDECRD&MAG(HERE4)10AMAG12.7MAG12.8MAGGd LIST OF CONSTELLATIONS| ANDROMEDA,1,35,40 ANTILA,10,-30,30 APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20 D$(4)) D$;"BLOAD NEWSHAPES,A$1800"< 232,0:233,24Z D$;"BLOAD ";F$;",A32860"` } CALCULATE RA,DEC & MAG FROM DATABASEHEREBASE5JRA((HERE)(HERE1)60)0.261799DEC(HERE2)(HERE3)60DEC127DEC128DRK0DE:YRK0(BCADF)1XCXX:YCYYYHF XSX1X02150[*YSY1Y02150k4 PLOT STARy>BPĺ"";HMAG0MAG0RPR12140,2160\MAG1X,YfpMAG218X,Yz DATABASE LOADING :"LOADING DATABASE"%`J1N:4000:2000:MAGLMJN1+j<tFLAG38410N~"":A$:^PR1İ7000wFLAG1000,6000,8000 DO SETUP CALCULATIONSPHDEC:DLRAL0A(P0):B(P0)C(PH):D(PH)E(DL):F(DL)K02(1ACBDF) X0*"Enter the field width in degrees-"<"Width: ";WIg$20:"Hit any key to view the field":."Hit ESC to exit ";:A$::A$(27)2908RSX53WI:L00.261799R0:P0D0RDB:3:49234,0LBD1120V0,0SX1,0SX1,SY10,SY10,0868:FLAG$(FLAG); 25:A$JA(A$):A8FLAGFLAG1:FLAG1FLAG1o A21FLAGFLAG1:FLAG3FLAG3}*A272904A13770>460 PLOT AN ARBITRARY VIEW:34,9"Enter the RA,Dec of the field centre-""RA,Dec: ";R0,DA$A(A$):A272905A8LMLM1:LM1LM1RA21LMLM1:LM5LM5iA54A48LMA48xA1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:YH1.00.2PR:720A27290A13ĺ"";:72018:1: to exit" &10:25:TRUE$(BD)0 010:25:A$R :A(A$):A8A21BDBD:550` DA27290v NA13ĺ"";:550 X12:25:TRUE$(BP) b12:25:A$ lA(A$):A8A21BPBP:600 vA27290 A13ĺ"";:600 14:25:LM14:25:en";25);TRUE$(PR) ) FLAG$(FLAG): 20:1:958B 23v "Do you wish to change the parameters N";(8); A$:A$"Y"520 (A$)27Ģ10:1:958: FLAG1000,6000,8000 A$:20:"Arrows to select" "Return to move" "ESCplots a stereographic map of"I ^"the sky from a star database, of the"q h"region and field you select.":10 r"Draw a border";25);TRUE$(BD) | "Beep a star";25);TRUE$(BP)  "Limiting Magnitude";25);LM  "Print the screPN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"_ PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn" PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto" " INFORMATION SCREEN 'PP0 ,: 616:"STARPLOT" @16:"--------" J5 T"Starplot EFAULT PARAMETERS BD0# BP0, LM35 PR0@ FLAG2X PARAMETER STRINGSz TRUE$(0)"No ":TRUE$(1)"Yes" FLAG$(1)"View a part of the sky" FLAG$(2)"View constellations" FLAG$(3)"View planets position" PLANET NAMES, :  32850% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE32855[<vFPI3.1415926:RDPI180P LOAD DATABASEZ(232)0(233)24110d3000nSX280:SY192:YH1.0xCXSX2:CYSY2PI3.1415926:RDPI180 D                    "CMPRSS","BRUN CMPRSS.OBJ"@ N "LOCKY6 BACKUP","BRUN LOCKY6"e N "EPSON DUMP","RUN EPSON DUMP" N "RAMDRIVE","BRUN RAMDRIVE5" N "PRINT SPOOLER","BRUN CATSPOOLER" N "HOUDINI","RUN HOUDINI"!N"MINI-ASSEMBLER","BRUN MINI-ASSEMBLER ($5ER"#\N "FPBASIC","DUMMY MESSAGE"DfN "INTBASIC","DUMMY MESSAGE"opN "LIST MASTER","BRUN LIST MASTER.OBJ"zN "AEMCAT","BRUN AEMCAT.OBJ"N "RENUMBER","RUN RENUM"N "ARCHIVER","RUN ARCHIVER 2.0"N "BOOT TRACER","RUN BOOT TRACER" N  Zdnx(U >^y~ L Ld$Ld)Ld.L    [ T  r  i  X { rL MANDELBROT   'L Enter side:      'LAEnter a&b corner: .  @  v   Ln MANDELBROT- a   aL   C aL   y a   " " I11000IHLdLdL LdL LdLdL LdLdL LdL L LdLdL LdLd L LdLdLdL   BX8  CX8  zE 8EL 8  E 8EL 8  EX8F}L 8FL 8  F 8  F 8FL 9"L 9$L 9&Ld9+L 9-L 9/L 91L 93L 95Ld9:L 9L 9@L 9BL 9DL 9FL 9HL 9JL 9LL 9NL 9PLd9UL 9WL 9YL 9[Ld8  @X8  A 8d8Ld8Ld8Ld8L 8Ld8Ld8Ld8Ld8Ld8L 8Ld8Ld8Ld8Ld8L 8Ld8Ld9Ld9Ld9 L 9 Ld9L 9Ld9L 9L 9LdLd@Ld8ZL 8\L 8^Ld8cLd8hL 8jLd8oLd8tL 8vLd8{Ld8L 8L 8Ld8Ld8Ld8Ld8L 8Ld8Ld8L 8Ld8Ld8L?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld?Ld@?Ld?DLd?ILd?NLd?SLd?XLd?]Ld?bLd?gLd?lLd?qLd?vLd?{Ld?Ld?Ld?Ld?Ld?Ld?Ld?LdK333L̈́p`(X X@Tp~0H4@( @ L CFyy}L? ?)L ?+Ld?0Ld?5Ld?:Ld?C to exit 7   > R>  > L5 < : : : > 9 : > =; 5= :L ; : ; ; ; ? =   v; > > : v; > (; _: v; f< 9 ! 1 : ;L!Lc`Ii@" `@Pd   >  n 9 ; L6 6  9 < $L6 : ; : = L6 = : 9 x< $L!7 ; : : < (L!7 < : 9 < $L 9 < L6 :  ; LO7-> L7  >  ;  m> 8 > L7Hit any key to view the planet u7  L7Hit ES? =  L5 5  4; ?  = r 4; > a [> r 4; > a 1 > L%6Pick a Arrows to move 6  LX6!planet Return to choose 66  L6 ESC to exit i6  < : :  ; L6-> 6 ? =   ' 4; >  o  ' 4; >  o  1 o<  L4CLOSE 4  >  ; ; <  m> 8 ?  L75 Planet -5  > rLL5R.A H5  v> rLa5Dec ]5  L5'--------------------------------------- o5  ; > PLANETS.DATA 3  ;  'L3> 3  > L3 > 5 3  r9 >  ; +? L$4L4 PLANETS.DATA 4 > >=  m> 8 = LE4Loading <4  >  o<  Lh4OPEN b4  >  o<  L4READ 4  >  '  !?  ; @; Y= # c \= i a L2 4> > < T => > < T F> > = T >   o<  L 3PR#0 3  ` X = rL53Planets Display %3  = rLY3--------------- I3  ;L5 < L3%Display the planets using which file? u3  L3 >  1 >=  +> L1Arrows to move 1  =  +> L2RETURN to choose 1  =  +> L.2ESCAPE to exit 2  ` o<  LK2PR#1 F2  g; '< $L2 ?  v> rLx2R.A s2  9 Y= # c \= i a = rL2Dec 2  rees. 0  > L0"Hit any key to view constellation 0  L 1Hit ESC to exit 0   > R>  > L;1 ; : : b1Li. : > 9 : > =; : > :L >=  m> 8 : ? : <   v; : L1 : < s; 1 ` o< r v; : < ; b1Li. >=  ;  m> 8 =  : > L/ IS CENTERED ON /  L0 R.A 0  : > aL-0 Hours &0  LE0 Dec ;0  : > aLe0 Degrees \0  = L0with a field width of y0  : > aL0 DegL3/ L; < $L/ L; < $LL. . L. ; L. .  ; ; ; < (Li. ; ; : < : : L-/ < : : b1Li. ; L@/   o 4; >  o 4; >  o 4; >  o 1 o<  ;  m> 8LI.Choose a constellation.. 0.  ; : b1 ; ; ; /: ]< ;  ; L.--> {.   >  n I; L; < $L. L; x< $ MAJOR11.55040,L, URSA MINOR168045,L,VELA9.5-5045,L-VIRGO13.5050 -L-VOLANS8-7040-L3-VULPECA202540 X P= : = rLW-Constellations H-  = rLz--------------- k-  2:L. o< L-'Please wait, retrievi+L+SCUTUM18.75-1030+L+ SERPENS CAPUT15.81040+L, SERPENS CAUDA18-550,L,SEXTANS10.25035!,L5,TAURUS4.520508,LQ, TELESCOPIUM19-5040T,Lj, TRIANGULUM23030m,L,TRIANGULUM AUSTRALE16-6540,L,TUCANA0-6540,L, URSA*PICTOR6-5530*L*PISCES0.51560*L*PISCES AUSTRINUS22.5-3040*L+PUPPIS7.75-3050+L(+PYXIS9-3040++LD+ RETICULUM3.75-6030G+L^+SAGITTA19.752030a+L|+ SAGITTARIUS18.5-3040+L+SCORPIUS17-3550+L+SCULPTOR0.5-3045SCOPIUM21-3540)L) MONOCEROS7.25045)L)MUSCA12.5-6535)L*NORMA16-5040 *L*OCTANS20-9050"*L7* OPHIUCHUS17045:*LL*ORION5.5040O*La*PAVO20-6540d*Lz*PEGASUS23.52560}*L*PERSEUS3.5-5040*L*PHOENIX1-4535*LDRUS2-7050(L(INDUS21.5-5530(L(LACERTA22.55030(L)LEO111550)L) LEO MINOR10.253535)L3)LEPUS5.5-20306)LL)LIBRA15.25-1530O)Lb)LUPUS15-4040e)Lu)LYNX85050x)L)LYRA18.753530)L)MENSA5.5-7540)L) MICRO40'L' DELPHINIUS20.61530'L'DORADO7-6030'L'EQUUELUS21.25530(L(ERIDANUS3.75-30100(L/(FORNAX3-30302(LD(GEMINI72045G(L\(GRUS21.25-5030_(Lt(HERCULES173060w(L( HOROLOGIUM3.255040(L(HYDRA11-2090(L(HY30&L&CIRCINUS15-6040&L&COLUMBA6-3530 &L'COMA BERENICES132030'L$'CORONA AUSTRALIS18.75-4030''LF'CORONA BOREALIS15.753030I'L_'CORVUS12.5-2030b'Lx'CRATER11.5-1540{'L'CRUX AUSTRALIS12.5-6030'L'CYGNUS20.540ANES VENACETI12.54030%L% CANIS MAJOR6.8-2535 %L& CANIS MINOR7.7530&L& CAPRICORNUS21-2040&L2&CARINA8-60405&LK& CASSIOPEIA16030N&Lg& CENTAURUS13.5-5050j&L}&CEPHUS227040&L&CETUS1.5-1060&L& CHAMAELEON10.5-80A10-3030$L$APUS16-8030$L$AQUARIUS22-1060$L$AQUILA201040%L%ARA17.5-5530%L*%ARIES2.52030-%LA%AURIGA5.53540D%LY%BOOTES14.83040\%Lr%CAELUM4.75-4030u%L% CAMELOPARDIS4.257040%L%CANCER8.52040%L%C > L#BLOAD #  > L#,A25000 #  ` K< p; 9 U; X; G c9 X; ; G n c 5= i `9 > : X; < G c9 X; *< G n c 5= i `9 _: b: G= LR$ b: = _: b: (; _: X; T< G n c < i 9 9 < L$ 9 < 9`L$ ANDROMEDA13540$L$ANTIL? L$# ; z: 9 ( r9 : ; (+? L$# :L"L" "  9 ; (L# ; 9 ; ; #%# 9 ;  9  : ` 9 < <  9  : ` XLU#LOADING DATABASE D#  o<  > > L#BLOAD NEWSHAPES,A$6000 r#  n= > ; T = > ; T8L! !   > ; ; $L! :2 g; 3-3 b: : : : : ; 9 ; 9 : 9 : : : &: : : 9 9 ; r9 9 : : o9 < n: : k: : #: 9 : k: r9 9 9 ~9 9 : : {9 l9 9 9 ; 9 : : ; 9 ; >: 9 ( r9 9 ; (+  L Hit ESC to exit    > R>  > L D: ,= c : i : > 9 : @; (; ; ?<  9 $Ll! ;  ; ; >:  ; ; >:  ; z: ;  ; z: ;  ; ; ? 9   # ! 9 M: L! 9 ; s; 1 g; '< $L< d; 9 < $L 9 < L*L 6< > = TL %Enter the RA,Dec of the field centre-   'L! RA,Dec:   9  =; LZ !Enter the field width in degrees- 8  'Ls Width: k  :  > L Hit any key to view the field =  +>   > >  n 9 x< $ r9 9 < $+? L ; $ ; d> ; ; :L 9 < $L 9 < L*L  L >  ;  < 8 g; ?  +>   > >  n 9 x< $L ; a; d; ; (L ; d; 9 < $L g; ; d; '< L - 9 < LL  L= =  +>  V: a =  +>   > >  n 9 < $L 9 x< $L1 ; P: S: ; (L1 ; S: 9 < $LY V: ; S: H< LY K< S: 9 = ( r9 9 = +? L #= 9 S: 9 < L =  +>  ; >  =  +>  9 >  =  +>   > >  n 9 x< $ r9 9 < $+? L 9 $ 9L 9 < $L 9 < L=L2 0 L =  +>  : >  =  +>   > >  n 9 x< $ r9 9 < $+? L : $ :L= 9 < $L m> 8 "> L&Do you wish to change the parameters N   =    >LY > 5  LJ >  O> $L= =  ;  m> 8Lc g; 3-3 >  > LmArrows to select \  LReturn to move {  L ESC to exit  ield you select.   = L Draw a border   +> r 9 >  L  Beep a star   +> r : >  LCLimiting Magnitude 0  +> r V: a LqPrint the screen `  +> r ; >  g; ?  >  ; ranus  o >= ?LNeptune  o = ?LPluto  o ; ; X = LSTARPLOT   = L$--------   < L^%Starplot plots a stereographic map of 8  L$the sky from a star database, of the l  Lregion and fiew a part of the sky  o < ?LView constellations  o ?< ?L View planets position  o ; ?L"Sun  o ; ?L;Mercury 3 o < ?LRVenus L o ?< ?LhMars c o o< ?LJupiter y o < ?LSaturn  o = ?LUz#?   ԱԱʠ" ԲԲʠӠ"Ӯʠ Ԡ Ԯʠ) Ԡ Ԯʠ)"Ԯʱ(Р Юʠ ҠŠҠԠ Ǯʠ ԮʠԶ$ Զʠ3Ϡ à Ӱ  ӱN Ӳ&Š"͠EGER CONSTANTS: K  LL(DEFAULT YES)?  L  S M]LK [ \ LPLRESUME/DEBUG CODE: =L  LmL(DEFAULT NO)? ^L  S M]L:L [ ] $ \LM2912-5761255837653620377229852982-62352-62361313531443896385038623874-62424-6KCOMPILATION LISTING: J  L#K(DEFAULT YES)? K  S M]LJ [ V] LVKPAUSE ON ERRORS: EK  LtK(DEFAULT YES)? dK  S M]LBK [ ] LKINTEGER ARITHMETIC: K  LK(DEFAULT YES)? K  S M]LK [ [ LKINT f_ y[ $LJLJEND OF PROGRAM J  L+J v[ B a LOJARE THESE ADDRESSES CORRECT? 1J  S M]L.J [ n] $LF LJOPTIONS: yJ  LJDEFAULT CONFIGURATION? J  S M]LvJ [ n] LJ ] Y] ] ] ] [ ] \ e] \LO L 'LI(DEFAULT END OF PROGRAM)? H  _  _  b] $L8I q] [LII ] \LW M]LH [ xB s[ LjILIBRARY OCCUPIES XI  [ B aLI - ~I  [ '\ u ] n B a LIPROGRAM BEGINS AT I  6\ B a LIVARIABLES BEGIN AT I L H(NUMBER, 'HGR1', 'HGR2', G  'L:HOR DEFAULT END OF LIBRARY)? H  _  _  b] $LeH [ '\ 9\LHLmHHGR1 _ 5 hH LH ^ [LHLHHGR2 _ 5 H LH ^ [LH ] \LW M]LG [ xB 3\ LHADDRESS FOR VARIABLES: H  LG N\ xB [ [ '\ 9\ f_ |[LpJ L2GALTERNATE CONFIGURATION: G  LXGADDRESS FOR LIBRARY: CG  LpG (DEFAULT fG  N\ a 'LG)? G  _  _  b] $LG N\ [LG ] \LW M]L@G [ xB [ LGADDRESS FOR PROGRAM: G  L FOBJECT CODE FILE: E  L!F (DEFAULT F  _  1` 5 ` LFF 1` LMF)? IF  ;T ] \LY M]LELmF ` 5 lF LF T M]LE _ _ _ 3` LF MEMORY USAGE: F  LFDEFAULT CONFIGURATION? F  S M]LF [ n] MICROSOFT D  ] ]L#E SOURCE FILE? E  ;T ] \LY M]L E `  b] $LVE _WL E T M]L E _ _ _ )` ] \L}EAPPEND _ 5 vE  _  '`  `LY _  M]L E _  n \ ] LE ] \LE.OBJ _ \  E  _ '` 3` RITE _ 5 C  _L DREAD _ 5 D  _ ^ G n [ ^ G n \L:D,SL@D,D [  7D  =D  _ \  _  ` [ ] ^ B >] ] A] W\ ^ B a[ XLDMICROSOFT TASC D  LDV 2.0, 10/7/81 D  LDCOPYRIGHT (C) D  LD198127L e] ` ]    [  [ ] _ \ q_  o [ A [ Q e] _ \ q_ [ B o 1 ` ^ \ |^ *\ a^ K\ ^  _ ^  _  _ ]  _LCCLINENUM C _LCOPEN _ 5 C  =`LCCLOSE _ 5 C  `LCDELETE _ 5 C  `LCWAS B`AAD```L$BCOPYRIGHT(C)1981,MICROSOFT  B _ ]  LCB NOMONC,I,O 8B  ]  LdB MAXFILES3 ZB  ^ LB C[ ^ @[`LB L[ ^`LB X[ ^  ^ U[`LB4254776208425486815425491663242569255127429489677433722551         31 (4)"BLOADRUNTIME"(13)(4)"BRUNPASS0"   :#14);"TASC COMPILER"=14);"-------------"`#34,5:6:(4);"CATALOG":34,0w%(64265)193100(::22:" RUN TASC"221<d21::"PLEASE LOAD FPBASIC":::" PR#6":22 `wLdL `|LdL L L L L `LdL L L L L L `LdL L L `LdL L @ϐ*j*h@*RU,?q2vww~`ELd`JLd`OLd`TLdL L L `YLdL `^LdL `cLd`hLd`mLd`rLd> e] T ]_ D ] $L5Z _ L'ZFILE NOT FOUND ON DISK Z  LTZ _ LIZ DISK ERROR >Z  ] J] \ 8 \ ] LqZ \ E7EaFLc @P@\ G 0L _  n 4[ c ] [L YL9Y 1 ` [ n]  7[ [ ^ &E` L9Y q] J]LnY ] J] _ LcYADDRESS RANGE IS 0 - 49151 HY  \ HGAI ?_ > e] T \ 8L9Y q] J] `  b] LY `  ] $LY ] J] LYLqZ q] J] 7Y `  ?_ > e] TL`Z ?_ LY q] [ _ ] * _LX _ 5 X LY ] ` _    _ \  ] 4 _LEX _ 5 CX L YL]X0LbX9 _ 5 [X / 7[ _ 5 `X FE` LX [ ] 7[ _  n 4[ c ] [L YLXALXF _ 5 X / 7[ _ 5 X FE` LY [ ] 7[ [  _  _ \ $L,WL W,D _ 5  W  _ \  _  _ [ [ `  7[ ] \ |` E` L^W e] ]` _ LWILLEGAL FILE SPECIFICATION hW  `LW _ ]  W LW _ ] * _LWLW$ _ ]  W LW 7{Y _  [ ?_ > e] TU ] J]L_W q] \ q] \ q] [ ] ` _    _ \  ] 4 _ [ $LVL@VS _ 5 >V LqV ] \ \ ] _ '  [ q] [LvVD _ 5 tV LV ] \ \ ] _ '  ] q] [LV, _ 5 V LV ] [ 1 ` \ $LVLV,S _ 5 V  _ U \ ] $LU ] J]L_W ] \ `  _ ` \ ' _ ] ` _   L:U _ \  ] 4 8U LdU 1 ` ] J]L_W _ \ ' _ ] x\ ] ` _   LU _ \  ] 4 U LU \ u\ 1 ` {\ Q_ LU T_ x\ _ {\  _ [L^W _  _ L_LSY _ 5 S LT ] [`LTN _ 5 T L.T q] [` ] J] _ ` ^ ;LET DT ` O^ \ G ] $LdT K \ G b] LT \ G  `  ` \ ] \LdT` q] J] q] [ ] ` `   LT, ` \  ] 4 T LT 1 ` ` _ ` _ ] [L! _  1` LS,A0,L1 R  ;`  _  `  `  _  `  ;`  _  `  _  LsS*****BEGINNING PASS 1 ]S   _ LS BRUNPASS1 S  `  'LS S  _  q] J]LS _ 5 S LS ] [` _ ]  8246329221916932208203 -_ ` ^    &] \ A )] Q 1 ` F^ > j^ T X^ > 6_ T s^ > ] T z] 5] z] \ z] l\ =^ \ 2] \ \ j[ i\ u ] [ -_ \ _ \ $_ B\ H_ `\ "^ \ ^ x\ e] ` [   \ ~_ e] o 1 ` _ LRBSAVE R 411183961731183762372531690133QLzQ1591641591851282208196487329221923015920823956233127170160208132}QLQ1571602071321581602552022407324421516251482461693232922193244215QLR485329221920 o 1 `LP40114411311981314200982019820211102031110204131220554206322077620876209762357623676237762391314P e] ` _    &] 4^ \ ~_ )] o 1 `LQ160316211376432351620321225318-615983908171524701661170324502500254625992609354235923183356033283322LOLO3726371916418003707375336911216369812393819O c ] ` _    &] 1 ` e] ` ^    &] n] (LO )] xB &]LO )] [ &] +^ \ ~_ )] 93676-593061132-60009-6107933423336335033613365-NLN3352336333483361-61136228422683934-60259319931043533339834553375337233953508-60304-60451-60335-10180835513883NLIO3837-61069-61358-59713-61193-61418-61425-6149243435721524158815953239-646003515MLM3524149715041727-62067-62071-62080165537632302161730363636672810269236142813269528312709352235429483902ML*N17712888325531623174324832113153-560591517358116729662912224o . F ULS o $LL 1L K o F S 1L K oLL _ K o UL_ o _ + LS K o wX _ K o U LS F U o Y mLM LL pLMLT o Z U 5q $ ___ Շ  { o LS wX 8 An \ 8 An Y  8 , D y LU ,  D Շ L%K Շ a , J Շ   ~ j M ݅ D #  LV M ݅ F , o 1 U M )` o Z 5q K $ χ $ Ā $ S $ LK Շ K o { SLK o _ K o U / $LS _ W K  $LJ ҇ K o {  LJ KLS wX  LI [ U 9J SL*J o |  Z LU  ҇ | Շ LX x (   Ā  LU  N LU  j  $LJ wXLHJ k o a ˆ # $LJ F  o  ҇ ̄ :mL%K $LI wX Շ ̄ e l $ Ā  $ŏ Ə   Ā  $ ̀ $  ̀ τ $  LhI wXLI D_ AQ  $LI wXLH 8 An } x nLS o o  LI Y ^ K o } n F U Z 5q K $ BLLLU pLM o b[ , ڂ Շ   U _    ݂ ) m n F U _ LZH " K oLcH Í K o L}H  KLS wX _ LH \ KLS ލ KLS o !DLH oLH b[ r  m { } n SLH ;n } x n AQ o ̄   LG e  Ā   LT  K   ̄ wX τ GHHHIT*JKSSSSSKKKSSSKCL Ƅ ̄ τ CLSSSSTTTSSSSSSST~LLTTS Ƅ ̄ τ LLLMSTMMMVQ\QQTT RRRTTSSVQ Շ F o o  ˆ - u o 8 Շ E  ~ An 1 0 u Y Y Y Y Շ $LF #o LxF *****ERROR mF  LFEMPTY PROGRAM FILE F  L~ o т X o !DLT LF o ( (   &` [   $[  [ `LE Ɓ o _ Ɂ O Ձ " ҁ $ ށ o _ Ɂ O Ձ ҁ $l ` ߎ  g  ˎ  ߎ  {  Վ  ߎ    o W o o o  0 (D ? r  K B { &,  K B $, `L=D T $ ` W x $6 `LGD i `LD r o _ u O ~ $ o _ u O ~ $G  o _ u O Շ ~ $G `LD ( Q  $Q `L@E ى  ـ & `L'C m  v & `LjC    ' &   0 $   9  `LC  *C !  $  !  $  !  x $ `LC * N  6 - W &"  6 - ` $"  6 - i $" `LAL AA莼L$BCOPYRIGHT(C)1981,MICROSOFT  B c ΂ ы  d O ҇ ȅ Շ o 7 8 o [ Շ o Љ  ~ ^ ݅ D o 1 o ݋  ~ o   ~ d _  V  ^ D o 1 1 LC                       `L 8`L 8AL 8`L 8`L 8AL 8AL 8AL 8AL [Ld[Ld[L [L [ L ["L [$L [&L [(L [*L [,L [.L [0L [2L 8  8  8`L 8AL 8`L 8AL 8AL 8AL 8`L 8AL 8AL 8AL 8ZLdZLdZL ZL ZL ZL ZL ZLdZLdZL ZL ZLdZL ZLdZL ZL ZL ZL ZLdZLdZLdZL ZLdZLdZLd[Ld[Ld[ Ld`Ld`LdL L `Ld`LdL L `LdL ZL ZLdZL ZL ZLdZL ZLdZLdZL ZL ZL ZLdZLd j ) j wX Շ ) j _  LP\ wX , J j , ҇ ̄ N LU M ) j τ ) jL \ , ̄ U j , J τ ) Շ ̄ Շ   ~ τ ҇ _ Q , o ŏ Ə L\ k  ) j τ $ j 1 ,  τ χ $L\ o ) j k   LwX [ [LDj j ) jL j M[ @ $L2[ Շ LwX Ԉ $LL[  LwX` h[ LU \ ` M[Lk B $L[ Շ ` o  wX C Ā B L[    C Ā B L[ wXL[` B L[ kL[  ) ?o c D ̓` Z LU  LX x (   Ā   LU z \ } Ā # q #  , D l $LZ \ ̄ m , ҇ F  o ` , D )  D $LZ , ҇ )`L`ZLZ Z C $LZ Շ ` o Z CLZ`  \ W Շ ? } n o } n o ‚ ҇ Ѓ Y ; LFY j , ͆ znL)Y  $L'V l LwY > T ҇ l LY Ѓ LY Ѓ  Y  ʃ l $LY Շ Z χ LY  > " T q  g  Շ W 8 7 8 o [ Շ LGT 74X  i > o T o eJZMb i > o T  8 Շ L'X ˂ $` #o > o T т , 8` l LFY o  o 9 ǃ < Y ă 9 < Y ZLX #o ? aLX X  Z S LX  > " T   LW LINE NUMBER V  ? a  OXL-W !ERR! %W  EU : $LW ؄ > o T > o TLxWTYPE CNTRL-C TO ABORT, aW  LWANY OTHER KEY TO CONTINUE: W  D (LW > o T e $L~  8 oU LVLV SUBSCRIPT U LVLV TOO COMPLEX V LVL3VTOO LONG *V LVLSVSYMBOL TABLE FULL AV LVLlV INCOMPLETE aV LVLVOPERAND zV LVLV REDEFINED V LVLV TYPE MISMATCH V #o Շ LV*****FATAL ERROR V **WARNING T  LU LINE NUMBER U  ? a L.UIGNORED &U  EU L!T Շ  $LbU $ ԅ $ LU l LU wXLKU OX ` FLU E FLU FLU  F C $LwXLUSYNTAX U LVLU DECLARATION S o o !D $LU ZL!T OX l $L!T D e $LGT > o TL~ l  Ā Շ  LvT т wXLF ; LT j , ͆ znLvT o K p  > " T   LT BRUNPASS2 T   #o LT *** $LR wXLR  $LS wX ` K oLR $L0S { LDS } LYS wX _ U K oLR _ $  $LvS y K oLR K oLR o Z 5q K $  $LS K o { SLS  F C $LwX { LS o _ K oLS o _ K oLLS  K o wX ҇ LS ) F U h[ LU Vl ,  D LV ;n x ͆ n ,  F x o U M[  [ \  !p , Շ  ,  x Om U U _ 8 An zn o [ pLS o _ [ K o ULS o !DLR KLS !DLS Շ   ~ *   $L'Q wX AQ 1 ` { l L>Q wXL*QLT $LUQ wXLAQ` oLM o _ K $LQ N Y K wXLQ  F U o x ͆ An o ڂ Y m ݂ ҇ ڂ  $LQ wXLQ ݂ 8 nLS o _ [ K o U _   $ LP " х * } 7 L'V * } ' 0 u ˆ - , J o ) , D l $LsP  ̄ m , F M o PLnO , D ) ҇ D G $LULGP AQ  $LP wXLAQ { l LU #o LP RECOGNIZED P  OX L!TLPCOMMON P LOLNUSE N P ̄L*OLODEF O P o ̄ P Շ C  Ā I   Ā l $ LU Շ τ F [ B LO k  LO wX 9J  ,  , , D  ~ D ҇ n w 1  \ $ Ā Q LsNLNINTEGER N P  LU ފ $L>N  Y wX AQLP [ \ B  Y B LaN kLgN wX 9J E Y PL>N q LNLNCLEAR N P q L*Q $LN P  KLNLNCHAIN N P K o o o AQLP mLM o !DLM ;n Պ } nLM ̍ K oLL o _ $L8M } $LL ˈ F U $LL CLL O $LM 8 An \ 8 An ;n x ) j n Շ LF Y 8 mLS wX 8 An Շ 8 An 8 An Շ 9LS AQ L*Q wX Agk , D $ Ā \ $ ̀ $  ̀  ׅ $  LSl  , ҇ )`Lgk Շ #  , D l $Ll ˆ ̄ m , ҇ F  o ,  F o ` , D )  D $Ll , ҇ )`Lql 8 ,  D n }  _ Q , o ` ҇ Ņ L V`  X $ Ā \ $ L@k )`   n } Ā q #  , D l $Lk " ̄ m , ҇ F o o ,  F  o \ $ Ā $  V , Y F o ` , D ) Y D L3 & ) j Lj Dj j jLg ) j k` ,  : . , o : ҇ 7 ; 1 (L V` Շ 4 7 , ) mC $ Ā : l $ ` Շ 4 ,   mC`  4 , ` ; . , o Շ 5 8 1 (L V` ; ҇ 8 , )` o _ Q , o ` Շ _ Q , o `g Շ  $ Ā   $ Li o Dj j Dj ,   Ā , : & LPi & )Li ,  Ā , M & L|i Ƈ & )Li ,  $Li \ )Li , $Li )Li , w $Li ݋ )Li , ߌ  Ā , 0 & Li & )Li h  B $L^VLh o #  o  w $ Ā  ߌ  L;h o #  o Շ # o o Շ  ~ o ݋  ~ d ! o _  $Lh d # d ҇ _  o Lh 1 1 o ! Շ ! `  Lh Dj Dj , ̄ Dj τ ) jL$ Lf Dj`L^V o LDg L.g wX ` : ` wX P ` : Lyg Ljg wX & ` $L:g` Lg Շ ` $L$g : $L`g` o m  l $Lg Շ m` B $` *C Ā $ L o Շ # Շ o LKf o #  o Շ #  o  # Շ o ̊ $LKf o # \ o \ # Շ o wX |]Lf h[ Ԉ   LwV wX   [Lf g  $Lf z ) j wXLpe pLf Dj` $Lf ) j wXLf  B $ Ā  D $  Ā  n j m  [ ULd g g *C $LDe ) j wX , D $ Ā , n $ L`L5a pLPe Dj` $Lme ) j wXLdL^V B $Le ) j wXLpe  Le ^ ˆ  [Lf C $LTf ֌  ) $ Ā $ Lf o # , ҇ )` C $Ld ֌  ) o # Շ o  $ Ā $ LOd Շ # \ o Ld d  Ā 2 & L~d Շ # Շ o Ld Շ #  o ' $Ld wX o #  o  # Շ o ]Ld wX |]Ld & LwV wX h[ LU U Vl j _ j m , ҇ F o o o ˆ  ~ , ݅  F ݅ D o 1 ` " ̄ m , ҇ F o o ,  F o , Y F o ` , D ) \ $Lc , Y D l ( Ā , D n t $ LcLb o ˆ  ~ , ݅ Y D ݅ D Lb 1 $La Z Z I L;b Z  $L!b wXL8b Ê $L8b ; Z Z Db [Ld \ LX LwV # t $   Ā & Lb Շ Lb \  D n } Ā y q # v  , D l Llc \ $L/c ̄eLa h[ L5a Ԉ La nf j g LV ) j wX _ jLd B $LRa ) j wXL`  $Lfa wXL5a Ê $L}a La  La ) j wXL5a h[ La \  @ $La wX Շ  [Ld Z e   Lc ej B $L ` ) j wXL_  $L!` eL` CL4` eL` h[ LE` 5aL\` Ԉ $LY` nfL` a , ̄ Dj j ,  $LV τ ) \ !` g  $L` j aL\` , ̄ Dj p $L^V j , S $LV τ )  !`  $L` eLa CL` LU wX e l  Ā   L _ wXL^ ;n x Y u h n } n x ) h 8 An ; l L_ h Շ  ~ D 8 An 1  $L_ wX` _L_ _ Շ Zq o ` _ Zq $L_ Շ !` _LZq o )L_ \ )L_  ) j o ) , ̄ o ˆ  ~ j # , o 1 ˆ ! # τ o ˆ ! o ! $Lx^  $Lg^ wX ˆ # ˆ ! ҇ o L] ˆ !  LU j j Շ ! ) j  ! ) o ! χ $L^ o ) j k ˆ ! S $L^ F ) j \ ! ) j o ) j k Շ ) j j ,  k ˆ # $L8] F  o  ҇ ̄ :m ,  F Շ o LL] , D LU o _ M Q o Շ _ M Q , o Շ )L j U j ˆ # Շ o ˆ o  Շ  ! ) j 1 ˆ ! ! χ $L] _L] ˆ ! !  $L] _L] _  Շ g $ Ā $ χ $w x  $ L&|  ܃ ) χ $LF| ,  x  g $LmLOm CE $L| o  | ` Շ _ O ) o _ O h e & Ā e  L| p ˆ e $L| N h ׈ K o o _ ܆ Q o ܆ ҇ نLq Շ Շ o _ O L>{ ك ( j` l L{ Շ Շ ׅ $ Ā $ L~{ o o DL| $ L{ h KLo` m l (L{ m $ Ā $ χ $w x  $ L{ Շ K o t KLo ՇLz 0 ҇ -Lry ( ڋ $ Ā (  ̀ ( Ս (   Ā Շ _ 0 O ֆ $ ̀  _ 0 O ֆ $  Lz ( 8  Ā Շ _ 0 O ֆ $ Lz   o _ ܆ Q o !p Շ _ ܆ Q , o Շ  mLz $Lz " " D Ā  _ 0 O ֆ $ Lz Շ  L?y \  o _ ܆ Q o !p Շ _ ܆ Q , o Շ  OmLz 0 Lz o _ 0 O % ڋ ( Ā ( ڋ  ̀ ( < (  ̀ (    Ā (  ̀ ( e (  JDLw oL4x oL4x xL4x `| JDLoLo |L4x | o ܆ ҇ - ( ڋ $ Ā ( $  Ā ( ŋ $  Ā ( X  Lry 0 Lz o _ 0 O % l ( Ā ( ڋ $ Lx 0 ҇ -Lx " D Ā Շ _ 0 O ֆ $ Lz ҇ $w x Lw ( j Շ  Շ Lm Շ mL4x CEL(x CELIw KL.x N | ȋ K o KL(x x Љ KLx `|L1x `| Z| ( $ Ā ܆ ҇ o _ O C $ Lw J K x ҇ K ܆ ҇ ن Շ _ ܆ O `| xL4x `| N  Lv  H Lv N ҇ Lv Շ H Շ ( / L&w "  CELJv KL.x `|L(x Z| ) lL4x N އ K Z| ܆ ҇ o _ O Lv x ܆ ҇ ن Շ _ ܆ O  _ ܆ O `| Lv xLkv JD $Lv Շ K o Q ) ܆ CEL,u Q  Z| L"x CE $L,u Z| L.x K G $LIu [ K lj o KL(x Շ CELqu NLzu Z| N JDLu N K Q L.x Z| CE Ā $ Lu JD $ } Շ L1x G $Lu K Z|L1x Lt o _ O $LtL9t o _ k Q " o h K o K  tttt uUuUuuvuvvvuuv~Pv_v_v  !_v~uvuvvvvwvwvwvw1xdwx1xvwvwvwvwvwvwvwvwwvwvwvwvwx|w|w|w  Lt ˆ  CEL"x `|Lx \ NLt N ( $   Ā JD  Ā ( 8 $  Ā (  $  Ā ( $ LUs o D o ( v Lis o D ( e $ Ā ( X $  Ā ( Ԉ $ Ls o G $L9t h " DLs o _ O $Lt h " D ܆ O Շ D Շ ( / &L1r JD Ā JD L4rL}r ( S &  LWr o D o (  Ā ( / & L}r o D (  Ā ( &  Ā ( Y $  Ā ( $  Ā ( $ Lr o D ( $Lr o Y D ̄ \ Շ  ~ τ ׅ $L-q , Y F \ څ o 1 Lp l  R  Շ  Zq o ` Liq Շ ` Շ ن o _ Q o o ܆ L { o  o _ ܆ O % Շ _ ܆ O Շ D Շ o ( l (Lz ( K  _ \ 8L p  8 o An N \ n }Ln ) ^ l LAp ) , D l $L}p ˆ ̄ m , ҇ F o o ,  F \  o ` , D ) Y D $Lp , Y F \  o , ҇ )`LAp ,  F ,  D Y o ` ) , D l $` , D ) > " T  { Lo,B  o  l a `  > " T  o W` 1LSo > o T` o Z  Lo  > " T  {   W x ҇ u x L'V` $  Lo N ̄ ͌ K o τ K` \ Lo Շ  Lo o LoAn , D n } , F x o To @D }Ln To t # R z 5 Dn U 5LDn  8 Wo $q r Lyn  > ˆ T c > ; T 8 ?o` A RLn  R `  > " T  { Ln,B n  ʆ a  W U > $Ln o } nLn Dn  n w Lm AnLnLm , F o F o o ҇ ) :m , F o ` Ʉ L>V` ҇ n ; , ҇ D n c i # D , ҇ D M Ä A Lm , ҇ F , ҇ D A o 8 , D n } , F x o AnLn 'L )L +L -L /Ld4Ld9Ld>LdCL EL GL IL KL ML OL QL SL UL WL YL [L ]L _L aL cL  L L L L L L L L L L L L  L  L  LdL LdL L L L !L #L %LL L L L L LdLdLdLdL LdLdLdLdLdLdLdL L L L LdL L LdL L.Ld3Ld8Ld=LdBLdGLdLL NL PLdUL WL YLd^L `L bLdgLdlL nLdsLdxLd}LdL L L L LdLdL ~L ~L ~Ld~L ~L L L Ld L  L L L L L LdL L L !Ld&L (L *L ,L L L L L L L  L  L  L L ~L ~L ~Ld~L ~L ~L ~L ~L ~L ~L ~L ~L ~L L L L L L L L L LdL L L L L L L L L L L L L L L L L L L LdL L L L L L L L L L L L LdL L L L L L L L L L L L L L L L L L L L L L L L L L L L L  sL uL wL L yL {L }L L L L LdL L L L L L L LdLd LdLdLdLdLd"Ld'Ld,Ld1Ld6Ld;Ld@LdEL GLdLLdQLdVLd[Ld`LdeLdjL lLdqL* ,,L -.O/p0? !12RSTU5VwXx8y:z;<}=~ L LdLdLdLdA!"bCc#d`$`(Ņ %E0@dƆ $hH&4'ȈHQFk(Rcefgjd) I}@L} An n` L ~  }Ln ( } n 1 }Ln #o  L8~DELETE 1~  {  Վ  Lt~*****COMPILATION TERMINATED X~  o "  ~ o _ 7 > Շ _ 7 T 1 ߎ     Lc `@@k K }Ln JD} ~  Ā & Li}  ,  D $Li} S , Y D n b P  l $ Ā $  Ā  # $  Ā \ r $ ` e $ Ā  e $ Lm LOm m JD b c b b B a Ka j` b d L&N 4` c Te n B j` a (c LN c a $ _ a c $e L.P ac a $ _ c a $e  _ a [c $e LNLtM a d $ _ a c $e LP a d $ _ a d $e  _ a vc $e LPLtM 4` ^c c _ )b  +c TL<^ 4` Te 1` b  +c T a c $L<^ ` 1 bf _ aLG e LG*****FATAL ERRORS ENCOUNTERED tG  L<^ ac {a Pb e  e  e  ^ a a e  e LG,B G  a ua 4\LE ^LFUNDEFINED FUNCTION E  4` |c Te n c d i # a a   4` |c Te _ a c _   4` ^c Te ` jFLE \ LFREFERENCED LAST IN LINE sF   +c T d > +c TLFTYPE CNTRL-C TO ABORT, F E )b ^c le ` o LE )b ^c je a LD ^L6EUNDEFINED LINE NUMBER E  )b ^c je n B a )b je ` jF (` > c T e  e L~E,B0 zE  +c a 1 bf ac bf c  ~ )b 1` 4` Te (c $LUG 4` Te 1` ^c Te a 4\ 4` c Te a &e a LEc  )b b b >b a b ^c je _ a ^c je _ (LD b je a b le a je o a le a o b ^c je a b ^c le a ^c je o a ^c le a o Db b b vc LC 1 bf Db vc L}C +c a c bf c b  c  a ` $LE ] ` a ] a ^c a )b ^c je a $L e  e  ^ U` bf `  ~ )b 1` 4` Te (c LSC 4` Te 1` ^c Te a 4\ 4` |c Te a 4\LC 1 bf b vc $LE b c $LD c b Ab c 2b 5b c 2b _ c 2b # _ LC ac ;b Ab c 2b _ c 2b # _ $LC c ;b Ab c bf c b u Db  A$ |L䔯AAeL$BCOPYRIGHT(C)1981,MICROSOFT  B e LKB*****BEGINNING PASS 2 5B  LlB _ 3d _ #`L|B _ _B 0d _`LB _ d`LB ` d ``LB ` c  d ``LB ` A c c i #` +c b ]d ` ` a 4\ &e a 4\ e  e  e                L L L L 8  8  u8  d8  8  8  Ie8  8AL 8AL 8AL 8L 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL eL gL iL kL mL oL qL sL uL wL yL {L }L L L L L L L L L L L L L L L e L],B ]  b a ^` a 8 ^ la D F`` ^L1^TOO LONG (^  _ e LO^DELETE H^  e  e  L^*****COMPILATION TERMINATED o^  L[ (` > c T e  e L^*****FATAL ERROR ^  ` d _ d G d e L\,B0 \  +c a a ` (LF] ] ` b ] a ^c a ` ` (LF] b 9aL ]` a a )b je n c a b ] ^ I` cL}] a b b ] ] (` > c T e  e L],B ]  b a ^` ] ` B `` ^ C` ` ^ 3d a =` ` `` (` > c T e ~ +c _ )b Ge > ac _ )b Ge T 1 bf e  e  e  e  Lc b le a o b ^c b ` L"^` fd F` \ +c _ ca :e F` \ ac _ ca :e F`L\ \ |` B y` |` oB @` \ |` _B @` (` > c T la > I` T b 8 ^ a ^c ~a a 4c L"^` (` > c T e LZ LINE# ADDR Z  1 bf e  e  e  ^ e  e  +c a ac lf e  {d  ] b L_[ ][  ` a ] b d L~[ |[  ` a a ^c a ` (L[ 1 lf L=[ _ L[*****COMPILATION COMPLETE [  +c bf c  c /e jc aLY - Y  c /e a +c /e _ c /e _ $LTZLFZNO LOCAL VARIABLES 3Z  LZLoZLOCAL VARIABLES OCCUPY WZ  +c /e jc aLZ - Z  c /e a LZHIGHEST MEMORY LOCATION: Z  ` a ac bf e  {d  )b OMMON BLOCK: X  c /e _ c /e _ $LBYL4YNO NUMERIC COMMON "Y  LYL^YNUMERIC COMMON OCCUPIES EY  c /e jc aLyY - uY  c /e a c /e _ c /e _ $LYLYNO STRING COMMON Y  LZLYSTRING COMMON OCCUPIES Y   e  L XLIBRARY OCCUPIES W  ` B aL%X - !X  ` B $a c mc a LZXPROGRAM OCCUPIES HX  -a B aLrX - nX  Wa a ` 0a $LXLXNO COMMON BLOCK X  LZ b (c $LXLXDEFINE X LXLXUSE X LX CERENCE TABLE? V  e  e  (c $L$W e LV e ac   c $LMW e  LV e ac  eL^WYLcWN e 5 \W  _ e 5 aW e LW e LVLWN e 5 W L[ LW SOURCE FILE: W  ue  LW OBJECT FILE: W  v` LV |` c y` \ ` y` \ c bf c  ~ )b /e y` \ 1 bf +c bf c  ~ )b /e y` \ 1 bf ac }b $LjV +c b b F` \ _ LV*****CODE GENERATION COMPLETE V  LV'COMPILATION INFORMATION AND LINE NUMBER V  'LVREF` (L;U G] )b le ` o Rc F` )b ^c je n y` c (c $L5U |` c y` \LT 1 bf 7c D c $LfU d > +c TL<^ c ` ` a L\R (` > c T e  e  e LU,B0 U  -a y` \ eb a -a a y` \ Rc F` ` y` \ ac je n y` &e nS c d  _ c e &e L6T Rc F` d c `a [\ )b ^c je n y` \LS od F` )b ^c je n y` \ )b |c je (c LS {d F` )b ^c je ^c n y` \LS )b |c _ )b |c je n _ b ac _e b LS ac b _ ac _e _ $L@U ac _e ^c bf ac b  c  )b je _e [c $L\S c bf +c _e  c  )b je ` LWS )b je n b q] )b le ` o )b ^c je n y` \LS 1 bf ac _e _ +c _e _ $LT +c _e ^c &b )b je ` (LT G] )b le ` o c xd &LS Rc F` )b ^c _ )b |c je n _ c c je n y` \L ` ` B $a c mc a ` LR a ` a hb &e ~a (` > c T e  e  a Mb n a a _B 0d a ` (` > c T e  LvR. tR  +c je ` (LR +c je n b q] ac je n y` &e n v` LR |` c y` \ ac le +c je o +c le ` o L~R +c~ 4` b Te n y` 4` d Te _ ac _ $L"Q c y` |` jc a a \ 1 wf c a a d $LPQ c a a a a b d LtM Ka a Ha Ka d L"^LtM 1 lf a [c $LQ ac ae ac b o a vc $LQ ac 1e mc Ea o 1 Tf c 1e mc Ea o c /e ` Wa ` LQ Wa +c `a ac a $L P c `a U\ c a c a $L+P c aLYQ FP yP ac `a U\ c aLYQ 4` ^c Te a 4\ a a 4\ e F` \ Hd F` \ e F`L\ Ic F` \ m` _B @` \ Hd F` \ m` oB @`L\ FP Rc F` d a `a [\ mc a m` y` \ 4` c Te F` \ d wf 4` c Te c  Te a 4\ m` B a 4\ 4` |c Te a ac b a (c L.O a B b b |c a ac a $LQO a a 4\ ac b $LP b c 5b b wf +c  ac  a 8b (LO &e aLO Db a a b b LO od F` \ a a c F` \ b F` \ 4\ c 2b 5b 1 wf yP.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH     AL  _L _L _L _L _L _L _L 8  {f8  f 8  8  8  f8  f 8AL 8L 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8_eLd_jL _lLd_qL _sLd_xL _zL _|Ld_L _L _L _L _L _L _L _Ld_L _L _L _L _Ld_Ld_L _L _L _LfrLdfwL fyL _-L _/Ld_4L _6L _8L _:L _L _@Ld_EL _GLd_LL _NLd_SL _UL _WL _YLd_^L _`LdVL fXLdf]LdL fbL fdL ffL L fhL L L fjL flL fnL fpL L f=L L f?L fAL L L fCLdfHLdfMLdfRL L L L fTL L L L fLdfLdf LdfLdfLdfLdL f!L f#L L L f%Ldf*LdL f/Ld f4L L L f6L f8LdL _ b ac b a b > +c T` a > +c T (` > c T e  `Lc1r@ c  (HF  L /?@*j12?w8eL eLdeLdf$"PEEK("DL")+PEEK("DL1")*256"- <D$"CLOSE"D. CREATES THE ADR FILEPDB43634:DL43616: BEGINNING, LENGTH LOCATIONSD$(4):Q$(34): CONTROL D, QUOTE CHARACTER(D$"OPEN ADR":D$"DELETE ADR":D$"OPEN ADR":D$"WRITE ADR" 2"PRINT:PRINT"Q$"A"Q$"PEEK("DB")+PEEK("DB1")*256"Q$", L"QԺԢ˨˨̢˨˨  16383% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<vFPI3.1415926:RDPI180P LOAD DATABASEZ(232)0(233)96110d3000nSX280:SY192:YH1.0xCXSX2:CYSY2PI3.1415926:RDPI180 D          ,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠ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] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hw0У8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBЍw U  yUUwyVxz`Зԥwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eУk ЮU 4Г U 5,wЅƩѤ wU! 5B=ooppȆbcĂbfUVd8ophLД8= 7MLdlkȄmn;op:E UUȥViлh8HH`Ї{y SՠUEowyywxzzxwIy:e \`fH,Hops8otpf,kiUliVU$f&łmUŁfbUȥcUUŭUVŮMvłGUŁ>UV2ЅUŕȱU喰!UUdUV0*UiUViVUmVnɊȢwU𧰸ХyyUU⥁œ GEMINI,7,20,45, GRUS,21.25,-50,30D HERCULES,17,30,60` HOROLOGIUM,3.25,50,40v" HYDRA,11,-20,90, HYDRUS,2,-70,506 INDUS,21.5,-55,30@ LACERTA,22.5,50,30J LEO,11,15,50T LEO MINOR,10.25,35,35^ LEPUS,5.5,-20A BOREALIS,15.75,30,30/ CORVUS,12.5,-20,30H CRATER,11.5,-15,40i CRUX AUSTRALIS,12.5,-60,30 CYGNUS,20.5,40,40 DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,3,-30,3040< CASSIOPEIA,1,60,307F CENTAURUS,13.5,-50,50MP CEPHUS,22,70,40dZ CETUS,1.5,-10,60d CHAMAELEON,10.5,-80,30n CIRCINUS,15,-60,40x COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30 CORON AURIGA,5.5,35,40) BOOTES,14.8,30,40B CAELUM,4.75,-40,30` CAMELOPARDIS,4.25,70,40w CANCER,8.5,20,40  CANES VENACETI,12.5,40,30 CANIS MAJOR,6.8,-25,35  CANIS MINOR,7.7,5,30( CAPRICORNUS,21,-20,402 CARINA,8,-60,CDECRDMAG(HERE4)108MAG12.7MAG12.8MAG>[ LIST OF CONSTELLATIONSs ANDROMEDA,1,35,40 ANTILA,10,-30,30 APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20,30  D$;"BLOAD NEWSHAPES,A$6000"3 232,0:233,96Q D$;"BLOAD ";F$;",A25000"W t CALCULATE RA,DEC & MAG FROM DATABASEHEREBASE5JRA((HERE)(HERE1)60)0.261799DEC(HERE2)(HERE3)60DEC127DEC128DECDE:YRK0(BCADF)(XCXX:YCYYYH= XSX1X02150R*YSY1Y02150b4 PLOT STARp>BPĺ"";HMAG0MAG0RPR12140,2160\MAG1X,YfpMAG218X,Yz DATABASE LOADING :"LOADING DATABASE" D$(4)N:4000:2000:MAGLMJN1"j3tFLAG38410E~"":A$:UPR1İ7000nFLAG1000,6000,8000 DO SETUP CALCULATIONSPHDEC:DLRAL0A(P0):B(P0)C(PH):D(PH)E(DL):F(DL)K02(1ACBDF) XRK0DE0*"Enter the field width in degrees-"<"Width: ";WIg$20:"Hit any key to view the field":."Hit ESC to exit ";:A$::A$(27)2908RSX53WI:L00.261799R0:P0D0RDB:3LBD1120V0,0SX1,0SX1,SY10,SY10,0`J1868:FLAG$(FLAG); 25:A$JA(A$):A8FLAGFLAG1:FLAG1FLAG1o A21FLAGFLAG1:FLAG3FLAG3}*A272904A13770>460 PLOT AN ARBITRARY VIEW:34,9"Enter the RA,Dec of the field centre-""RA,Dec: ";R0,DA$A(A$):A272905A8LMLM1:LM1LM1RA21LMLM1:LM5LM5iA54A48LMA48xA1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:YH0.50.1PR:720A27290A13ĺ"";:72018:1: to exit" &10:25:TRUE$(BD)0 010:25:A$R :A(A$):A8A21BDBD:550` DA27290v NA13ĺ"";:550 X12:25:TRUE$(BP) b12:25:A$ lA(A$):A8A21BPBP:600 vA27290 A13ĺ"";:600 14:25:LM14:25:en";25);TRUE$(PR) ) FLAG$(FLAG): 20:1:958B 23v "Do you wish to change the parameters N";(8); A$:A$"Y"520 (A$)27Ģ10:1:958: FLAG1000,6000,8000 A$:20:"Arrows to select" "Return to move" "ESCplots a stereographic map of"I ^"the sky from a star database, of the"q h"region and field you select.":10 r"Draw a border";25);TRUE$(BD) | "Beep a star";25);TRUE$(BP)  "Limiting Magnitude";25);LM  "Print the screPN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"_ PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn" PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto" " INFORMATION SCREEN 'PP0 ,: 616:"STARPLOT" @16:"--------" J5 T"Starplot EFAULT PARAMETERS BD0# BP0, LM35 PR0@ FLAG2X PARAMETER STRINGSz TRUE$(0)"No ":TRUE$(1)"Yes" FLAG$(1)"View a part of the sky" FLAG$(2)"View constellations" FLAG$(3)"View planets position" PLANET NAMES, y' $F(?EF >  = 9L STARCAT1.OBJ  ? = 9 < ; e= ; +; n= D ; $ r9 = D ; $+? L& ># = A: w= }: ; : < ;: ; < w: ; < ; e= ; +; ; 9 ; : -< S: ; ; < d; ; >LNo  o ; >LYes  o ; ?LV               1080#& NOW DISPLAY THE PLANETB& QPR:PR0: TURN PRINT OFFM& J08c& RAPR(J)0.261799t&!DECPD(J)RD& !MAGJ6&!2000& !&*!PRQ: RESET PRINT&4!1150>!8510!8510N851001:" ";$%l A21QQ1:Q17Q17<%v A8QQ1:Q9Q9J% A27290Z% A138270k% Q:1:"->";|% 20:1:958% 20:"Hit any key to view the planet":% "Hit ESC to exit ";:A$::A$(27)8150% QQ9% R0PR(Q):D0PD(Q):WI60&----------------------"$($ I08O$ " ";PN$(I);16);PR(I);28);PD(I)U$ $& 20:"Pick a Arrows to move"$0 :"planet Return to choose"$: :" ESC to exit";$D Q9$N Q:1:"->";$X A$:A(A$) %b (P$)0P$"PLANETS.DATA"&#7:958<#9:"Loading ";P$Q#(4);"OPEN ";P$f#(4);"READ ";P$p#DTE$#I08:PR(I):PD(I):#(4);"CLOSE ";P$#PP1#5:958#DTE$#" Planet";20);"R.A";30);"Dec"$"-----------------1913,2:1785,2:1145,761"(17):(4);"PR#0":N"@ DISPLAY PLANETS V"J:r"T12);"Planets Display""^12);"---------------""cPP8150"h5:"Display the planets using which file?""r:"> PLANETS.DATA";"|1:"> ";P$#P$""CNJQ20:: !4);CN$(J):=! 7:25:"Arrows to move"\!9:25:"RETURN to choose"z!11:25:"ESCAPE to exit"!(!X PRINT THE SCREEN!b(4);"PR#1"!lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:7030!q"vW(Q);" Degrees."@ 20:"Hit any key to view constellation ":{ "Hit ESC to exit ";:A$::A$(27)QQS:6350:6120 R0CR(Q):D0CD(Q):WICW(Q):1080  SHOW 15 CONSTELLATIONS  Q IS 'FIRST' CONSTELLATION 7:958 JQQ14!J:SS1:S16120*VS14:QQ15:Q1Q1:`6350:6120DjQQSgtQCNQCN14:S14:6350:6120w~7:1:9588:CN$(Q);" IS CENTERED ON":" R.A ";CR(Q);" Hours"" Dec ";CD(Q);" Degrees" 13:"with a field width of ";C8:"Choose a constellation.."+Q1:63508S0:CF1L7S:1:"-->";\A$:T(A$)kT216190yT86220T136250T27290$"";:6130.1:" ":SS1:S1561208S0:QQ15:QCNQCN14B6350:6120L1:" ",40p CONSTELLATION SECTION'z:1CN88L13);"Constellations"g13);"--------------"tCF6090CN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I):4:1:9520,50! TELESCOPIUM,19,-50,40: TRIANGULUM,2,30,30^ TRIANGULUM AUSTRALE,16,-65,40t TUCANA,0,-65,40 URSA MAJOR,11.5,50,40 URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40 VULPECA,20,25ETICULUM,3.75,-60,30.D SAGITTA,19.75,20,30LN SAGITTARIUS,18.5,-30,40eX SCORPIUS,17,-35,50b SCULPTOR,0.5,-30,45l SCUTUM,18.75,-10,30v SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAURUS,4.5,17,0,45 ORION,5.5,0,401 PAVO,20,-65,40J PEGASUS,23.5,25,60c PERSEUS,3.5,-50,40z PHOENIX,1,-45,35 PICTOR,6,-55,30 PISCES,0.5,15,60 PISCES AUSTRINUS,22.5,-30,40& PUPPIS,7.75,-30,500 PYXIS,9,-30,40: R,30h LIBRA,15.25,-15,302r LUPUS,15,-40,40E| LYNX,8,50,50\ LYRA,18.75,35,30s MENSA,5.5,-75,40 MICROSCOPIUM,21,-35,40 MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 OPHIUCHUS,G2GX:A2AD:XMMX:RHA1:DHG1:2632:R1LRDT:S1LSDT:RHA2:DHG2:2632:R2LRDT:S2LSDT:TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2):GD(G1G2)2:X(OIPJ)(GDPJ):UIC(X)w X.0145835939(UIPJ):YS(X):DT240Y(GDPJ):DTDT3600:TRTXEC278.83354:LDP(L):B0:2510:RZAD:DZGX:PL(0)RZ:PK(0)DZ: 2660:VXMXEC:FX(1.016718(VXPJ)).999720508:RX1FX:THFX.533128:HXTH:1723:HX(HX):AHHX:AMFX:SASX:D(0)RX:T(0)TH60:T 2700:L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:(OIPJ)(DHPJ):UIC(UI):X.566667:Y0.00989004(UIPJ):YS(Y):DT240Y(DHPJ):DTDT3600:LSLSDT:LRLRDT:{d i 1020:2670:1045n N8JD2444238.5:A 2660:NX.985647332N8:NXDP(NX):MXNX3.76286:MXDP(MX):EC1.9157416(MXPJ):LNS(GX):Y(LPJ).91746406(BPJ).397818676:X(LPJ)D 2550:j AD(YX):ADADPJ:X0ADAD180~ AD0ADAD360 ADAD15:RZAD:DZGX::RHRZ:DHDZuH LH(OIPJ)(DHPJ):LHC(LH):LHLH15:LR24RHLH:LSRHLH:LSHP(LS):LRHP(LR):UIAA24AA24AAAA24HXHXAA:HXHP(HX):HXHX.99727::HXHH:MXYP:SXSS:1560:LQLN15:HXHXLQ:HXHP(HX):1723::HXHH:MXYP:SXSS:1560  LXLN15:HXHXLX:HXHP(HX)::LOL:BOS8 GX(BPJ).91746406(BPJ).397818676(LPJ):GXXNX.0657098:NXNXB1:HXXH:MXXM:SXXS:1560:HXHX1.002738:HXHXNX:HXHP(HX):1723:opYXYY:MXMM:DXDDXXDX:XMMX:XYYX:MX1:DX0:1070:XJJD:DXXX:MXXM:YXXY:1070:NDJDXJ::2160:1500AAND.0657098:B10İ2033AAAAB1:AA0AAYP:XSSS:2040:2087XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZ:XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZ:SXJD2415020:TXSX36525:RR6.6460656(2400.051262TX)(.00002581TXTX):UXRR(24(YX1900)):B124UX:Y'XJJD:DXXX:MXXY:1070:NXJDXJ:NSX:MXMX60:HXHXMX:CHHX::HXCHS3(HX):HX(HX):HH(HX)S3:FX(HX(HX))60:SX((FX(FX))60):FX(FX):HXHXS3:YPFX:SSSX::HXCH:1500:HXHXZC:HXHP(HX):1723::HXHH:MXYP:SXSS:1560:HXHXZC:HXHP(X):1723::YXYY:MXMM:DXDD:XHHH:XM((JD1.5)7):DXAX(AX):DX(DX7):DX(DX).5DXDX1DX(DX):DX$(0)"Sunday ":DX$(1)"Monday ":DX$(2)"Tuesday ":DX$(3)"Wednesday":DX$(4)"Thursday ":DX$(5)"Friday ":DX$(6)"Saturday ":DD$DX$(DX):HXHH:MXYP:SXSS#SXSX60:MXMX5:& AX((IX1867216.25)36524.25) BXIX1AX(AX4):CXBX1524:DX((CX122.1)365.25):EX(365.25DX):GX((CXEX)(30.6001)):DDCXEXFX(30.6001GX):GX13.5MMGX1:1350 <MMGX13 FMM2.5YYDX4715:1390 PYYDX4716 n7xAX DDDD1:DDMLMMMM1:DD17 MM12MM1:YYYY1V (Y4YY)(M4MM)(D4DD)Ā` 1003v YXYY:MXMM:DXDD YZYX:MZMX .MX2YXYX1:MXMX12 BAX(YX100):BX2AX(AX4):CX(365.25YX):XD(30.6001(MX1)):JDBXCXXDDX1720994.9 l" N" m. 1020:1400:10040:9990P (MM8)(MM2(MM2))ML31q (MM7)(MM2(MM2))ML31 (MM7)(MM2)(MM2(MM2))ML30 (MM7)(MM2(MM2))ML30 (YY4(YY4))(MM2)ML28 (YY4(YY4))(MM2)ML29 ":PN$(8)"Pluto ":"Input the YEAR,MONTH,DAY ";:YY,MM,DD:"Input LATITUDE,LONGITUDE ";:OI,LN:ZC((LN15)):"Stop at YY,MM,DD ";:Y4,M4,D4::"Longitude ";:(LN);:LN0ĺ" E":106 i" W" j"Zone ";ZC:"Latitude ";:(OI);:OI0ĺ" S":10" APPLE VERSION MARCH 1986"::" BY BRYAN BURGESS":::::PN$(0)"Sun ":PN$(1)"Mercury ":PN$(2)"Venus ":PN$(3)"Mars ":PN$(4)"Jupiter ":PN$(5)"Saturn ":PN$(6)"Uranus " dPN$(7)"Neptune1"37800:(4);"PR#3":PI3.1415927:PJ180PI:10,76:11,188:12,148:S(X)(X(XX1))PJ:C(X)((X(XX1))PI2)PJ:DP(X)(360X)(((360X)360)360):HP(X)(24X)(((24X)24)24):" ASTRO-CALC MK IV":                 !!! ! ((LLL)PJ))))PJO&DRRRLD(((RR((LLL)PJ))(RRR((LLL)PJ))))PJ&NLDP(L):B(((R(UIPJ)((LDL)PJ))(RR((LLL)PJ))))PJ:LLD:2510&&2700:2800:2900:2900:3000:''DD$;" ";DD;"/";MM;"/";YY;:9980:RCRZ:DCDZ::3550:10040:ADAD15OO:ADDP(AD):LAD:RR(UIPJ):2665:NE360365.2422ND1.00004:NEDP(NE):MENE3.762863:LLNE(2PJ)0.016718(MEPJ)98.83354:LLDP(LL):VELL102.596403&+EW0.016718:RR(1EWEW)(1EW(VEPJ)):RRRLD180LL(((R((LLL)PJ))(RRR1020:NJD:YXPE:MX1:DX0:1045:NNJD:NN365.25:M(360N)TP:MDP(M):MMPI180:CNEW:3900:V((1EW)(1EW)).5(E2):V2(V):VVPJ:LVWW:R(AU(1EWEW))(1EW(VPJ))%X((LOO)PJ)(IPJ):UIS(X):Y((LOO)PJ)(IPJ):X((LOO)PJ):255 1956.82,86.4,250.4,27.89,9.173,0.919,28.9: 1956.46,150,85.4,69.47,16.843,0.93,44.6:1954.39,94.2,255.2,70.98,17.2,0.955,74.2 : 1986.112,170.011,58.154,76.0081,17.9435,0.9673,162.2384::T18$mA,A,A,A,A,A,A,A,A::T115:PE,WW,OO,TP,AU,EW,I::0.77,18.2,188.4,7.47,3.821,0.351,10.2: 1958.44,150,155.1,7.88,3.958,0.144,4: 1960.29,138.1,86.2,8.18,4.054,.705,12: 1969.83,102.9,62.8,8.55,4.182,0.577,13.4: 1974.12,334.1,319.6,15.03,6.087,0.105,9.7# 1966.94,334.0,347.2,17.93,6.858,0.775,15.0 :D(1CN(E)):EEDE:3920!n: 1974.32,160.1,334.2,3.3,2.209,.847,12: 1972.87,310.2,119.3,5.26,3.024,.549,12.5: 1978.77,12.016,131.7,5.37,3.066,.64152,5.805: 1974.7,123.3,126.0,6.51,3.489,0.386,3.7: 1974.36,67.8,75.1,6.76,3.576,0.632,30.2" 197((SLLL)PJ):P(PS):RP.1386:TT0P:D(QP)P:L(QP)R:T(QP)T::3100} F(QP)LSL:F(QP).5(1(F(QP)PJ))::3700:3780 M((SRP)(CA(F(QP)))):MM(10):MM5:MM26.7:M(QP)M: <ES1E6:EM PDECN(E)M:(D)ES3950!d(D)ESDEXYZ:MXMZ:WWND:HXTR:2220:TRHX:NDWW:HXTS:2220:TSHX:TRTRZC:TRHP(TR):TSTSZC:TSHP(TS):HXTR:1723:IH(QP)(HX):IM(QP)FX:IS(QP)SX:HXTS:1723(HI(QP)(HX):MI(QP)FX:CI(QP)SX:3720:3780:3810::10045t3100G PSR3R3SRSR2R3SRX: L(RR((ADLL)PJ))(RDRR((ADLL)PJ)):L(L):LLPJ:LLAD:LDP(L):B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJ:2510:PL(QP)AD:PK(QP)GX: 2660:2185:QP18:3260:RHAD:DHGX:2632:HXLR:2440:TRHX:HXLS:2440:TSHX:YQ)PJ):2545:ADAD15:ADADQ:RDSR(UIPJ):QP23500 AA(RD((LLAD)PJ))(RRRD((LLAD)PJ)):AA(AA):AAAAPJ:L180LLAA L0LL360:3482 LDP(L):B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJ:2510:PL(QP)AD:PK(QP)G0.985607908N8:NEDP(NE):MENE3.76286306:LLNE1.9157416(MEPJ)98.83354f6 LL0LLLL360:33828 LL360LLLL360:33847> VELL102.596403:RR.999720508(1.016718(VEPJ)):R3RR:X((SLQ)PJ)(IPJ):UIS(X):Y((SLQ)PJ)(IPJ):X((SL957,1.771602,131.560649,62.2,7.597E-5: 250.9,209.439,222.972,.25387,39.78459,17.137,109.941,8.2,4.073E-6L TP,EE,UU,E,A,I,Q,T0,CA:NP0.9856473N8TP:NPDP(NP):MPNPEEUU:SLNP(2PJ)E(MPPJ)EE:SLDP(SL):VPSLUU:SR(A(1EE))(1E(VPPJ)):NE0256,1.304182,100.252017,196.74,1.994E-4: 29.45771,165.322242,92.665397,.055616,9.554747,2.489374,113.488834,165.6,1.74E-4: 84.01247,228.0708551,172.736328,.046323,19.21814,.772989,73.876864,65.8,7.597E-5iX 164.79558,260.3579,47.8672148,.009002,30.10,.3870986,7.0043579,48.0941733,6.74,1.918E-6: .61621,355.73352,131.289579,.0067826,.7233316,3.394435,76.4997524,16.92,1.721E-5: 1.88089,126.30783,333.6908166,.0933865,1.5236883,1.849801,49.4032,9.36,4.539E-6: 11.86224,146.96636,14.009549,.048466,5.2:MI(0)VM: X(OIPJ)(GDPJ):LHC(X):X(0.3090169(OIPJ)(GDPJ))((OIPJ)(GDPJ)):HDC(X):T(HDLH)15:TT.9973:WRTRT:SWTST:HXWR:1723:WH(HX):WMFX:WSSX:HXSW:1723:HU(HX):MUFX:SUSX: .24085,231.2973,77.1442128,.2056306RDT:TSTSDT:TRHP(TR):TSHP(TS):HXTR:2432:TRHX:HXTS:2432:TSHX:MXMZ:2185:HXTR:2220:TRHX:HXTS:2220:TSHX:TRTRZC:TRHP(TR):TSTSZC:TSHP(TS):HXTR:1723:UH(HX)  UMFX:USSX:HXTS:1723:VH(HX):VMFX:VSSX:IH(0)UH:IM(0)UM:HI(0)VH%Ld`*Ld`/Ld`4Ld`9Ld`>L `@Ld`ELd`JLd`OLd`TLd`YL `[Ld``Ld`eLd`jLd`oL `qLd`vLd`{Ld`L `Ld`L `Ld`L `Ld`L g&Ldg+Ldg0Ldg5Ld_L _Ld_L _Ld_Ld_L _Ld_Ld_L _L _Ld`Ld`Ld` Ld`L `Ld`Ld`L ` Ld`fLdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLdgLdgLdg LdgLdgLdgLdg!LdfcLdfhLdfmLdfrLdfwLdf|LdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLdfLd `@Pd K333L̈́p`(X X@Tp~04@ @ RW@R~L fWL fYLdf^Ld aLd8  hX8  >j 8  ujX8  2lX8  m 8n&L 8  (n 8n>L 8  @nX8nL 8nL 8  n 8  o 8o"L  awL ayLda~L aL aLdaL aL aL aL aL aLdaLdaL aLdaL aL aL aL aL aL aL aL aL aL aL aLdaL aLLdaLda LdaLdaLdaLda L a"Lda'Lda,Lda1Lda6Lda;L a=LdaBLdaGLdaLLdaQL aSLdaXLda]LdabLdagL aiLdanL apLdauLhrLdhwLdh|Ld`L `L `Ld`Ld`L `Ld`Ld`L `Ld`Ld`L `L `Ld`Ld`Ld`Ld`L `Ld`LdaL ahLdhLdhLdhLdh"Ldh'Ldh,Ldh1Ldh6Ldh;Ldh@LdhELdhJLdhOLdhTLdhYLdh^LdhcLdhhLdhmLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdgLdhLdh LdPd K333L̈́p`(X X@Tp~0H4@( @ L RW@Ryy}L gL gLdgLdgLd$:12050*2ZY$" "ZY$0*2ZY$;" ";:Z1(0):P$:12050L*2ZY$" "ZY$d*2ZY$;" ";:Z1(0):(0):PY$" "ZY$*2ZY$;" ";:Z1(0):S13000::::Z1(0):9980:1004%)'O).ZY$(((Z1))):(ZY$)1ZY$"0"ZY$l).Z10ZY$"-"ZY$:12050|)/ZY$" "ZY$)/ZY$;:Z1(0):)2Z10ZY$" 00.00":13050)2ZY$(((100Z1))100))2(ZY$)5ZY$"0"ZY$:13020*2Z10ZY$"-"ZYIH(QP):12000:Z1IM(QP):12000:" !";:Z1HI(QP):12000)e'Z1MI(QP):12000:" ! ";:HXPL(QP):1723:Z1HH:12000:" ";:Z1FX:12000:" ! ";:HXPK(QP):1723:Z1HH:12000:" ";:Z1FX:12000:" ! ";:Z1F(QP):13000:Z1D(QP):13000:Z1T(QP):13000:Z1M(QP):B'8'YXYY:MXMM:DXDD:2185:NJND:YXYY:MXMM:DXDD:2670:NRN8:7(='" Twilight begins ";WH;"H ";WM;" Twilight ends ";HU;"H ";MU:"----------RISE----SET-------RA--------DEC-------PHASE---AU----SIZE---MAG-":P(0)1:M(0)26.8:QP08:PN$(QP);:Z105,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129:813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: 822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128:831,192:832,96: 7777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192:786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205:795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:E804,0:8RAM768,141: ADDR $300)769,1286$770,192U.771,141:772,128:773,195q8774,76:775,3:776,224B(4);"EXEC FP"L(16255)L(16255)768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:N(A);":";::" ";::PG$(A):$w241xA5220>yA6240J}D$(4)[D$;CD$(A):i1000:10s1998{45L(16255)L(16255): WRITE ENABLE SOFT EMULATOR(4);"BLOAD FPBASIC,A$D000"L(16254): WRITE PROTECT >      'LRET FOR LOOP ONLY:         ~ 1 L8123456789ABCDEFGHI 'LMRET FOR MULT: >        ~    1 LDONE }  LcIiT'Ld"  G 6 L  $    A $ T  A $ T 1 Lc @@M@2LdLdLdLdL LdLdL LdLd0XW:AAXG:BBC/ K0YW:BBYG:X0:Y0:Q0; 7:J,KU N1IL:XXXX:YYYYp XXYY4QN:NIL:210 Y2XYB:XXXYYA Q7QQ7:220 Q:J,K :(49152)128WWWW:49229WW,0:49168,0 II MANDELBROT 8 !INTEGER N,J,K,IL,QUZIL50:BL4:XW279:YW159]d:xn15);"MANDELBROT"::x"Enter side: ";SIDE"Enter a&b corner: ";AC,BC:21:"MANDELBROT- "SIDE" "AC" "BCXGSIDEXW:YGSIDEYW:AAC J" "    C % $    ~ (  % y O $    ~ R  O - j -  $  `     ?  ^  ~ m g    4  1 Q L^   ^ Ly H g  L  7  " j 1  ] L `  L~      1lL 8  l 8lL 8  lX8mL 8mL 8  m 8  m 8mL `L `Ld`L `L `L `L `Ld`Ld`L `Ld`L `L `L `L `L `L `L `L `Ld`L `Ld8  :gX8  h 8  .iX8  jX8  l 8@W& Lm???Vflm 2e  e TaL0@ STARCAT1.OBJ #@ /f ;e $a ^c zb d wb b d D .c $ ` d D qe $Yf Lv@ K d a d a Uc b yc a c yc a c ^c zb d wb b =c `a =c )b c a =c "c yc b 1c fL@No @ o Fc fL@Yes @ o Fc 9fLAV"                   !!!!!" "