�>Telescope
9� Copyright Mike Cook Musbury Consultants 0706 216701
"� Telescope position indicator
(/� Computer guided telescope Acorn Computing
2*ALPHABET GREEK
<VMAX%=6
F� CODE% &100,DisM$(VMAX%)
P'� SCF$(30),SC$(30),SRA(30),SDEC(30)
Z-� X(2,2),Y(2,2),T(2,2),M(2,2),TC(2),EQ(2)
d8� RA(2),DEC(2),PAZ(2),PAL(2),TIM(2),SN$(2),Mes$(111)
nBK=1.002738/24000 :� Converts solar time (sec) to siderial time
x�
�
�_INIT
�	�_RSS
��"Recieving data"
�� Set to 19200 Baud RX
�ș "OS_SerialOp",5,8
�ș "OS_SerialOp",6,8
�0� Set up word format 8 data no parity 1 stop
�ș "OS_SerialOp",1,0
�%� Enable both keyboard and serial
�AL%=0:TICK%=�:MESFIND%=�
�
Bright%=4
��_DIM(Bright%-1)
�ș "OS_Byte",2,2

	LB%=0

<RAT=6846 :� Number of pulses in 1 Rev of Right Accention

8DET=11520:� Number of pulses in 1 Rev of declination

"�_SEND("MikeCook")

,
�_INST

6SS1%=1:SS2%=2

@� CALL LOOK

J� PROC_KSEL(1)

T� PROC_CAL(1)

^�_MREAD

h�_IDENT

rUtime=�+6000

|

��

�  S%=�(-2)

�  � S%>250 � �"FULL":�7

�  � �(-82) �_KSEL(1)

�  � �(-83) � �_CAL(1)

�  � �(-102) � �_GMN

�  � �(-101) � �_BRI

�!  � �(-56) � � �0,16) !DE,!RA

�'  � �(-36) � TICK%=�(TICK%):Timer=�

�
� LOOK

�A� LB%<>!LT � Utime<� � LB%=!LT:�_Fangle(!RA,!DE):Utime=�+6000

�G� !NC>0 � !NC=0:�_ScopeMenu:�_Fangle(!RA,!DE):�_BOUNCE:Utime=�+6000

�
� TICK% �
*� Timer+500<� � Timer=Timer+500:�_BLIP
�
� �
&�
0
:� �_INST
D�
N%�"Telescope Monitor By Mike Cook"
X�:�
b*�"S - To Select two calibration Stars"
l�"C - To Calibrate"
v�"M - Find Messier object"
��"B - To alter Brightness"
��"P - To Print raw angles"
��"T - For 5 second Ticks"
�'�0,10)"    Equatorial Coordinates"
�-�0,11)"Right ascension      Declination"
��
�
�� �_CAL(N%)
�� A%,B$,S%,BO%,S$
�%�0,15)"Calibrate Telescope";�(8)
��_SEND("Star1   ")
��_BOUNCE
�B$=�(0)
�

� LOOK
� !NC<>0 � B$=�(13)
 � B$=�(13)
*0!RA=0:!DE=0 :� reset internal angles to zero
4!RA=(SRA(SS1%)/360)*RAT
>!DE=(SDEC(SS1%)/360)*DET
HTref1%=�
R
\�_SEND("Star2   ")
f�_BLIP:�_BOUNCE
pB$=�(0)
z�
�
� LOOK
�� !NC<>0 � B$=�(13)
�� B$=�(13)
��_Fangle1(!RA,!DE)
�)RfDa=Da:RfRa=Ra :� GET REFRANCE ANGLE
�Tref2%=�
��_SEND("OK      ")
��_CLROV
�
�_BLIP
�� WORK OUT TRANSFORM MATRIX
�
�_Tmat
��_BOUNCE
��

� �_KSEL(N%)
� A%,B$,S%,BO%,S$
$'�0,15)"Select 2 calibration stars"
.(�"+ or - to change Return to choose"
8A%=1
B�
L	BO%=�
VS$="S1 "
`� S%=18 � 20 � 2
j�
t� A%<1 � A%=MXSD%
~� A%>MXSD% � A%=1
�&�2,S%)SC$(A%);"  ";SCF$(A%);�(20)
��0,S%);
�� N%=1 �
�B$=�
�� B$="+" � B$="=" � A%+=1
�� B$="-" � B$="_" � A%-=1
��
�
��_SEND(S$+SC$(A%)+" ")
�� BO% � BO%=�:�_BOUNCE
�A%=�_Sadvance(MXSD%,A%)
�.� !NC<>0 � B$=�(13):�_BLIP:BO%=� � B$=�(0)
�


� B$=�(13)
4� S%=18 � SS1%=A%:�:�"Select another": � SS2%=A%
(	A%+=1
2S$="S2 "
<�
FL� SS1%=SS2% � �"   The two stars must be diffrent":�0,18);�(35):�;�(35)
P� SS1%<>SS2%
Z�_BL
d�
n
x
� �_BL
�� A%
��
�� A%=15 � 23
��0,A%);�(39)
��
��
�
�� �_ScopeMenu
�� V%
�V%=1
�#�0,15)"Selection at Telescope"
��_SEND(DisM$(V%))
��0,17)DisM$(V%)

�_BLIP
�_BOUNCE
:� MESFIND% � MESFIND%=�:Utime=�:�0,17);�(30):�(48):�
"�
, V%=�_Sadvance(VMAX%,V%)
6 �_SEND(DisM$(V%))
@ �0,17)DisM$(V%)
J�!NC<>0
T	!NC=0
^Ȏ V% �
h� 2: �_BLIP:�_KSEL(0)
r� 3: �_CAL(0)
|� 4: �_Adim
�� 5: �_FindM
�� 6: �_T(V%)
��
�
�_BLIP
��_BL
��
�
�
� �_T(V%)
�
� TICK% �
�TICK%=�
�DisM$(V%)="Tick On "
��
�TICK%=�
DisM$(V%)="Tick Off"
�=0
�
&�
0
:� �_GMN
D� D$
N*FX21,0
XD$=�
b�
l"�0,17)"Find a Messier object"
v�" Input M number ",Mobj%
��_BL
�@� Mobj%<1 � Mobj%>110 � �0,18)"M numbers between 1 and 110"
�� Mobj%>1 � Mobj%<111
��_IDM(Mobj%)
��
�
�� �_IDM(Mobj%)
�D$=�Mes$(Mobj%),41)
�
�0,18)D$
�>MRA=�(�Mes$(Mobj%),42,2))*15+15*(�(�Mes$(Mobj%),44,5))/60)
�MDE=�(�Mes$(Mobj%),49,2))
�Mde=�(�Mes$(Mobj%),51,2))
�-� MDE>0 � MDE=MDE+Mde/60 � MDE=MDE-Mde/60
MESFIND%=�
�

 
� �_FindM
*
� Mb%,Ml%
4Mb%=1:Ml%=1
>!�_SEND("Mess"+�(Mb%-1)+"   ")
H!�0,17)"Mess "+�(Mb%-1)+"   "
R
�_BLIP
\�_BOUNCE
f�
pMb%=�_Sadvance(12,Mb%)
z!�_SEND("Mess"+�(Mb%-1)+"   ")
�!�0,17)"Mess "+�(Mb%-1)+"   "
�� !NC<>0
�
Mb%-=1
�
�_BLIP
�&�_SEND("Mess"+�(Mb%)+�(Ml%-1)+" ")
�(�0,17)"Mess ";�(Mb%);�(Mb%-1)+"   "
��_BOUNCE
��
�Ml%=�_Sadvance(10,Ml%)
�&�_SEND("Mess"+�(Mb%)+�(Ml%-1)+" ")
�(�0,17)"Mess ";�(Mb%);�(Ml%-1)+"   "
�� !NC<>0
�
Ml%-=1
	�_IDM(Mb%*10+Ml%)
	�
	
	$� �_Adim
	.#�_SEND("Dim "+�(Bright%)+"   ")
	8"�0,17)"Dim ";�(Bright%);"   "
	B
�_BLIP
	L�_BOUNCE
	V�
	`!Bright%=�_Sadvance(8,Bright%)
	j#�_SEND("Dim "+�(Bright%)+"   ")
	t"�0,17)"Dim ";�(Bright%);"   "
	~�_DIM(Bright%-1)
	�� !NC<>0
	��
	�
	�%� Take care of any contact bounce
	�� �_BOUNCE
	�� T%
	�T%=�
	��
	�	!NC=0
	�
� LOOK
	�� !NC<>0 � T%=�
	�� !NC=0 � � > T%+100
�


� �_Sadvance(Vm%,V%)
� DD%,DR%,VR%
(
VR%=V%
2DR%=!DE
<�
F
� LOOK
PDD%=DR%-!DE
Z� �(DD%) >1 �
d � DD%<0 � V%-=1 � V%+=1
n � V%>Vm% � V%=1
x � V%<1 � V%=Vm%
� �_BLIP
��
�� V%<>VR% � !NC<>0
�=V%
�
�� �_BRI
�� B%
�*FX21,0
�D$=�
�'�0,16)" Brightness Value 1 to 8 ";
�� B%
�B%=(B%-1) � 7
�
�_DIM(B%)
�0,16)�(30)
Bright%=B%
�
"
,� Clear Overflow LED
6
� �_CLROV
@� B%
JB%=&90 � AL%
Tș "OS_SerialOp",3,B%
^ ș "OS_SerialOp",3,AL% � &80
h�
r
|� Make Sound
�� �_BLIP
�� A%,B%
�B%=&80 � AL%
�� A%=1 � 10
�B%=B% � &40
�ș "OS_SerialOp",3,B%
��
��
�
�$� Convert Axis Count into angles
�� �_Fangle1(R,D)
�Ra=(R/RAT)*360
�Da=(D/DET)*360
ȕ Ra<0

Ra=360+Ra
�
&
ȕ Ra>360
0
Ra=Ra-360
:�
D
N*� Da<0 � AL%=AL% � &20 � AL%=AL% � &DF
Xȕ Da<-90 � Da>90
b
ȕ Da<-90
l
Da=Da+180
v�
�ȕ Da>90
�
Da=180-Da
��
��
��
�
�� �_Fangle(R,D)
��_Fangle1(R,D)
��_GetScope(Ra,Da)
�'� MESFIND% � Ra=�(Ra-MRA):Da=Da-MDE
��_Dangle(Ra/15,Da)
��
�

� Display Angle

� �_Dangle(RA,DE)

� M%,R%,D%,TA,D$,M$,H$,m$,M

 	R%=RA

*M=(�(60*(RA-R%)*10))/10

4M%=60*(RA-R%)

>H$=�(R%)

H� �(H$)=1 � H$=" "+H$

RM$=�(M%)

\� �(M$)=1 � M$=" "+M$

f

p� DE<0 � S$="-" � S$="+"

zTA=�(DE)

�	R%=TA

�M%=60*(TA-R%)

�D$=�(R%)

�� �(D$)=1 � D$=" "+D$

�m$=�(M%)

�� �(m$)=1 � m$=" "+m$

��_SEND(H$+M$+D$+m$)

��4,12)H$"_";M;�(4)

��24,12)S$;D$;"_";m$

�

��

�

