11_10_87/ASTRO

Home » CEEFAX disks » telesoftware2.adl » 11_10_87/ASTRO

11_10_87/ASTRO

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware2.adl
Filename:	11_10_87/ASTRO
Read OK:	✔
File size:	1450 bytes
Load address:	1900
Exec address:	801F

File contents

   10 REM *****************
   20 REM *               *
   30 REM *     ASTRO     *
   40 REM *               *
   50 REM * by Ken Ebborn *
   60 REM *               *
   70 REM * February 1987 *
   80 REM *               *
   90 REM *****************
  100 MODE1
  110 VDU19,0,4;0;0;0;0:VDU19,2,6;0;0;0;0:VDU19,1,3;0;0;0;0
  120 *TV0,1
  130 PROCdims
  140 RACORR2=282:GACORR2=33:RAGA2=62
  150 CLS
  160 PRINT:PRINT
  170 COLOUR 1
  180 PRINT"                ***"
  190 PRINT"           ****     ****"
  200 PRINT"         ***** ASTRO *****"
  210 PRINT"           ****     ****"
  220 PRINT"                ***"
  230 PRINT:PRINT
  240 PRINT"A Spherical Polar Coordinate Converter"
  250 COLOUR 2
  260 PRINT:PRINT
  270 ER%=0
  280 PROCnow
  290 IF ER%=1 PROCer:GOTO 150
  300 CLS
  310 PRINT
  320 COLOUR 1
  330 PRINT:PRINT
  340 PRINT "Your Conversion Options Are:-"
  350 PRINT:PRINT
  360 COLOUR 2
  370 PRINT "1 Equatorial Coordinates to Azimuthal"
  380 PRINT "2 Azimuthal Coordinates to Equatorial"
  390 PRINT "3 Equatorial Coordinates to Galactic"
  400 PRINT "4 Galactic Coordinates to Equatorial"
  410 PRINT "5 Azimuthal Coordinates to Galactic"
  420 PRINT "6 Galactic Coordinates to Azimuthal"
  430 PRINT "7 Change date & time"
  440 PRINT "8 End Program"
  450 COLOUR 1
  460 PRINT:PRINT
  470 PRINT "Please enter your selection:- ";
  480 REPEAT
  490 TYPE$=INKEY$(32767)
  500 UNTIL ASC(TYPE$)>48 AND ASC(TYPE$)<57
  510 TYPE%=VAL(TYPE$)
  520 IF TYPE%=8 MODE7:END
  530 IF TYPE%=7 GOTO 150
  540 IF TYPE%=1 OR TYPE%=2 OR TYPE%=5 RACORR=RACORR1:GACORR=GACORR1:RAGA=RAGA1
  550 IF TYPE%=3 OR TYPE%=4 OR TYPE%=6 RACORR=RACORR2:GACORR=GACORR2:RAGA=RAGA2
  560 PRINT TYPE$
  570 COLOUR 2
  580 ER%=0
  590 PRINT:PRINT
  600 IF TYPE%=1 OR TYPE%=3 PROCeqin
  610 IF TYPE%=2 OR TYPE%=5 PROCazin
  620 IF TYPE%=4 OR TYPE%=6 PROCgain
  630 PRINT
  640 IF ER%=1 PROCer:GOTO 300
  650 PROCinvert
  660 IF TYPE%=5 RACORR=RACORR2:GACORR=GACORR2:RAGA=RAGA2:TYPE%=3:V1=V2:H1=H2:PROCinvert
  670 IF TYPE%=6 RACORR=RACORR1:GACORR=GACORR1:RAGA=RAGA1:TYPE%=1:V1=V2:H1=H2:PROCinvert
  680 IF TYPE%=1 PROCazout
  690 IF TYPE%=2 OR TYPE%=4 PROCeqout
  700 IF TYPE%=3 PROCgaout
  710 PROCend
  720 GOTO 300
  730 
  740 DEFPROCend
  750 PRINT:PRINT
  760 COLOUR 1
  770 PRINT "Press any key to continue";
  780 WAIT%=INKEY(32767)
  790 ENDPROC
  800 
  810 DEFPROCer
  820 PRINT:PRINT"Invalid value entered"
  830 PROCend
  840 ENDPROC
  850 
  860 DEFPROCazin
  870 INPUT "Please enter Bearing:  "H1
  880 IF H1<0 ER%=1:ENDPROC
  890 IF H1>360 ER%=1:ENDPROC
  900 H1=360-H1
  910 INPUT "Please enter Altitude: "V1
  920 IF V1<0 ER%=1:ENDPROC
  930 IF V1>90 ER%=1
  940 ENDPROC
  950 
  960 DEFPROCeqout
  970 RAHOURS%=H2/15
  980 RAMINS=((H2-(RAHOURS%*15))*4)
  990 RAMINS%=RAMINS
 1000 IF (RAMINS-RAMINS%)>.5 RAMINS%=RAMINS%+1
 1010 IF RAMINS%=60 RAHOURS%=RAHOURS%+1:RAMINS%=0
 1020 DEC%=V2
 1030 IF (V2-DEC%)>.5 DEC%=DEC%+1
 1040 PRINT "Right Ascension is ";RAHOURS%;" hours ";RAMINS%;" minutes"
 1050 PRINT "Declination is     ";DEC%;" degrees"
 1060 ENDPROC
 1070 
 1080 DEFPROCeqin
 1090 INPUT "Please enter Right Ascension hours: "RAHOURS
 1100 IF RAHOURS<0 ER%=1:ENDPROC
 1110 IF RAHOURS>23 ER%=1:ENDPROC
 1120 INPUT "Please enter Right Ascension mins:  "RAMINS
 1130 IF RAMINS<0 ER%=1:ENDPROC
 1140 IF RAMINS>59 ER%=1:ENDPROC
 1150 H1=(RAHOURS+(RAMINS/60))*15
 1160 INPUT "Please enter Declination degrees:   "V1
 1170 IF V1<-90 ER%=1:ENDPROC
 1180 IF V1>90 ER%=1
 1190 ENDPROC
 1200 
 1210 DEFPROCinvert
 1220 IND=0
 1230 IF TYPE%=1 OR TYPE%=3 H1=H1-RACORR ELSE H1=H1-GACORR
 1240 IF H1>270 H1=H1-360:GOTO 1240
 1250 IF H1<-90 H1=H1+360:GOTO 1250
 1260 IF H1>90 H1=H1-180:IND=1
 1270 IF IND=1 V1=-V1
 1280 V1=RAD(V1):H1=RAD(H1)
 1290 ANGLEOP=ACS(COS(H1)*COS(V1))
 1300 TEST=SIN(V1)/SIN(ANGLEOP)
 1310 IF TEST>1 D1=PI/2:GOTO 1340
 1320 IF TEST<-1 D1=-PI/2:GOTO 1340
 1330 D1=ASN(SIN(V1)/SIN(ANGLEOP))
 1340 IF H1<0 D1=PI-D1
 1350 IF TYPE%=1 OR TYPE%=3 D2=D1-RAD(RAGA) ELSE D2=D1+RAD(RAGA)
 1360 V2=ASN(SIN(D2)*SIN(ANGLEOP))
 1370 IF COS(ANGLEOP)/COS(V2)>1 H2=0:GOTO 1400
 1380 IF COS(ANGLEOP)/COS(V2)<-1 H2=PI:GOTO 1400
 1390 H2=ACS(COS(ANGLEOP)/COS(V2))
 1400 IF D2>PI D2=D2-(PI*2)
 1410 IF D2<-PI D2=D2+(2*PI)
 1420 IF D2>(PI/2) H2=-H2
 1430 IF D2<-(PI/2) H2=-H2
 1440 H2=H2*180/PI:V2=V2*180/PI
 1450 IF IND=1 H2=H2-180:V2=-V2
 1460 IF TYPE%=1 OR TYPE%=3 H2=H2+GACORR ELSE H2=H2+RACORR
 1470 IF H2<0 THEN H2=H2+360:GOTO 1470
 1480 IF H2>360 THEN H2=H2-360:GOTO 1480
 1490 ENDPROC
 1500 
 1510 DEFPROCazout
 1520 IF V2<0 PRINT "The point is below the horizon":ENDPROC
 1530 H2=360-H2
 1540 GLONG%=H2:GLATT%=V2
 1550 IF (H2-GLONG%)>.5 GLONG%=GLONG%+1
 1560 IF (V2-GLATT%)>.5 GLATT%=GLATT%+1
 1570 PRINT "Bearing is:  ";GLONG%
 1580 PRINT "Altitude is: ";GLATT%
 1590 ENDPROC
 1600 
 1610 DEFPROCdims
 1620 DIM M(12)
 1630 M(1)=31:M(2)=28:M(3)=31:M(4)=30:M(5)=31:M(6)=30
 1640 M(7)=31:M(8)=31:M(9)=30:M(10)=31:M(11)=30:M(12)=31
 1650 ENDPROC
 1660 
 1670 DEFPROCnow
 1680 PRINT:PRINT
 1690 PRINT "Please enter the following details:-"
 1700 PRINT:PRINT
 1710 INPUT " Date concerned (month,day) "MM%,DD%
 1720 IF MM%<0 OR MM%>12 ER%=1:ENDPROC
 1730 IF DD%<0 OR DD%>M(MM%) ER%=1:ENDPROC
 1740 INPUT " Time:- G.M.T. (hours,mins) "HH%,mm%
 1750 IF HH%<0 OR HH%>23 ER%=1:ENDPROC
 1760 IF mm%<0 OR mm%>59 ER%=1:ENDPROC
 1770 PRINT
 1780 INPUT " Latitude concerned (degs)  "AZLAT
 1790 IF AZLAT>89 OR AZLAT<-89 ER%=1:ENDPROC
 1800 INPUT " Longitude (degs, west +ve) "AZLONG
 1810 IF AZLONG<-180 OR AZLONG>180 ER%=1:ENDPROC
 1820 DAY=0
 1830 IF MM%>1 MM%=MM%-1:DAY=DAY+M(MM%):GOTO 1830
 1840 DAY=DAY+DD%+(HH%/24)+(mm%/1200)-(AZLONG/360)
 1850 BASEDAY=5+(17/24)
 1860 DAY=DAY-BASEDAY
 1870 IF DAY<0 DAY=DAY+365
 1880 SDAY=DAY*366/365
 1890 SDAY%=SDAY
 1900 STIME=(SDAY-SDAY%)*360
 1910 RACORR1=STIME+90
 1920 IF RACORR1>359 RACORR1=RACORR1-360:GOTO 1920
 1930 IF RACORR1<0 RACORR1=RACORR1+360:GOTO 1930
 1940 GACORR1=270
 1950 RAGA1=90-AZLAT
 1960 ENDPROC
 1970 
 1980 DEFPROCgain
 1990 INPUT "Please enter Galactic Longitude: "H1
 2000 IF H1<0 ER%=1:ENDPROC
 2010 IF H1>360 ER%=1:ENDPROC
 2020 INPUT "Please enter Galactic Lattitude: "V1
 2030 IF V1<-90 ER%=1:ENDPROC
 2040 IF V1>90 ER%=1
 2050 ENDPROC
 2060 
 2070 DEFPROCgaout
 2080 GLONG%=H2:GLATT%=V2
 2090 IF (H2-GLONG%)>.5 GLONG%=GLONG%+1
 2100 IF (V2-GLATT%)>.5 GLATT%=GLATT%+1
 2110 PRINT "Galactic longitude is: ";GLONG%
 2120 PRINT "Galactic lattitude is: ";GLATT%
 2130 ENDPROC


 � *****************
 � *               *
 � *     ASTRO     *