�� �_INIT
� A%=0 � 3 � 2
P%=CODE%
[
$
OPT A%
./.RA EQUD 0 \ Space for RA telescope reading
88.DE EQUD 0 \ Space for Declination telescope reading
B4.LT EQUD 0 \ Store for last recieved serial byte
LK.NC EQUD 0 \ Store for No Change flag <> 0 if last byte same as current
V.LOOK \ LOOK AT SERIAL PORT
`*STMFD (13)!,{14} \ Save return address
jLDR R8,NC \ No change flag
t'LDR R3,LT \ Get last recieved value
~ LDR R6,DE \ Get DEC position
�LDR R7,RA \ Get RA position
�1MOV R0,#4 \ Extract a byte from serial buffer
�
�
.Again
�?SWI "OS_SerialOp" \ Put it in R1 or Set Carry flag if empty
�BCS exit
�
�,\ Test to see if no change (push button)
�
CMP R1,R3
�.ADDEQ R8,R8,#1 \ Increment R8 if no change
�'MOVNE R8,#0    \ Clear R8 if change
�
\ First do DEC

%MOV R2,R1     \ Make a copy in R2
'� R2,R2,#&F \ Leave only DEC Number
*MOV R4,R3     \ Make copy of last byte
('� R4,R4,#&F \ Leave only DEC number
2-SUB R5,R2,R4  \ Differance from last time
<
CMP R5,#7
FSUBGT R5,R5,#16
PCMN   R5,#7
ZADDLT R5,R5,#16
d'ADD R6,R6,R5    \ Add it into total
n
x\ Next do RA
�'MOV R2,R1,LSR#4 \ Make a copy in R2
�(� R2,R2,#&F   \ Leave only RA Number
�,MOV R4,R3,LSR#4 \ Make copy of last byte
�(� R4,R4,#&F   \ Leave only RA number
�/SUB R5,R2,R4    \ Differance from last time
�
CMP R5,#7
�SUBGT R5,R5,#16
�
CMN R5,#7
�ADDLT R5,R5,#16
�'ADD R7,R7,R5    \ Add it into total
�
�+MOV R3,R1 \ Save new last recieved byte
�
BAL Again
	.exit
STR R3,LT \Save values

STR R6,DE
"
STR R7,RA
,
STR R8,NC
6$LDMFD (13)!,{15} \ Back to BASIC
@]
J�
T
� �tPP
^� A%=1 � VMAX%
h� DisM$(A%)
r�
|�
�
�� "Back    "
�<� "Sel Cal ","Cal Unit","Dim Disp","FindMess","Tick On "
�
�� �_SEND(M$)
�� A%,T%,C%
�� A%=0 � 7
�T%=(A% � &80) � AL%
�ș "OS_SerialOp",3,T%
�C%=�(�M$,A%+1,1))
�ș "OS_SerialOp",3,C%
��
��

� �_DIM(B%)
B%=((B% � 7) � 7)*8
& ș "OS_SerialOp",3,&88 � AL%
0ș "OS_SerialOp",3,B%
: ș "OS_SerialOp",3,&8C � AL%
Dș "OS_SerialOp",3,B%
N�
X
b� �_Tmat
l� Standard position
vD=�(SDEC(SS1%))
�R=�(SRA(SS1%)-K*Tref1%)
�Y(0,0)=�(D)*�(R)
�Y(1,0)=�(D)*�(R)
�Y(2,0)=�(D)
�
�D=�(SDEC(SS2%))
�R=�(SRA(SS2%)-K*Tref2%)
�Y(0,1)=�(D)*�(R)
�Y(1,1)=�(D)*�(R)
�Y(2,1)=�(D)
�
�� Observed position
�D=�(SDEC(SS1%))
R=�(SRA(SS1%))
X(0,0)=�(D)*�(R)
X(1,0)=�(D)*�(R)
 X(2,0)=�(D)
*
4
D=�(RfDa)
>
R=�(RfRa)
HX(0,1)=�(D)*�(R)
RX(1,1)=�(D)*�(R)
\X(2,1)=�(D)
f
p2� Work out the Vector product for third coloum
z&X(0,2)=X(1,0)*X(2,1)-X(2,0)*X(1,1)
�&X(1,2)=X(2,0)*X(0,1)-X(0,0)*X(2,1)
�&X(2,2)=X(0,0)*X(1,1)-X(1,0)*X(0,1)
�$TM=�(X(0,2)^2+X(1,2)^2+X(2,2)^2)
�� TM=0 � TM=1
�� A%=0 � 2
�X(A%,2)=X(A%,2)/TM
��
�
�&Y(0,2)=Y(1,0)*Y(2,1)-Y(2,0)*Y(1,1)
�&Y(1,2)=Y(2,0)*Y(0,1)-Y(0,0)*Y(2,1)
�&Y(2,2)=Y(0,0)*Y(1,1)-Y(1,0)*Y(0,1)
�$TM=�(Y(0,2)^2+Y(1,2)^2+Y(2,2)^2)
�� TM=0 � TM=1
� A%=0 � 2
Y(A%,2)=Y(A%,2)/TM
�
$
.
�_MatInvY
8T()=X().Y()
BY()=T():�_MatInvY:T()=Y()
L� PROC_DISP
V�
`
j� �_GetScope(SY,SX)
t� H,C,F
~TrefM%=�
�SX=�(SX)
�SY=�(SY)
�
�TC(0)=�(SX)*�(SY)
�TC(1)=�(SX)*�(SY)
�TC(2)=�(SX)
�EQ()=T().TC()
�
� C=�(EQ(0)*EQ(0)+EQ(1)*EQ(1))
�� C=0 � EQ(2)>0 � H=90
�� C=0 � EQ(2)<0 � H=-90
�� C<>0 � H=�(�(EQ(2)/C))
� C=0 � F=1000

%� C<>0 � EQ(0)=0 � EQ(1)>0 � F=90
&� C<>0 � EQ(0)=0 � EQ(1)<0 � F=270
#� EQ(0)>0 � F=�(�(EQ(1)/EQ(0)))
('� EQ(0)<0 � F=�(�(EQ(1)/EQ(0)))+180
2F=F+K*TrefM%
<F=F-�(F/360)*360
F
Ra=F:Da=H
P� PRINT"DEC ";H;"  RA  ";F
Z�
d
n� �_DISP
x� A%=0 � 2
�� B%=0 � 2
��T(A%,B%);" | ";
��
��
��
��:�
��
�
�� �_MatInvY
�� Find the determinate
�D=Y(0,0)*Y(1,1)*Y(2,2)
�D=D-Y(0,0)*Y(1,2)*Y(2,1)
�D=D+Y(0,1)*Y(1,2)*Y(2,0)
D=D-Y(0,1)*Y(1,0)*Y(2,2)
D=D+Y(0,2)*Y(1,0)*Y(2,1)
D=D-Y(0,2)*Y(1,1)*Y(2,0)
"
,2� Find the cofactors and transpose to give adj
6&M(0,0)=Y(1,1)*Y(2,2)-Y(2,1)*Y(1,2)
@'M(0,1)=-Y(0,1)*Y(2,2)+Y(2,1)*Y(0,2)
J&M(0,2)=Y(0,1)*Y(1,2)-Y(1,1)*Y(0,2)
T
^'M(1,0)=-Y(1,0)*Y(2,2)+Y(2,0)*Y(1,2)
h&M(1,1)=Y(0,0)*Y(2,2)-Y(2,0)*Y(0,2)
r'M(1,2)=-Y(0,0)*Y(1,2)+Y(1,0)*Y(0,2)
|
�&M(2,0)=Y(1,0)*Y(2,1)-Y(2,0)*Y(1,1)
�'M(2,1)=-Y(0,0)*Y(2,1)+Y(2,0)*Y(0,1)
�&M(2,2)=Y(0,0)*Y(1,1)-Y(1,0)*Y(0,1)
�$� Find the inverse of matrix Y()
�6� D<>0 � Y()=M()/D � �"Inverse Matrix NOT defined"
��
�
�� �_MatInvX
�� Find the determinate
�D=X(0,0)*X(1,1)*X(2,2)
�D=D-X(0,0)*X(1,2)*X(2,1)
�D=D+X(0,1)*X(1,2)*X(2,0)
�D=D-X(0,1)*X(1,0)*X(2,2)
D=D+X(0,2)*X(1,0)*X(2,1)
D=D-X(0,2)*X(1,1)*X(2,0)

&2� Find the cofactors and transpose to give adj
0&M(0,0)=X(1,1)*X(2,2)-X(2,1)*X(1,2)
:'M(0,1)=-X(0,1)*X(2,2)+X(2,1)*X(0,2)
D&M(0,2)=X(0,1)*X(1,2)-X(1,1)*X(0,2)
N
X'M(1,0)=-X(1,0)*X(2,2)+X(2,0)*X(1,2)
b&M(1,1)=X(0,0)*X(2,2)-X(2,0)*X(0,2)
l'M(1,2)=-X(0,0)*X(1,2)+X(1,0)*X(0,2)
v
�&M(2,0)=X(1,0)*X(2,1)-X(2,0)*X(1,1)
�'M(2,1)=-X(0,0)*X(2,1)+X(2,0)*X(0,1)
�&M(2,2)=X(0,0)*X(1,1)-X(1,0)*X(0,1)
�$� Find the inverse of matrix X()
�6� D<>0 � X()=M()/D � �"Inverse Matrix NOT defined"
��
�
� �_TT
�M(0,0)=T(0,0)
�M(0,1)=T(1,0)
�M(0,2)=T(2,0)
�
�M(1,0)=T(0,1)
�M(1,1)=T(1,1)
M(1,2)=T(2,1)

M(2,0)=T(0,2)
 M(2,1)=T(1,2)
*M(2,2)=T(2,2)
4T()=M()
>�
H
R
� �_IDENT
\	T()=0
fT(0,0)=1
pT(1,1)=1
zT(2,2)=1
��
�
�� �_RSS
�� A%,L%,T$
�
� �TPX
�A%=0
��
�	A%+=1
�$� SC$(A%),L%,T$,SRA(A%),SDEC(A%)
�SCF$(A%)=�(L%)+" "+T$
�� SRA(A%)=0 � SDEC(A%)=0
�MXSD%=A%-1
��

+� "aUMI",&E1,"Ursa Minor",37.960,89.264
&� "aTAU",&E1,"Taurus",68.98,16.509
$&� "bORI",&E2,"Orion",78.634,-8.202
.'� "aAUR",&E1,"Auriga",79.172,45.998
8%� "aORI",&E1,"Orion",88.793,7.407
B.� "aCMA",&E1,"Canis Major",101.287,-16.716
L(� "aGEM",&E1,"Gemini",113.650,31.888
V,� "aCMI",&E1,"Canis Minor",114.825,5.225
`(� "bGEM",&E2,"Gemini",116.329,28.026
j%� "aLEO",&E1,"Leo",152.093,11.967
t(� "aVIR",&E1,"Vergo",201.298,-11.161
~(� "aBOO",&E1,"Bootes",213.915,19.183
�+� "aSC0",&E1,"Scorpius",247.352,-26.432
�&� "aLYR",&E1,"Lyra",279.234,38.784
�)� "aAQL",&E1,"Aquarius",297.695,8.868
�(� "aCYG",&E1,"Cygnus",310.358,45.280
�3� "aPSA",&E1,"Piscis Austrinus",344.413,-29.622
�� "",0,"",0,0
�
�
� �_MREAD
�
� �TTY
�� A%=1 � 110
�� Mes$(A%)
��
�


:� M1  1952Crab Nebula    Bright nebula  Tau0534.5+2201
:� M2  7089               Globular clustrAqr2133.5-0050
(:� M3  5272               Globular clustrCVn1342.2+2823
2:� M4  6121               Globular clustrSco1623.7-2631
<:� M5  5904               Globular clustrSer1518.6+0205
F:� M6  6405               Open cluster   Sco1740.0-3213
P:� M7  6475               Open cluster   Sco1753.9-3449
Z:� M8  6523Lagoon Nebula  Bright nebula  Sgr1803.2-2423
d:� M9  6333               Globular clustrOph1719.1-1831
n:� M10 6254               Globular clustrOph1657.1-0407
x:� M11 6705Wild Duck ClstrOpen cluster   Sct1851.1-0616
�:� M12 6218               Globular clustrOph1647.2-0157
�:� M13 6205               Globular clustrHer1641.7+3627
�:� M14 6402               Globular clustrOph1737.6-0317
�:� M15 7078               Globular clustrPeg2130.0+1210
�:� M16 6611               Open cluster   Ser1818.9-1347
�:� M17 6618Omega Nebula   Bright nebula  Sgr1820.8-1611
�:� M18 6613               Open cluster   Sgr1819.9-1708
�:� M19 6273               Globular clustrOph1702.6-2615
�:� M20 6514Trifid Nebula  Bright nebula  Sgr1801.9-2302
�:� M21 6531               Open cluster   Sgr1804.7-2230
�:� M22 6656               Globular clustrSgr1836.4-2355
�:� M23 6494               Open cluster   Sgr1757.0-1901
�:� M24 6603Star cloud     Open cluster   Sgr1818.4-1825
:� M25                    Open cluster   Sgr1831.7-1915
:� M26 6694               Open cluster   Sct1845.3-0924
:� M27 6853Dumbbell NebulaPlanetary neb  Vul1959.4+2244
":� M28 6626               Globular clustrSgr1824.5-2452
,:� M29 6913               Open cluster   Cyg2023.9+3832
6:� M30 7099               Globular clustrCap2140.3-2311
@:� M31  224Andromeda GalxySpiral galaxy  And0042.7+4116
J:� M32  221M31 Satellite  Elliptical glxyAnd0042.7+4052
T:� M33  598               Spiral galaxy  Tri0133.8+3039
^:� M34 1039               Open cluster   Per0242.0+4247
h:� M35 2168               Open cluster   Gem0608.8+2420
r:� M36 1960               Open cluster   Aur0535.3+3409
|:� M37 2099               Open cluster   Aur0552.3+3233
�:� M38 1912               Open cluster   Aur0528.7+3550
�:� M39 7092               Open cluster   Cyg2132.2+4826
�:� M40 -111Non-existent   Messier error  OOO00000000000
�:� M41 2287               Open cluster   CMa0647.0-2044
�:� M42 1976Great Orion NebBright nebula  Ori0535.3-0523
�:� M43 1982Pt of Orion NebBright nebula  Ori0535.6-0516
�:� M44 2632BeehivePraesepeOpen cluster   Cnc0840.3+1949
�:� M45     The Pleiades   Asterism       Tau0347.1+2407
�:� M46 2437               Open cluster   Pup0741.8-1449
�:� M47 2422               Open cluster   Pup0736.6-1428
�:� M48 2548               Open cluster   Hya0813.7-0546
�:� M49 4472               Elliptical glxyVir1229.7+0759
�:� M50 2323               Open cluster   Mon0703.0-0820
:� M51 5194Whirlpool GalxySpiral galaxy  CVn1329.9+4712
:� M52 7654               Open cluster   Cas2324.2+6135
:� M53 5024               Globular clustrCom1312.9+1810
&:� M54 6715               Globular clustrSgr1855.2-3028
0:� M55 6809               Globular clustrSgr1940.1-3056
::� M56 6779               Globular clustrLyr1916.6+3010
D:� M57 6720Ring Nebula    Planetary neb  Lyr1853.6+3302
N:� M58 4579               Barred sprl glyVir1237.6+1148
X:� M59 4621               Elliptical glxyVir1242.0+1139
b:� M60 4649               Elliptical glxyVir1243.6+1133
l:� M61 4303               Barred sprl glyVir1221.9+0428
v:� M62 6266               Globular clustrOph1701.3-3007
�:� M63 5055Sunflower Neb  Spiral galaxy  CVn1315.8+4202
�:� M64 4826Black Eye GalxySpiral galaxy  Com1256.7+2141
�:� M65 3623               Spiral galaxy  Leo1118.9+1306
�:� M66 3627               Spiral galaxy  Leo1120.2+1300
�:� M67 2682               Open cluster   Cnc0850.5+1149
�:� M68 4590               Globular clustrHya1239.5-2645
�:� M69 6637               Globular clustrSgr1831.4-3221
�:� M70 6681               Globular clustrSgr1843.3-3218
�:� M71 6838               Globular clustrSge1953.7+1847
�:� M72 6981               Globular clustrAqr2053.5-1233
�:� M73 6994Clstr of 4 strsAsterism       Aqr2059.1-1238
�:� M74  628               Spiral galaxy  Psc0136.7+1547
�:� M75 6864               Globular clustrSgr2006.1-2155
:� M76  650Little DumbbellPlanetary neb  Per0141.5+5134
:� M77 1068Seyfert Galaxy Spiral galaxy  Cet0142.7-0002
:� M78 2068               Bright nebula  Ori0546.8+0003
 :� M79 1904               Globular clustrLep0524.3-2431
*:� M80 6093               Globular clustrSco1617.1-2259
4:� M81 3031               Spiral galaxy  UMa0955.6+6904
>:� M82 3034               Galaxy         UMa0956.1+6942
H:� M83 5236               Spiral galaxy  Hya1337.0-2952
R:� M84 4374               Elliptical glxyVir1225.1+1253
\:� M85 4382               Elliptical glxyCom1225.5+1811
f:� M86 4406Giant EllipticlElliptical glxyVir1226.2+1256
p:� M87 4486Giant EllipticlElliptical glxyVir1230.8+1223
z:� M88 4501               Spiral galaxy  Com1232.0+1425
�:� M89 4552               Elliptical glxyVir1235.6+1233
�:� M90 4569               Spiral galaxy  Vir1236.7+1309
�:� M91 -111Non-existent   Messier error  OOO0000.0+0000
�:� M92 6341               Globular clustrHer1717.1+4309
�:� M93 2447               Open cluster   Pup0744.5-2352
�:� M94 4736               Spiral galaxy  CVn1250.8+4108
�:� M95 3351               Barred sprl glyLeo1043.9+1142
�:� M96 3368               Spiral galaxy  Leo1046.7+1149
�:� M97 3587Owl Nebula     Planetary neb  UMa1114.9+5502
�:� M98 4192               Spiral galaxy  Com1213.8+1454
�:� M99 4254               Spiral galaxy  Com1218.8+1425
�:� M1004321               Spiral galaxy  Com1222.9+1549
�:� M1015457               Spiral galaxy  UMa1403.2+5421
:� M102-111Non-existent   Messier error  OOO0000.0+0000
:� M103 581               Open cluster   Cas0133.2+6042
:� M1044594Sombrero GalaxySpiral galaxy  Vir1240.0-1137
$:� M1053379               Elliptical glxyLeo1047.9+1234
.:� M1064258               Spiral galaxy  CVn1219.0+4718
8:� M1076171               Open cluster   Oph1632.5-1304
B:� M1083556               Spiral galaxy  UMa1111.6+5541
L:� M1093992               Barred sprl glyUMa1157.6+5321
V:� M110 205M31 Satellite  Elliptical glxyAnd0037.6+4125
�

00000000  0d 00 0a 0f f4 3e 54 65  6c 65 73 63 6f 70 65 0d  |.....>Telescope.|
00000010  00 14 39 f4 20 43 6f 70  79 72 69 67 68 74 20 4d  |..9. Copyright M|
00000020  69 6b 65 20 43 6f 6f 6b  20 4d 75 73 62 75 72 79  |ike Cook Musbury|
00000030  20 43 6f 6e 73 75 6c 74  61 6e 74 73 20 30 37 30  | Consultants 070|
00000040  36 20 32 31 36 37 30 31  0d 00 1e 22 f4 20 54 65  |6 216701...". Te|
00000050  6c 65 73 63 6f 70 65 20  70 6f 73 69 74 69 6f 6e  |lescope position|
00000060  20 69 6e 64 69 63 61 74  6f 72 0d 00 28 2f f4 20  | indicator..(/. |
00000070  43 6f 6d 70 75 74 65 72  20 67 75 69 64 65 64 20  |Computer guided |
00000080  74 65 6c 65 73 63 6f 70  65 20 41 63 6f 72 6e 20  |telescope Acorn |
00000090  43 6f 6d 70 75 74 69 6e  67 0d 00 32 13 2a 41 4c  |Computing..2.*AL|
000000a0  50 48 41 42 45 54 20 47  52 45 45 4b 0d 00 3c 0b  |PHABET GREEK..<.|
000000b0  56 4d 41 58 25 3d 36 0d  00 46 1d de 20 43 4f 44  |VMAX%=6..F.. COD|
000000c0  45 25 20 26 31 30 30 2c  44 69 73 4d 24 28 56 4d  |E% &100,DisM$(VM|
000000d0  41 58 25 29 0d 00 50 27  de 20 53 43 46 24 28 33  |AX%)..P'. SCF$(3|
000000e0  30 29 2c 53 43 24 28 33  30 29 2c 53 52 41 28 33  |0),SC$(30),SRA(3|
000000f0  30 29 2c 53 44 45 43 28  33 30 29 0d 00 5a 2d de  |0),SDEC(30)..Z-.|
00000100  20 58 28 32 2c 32 29 2c  59 28 32 2c 32 29 2c 54  | X(2,2),Y(2,2),T|
00000110  28 32 2c 32 29 2c 4d 28  32 2c 32 29 2c 54 43 28  |(2,2),M(2,2),TC(|
00000120  32 29 2c 45 51 28 32 29  0d 00 64 38 de 20 52 41  |2),EQ(2)..d8. RA|
00000130  28 32 29 2c 44 45 43 28  32 29 2c 50 41 5a 28 32  |(2),DEC(2),PAZ(2|
00000140  29 2c 50 41 4c 28 32 29  2c 54 49 4d 28 32 29 2c  |),PAL(2),TIM(2),|
00000150  53 4e 24 28 32 29 2c 4d  65 73 24 28 31 31 31 29  |SN$(2),Mes$(111)|
00000160  0d 00 6e 42 4b 3d 31 2e  30 30 32 37 33 38 2f 32  |..nBK=1.002738/2|
00000170  34 30 30 30 20 3a f4 20  43 6f 6e 76 65 72 74 73  |4000 :. Converts|
00000180  20 73 6f 6c 61 72 20 74  69 6d 65 20 28 73 65 63  | solar time (sec|
00000190  29 20 74 6f 20 73 69 64  65 72 69 61 6c 20 74 69  |) to siderial ti|
000001a0  6d 65 0d 00 78 05 db 0d  00 82 0a f2 5f 49 4e 49  |me..x......._INI|
000001b0  54 0d 00 8c 09 f2 5f 52  53 53 0d 00 96 15 f1 22  |T....._RSS....."|
000001c0  52 65 63 69 65 76 69 6e  67 20 64 61 74 61 22 0d  |Recieving data".|
000001d0  00 a0 1a f4 20 53 65 74  20 74 6f 20 31 39 32 30  |.... Set to 1920|
000001e0  30 20 42 61 75 64 20 52  58 0d 00 aa 18 c8 99 20  |0 Baud RX...... |
000001f0  22 4f 53 5f 53 65 72 69  61 6c 4f 70 22 2c 35 2c  |"OS_SerialOp",5,|
00000200  38 0d 00 b4 18 c8 99 20  22 4f 53 5f 53 65 72 69  |8...... "OS_Seri|
00000210  61 6c 4f 70 22 2c 36 2c  38 0d 00 be 30 f4 20 53  |alOp",6,8...0. S|
00000220  65 74 20 75 70 20 77 6f  72 64 20 66 6f 72 6d 61  |et up word forma|
00000230  74 20 38 20 64 61 74 61  20 6e 6f 20 70 61 72 69  |t 8 data no pari|
00000240  74 79 20 31 20 73 74 6f  70 0d 00 c8 18 c8 99 20  |ty 1 stop...... |
00000250  22 4f 53 5f 53 65 72 69  61 6c 4f 70 22 2c 31 2c  |"OS_SerialOp",1,|
00000260  30 0d 00 d2 25 f4 20 45  6e 61 62 6c 65 20 62 6f  |0...%. Enable bo|
00000270  74 68 20 6b 65 79 62 6f  61 72 64 20 61 6e 64 20  |th keyboard and |
00000280  73 65 72 69 61 6c 0d 00  dc 1c 41 4c 25 3d 30 3a  |serial....AL%=0:|
00000290  54 49 43 4b 25 3d a3 3a  4d 45 53 46 49 4e 44 25  |TICK%=.:MESFIND%|
000002a0  3d a3 0d 00 e6 0d 42 72  69 67 68 74 25 3d 34 0d  |=.....Bright%=4.|
000002b0  00 f0 14 f2 5f 44 49 4d  28 42 72 69 67 68 74 25  |...._DIM(Bright%|
000002c0  2d 31 29 0d 00 fa 14 c8  99 20 22 4f 53 5f 42 79  |-1)...... "OS_By|
000002d0  74 65 22 2c 32 2c 32 0d  01 04 09 4c 42 25 3d 30  |te",2,2....LB%=0|
000002e0  0d 01 0e 3c 52 41 54 3d  36 38 34 36 20 3a f4 20  |...<RAT=6846 :. |
000002f0  4e 75 6d 62 65 72 20 6f  66 20 70 75 6c 73 65 73  |Number of pulses|
00000300  20 69 6e 20 31 20 52 65  76 20 6f 66 20 52 69 67  | in 1 Rev of Rig|
00000310  68 74 20 41 63 63 65 6e  74 69 6f 6e 0d 01 18 38  |ht Accention...8|
00000320  44 45 54 3d 31 31 35 32  30 3a f4 20 4e 75 6d 62  |DET=11520:. Numb|
00000330  65 72 20 6f 66 20 70 75  6c 73 65 73 20 69 6e 20  |er of pulses in |
00000340  31 20 52 65 76 20 6f 66  20 64 65 63 6c 69 6e 61  |1 Rev of declina|
00000350  74 69 6f 6e 0d 01 22 16  f2 5f 53 45 4e 44 28 22  |tion..".._SEND("|
00000360  4d 69 6b 65 43 6f 6f 6b  22 29 0d 01 2c 0a f2 5f  |MikeCook")..,.._|
00000370  49 4e 53 54 0d 01 36 11  53 53 31 25 3d 31 3a 53  |INST..6.SS1%=1:S|
00000380  53 32 25 3d 32 0d 01 40  0f f4 20 43 41 4c 4c 20  |S2%=2..@.. CALL |
00000390  4c 4f 4f 4b 0d 01 4a 12  f4 20 50 52 4f 43 5f 4b  |LOOK..J.. PROC_K|
000003a0  53 45 4c 28 31 29 0d 01  54 11 f4 20 50 52 4f 43  |SEL(1)..T.. PROC|
000003b0  5f 43 41 4c 28 31 29 0d  01 5e 0b f2 5f 4d 52 45  |_CAL(1)..^.._MRE|
000003c0  41 44 0d 01 68 0b f2 5f  49 44 45 4e 54 0d 01 72  |AD..h.._IDENT..r|
000003d0  10 55 74 69 6d 65 3d 91  2b 36 30 30 30 0d 01 7c  |.Utime=.+6000..||
000003e0  04 0d 01 86 05 f5 0d 01  90 0e 20 20 53 25 3d 96  |..........  S%=.|
000003f0  28 2d 32 29 0d 01 9a 1b  20 20 e7 20 53 25 3e 32  |(-2)....  . S%>2|
00000400  35 30 20 8c 20 f1 22 46  55 4c 4c 22 3a ef 37 0d  |50 . ."FULL":.7.|
00000410  01 a4 18 20 20 e7 20 a6  28 2d 38 32 29 20 f2 5f  |...  . .(-82) ._|
00000420  4b 53 45 4c 28 31 29 0d  01 ae 19 20 20 e7 20 a6  |KSEL(1)....  . .|
00000430  28 2d 38 33 29 20 8c 20  f2 5f 43 41 4c 28 31 29  |(-83) . ._CAL(1)|
00000440  0d 01 b8 17 20 20 e7 20  a6 28 2d 31 30 32 29 20  |....  . .(-102) |
00000450  8c 20 f2 5f 47 4d 4e 0d  01 c2 17 20 20 e7 20 a6  |. ._GMN....  . .|
00000460  28 2d 31 30 31 29 20 8c  20 f2 5f 42 52 49 0d 01  |(-101) . ._BRI..|
00000470  cc 21 20 20 e7 20 a6 28  2d 35 36 29 20 8c 20 f1  |.!  . .(-56) . .|
00000480  20 8a 30 2c 31 36 29 20  21 44 45 2c 21 52 41 0d  | .0,16) !DE,!RA.|
00000490  01 d6 27 20 20 e7 20 a6  28 2d 33 36 29 20 8c 20  |..'  . .(-36) . |
000004a0  54 49 43 4b 25 3d ac 28  54 49 43 4b 25 29 3a 54  |TICK%=.(TICK%):T|
000004b0  69 6d 65 72 3d 91 0d 01  e0 0a d6 20 4c 4f 4f 4b  |imer=...... LOOK|
000004c0  0d 01 ea 41 e7 20 4c 42  25 3c 3e 21 4c 54 20 84  |...A. LB%<>!LT .|
000004d0  20 55 74 69 6d 65 3c 91  20 8c 20 4c 42 25 3d 21  | Utime<. . LB%=!|
000004e0  4c 54 3a f2 5f 46 61 6e  67 6c 65 28 21 52 41 2c  |LT:._Fangle(!RA,|
000004f0  21 44 45 29 3a 55 74 69  6d 65 3d 91 2b 36 30 30  |!DE):Utime=.+600|
00000500  30 0d 01 f4 47 e7 20 21  4e 43 3e 30 20 8c 20 21  |0...G. !NC>0 . !|
00000510  4e 43 3d 30 3a f2 5f 53  63 6f 70 65 4d 65 6e 75  |NC=0:._ScopeMenu|
00000520  3a f2 5f 46 61 6e 67 6c  65 28 21 52 41 2c 21 44  |:._Fangle(!RA,!D|
00000530  45 29 3a f2 5f 42 4f 55  4e 43 45 3a 55 74 69 6d  |E):._BOUNCE:Utim|
00000540  65 3d 91 2b 36 30 30 30  0d 01 fe 0d e7 20 54 49  |e=.+6000..... TI|
00000550  43 4b 25 20 8c 0d 02 08  2a e7 20 54 69 6d 65 72  |CK% ....*. Timer|
00000560  2b 35 30 30 3c 91 20 8c  20 54 69 6d 65 72 3d 54  |+500<. . Timer=T|
00000570  69 6d 65 72 2b 35 30 30  3a f2 5f 42 4c 49 50 0d  |imer+500:._BLIP.|
00000580  02 12 05 cd 0d 02 1c 07  fd 20 a3 0d 02 26 05 e0  |......... ...&..|
00000590  0d 02 30 04 0d 02 3a 0c  dd 20 f2 5f 49 4e 53 54  |..0...:.. ._INST|
000005a0  0d 02 44 05 db 0d 02 4e  25 f1 22 54 65 6c 65 73  |..D....N%."Teles|
000005b0  63 6f 70 65 20 4d 6f 6e  69 74 6f 72 20 42 79 20  |cope Monitor By |
000005c0  4d 69 6b 65 20 43 6f 6f  6b 22 0d 02 58 07 f1 3a  |Mike Cook"..X..:|
000005d0  f1 0d 02 62 2a f1 22 53  20 2d 20 54 6f 20 53 65  |...b*."S - To Se|
000005e0  6c 65 63 74 20 74 77 6f  20 63 61 6c 69 62 72 61  |lect two calibra|
000005f0  74 69 6f 6e 20 53 74 61  72 73 22 0d 02 6c 17 f1  |tion Stars"..l..|
00000600  22 43 20 2d 20 54 6f 20  43 61 6c 69 62 72 61 74  |"C - To Calibrat|
00000610  65 22 0d 02 76 1e f1 22  4d 20 2d 20 46 69 6e 64  |e"..v.."M - Find|
00000620  20 4d 65 73 73 69 65 72  20 6f 62 6a 65 63 74 22  | Messier object"|
00000630  0d 02 80 1e f1 22 42 20  2d 20 54 6f 20 61 6c 74  |....."B - To alt|
00000640  65 72 20 42 72 69 67 68  74 6e 65 73 73 22 0d 02  |er Brightness"..|
00000650  8a 1e f1 22 50 20 2d 20  54 6f 20 50 72 69 6e 74  |..."P - To Print|
00000660  20 72 61 77 20 61 6e 67  6c 65 73 22 0d 02 94 1d  | raw angles"....|
00000670  f1 22 54 20 2d 20 46 6f  72 20 35 20 73 65 63 6f  |."T - For 5 seco|
00000680  6e 64 20 54 69 63 6b 73  22 0d 02 9e 27 f1 8a 30  |nd Ticks"...'..0|
00000690  2c 31 30 29 22 20 20 20  20 45 71 75 61 74 6f 72  |,10)"    Equator|
000006a0  69 61 6c 20 43 6f 6f 72  64 69 6e 61 74 65 73 22  |ial Coordinates"|
000006b0  0d 02 a8 2d f1 8a 30 2c  31 31 29 22 52 69 67 68  |...-..0,11)"Righ|
000006c0  74 20 61 73 63 65 6e 73  69 6f 6e 20 20 20 20 20  |t ascension     |
000006d0  20 44 65 63 6c 69 6e 61  74 69 6f 6e 22 0d 02 b2  | Declination"...|
000006e0  05 e1 0d 02 bc 04 0d 02  c6 0f dd 20 f2 5f 43 41  |........... ._CA|
000006f0  4c 28 4e 25 29 0d 02 d0  15 ea 20 41 25 2c 42 24  |L(N%)..... A%,B$|
00000700  2c 53 25 2c 42 4f 25 2c  53 24 0d 02 da 25 f1 8a  |,S%,BO%,S$...%..|
00000710  30 2c 31 35 29 22 43 61  6c 69 62 72 61 74 65 20  |0,15)"Calibrate |
00000720  54 65 6c 65 73 63 6f 70  65 22 3b 89 28 38 29 0d  |Telescope";.(8).|
00000730  02 e4 16 f2 5f 53 45 4e  44 28 22 53 74 61 72 31  |...._SEND("Star1|
00000740  20 20 20 22 29 0d 02 ee  0c f2 5f 42 4f 55 4e 43  |   ")....._BOUNC|
00000750  45 0d 02 f8 0b 42 24 3d  bd 28 30 29 0d 03 02 05  |E....B$=.(0)....|
00000760  f5 0d 03 0c 0a d6 20 4c  4f 4f 4b 0d 03 16 17 e7  |...... LOOK.....|
00000770  20 21 4e 43 3c 3e 30 20  8c 20 42 24 3d bd 28 31  | !NC<>0 . B$=.(1|
00000780  33 29 0d 03 20 0e fd 20  42 24 3d bd 28 31 33 29  |3).. .. B$=.(13)|
00000790  0d 03 2a 30 21 52 41 3d  30 3a 21 44 45 3d 30 20  |..*0!RA=0:!DE=0 |
000007a0  3a f4 20 72 65 73 65 74  20 69 6e 74 65 72 6e 61  |:. reset interna|
000007b0  6c 20 61 6e 67 6c 65 73  20 74 6f 20 7a 65 72 6f  |l angles to zero|
000007c0  0d 03 34 1b 21 52 41 3d  28 53 52 41 28 53 53 31  |..4.!RA=(SRA(SS1|
000007d0  25 29 2f 33 36 30 29 2a  52 41 54 0d 03 3e 1c 21  |%)/360)*RAT..>.!|
000007e0  44 45 3d 28 53 44 45 43  28 53 53 31 25 29 2f 33  |DE=(SDEC(SS1%)/3|
000007f0  36 30 29 2a 44 45 54 0d  03 48 0c 54 72 65 66 31  |60)*DET..H.Tref1|
00000800  25 3d 91 0d 03 52 04 0d  03 5c 16 f2 5f 53 45 4e  |%=...R...\.._SEN|
00000810  44 28 22 53 74 61 72 32  20 20 20 22 29 0d 03 66  |D("Star2   ")..f|
00000820  13 f2 5f 42 4c 49 50 3a  f2 5f 42 4f 55 4e 43 45  |.._BLIP:._BOUNCE|
00000830  0d 03 70 0b 42 24 3d bd  28 30 29 0d 03 7a 05 f5  |..p.B$=.(0)..z..|
00000840  0d 03 84 0a d6 20 4c 4f  4f 4b 0d 03 8e 17 e7 20  |..... LOOK..... |
00000850  21 4e 43 3c 3e 30 20 8c  20 42 24 3d bd 28 31 33  |!NC<>0 . B$=.(13|
00000860  29 0d 03 98 0e fd 20 42  24 3d bd 28 31 33 29 0d  |)..... B$=.(13).|
00000870  03 a2 16 f2 5f 46 61 6e  67 6c 65 31 28 21 52 41  |...._Fangle1(!RA|
00000880  2c 21 44 45 29 0d 03 ac  29 52 66 44 61 3d 44 61  |,!DE)...)RfDa=Da|
00000890  3a 52 66 52 61 3d 52 61  20 3a f4 20 47 45 54 20  |:RfRa=Ra :. GET |
000008a0  52 45 46 52 41 4e 43 45  20 41 4e 47 4c 45 0d 03  |REFRANCE ANGLE..|
000008b0  b6 0c 54 72 65 66 32 25  3d 91 0d 03 c0 16 f2 5f  |..Tref2%=......_|
000008c0  53 45 4e 44 28 22 4f 4b  20 20 20 20 20 20 22 29  |SEND("OK      ")|
000008d0  0d 03 ca 0b f2 5f 43 4c  52 4f 56 0d 03 d4 0a f2  |....._CLROV.....|
000008e0  5f 42 4c 49 50 0d 03 de  1f f4 20 57 4f 52 4b 20  |_BLIP..... WORK |
000008f0  4f 55 54 20 54 52 41 4e  53 46 4f 52 4d 20 4d 41  |OUT TRANSFORM MA|
00000900  54 52 49 58 0d 03 e8 0a  f2 5f 54 6d 61 74 0d 03  |TRIX....._Tmat..|
00000910  f2 0c f2 5f 42 4f 55 4e  43 45 0d 03 fc 05 e1 0d  |..._BOUNCE......|
00000920  04 06 04 0d 04 10 10 dd  20 f2 5f 4b 53 45 4c 28  |........ ._KSEL(|
00000930  4e 25 29 0d 04 1a 15 ea  20 41 25 2c 42 24 2c 53  |N%)..... A%,B$,S|
00000940  25 2c 42 4f 25 2c 53 24  0d 04 24 27 f1 8a 30 2c  |%,BO%,S$..$'..0,|
00000950  31 35 29 22 53 65 6c 65  63 74 20 32 20 63 61 6c  |15)"Select 2 cal|
00000960  69 62 72 61 74 69 6f 6e  20 73 74 61 72 73 22 0d  |ibration stars".|
00000970  04 2e 28 f1 22 2b 20 6f  72 20 2d 20 74 6f 20 63  |..(."+ or - to c|
00000980  68 61 6e 67 65 20 52 65  74 75 72 6e 20 74 6f 20  |hange Return to |
00000990  63 68 6f 6f 73 65 22 0d  04 38 08 41 25 3d 31 0d  |choose"..8.A%=1.|
000009a0  04 42 05 f5 0d 04 4c 09  42 4f 25 3d b9 0d 04 56  |.B....L.BO%=...V|
000009b0  0c 53 24 3d 22 53 31 20  22 0d 04 60 14 e3 20 53  |.S$="S1 "..`.. S|
000009c0  25 3d 31 38 20 b8 20 32  30 20 88 20 32 0d 04 6a  |%=18 . 20 . 2..j|
000009d0  05 f5 0d 04 74 15 e7 20  41 25 3c 31 20 8c 20 41  |....t.. A%<1 . A|
000009e0  25 3d 4d 58 53 44 25 0d  04 7e 15 e7 20 41 25 3e  |%=MXSD%..~.. A%>|
000009f0  4d 58 53 44 25 20 8c 20  41 25 3d 31 0d 04 88 26  |MXSD% . A%=1...&|
00000a00  f1 8a 32 2c 53 25 29 53  43 24 28 41 25 29 3b 22  |..2,S%)SC$(A%);"|
00000a10  20 20 22 3b 53 43 46 24  28 41 25 29 3b 89 28 32  |  ";SCF$(A%);.(2|
00000a20  30 29 0d 04 92 0c f1 8a  30 2c 53 25 29 3b 0d 04  |0)......0,S%);..|
00000a30  9c 0c e7 20 4e 25 3d 31  20 8c 0d 04 a6 08 42 24  |... N%=1 .....B$|
00000a40  3d be 0d 04 b0 1d e7 20  42 24 3d 22 2b 22 20 84  |=...... B$="+" .|
00000a50  20 42 24 3d 22 3d 22 20  8c 20 41 25 2b 3d 31 0d  | B$="=" . A%+=1.|
00000a60  04 ba 1d e7 20 42 24 3d  22 2d 22 20 84 20 42 24  |.... B$="-" . B$|
00000a70  3d 22 5f 22 20 8c 20 41  25 2d 3d 31 0d 04 c4 05  |="_" . A%-=1....|
00000a80  cc 0d 04 ce 04 0d 04 d8  1a f2 5f 53 45 4e 44 28  |.........._SEND(|
00000a90  53 24 2b 53 43 24 28 41  25 29 2b 22 20 22 29 0d  |S$+SC$(A%)+" ").|
00000aa0  04 e2 1a e7 20 42 4f 25  20 8c 20 42 4f 25 3d a3  |.... BO% . BO%=.|
00000ab0  3a f2 5f 42 4f 55 4e 43  45 0d 04 ec 1b 41 25 3d  |:._BOUNCE....A%=|
00000ac0  a4 5f 53 61 64 76 61 6e  63 65 28 4d 58 53 44 25  |._Sadvance(MXSD%|
00000ad0  2c 41 25 29 0d 04 f6 2e  e7 20 21 4e 43 3c 3e 30  |,A%)..... !NC<>0|
00000ae0  20 8c 20 42 24 3d bd 28  31 33 29 3a f2 5f 42 4c  | . B$=.(13):._BL|
00000af0  49 50 3a 42 4f 25 3d b9  20 8b 20 42 24 3d bd 28  |IP:BO%=. . B$=.(|
00000b00  30 29 0d 05 00 05 cd 0d  05 0a 04 0d 05 14 0e fd  |0)..............|
00000b10  20 42 24 3d bd 28 31 33  29 0d 05 1e 34 e7 20 53  | B$=.(13)...4. S|
00000b20  25 3d 31 38 20 8c 20 53  53 31 25 3d 41 25 3a f1  |%=18 . SS1%=A%:.|
00000b30  3a f1 22 53 65 6c 65 63  74 20 61 6e 6f 74 68 65  |:."Select anothe|
00000b40  72 22 3a 20 8b 20 53 53  32 25 3d 41 25 0d 05 28  |r": . SS2%=A%..(|
00000b50  09 41 25 2b 3d 31 0d 05  32 0c 53 24 3d 22 53 32  |.A%+=1..2.S$="S2|
00000b60  20 22 0d 05 3c 05 ed 0d  05 46 4c e7 20 53 53 31  | "..<....FL. SS1|
00000b70  25 3d 53 53 32 25 20 8c  20 f1 22 20 20 20 54 68  |%=SS2% . ."   Th|
00000b80  65 20 74 77 6f 20 73 74  61 72 73 20 6d 75 73 74  |e two stars must|
00000b90  20 62 65 20 64 69 66 66  72 65 6e 74 22 3a f1 8a  | be diffrent":..|
00000ba0  30 2c 31 38 29 3b 89 28  33 35 29 3a f1 3b 89 28  |0,18);.(35):.;.(|
00000bb0  33 35 29 0d 05 50 10 fd  20 53 53 31 25 3c 3e 53  |35)..P.. SS1%<>S|
00000bc0  53 32 25 0d 05 5a 08 f2  5f 42 4c 0d 05 64 05 e1  |S2%..Z.._BL..d..|
00000bd0  0d 05 6e 04 0d 05 78 0a  dd 20 f2 5f 42 4c 0d 05  |..n...x.. ._BL..|
00000be0  82 08 ea 20 41 25 0d 05  8c 05 e1 0d 05 96 10 e3  |... A%..........|
00000bf0  20 41 25 3d 31 35 20 b8  20 32 33 0d 05 a0 11 f1  | A%=15 . 23.....|
00000c00  8a 30 2c 41 25 29 3b 89  28 33 39 29 0d 05 aa 05  |.0,A%);.(39)....|
00000c10  ed 0d 05 b4 05 e1 0d 05  be 04 0d 05 c8 11 dd 20  |............... |
00000c20  f2 5f 53 63 6f 70 65 4d  65 6e 75 0d 05 d2 08 ea  |._ScopeMenu.....|
00000c30  20 56 25 0d 05 dc 08 56  25 3d 31 0d 05 e6 23 f1  | V%....V%=1...#.|
00000c40  8a 30 2c 31 35 29 22 53  65 6c 65 63 74 69 6f 6e  |.0,15)"Selection|
00000c50  20 61 74 20 54 65 6c 65  73 63 6f 70 65 22 0d 05  | at Telescope"..|
00000c60  f0 15 f2 5f 53 45 4e 44  28 44 69 73 4d 24 28 56  |..._SEND(DisM$(V|
00000c70  25 29 29 0d 05 fa 14 f1  8a 30 2c 31 37 29 44 69  |%))......0,17)Di|
00000c80  73 4d 24 28 56 25 29 0d  06 04 0a f2 5f 42 4c 49  |sM$(V%)....._BLI|
00000c90  50 0d 06 0e 0c f2 5f 42  4f 55 4e 43 45 0d 06 18  |P....._BOUNCE...|
00000ca0  3a e7 20 4d 45 53 46 49  4e 44 25 20 8c 20 4d 45  |:. MESFIND% . ME|
00000cb0  53 46 49 4e 44 25 3d a3  3a 55 74 69 6d 65 3d 91  |SFIND%=.:Utime=.|
00000cc0  3a f1 8a 30 2c 31 37 29  3b 89 28 33 30 29 3a f1  |:..0,17);.(30):.|
00000cd0  89 28 34 38 29 3a e1 0d  06 22 05 f5 0d 06 2c 1c  |.(48):..."....,.|
00000ce0  20 56 25 3d a4 5f 53 61  64 76 61 6e 63 65 28 56  | V%=._Sadvance(V|
00000cf0  4d 41 58 25 2c 56 25 29  0d 06 36 16 20 f2 5f 53  |MAX%,V%)..6. ._S|
00000d00  45 4e 44 28 44 69 73 4d  24 28 56 25 29 29 0d 06  |END(DisM$(V%))..|
00000d10  40 15 20 f1 8a 30 2c 31  37 29 44 69 73 4d 24 28  |@. ..0,17)DisM$(|
00000d20  56 25 29 0d 06 4a 0b fd  21 4e 43 3c 3e 30 0d 06  |V%)..J..!NC<>0..|
00000d30  54 09 21 4e 43 3d 30 0d  06 5e 0b c8 8e 20 56 25  |T.!NC=0..^... V%|
00000d40  20 ca 0d 06 68 19 c9 20  32 3a 20 f2 5f 42 4c 49  | ...h.. 2: ._BLI|
00000d50  50 3a f2 5f 4b 53 45 4c  28 30 29 0d 06 72 11 c9  |P:._KSEL(0)..r..|
00000d60  20 33 3a 20 f2 5f 43 41  4c 28 30 29 0d 06 7c 0f  | 3: ._CAL(0)..|.|
00000d70  c9 20 34 3a 20 f2 5f 41  64 69 6d 0d 06 86 10 c9  |. 4: ._Adim.....|
00000d80  20 35 3a 20 f2 5f 46 69  6e 64 4d 0d 06 90 10 c9  | 5: ._FindM.....|
00000d90  20 36 3a 20 f2 5f 54 28  56 25 29 0d 06 9a 05 cb  | 6: ._T(V%).....|
00000da0  0d 06 a4 0a f2 5f 42 4c  49 50 0d 06 ae 08 f2 5f  |....._BLIP....._|
00000db0  42 4c 0d 06 b8 05 e1 0d  06 c2 04 0d 06 cc 0d dd  |BL..............|
00000dc0  20 f2 5f 54 28 56 25 29  0d 06 d6 0d e7 20 54 49  | ._T(V%)..... TI|
00000dd0  43 4b 25 20 8c 0d 06 e0  0b 54 49 43 4b 25 3d a3  |CK% .....TICK%=.|
00000de0  0d 06 ea 18 44 69 73 4d  24 28 56 25 29 3d 22 54  |....DisM$(V%)="T|
00000df0  69 63 6b 20 4f 6e 20 22  0d 06 f4 05 cc 0d 06 fe  |ick On "........|
00000e00  0b 54 49 43 4b 25 3d b9  0d 07 08 18 44 69 73 4d  |.TICK%=.....DisM|
00000e10  24 28 56 25 29 3d 22 54  69 63 6b 20 4f 66 66 22  |$(V%)="Tick Off"|
00000e20  0d 07 12 07 d1 3d 30 0d  07 1c 05 cd 0d 07 26 05  |.....=0.......&.|
00000e30  e1 0d 07 30 04 0d 07 3a  0b dd 20 f2 5f 47 4d 4e  |...0...:.. ._GMN|
00000e40  0d 07 44 08 ea 20 44 24  0d 07 4e 0b 2a 46 58 32  |..D.. D$..N.*FX2|
00000e50  31 2c 30 0d 07 58 08 44  24 3d be 0d 07 62 05 f5  |1,0..X.D$=...b..|
00000e60  0d 07 6c 22 f1 8a 30 2c  31 37 29 22 46 69 6e 64  |..l"..0,17)"Find|
00000e70  20 61 20 4d 65 73 73 69  65 72 20 6f 62 6a 65 63  | a Messier objec|
00000e80  74 22 0d 07 76 1d e8 22  20 49 6e 70 75 74 20 4d  |t"..v.." Input M|
00000e90  20 6e 75 6d 62 65 72 20  22 2c 4d 6f 62 6a 25 0d  | number ",Mobj%.|
00000ea0  07 80 08 f2 5f 42 4c 0d  07 8a 40 e7 20 4d 6f 62  |...._BL...@. Mob|
00000eb0  6a 25 3c 31 20 84 20 4d  6f 62 6a 25 3e 31 31 30  |j%<1 . Mobj%>110|
00000ec0  20 8c 20 f1 8a 30 2c 31  38 29 22 4d 20 6e 75 6d  | . ..0,18)"M num|
00000ed0  62 65 72 73 20 62 65 74  77 65 65 6e 20 31 20 61  |bers between 1 a|
00000ee0  6e 64 20 31 31 30 22 0d  07 94 19 fd 20 4d 6f 62  |nd 110"..... Mob|
00000ef0  6a 25 3e 31 20 80 20 4d  6f 62 6a 25 3c 31 31 31  |j%>1 . Mobj%<111|
00000f00  0d 07 9e 10 f2 5f 49 44  4d 28 4d 6f 62 6a 25 29  |....._IDM(Mobj%)|
00000f10  0d 07 a8 05 e1 0d 07 b2  04 0d 07 bc 12 dd 20 f2  |.............. .|
00000f20  5f 49 44 4d 28 4d 6f 62  6a 25 29 0d 07 c6 17 44  |_IDM(Mobj%)....D|
00000f30  24 3d c0 4d 65 73 24 28  4d 6f 62 6a 25 29 2c 34  |$=.Mes$(Mobj%),4|
00000f40  31 29 0d 07 d0 0d f1 8a  30 2c 31 38 29 44 24 0d  |1)......0,18)D$.|
00000f50  07 da 3e 4d 52 41 3d bb  28 c1 4d 65 73 24 28 4d  |..>MRA=.(.Mes$(M|
00000f60  6f 62 6a 25 29 2c 34 32  2c 32 29 29 2a 31 35 2b  |obj%),42,2))*15+|
00000f70  31 35 2a 28 bb 28 c1 4d  65 73 24 28 4d 6f 62 6a  |15*(.(.Mes$(Mobj|
00000f80  25 29 2c 34 34 2c 35 29  29 2f 36 30 29 0d 07 e4  |%),44,5))/60)...|
00000f90  1d 4d 44 45 3d bb 28 c1  4d 65 73 24 28 4d 6f 62  |.MDE=.(.Mes$(Mob|
00000fa0  6a 25 29 2c 34 39 2c 32  29 29 0d 07 ee 1d 4d 64  |j%),49,2))....Md|
00000fb0  65 3d bb 28 c1 4d 65 73  24 28 4d 6f 62 6a 25 29  |e=.(.Mes$(Mobj%)|
00000fc0  2c 35 31 2c 32 29 29 0d  07 f8 2d e7 20 4d 44 45  |,51,2))...-. MDE|
00000fd0  3e 30 20 8c 20 4d 44 45  3d 4d 44 45 2b 4d 64 65  |>0 . MDE=MDE+Mde|
00000fe0  2f 36 30 20 8b 20 4d 44  45 3d 4d 44 45 2d 4d 64  |/60 . MDE=MDE-Md|
00000ff0  65 2f 36 30 0d 08 02 0e  4d 45 53 46 49 4e 44 25  |e/60....MESFIND%|
00001000  3d b9 0d 08 0c 05 e1 0d  08 16 04 0d 08 20 0d dd  |=............ ..|
00001010  20 f2 5f 46 69 6e 64 4d  0d 08 2a 0d ea 20 4d 62  | ._FindM..*.. Mb|
00001020  25 2c 4d 6c 25 0d 08 34  0f 4d 62 25 3d 31 3a 4d  |%,Ml%..4.Mb%=1:M|
00001030  6c 25 3d 31 0d 08 3e 21  f2 5f 53 45 4e 44 28 22  |l%=1..>!._SEND("|
00001040  4d 65 73 73 22 2b c3 28  4d 62 25 2d 31 29 2b 22  |Mess"+.(Mb%-1)+"|
00001050  20 20 20 22 29 0d 08 48  21 f1 8a 30 2c 31 37 29  |   ")..H!..0,17)|
00001060  22 4d 65 73 73 20 22 2b  c3 28 4d 62 25 2d 31 29  |"Mess "+.(Mb%-1)|
00001070  2b 22 20 20 20 22 0d 08  52 0a f2 5f 42 4c 49 50  |+"   "..R.._BLIP|
00001080  0d 08 5c 0c f2 5f 42 4f  55 4e 43 45 0d 08 66 05  |..\.._BOUNCE..f.|
00001090  f5 0d 08 70 1a 4d 62 25  3d a4 5f 53 61 64 76 61  |...p.Mb%=._Sadva|
000010a0  6e 63 65 28 31 32 2c 4d  62 25 29 0d 08 7a 21 f2  |nce(12,Mb%)..z!.|
000010b0  5f 53 45 4e 44 28 22 4d  65 73 73 22 2b c3 28 4d  |_SEND("Mess"+.(M|
000010c0  62 25 2d 31 29 2b 22 20  20 20 22 29 0d 08 84 21  |b%-1)+"   ")...!|
000010d0  f1 8a 30 2c 31 37 29 22  4d 65 73 73 20 22 2b c3  |..0,17)"Mess "+.|
000010e0  28 4d 62 25 2d 31 29 2b  22 20 20 20 22 0d 08 8e  |(Mb%-1)+"   "...|
000010f0  0c fd 20 21 4e 43 3c 3e  30 0d 08 98 0a 4d 62 25  |.. !NC<>0....Mb%|
00001100  2d 3d 31 0d 08 a2 0a f2  5f 42 4c 49 50 0d 08 ac  |-=1....._BLIP...|
00001110  26 f2 5f 53 45 4e 44 28  22 4d 65 73 73 22 2b c3  |&._SEND("Mess"+.|
00001120  28 4d 62 25 29 2b c3 28  4d 6c 25 2d 31 29 2b 22  |(Mb%)+.(Ml%-1)+"|
00001130  20 22 29 0d 08 b6 28 f1  8a 30 2c 31 37 29 22 4d  | ")...(..0,17)"M|
00001140  65 73 73 20 22 3b c3 28  4d 62 25 29 3b c3 28 4d  |ess ";.(Mb%);.(M|
00001150  62 25 2d 31 29 2b 22 20  20 20 22 0d 08 c0 0c f2  |b%-1)+"   ".....|
00001160  5f 42 4f 55 4e 43 45 0d  08 ca 05 f5 0d 08 d4 1a  |_BOUNCE.........|
00001170  4d 6c 25 3d a4 5f 53 61  64 76 61 6e 63 65 28 31  |Ml%=._Sadvance(1|
00001180  30 2c 4d 6c 25 29 0d 08  de 26 f2 5f 53 45 4e 44  |0,Ml%)...&._SEND|
00001190  28 22 4d 65 73 73 22 2b  c3 28 4d 62 25 29 2b c3  |("Mess"+.(Mb%)+.|
000011a0  28 4d 6c 25 2d 31 29 2b  22 20 22 29 0d 08 e8 28  |(Ml%-1)+" ")...(|
000011b0  f1 8a 30 2c 31 37 29 22  4d 65 73 73 20 22 3b c3  |..0,17)"Mess ";.|
000011c0  28 4d 62 25 29 3b c3 28  4d 6c 25 2d 31 29 2b 22  |(Mb%);.(Ml%-1)+"|
000011d0  20 20 20 22 0d 08 f2 0c  fd 20 21 4e 43 3c 3e 30  |   "..... !NC<>0|
000011e0  0d 08 fc 0a 4d 6c 25 2d  3d 31 0d 09 06 15 f2 5f  |....Ml%-=1....._|
000011f0  49 44 4d 28 4d 62 25 2a  31 30 2b 4d 6c 25 29 0d  |IDM(Mb%*10+Ml%).|
00001200  09 10 05 e1 0d 09 1a 04  0d 09 24 0c dd 20 f2 5f  |..........$.. ._|
00001210  41 64 69 6d 0d 09 2e 23  f2 5f 53 45 4e 44 28 22  |Adim...#._SEND("|
00001220  44 69 6d 20 22 2b c3 28  42 72 69 67 68 74 25 29  |Dim "+.(Bright%)|
00001230  2b 22 20 20 20 22 29 0d  09 38 22 f1 8a 30 2c 31  |+"   ")..8"..0,1|
00001240  37 29 22 44 69 6d 20 22  3b c3 28 42 72 69 67 68  |7)"Dim ";.(Brigh|
00001250  74 25 29 3b 22 20 20 20  22 0d 09 42 0a f2 5f 42  |t%);"   "..B.._B|
00001260  4c 49 50 0d 09 4c 0c f2  5f 42 4f 55 4e 43 45 0d  |LIP..L.._BOUNCE.|
00001270  09 56 05 f5 0d 09 60 21  42 72 69 67 68 74 25 3d  |.V....`!Bright%=|
00001280  a4 5f 53 61 64 76 61 6e  63 65 28 38 2c 42 72 69  |._Sadvance(8,Bri|
00001290  67 68 74 25 29 0d 09 6a  23 f2 5f 53 45 4e 44 28  |ght%)..j#._SEND(|
000012a0  22 44 69 6d 20 22 2b c3  28 42 72 69 67 68 74 25  |"Dim "+.(Bright%|
000012b0  29 2b 22 20 20 20 22 29  0d 09 74 22 f1 8a 30 2c  |)+"   ")..t"..0,|
000012c0  31 37 29 22 44 69 6d 20  22 3b c3 28 42 72 69 67  |17)"Dim ";.(Brig|
000012d0  68 74 25 29 3b 22 20 20  20 22 0d 09 7e 14 f2 5f  |ht%);"   "..~.._|
000012e0  44 49 4d 28 42 72 69 67  68 74 25 2d 31 29 0d 09  |DIM(Bright%-1)..|
000012f0  88 0c fd 20 21 4e 43 3c  3e 30 0d 09 92 05 e1 0d  |... !NC<>0......|
00001300  09 9c 04 0d 09 a6 25 f4  20 54 61 6b 65 20 63 61  |......%. Take ca|
00001310  72 65 20 6f 66 20 61 6e  79 20 63 6f 6e 74 61 63  |re of any contac|
00001320  74 20 62 6f 75 6e 63 65  0d 09 b0 0e dd 20 f2 5f  |t bounce..... ._|
00001330  42 4f 55 4e 43 45 0d 09  ba 08 ea 20 54 25 0d 09  |BOUNCE..... T%..|
00001340  c4 08 54 25 3d 91 0d 09  ce 05 f5 0d 09 d8 09 21  |..T%=..........!|
00001350  4e 43 3d 30 0d 09 e2 0a  d6 20 4c 4f 4f 4b 0d 09  |NC=0..... LOOK..|
00001360  ec 13 e7 20 21 4e 43 3c  3e 30 20 8c 20 54 25 3d  |... !NC<>0 . T%=|
00001370  91 0d 09 f6 18 fd 20 21  4e 43 3d 30 20 80 20 91  |...... !NC=0 . .|
00001380  20 3e 20 54 25 2b 31 30  30 0d 0a 00 05 e1 0d 0a  | > T%+100.......|
00001390  0a 04 0d 0a 14 18 dd 20  a4 5f 53 61 64 76 61 6e  |....... ._Sadvan|
000013a0  63 65 28 56 6d 25 2c 56  25 29 0d 0a 1e 11 ea 20  |ce(Vm%,V%)..... |
000013b0  44 44 25 2c 44 52 25 2c  56 52 25 0d 0a 28 0a 56  |DD%,DR%,VR%..(.V|
000013c0  52 25 3d 56 25 0d 0a 32  0b 44 52 25 3d 21 44 45  |R%=V%..2.DR%=!DE|
000013d0  0d 0a 3c 05 f5 0d 0a 46  0a d6 20 4c 4f 4f 4b 0d  |..<....F.. LOOK.|
000013e0  0a 50 0f 44 44 25 3d 44  52 25 2d 21 44 45 0d 0a  |.P.DD%=DR%-!DE..|
000013f0  5a 11 e7 20 94 28 44 44  25 29 20 3e 31 20 8c 0d  |Z.. .(DD%) >1 ..|
00001400  0a 64 1c 20 e7 20 44 44  25 3c 30 20 8c 20 56 25  |.d. . DD%<0 . V%|
00001410  2d 3d 31 20 8b 20 56 25  2b 3d 31 0d 0a 6e 14 20  |-=1 . V%+=1..n. |
00001420  e7 20 56 25 3e 56 6d 25  20 8c 20 56 25 3d 31 0d  |. V%>Vm% . V%=1.|
00001430  0a 78 14 20 e7 20 56 25  3c 31 20 8c 20 56 25 3d  |.x. . V%<1 . V%=|
00001440  56 6d 25 0d 0a 82 0b 20  f2 5f 42 4c 49 50 0d 0a  |Vm%.... ._BLIP..|
00001450  8c 05 cd 0d 0a 96 16 fd  20 56 25 3c 3e 56 52 25  |........ V%<>VR%|
00001460  20 84 20 21 4e 43 3c 3e  30 0d 0a a0 07 3d 56 25  | . !NC<>0....=V%|
00001470  0d 0a aa 04 0d 0a b4 0b  dd 20 f2 5f 42 52 49 0d  |......... ._BRI.|
00001480  0a be 08 ea 20 42 25 0d  0a c8 0b 2a 46 58 32 31  |.... B%....*FX21|
00001490  2c 30 0d 0a d2 08 44 24  3d be 0d 0a dc 27 f1 8a  |,0....D$=....'..|
000014a0  30 2c 31 36 29 22 20 42  72 69 67 68 74 6e 65 73  |0,16)" Brightnes|
000014b0  73 20 56 61 6c 75 65 20  31 20 74 6f 20 38 20 22  |s Value 1 to 8 "|
000014c0  3b 0d 0a e6 08 e8 20 42  25 0d 0a f0 11 42 25 3d  |;..... B%....B%=|
000014d0  28 42 25 2d 31 29 20 80  20 37 0d 0a fa 0d f2 5f  |(B%-1) . 7....._|
000014e0  44 49 4d 28 42 25 29 0d  0b 04 10 f1 8a 30 2c 31  |DIM(B%)......0,1|
000014f0  36 29 89 28 33 30 29 0d  0b 0e 0e 42 72 69 67 68  |6).(30)....Brigh|
00001500  74 25 3d 42 25 0d 0b 18  05 e1 0d 0b 22 04 0d 0b  |t%=B%......."...|
00001510  2c 18 f4 20 43 6c 65 61  72 20 4f 76 65 72 66 6c  |,.. Clear Overfl|
00001520  6f 77 20 4c 45 44 0d 0b  36 0d dd 20 f2 5f 43 4c  |ow LED..6.. ._CL|
00001530  52 4f 56 0d 0b 40 08 ea  20 42 25 0d 0b 4a 10 42  |ROV..@.. B%..J.B|
00001540  25 3d 26 39 30 20 84 20  41 4c 25 0d 0b 54 19 c8  |%=&90 . AL%..T..|
00001550  99 20 22 4f 53 5f 53 65  72 69 61 6c 4f 70 22 2c  |. "OS_SerialOp",|
00001560  33 2c 42 25 0d 0b 5e 20  c8 99 20 22 4f 53 5f 53  |3,B%..^ .. "OS_S|
00001570  65 72 69 61 6c 4f 70 22  2c 33 2c 41 4c 25 20 84  |erialOp",3,AL% .|
00001580  20 26 38 30 0d 0b 68 05  e1 0d 0b 72 04 0d 0b 7c  | &80..h....r...||
00001590  10 f4 20 4d 61 6b 65 20  53 6f 75 6e 64 0d 0b 86  |.. Make Sound...|
000015a0  0c dd 20 f2 5f 42 4c 49  50 0d 0b 90 0b ea 20 41  |.. ._BLIP..... A|
000015b0  25 2c 42 25 0d 0b 9a 10  42 25 3d 26 38 30 20 84  |%,B%....B%=&80 .|
000015c0  20 41 4c 25 0d 0b a4 0f  e3 20 41 25 3d 31 20 b8  | AL%..... A%=1 .|
000015d0  20 31 30 0d 0b ae 0f 42  25 3d 42 25 20 82 20 26  | 10....B%=B% . &|
000015e0  34 30 0d 0b b8 19 c8 99  20 22 4f 53 5f 53 65 72  |40...... "OS_Ser|
000015f0  69 61 6c 4f 70 22 2c 33  2c 42 25 0d 0b c2 05 ed  |ialOp",3,B%.....|
00001600  0d 0b cc 05 e1 0d 0b d6  04 0d 0b e0 24 f4 20 43  |............$. C|
00001610  6f 6e 76 65 72 74 20 41  78 69 73 20 43 6f 75 6e  |onvert Axis Coun|
00001620  74 20 69 6e 74 6f 20 61  6e 67 6c 65 73 0d 0b ea  |t into angles...|
00001630  14 dd 20 f2 5f 46 61 6e  67 6c 65 31 28 52 2c 44  |.. ._Fangle1(R,D|
00001640  29 0d 0b f4 12 52 61 3d  28 52 2f 52 41 54 29 2a  |)....Ra=(R/RAT)*|
00001650  33 36 30 0d 0b fe 12 44  61 3d 28 44 2f 44 45 54  |360....Da=(D/DET|
00001660  29 2a 33 36 30 0d 0c 08  0b c8 95 20 52 61 3c 30  |)*360...... Ra<0|
00001670  0d 0c 12 0d 52 61 3d 33  36 30 2b 52 61 0d 0c 1c  |....Ra=360+Ra...|
00001680  05 ce 0d 0c 26 0d c8 95  20 52 61 3e 33 36 30 0d  |....&... Ra>360.|
00001690  0c 30 0d 52 61 3d 52 61  2d 33 36 30 0d 0c 3a 05  |.0.Ra=Ra-360..:.|
000016a0  ce 0d 0c 44 04 0d 0c 4e  2a e7 20 44 61 3c 30 20  |...D...N*. Da<0 |
000016b0  8c 20 41 4c 25 3d 41 4c  25 20 84 20 26 32 30 20  |. AL%=AL% . &20 |
000016c0  8b 20 41 4c 25 3d 41 4c  25 20 80 20 26 44 46 0d  |. AL%=AL% . &DF.|
000016d0  0c 58 15 c8 95 20 44 61  3c 2d 39 30 20 84 20 44  |.X... Da<-90 . D|
000016e0  61 3e 39 30 0d 0c 62 0d  c8 95 20 44 61 3c 2d 39  |a>90..b... Da<-9|
000016f0  30 0d 0c 6c 0d 44 61 3d  44 61 2b 31 38 30 0d 0c  |0..l.Da=Da+180..|
00001700  76 05 ce 0d 0c 80 0c c8  95 20 44 61 3e 39 30 0d  |v........ Da>90.|
00001710  0c 8a 0d 44 61 3d 31 38  30 2d 44 61 0d 0c 94 05  |...Da=180-Da....|
00001720  ce 0d 0c 9e 05 ce 0d 0c  a8 05 e1 0d 0c b2 04 0d  |................|
00001730  0c bc 13 dd 20 f2 5f 46  61 6e 67 6c 65 28 52 2c  |.... ._Fangle(R,|
00001740  44 29 0d 0c c6 12 f2 5f  46 61 6e 67 6c 65 31 28  |D)....._Fangle1(|
00001750  52 2c 44 29 0d 0c d0 15  f2 5f 47 65 74 53 63 6f  |R,D)....._GetSco|
00001760  70 65 28 52 61 2c 44 61  29 0d 0c da 27 e7 20 4d  |pe(Ra,Da)...'. M|
00001770  45 53 46 49 4e 44 25 20  8c 20 52 61 3d 94 28 52  |ESFIND% . Ra=.(R|
00001780  61 2d 4d 52 41 29 3a 44  61 3d 44 61 2d 4d 44 45  |a-MRA):Da=Da-MDE|
00001790  0d 0c e4 16 f2 5f 44 61  6e 67 6c 65 28 52 61 2f  |....._Dangle(Ra/|
000017a0  31 35 2c 44 61 29 0d 0c  ee 05 e1 0d 0c f8 04 0d  |15,Da)..........|
000017b0  0d 02 13 f4 20 44 69 73  70 6c 61 79 20 41 6e 67  |.... Display Ang|
000017c0  6c 65 0d 0d 0c 15 dd 20  f2 5f 44 61 6e 67 6c 65  |le..... ._Dangle|
000017d0  28 52 41 2c 44 45 29 0d  0d 16 1f ea 20 4d 25 2c  |(RA,DE)..... M%,|
000017e0  52 25 2c 44 25 2c 54 41  2c 44 24 2c 4d 24 2c 48  |R%,D%,TA,D$,M$,H|
000017f0  24 2c 6d 24 2c 4d 0d 0d  20 09 52 25 3d 52 41 0d  |$,m$,M.. .R%=RA.|
00001800  0d 2a 1b 4d 3d 28 a8 28  36 30 2a 28 52 41 2d 52  |.*.M=(.(60*(RA-R|
00001810  25 29 2a 31 30 29 29 2f  31 30 0d 0d 34 11 4d 25  |%)*10))/10..4.M%|
00001820  3d 36 30 2a 28 52 41 2d  52 25 29 0d 0d 3e 0c 48  |=60*(RA-R%)..>.H|
00001830  24 3d c3 28 52 25 29 0d  0d 48 19 e7 20 a9 28 48  |$=.(R%)..H.. .(H|
00001840  24 29 3d 31 20 8c 20 48  24 3d 22 20 22 2b 48 24  |$)=1 . H$=" "+H$|
00001850  0d 0d 52 0c 4d 24 3d c3  28 4d 25 29 0d 0d 5c 19  |..R.M$=.(M%)..\.|
00001860  e7 20 a9 28 4d 24 29 3d  31 20 8c 20 4d 24 3d 22  |. .(M$)=1 . M$="|
00001870  20 22 2b 4d 24 0d 0d 66  04 0d 0d 70 1c e7 20 44  | "+M$..f...p.. D|
00001880  45 3c 30 20 8c 20 53 24  3d 22 2d 22 20 8b 20 53  |E<0 . S$="-" . S|
00001890  24 3d 22 2b 22 0d 0d 7a  0c 54 41 3d 94 28 44 45  |$="+"..z.TA=.(DE|
000018a0  29 0d 0d 84 09 52 25 3d  54 41 0d 0d 8e 11 4d 25  |)....R%=TA....M%|
000018b0  3d 36 30 2a 28 54 41 2d  52 25 29 0d 0d 98 0c 44  |=60*(TA-R%)....D|
000018c0  24 3d c3 28 52 25 29 0d  0d a2 19 e7 20 a9 28 44  |$=.(R%)..... .(D|
000018d0  24 29 3d 31 20 8c 20 44  24 3d 22 20 22 2b 44 24  |$)=1 . D$=" "+D$|
000018e0  0d 0d ac 0c 6d 24 3d c3  28 4d 25 29 0d 0d b6 19  |....m$=.(M%)....|
000018f0  e7 20 a9 28 6d 24 29 3d  31 20 8c 20 6d 24 3d 22  |. .(m$)=1 . m$="|
00001900  20 22 2b 6d 24 0d 0d c0  17 f2 5f 53 45 4e 44 28  | "+m$....._SEND(|
00001910  48 24 2b 4d 24 2b 44 24  2b 6d 24 29 0d 0d ca 17  |H$+M$+D$+m$)....|
00001920  f1 8a 34 2c 31 32 29 48  24 22 5f 22 3b 4d 3b 89  |..4,12)H$"_";M;.|
00001930  28 34 29 0d 0d d4 18 f1  8a 32 34 2c 31 32 29 53  |(4)......24,12)S|
00001940  24 3b 44 24 3b 22 5f 22  3b 6d 24 0d 0d de 04 0d  |$;D$;"_";m$.....|
00001950  0d e8 05 e1 0d 0d f2 04  0d 0d fc 0c dd 20 f2 5f  |............. ._|
00001960  49 4e 49 54 0d 0e 06 12  e3 20 41 25 3d 30 20 b8  |INIT..... A%=0 .|
00001970  20 33 20 88 20 32 0d 0e  10 0c 50 25 3d 43 4f 44  | 3 . 2....P%=COD|
00001980  45 25 0d 0e 1a 05 5b 0d  0e 24 0a 4f 50 54 20 41  |E%....[..$.OPT A|
00001990  25 0d 0e 2e 2f 2e 52 41  20 45 51 55 44 20 30 20  |%.../.RA EQUD 0 |
000019a0  5c 20 53 70 61 63 65 20  66 6f 72 20 52 41 20 74  |\ Space for RA t|
000019b0  65 6c 65 73 63 6f 70 65  20 72 65 61 64 69 6e 67  |elescope reading|
000019c0  0d 0e 38 38 2e 44 45 20  45 51 55 44 20 30 20 5c  |..88.DE EQUD 0 \|
000019d0  20 53 70 61 63 65 20 66  6f 72 20 44 65 63 6c 69  | Space for Decli|
000019e0  6e 61 74 69 6f 6e 20 74  65 6c 65 73 63 6f 70 65  |nation telescope|
000019f0  20 72 65 61 64 69 6e 67  0d 0e 42 34 2e 4c 54 20  | reading..B4.LT |
00001a00  45 51 55 44 20 30 20 5c  20 53 74 6f 72 65 20 66  |EQUD 0 \ Store f|
00001a10  6f 72 20 6c 61 73 74 20  72 65 63 69 65 76 65 64  |or last recieved|
00001a20  20 73 65 72 69 61 6c 20  62 79 74 65 0d 0e 4c 4b  | serial byte..LK|
00001a30  2e 4e 43 20 45 51 55 44  20 30 20 5c 20 53 74 6f  |.NC EQUD 0 \ Sto|
00001a40  72 65 20 66 6f 72 20 4e  6f 20 43 68 61 6e 67 65  |re for No Change|
00001a50  20 66 6c 61 67 20 3c 3e  20 30 20 69 66 20 6c 61  | flag <> 0 if la|
00001a60  73 74 20 62 79 74 65 20  73 61 6d 65 20 61 73 20  |st byte same as |
00001a70  63 75 72 72 65 6e 74 0d  0e 56 1f 2e 4c 4f 4f 4b  |current..V..LOOK|
00001a80  20 5c 20 4c 4f 4f 4b 20  41 54 20 53 45 52 49 41  | \ LOOK AT SERIA|
00001a90  4c 20 50 4f 52 54 0d 0e  60 2a 53 54 4d 46 44 20  |L PORT..`*STMFD |
00001aa0  28 31 33 29 21 2c 7b 31  34 7d 20 5c 20 53 61 76  |(13)!,{14} \ Sav|
00001ab0  65 20 72 65 74 75 72 6e  20 61 64 64 72 65 73 73  |e return address|
00001ac0  0d 0e 6a 1e 4c 44 52 20  52 38 2c 4e 43 20 5c 20  |..j.LDR R8,NC \ |
00001ad0  4e 6f 20 63 68 61 6e 67  65 20 66 6c 61 67 0d 0e  |No change flag..|
00001ae0  74 27 4c 44 52 20 52 33  2c 4c 54 20 5c 20 47 65  |t'LDR R3,LT \ Ge|
00001af0  74 20 6c 61 73 74 20 72  65 63 69 65 76 65 64 20  |t last recieved |
00001b00  76 61 6c 75 65 0d 0e 7e  20 4c 44 52 20 52 36 2c  |value..~ LDR R6,|
00001b10  44 45 20 5c 20 47 65 74  20 44 45 43 20 70 6f 73  |DE \ Get DEC pos|
00001b20  69 74 69 6f 6e 0d 0e 88  1f 4c 44 52 20 52 37 2c  |ition....LDR R7,|
00001b30  52 41 20 5c 20 47 65 74  20 52 41 20 70 6f 73 69  |RA \ Get RA posi|
00001b40  74 69 6f 6e 0d 0e 92 31  4d 4f 56 20 52 30 2c 23  |tion...1MOV R0,#|
00001b50  34 20 5c 20 45 78 74 72  61 63 74 20 61 20 62 79  |4 \ Extract a by|
00001b60  74 65 20 66 72 6f 6d 20  73 65 72 69 61 6c 20 62  |te from serial b|
00001b70  75 66 66 65 72 0d 0e 9c  04 0d 0e a6 0a 2e 41 67  |uffer.........Ag|
00001b80  61 69 6e 0d 0e b0 3f 53  57 49 20 22 4f 53 5f 53  |ain...?SWI "OS_S|
00001b90  65 72 69 61 6c 4f 70 22  20 5c 20 50 75 74 20 69  |erialOp" \ Put i|
00001ba0  74 20 69 6e 20 52 31 20  6f 72 20 53 65 74 20 43  |t in R1 or Set C|
00001bb0  61 72 72 79 20 66 6c 61  67 20 69 66 20 65 6d 70  |arry flag if emp|
00001bc0  74 79 0d 0e ba 0c 42 43  53 20 65 78 69 74 0d 0e  |ty....BCS exit..|
00001bd0  c4 04 0d 0e ce 2c 5c 20  54 65 73 74 20 74 6f 20  |.....,\ Test to |
00001be0  73 65 65 20 69 66 20 6e  6f 20 63 68 61 6e 67 65  |see if no change|
00001bf0  20 28 70 75 73 68 20 62  75 74 74 6f 6e 29 0d 0e  | (push button)..|
00001c00  d8 0d 43 4d 50 20 52 31  2c 52 33 0d 0e e2 2e 41  |..CMP R1,R3....A|
00001c10  44 44 45 51 20 52 38 2c  52 38 2c 23 31 20 5c 20  |DDEQ R8,R8,#1 \ |
00001c20  49 6e 63 72 65 6d 65 6e  74 20 52 38 20 69 66 20  |Increment R8 if |
00001c30  6e 6f 20 63 68 61 6e 67  65 0d 0e ec 27 4d 4f 56  |no change...'MOV|
00001c40  4e 45 20 52 38 2c 23 30  20 20 20 20 5c 20 43 6c  |NE R8,#0    \ Cl|
00001c50  65 61 72 20 52 38 20 69  66 20 63 68 61 6e 67 65  |ear R8 if change|
00001c60  0d 0e f6 04 0d 0f 00 12  5c 20 46 69 72 73 74 20  |........\ First |
00001c70  64 6f 20 44 45 43 0d 0f  0a 25 4d 4f 56 20 52 32  |do DEC...%MOV R2|
00001c80  2c 52 31 20 20 20 20 20  5c 20 4d 61 6b 65 20 61  |,R1     \ Make a|
00001c90  20 63 6f 70 79 20 69 6e  20 52 32 0d 0f 14 27 80  | copy in R2...'.|
00001ca0  20 52 32 2c 52 32 2c 23  26 46 20 5c 20 4c 65 61  | R2,R2,#&F \ Lea|
00001cb0  76 65 20 6f 6e 6c 79 20  44 45 43 20 4e 75 6d 62  |ve only DEC Numb|
00001cc0  65 72 0d 0f 1e 2a 4d 4f  56 20 52 34 2c 52 33 20  |er...*MOV R4,R3 |
00001cd0  20 20 20 20 5c 20 4d 61  6b 65 20 63 6f 70 79 20  |    \ Make copy |
00001ce0  6f 66 20 6c 61 73 74 20  62 79 74 65 0d 0f 28 27  |of last byte..('|
00001cf0  80 20 52 34 2c 52 34 2c  23 26 46 20 5c 20 4c 65  |. R4,R4,#&F \ Le|
00001d00  61 76 65 20 6f 6e 6c 79  20 44 45 43 20 6e 75 6d  |ave only DEC num|
00001d10  62 65 72 0d 0f 32 2d 53  55 42 20 52 35 2c 52 32  |ber..2-SUB R5,R2|
00001d20  2c 52 34 20 20 5c 20 44  69 66 66 65 72 61 6e 63  |,R4  \ Differanc|
00001d30  65 20 66 72 6f 6d 20 6c  61 73 74 20 74 69 6d 65  |e from last time|
00001d40  0d 0f 3c 0d 43 4d 50 20  52 35 2c 23 37 0d 0f 46  |..<.CMP R5,#7..F|
00001d50  13 53 55 42 47 54 20 52  35 2c 52 35 2c 23 31 36  |.SUBGT R5,R5,#16|
00001d60  0d 0f 50 0f 43 4d 4e 20  20 20 52 35 2c 23 37 0d  |..P.CMN   R5,#7.|
00001d70  0f 5a 13 41 44 44 4c 54  20 52 35 2c 52 35 2c 23  |.Z.ADDLT R5,R5,#|
00001d80  31 36 0d 0f 64 27 41 44  44 20 52 36 2c 52 36 2c  |16..d'ADD R6,R6,|
00001d90  52 35 20 20 20 20 5c 20  41 64 64 20 69 74 20 69  |R5    \ Add it i|
00001da0  6e 74 6f 20 74 6f 74 61  6c 0d 0f 6e 04 0d 0f 78  |nto total..n...x|
00001db0  10 5c 20 4e 65 78 74 20  64 6f 20 52 41 0d 0f 82  |.\ Next do RA...|
00001dc0  27 4d 4f 56 20 52 32 2c  52 31 2c 4c 53 52 23 34  |'MOV R2,R1,LSR#4|
00001dd0  20 5c 20 4d 61 6b 65 20  61 20 63 6f 70 79 20 69  | \ Make a copy i|
00001de0  6e 20 52 32 0d 0f 8c 28  80 20 52 32 2c 52 32 2c  |n R2...(. R2,R2,|
00001df0  23 26 46 20 20 20 5c 20  4c 65 61 76 65 20 6f 6e  |#&F   \ Leave on|
00001e00  6c 79 20 52 41 20 4e 75  6d 62 65 72 0d 0f 96 2c  |ly RA Number...,|
00001e10  4d 4f 56 20 52 34 2c 52  33 2c 4c 53 52 23 34 20  |MOV R4,R3,LSR#4 |
00001e20  5c 20 4d 61 6b 65 20 63  6f 70 79 20 6f 66 20 6c  |\ Make copy of l|
00001e30  61 73 74 20 62 79 74 65  0d 0f a0 28 80 20 52 34  |ast byte...(. R4|
00001e40  2c 52 34 2c 23 26 46 20  20 20 5c 20 4c 65 61 76  |,R4,#&F   \ Leav|
00001e50  65 20 6f 6e 6c 79 20 52  41 20 6e 75 6d 62 65 72  |e only RA number|
00001e60  0d 0f aa 2f 53 55 42 20  52 35 2c 52 32 2c 52 34  |.../SUB R5,R2,R4|
00001e70  20 20 20 20 5c 20 44 69  66 66 65 72 61 6e 63 65  |    \ Differance|
00001e80  20 66 72 6f 6d 20 6c 61  73 74 20 74 69 6d 65 0d  | from last time.|
00001e90  0f b4 0d 43 4d 50 20 52  35 2c 23 37 0d 0f be 13  |...CMP R5,#7....|
00001ea0  53 55 42 47 54 20 52 35  2c 52 35 2c 23 31 36 0d  |SUBGT R5,R5,#16.|
00001eb0  0f c8 0d 43 4d 4e 20 52  35 2c 23 37 0d 0f d2 13  |...CMN R5,#7....|
00001ec0  41 44 44 4c 54 20 52 35  2c 52 35 2c 23 31 36 0d  |ADDLT R5,R5,#16.|
00001ed0  0f dc 27 41 44 44 20 52  37 2c 52 37 2c 52 35 20  |..'ADD R7,R7,R5 |
00001ee0  20 20 20 5c 20 41 64 64  20 69 74 20 69 6e 74 6f  |   \ Add it into|
00001ef0  20 74 6f 74 61 6c 0d 0f  e6 04 0d 0f f0 2b 4d 4f  | total.......+MO|
00001f00  56 20 52 33 2c 52 31 20  5c 20 53 61 76 65 20 6e  |V R3,R1 \ Save n|
00001f10  65 77 20 6c 61 73 74 20  72 65 63 69 65 76 65 64  |ew last recieved|
00001f20  20 62 79 74 65 0d 0f fa  0d 42 41 4c 20 41 67 61  | byte....BAL Aga|
00001f30  69 6e 0d 10 04 09 2e 65  78 69 74 0d 10 0e 1a 53  |in.....exit....S|
00001f40  54 52 20 52 33 2c 4c 54  20 5c 53 61 76 65 20 76  |TR R3,LT \Save v|
00001f50  61 6c 75 65 73 0d 10 18  0d 53 54 52 20 52 36 2c  |alues....STR R6,|
00001f60  44 45 0d 10 22 0d 53 54  52 20 52 37 2c 52 41 0d  |DE..".STR R7,RA.|
00001f70  10 2c 0d 53 54 52 20 52  38 2c 4e 43 0d 10 36 24  |.,.STR R8,NC..6$|
00001f80  4c 44 4d 46 44 20 28 31  33 29 21 2c 7b 31 35 7d  |LDMFD (13)!,{15}|
00001f90  20 5c 20 42 61 63 6b 20  74 6f 20 42 41 53 49 43  | \ Back to BASIC|
00001fa0  0d 10 40 05 5d 0d 10 4a  05 ed 0d 10 54 0a f7 20  |..@.]..J....T.. |
00001fb0  8d 74 50 50 0d 10 5e 12  e3 20 41 25 3d 31 20 b8  |.tPP..^.. A%=1 .|
00001fc0  20 56 4d 41 58 25 0d 10  68 0f f3 20 44 69 73 4d  | VMAX%..h.. DisM|
00001fd0  24 28 41 25 29 0d 10 72  05 ed 0d 10 7c 05 e1 0d  |$(A%)..r....|...|
00001fe0  10 86 04 0d 10 90 10 dc  20 22 42 61 63 6b 20 20  |........ "Back  |
00001ff0  20 20 22 0d 10 9a 3c dc  20 22 53 65 6c 20 43 61  |  "...<. "Sel Ca|
00002000  6c 20 22 2c 22 43 61 6c  20 55 6e 69 74 22 2c 22  |l ","Cal Unit","|
00002010  44 69 6d 20 44 69 73 70  22 2c 22 46 69 6e 64 4d  |Dim Disp","FindM|
00002020  65 73 73 22 2c 22 54 69  63 6b 20 4f 6e 20 22 0d  |ess","Tick On ".|
00002030  10 a4 04 0d 10 ae 10 dd  20 f2 5f 53 45 4e 44 28  |........ ._SEND(|
00002040  4d 24 29 0d 10 b8 0e ea  20 41 25 2c 54 25 2c 43  |M$)..... A%,T%,C|
00002050  25 0d 10 c2 0e e3 20 41  25 3d 30 20 b8 20 37 0d  |%..... A%=0 . 7.|
00002060  10 cc 17 54 25 3d 28 41  25 20 84 20 26 38 30 29  |...T%=(A% . &80)|
00002070  20 84 20 41 4c 25 0d 10  d6 19 c8 99 20 22 4f 53  | . AL%...... "OS|
00002080  5f 53 65 72 69 61 6c 4f  70 22 2c 33 2c 54 25 0d  |_SerialOp",3,T%.|
00002090  10 e0 15 43 25 3d 97 28  c1 4d 24 2c 41 25 2b 31  |...C%=.(.M$,A%+1|
000020a0  2c 31 29 29 0d 10 ea 19  c8 99 20 22 4f 53 5f 53  |,1))...... "OS_S|
000020b0  65 72 69 61 6c 4f 70 22  2c 33 2c 43 25 0d 10 f4  |erialOp",3,C%...|
000020c0  05 ed 0d 10 fe 05 e1 0d  11 08 04 0d 11 12 0f dd  |................|
000020d0  20 f2 5f 44 49 4d 28 42  25 29 0d 11 1c 17 42 25  | ._DIM(B%)....B%|
000020e0  3d 28 28 42 25 20 80 20  37 29 20 82 20 37 29 2a  |=((B% . 7) . 7)*|
000020f0  38 0d 11 26 20 c8 99 20  22 4f 53 5f 53 65 72 69  |8..& .. "OS_Seri|
00002100  61 6c 4f 70 22 2c 33 2c  26 38 38 20 84 20 41 4c  |alOp",3,&88 . AL|
00002110  25 0d 11 30 19 c8 99 20  22 4f 53 5f 53 65 72 69  |%..0... "OS_Seri|
00002120  61 6c 4f 70 22 2c 33 2c  42 25 0d 11 3a 20 c8 99  |alOp",3,B%..: ..|
00002130  20 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 33  | "OS_SerialOp",3|
00002140  2c 26 38 43 20 84 20 41  4c 25 0d 11 44 19 c8 99  |,&8C . AL%..D...|
00002150  20 22 4f 53 5f 53 65 72  69 61 6c 4f 70 22 2c 33  | "OS_SerialOp",3|
00002160  2c 42 25 0d 11 4e 05 e1  0d 11 58 04 0d 11 62 0c  |,B%..N....X...b.|
00002170  dd 20 f2 5f 54 6d 61 74  0d 11 6c 17 f4 20 53 74  |. ._Tmat..l.. St|
00002180  61 6e 64 61 72 64 20 70  6f 73 69 74 69 6f 6e 0d  |andard position.|
00002190  11 76 13 44 3d b2 28 53  44 45 43 28 53 53 31 25  |.v.D=.(SDEC(SS1%|
000021a0  29 29 0d 11 80 1b 52 3d  b2 28 53 52 41 28 53 53  |))....R=.(SRA(SS|
000021b0  31 25 29 2d 4b 2a 54 72  65 66 31 25 29 0d 11 8a  |1%)-K*Tref1%)...|
000021c0  14 59 28 30 2c 30 29 3d  9b 28 44 29 2a 9b 28 52  |.Y(0,0)=.(D)*.(R|
000021d0  29 0d 11 94 14 59 28 31  2c 30 29 3d 9b 28 44 29  |)....Y(1,0)=.(D)|
000021e0  2a b5 28 52 29 0d 11 9e  0f 59 28 32 2c 30 29 3d  |*.(R)....Y(2,0)=|
000021f0  b5 28 44 29 0d 11 a8 04  0d 11 b2 13 44 3d b2 28  |.(D)........D=.(|
00002200  53 44 45 43 28 53 53 32  25 29 29 0d 11 bc 1b 52  |SDEC(SS2%))....R|
00002210  3d b2 28 53 52 41 28 53  53 32 25 29 2d 4b 2a 54  |=.(SRA(SS2%)-K*T|
00002220  72 65 66 32 25 29 0d 11  c6 14 59 28 30 2c 31 29  |ref2%)....Y(0,1)|
00002230  3d 9b 28 44 29 2a 9b 28  52 29 0d 11 d0 14 59 28  |=.(D)*.(R)....Y(|
00002240  31 2c 31 29 3d 9b 28 44  29 2a b5 28 52 29 0d 11  |1,1)=.(D)*.(R)..|
00002250  da 0f 59 28 32 2c 31 29  3d b5 28 44 29 0d 11 e4  |..Y(2,1)=.(D)...|
00002260  04 0d 11 ee 17 f4 20 4f  62 73 65 72 76 65 64 20  |...... Observed |
00002270  70 6f 73 69 74 69 6f 6e  0d 11 f8 13 44 3d b2 28  |position....D=.(|
00002280  53 44 45 43 28 53 53 31  25 29 29 0d 12 02 12 52  |SDEC(SS1%))....R|
00002290  3d b2 28 53 52 41 28 53  53 31 25 29 29 0d 12 0c  |=.(SRA(SS1%))...|
000022a0  14 58 28 30 2c 30 29 3d  9b 28 44 29 2a 9b 28 52  |.X(0,0)=.(D)*.(R|
000022b0  29 0d 12 16 14 58 28 31  2c 30 29 3d 9b 28 44 29  |)....X(1,0)=.(D)|
000022c0  2a b5 28 52 29 0d 12 20  0f 58 28 32 2c 30 29 3d  |*.(R).. .X(2,0)=|
000022d0  b5 28 44 29 0d 12 2a 04  0d 12 34 0d 44 3d b2 28  |.(D)..*...4.D=.(|
000022e0  52 66 44 61 29 0d 12 3e  0d 52 3d b2 28 52 66 52  |RfDa)..>.R=.(RfR|
000022f0  61 29 0d 12 48 14 58 28  30 2c 31 29 3d 9b 28 44  |a)..H.X(0,1)=.(D|
00002300  29 2a 9b 28 52 29 0d 12  52 14 58 28 31 2c 31 29  |)*.(R)..R.X(1,1)|
00002310  3d 9b 28 44 29 2a b5 28  52 29 0d 12 5c 0f 58 28  |=.(D)*.(R)..\.X(|
00002320  32 2c 31 29 3d b5 28 44  29 0d 12 66 04 0d 12 70  |2,1)=.(D)..f...p|
00002330  32 f4 20 57 6f 72 6b 20  6f 75 74 20 74 68 65 20  |2. Work out the |
00002340  56 65 63 74 6f 72 20 70  72 6f 64 75 63 74 20 66  |Vector product f|
00002350  6f 72 20 74 68 69 72 64  20 63 6f 6c 6f 75 6d 0d  |or third coloum.|
00002360  12 7a 26 58 28 30 2c 32  29 3d 58 28 31 2c 30 29  |.z&X(0,2)=X(1,0)|
00002370  2a 58 28 32 2c 31 29 2d  58 28 32 2c 30 29 2a 58  |*X(2,1)-X(2,0)*X|
00002380  28 31 2c 31 29 0d 12 84  26 58 28 31 2c 32 29 3d  |(1,1)...&X(1,2)=|
00002390  58 28 32 2c 30 29 2a 58  28 30 2c 31 29 2d 58 28  |X(2,0)*X(0,1)-X(|
000023a0  30 2c 30 29 2a 58 28 32  2c 31 29 0d 12 8e 26 58  |0,0)*X(2,1)...&X|
000023b0  28 32 2c 32 29 3d 58 28  30 2c 30 29 2a 58 28 31  |(2,2)=X(0,0)*X(1|
000023c0  2c 31 29 2d 58 28 31 2c  30 29 2a 58 28 30 2c 31  |,1)-X(1,0)*X(0,1|
000023d0  29 0d 12 98 24 54 4d 3d  b6 28 58 28 30 2c 32 29  |)...$TM=.(X(0,2)|
000023e0  5e 32 2b 58 28 31 2c 32  29 5e 32 2b 58 28 32 2c  |^2+X(1,2)^2+X(2,|
000023f0  32 29 5e 32 29 0d 12 a2  11 e7 20 54 4d 3d 30 20  |2)^2)..... TM=0 |
00002400  8c 20 54 4d 3d 31 0d 12  ac 0e e3 20 41 25 3d 30  |. TM=1..... A%=0|
00002410  20 b8 20 32 0d 12 b6 16  58 28 41 25 2c 32 29 3d  | . 2....X(A%,2)=|
00002420  58 28 41 25 2c 32 29 2f  54 4d 0d 12 c0 05 ed 0d  |X(A%,2)/TM......|
00002430  12 ca 04 0d 12 d4 26 59  28 30 2c 32 29 3d 59 28  |......&Y(0,2)=Y(|
00002440  31 2c 30 29 2a 59 28 32  2c 31 29 2d 59 28 32 2c  |1,0)*Y(2,1)-Y(2,|
00002450  30 29 2a 59 28 31 2c 31  29 0d 12 de 26 59 28 31  |0)*Y(1,1)...&Y(1|
00002460  2c 32 29 3d 59 28 32 2c  30 29 2a 59 28 30 2c 31  |,2)=Y(2,0)*Y(0,1|
00002470  29 2d 59 28 30 2c 30 29  2a 59 28 32 2c 31 29 0d  |)-Y(0,0)*Y(2,1).|
00002480  12 e8 26 59 28 32 2c 32  29 3d 59 28 30 2c 30 29  |..&Y(2,2)=Y(0,0)|
00002490  2a 59 28 31 2c 31 29 2d  59 28 31 2c 30 29 2a 59  |*Y(1,1)-Y(1,0)*Y|
000024a0  28 30 2c 31 29 0d 12 f2  24 54 4d 3d b6 28 59 28  |(0,1)...$TM=.(Y(|
000024b0  30 2c 32 29 5e 32 2b 59  28 31 2c 32 29 5e 32 2b  |0,2)^2+Y(1,2)^2+|
000024c0  59 28 32 2c 32 29 5e 32  29 0d 12 fc 11 e7 20 54  |Y(2,2)^2)..... T|
000024d0  4d 3d 30 20 8c 20 54 4d  3d 31 0d 13 06 0e e3 20  |M=0 . TM=1..... |
000024e0  41 25 3d 30 20 b8 20 32  0d 13 10 16 59 28 41 25  |A%=0 . 2....Y(A%|
000024f0  2c 32 29 3d 59 28 41 25  2c 32 29 2f 54 4d 0d 13  |,2)=Y(A%,2)/TM..|
00002500  1a 05 ed 0d 13 24 04 0d  13 2e 0d f2 5f 4d 61 74  |.....$......_Mat|
00002510  49 6e 76 59 0d 13 38 0f  54 28 29 3d 58 28 29 2e  |InvY..8.T()=X().|
00002520  59 28 29 0d 13 42 1d 59  28 29 3d 54 28 29 3a f2  |Y()..B.Y()=T():.|
00002530  5f 4d 61 74 49 6e 76 59  3a 54 28 29 3d 59 28 29  |_MatInvY:T()=Y()|
00002540  0d 13 4c 0f f4 20 50 52  4f 43 5f 44 49 53 50 0d  |..L.. PROC_DISP.|
00002550  13 56 05 e1 0d 13 60 04  0d 13 6a 17 dd 20 f2 5f  |.V....`...j.. ._|
00002560  47 65 74 53 63 6f 70 65  28 53 59 2c 53 58 29 0d  |GetScope(SY,SX).|
00002570  13 74 0b ea 20 48 2c 43  2c 46 0d 13 7e 0c 54 72  |.t.. H,C,F..~.Tr|
00002580  65 66 4d 25 3d 91 0d 13  88 0c 53 58 3d b2 28 53  |efM%=.....SX=.(S|
00002590  58 29 0d 13 92 0c 53 59  3d b2 28 53 59 29 0d 13  |X)....SY=.(SY)..|
000025a0  9c 04 0d 13 a6 15 54 43  28 30 29 3d 9b 28 53 58  |......TC(0)=.(SX|
000025b0  29 2a 9b 28 53 59 29 0d  13 b0 15 54 43 28 31 29  |)*.(SY)....TC(1)|
000025c0  3d 9b 28 53 58 29 2a b5  28 53 59 29 0d 13 ba 0f  |=.(SX)*.(SY)....|
000025d0  54 43 28 32 29 3d b5 28  53 58 29 0d 13 c4 11 45  |TC(2)=.(SX)....E|
000025e0  51 28 29 3d 54 28 29 2e  54 43 28 29 0d 13 ce 04  |Q()=T().TC()....|
000025f0  0d 13 d8 20 43 3d b6 28  45 51 28 30 29 2a 45 51  |... C=.(EQ(0)*EQ|
00002600  28 30 29 2b 45 51 28 31  29 2a 45 51 28 31 29 29  |(0)+EQ(1)*EQ(1))|
00002610  0d 13 e2 1a e7 20 43 3d  30 20 80 20 45 51 28 32  |..... C=0 . EQ(2|
00002620  29 3e 30 20 8c 20 48 3d  39 30 0d 13 ec 1b e7 20  |)>0 . H=90..... |
00002630  43 3d 30 20 80 20 45 51  28 32 29 3c 30 20 8c 20  |C=0 . EQ(2)<0 . |
00002640  48 3d 2d 39 30 0d 13 f6  1c e7 20 43 3c 3e 30 20  |H=-90..... C<>0 |
00002650  8c 20 48 3d 9d 28 99 28  45 51 28 32 29 2f 43 29  |. H=.(.(EQ(2)/C)|
00002660  29 0d 14 00 12 e7 20 43  3d 30 20 8c 20 46 3d 31  |)..... C=0 . F=1|
00002670  30 30 30 0d 14 0a 25 e7  20 43 3c 3e 30 20 80 20  |000...%. C<>0 . |
00002680  45 51 28 30 29 3d 30 20  80 20 45 51 28 31 29 3e  |EQ(0)=0 . EQ(1)>|
00002690  30 20 8c 20 46 3d 39 30  0d 14 14 26 e7 20 43 3c  |0 . F=90...&. C<|
000026a0  3e 30 20 80 20 45 51 28  30 29 3d 30 20 80 20 45  |>0 . EQ(0)=0 . E|
000026b0  51 28 31 29 3c 30 20 8c  20 46 3d 32 37 30 0d 14  |Q(1)<0 . F=270..|
000026c0  1e 23 e7 20 45 51 28 30  29 3e 30 20 8c 20 46 3d  |.#. EQ(0)>0 . F=|
000026d0  9d 28 99 28 45 51 28 31  29 2f 45 51 28 30 29 29  |.(.(EQ(1)/EQ(0))|
000026e0  29 0d 14 28 27 e7 20 45  51 28 30 29 3c 30 20 8c  |)..('. EQ(0)<0 .|
000026f0  20 46 3d 9d 28 99 28 45  51 28 31 29 2f 45 51 28  | F=.(.(EQ(1)/EQ(|
00002700  30 29 29 29 2b 31 38 30  0d 14 32 10 46 3d 46 2b  |0)))+180..2.F=F+|
00002710  4b 2a 54 72 65 66 4d 25  0d 14 3c 14 46 3d 46 2d  |K*TrefM%..<.F=F-|
00002720  a8 28 46 2f 33 36 30 29  2a 33 36 30 0d 14 46 0d  |.(F/360)*360..F.|
00002730  52 61 3d 46 3a 44 61 3d  48 0d 14 50 1e f4 20 50  |Ra=F:Da=H..P.. P|
00002740  52 49 4e 54 22 44 45 43  20 22 3b 48 3b 22 20 20  |RINT"DEC ";H;"  |
00002750  52 41 20 20 22 3b 46 0d  14 5a 05 e1 0d 14 64 04  |RA  ";F..Z....d.|
00002760  0d 14 6e 0c dd 20 f2 5f  44 49 53 50 0d 14 78 0e  |..n.. ._DISP..x.|
00002770  e3 20 41 25 3d 30 20 b8  20 32 0d 14 82 0e e3 20  |. A%=0 . 2..... |
00002780  42 25 3d 30 20 b8 20 32  0d 14 8c 14 f1 54 28 41  |B%=0 . 2.....T(A|
00002790  25 2c 42 25 29 3b 22 20  7c 20 22 3b 0d 14 96 05  |%,B%);" | ";....|
000027a0  ed 0d 14 a0 05 f1 0d 14  aa 05 ed 0d 14 b4 07 f1  |................|
000027b0  3a f1 0d 14 be 05 e1 0d  14 c8 04 0d 14 d2 0f dd  |:...............|
000027c0  20 f2 5f 4d 61 74 49 6e  76 59 0d 14 dc 1a f4 20  | ._MatInvY..... |
000027d0  46 69 6e 64 20 74 68 65  20 64 65 74 65 72 6d 69  |Find the determi|
000027e0  6e 61 74 65 0d 14 e6 1a  44 3d 59 28 30 2c 30 29  |nate....D=Y(0,0)|
000027f0  2a 59 28 31 2c 31 29 2a  59 28 32 2c 32 29 0d 14  |*Y(1,1)*Y(2,2)..|
00002800  f0 1c 44 3d 44 2d 59 28  30 2c 30 29 2a 59 28 31  |..D=D-Y(0,0)*Y(1|
00002810  2c 32 29 2a 59 28 32 2c  31 29 0d 14 fa 1c 44 3d  |,2)*Y(2,1)....D=|
00002820  44 2b 59 28 30 2c 31 29  2a 59 28 31 2c 32 29 2a  |D+Y(0,1)*Y(1,2)*|
00002830  59 28 32 2c 30 29 0d 15  04 1c 44 3d 44 2d 59 28  |Y(2,0)....D=D-Y(|
00002840  30 2c 31 29 2a 59 28 31  2c 30 29 2a 59 28 32 2c  |0,1)*Y(1,0)*Y(2,|
00002850  32 29 0d 15 0e 1c 44 3d  44 2b 59 28 30 2c 32 29  |2)....D=D+Y(0,2)|
00002860  2a 59 28 31 2c 30 29 2a  59 28 32 2c 31 29 0d 15  |*Y(1,0)*Y(2,1)..|
00002870  18 1c 44 3d 44 2d 59 28  30 2c 32 29 2a 59 28 31  |..D=D-Y(0,2)*Y(1|
00002880  2c 31 29 2a 59 28 32 2c  30 29 0d 15 22 04 0d 15  |,1)*Y(2,0).."...|
00002890  2c 32 f4 20 46 69 6e 64  20 74 68 65 20 63 6f 66  |,2. Find the cof|
000028a0  61 63 74 6f 72 73 20 61  6e 64 20 74 72 61 6e 73  |actors and trans|
000028b0  70 6f 73 65 20 74 6f 20  67 69 76 65 20 61 64 6a  |pose to give adj|
000028c0  0d 15 36 26 4d 28 30 2c  30 29 3d 59 28 31 2c 31  |..6&M(0,0)=Y(1,1|
000028d0  29 2a 59 28 32 2c 32 29  2d 59 28 32 2c 31 29 2a  |)*Y(2,2)-Y(2,1)*|
000028e0  59 28 31 2c 32 29 0d 15  40 27 4d 28 30 2c 31 29  |Y(1,2)..@'M(0,1)|
000028f0  3d 2d 59 28 30 2c 31 29  2a 59 28 32 2c 32 29 2b  |=-Y(0,1)*Y(2,2)+|
00002900  59 28 32 2c 31 29 2a 59  28 30 2c 32 29 0d 15 4a  |Y(2,1)*Y(0,2)..J|
00002910  26 4d 28 30 2c 32 29 3d  59 28 30 2c 31 29 2a 59  |&M(0,2)=Y(0,1)*Y|
00002920  28 31 2c 32 29 2d 59 28  31 2c 31 29 2a 59 28 30  |(1,2)-Y(1,1)*Y(0|
00002930  2c 32 29 0d 15 54 04 0d  15 5e 27 4d 28 31 2c 30  |,2)..T...^'M(1,0|
00002940  29 3d 2d 59 28 31 2c 30  29 2a 59 28 32 2c 32 29  |)=-Y(1,0)*Y(2,2)|
00002950  2b 59 28 32 2c 30 29 2a  59 28 31 2c 32 29 0d 15  |+Y(2,0)*Y(1,2)..|
00002960  68 26 4d 28 31 2c 31 29  3d 59 28 30 2c 30 29 2a  |h&M(1,1)=Y(0,0)*|
00002970  59 28 32 2c 32 29 2d 59  28 32 2c 30 29 2a 59 28  |Y(2,2)-Y(2,0)*Y(|
00002980  30 2c 32 29 0d 15 72 27  4d 28 31 2c 32 29 3d 2d  |0,2)..r'M(1,2)=-|
00002990  59 28 30 2c 30 29 2a 59  28 31 2c 32 29 2b 59 28  |Y(0,0)*Y(1,2)+Y(|
000029a0  31 2c 30 29 2a 59 28 30  2c 32 29 0d 15 7c 04 0d  |1,0)*Y(0,2)..|..|
000029b0  15 86 26 4d 28 32 2c 30  29 3d 59 28 31 2c 30 29  |..&M(2,0)=Y(1,0)|
000029c0  2a 59 28 32 2c 31 29 2d  59 28 32 2c 30 29 2a 59  |*Y(2,1)-Y(2,0)*Y|
000029d0  28 31 2c 31 29 0d 15 90  27 4d 28 32 2c 31 29 3d  |(1,1)...'M(2,1)=|
000029e0  2d 59 28 30 2c 30 29 2a  59 28 32 2c 31 29 2b 59  |-Y(0,0)*Y(2,1)+Y|
000029f0  28 32 2c 30 29 2a 59 28  30 2c 31 29 0d 15 9a 26  |(2,0)*Y(0,1)...&|
00002a00  4d 28 32 2c 32 29 3d 59  28 30 2c 30 29 2a 59 28  |M(2,2)=Y(0,0)*Y(|
00002a10  31 2c 31 29 2d 59 28 31  2c 30 29 2a 59 28 30 2c  |1,1)-Y(1,0)*Y(0,|
00002a20  31 29 0d 15 a4 24 f4 20  46 69 6e 64 20 74 68 65  |1)...$. Find the|
00002a30  20 69 6e 76 65 72 73 65  20 6f 66 20 6d 61 74 72  | inverse of matr|
00002a40  69 78 20 59 28 29 0d 15  ae 36 e7 20 44 3c 3e 30  |ix Y()...6. D<>0|
00002a50  20 8c 20 59 28 29 3d 4d  28 29 2f 44 20 8b 20 f1  | . Y()=M()/D . .|
00002a60  22 49 6e 76 65 72 73 65  20 4d 61 74 72 69 78 20  |"Inverse Matrix |
00002a70  4e 4f 54 20 64 65 66 69  6e 65 64 22 0d 15 b8 05  |NOT defined"....|
00002a80  e1 0d 15 c2 04 0d 15 cc  0f dd 20 f2 5f 4d 61 74  |.......... ._Mat|
00002a90  49 6e 76 58 0d 15 d6 1a  f4 20 46 69 6e 64 20 74  |InvX..... Find t|
00002aa0  68 65 20 64 65 74 65 72  6d 69 6e 61 74 65 0d 15  |he determinate..|
00002ab0  e0 1a 44 3d 58 28 30 2c  30 29 2a 58 28 31 2c 31  |..D=X(0,0)*X(1,1|
00002ac0  29 2a 58 28 32 2c 32 29  0d 15 ea 1c 44 3d 44 2d  |)*X(2,2)....D=D-|
00002ad0  58 28 30 2c 30 29 2a 58  28 31 2c 32 29 2a 58 28  |X(0,0)*X(1,2)*X(|
00002ae0  32 2c 31 29 0d 15 f4 1c  44 3d 44 2b 58 28 30 2c  |2,1)....D=D+X(0,|
00002af0  31 29 2a 58 28 31 2c 32  29 2a 58 28 32 2c 30 29  |1)*X(1,2)*X(2,0)|
00002b00  0d 15 fe 1c 44 3d 44 2d  58 28 30 2c 31 29 2a 58  |....D=D-X(0,1)*X|
00002b10  28 31 2c 30 29 2a 58 28  32 2c 32 29 0d 16 08 1c  |(1,0)*X(2,2)....|
00002b20  44 3d 44 2b 58 28 30 2c  32 29 2a 58 28 31 2c 30  |D=D+X(0,2)*X(1,0|
00002b30  29 2a 58 28 32 2c 31 29  0d 16 12 1c 44 3d 44 2d  |)*X(2,1)....D=D-|
00002b40  58 28 30 2c 32 29 2a 58  28 31 2c 31 29 2a 58 28  |X(0,2)*X(1,1)*X(|
00002b50  32 2c 30 29 0d 16 1c 04  0d 16 26 32 f4 20 46 69  |2,0)......&2. Fi|
00002b60  6e 64 20 74 68 65 20 63  6f 66 61 63 74 6f 72 73  |nd the cofactors|
00002b70  20 61 6e 64 20 74 72 61  6e 73 70 6f 73 65 20 74  | and transpose t|
00002b80  6f 20 67 69 76 65 20 61  64 6a 0d 16 30 26 4d 28  |o give adj..0&M(|
00002b90  30 2c 30 29 3d 58 28 31  2c 31 29 2a 58 28 32 2c  |0,0)=X(1,1)*X(2,|
00002ba0  32 29 2d 58 28 32 2c 31  29 2a 58 28 31 2c 32 29  |2)-X(2,1)*X(1,2)|
00002bb0  0d 16 3a 27 4d 28 30 2c  31 29 3d 2d 58 28 30 2c  |..:'M(0,1)=-X(0,|
00002bc0  31 29 2a 58 28 32 2c 32  29 2b 58 28 32 2c 31 29  |1)*X(2,2)+X(2,1)|
00002bd0  2a 58 28 30 2c 32 29 0d  16 44 26 4d 28 30 2c 32  |*X(0,2)..D&M(0,2|
00002be0  29 3d 58 28 30 2c 31 29  2a 58 28 31 2c 32 29 2d  |)=X(0,1)*X(1,2)-|
00002bf0  58 28 31 2c 31 29 2a 58  28 30 2c 32 29 0d 16 4e  |X(1,1)*X(0,2)..N|
00002c00  04 0d 16 58 27 4d 28 31  2c 30 29 3d 2d 58 28 31  |...X'M(1,0)=-X(1|
00002c10  2c 30 29 2a 58 28 32 2c  32 29 2b 58 28 32 2c 30  |,0)*X(2,2)+X(2,0|
00002c20  29 2a 58 28 31 2c 32 29  0d 16 62 26 4d 28 31 2c  |)*X(1,2)..b&M(1,|
00002c30  31 29 3d 58 28 30 2c 30  29 2a 58 28 32 2c 32 29  |1)=X(0,0)*X(2,2)|
00002c40  2d 58 28 32 2c 30 29 2a  58 28 30 2c 32 29 0d 16  |-X(2,0)*X(0,2)..|
00002c50  6c 27 4d 28 31 2c 32 29  3d 2d 58 28 30 2c 30 29  |l'M(1,2)=-X(0,0)|
00002c60  2a 58 28 31 2c 32 29 2b  58 28 31 2c 30 29 2a 58  |*X(1,2)+X(1,0)*X|
00002c70  28 30 2c 32 29 0d 16 76  04 0d 16 80 26 4d 28 32  |(0,2)..v....&M(2|
00002c80  2c 30 29 3d 58 28 31 2c  30 29 2a 58 28 32 2c 31  |,0)=X(1,0)*X(2,1|
00002c90  29 2d 58 28 32 2c 30 29  2a 58 28 31 2c 31 29 0d  |)-X(2,0)*X(1,1).|
00002ca0  16 8a 27 4d 28 32 2c 31  29 3d 2d 58 28 30 2c 30  |..'M(2,1)=-X(0,0|
00002cb0  29 2a 58 28 32 2c 31 29  2b 58 28 32 2c 30 29 2a  |)*X(2,1)+X(2,0)*|
00002cc0  58 28 30 2c 31 29 0d 16  94 26 4d 28 32 2c 32 29  |X(0,1)...&M(2,2)|
00002cd0  3d 58 28 30 2c 30 29 2a  58 28 31 2c 31 29 2d 58  |=X(0,0)*X(1,1)-X|
00002ce0  28 31 2c 30 29 2a 58 28  30 2c 31 29 0d 16 9e 24  |(1,0)*X(0,1)...$|
00002cf0  f4 20 46 69 6e 64 20 74  68 65 20 69 6e 76 65 72  |. Find the inver|
00002d00  73 65 20 6f 66 20 6d 61  74 72 69 78 20 58 28 29  |se of matrix X()|
00002d10  0d 16 a8 36 e7 20 44 3c  3e 30 20 8c 20 58 28 29  |...6. D<>0 . X()|
00002d20  3d 4d 28 29 2f 44 20 8b  20 f1 22 49 6e 76 65 72  |=M()/D . ."Inver|
00002d30  73 65 20 4d 61 74 72 69  78 20 4e 4f 54 20 64 65  |se Matrix NOT de|
00002d40  66 69 6e 65 64 22 0d 16  b2 05 e1 0d 16 bc 0a dd  |fined"..........|
00002d50  20 f2 5f 54 54 0d 16 c6  11 4d 28 30 2c 30 29 3d  | ._TT....M(0,0)=|
00002d60  54 28 30 2c 30 29 0d 16  d0 11 4d 28 30 2c 31 29  |T(0,0)....M(0,1)|
00002d70  3d 54 28 31 2c 30 29 0d  16 da 11 4d 28 30 2c 32  |=T(1,0)....M(0,2|
00002d80  29 3d 54 28 32 2c 30 29  0d 16 e4 04 0d 16 ee 11  |)=T(2,0)........|
00002d90  4d 28 31 2c 30 29 3d 54  28 30 2c 31 29 0d 16 f8  |M(1,0)=T(0,1)...|
00002da0  11 4d 28 31 2c 31 29 3d  54 28 31 2c 31 29 0d 17  |.M(1,1)=T(1,1)..|
00002db0  02 11 4d 28 31 2c 32 29  3d 54 28 32 2c 31 29 0d  |..M(1,2)=T(2,1).|
00002dc0  17 0c 04 0d 17 16 11 4d  28 32 2c 30 29 3d 54 28  |.......M(2,0)=T(|
00002dd0  30 2c 32 29 0d 17 20 11  4d 28 32 2c 31 29 3d 54  |0,2).. .M(2,1)=T|
00002de0  28 31 2c 32 29 0d 17 2a  11 4d 28 32 2c 32 29 3d  |(1,2)..*.M(2,2)=|
00002df0  54 28 32 2c 32 29 0d 17  34 0b 54 28 29 3d 4d 28  |T(2,2)..4.T()=M(|
00002e00  29 0d 17 3e 05 e1 0d 17  48 04 0d 17 52 0d dd 20  |)..>....H...R.. |
00002e10  f2 5f 49 44 45 4e 54 0d  17 5c 09 54 28 29 3d 30  |._IDENT..\.T()=0|
00002e20  0d 17 66 0c 54 28 30 2c  30 29 3d 31 0d 17 70 0c  |..f.T(0,0)=1..p.|
00002e30  54 28 31 2c 31 29 3d 31  0d 17 7a 0c 54 28 32 2c  |T(1,1)=1..z.T(2,|
00002e40  32 29 3d 31 0d 17 84 05  e1 0d 17 8e 04 0d 17 98  |2)=1............|
00002e50  0b dd 20 f2 5f 52 53 53  0d 17 a2 0e ea 20 41 25  |.. ._RSS..... A%|
00002e60  2c 4c 25 2c 54 24 0d 17  ac 0a f7 20 8d 54 50 58  |,L%,T$..... .TPX|
00002e70  0d 17 b6 08 41 25 3d 30  0d 17 c0 05 f5 0d 17 ca  |....A%=0........|
00002e80  09 41 25 2b 3d 31 0d 17  d4 24 f3 20 53 43 24 28  |.A%+=1...$. SC$(|
00002e90  41 25 29 2c 4c 25 2c 54  24 2c 53 52 41 28 41 25  |A%),L%,T$,SRA(A%|
00002ea0  29 2c 53 44 45 43 28 41  25 29 0d 17 de 19 53 43  |),SDEC(A%)....SC|
00002eb0  46 24 28 41 25 29 3d bd  28 4c 25 29 2b 22 20 22  |F$(A%)=.(L%)+" "|
00002ec0  2b 54 24 0d 17 e8 1c fd  20 53 52 41 28 41 25 29  |+T$..... SRA(A%)|
00002ed0  3d 30 20 80 20 53 44 45  43 28 41 25 29 3d 30 0d  |=0 . SDEC(A%)=0.|
00002ee0  17 f2 0e 4d 58 53 44 25  3d 41 25 2d 31 0d 17 fc  |...MXSD%=A%-1...|
00002ef0  05 e1 0d 18 06 04 0d 18  10 2b dc 20 22 61 55 4d  |.........+. "aUM|
00002f00  49 22 2c 26 45 31 2c 22  55 72 73 61 20 4d 69 6e  |I",&E1,"Ursa Min|
00002f10  6f 72 22 2c 33 37 2e 39  36 30 2c 38 39 2e 32 36  |or",37.960,89.26|
00002f20  34 0d 18 1a 26 dc 20 22  61 54 41 55 22 2c 26 45  |4...&. "aTAU",&E|
00002f30  31 2c 22 54 61 75 72 75  73 22 2c 36 38 2e 39 38  |1,"Taurus",68.98|
00002f40  2c 31 36 2e 35 30 39 0d  18 24 26 dc 20 22 62 4f  |,16.509..$&. "bO|
00002f50  52 49 22 2c 26 45 32 2c  22 4f 72 69 6f 6e 22 2c  |RI",&E2,"Orion",|
00002f60  37 38 2e 36 33 34 2c 2d  38 2e 32 30 32 0d 18 2e  |78.634,-8.202...|
00002f70  27 dc 20 22 61 41 55 52  22 2c 26 45 31 2c 22 41  |'. "aAUR",&E1,"A|
00002f80  75 72 69 67 61 22 2c 37  39 2e 31 37 32 2c 34 35  |uriga",79.172,45|
00002f90  2e 39 39 38 0d 18 38 25  dc 20 22 61 4f 52 49 22  |.998..8%. "aORI"|
00002fa0  2c 26 45 31 2c 22 4f 72  69 6f 6e 22 2c 38 38 2e  |,&E1,"Orion",88.|
00002fb0  37 39 33 2c 37 2e 34 30  37 0d 18 42 2e dc 20 22  |793,7.407..B.. "|
00002fc0  61 43 4d 41 22 2c 26 45  31 2c 22 43 61 6e 69 73  |aCMA",&E1,"Canis|
00002fd0  20 4d 61 6a 6f 72 22 2c  31 30 31 2e 32 38 37 2c  | Major",101.287,|
00002fe0  2d 31 36 2e 37 31 36 0d  18 4c 28 dc 20 22 61 47  |-16.716..L(. "aG|
00002ff0  45 4d 22 2c 26 45 31 2c  22 47 65 6d 69 6e 69 22  |EM",&E1,"Gemini"|
00003000  2c 31 31 33 2e 36 35 30  2c 33 31 2e 38 38 38 0d  |,113.650,31.888.|
00003010  18 56 2c dc 20 22 61 43  4d 49 22 2c 26 45 31 2c  |.V,. "aCMI",&E1,|
00003020  22 43 61 6e 69 73 20 4d  69 6e 6f 72 22 2c 31 31  |"Canis Minor",11|
00003030  34 2e 38 32 35 2c 35 2e  32 32 35 0d 18 60 28 dc  |4.825,5.225..`(.|
00003040  20 22 62 47 45 4d 22 2c  26 45 32 2c 22 47 65 6d  | "bGEM",&E2,"Gem|
00003050  69 6e 69 22 2c 31 31 36  2e 33 32 39 2c 32 38 2e  |ini",116.329,28.|
00003060  30 32 36 0d 18 6a 25 dc  20 22 61 4c 45 4f 22 2c  |026..j%. "aLEO",|
00003070  26 45 31 2c 22 4c 65 6f  22 2c 31 35 32 2e 30 39  |&E1,"Leo",152.09|
00003080  33 2c 31 31 2e 39 36 37  0d 18 74 28 dc 20 22 61  |3,11.967..t(. "a|
00003090  56 49 52 22 2c 26 45 31  2c 22 56 65 72 67 6f 22  |VIR",&E1,"Vergo"|
000030a0  2c 32 30 31 2e 32 39 38  2c 2d 31 31 2e 31 36 31  |,201.298,-11.161|
000030b0  0d 18 7e 28 dc 20 22 61  42 4f 4f 22 2c 26 45 31  |..~(. "aBOO",&E1|
000030c0  2c 22 42 6f 6f 74 65 73  22 2c 32 31 33 2e 39 31  |,"Bootes",213.91|
000030d0  35 2c 31 39 2e 31 38 33  0d 18 88 2b dc 20 22 61  |5,19.183...+. "a|
000030e0  53 43 30 22 2c 26 45 31  2c 22 53 63 6f 72 70 69  |SC0",&E1,"Scorpi|
000030f0  75 73 22 2c 32 34 37 2e  33 35 32 2c 2d 32 36 2e  |us",247.352,-26.|
00003100  34 33 32 0d 18 92 26 dc  20 22 61 4c 59 52 22 2c  |432...&. "aLYR",|
00003110  26 45 31 2c 22 4c 79 72  61 22 2c 32 37 39 2e 32  |&E1,"Lyra",279.2|
00003120  33 34 2c 33 38 2e 37 38  34 0d 18 9c 29 dc 20 22  |34,38.784...). "|
00003130  61 41 51 4c 22 2c 26 45  31 2c 22 41 71 75 61 72  |aAQL",&E1,"Aquar|
00003140  69 75 73 22 2c 32 39 37  2e 36 39 35 2c 38 2e 38  |ius",297.695,8.8|
00003150  36 38 0d 18 a6 28 dc 20  22 61 43 59 47 22 2c 26  |68...(. "aCYG",&|
00003160  45 31 2c 22 43 79 67 6e  75 73 22 2c 33 31 30 2e  |E1,"Cygnus",310.|
00003170  33 35 38 2c 34 35 2e 32  38 30 0d 18 b0 33 dc 20  |358,45.280...3. |
00003180  22 61 50 53 41 22 2c 26  45 31 2c 22 50 69 73 63  |"aPSA",&E1,"Pisc|
00003190  69 73 20 41 75 73 74 72  69 6e 75 73 22 2c 33 34  |is Austrinus",34|
000031a0  34 2e 34 31 33 2c 2d 32  39 2e 36 32 32 0d 18 ba  |4.413,-29.622...|
000031b0  11 dc 20 22 22 2c 30 2c  22 22 2c 30 2c 30 0d 18  |.. "",0,"",0,0..|
000031c0  c4 04 0d 18 ce 0d dd 20  f2 5f 4d 52 45 41 44 0d  |....... ._MREAD.|
000031d0  18 d8 0a f7 20 8d 54 54  59 0d 18 e2 10 e3 20 41  |.... .TTY..... A|
000031e0  25 3d 31 20 b8 20 31 31  30 0d 18 ec 0e f3 20 4d  |%=1 . 110..... M|
000031f0  65 73 24 28 41 25 29 0d  18 f6 05 ed 0d 19 00 05  |es$(A%).........|
00003200  e1 0d 19 0a 04 0d 19 14  3a dc 20 4d 31 20 20 31  |........:. M1  1|
00003210  39 35 32 43 72 61 62 20  4e 65 62 75 6c 61 20 20  |952Crab Nebula  |
00003220  20 20 42 72 69 67 68 74  20 6e 65 62 75 6c 61 20  |  Bright nebula |
00003230  20 54 61 75 30 35 33 34  2e 35 2b 32 32 30 31 0d  | Tau0534.5+2201.|
00003240  19 1e 3a dc 20 4d 32 20  20 37 30 38 39 20 20 20  |..:. M2  7089   |
00003250  20 20 20 20 20 20 20 20  20 20 20 20 47 6c 6f 62  |            Glob|
00003260  75 6c 61 72 20 63 6c 75  73 74 72 41 71 72 32 31  |ular clustrAqr21|
00003270  33 33 2e 35 2d 30 30 35  30 0d 19 28 3a dc 20 4d  |33.5-0050..(:. M|
00003280  33 20 20 35 32 37 32 20  20 20 20 20 20 20 20 20  |3  5272         |
00003290  20 20 20 20 20 20 47 6c  6f 62 75 6c 61 72 20 63  |      Globular c|
000032a0  6c 75 73 74 72 43 56 6e  31 33 34 32 2e 32 2b 32  |lustrCVn1342.2+2|
000032b0  38 32 33 0d 19 32 3a dc  20 4d 34 20 20 36 31 32  |823..2:. M4  612|
000032c0  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
000032d0  47 6c 6f 62 75 6c 61 72  20 63 6c 75 73 74 72 53  |Globular clustrS|
000032e0  63 6f 31 36 32 33 2e 37  2d 32 36 33 31 0d 19 3c  |co1623.7-2631..<|
000032f0  3a dc 20 4d 35 20 20 35  39 30 34 20 20 20 20 20  |:. M5  5904     |
00003300  20 20 20 20 20 20 20 20  20 20 47 6c 6f 62 75 6c  |          Globul|
00003310  61 72 20 63 6c 75 73 74  72 53 65 72 31 35 31 38  |ar clustrSer1518|
00003320  2e 36 2b 30 32 30 35 0d  19 46 3a dc 20 4d 36 20  |.6+0205..F:. M6 |
00003330  20 36 34 30 35 20 20 20  20 20 20 20 20 20 20 20  | 6405           |
00003340  20 20 20 20 4f 70 65 6e  20 63 6c 75 73 74 65 72  |    Open cluster|
00003350  20 20 20 53 63 6f 31 37  34 30 2e 30 2d 33 32 31  |   Sco1740.0-321|
00003360  33 0d 19 50 3a dc 20 4d  37 20 20 36 34 37 35 20  |3..P:. M7  6475 |
00003370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4f 70  |              Op|
00003380  65 6e 20 63 6c 75 73 74  65 72 20 20 20 53 63 6f  |en cluster   Sco|
00003390  31 37 35 33 2e 39 2d 33  34 34 39 0d 19 5a 3a dc  |1753.9-3449..Z:.|
000033a0  20 4d 38 20 20 36 35 32  33 4c 61 67 6f 6f 6e 20  | M8  6523Lagoon |
000033b0  4e 65 62 75 6c 61 20 20  42 72 69 67 68 74 20 6e  |Nebula  Bright n|
000033c0  65 62 75 6c 61 20 20 53  67 72 31 38 30 33 2e 32  |ebula  Sgr1803.2|
000033d0  2d 32 34 32 33 0d 19 64  3a dc 20 4d 39 20 20 36  |-2423..d:. M9  6|
000033e0  33 33 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |333             |
000033f0  20 20 47 6c 6f 62 75 6c  61 72 20 63 6c 75 73 74  |  Globular clust|
00003400  72 4f 70 68 31 37 31 39  2e 31 2d 31 38 33 31 0d  |rOph1719.1-1831.|
00003410  19 6e 3a dc 20 4d 31 30  20 36 32 35 34 20 20 20  |.n:. M10 6254   |
00003420  20 20 20 20 20 20 20 20  20 20 20 20 47 6c 6f 62  |            Glob|
00003430  75 6c 61 72 20 63 6c 75  73 74 72 4f 70 68 31 36  |ular clustrOph16|
00003440  35 37 2e 31 2d 30 34 30  37 0d 19 78 3a dc 20 4d  |57.1-0407..x:. M|
00003450  31 31 20 36 37 30 35 57  69 6c 64 20 44 75 63 6b  |11 6705Wild Duck|
00003460  20 43 6c 73 74 72 4f 70  65 6e 20 63 6c 75 73 74  | ClstrOpen clust|
00003470  65 72 20 20 20 53 63 74  31 38 35 31 2e 31 2d 30  |er   Sct1851.1-0|
00003480  36 31 36 0d 19 82 3a dc  20 4d 31 32 20 36 32 31  |616...:. M12 621|
00003490  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
000034a0  47 6c 6f 62 75 6c 61 72  20 63 6c 75 73 74 72 4f  |Globular clustrO|
000034b0  70 68 31 36 34 37 2e 32  2d 30 31 35 37 0d 19 8c  |ph1647.2-0157...|
000034c0  3a dc 20 4d 31 33 20 36  32 30 35 20 20 20 20 20  |:. M13 6205     |
000034d0  20 20 20 20 20 20 20 20  20 20 47 6c 6f 62 75 6c  |          Globul|
000034e0  61 72 20 63 6c 75 73 74  72 48 65 72 31 36 34 31  |ar clustrHer1641|
000034f0  2e 37 2b 33 36 32 37 0d  19 96 3a dc 20 4d 31 34  |.7+3627...:. M14|
00003500  20 36 34 30 32 20 20 20  20 20 20 20 20 20 20 20  | 6402           |
00003510  20 20 20 20 47 6c 6f 62  75 6c 61 72 20 63 6c 75  |    Globular clu|
00003520  73 74 72 4f 70 68 31 37  33 37 2e 36 2d 30 33 31  |strOph1737.6-031|
00003530  37 0d 19 a0 3a dc 20 4d  31 35 20 37 30 37 38 20  |7...:. M15 7078 |
00003540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 47 6c  |              Gl|
00003550  6f 62 75 6c 61 72 20 63  6c 75 73 74 72 50 65 67  |obular clustrPeg|
00003560  32 31 33 30 2e 30 2b 31  32 31 30 0d 19 aa 3a dc  |2130.0+1210...:.|
00003570  20 4d 31 36 20 36 36 31  31 20 20 20 20 20 20 20  | M16 6611       |
00003580  20 20 20 20 20 20 20 20  4f 70 65 6e 20 63 6c 75  |        Open clu|
00003590  73 74 65 72 20 20 20 53  65 72 31 38 31 38 2e 39  |ster   Ser1818.9|
000035a0  2d 31 33 34 37 0d 19 b4  3a dc 20 4d 31 37 20 36  |-1347...:. M17 6|
000035b0  36 31 38 4f 6d 65 67 61  20 4e 65 62 75 6c 61 20  |618Omega Nebula |
000035c0  20 20 42 72 69 67 68 74  20 6e 65 62 75 6c 61 20  |  Bright nebula |
000035d0  20 53 67 72 31 38 32 30  2e 38 2d 31 36 31 31 0d  | Sgr1820.8-1611.|
000035e0  19 be 3a dc 20 4d 31 38  20 36 36 31 33 20 20 20  |..:. M18 6613   |
000035f0  20 20 20 20 20 20 20 20  20 20 20 20 4f 70 65 6e  |            Open|
00003600  20 63 6c 75 73 74 65 72  20 20 20 53 67 72 31 38  | cluster   Sgr18|
00003610  31 39 2e 39 2d 31 37 30  38 0d 19 c8 3a dc 20 4d  |19.9-1708...:. M|
00003620  31 39 20 36 32 37 33 20  20 20 20 20 20 20 20 20  |19 6273         |
00003630  20 20 20 20 20 20 47 6c  6f 62 75 6c 61 72 20 63  |      Globular c|
00003640  6c 75 73 74 72 4f 70 68  31 37 30 32 2e 36 2d 32  |lustrOph1702.6-2|
00003650  36 31 35 0d 19 d2 3a dc  20 4d 32 30 20 36 35 31  |615...:. M20 651|
00003660  34 54 72 69 66 69 64 20  4e 65 62 75 6c 61 20 20  |4Trifid Nebula  |
00003670  42 72 69 67 68 74 20 6e  65 62 75 6c 61 20 20 53  |Bright nebula  S|
00003680  67 72 31 38 30 31 2e 39  2d 32 33 30 32 0d 19 dc  |gr1801.9-2302...|
00003690  3a dc 20 4d 32 31 20 36  35 33 31 20 20 20 20 20  |:. M21 6531     |
000036a0  20 20 20 20 20 20 20 20  20 20 4f 70 65 6e 20 63  |          Open c|
000036b0  6c 75 73 74 65 72 20 20  20 53 67 72 31 38 30 34  |luster   Sgr1804|
000036c0  2e 37 2d 32 32 33 30 0d  19 e6 3a dc 20 4d 32 32  |.7-2230...:. M22|
000036d0  20 36 36 35 36 20 20 20  20 20 20 20 20 20 20 20  | 6656           |
000036e0  20 20 20 20 47 6c 6f 62  75 6c 61 72 20 63 6c 75  |    Globular clu|
000036f0  73 74 72 53 67 72 31 38  33 36 2e 34 2d 32 33 35  |strSgr1836.4-235|
00003700  35 0d 19 f0 3a dc 20 4d  32 33 20 36 34 39 34 20  |5...:. M23 6494 |
00003710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4f 70  |              Op|
00003720  65 6e 20 63 6c 75 73 74  65 72 20 20 20 53 67 72  |en cluster   Sgr|
00003730  31 37 35 37 2e 30 2d 31  39 30 31 0d 19 fa 3a dc  |1757.0-1901...:.|
00003740  20 4d 32 34 20 36 36 30  33 53 74 61 72 20 63 6c  | M24 6603Star cl|
00003750  6f 75 64 20 20 20 20 20  4f 70 65 6e 20 63 6c 75  |oud     Open clu|
00003760  73 74 65 72 20 20 20 53  67 72 31 38 31 38 2e 34  |ster   Sgr1818.4|
00003770  2d 31 38 32 35 0d 1a 04  3a dc 20 4d 32 35 20 20  |-1825...:. M25  |
00003780  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003790  20 20 4f 70 65 6e 20 63  6c 75 73 74 65 72 20 20  |  Open cluster  |
000037a0  20 53 67 72 31 38 33 31  2e 37 2d 31 39 31 35 0d  | Sgr1831.7-1915.|
000037b0  1a 0e 3a dc 20 4d 32 36  20 36 36 39 34 20 20 20  |..:. M26 6694   |
000037c0  20 20 20 20 20 20 20 20  20 20 20 20 4f 70 65 6e  |            Open|
000037d0  20 63 6c 75 73 74 65 72  20 20 20 53 63 74 31 38  | cluster   Sct18|
000037e0  34 35 2e 33 2d 30 39 32  34 0d 1a 18 3a dc 20 4d  |45.3-0924...:. M|
000037f0  32 37 20 36 38 35 33 44  75 6d 62 62 65 6c 6c 20  |27 6853Dumbbell |
00003800  4e 65 62 75 6c 61 50 6c  61 6e 65 74 61 72 79 20  |NebulaPlanetary |
00003810  6e 65 62 20 20 56 75 6c  31 39 35 39 2e 34 2b 32  |neb  Vul1959.4+2|
00003820  32 34 34 0d 1a 22 3a dc  20 4d 32 38 20 36 36 32  |244..":. M28 662|
00003830  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
00003840  47 6c 6f 62 75 6c 61 72  20 63 6c 75 73 74 72 53  |Globular clustrS|
00003850  67 72 31 38 32 34 2e 35  2d 32 34 35 32 0d 1a 2c  |gr1824.5-2452..,|
00003860  3a dc 20 4d 32 39 20 36  39 31 33 20 20 20 20 20  |:. M29 6913     |
00003870  20 20 20 20 20 20 20 20  20 20 4f 70 65 6e 20 63  |          Open c|
00003880  6c 75 73 74 65 72 20 20  20 43 79 67 32 30 32 33  |luster   Cyg2023|
00003890  2e 39 2b 33 38 33 32 0d  1a 36 3a dc 20 4d 33 30  |.9+3832..6:. M30|
000038a0  20 37 30 39 39 20 20 20  20 20 20 20 20 20 20 20  | 7099           |
000038b0  20 20 20 20 47 6c 6f 62  75 6c 61 72 20 63 6c 75  |    Globular clu|
000038c0  73 74 72 43 61 70 32 31  34 30 2e 33 2d 32 33 31  |strCap2140.3-231|
000038d0  31 0d 1a 40 3a dc 20 4d  33 31 20 20 32 32 34 41  |1..@:. M31  224A|
000038e0  6e 64 72 6f 6d 65 64 61  20 47 61 6c 78 79 53 70  |ndromeda GalxySp|
000038f0  69 72 61 6c 20 67 61 6c  61 78 79 20 20 41 6e 64  |iral galaxy  And|
00003900  30 30 34 32 2e 37 2b 34  31 31 36 0d 1a 4a 3a dc  |0042.7+4116..J:.|
00003910  20 4d 33 32 20 20 32 32  31 4d 33 31 20 53 61 74  | M32  221M31 Sat|
00003920  65 6c 6c 69 74 65 20 20  45 6c 6c 69 70 74 69 63  |ellite  Elliptic|
00003930  61 6c 20 67 6c 78 79 41  6e 64 30 30 34 32 2e 37  |al glxyAnd0042.7|
00003940  2b 34 30 35 32 0d 1a 54  3a dc 20 4d 33 33 20 20  |+4052..T:. M33  |
00003950  35 39 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |598             |
00003960  20 20 53 70 69 72 61 6c  20 67 61 6c 61 78 79 20  |  Spiral galaxy |
00003970  20 54 72 69 30 31 33 33  2e 38 2b 33 30 33 39 0d  | Tri0133.8+3039.|
00003980  1a 5e 3a dc 20 4d 33 34  20 31 30 33 39 20 20 20  |.^:. M34 1039   |
00003990  20 20 20 20 20 20 20 20  20 20 20 20 4f 70 65 6e  |            Open|
000039a0  20 63 6c 75 73 74 65 72  20 20 20 50 65 72 30 32  | cluster   Per02|
000039b0  34 32 2e 30 2b 34 32 34  37 0d 1a 68 3a dc 20 4d  |42.0+4247..h:. M|
000039c0  33 35 20 32 31 36 38 20  20 20 20 20 20 20 20 20  |35 2168         |
000039d0  20 20 20 20 20 20 4f 70  65 6e 20 63 6c 75 73 74  |      Open clust|
000039e0  65 72 20 20 20 47 65 6d  30 36 30 38 2e 38 2b 32  |er   Gem0608.8+2|
000039f0  34 32 30 0d 1a 72 3a dc  20 4d 33 36 20 31 39 36  |420..r:. M36 196|
00003a00  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00003a10  4f 70 65 6e 20 63 6c 75  73 74 65 72 20 20 20 41  |Open cluster   A|
00003a20  75 72 30 35 33 35 2e 33  2b 33 34 30 39 0d 1a 7c  |ur0535.3+3409..||
00003a30  3a dc 20 4d 33 37 20 32  30 39 39 20 20 20 20 20  |:. M37 2099     |
00003a40  20 20 20 20 20 20 20 20  20 20 4f 70 65 6e 20 63  |          Open c|
00003a50  6c 75 73 74 65 72 20 20  20 41 75 72 30 35 35 32  |luster   Aur0552|
00003a60  2e 33 2b 33 32 33 33 0d  1a 86 3a dc 20 4d 33 38  |.3+3233...:. M38|
00003a70  20 31 39 31 32 20 20 20  20 20 20 20 20 20 20 20  | 1912           |
00003a80  20 20 20 20 4f 70 65 6e  20 63 6c 75 73 74 65 72  |    Open cluster|
00003a90  20 20 20 41 75 72 30 35  32 38 2e 37 2b 33 35 35  |   Aur0528.7+355|
00003aa0  30 0d 1a 90 3a dc 20 4d  33 39 20 37 30 39 32 20  |0...:. M39 7092 |
00003ab0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4f 70  |              Op|
00003ac0  65 6e 20 63 6c 75 73 74  65 72 20 20 20 43 79 67  |en cluster   Cyg|
00003ad0  32 31 33 32 2e 32 2b 34  38 32 36 0d 1a 9a 3a dc  |2132.2+4826...:.|
00003ae0  20 4d 34 30 20 2d 31 31  31 4e 6f 6e 2d 65 78 69  | M40 -111Non-exi|
00003af0  73 74 65 6e 74 20 20 20  4d 65 73 73 69 65 72 20  |stent   Messier |
00003b00  65 72 72 6f 72 20 20 4f  4f 4f 30 30 30 30 30 30  |error  OOO000000|
00003b10  30 30 30 30 30 0d 1a a4  3a dc 20 4d 34 31 20 32  |00000...:. M41 2|
00003b20  32 38 37 20 20 20 20 20  20 20 20 20 20 20 20 20  |287             |
00003b30  20 20 4f 70 65 6e 20 63  6c 75 73 74 65 72 20 20  |  Open cluster  |
00003b40  20 43 4d 61 30 36 34 37  2e 30 2d 32 30 34 34 0d  | CMa0647.0-2044.|
00003b50  1a ae 3a dc 20 4d 34 32  20 31 39 37 36 47 72 65  |..:. M42 1976Gre|
00003b60  61 74 20 4f 72 69 6f 6e  20 4e 65 62 42 72 69 67  |at Orion NebBrig|
00003b70  68 74 20 6e 65 62 75 6c  61 20 20 4f 72 69 30 35  |ht nebula  Ori05|
00003b80  33 35 2e 33 2d 30 35 32  33 0d 1a b8 3a dc 20 4d  |35.3-0523...:. M|
00003b90  34 33 20 31 39 38 32 50  74 20 6f 66 20 4f 72 69  |43 1982Pt of Ori|
00003ba0  6f 6e 20 4e 65 62 42 72  69 67 68 74 20 6e 65 62  |on NebBright neb|
00003bb0  75 6c 61 20 20 4f 72 69  30 35 33 35 2e 36 2d 30  |ula  Ori0535.6-0|
00003bc0  35 31 36 0d 1a c2 3a dc  20 4d 34 34 20 32 36 33  |516...:. M44 263|
00003bd0  32 42 65 65 68 69 76 65  50 72 61 65 73 65 70 65  |2BeehivePraesepe|
00003be0  4f 70 65 6e 20 63 6c 75  73 74 65 72 20 20 20 43  |Open cluster   C|
00003bf0  6e 63 30 38 34 30 2e 33  2b 31 39 34 39 0d 1a cc  |nc0840.3+1949...|
00003c00  3a dc 20 4d 34 35 20 20  20 20 20 54 68 65 20 50  |:. M45     The P|
00003c10  6c 65 69 61 64 65 73 20  20 20 41 73 74 65 72 69  |leiades   Asteri|
00003c20  73 6d 20 20 20 20 20 20  20 54 61 75 30 33 34 37  |sm       Tau0347|
00003c30  2e 31 2b 32 34 30 37 0d  1a d6 3a dc 20 4d 34 36  |.1+2407...:. M46|
00003c40  20 32 34 33 37 20 20 20  20 20 20 20 20 20 20 20  | 2437           |
00003c50  20 20 20 20 4f 70 65 6e  20 63 6c 75 73 74 65 72  |    Open cluster|
00003c60  20 20 20 50 75 70 30 37  34 31 2e 38 2d 31 34 34  |   Pup0741.8-144|
00003c70  39 0d 1a e0 3a dc 20 4d  34 37 20 32 34 32 32 20  |9...:. M47 2422 |
00003c80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4f 70  |              Op|
00003c90  65 6e 20 63 6c 75 73 74  65 72 20 20 20 50 75 70  |en cluster   Pup|
00003ca0  30 37 33 36 2e 36 2d 31  34 32 38 0d 1a ea 3a dc  |0736.6-1428...:.|
00003cb0  20 4d 34 38 20 32 35 34  38 20 20 20 20 20 20 20  | M48 2548       |
00003cc0  20 20 20 20 20 20 20 20  4f 70 65 6e 20 63 6c 75  |        Open clu|
00003cd0  73 74 65 72 20 20 20 48  79 61 30 38 31 33 2e 37  |ster   Hya0813.7|
00003ce0  2d 30 35 34 36 0d 1a f4  3a dc 20 4d 34 39 20 34  |-0546...:. M49 4|
00003cf0  34 37 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |472             |
00003d00  20 20 45 6c 6c 69 70 74  69 63 61 6c 20 67 6c 78  |  Elliptical glx|
00003d10  79 56 69 72 31 32 32 39  2e 37 2b 30 37 35 39 0d  |yVir1229.7+0759.|
00003d20  1a fe 3a dc 20 4d 35 30  20 32 33 32 33 20 20 20  |..:. M50 2323   |
00003d30  20 20 20 20 20 20 20 20  20 20 20 20 4f 70 65 6e  |            Open|
00003d40  20 63 6c 75 73 74 65 72  20 20 20 4d 6f 6e 30 37  | cluster   Mon07|
00003d50  30 33 2e 30 2d 30 38 32  30 0d 1b 08 3a dc 20 4d  |03.0-0820...:. M|
00003d60  35 31 20 35 31 39 34 57  68 69 72 6c 70 6f 6f 6c  |51 5194Whirlpool|
00003d70  20 47 61 6c 78 79 53 70  69 72 61 6c 20 67 61 6c  | GalxySpiral gal|
00003d80  61 78 79 20 20 43 56 6e  31 33 32 39 2e 39 2b 34  |axy  CVn1329.9+4|
00003d90  37 31 32 0d 1b 12 3a dc  20 4d 35 32 20 37 36 35  |712...:. M52 765|
00003da0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00003db0  4f 70 65 6e 20 63 6c 75  73 74 65 72 20 20 20 43  |Open cluster   C|
00003dc0  61 73 32 33 32 34 2e 32  2b 36 31 33 35 0d 1b 1c  |as2324.2+6135...|
00003dd0  3a dc 20 4d 35 33 20 35  30 32 34 20 20 20 20 20  |:. M53 5024     |
00003de0  20 20 20 20 20 20 20 20  20 20 47 6c 6f 62 75 6c  |          Globul|
00003df0  61 72 20 63 6c 75 73 74  72 43 6f 6d 31 33 31 32  |ar clustrCom1312|
00003e00  2e 39 2b 31 38 31 30 0d  1b 26 3a dc 20 4d 35 34  |.9+1810..&:. M54|
00003e10  20 36 37 31 35 20 20 20  20 20 20 20 20 20 20 20  | 6715           |
00003e20  20 20 20 20 47 6c 6f 62  75 6c 61 72 20 63 6c 75  |    Globular clu|
00003e30  73 74 72 53 67 72 31 38  35 35 2e 32 2d 33 30 32  |strSgr1855.2-302|
00003e40  38 0d 1b 30 3a dc 20 4d  35 35 20 36 38 30 39 20  |8..0:. M55 6809 |
00003e50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 47 6c  |              Gl|
00003e60  6f 62 75 6c 61 72 20 63  6c 75 73 74 72 53 67 72  |obular clustrSgr|
00003e70  31 39 34 30 2e 31 2d 33  30 35 36 0d 1b 3a 3a dc  |1940.1-3056..::.|
00003e80  20 4d 35 36 20 36 37 37  39 20 20 20 20 20 20 20  | M56 6779       |
00003e90  20 20 20 20 20 20 20 20  47 6c 6f 62 75 6c 61 72  |        Globular|
00003ea0  20 63 6c 75 73 74 72 4c  79 72 31 39 31 36 2e 36  | clustrLyr1916.6|
00003eb0  2b 33 30 31 30 0d 1b 44  3a dc 20 4d 35 37 20 36  |+3010..D:. M57 6|
00003ec0  37 32 30 52 69 6e 67 20  4e 65 62 75 6c 61 20 20  |720Ring Nebula  |
00003ed0  20 20 50 6c 61 6e 65 74  61 72 79 20 6e 65 62 20  |  Planetary neb |
00003ee0  20 4c 79 72 31 38 35 33  2e 36 2b 33 33 30 32 0d  | Lyr1853.6+3302.|
00003ef0  1b 4e 3a dc 20 4d 35 38  20 34 35 37 39 20 20 20  |.N:. M58 4579   |
00003f00  20 20 20 20 20 20 20 20  20 20 20 20 42 61 72 72  |            Barr|
00003f10  65 64 20 73 70 72 6c 20  67 6c 79 56 69 72 31 32  |ed sprl glyVir12|
00003f20  33 37 2e 36 2b 31 31 34  38 0d 1b 58 3a dc 20 4d  |37.6+1148..X:. M|
00003f30  35 39 20 34 36 32 31 20  20 20 20 20 20 20 20 20  |59 4621         |
00003f40  20 20 20 20 20 20 45 6c  6c 69 70 74 69 63 61 6c  |      Elliptical|
00003f50  20 67 6c 78 79 56 69 72  31 32 34 32 2e 30 2b 31  | glxyVir1242.0+1|
00003f60  31 33 39 0d 1b 62 3a dc  20 4d 36 30 20 34 36 34  |139..b:. M60 464|
00003f70  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
00003f80  45 6c 6c 69 70 74 69 63  61 6c 20 67 6c 78 79 56  |Elliptical glxyV|
00003f90  69 72 31 32 34 33 2e 36  2b 31 31 33 33 0d 1b 6c  |ir1243.6+1133..l|
00003fa0  3a dc 20 4d 36 31 20 34  33 30 33 20 20 20 20 20  |:. M61 4303     |
00003fb0  20 20 20 20 20 20 20 20  20 20 42 61 72 72 65 64  |          Barred|
00003fc0  20 73 70 72 6c 20 67 6c  79 56 69 72 31 32 32 31  | sprl glyVir1221|
00003fd0  2e 39 2b 30 34 32 38 0d  1b 76 3a dc 20 4d 36 32  |.9+0428..v:. M62|
00003fe0  20 36 32 36 36 20 20 20  20 20 20 20 20 20 20 20  | 6266           |
00003ff0  20 20 20 20 47 6c 6f 62  75 6c 61 72 20 63 6c 75  |    Globular clu|
00004000  73 74 72 4f 70 68 31 37  30 31 2e 33 2d 33 30 30  |strOph1701.3-300|
00004010  37 0d 1b 80 3a dc 20 4d  36 33 20 35 30 35 35 53  |7...:. M63 5055S|
00004020  75 6e 66 6c 6f 77 65 72  20 4e 65 62 20 20 53 70  |unflower Neb  Sp|
00004030  69 72 61 6c 20 67 61 6c  61 78 79 20 20 43 56 6e  |iral galaxy  CVn|
00004040  31 33 31 35 2e 38 2b 34  32 30 32 0d 1b 8a 3a dc  |1315.8+4202...:.|
00004050  20 4d 36 34 20 34 38 32  36 42 6c 61 63 6b 20 45  | M64 4826Black E|
00004060  79 65 20 47 61 6c 78 79  53 70 69 72 61 6c 20 67  |ye GalxySpiral g|
00004070  61 6c 61 78 79 20 20 43  6f 6d 31 32 35 36 2e 37  |alaxy  Com1256.7|
00004080  2b 32 31 34 31 0d 1b 94  3a dc 20 4d 36 35 20 33  |+2141...:. M65 3|
00004090  36 32 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |623             |
000040a0  20 20 53 70 69 72 61 6c  20 67 61 6c 61 78 79 20  |  Spiral galaxy |
000040b0  20 4c 65 6f 31 31 31 38  2e 39 2b 31 33 30 36 0d  | Leo1118.9+1306.|
000040c0  1b 9e 3a dc 20 4d 36 36  20 33 36 32 37 20 20 20  |..:. M66 3627   |
000040d0  20 20 20 20 20 20 20 20  20 20 20 20 53 70 69 72  |            Spir|
000040e0  61 6c 20 67 61 6c 61 78  79 20 20 4c 65 6f 31 31  |al galaxy  Leo11|
000040f0  32 30 2e 32 2b 31 33 30  30 0d 1b a8 3a dc 20 4d  |20.2+1300...:. M|
00004100  36 37 20 32 36 38 32 20  20 20 20 20 20 20 20 20  |67 2682         |
00004110  20 20 20 20 20 20 4f 70  65 6e 20 63 6c 75 73 74  |      Open clust|
00004120  65 72 20 20 20 43 6e 63  30 38 35 30 2e 35 2b 31  |er   Cnc0850.5+1|
00004130  31 34 39 0d 1b b2 3a dc  20 4d 36 38 20 34 35 39  |149...:. M68 459|
00004140  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00004150  47 6c 6f 62 75 6c 61 72  20 63 6c 75 73 74 72 48  |Globular clustrH|
00004160  79 61 31 32 33 39 2e 35  2d 32 36 34 35 0d 1b bc  |ya1239.5-2645...|
00004170  3a dc 20 4d 36 39 20 36  36 33 37 20 20 20 20 20  |:. M69 6637     |
00004180  20 20 20 20 20 20 20 20  20 20 47 6c 6f 62 75 6c  |          Globul|
00004190  61 72 20 63 6c 75 73 74  72 53 67 72 31 38 33 31  |ar clustrSgr1831|
000041a0  2e 34 2d 33 32 32 31 0d  1b c6 3a dc 20 4d 37 30  |.4-3221...:. M70|
000041b0  20 36 36 38 31 20 20 20  20 20 20 20 20 20 20 20  | 6681           |
000041c0  20 20 20 20 47 6c 6f 62  75 6c 61 72 20 63 6c 75  |    Globular clu|
000041d0  73 74 72 53 67 72 31 38  34 33 2e 33 2d 33 32 31  |strSgr1843.3-321|
000041e0  38 0d 1b d0 3a dc 20 4d  37 31 20 36 38 33 38 20  |8...:. M71 6838 |
000041f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 47 6c  |              Gl|
00004200  6f 62 75 6c 61 72 20 63  6c 75 73 74 72 53 67 65  |obular clustrSge|
00004210  31 39 35 33 2e 37 2b 31  38 34 37 0d 1b da 3a dc  |1953.7+1847...:.|
00004220  20 4d 37 32 20 36 39 38  31 20 20 20 20 20 20 20  | M72 6981       |
00004230  20 20 20 20 20 20 20 20  47 6c 6f 62 75 6c 61 72  |        Globular|
00004240  20 63 6c 75 73 74 72 41  71 72 32 30 35 33 2e 35  | clustrAqr2053.5|
00004250  2d 31 32 33 33 0d 1b e4  3a dc 20 4d 37 33 20 36  |-1233...:. M73 6|
00004260  39 39 34 43 6c 73 74 72  20 6f 66 20 34 20 73 74  |994Clstr of 4 st|
00004270  72 73 41 73 74 65 72 69  73 6d 20 20 20 20 20 20  |rsAsterism      |
00004280  20 41 71 72 32 30 35 39  2e 31 2d 31 32 33 38 0d  | Aqr2059.1-1238.|
00004290  1b ee 3a dc 20 4d 37 34  20 20 36 32 38 20 20 20  |..:. M74  628   |
000042a0  20 20 20 20 20 20 20 20  20 20 20 20 53 70 69 72  |            Spir|
000042b0  61 6c 20 67 61 6c 61 78  79 20 20 50 73 63 30 31  |al galaxy  Psc01|
000042c0  33 36 2e 37 2b 31 35 34  37 0d 1b f8 3a dc 20 4d  |36.7+1547...:. M|
000042d0  37 35 20 36 38 36 34 20  20 20 20 20 20 20 20 20  |75 6864         |
000042e0  20 20 20 20 20 20 47 6c  6f 62 75 6c 61 72 20 63  |      Globular c|
000042f0  6c 75 73 74 72 53 67 72  32 30 30 36 2e 31 2d 32  |lustrSgr2006.1-2|
00004300  31 35 35 0d 1c 02 3a dc  20 4d 37 36 20 20 36 35  |155...:. M76  65|
00004310  30 4c 69 74 74 6c 65 20  44 75 6d 62 62 65 6c 6c  |0Little Dumbbell|
00004320  50 6c 61 6e 65 74 61 72  79 20 6e 65 62 20 20 50  |Planetary neb  P|
00004330  65 72 30 31 34 31 2e 35  2b 35 31 33 34 0d 1c 0c  |er0141.5+5134...|
00004340  3a dc 20 4d 37 37 20 31  30 36 38 53 65 79 66 65  |:. M77 1068Seyfe|
00004350  72 74 20 47 61 6c 61 78  79 20 53 70 69 72 61 6c  |rt Galaxy Spiral|
00004360  20 67 61 6c 61 78 79 20  20 43 65 74 30 31 34 32  | galaxy  Cet0142|
00004370  2e 37 2d 30 30 30 32 0d  1c 16 3a dc 20 4d 37 38  |.7-0002...:. M78|
00004380  20 32 30 36 38 20 20 20  20 20 20 20 20 20 20 20  | 2068           |
00004390  20 20 20 20 42 72 69 67  68 74 20 6e 65 62 75 6c  |    Bright nebul|
000043a0  61 20 20 4f 72 69 30 35  34 36 2e 38 2b 30 30 30  |a  Ori0546.8+000|
000043b0  33 0d 1c 20 3a dc 20 4d  37 39 20 31 39 30 34 20  |3.. :. M79 1904 |
000043c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 47 6c  |              Gl|
000043d0  6f 62 75 6c 61 72 20 63  6c 75 73 74 72 4c 65 70  |obular clustrLep|
000043e0  30 35 32 34 2e 33 2d 32  34 33 31 0d 1c 2a 3a dc  |0524.3-2431..*:.|
000043f0  20 4d 38 30 20 36 30 39  33 20 20 20 20 20 20 20  | M80 6093       |
00004400  20 20 20 20 20 20 20 20  47 6c 6f 62 75 6c 61 72  |        Globular|
00004410  20 63 6c 75 73 74 72 53  63 6f 31 36 31 37 2e 31  | clustrSco1617.1|
00004420  2d 32 32 35 39 0d 1c 34  3a dc 20 4d 38 31 20 33  |-2259..4:. M81 3|
00004430  30 33 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |031             |
00004440  20 20 53 70 69 72 61 6c  20 67 61 6c 61 78 79 20  |  Spiral galaxy |
00004450  20 55 4d 61 30 39 35 35  2e 36 2b 36 39 30 34 0d  | UMa0955.6+6904.|
00004460  1c 3e 3a dc 20 4d 38 32  20 33 30 33 34 20 20 20  |.>:. M82 3034   |
00004470  20 20 20 20 20 20 20 20  20 20 20 20 47 61 6c 61  |            Gala|
00004480  78 79 20 20 20 20 20 20  20 20 20 55 4d 61 30 39  |xy         UMa09|
00004490  35 36 2e 31 2b 36 39 34  32 0d 1c 48 3a dc 20 4d  |56.1+6942..H:. M|
000044a0  38 33 20 35 32 33 36 20  20 20 20 20 20 20 20 20  |83 5236         |
000044b0  20 20 20 20 20 20 53 70  69 72 61 6c 20 67 61 6c  |      Spiral gal|
000044c0  61 78 79 20 20 48 79 61  31 33 33 37 2e 30 2d 32  |axy  Hya1337.0-2|
000044d0  39 35 32 0d 1c 52 3a dc  20 4d 38 34 20 34 33 37  |952..R:. M84 437|
000044e0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
000044f0  45 6c 6c 69 70 74 69 63  61 6c 20 67 6c 78 79 56  |Elliptical glxyV|
00004500  69 72 31 32 32 35 2e 31  2b 31 32 35 33 0d 1c 5c  |ir1225.1+1253..\|
00004510  3a dc 20 4d 38 35 20 34  33 38 32 20 20 20 20 20  |:. M85 4382     |
00004520  20 20 20 20 20 20 20 20  20 20 45 6c 6c 69 70 74  |          Ellipt|
00004530  69 63 61 6c 20 67 6c 78  79 43 6f 6d 31 32 32 35  |ical glxyCom1225|
00004540  2e 35 2b 31 38 31 31 0d  1c 66 3a dc 20 4d 38 36  |.5+1811..f:. M86|
00004550  20 34 34 30 36 47 69 61  6e 74 20 45 6c 6c 69 70  | 4406Giant Ellip|
00004560  74 69 63 6c 45 6c 6c 69  70 74 69 63 61 6c 20 67  |ticlElliptical g|
00004570  6c 78 79 56 69 72 31 32  32 36 2e 32 2b 31 32 35  |lxyVir1226.2+125|
00004580  36 0d 1c 70 3a dc 20 4d  38 37 20 34 34 38 36 47  |6..p:. M87 4486G|
00004590  69 61 6e 74 20 45 6c 6c  69 70 74 69 63 6c 45 6c  |iant EllipticlEl|
000045a0  6c 69 70 74 69 63 61 6c  20 67 6c 78 79 56 69 72  |liptical glxyVir|
000045b0  31 32 33 30 2e 38 2b 31  32 32 33 0d 1c 7a 3a dc  |1230.8+1223..z:.|
000045c0  20 4d 38 38 20 34 35 30  31 20 20 20 20 20 20 20  | M88 4501       |
000045d0  20 20 20 20 20 20 20 20  53 70 69 72 61 6c 20 67  |        Spiral g|
000045e0  61 6c 61 78 79 20 20 43  6f 6d 31 32 33 32 2e 30  |alaxy  Com1232.0|
000045f0  2b 31 34 32 35 0d 1c 84  3a dc 20 4d 38 39 20 34  |+1425...:. M89 4|
00004600  35 35 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |552             |
00004610  20 20 45 6c 6c 69 70 74  69 63 61 6c 20 67 6c 78  |  Elliptical glx|
00004620  79 56 69 72 31 32 33 35  2e 36 2b 31 32 33 33 0d  |yVir1235.6+1233.|
00004630  1c 8e 3a dc 20 4d 39 30  20 34 35 36 39 20 20 20  |..:. M90 4569   |
00004640  20 20 20 20 20 20 20 20  20 20 20 20 53 70 69 72  |            Spir|
00004650  61 6c 20 67 61 6c 61 78  79 20 20 56 69 72 31 32  |al galaxy  Vir12|
00004660  33 36 2e 37 2b 31 33 30  39 0d 1c 98 3a dc 20 4d  |36.7+1309...:. M|
00004670  39 31 20 2d 31 31 31 4e  6f 6e 2d 65 78 69 73 74  |91 -111Non-exist|
00004680  65 6e 74 20 20 20 4d 65  73 73 69 65 72 20 65 72  |ent   Messier er|
00004690  72 6f 72 20 20 4f 4f 4f  30 30 30 30 2e 30 2b 30  |ror  OOO0000.0+0|
000046a0  30 30 30 0d 1c a2 3a dc  20 4d 39 32 20 36 33 34  |000...:. M92 634|
000046b0  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
000046c0  47 6c 6f 62 75 6c 61 72  20 63 6c 75 73 74 72 48  |Globular clustrH|
000046d0  65 72 31 37 31 37 2e 31  2b 34 33 30 39 0d 1c ac  |er1717.1+4309...|
000046e0  3a dc 20 4d 39 33 20 32  34 34 37 20 20 20 20 20  |:. M93 2447     |
000046f0  20 20 20 20 20 20 20 20  20 20 4f 70 65 6e 20 63  |          Open c|
00004700  6c 75 73 74 65 72 20 20  20 50 75 70 30 37 34 34  |luster   Pup0744|
00004710  2e 35 2d 32 33 35 32 0d  1c b6 3a dc 20 4d 39 34  |.5-2352...:. M94|
00004720  20 34 37 33 36 20 20 20  20 20 20 20 20 20 20 20  | 4736           |
00004730  20 20 20 20 53 70 69 72  61 6c 20 67 61 6c 61 78  |    Spiral galax|
00004740  79 20 20 43 56 6e 31 32  35 30 2e 38 2b 34 31 30  |y  CVn1250.8+410|
00004750  38 0d 1c c0 3a dc 20 4d  39 35 20 33 33 35 31 20  |8...:. M95 3351 |
00004760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 42 61  |              Ba|
00004770  72 72 65 64 20 73 70 72  6c 20 67 6c 79 4c 65 6f  |rred sprl glyLeo|
00004780  31 30 34 33 2e 39 2b 31  31 34 32 0d 1c ca 3a dc  |1043.9+1142...:.|
00004790  20 4d 39 36 20 33 33 36  38 20 20 20 20 20 20 20  | M96 3368       |
000047a0  20 20 20 20 20 20 20 20  53 70 69 72 61 6c 20 67  |        Spiral g|
000047b0  61 6c 61 78 79 20 20 4c  65 6f 31 30 34 36 2e 37  |alaxy  Leo1046.7|
000047c0  2b 31 31 34 39 0d 1c d4  3a dc 20 4d 39 37 20 33  |+1149...:. M97 3|
000047d0  35 38 37 4f 77 6c 20 4e  65 62 75 6c 61 20 20 20  |587Owl Nebula   |
000047e0  20 20 50 6c 61 6e 65 74  61 72 79 20 6e 65 62 20  |  Planetary neb |
000047f0  20 55 4d 61 31 31 31 34  2e 39 2b 35 35 30 32 0d  | UMa1114.9+5502.|
00004800  1c de 3a dc 20 4d 39 38  20 34 31 39 32 20 20 20  |..:. M98 4192   |
00004810  20 20 20 20 20 20 20 20  20 20 20 20 53 70 69 72  |            Spir|
00004820  61 6c 20 67 61 6c 61 78  79 20 20 43 6f 6d 31 32  |al galaxy  Com12|
00004830  31 33 2e 38 2b 31 34 35  34 0d 1c e8 3a dc 20 4d  |13.8+1454...:. M|
00004840  39 39 20 34 32 35 34 20  20 20 20 20 20 20 20 20  |99 4254         |
00004850  20 20 20 20 20 20 53 70  69 72 61 6c 20 67 61 6c  |      Spiral gal|
00004860  61 78 79 20 20 43 6f 6d  31 32 31 38 2e 38 2b 31  |axy  Com1218.8+1|
00004870  34 32 35 0d 1c f2 3a dc  20 4d 31 30 30 34 33 32  |425...:. M100432|
00004880  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00004890  53 70 69 72 61 6c 20 67  61 6c 61 78 79 20 20 43  |Spiral galaxy  C|
000048a0  6f 6d 31 32 32 32 2e 39  2b 31 35 34 39 0d 1c fc  |om1222.9+1549...|
000048b0  3a dc 20 4d 31 30 31 35  34 35 37 20 20 20 20 20  |:. M1015457     |
000048c0  20 20 20 20 20 20 20 20  20 20 53 70 69 72 61 6c  |          Spiral|
000048d0  20 67 61 6c 61 78 79 20  20 55 4d 61 31 34 30 33  | galaxy  UMa1403|
000048e0  2e 32 2b 35 34 32 31 0d  1d 06 3a dc 20 4d 31 30  |.2+5421...:. M10|
000048f0  32 2d 31 31 31 4e 6f 6e  2d 65 78 69 73 74 65 6e  |2-111Non-existen|
00004900  74 20 20 20 4d 65 73 73  69 65 72 20 65 72 72 6f  |t   Messier erro|
00004910  72 20 20 4f 4f 4f 30 30  30 30 2e 30 2b 30 30 30  |r  OOO0000.0+000|
00004920  30 0d 1d 10 3a dc 20 4d  31 30 33 20 35 38 31 20  |0...:. M103 581 |
00004930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4f 70  |              Op|
00004940  65 6e 20 63 6c 75 73 74  65 72 20 20 20 43 61 73  |en cluster   Cas|
00004950  30 31 33 33 2e 32 2b 36  30 34 32 0d 1d 1a 3a dc  |0133.2+6042...:.|
00004960  20 4d 31 30 34 34 35 39  34 53 6f 6d 62 72 65 72  | M1044594Sombrer|
00004970  6f 20 47 61 6c 61 78 79  53 70 69 72 61 6c 20 67  |o GalaxySpiral g|
00004980  61 6c 61 78 79 20 20 56  69 72 31 32 34 30 2e 30  |alaxy  Vir1240.0|
00004990  2d 31 31 33 37 0d 1d 24  3a dc 20 4d 31 30 35 33  |-1137..$:. M1053|
000049a0  33 37 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |379             |
000049b0  20 20 45 6c 6c 69 70 74  69 63 61 6c 20 67 6c 78  |  Elliptical glx|
000049c0  79 4c 65 6f 31 30 34 37  2e 39 2b 31 32 33 34 0d  |yLeo1047.9+1234.|
000049d0  1d 2e 3a dc 20 4d 31 30  36 34 32 35 38 20 20 20  |..:. M1064258   |
000049e0  20 20 20 20 20 20 20 20  20 20 20 20 53 70 69 72  |            Spir|
000049f0  61 6c 20 67 61 6c 61 78  79 20 20 43 56 6e 31 32  |al galaxy  CVn12|
00004a00  31 39 2e 30 2b 34 37 31  38 0d 1d 38 3a dc 20 4d  |19.0+4718..8:. M|
00004a10  31 30 37 36 31 37 31 20  20 20 20 20 20 20 20 20  |1076171         |
00004a20  20 20 20 20 20 20 4f 70  65 6e 20 63 6c 75 73 74  |      Open clust|
00004a30  65 72 20 20 20 4f 70 68  31 36 33 32 2e 35 2d 31  |er   Oph1632.5-1|
00004a40  33 30 34 0d 1d 42 3a dc  20 4d 31 30 38 33 35 35  |304..B:. M108355|
00004a50  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
00004a60  53 70 69 72 61 6c 20 67  61 6c 61 78 79 20 20 55  |Spiral galaxy  U|
00004a70  4d 61 31 31 31 31 2e 36  2b 35 35 34 31 0d 1d 4c  |Ma1111.6+5541..L|
00004a80  3a dc 20 4d 31 30 39 33  39 39 32 20 20 20 20 20  |:. M1093992     |
00004a90  20 20 20 20 20 20 20 20  20 20 42 61 72 72 65 64  |          Barred|
00004aa0  20 73 70 72 6c 20 67 6c  79 55 4d 61 31 31 35 37  | sprl glyUMa1157|
00004ab0  2e 36 2b 35 33 32 31 0d  1d 56 3a dc 20 4d 31 31  |.6+5321..V:. M11|
00004ac0  30 20 32 30 35 4d 33 31  20 53 61 74 65 6c 6c 69  |0 205M31 Satelli|
00004ad0  74 65 20 20 45 6c 6c 69  70 74 69 63 61 6c 20 67  |te  Elliptical g|
00004ae0  6c 78 79 41 6e 64 30 30  33 37 2e 36 2b 34 31 32  |lxyAnd0037.6+412|
00004af0  35 0d ff                                          |5..|
00004af3