( � *               *
2 � * by Ken Ebborn *
< � *               *
F � * February 1987 *
P � *               *
Z � *****************
d �1
n4 �19,0,4;0;0;0;0:�19,2,6;0;0;0;0:�19,1,3;0;0;0;0
x *TV0,1
�
 �dims
�$ RACORR2=282:GACORR2=33:RAGA2=62
� �
� �:�
� � 1
� �"                ***"
�  �"           ****     ****"
�" �"         ***** ASTRO *****"
�  �"           ****     ****"
� �"                ***"
� �:�
�. �"A Spherical Polar Coordinate Converter"
� � 2
 �:�

 ER%=0
	 �now
" � ER%=1 �er:� �tV@
, �
6 �
@ � 1
J �:�
T& � "Your Conversion Options Are:-"
^ �:�
h � 2
r. � "1 Equatorial Coordinates to Azimuthal"
|. � "2 Azimuthal Coordinates to Equatorial"
�- � "3 Equatorial Coordinates to Galactic"
�- � "4 Galactic Coordinates to Equatorial"
�, � "5 Azimuthal Coordinates to Galactic"
�, � "6 Galactic Coordinates to Azimuthal"
� � "7 Change date & time"
� � "8 End Program"
� � 1
� �:�
�( � "Please enter your selection:- ";
� �
� TYPE$=�(32767)
�  � �(TYPE$)>48 � �(TYPE$)<57
� TYPE%=�(TYPE$)
 � TYPE%=8 �7:�
 � TYPE%=7 � �tV@
K � TYPE%=1 � TYPE%=2 � TYPE%=5 RACORR=RACORR1:GACORR=GACORR1:RAGA=RAGA1
&K � TYPE%=3 � TYPE%=4 � TYPE%=6 RACORR=RACORR2:GACORR=GACORR2:RAGA=RAGA2
0 � TYPE$
: � 2
D
 ER%=0
N �:�
X � TYPE%=1 � TYPE%=3 �eqin
b � TYPE%=2 � TYPE%=5 �azin
l � TYPE%=4 � TYPE%=6 �gain
v �
� � ER%=1 �er:� �TlA
� �invert
�S � TYPE%=5 RACORR=RACORR2:GACORR=GACORR2:RAGA=RAGA2:TYPE%=3:V1=V2:H1=H2:�invert
�S � TYPE%=6 RACORR=RACORR1:GACORR=GACORR1:RAGA=RAGA1:TYPE%=1:V1=V2:H1=H2:�invert
� � TYPE%=1 �azout
� � TYPE%=2 � TYPE%=4 �eqout
� � TYPE%=3 �gaout
�	 �end
� � �TlA
� 
�
 ��end
� �:�
� � 1
# � "Press any key to continue";
 WAIT%=�(32767)
 �
  
*	 ��er
4 �:�"Invalid value entered"
>	 �end
H �
R 
\ ��azin
f" � "Please enter Bearing:  "H1
p � H1<0 ER%=1:�
z � H1>360 ER%=1:�
� H1=360-H1
�" � "Please enter Altitude: "V1
� � V1<0 ER%=1:�
� � V1>90 ER%=1
� �
� 
� ��eqout
� RAHOURS%=H2/15
�" RAMINS=((H2-(RAHOURS%*15))*4)
� RAMINS%=RAMINS
�, � (RAMINS-RAMINS%)>.5 RAMINS%=RAMINS%+1
�/ � RAMINS%=60 RAHOURS%=RAHOURS%+1:RAMINS%=0
� DEC%=V2
 � (V2-DEC%)>.5 DEC%=DEC%+1
B � "Right Ascension is ";RAHOURS%;" hours ";RAMINS%;" minutes"
, � "Declination is     ";DEC%;" degrees"
$ �
. 
8 ��eqin
B4 � "Please enter Right Ascension hours: "RAHOURS
L � RAHOURS<0 ER%=1:�
V � RAHOURS>23 ER%=1:�
`3 � "Please enter Right Ascension mins:  "RAMINS
j � RAMINS<0 ER%=1:�
t � RAMINS>59 ER%=1:�
~  H1=(RAHOURS+(RAMINS/60))*15
�/ � "Please enter Declination degrees:   "V1
� � V1<-90 ER%=1:�
� � V1>90 ER%=1
� �
� 
�
 ��invert
�
 IND=0
�4 � TYPE%=1 � TYPE%=3 H1=H1-RACORR � H1=H1-GACORR
� � H1>270 H1=H1-360:� �dXD
� � H1<-90 H1=H1+360:� �dbD
� � H1>90 H1=H1-180:IND=1
� � IND=1 V1=-V1
 V1=�(V1):H1=�(H1)

 ANGLEOP=�(�(H1)*�(V1))
 TEST=�(V1)/�(ANGLEOP)
 � TEST>1 D1=�/2:� �T|E
( � TEST<-1 D1=-�/2:� �T|E
2 D1=�(�(V1)/�(ANGLEOP))
< � H1<0 D1=�-D1
F6 � TYPE%=1 � TYPE%=3 D2=D1-�(RAGA) � D2=D1+�(RAGA)
P V2=�(�(D2)*�(ANGLEOP))
Z% � �(ANGLEOP)/�(V2)>1 H2=0:� �DxE
d& � �(ANGLEOP)/�(V2)<-1 H2=�:� �DxE
n H2=�(�(ANGLEOP)/�(V2))
x � D2>� D2=D2-(�*2)
� � D2<-� D2=D2+(2*�)
� � D2>(�/2) H2=-H2
� � D2<-(�/2) H2=-H2
� H2=H2*180/�:V2=V2*180/�
� � IND=1 H2=H2-180:V2=-V2
�4 � TYPE%=1 � TYPE%=3 H2=H2+GACORR � H2=H2+RACORR
� � H2<0 � H2=H2+360:� �t~E
�  � H2>360 � H2=H2-360:� �dHE
� �
� 
� ��azout
�0 � V2<0 � "The point is below the horizon":�
� H2=360-H2
 GLONG%=H2:GLATT%=V2
% � (H2-GLONG%)>.5 GLONG%=GLONG%+1
% � (V2-GLATT%)>.5 GLATT%=GLATT%+1
" � "Bearing is:  ";GLONG%
, � "Altitude is: ";GLATT%
6 �
@ 
J ��dims
T � M(12)
^4 M(1)=31:M(2)=28:M(3)=31:M(4)=30:M(5)=31:M(6)=30
h7 M(7)=31:M(8)=31:M(9)=30:M(10)=31:M(11)=30:M(12)=31
r �
| 
�
 ��now
� �:�
�- � "Please enter the following details:-"
� �:�
�, � " Date concerned (month,day) "MM%,DD%
� � MM%<0 � MM%>12 ER%=1:�
�! � DD%<0 � DD%>M(MM%) ER%=1:�
�, � " Time:- G.M.T. (hours,mins) "HH%,mm%
� � HH%<0 � HH%>23 ER%=1:�
� � mm%<0 � mm%>59 ER%=1:�
� �
�* � " Latitude concerned (degs)  "AZLAT
�# � AZLAT>89 � AZLAT<-89 ER%=1:�
+ � " Longitude (degs, west +ve) "AZLONG
' � AZLONG<-180 � AZLONG>180 ER%=1:�

 DAY=0
&, � MM%>1 MM%=MM%-1:DAY=DAY+M(MM%):� �TfG
01 DAY=DAY+DD%+(HH%/24)+(mm%/1200)-(AZLONG/360)
: BASEDAY=5+(17/24)
D DAY=DAY-BASEDAY
N � DAY<0 DAY=DAY+365
X SDAY=DAY*366/365
b SDAY%=SDAY
l STIME=(SDAY-SDAY%)*360
v RACORR1=STIME+90
�- � RACORR1>359 RACORR1=RACORR1-360:� �t@G
�+ � RACORR1<0 RACORR1=RACORR1+360:� �tJG
� GACORR1=270
� RAGA1=90-AZLAT
� �
� 
� ��gain
�, � "Please enter Galactic Longitude: "H1
� � H1<0 ER%=1:�
� � H1>360 ER%=1:�
�, � "Please enter Galactic Lattitude: "V1
� � V1<-90 ER%=1:�
� � V1>90 ER%=1
 �
 
 ��gaout
  GLONG%=H2:GLATT%=V2
*% � (H2-GLONG%)>.5 GLONG%=GLONG%+1
4% � (V2-GLATT%)>.5 GLATT%=GLATT%+1
>' � "Galactic longitude is: ";GLONG%
H' � "Galactic lattitude is: ";GLATT%
R �
�

00000000  0d 00 0a 18 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.... . *********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 14 18 20 f4 20 2a  |********.... . *|
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
00000030  0d 00 1e 18 20 f4 20 2a  20 20 20 20 20 41 53 54  |.... . *     AST|
00000040  52 4f 20 20 20 20 20 2a  0d 00 28 18 20 f4 20 2a  |RO     *..(. . *|
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
00000060  0d 00 32 18 20 f4 20 2a  20 62 79 20 4b 65 6e 20  |..2. . * by Ken |
00000070  45 62 62 6f 72 6e 20 2a  0d 00 3c 18 20 f4 20 2a  |Ebborn *..<. . *|
00000080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
00000090  0d 00 46 18 20 f4 20 2a  20 46 65 62 72 75 61 72  |..F. . * Februar|
000000a0  79 20 31 39 38 37 20 2a  0d 00 50 18 20 f4 20 2a  |y 1987 *..P. . *|
000000b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
000000c0  0d 00 5a 18 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..Z. . *********|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 64 07 20 eb 31 0d  |********..d. .1.|
000000e0  00 6e 34 20 ef 31 39 2c  30 2c 34 3b 30 3b 30 3b  |.n4 .19,0,4;0;0;|
000000f0  30 3b 30 3a ef 31 39 2c  32 2c 36 3b 30 3b 30 3b  |0;0:.19,2,6;0;0;|
00000100  30 3b 30 3a ef 31 39 2c  31 2c 33 3b 30 3b 30 3b  |0;0:.19,1,3;0;0;|
00000110  30 3b 30 0d 00 78 0b 20  2a 54 56 30 2c 31 0d 00  |0;0..x. *TV0,1..|
00000120  82 0a 20 f2 64 69 6d 73  0d 00 8c 24 20 52 41 43  |.. .dims...$ RAC|
00000130  4f 52 52 32 3d 32 38 32  3a 47 41 43 4f 52 52 32  |ORR2=282:GACORR2|
00000140  3d 33 33 3a 52 41 47 41  32 3d 36 32 0d 00 96 06  |=33:RAGA2=62....|
00000150  20 db 0d 00 a0 08 20 f1  3a f1 0d 00 aa 08 20 fb  | ..... .:..... .|
00000160  20 31 0d 00 b4 1b 20 f1  22 20 20 20 20 20 20 20  | 1.... ."       |
00000170  20 20 20 20 20 20 20 20  20 2a 2a 2a 22 0d 00 be  |         ***"...|
00000180  20 20 f1 22 20 20 20 20  20 20 20 20 20 20 20 2a  |  ."           *|
00000190  2a 2a 2a 20 20 20 20 20  2a 2a 2a 2a 22 0d 00 c8  |***     ****"...|
000001a0  22 20 f1 22 20 20 20 20  20 20 20 20 20 2a 2a 2a  |" ."         ***|
000001b0  2a 2a 20 41 53 54 52 4f  20 2a 2a 2a 2a 2a 22 0d  |** ASTRO *****".|
000001c0  00 d2 20 20 f1 22 20 20  20 20 20 20 20 20 20 20  |..  ."          |
000001d0  20 2a 2a 2a 2a 20 20 20  20 20 2a 2a 2a 2a 22 0d  | ****     ****".|
000001e0  00 dc 1b 20 f1 22 20 20  20 20 20 20 20 20 20 20  |... ."          |
000001f0  20 20 20 20 20 20 2a 2a  2a 22 0d 00 e6 08 20 f1  |      ***".... .|
00000200  3a f1 0d 00 f0 2e 20 f1  22 41 20 53 70 68 65 72  |:..... ."A Spher|
00000210  69 63 61 6c 20 50 6f 6c  61 72 20 43 6f 6f 72 64  |ical Polar Coord|
00000220  69 6e 61 74 65 20 43 6f  6e 76 65 72 74 65 72 22  |inate Converter"|
00000230  0d 00 fa 08 20 fb 20 32  0d 01 04 08 20 f1 3a f1  |.... . 2.... .:.|
00000240  0d 01 0e 0a 20 45 52 25  3d 30 0d 01 18 09 20 f2  |.... ER%=0.... .|
00000250  6e 6f 77 0d 01 22 17 20  e7 20 45 52 25 3d 31 20  |now..". . ER%=1 |
00000260  f2 65 72 3a e5 20 8d 74  56 40 0d 01 2c 06 20 db  |.er:. .tV@..,. .|
00000270  0d 01 36 06 20 f1 0d 01  40 08 20 fb 20 31 0d 01  |..6. ...@. . 1..|
00000280  4a 08 20 f1 3a f1 0d 01  54 26 20 f1 20 22 59 6f  |J. .:...T& . "Yo|
00000290  75 72 20 43 6f 6e 76 65  72 73 69 6f 6e 20 4f 70  |ur Conversion Op|
000002a0  74 69 6f 6e 73 20 41 72  65 3a 2d 22 0d 01 5e 08  |tions Are:-"..^.|
000002b0  20 f1 3a f1 0d 01 68 08  20 fb 20 32 0d 01 72 2e  | .:...h. . 2..r.|
000002c0  20 f1 20 22 31 20 45 71  75 61 74 6f 72 69 61 6c  | . "1 Equatorial|
000002d0  20 43 6f 6f 72 64 69 6e  61 74 65 73 20 74 6f 20  | Coordinates to |
000002e0  41 7a 69 6d 75 74 68 61  6c 22 0d 01 7c 2e 20 f1  |Azimuthal"..|. .|
000002f0  20 22 32 20 41 7a 69 6d  75 74 68 61 6c 20 43 6f  | "2 Azimuthal Co|
00000300  6f 72 64 69 6e 61 74 65  73 20 74 6f 20 45 71 75  |ordinates to Equ|
00000310  61 74 6f 72 69 61 6c 22  0d 01 86 2d 20 f1 20 22  |atorial"...- . "|
00000320  33 20 45 71 75 61 74 6f  72 69 61 6c 20 43 6f 6f  |3 Equatorial Coo|
00000330  72 64 69 6e 61 74 65 73  20 74 6f 20 47 61 6c 61  |rdinates to Gala|
00000340  63 74 69 63 22 0d 01 90  2d 20 f1 20 22 34 20 47  |ctic"...- . "4 G|
00000350  61 6c 61 63 74 69 63 20  43 6f 6f 72 64 69 6e 61  |alactic Coordina|
00000360  74 65 73 20 74 6f 20 45  71 75 61 74 6f 72 69 61  |tes to Equatoria|
00000370  6c 22 0d 01 9a 2c 20 f1  20 22 35 20 41 7a 69 6d  |l"..., . "5 Azim|
00000380  75 74 68 61 6c 20 43 6f  6f 72 64 69 6e 61 74 65  |uthal Coordinate|
00000390  73 20 74 6f 20 47 61 6c  61 63 74 69 63 22 0d 01  |s to Galactic"..|
000003a0  a4 2c 20 f1 20 22 36 20  47 61 6c 61 63 74 69 63  |., . "6 Galactic|
000003b0  20 43 6f 6f 72 64 69 6e  61 74 65 73 20 74 6f 20  | Coordinates to |
000003c0  41 7a 69 6d 75 74 68 61  6c 22 0d 01 ae 1d 20 f1  |Azimuthal".... .|
000003d0  20 22 37 20 43 68 61 6e  67 65 20 64 61 74 65 20  | "7 Change date |
000003e0  26 20 74 69 6d 65 22 0d  01 b8 16 20 f1 20 22 38  |& time".... . "8|
000003f0  20 45 6e 64 20 50 72 6f  67 72 61 6d 22 0d 01 c2  | End Program"...|
00000400  08 20 fb 20 31 0d 01 cc  08 20 f1 3a f1 0d 01 d6  |. . 1.... .:....|
00000410  28 20 f1 20 22 50 6c 65  61 73 65 20 65 6e 74 65  |( . "Please ente|
00000420  72 20 79 6f 75 72 20 73  65 6c 65 63 74 69 6f 6e  |r your selection|
00000430  3a 2d 20 22 3b 0d 01 e0  06 20 f5 0d 01 ea 13 20  |:- ";.... ..... |
00000440  54 59 50 45 24 3d bf 28  33 32 37 36 37 29 0d 01  |TYPE$=.(32767)..|
00000450  f4 20 20 fd 20 97 28 54  59 50 45 24 29 3e 34 38  |.  . .(TYPE$)>48|
00000460  20 80 20 97 28 54 59 50  45 24 29 3c 35 37 0d 01  | . .(TYPE$)<57..|
00000470  fe 13 20 54 59 50 45 25  3d bb 28 54 59 50 45 24  |.. TYPE%=.(TYPE$|
00000480  29 0d 02 08 13 20 e7 20  54 59 50 45 25 3d 38 20  |).... . TYPE%=8 |
00000490  eb 37 3a e0 0d 02 12 15  20 e7 20 54 59 50 45 25  |.7:..... . TYPE%|
000004a0  3d 37 20 e5 20 8d 74 56  40 0d 02 1c 4b 20 e7 20  |=7 . .tV@...K . |
000004b0  54 59 50 45 25 3d 31 20  84 20 54 59 50 45 25 3d  |TYPE%=1 . TYPE%=|
000004c0  32 20 84 20 54 59 50 45  25 3d 35 20 52 41 43 4f  |2 . TYPE%=5 RACO|
000004d0  52 52 3d 52 41 43 4f 52  52 31 3a 47 41 43 4f 52  |RR=RACORR1:GACOR|
000004e0  52 3d 47 41 43 4f 52 52  31 3a 52 41 47 41 3d 52  |R=GACORR1:RAGA=R|
000004f0  41 47 41 31 0d 02 26 4b  20 e7 20 54 59 50 45 25  |AGA1..&K . TYPE%|
00000500  3d 33 20 84 20 54 59 50  45 25 3d 34 20 84 20 54  |=3 . TYPE%=4 . T|
00000510  59 50 45 25 3d 36 20 52  41 43 4f 52 52 3d 52 41  |YPE%=6 RACORR=RA|
00000520  43 4f 52 52 32 3a 47 41  43 4f 52 52 3d 47 41 43  |CORR2:GACORR=GAC|
00000530  4f 52 52 32 3a 52 41 47  41 3d 52 41 47 41 32 0d  |ORR2:RAGA=RAGA2.|
00000540  02 30 0c 20 f1 20 54 59  50 45 24 0d 02 3a 08 20  |.0. . TYPE$..:. |
00000550  fb 20 32 0d 02 44 0a 20  45 52 25 3d 30 0d 02 4e  |. 2..D. ER%=0..N|
00000560  08 20 f1 3a f1 0d 02 58  1e 20 e7 20 54 59 50 45  |. .:...X. . TYPE|
00000570  25 3d 31 20 84 20 54 59  50 45 25 3d 33 20 f2 65  |%=1 . TYPE%=3 .e|
00000580  71 69 6e 0d 02 62 1e 20  e7 20 54 59 50 45 25 3d  |qin..b. . TYPE%=|
00000590  32 20 84 20 54 59 50 45  25 3d 35 20 f2 61 7a 69  |2 . TYPE%=5 .azi|
000005a0  6e 0d 02 6c 1e 20 e7 20  54 59 50 45 25 3d 34 20  |n..l. . TYPE%=4 |
000005b0  84 20 54 59 50 45 25 3d  36 20 f2 67 61 69 6e 0d  |. TYPE%=6 .gain.|
000005c0  02 76 06 20 f1 0d 02 80  17 20 e7 20 45 52 25 3d  |.v. ..... . ER%=|
000005d0  31 20 f2 65 72 3a e5 20  8d 54 6c 41 0d 02 8a 0c  |1 .er:. .TlA....|
000005e0  20 f2 69 6e 76 65 72 74  0d 02 94 53 20 e7 20 54  | .invert...S . T|
000005f0  59 50 45 25 3d 35 20 52  41 43 4f 52 52 3d 52 41  |YPE%=5 RACORR=RA|
00000600  43 4f 52 52 32 3a 47 41  43 4f 52 52 3d 47 41 43  |CORR2:GACORR=GAC|
00000610  4f 52 52 32 3a 52 41 47  41 3d 52 41 47 41 32 3a  |ORR2:RAGA=RAGA2:|
00000620  54 59 50 45 25 3d 33 3a  56 31 3d 56 32 3a 48 31  |TYPE%=3:V1=V2:H1|
00000630  3d 48 32 3a f2 69 6e 76  65 72 74 0d 02 9e 53 20  |=H2:.invert...S |
00000640  e7 20 54 59 50 45 25 3d  36 20 52 41 43 4f 52 52  |. TYPE%=6 RACORR|
00000650  3d 52 41 43 4f 52 52 31  3a 47 41 43 4f 52 52 3d  |=RACORR1:GACORR=|
00000660  47 41 43 4f 52 52 31 3a  52 41 47 41 3d 52 41 47  |GACORR1:RAGA=RAG|
00000670  41 31 3a 54 59 50 45 25  3d 31 3a 56 31 3d 56 32  |A1:TYPE%=1:V1=V2|
00000680  3a 48 31 3d 48 32 3a f2  69 6e 76 65 72 74 0d 02  |:H1=H2:.invert..|
00000690  a8 15 20 e7 20 54 59 50  45 25 3d 31 20 f2 61 7a  |.. . TYPE%=1 .az|
000006a0  6f 75 74 0d 02 b2 1f 20  e7 20 54 59 50 45 25 3d  |out.... . TYPE%=|
000006b0  32 20 84 20 54 59 50 45  25 3d 34 20 f2 65 71 6f  |2 . TYPE%=4 .eqo|
000006c0  75 74 0d 02 bc 15 20 e7  20 54 59 50 45 25 3d 33  |ut.... . TYPE%=3|
000006d0  20 f2 67 61 6f 75 74 0d  02 c6 09 20 f2 65 6e 64  | .gaout.... .end|
000006e0  0d 02 d0 0b 20 e5 20 8d  54 6c 41 0d 02 da 05 20  |.... . .TlA.... |
000006f0  0d 02 e4 0a 20 dd f2 65  6e 64 0d 02 ee 08 20 f1  |.... ..end.... .|
00000700  3a f1 0d 02 f8 08 20 fb  20 31 0d 03 02 23 20 f1  |:..... . 1...# .|
00000710  20 22 50 72 65 73 73 20  61 6e 79 20 6b 65 79 20  | "Press any key |
00000720  74 6f 20 63 6f 6e 74 69  6e 75 65 22 3b 0d 03 0c  |to continue";...|
00000730  13 20 57 41 49 54 25 3d  a6 28 33 32 37 36 37 29  |. WAIT%=.(32767)|
00000740  0d 03 16 06 20 e1 0d 03  20 05 20 0d 03 2a 09 20  |.... ... . ..*. |
00000750  dd f2 65 72 0d 03 34 1f  20 f1 3a f1 22 49 6e 76  |..er..4. .:."Inv|
00000760  61 6c 69 64 20 76 61 6c  75 65 20 65 6e 74 65 72  |alid value enter|
00000770  65 64 22 0d 03 3e 09 20  f2 65 6e 64 0d 03 48 06  |ed"..>. .end..H.|
00000780  20 e1 0d 03 52 05 20 0d  03 5c 0b 20 dd f2 61 7a  | ...R. ..\. ..az|
00000790  69 6e 0d 03 66 22 20 e8  20 22 50 6c 65 61 73 65  |in..f" . "Please|
000007a0  20 65 6e 74 65 72 20 42  65 61 72 69 6e 67 3a 20  | enter Bearing: |
000007b0  20 22 48 31 0d 03 70 13  20 e7 20 48 31 3c 30 20  | "H1..p. . H1<0 |
000007c0  45 52 25 3d 31 3a e1 0d  03 7a 15 20 e7 20 48 31  |ER%=1:...z. . H1|
000007d0  3e 33 36 30 20 45 52 25  3d 31 3a e1 0d 03 84 0e  |>360 ER%=1:.....|
000007e0  20 48 31 3d 33 36 30 2d  48 31 0d 03 8e 22 20 e8  | H1=360-H1..." .|
000007f0  20 22 50 6c 65 61 73 65  20 65 6e 74 65 72 20 41  | "Please enter A|
00000800  6c 74 69 74 75 64 65 3a  20 22 56 31 0d 03 98 13  |ltitude: "V1....|
00000810  20 e7 20 56 31 3c 30 20  45 52 25 3d 31 3a e1 0d  | . V1<0 ER%=1:..|
00000820  03 a2 12 20 e7 20 56 31  3e 39 30 20 45 52 25 3d  |... . V1>90 ER%=|
00000830  31 0d 03 ac 06 20 e1 0d  03 b6 05 20 0d 03 c0 0c  |1.... ..... ....|
00000840  20 dd f2 65 71 6f 75 74  0d 03 ca 13 20 52 41 48  | ..eqout.... RAH|
00000850  4f 55 52 53 25 3d 48 32  2f 31 35 0d 03 d4 22 20  |OURS%=H2/15..." |
00000860  52 41 4d 49 4e 53 3d 28  28 48 32 2d 28 52 41 48  |RAMINS=((H2-(RAH|
00000870  4f 55 52 53 25 2a 31 35  29 29 2a 34 29 0d 03 de  |OURS%*15))*4)...|
00000880  13 20 52 41 4d 49 4e 53  25 3d 52 41 4d 49 4e 53  |. RAMINS%=RAMINS|
00000890  0d 03 e8 2c 20 e7 20 28  52 41 4d 49 4e 53 2d 52  |..., . (RAMINS-R|
000008a0  41 4d 49 4e 53 25 29 3e  2e 35 20 52 41 4d 49 4e  |AMINS%)>.5 RAMIN|
000008b0  53 25 3d 52 41 4d 49 4e  53 25 2b 31 0d 03 f2 2f  |S%=RAMINS%+1.../|
000008c0  20 e7 20 52 41 4d 49 4e  53 25 3d 36 30 20 52 41  | . RAMINS%=60 RA|
000008d0  48 4f 55 52 53 25 3d 52  41 48 4f 55 52 53 25 2b  |HOURS%=RAHOURS%+|
000008e0  31 3a 52 41 4d 49 4e 53  25 3d 30 0d 03 fc 0c 20  |1:RAMINS%=0.... |
000008f0  44 45 43 25 3d 56 32 0d  04 06 1f 20 e7 20 28 56  |DEC%=V2.... . (V|
00000900  32 2d 44 45 43 25 29 3e  2e 35 20 44 45 43 25 3d  |2-DEC%)>.5 DEC%=|
00000910  44 45 43 25 2b 31 0d 04  10 42 20 f1 20 22 52 69  |DEC%+1...B . "Ri|
00000920  67 68 74 20 41 73 63 65  6e 73 69 6f 6e 20 69 73  |ght Ascension is|
00000930  20 22 3b 52 41 48 4f 55  52 53 25 3b 22 20 68 6f  | ";RAHOURS%;" ho|
00000940  75 72 73 20 22 3b 52 41  4d 49 4e 53 25 3b 22 20  |urs ";RAMINS%;" |
00000950  6d 69 6e 75 74 65 73 22  0d 04 1a 2c 20 f1 20 22  |minutes"..., . "|
00000960  44 65 63 6c 69 6e 61 74  69 6f 6e 20 69 73 20 20  |Declination is  |
00000970  20 20 20 22 3b 44 45 43  25 3b 22 20 64 65 67 72  |   ";DEC%;" degr|
00000980  65 65 73 22 0d 04 24 06  20 e1 0d 04 2e 05 20 0d  |ees"..$. ..... .|
00000990  04 38 0b 20 dd f2 65 71  69 6e 0d 04 42 34 20 e8  |.8. ..eqin..B4 .|
000009a0  20 22 50 6c 65 61 73 65  20 65 6e 74 65 72 20 52  | "Please enter R|
000009b0  69 67 68 74 20 41 73 63  65 6e 73 69 6f 6e 20 68  |ight Ascension h|
000009c0  6f 75 72 73 3a 20 22 52  41 48 4f 55 52 53 0d 04  |ours: "RAHOURS..|
000009d0  4c 18 20 e7 20 52 41 48  4f 55 52 53 3c 30 20 45  |L. . RAHOURS<0 E|
000009e0  52 25 3d 31 3a e1 0d 04  56 19 20 e7 20 52 41 48  |R%=1:...V. . RAH|
000009f0  4f 55 52 53 3e 32 33 20  45 52 25 3d 31 3a e1 0d  |OURS>23 ER%=1:..|
00000a00  04 60 33 20 e8 20 22 50  6c 65 61 73 65 20 65 6e  |.`3 . "Please en|
00000a10  74 65 72 20 52 69 67 68  74 20 41 73 63 65 6e 73  |ter Right Ascens|
00000a20  69 6f 6e 20 6d 69 6e 73  3a 20 20 22 52 41 4d 49  |ion mins:  "RAMI|
00000a30  4e 53 0d 04 6a 17 20 e7  20 52 41 4d 49 4e 53 3c  |NS..j. . RAMINS<|
00000a40  30 20 45 52 25 3d 31 3a  e1 0d 04 74 18 20 e7 20  |0 ER%=1:...t. . |
00000a50  52 41 4d 49 4e 53 3e 35  39 20 45 52 25 3d 31 3a  |RAMINS>59 ER%=1:|
00000a60  e1 0d 04 7e 20 20 48 31  3d 28 52 41 48 4f 55 52  |...~  H1=(RAHOUR|
00000a70  53 2b 28 52 41 4d 49 4e  53 2f 36 30 29 29 2a 31  |S+(RAMINS/60))*1|
00000a80  35 0d 04 88 2f 20 e8 20  22 50 6c 65 61 73 65 20  |5.../ . "Please |
00000a90  65 6e 74 65 72 20 44 65  63 6c 69 6e 61 74 69 6f  |enter Declinatio|
00000aa0  6e 20 64 65 67 72 65 65  73 3a 20 20 20 22 56 31  |n degrees:   "V1|
00000ab0  0d 04 92 15 20 e7 20 56  31 3c 2d 39 30 20 45 52  |.... . V1<-90 ER|
00000ac0  25 3d 31 3a e1 0d 04 9c  12 20 e7 20 56 31 3e 39  |%=1:..... . V1>9|
00000ad0  30 20 45 52 25 3d 31 0d  04 a6 06 20 e1 0d 04 b0  |0 ER%=1.... ....|
00000ae0  05 20 0d 04 ba 0d 20 dd  f2 69 6e 76 65 72 74 0d  |. .... ..invert.|
00000af0  04 c4 0a 20 49 4e 44 3d  30 0d 04 ce 34 20 e7 20  |... IND=0...4 . |
00000b00  54 59 50 45 25 3d 31 20  84 20 54 59 50 45 25 3d  |TYPE%=1 . TYPE%=|
00000b10  33 20 48 31 3d 48 31 2d  52 41 43 4f 52 52 20 8b  |3 H1=H1-RACORR .|
00000b20  20 48 31 3d 48 31 2d 47  41 43 4f 52 52 0d 04 d8  | H1=H1-GACORR...|
00000b30  1e 20 e7 20 48 31 3e 32  37 30 20 48 31 3d 48 31  |. . H1>270 H1=H1|
00000b40  2d 33 36 30 3a e5 20 8d  64 58 44 0d 04 e2 1e 20  |-360:. .dXD.... |
00000b50  e7 20 48 31 3c 2d 39 30  20 48 31 3d 48 31 2b 33  |. H1<-90 H1=H1+3|
00000b60  36 30 3a e5 20 8d 64 62  44 0d 04 ec 1c 20 e7 20  |60:. .dbD.... . |
00000b70  48 31 3e 39 30 20 48 31  3d 48 31 2d 31 38 30 3a  |H1>90 H1=H1-180:|
00000b80  49 4e 44 3d 31 0d 04 f6  13 20 e7 20 49 4e 44 3d  |IND=1.... . IND=|
00000b90  31 20 56 31 3d 2d 56 31  0d 05 00 16 20 56 31 3d  |1 V1=-V1.... V1=|
00000ba0  b2 28 56 31 29 3a 48 31  3d b2 28 48 31 29 0d 05  |.(V1):H1=.(H1)..|
00000bb0  0a 1b 20 41 4e 47 4c 45  4f 50 3d 95 28 9b 28 48  |.. ANGLEOP=.(.(H|
00000bc0  31 29 2a 9b 28 56 31 29  29 0d 05 14 1a 20 54 45  |1)*.(V1)).... TE|
00000bd0  53 54 3d b5 28 56 31 29  2f b5 28 41 4e 47 4c 45  |ST=.(V1)/.(ANGLE|
00000be0  4f 50 29 0d 05 1e 1b 20  e7 20 54 45 53 54 3e 31  |OP).... . TEST>1|
00000bf0  20 44 31 3d af 2f 32 3a  e5 20 8d 54 7c 45 0d 05  | D1=./2:. .T|E..|
00000c00  28 1d 20 e7 20 54 45 53  54 3c 2d 31 20 44 31 3d  |(. . TEST<-1 D1=|
00000c10  2d af 2f 32 3a e5 20 8d  54 7c 45 0d 05 32 1b 20  |-./2:. .T|E..2. |
00000c20  44 31 3d 98 28 b5 28 56  31 29 2f b5 28 41 4e 47  |D1=.(.(V1)/.(ANG|
00000c30  4c 45 4f 50 29 29 0d 05  3c 13 20 e7 20 48 31 3c  |LEOP))..<. . H1<|
00000c40  30 20 44 31 3d af 2d 44  31 0d 05 46 36 20 e7 20  |0 D1=.-D1..F6 . |
00000c50  54 59 50 45 25 3d 31 20  84 20 54 59 50 45 25 3d  |TYPE%=1 . TYPE%=|
00000c60  33 20 44 32 3d 44 31 2d  b2 28 52 41 47 41 29 20  |3 D2=D1-.(RAGA) |
00000c70  8b 20 44 32 3d 44 31 2b  b2 28 52 41 47 41 29 0d  |. D2=D1+.(RAGA).|
00000c80  05 50 1b 20 56 32 3d 98  28 b5 28 44 32 29 2a b5  |.P. V2=.(.(D2)*.|
00000c90  28 41 4e 47 4c 45 4f 50  29 29 0d 05 5a 25 20 e7  |(ANGLEOP))..Z% .|
00000ca0  20 9b 28 41 4e 47 4c 45  4f 50 29 2f 9b 28 56 32  | .(ANGLEOP)/.(V2|
00000cb0  29 3e 31 20 48 32 3d 30  3a e5 20 8d 44 78 45 0d  |)>1 H2=0:. .DxE.|
00000cc0  05 64 26 20 e7 20 9b 28  41 4e 47 4c 45 4f 50 29  |.d& . .(ANGLEOP)|
00000cd0  2f 9b 28 56 32 29 3c 2d  31 20 48 32 3d af 3a e5  |/.(V2)<-1 H2=.:.|
00000ce0  20 8d 44 78 45 0d 05 6e  1b 20 48 32 3d 95 28 9b  | .DxE..n. H2=.(.|
00000cf0  28 41 4e 47 4c 45 4f 50  29 2f 9b 28 56 32 29 29  |(ANGLEOP)/.(V2))|
00000d00  0d 05 78 17 20 e7 20 44  32 3e af 20 44 32 3d 44  |..x. . D2>. D2=D|
00000d10  32 2d 28 af 2a 32 29 0d  05 82 18 20 e7 20 44 32  |2-(.*2).... . D2|
00000d20  3c 2d af 20 44 32 3d 44  32 2b 28 32 2a af 29 0d  |<-. D2=D2+(2*.).|
00000d30  05 8c 16 20 e7 20 44 32  3e 28 af 2f 32 29 20 48  |... . D2>(./2) H|
00000d40  32 3d 2d 48 32 0d 05 96  17 20 e7 20 44 32 3c 2d  |2=-H2.... . D2<-|
00000d50  28 af 2f 32 29 20 48 32  3d 2d 48 32 0d 05 a0 1c  |(./2) H2=-H2....|
00000d60  20 48 32 3d 48 32 2a 31  38 30 2f af 3a 56 32 3d  | H2=H2*180/.:V2=|
00000d70  56 32 2a 31 38 30 2f af  0d 05 aa 1d 20 e7 20 49  |V2*180/..... . I|
00000d80  4e 44 3d 31 20 48 32 3d  48 32 2d 31 38 30 3a 56  |ND=1 H2=H2-180:V|
00000d90  32 3d 2d 56 32 0d 05 b4  34 20 e7 20 54 59 50 45  |2=-V2...4 . TYPE|
00000da0  25 3d 31 20 84 20 54 59  50 45 25 3d 33 20 48 32  |%=1 . TYPE%=3 H2|
00000db0  3d 48 32 2b 47 41 43 4f  52 52 20 8b 20 48 32 3d  |=H2+GACORR . H2=|
00000dc0  48 32 2b 52 41 43 4f 52  52 0d 05 be 1e 20 e7 20  |H2+RACORR.... . |
00000dd0  48 32 3c 30 20 8c 20 48  32 3d 48 32 2b 33 36 30  |H2<0 . H2=H2+360|
00000de0  3a e5 20 8d 74 7e 45 0d  05 c8 20 20 e7 20 48 32  |:. .t~E...  . H2|
00000df0  3e 33 36 30 20 8c 20 48  32 3d 48 32 2d 33 36 30  |>360 . H2=H2-360|
00000e00  3a e5 20 8d 64 48 45 0d  05 d2 06 20 e1 0d 05 dc  |:. .dHE.... ....|
00000e10  05 20 0d 05 e6 0c 20 dd  f2 61 7a 6f 75 74 0d 05  |. .... ..azout..|
00000e20  f0 30 20 e7 20 56 32 3c  30 20 f1 20 22 54 68 65  |.0 . V2<0 . "The|
00000e30  20 70 6f 69 6e 74 20 69  73 20 62 65 6c 6f 77 20  | point is below |
00000e40  74 68 65 20 68 6f 72 69  7a 6f 6e 22 3a e1 0d 05  |the horizon":...|
00000e50  fa 0e 20 48 32 3d 33 36  30 2d 48 32 0d 06 04 18  |.. H2=360-H2....|
00000e60  20 47 4c 4f 4e 47 25 3d  48 32 3a 47 4c 41 54 54  | GLONG%=H2:GLATT|
00000e70  25 3d 56 32 0d 06 0e 25  20 e7 20 28 48 32 2d 47  |%=V2...% . (H2-G|
00000e80  4c 4f 4e 47 25 29 3e 2e  35 20 47 4c 4f 4e 47 25  |LONG%)>.5 GLONG%|
00000e90  3d 47 4c 4f 4e 47 25 2b  31 0d 06 18 25 20 e7 20  |=GLONG%+1...% . |
00000ea0  28 56 32 2d 47 4c 41 54  54 25 29 3e 2e 35 20 47  |(V2-GLATT%)>.5 G|
00000eb0  4c 41 54 54 25 3d 47 4c  41 54 54 25 2b 31 0d 06  |LATT%=GLATT%+1..|
00000ec0  22 1d 20 f1 20 22 42 65  61 72 69 6e 67 20 69 73  |". . "Bearing is|
00000ed0  3a 20 20 22 3b 47 4c 4f  4e 47 25 0d 06 2c 1d 20  |:  ";GLONG%..,. |
00000ee0  f1 20 22 41 6c 74 69 74  75 64 65 20 69 73 3a 20  |. "Altitude is: |
00000ef0  22 3b 47 4c 41 54 54 25  0d 06 36 06 20 e1 0d 06  |";GLATT%..6. ...|
00000f00  40 05 20 0d 06 4a 0b 20  dd f2 64 69 6d 73 0d 06  |@. ..J. ..dims..|
00000f10  54 0c 20 de 20 4d 28 31  32 29 0d 06 5e 34 20 4d  |T. . M(12)..^4 M|
00000f20  28 31 29 3d 33 31 3a 4d  28 32 29 3d 32 38 3a 4d  |(1)=31:M(2)=28:M|
00000f30  28 33 29 3d 33 31 3a 4d  28 34 29 3d 33 30 3a 4d  |(3)=31:M(4)=30:M|
00000f40  28 35 29 3d 33 31 3a 4d  28 36 29 3d 33 30 0d 06  |(5)=31:M(6)=30..|
00000f50  68 37 20 4d 28 37 29 3d  33 31 3a 4d 28 38 29 3d  |h7 M(7)=31:M(8)=|
00000f60  33 31 3a 4d 28 39 29 3d  33 30 3a 4d 28 31 30 29  |31:M(9)=30:M(10)|
00000f70  3d 33 31 3a 4d 28 31 31  29 3d 33 30 3a 4d 28 31  |=31:M(11)=30:M(1|
00000f80  32 29 3d 33 31 0d 06 72  06 20 e1 0d 06 7c 05 20  |2)=31..r. ...|. |
00000f90  0d 06 86 0a 20 dd f2 6e  6f 77 0d 06 90 08 20 f1  |.... ..now.... .|
00000fa0  3a f1 0d 06 9a 2d 20 f1  20 22 50 6c 65 61 73 65  |:....- . "Please|
00000fb0  20 65 6e 74 65 72 20 74  68 65 20 66 6f 6c 6c 6f  | enter the follo|
00000fc0  77 69 6e 67 20 64 65 74  61 69 6c 73 3a 2d 22 0d  |wing details:-".|
00000fd0  06 a4 08 20 f1 3a f1 0d  06 ae 2c 20 e8 20 22 20  |... .:...., . " |
00000fe0  44 61 74 65 20 63 6f 6e  63 65 72 6e 65 64 20 28  |Date concerned (|
00000ff0  6d 6f 6e 74 68 2c 64 61  79 29 20 22 4d 4d 25 2c  |month,day) "MM%,|
00001000  44 44 25 0d 06 b8 1d 20  e7 20 4d 4d 25 3c 30 20  |DD%.... . MM%<0 |
00001010  84 20 4d 4d 25 3e 31 32  20 45 52 25 3d 31 3a e1  |. MM%>12 ER%=1:.|
00001020  0d 06 c2 21 20 e7 20 44  44 25 3c 30 20 84 20 44  |...! . DD%<0 . D|
00001030  44 25 3e 4d 28 4d 4d 25  29 20 45 52 25 3d 31 3a  |D%>M(MM%) ER%=1:|
00001040  e1 0d 06 cc 2c 20 e8 20  22 20 54 69 6d 65 3a 2d  |...., . " Time:-|
00001050  20 47 2e 4d 2e 54 2e 20  28 68 6f 75 72 73 2c 6d  | G.M.T. (hours,m|
00001060  69 6e 73 29 20 22 48 48  25 2c 6d 6d 25 0d 06 d6  |ins) "HH%,mm%...|
00001070  1d 20 e7 20 48 48 25 3c  30 20 84 20 48 48 25 3e  |. . HH%<0 . HH%>|
00001080  32 33 20 45 52 25 3d 31  3a e1 0d 06 e0 1d 20 e7  |23 ER%=1:..... .|
00001090  20 6d 6d 25 3c 30 20 84  20 6d 6d 25 3e 35 39 20  | mm%<0 . mm%>59 |
000010a0  45 52 25 3d 31 3a e1 0d  06 ea 06 20 f1 0d 06 f4  |ER%=1:..... ....|
000010b0  2a 20 e8 20 22 20 4c 61  74 69 74 75 64 65 20 63  |* . " Latitude c|
000010c0  6f 6e 63 65 72 6e 65 64  20 28 64 65 67 73 29 20  |oncerned (degs) |
000010d0  20 22 41 5a 4c 41 54 0d  06 fe 23 20 e7 20 41 5a  | "AZLAT...# . AZ|
000010e0  4c 41 54 3e 38 39 20 84  20 41 5a 4c 41 54 3c 2d  |LAT>89 . AZLAT<-|
000010f0  38 39 20 45 52 25 3d 31  3a e1 0d 07 08 2b 20 e8  |89 ER%=1:....+ .|
00001100  20 22 20 4c 6f 6e 67 69  74 75 64 65 20 28 64 65  | " Longitude (de|
00001110  67 73 2c 20 77 65 73 74  20 2b 76 65 29 20 22 41  |gs, west +ve) "A|
00001120  5a 4c 4f 4e 47 0d 07 12  27 20 e7 20 41 5a 4c 4f  |ZLONG...' . AZLO|
00001130  4e 47 3c 2d 31 38 30 20  84 20 41 5a 4c 4f 4e 47  |NG<-180 . AZLONG|
00001140  3e 31 38 30 20 45 52 25  3d 31 3a e1 0d 07 1c 0a  |>180 ER%=1:.....|
00001150  20 44 41 59 3d 30 0d 07  26 2c 20 e7 20 4d 4d 25  | DAY=0..&, . MM%|
00001160  3e 31 20 4d 4d 25 3d 4d  4d 25 2d 31 3a 44 41 59  |>1 MM%=MM%-1:DAY|
00001170  3d 44 41 59 2b 4d 28 4d  4d 25 29 3a e5 20 8d 54  |=DAY+M(MM%):. .T|
00001180  66 47 0d 07 30 31 20 44  41 59 3d 44 41 59 2b 44  |fG..01 DAY=DAY+D|
00001190  44 25 2b 28 48 48 25 2f  32 34 29 2b 28 6d 6d 25  |D%+(HH%/24)+(mm%|
000011a0  2f 31 32 30 30 29 2d 28  41 5a 4c 4f 4e 47 2f 33  |/1200)-(AZLONG/3|
000011b0  36 30 29 0d 07 3a 16 20  42 41 53 45 44 41 59 3d  |60)..:. BASEDAY=|
000011c0  35 2b 28 31 37 2f 32 34  29 0d 07 44 14 20 44 41  |5+(17/24)..D. DA|
000011d0  59 3d 44 41 59 2d 42 41  53 45 44 41 59 0d 07 4e  |Y=DAY-BASEDAY..N|
000011e0  18 20 e7 20 44 41 59 3c  30 20 44 41 59 3d 44 41  |. . DAY<0 DAY=DA|
000011f0  59 2b 33 36 35 0d 07 58  15 20 53 44 41 59 3d 44  |Y+365..X. SDAY=D|
00001200  41 59 2a 33 36 36 2f 33  36 35 0d 07 62 0f 20 53  |AY*366/365..b. S|
00001210  44 41 59 25 3d 53 44 41  59 0d 07 6c 1b 20 53 54  |DAY%=SDAY..l. ST|
00001220  49 4d 45 3d 28 53 44 41  59 2d 53 44 41 59 25 29  |IME=(SDAY-SDAY%)|
00001230  2a 33 36 30 0d 07 76 15  20 52 41 43 4f 52 52 31  |*360..v. RACORR1|
00001240  3d 53 54 49 4d 45 2b 39  30 0d 07 80 2d 20 e7 20  |=STIME+90...- . |
00001250  52 41 43 4f 52 52 31 3e  33 35 39 20 52 41 43 4f  |RACORR1>359 RACO|
00001260  52 52 31 3d 52 41 43 4f  52 52 31 2d 33 36 30 3a  |RR1=RACORR1-360:|
00001270  e5 20 8d 74 40 47 0d 07  8a 2b 20 e7 20 52 41 43  |. .t@G...+ . RAC|
00001280  4f 52 52 31 3c 30 20 52  41 43 4f 52 52 31 3d 52  |ORR1<0 RACORR1=R|
00001290  41 43 4f 52 52 31 2b 33  36 30 3a e5 20 8d 74 4a  |ACORR1+360:. .tJ|
000012a0  47 0d 07 94 10 20 47 41  43 4f 52 52 31 3d 32 37  |G.... GACORR1=27|
000012b0  30 0d 07 9e 13 20 52 41  47 41 31 3d 39 30 2d 41  |0.... RAGA1=90-A|
000012c0  5a 4c 41 54 0d 07 a8 06  20 e1 0d 07 b2 05 20 0d  |ZLAT.... ..... .|
000012d0  07 bc 0b 20 dd f2 67 61  69 6e 0d 07 c6 2c 20 e8  |... ..gain..., .|
000012e0  20 22 50 6c 65 61 73 65  20 65 6e 74 65 72 20 47  | "Please enter G|
000012f0  61 6c 61 63 74 69 63 20  4c 6f 6e 67 69 74 75 64  |alactic Longitud|
00001300  65 3a 20 22 48 31 0d 07  d0 13 20 e7 20 48 31 3c  |e: "H1.... . H1<|
00001310  30 20 45 52 25 3d 31 3a  e1 0d 07 da 15 20 e7 20  |0 ER%=1:..... . |
00001320  48 31 3e 33 36 30 20 45  52 25 3d 31 3a e1 0d 07  |H1>360 ER%=1:...|
00001330  e4 2c 20 e8 20 22 50 6c  65 61 73 65 20 65 6e 74  |., . "Please ent|
00001340  65 72 20 47 61 6c 61 63  74 69 63 20 4c 61 74 74  |er Galactic Latt|
00001350  69 74 75 64 65 3a 20 22  56 31 0d 07 ee 15 20 e7  |itude: "V1.... .|
00001360  20 56 31 3c 2d 39 30 20  45 52 25 3d 31 3a e1 0d  | V1<-90 ER%=1:..|
00001370  07 f8 12 20 e7 20 56 31  3e 39 30 20 45 52 25 3d  |... . V1>90 ER%=|
00001380  31 0d 08 02 06 20 e1 0d  08 0c 05 20 0d 08 16 0c  |1.... ..... ....|
00001390  20 dd f2 67 61 6f 75 74  0d 08 20 18 20 47 4c 4f  | ..gaout.. . GLO|
000013a0  4e 47 25 3d 48 32 3a 47  4c 41 54 54 25 3d 56 32  |NG%=H2:GLATT%=V2|
000013b0  0d 08 2a 25 20 e7 20 28  48 32 2d 47 4c 4f 4e 47  |..*% . (H2-GLONG|
000013c0  25 29 3e 2e 35 20 47 4c  4f 4e 47 25 3d 47 4c 4f  |%)>.5 GLONG%=GLO|
000013d0  4e 47 25 2b 31 0d 08 34  25 20 e7 20 28 56 32 2d  |NG%+1..4% . (V2-|
000013e0  47 4c 41 54 54 25 29 3e  2e 35 20 47 4c 41 54 54  |GLATT%)>.5 GLATT|
000013f0  25 3d 47 4c 41 54 54 25  2b 31 0d 08 3e 27 20 f1  |%=GLATT%+1..>' .|
00001400  20 22 47 61 6c 61 63 74  69 63 20 6c 6f 6e 67 69  | "Galactic longi|
00001410  74 75 64 65 20 69 73 3a  20 22 3b 47 4c 4f 4e 47  |tude is: ";GLONG|
00001420  25 0d 08 48 27 20 f1 20  22 47 61 6c 61 63 74 69  |%..H' . "Galacti|
00001430  63 20 6c 61 74 74 69 74  75 64 65 20 69 73 3a 20  |c lattitude is: |
00001440  22 3b 47 4c 41 54 54 25  0d 08 52 06 20 e1 0d ff  |";GLATT%..R. ...|
00001450

11_10_87/ASTRO.m0

11_10_87/ASTRO.m1

11_10_87/ASTRO.m2

11_10_87/ASTRO.m4

11_10_87/ASTRO.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .