20-03-88/ASTRO

Home » CEEFAX disks » telesoftware5.adl » 20-03-88/ASTRO

20-03-88/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 » telesoftware5.adl
Filename:	20-03-88/ASTRO
Read OK:	✔
File size:	1454 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

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 Horizontal"
  380 PRINT "2 Horizontal Coordinates to Equatorial"
  390 PRINT "3 Equatorial Coordinates to Galactic"
  400 PRINT "4 Galactic Coordinates to Equatorial"
  410 PRINT "5 Horizontal Coordinates to Galactic"
  420 PRINT "6 Galactic Coordinates to Horizontal"
  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%/1440)-(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 Horizontal"
|/ � "2 Horizontal Coordinates to Equatorial"
�- � "3 Equatorial Coordinates to Galactic"
�- � "4 Galactic Coordinates to Equatorial"
�- � "5 Horizontal Coordinates to Galactic"
�- � "6 Galactic Coordinates to Horizontal"
� � "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%/1440)-(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 2f  | .:...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  48 6f 72 69 7a 6f 6e 74  61 6c 22 0d 01 7c 2f 20  |Horizontal"..|/ |
000002f0  f1 20 22 32 20 48 6f 72  69 7a 6f 6e 74 61 6c 20  |. "2 Horizontal |
00000300  43 6f 6f 72 64 69 6e 61  74 65 73 20 74 6f 20 45  |Coordinates to E|
00000310  71 75 61 74 6f 72 69 61  6c 22 0d 01 86 2d 20 f1  |quatorial"...- .|
00000320  20 22 33 20 45 71 75 61  74 6f 72 69 61 6c 20 43  | "3 Equatorial C|
00000330  6f 6f 72 64 69 6e 61 74  65 73 20 74 6f 20 47 61  |oordinates to Ga|
00000340  6c 61 63 74 69 63 22 0d  01 90 2d 20 f1 20 22 34  |lactic"...- . "4|
00000350  20 47 61 6c 61 63 74 69  63 20 43 6f 6f 72 64 69  | Galactic Coordi|
00000360  6e 61 74 65 73 20 74 6f  20 45 71 75 61 74 6f 72  |nates to Equator|
00000370  69 61 6c 22 0d 01 9a 2d  20 f1 20 22 35 20 48 6f  |ial"...- . "5 Ho|
00000380  72 69 7a 6f 6e 74 61 6c  20 43 6f 6f 72 64 69 6e  |rizontal Coordin|
00000390  61 74 65 73 20 74 6f 20  47 61 6c 61 63 74 69 63  |ates to Galactic|
000003a0  22 0d 01 a4 2d 20 f1 20  22 36 20 47 61 6c 61 63  |"...- . "6 Galac|
000003b0  74 69 63 20 43 6f 6f 72  64 69 6e 61 74 65 73 20  |tic Coordinates |
000003c0  74 6f 20 48 6f 72 69 7a  6f 6e 74 61 6c 22 0d 01  |to Horizontal"..|
000003d0  ae 1d 20 f1 20 22 37 20  43 68 61 6e 67 65 20 64  |.. . "7 Change d|
000003e0  61 74 65 20 26 20 74 69  6d 65 22 0d 01 b8 16 20  |ate & time".... |
000003f0  f1 20 22 38 20 45 6e 64  20 50 72 6f 67 72 61 6d  |. "8 End Program|
00000400  22 0d 01 c2 08 20 fb 20  31 0d 01 cc 08 20 f1 3a  |".... . 1.... .:|
00000410  f1 0d 01 d6 28 20 f1 20  22 50 6c 65 61 73 65 20  |....( . "Please |
00000420  65 6e 74 65 72 20 79 6f  75 72 20 73 65 6c 65 63  |enter your selec|
00000430  74 69 6f 6e 3a 2d 20 22  3b 0d 01 e0 06 20 f5 0d  |tion:- ";.... ..|
00000440  01 ea 13 20 54 59 50 45  24 3d bf 28 33 32 37 36  |... TYPE$=.(3276|
00000450  37 29 0d 01 f4 20 20 fd  20 97 28 54 59 50 45 24  |7)...  . .(TYPE$|
00000460  29 3e 34 38 20 80 20 97  28 54 59 50 45 24 29 3c  |)>48 . .(TYPE$)<|
00000470  35 37 0d 01 fe 13 20 54  59 50 45 25 3d bb 28 54  |57.... TYPE%=.(T|
00000480  59 50 45 24 29 0d 02 08  13 20 e7 20 54 59 50 45  |YPE$).... . TYPE|
00000490  25 3d 38 20 eb 37 3a e0  0d 02 12 15 20 e7 20 54  |%=8 .7:..... . T|
000004a0  59 50 45 25 3d 37 20 e5  20 8d 74 56 40 0d 02 1c  |YPE%=7 . .tV@...|
000004b0  4b 20 e7 20 54 59 50 45  25 3d 31 20 84 20 54 59  |K . TYPE%=1 . TY|
000004c0  50 45 25 3d 32 20 84 20  54 59 50 45 25 3d 35 20  |PE%=2 . TYPE%=5 |
000004d0  52 41 43 4f 52 52 3d 52  41 43 4f 52 52 31 3a 47  |RACORR=RACORR1:G|
000004e0  41 43 4f 52 52 3d 47 41  43 4f 52 52 31 3a 52 41  |ACORR=GACORR1:RA|
000004f0  47 41 3d 52 41 47 41 31  0d 02 26 4b 20 e7 20 54  |GA=RAGA1..&K . T|
00000500  59 50 45 25 3d 33 20 84  20 54 59 50 45 25 3d 34  |YPE%=3 . TYPE%=4|
00000510  20 84 20 54 59 50 45 25  3d 36 20 52 41 43 4f 52  | . TYPE%=6 RACOR|
00000520  52 3d 52 41 43 4f 52 52  32 3a 47 41 43 4f 52 52  |R=RACORR2:GACORR|
00000530  3d 47 41 43 4f 52 52 32  3a 52 41 47 41 3d 52 41  |=GACORR2:RAGA=RA|
00000540  47 41 32 0d 02 30 0c 20  f1 20 54 59 50 45 24 0d  |GA2..0. . TYPE$.|
00000550  02 3a 08 20 fb 20 32 0d  02 44 0a 20 45 52 25 3d  |.:. . 2..D. ER%=|
00000560  30 0d 02 4e 08 20 f1 3a  f1 0d 02 58 1e 20 e7 20  |0..N. .:...X. . |
00000570  54 59 50 45 25 3d 31 20  84 20 54 59 50 45 25 3d  |TYPE%=1 . TYPE%=|
00000580  33 20 f2 65 71 69 6e 0d  02 62 1e 20 e7 20 54 59  |3 .eqin..b. . TY|
00000590  50 45 25 3d 32 20 84 20  54 59 50 45 25 3d 35 20  |PE%=2 . TYPE%=5 |
000005a0  f2 61 7a 69 6e 0d 02 6c  1e 20 e7 20 54 59 50 45  |.azin..l. . TYPE|
000005b0  25 3d 34 20 84 20 54 59  50 45 25 3d 36 20 f2 67  |%=4 . TYPE%=6 .g|
000005c0  61 69 6e 0d 02 76 06 20  f1 0d 02 80 17 20 e7 20  |ain..v. ..... . |
000005d0  45 52 25 3d 31 20 f2 65  72 3a e5 20 8d 54 6c 41  |ER%=1 .er:. .TlA|
000005e0  0d 02 8a 0c 20 f2 69 6e  76 65 72 74 0d 02 94 53  |.... .invert...S|
000005f0  20 e7 20 54 59 50 45 25  3d 35 20 52 41 43 4f 52  | . TYPE%=5 RACOR|
00000600  52 3d 52 41 43 4f 52 52  32 3a 47 41 43 4f 52 52  |R=RACORR2:GACORR|
00000610  3d 47 41 43 4f 52 52 32  3a 52 41 47 41 3d 52 41  |=GACORR2:RAGA=RA|
00000620  47 41 32 3a 54 59 50 45  25 3d 33 3a 56 31 3d 56  |GA2:TYPE%=3:V1=V|
00000630  32 3a 48 31 3d 48 32 3a  f2 69 6e 76 65 72 74 0d  |2:H1=H2:.invert.|
00000640  02 9e 53 20 e7 20 54 59  50 45 25 3d 36 20 52 41  |..S . TYPE%=6 RA|
00000650  43 4f 52 52 3d 52 41 43  4f 52 52 31 3a 47 41 43  |CORR=RACORR1:GAC|
00000660  4f 52 52 3d 47 41 43 4f  52 52 31 3a 52 41 47 41  |ORR=GACORR1:RAGA|
00000670  3d 52 41 47 41 31 3a 54  59 50 45 25 3d 31 3a 56  |=RAGA1:TYPE%=1:V|
00000680  31 3d 56 32 3a 48 31 3d  48 32 3a f2 69 6e 76 65  |1=V2:H1=H2:.inve|
00000690  72 74 0d 02 a8 15 20 e7  20 54 59 50 45 25 3d 31  |rt.... . TYPE%=1|
000006a0  20 f2 61 7a 6f 75 74 0d  02 b2 1f 20 e7 20 54 59  | .azout.... . TY|
000006b0  50 45 25 3d 32 20 84 20  54 59 50 45 25 3d 34 20  |PE%=2 . TYPE%=4 |
000006c0  f2 65 71 6f 75 74 0d 02  bc 15 20 e7 20 54 59 50  |.eqout.... . TYP|
000006d0  45 25 3d 33 20 f2 67 61  6f 75 74 0d 02 c6 09 20  |E%=3 .gaout.... |
000006e0  f2 65 6e 64 0d 02 d0 0b  20 e5 20 8d 54 6c 41 0d  |.end.... . .TlA.|
000006f0  02 da 05 20 0d 02 e4 0a  20 dd f2 65 6e 64 0d 02  |... .... ..end..|
00000700  ee 08 20 f1 3a f1 0d 02  f8 08 20 fb 20 31 0d 03  |.. .:..... . 1..|
00000710  02 23 20 f1 20 22 50 72  65 73 73 20 61 6e 79 20  |.# . "Press any |
00000720  6b 65 79 20 74 6f 20 63  6f 6e 74 69 6e 75 65 22  |key to continue"|
00000730  3b 0d 03 0c 13 20 57 41  49 54 25 3d a6 28 33 32  |;.... WAIT%=.(32|
00000740  37 36 37 29 0d 03 16 06  20 e1 0d 03 20 05 20 0d  |767).... ... . .|
00000750  03 2a 09 20 dd f2 65 72  0d 03 34 1f 20 f1 3a f1  |.*. ..er..4. .:.|
00000760  22 49 6e 76 61 6c 69 64  20 76 61 6c 75 65 20 65  |"Invalid value e|
00000770  6e 74 65 72 65 64 22 0d  03 3e 09 20 f2 65 6e 64  |ntered"..>. .end|
00000780  0d 03 48 06 20 e1 0d 03  52 05 20 0d 03 5c 0b 20  |..H. ...R. ..\. |
00000790  dd f2 61 7a 69 6e 0d 03  66 22 20 e8 20 22 50 6c  |..azin..f" . "Pl|
000007a0  65 61 73 65 20 65 6e 74  65 72 20 42 65 61 72 69  |ease enter Beari|
000007b0  6e 67 3a 20 20 22 48 31  0d 03 70 13 20 e7 20 48  |ng:  "H1..p. . H|
000007c0  31 3c 30 20 45 52 25 3d  31 3a e1 0d 03 7a 15 20  |1<0 ER%=1:...z. |
000007d0  e7 20 48 31 3e 33 36 30  20 45 52 25 3d 31 3a e1  |. H1>360 ER%=1:.|
000007e0  0d 03 84 0e 20 48 31 3d  33 36 30 2d 48 31 0d 03  |.... H1=360-H1..|
000007f0  8e 22 20 e8 20 22 50 6c  65 61 73 65 20 65 6e 74  |." . "Please ent|
00000800  65 72 20 41 6c 74 69 74  75 64 65 3a 20 22 56 31  |er Altitude: "V1|
00000810  0d 03 98 13 20 e7 20 56  31 3c 30 20 45 52 25 3d  |.... . V1<0 ER%=|
00000820  31 3a e1 0d 03 a2 12 20  e7 20 56 31 3e 39 30 20  |1:..... . V1>90 |
00000830  45 52 25 3d 31 0d 03 ac  06 20 e1 0d 03 b6 05 20  |ER%=1.... ..... |
00000840  0d 03 c0 0c 20 dd f2 65  71 6f 75 74 0d 03 ca 13  |.... ..eqout....|
00000850  20 52 41 48 4f 55 52 53  25 3d 48 32 2f 31 35 0d  | RAHOURS%=H2/15.|
00000860  03 d4 22 20 52 41 4d 49  4e 53 3d 28 28 48 32 2d  |.." RAMINS=((H2-|
00000870  28 52 41 48 4f 55 52 53  25 2a 31 35 29 29 2a 34  |(RAHOURS%*15))*4|
00000880  29 0d 03 de 13 20 52 41  4d 49 4e 53 25 3d 52 41  |).... RAMINS%=RA|
00000890  4d 49 4e 53 0d 03 e8 2c  20 e7 20 28 52 41 4d 49  |MINS..., . (RAMI|
000008a0  4e 53 2d 52 41 4d 49 4e  53 25 29 3e 2e 35 20 52  |NS-RAMINS%)>.5 R|
000008b0  41 4d 49 4e 53 25 3d 52  41 4d 49 4e 53 25 2b 31  |AMINS%=RAMINS%+1|
000008c0  0d 03 f2 2f 20 e7 20 52  41 4d 49 4e 53 25 3d 36  |.../ . RAMINS%=6|
000008d0  30 20 52 41 48 4f 55 52  53 25 3d 52 41 48 4f 55  |0 RAHOURS%=RAHOU|
000008e0  52 53 25 2b 31 3a 52 41  4d 49 4e 53 25 3d 30 0d  |RS%+1:RAMINS%=0.|
000008f0  03 fc 0c 20 44 45 43 25  3d 56 32 0d 04 06 1f 20  |... DEC%=V2.... |
00000900  e7 20 28 56 32 2d 44 45  43 25 29 3e 2e 35 20 44  |. (V2-DEC%)>.5 D|
00000910  45 43 25 3d 44 45 43 25  2b 31 0d 04 10 42 20 f1  |EC%=DEC%+1...B .|
00000920  20 22 52 69 67 68 74 20  41 73 63 65 6e 73 69 6f  | "Right Ascensio|
00000930  6e 20 69 73 20 22 3b 52  41 48 4f 55 52 53 25 3b  |n is ";RAHOURS%;|
00000940  22 20 68 6f 75 72 73 20  22 3b 52 41 4d 49 4e 53  |" hours ";RAMINS|
00000950  25 3b 22 20 6d 69 6e 75  74 65 73 22 0d 04 1a 2c  |%;" minutes"...,|
00000960  20 f1 20 22 44 65 63 6c  69 6e 61 74 69 6f 6e 20  | . "Declination |
00000970  69 73 20 20 20 20 20 22  3b 44 45 43 25 3b 22 20  |is     ";DEC%;" |
00000980  64 65 67 72 65 65 73 22  0d 04 24 06 20 e1 0d 04  |degrees"..$. ...|
00000990  2e 05 20 0d 04 38 0b 20  dd f2 65 71 69 6e 0d 04  |.. ..8. ..eqin..|
000009a0  42 34 20 e8 20 22 50 6c  65 61 73 65 20 65 6e 74  |B4 . "Please ent|
000009b0  65 72 20 52 69 67 68 74  20 41 73 63 65 6e 73 69  |er Right Ascensi|
000009c0  6f 6e 20 68 6f 75 72 73  3a 20 22 52 41 48 4f 55  |on hours: "RAHOU|
000009d0  52 53 0d 04 4c 18 20 e7  20 52 41 48 4f 55 52 53  |RS..L. . RAHOURS|
000009e0  3c 30 20 45 52 25 3d 31  3a e1 0d 04 56 19 20 e7  |<0 ER%=1:...V. .|
000009f0  20 52 41 48 4f 55 52 53  3e 32 33 20 45 52 25 3d  | RAHOURS>23 ER%=|
00000a00  31 3a e1 0d 04 60 33 20  e8 20 22 50 6c 65 61 73  |1:...`3 . "Pleas|
00000a10  65 20 65 6e 74 65 72 20  52 69 67 68 74 20 41 73  |e enter Right As|
00000a20  63 65 6e 73 69 6f 6e 20  6d 69 6e 73 3a 20 20 22  |cension mins:  "|
00000a30  52 41 4d 49 4e 53 0d 04  6a 17 20 e7 20 52 41 4d  |RAMINS..j. . RAM|
00000a40  49 4e 53 3c 30 20 45 52  25 3d 31 3a e1 0d 04 74  |INS<0 ER%=1:...t|
00000a50  18 20 e7 20 52 41 4d 49  4e 53 3e 35 39 20 45 52  |. . RAMINS>59 ER|
00000a60  25 3d 31 3a e1 0d 04 7e  20 20 48 31 3d 28 52 41  |%=1:...~  H1=(RA|
00000a70  48 4f 55 52 53 2b 28 52  41 4d 49 4e 53 2f 36 30  |HOURS+(RAMINS/60|
00000a80  29 29 2a 31 35 0d 04 88  2f 20 e8 20 22 50 6c 65  |))*15.../ . "Ple|
00000a90  61 73 65 20 65 6e 74 65  72 20 44 65 63 6c 69 6e  |ase enter Declin|
00000aa0  61 74 69 6f 6e 20 64 65  67 72 65 65 73 3a 20 20  |ation degrees:  |
00000ab0  20 22 56 31 0d 04 92 15  20 e7 20 56 31 3c 2d 39  | "V1.... . V1<-9|
00000ac0  30 20 45 52 25 3d 31 3a  e1 0d 04 9c 12 20 e7 20  |0 ER%=1:..... . |
00000ad0  56 31 3e 39 30 20 45 52  25 3d 31 0d 04 a6 06 20  |V1>90 ER%=1.... |
00000ae0  e1 0d 04 b0 05 20 0d 04  ba 0d 20 dd f2 69 6e 76  |..... .... ..inv|
00000af0  65 72 74 0d 04 c4 0a 20  49 4e 44 3d 30 0d 04 ce  |ert.... IND=0...|
00000b00  34 20 e7 20 54 59 50 45  25 3d 31 20 84 20 54 59  |4 . TYPE%=1 . TY|
00000b10  50 45 25 3d 33 20 48 31  3d 48 31 2d 52 41 43 4f  |PE%=3 H1=H1-RACO|
00000b20  52 52 20 8b 20 48 31 3d  48 31 2d 47 41 43 4f 52  |RR . H1=H1-GACOR|
00000b30  52 0d 04 d8 1e 20 e7 20  48 31 3e 32 37 30 20 48  |R.... . H1>270 H|
00000b40  31 3d 48 31 2d 33 36 30  3a e5 20 8d 64 58 44 0d  |1=H1-360:. .dXD.|
00000b50  04 e2 1e 20 e7 20 48 31  3c 2d 39 30 20 48 31 3d  |... . H1<-90 H1=|
00000b60  48 31 2b 33 36 30 3a e5  20 8d 64 62 44 0d 04 ec  |H1+360:. .dbD...|
00000b70  1c 20 e7 20 48 31 3e 39  30 20 48 31 3d 48 31 2d  |. . H1>90 H1=H1-|
00000b80  31 38 30 3a 49 4e 44 3d  31 0d 04 f6 13 20 e7 20  |180:IND=1.... . |
00000b90  49 4e 44 3d 31 20 56 31  3d 2d 56 31 0d 05 00 16  |IND=1 V1=-V1....|
00000ba0  20 56 31 3d b2 28 56 31  29 3a 48 31 3d b2 28 48  | V1=.(V1):H1=.(H|
00000bb0  31 29 0d 05 0a 1b 20 41  4e 47 4c 45 4f 50 3d 95  |1).... ANGLEOP=.|
00000bc0  28 9b 28 48 31 29 2a 9b  28 56 31 29 29 0d 05 14  |(.(H1)*.(V1))...|
00000bd0  1a 20 54 45 53 54 3d b5  28 56 31 29 2f b5 28 41  |. TEST=.(V1)/.(A|
00000be0  4e 47 4c 45 4f 50 29 0d  05 1e 1b 20 e7 20 54 45  |NGLEOP).... . TE|
00000bf0  53 54 3e 31 20 44 31 3d  af 2f 32 3a e5 20 8d 54  |ST>1 D1=./2:. .T|
00000c00  7c 45 0d 05 28 1d 20 e7  20 54 45 53 54 3c 2d 31  ||E..(. . TEST<-1|
00000c10  20 44 31 3d 2d af 2f 32  3a e5 20 8d 54 7c 45 0d  | D1=-./2:. .T|E.|
00000c20  05 32 1b 20 44 31 3d 98  28 b5 28 56 31 29 2f b5  |.2. D1=.(.(V1)/.|
00000c30  28 41 4e 47 4c 45 4f 50  29 29 0d 05 3c 13 20 e7  |(ANGLEOP))..<. .|
00000c40  20 48 31 3c 30 20 44 31  3d af 2d 44 31 0d 05 46  | H1<0 D1=.-D1..F|
00000c50  36 20 e7 20 54 59 50 45  25 3d 31 20 84 20 54 59  |6 . TYPE%=1 . TY|
00000c60  50 45 25 3d 33 20 44 32  3d 44 31 2d b2 28 52 41  |PE%=3 D2=D1-.(RA|
00000c70  47 41 29 20 8b 20 44 32  3d 44 31 2b b2 28 52 41  |GA) . D2=D1+.(RA|
00000c80  47 41 29 0d 05 50 1b 20  56 32 3d 98 28 b5 28 44  |GA)..P. V2=.(.(D|
00000c90  32 29 2a b5 28 41 4e 47  4c 45 4f 50 29 29 0d 05  |2)*.(ANGLEOP))..|
00000ca0  5a 25 20 e7 20 9b 28 41  4e 47 4c 45 4f 50 29 2f  |Z% . .(ANGLEOP)/|
00000cb0  9b 28 56 32 29 3e 31 20  48 32 3d 30 3a e5 20 8d  |.(V2)>1 H2=0:. .|
00000cc0  44 78 45 0d 05 64 26 20  e7 20 9b 28 41 4e 47 4c  |DxE..d& . .(ANGL|
00000cd0  45 4f 50 29 2f 9b 28 56  32 29 3c 2d 31 20 48 32  |EOP)/.(V2)<-1 H2|
00000ce0  3d af 3a e5 20 8d 44 78  45 0d 05 6e 1b 20 48 32  |=.:. .DxE..n. H2|
00000cf0  3d 95 28 9b 28 41 4e 47  4c 45 4f 50 29 2f 9b 28  |=.(.(ANGLEOP)/.(|
00000d00  56 32 29 29 0d 05 78 17  20 e7 20 44 32 3e af 20  |V2))..x. . D2>. |
00000d10  44 32 3d 44 32 2d 28 af  2a 32 29 0d 05 82 18 20  |D2=D2-(.*2).... |
00000d20  e7 20 44 32 3c 2d af 20  44 32 3d 44 32 2b 28 32  |. D2<-. D2=D2+(2|
00000d30  2a af 29 0d 05 8c 16 20  e7 20 44 32 3e 28 af 2f  |*.).... . D2>(./|
00000d40  32 29 20 48 32 3d 2d 48  32 0d 05 96 17 20 e7 20  |2) H2=-H2.... . |
00000d50  44 32 3c 2d 28 af 2f 32  29 20 48 32 3d 2d 48 32  |D2<-(./2) H2=-H2|
00000d60  0d 05 a0 1c 20 48 32 3d  48 32 2a 31 38 30 2f af  |.... H2=H2*180/.|
00000d70  3a 56 32 3d 56 32 2a 31  38 30 2f af 0d 05 aa 1d  |:V2=V2*180/.....|
00000d80  20 e7 20 49 4e 44 3d 31  20 48 32 3d 48 32 2d 31  | . IND=1 H2=H2-1|
00000d90  38 30 3a 56 32 3d 2d 56  32 0d 05 b4 34 20 e7 20  |80:V2=-V2...4 . |
00000da0  54 59 50 45 25 3d 31 20  84 20 54 59 50 45 25 3d  |TYPE%=1 . TYPE%=|
00000db0  33 20 48 32 3d 48 32 2b  47 41 43 4f 52 52 20 8b  |3 H2=H2+GACORR .|
00000dc0  20 48 32 3d 48 32 2b 52  41 43 4f 52 52 0d 05 be  | H2=H2+RACORR...|
00000dd0  1e 20 e7 20 48 32 3c 30  20 8c 20 48 32 3d 48 32  |. . H2<0 . H2=H2|
00000de0  2b 33 36 30 3a e5 20 8d  74 7e 45 0d 05 c8 20 20  |+360:. .t~E...  |
00000df0  e7 20 48 32 3e 33 36 30  20 8c 20 48 32 3d 48 32  |. H2>360 . H2=H2|
00000e00  2d 33 36 30 3a e5 20 8d  64 48 45 0d 05 d2 06 20  |-360:. .dHE.... |
00000e10  e1 0d 05 dc 05 20 0d 05  e6 0c 20 dd f2 61 7a 6f  |..... .... ..azo|
00000e20  75 74 0d 05 f0 30 20 e7  20 56 32 3c 30 20 f1 20  |ut...0 . V2<0 . |
00000e30  22 54 68 65 20 70 6f 69  6e 74 20 69 73 20 62 65  |"The point is be|
00000e40  6c 6f 77 20 74 68 65 20  68 6f 72 69 7a 6f 6e 22  |low the horizon"|
00000e50  3a e1 0d 05 fa 0e 20 48  32 3d 33 36 30 2d 48 32  |:..... H2=360-H2|
00000e60  0d 06 04 18 20 47 4c 4f  4e 47 25 3d 48 32 3a 47  |.... GLONG%=H2:G|
00000e70  4c 41 54 54 25 3d 56 32  0d 06 0e 25 20 e7 20 28  |LATT%=V2...% . (|
00000e80  48 32 2d 47 4c 4f 4e 47  25 29 3e 2e 35 20 47 4c  |H2-GLONG%)>.5 GL|
00000e90  4f 4e 47 25 3d 47 4c 4f  4e 47 25 2b 31 0d 06 18  |ONG%=GLONG%+1...|
00000ea0  25 20 e7 20 28 56 32 2d  47 4c 41 54 54 25 29 3e  |% . (V2-GLATT%)>|
00000eb0  2e 35 20 47 4c 41 54 54  25 3d 47 4c 41 54 54 25  |.5 GLATT%=GLATT%|
00000ec0  2b 31 0d 06 22 1d 20 f1  20 22 42 65 61 72 69 6e  |+1..". . "Bearin|
00000ed0  67 20 69 73 3a 20 20 22  3b 47 4c 4f 4e 47 25 0d  |g is:  ";GLONG%.|
00000ee0  06 2c 1d 20 f1 20 22 41  6c 74 69 74 75 64 65 20  |.,. . "Altitude |
00000ef0  69 73 3a 20 22 3b 47 4c  41 54 54 25 0d 06 36 06  |is: ";GLATT%..6.|
00000f00  20 e1 0d 06 40 05 20 0d  06 4a 0b 20 dd f2 64 69  | ...@. ..J. ..di|
00000f10  6d 73 0d 06 54 0c 20 de  20 4d 28 31 32 29 0d 06  |ms..T. . M(12)..|
00000f20  5e 34 20 4d 28 31 29 3d  33 31 3a 4d 28 32 29 3d  |^4 M(1)=31:M(2)=|
00000f30  32 38 3a 4d 28 33 29 3d  33 31 3a 4d 28 34 29 3d  |28:M(3)=31:M(4)=|
00000f40  33 30 3a 4d 28 35 29 3d  33 31 3a 4d 28 36 29 3d  |30:M(5)=31:M(6)=|
00000f50  33 30 0d 06 68 37 20 4d  28 37 29 3d 33 31 3a 4d  |30..h7 M(7)=31:M|
00000f60  28 38 29 3d 33 31 3a 4d  28 39 29 3d 33 30 3a 4d  |(8)=31:M(9)=30:M|
00000f70  28 31 30 29 3d 33 31 3a  4d 28 31 31 29 3d 33 30  |(10)=31:M(11)=30|
00000f80  3a 4d 28 31 32 29 3d 33  31 0d 06 72 06 20 e1 0d  |:M(12)=31..r. ..|
00000f90  06 7c 05 20 0d 06 86 0a  20 dd f2 6e 6f 77 0d 06  |.|. .... ..now..|
00000fa0  90 08 20 f1 3a f1 0d 06  9a 2d 20 f1 20 22 50 6c  |.. .:....- . "Pl|
00000fb0  65 61 73 65 20 65 6e 74  65 72 20 74 68 65 20 66  |ease enter the f|
00000fc0  6f 6c 6c 6f 77 69 6e 67  20 64 65 74 61 69 6c 73  |ollowing details|
00000fd0  3a 2d 22 0d 06 a4 08 20  f1 3a f1 0d 06 ae 2c 20  |:-".... .:...., |
00000fe0  e8 20 22 20 44 61 74 65  20 63 6f 6e 63 65 72 6e  |. " Date concern|
00000ff0  65 64 20 28 6d 6f 6e 74  68 2c 64 61 79 29 20 22  |ed (month,day) "|
00001000  4d 4d 25 2c 44 44 25 0d  06 b8 1d 20 e7 20 4d 4d  |MM%,DD%.... . MM|
00001010  25 3c 30 20 84 20 4d 4d  25 3e 31 32 20 45 52 25  |%<0 . MM%>12 ER%|
00001020  3d 31 3a e1 0d 06 c2 21  20 e7 20 44 44 25 3c 30  |=1:....! . DD%<0|
00001030  20 84 20 44 44 25 3e 4d  28 4d 4d 25 29 20 45 52  | . DD%>M(MM%) ER|
00001040  25 3d 31 3a e1 0d 06 cc  2c 20 e8 20 22 20 54 69  |%=1:...., . " Ti|
00001050  6d 65 3a 2d 20 47 2e 4d  2e 54 2e 20 28 68 6f 75  |me:- G.M.T. (hou|
00001060  72 73 2c 6d 69 6e 73 29  20 22 48 48 25 2c 6d 6d  |rs,mins) "HH%,mm|
00001070  25 0d 06 d6 1d 20 e7 20  48 48 25 3c 30 20 84 20  |%.... . HH%<0 . |
00001080  48 48 25 3e 32 33 20 45  52 25 3d 31 3a e1 0d 06  |HH%>23 ER%=1:...|
00001090  e0 1d 20 e7 20 6d 6d 25  3c 30 20 84 20 6d 6d 25  |.. . mm%<0 . mm%|
000010a0  3e 35 39 20 45 52 25 3d  31 3a e1 0d 06 ea 06 20  |>59 ER%=1:..... |
000010b0  f1 0d 06 f4 2a 20 e8 20  22 20 4c 61 74 69 74 75  |....* . " Latitu|
000010c0  64 65 20 63 6f 6e 63 65  72 6e 65 64 20 28 64 65  |de concerned (de|
000010d0  67 73 29 20 20 22 41 5a  4c 41 54 0d 06 fe 23 20  |gs)  "AZLAT...# |
000010e0  e7 20 41 5a 4c 41 54 3e  38 39 20 84 20 41 5a 4c  |. AZLAT>89 . AZL|
000010f0  41 54 3c 2d 38 39 20 45  52 25 3d 31 3a e1 0d 07  |AT<-89 ER%=1:...|
00001100  08 2b 20 e8 20 22 20 4c  6f 6e 67 69 74 75 64 65  |.+ . " Longitude|
00001110  20 28 64 65 67 73 2c 20  77 65 73 74 20 2b 76 65  | (degs, west +ve|
00001120  29 20 22 41 5a 4c 4f 4e  47 0d 07 12 27 20 e7 20  |) "AZLONG...' . |
00001130  41 5a 4c 4f 4e 47 3c 2d  31 38 30 20 84 20 41 5a  |AZLONG<-180 . AZ|
00001140  4c 4f 4e 47 3e 31 38 30  20 45 52 25 3d 31 3a e1  |LONG>180 ER%=1:.|
00001150  0d 07 1c 0a 20 44 41 59  3d 30 0d 07 26 2c 20 e7  |.... DAY=0..&, .|
00001160  20 4d 4d 25 3e 31 20 4d  4d 25 3d 4d 4d 25 2d 31  | MM%>1 MM%=MM%-1|
00001170  3a 44 41 59 3d 44 41 59  2b 4d 28 4d 4d 25 29 3a  |:DAY=DAY+M(MM%):|
00001180  e5 20 8d 54 66 47 0d 07  30 31 20 44 41 59 3d 44  |. .TfG..01 DAY=D|
00001190  41 59 2b 44 44 25 2b 28  48 48 25 2f 32 34 29 2b  |AY+DD%+(HH%/24)+|
000011a0  28 6d 6d 25 2f 31 34 34  30 29 2d 28 41 5a 4c 4f  |(mm%/1440)-(AZLO|
000011b0  4e 47 2f 33 36 30 29 0d  07 3a 16 20 42 41 53 45  |NG/360)..:. BASE|
000011c0  44 41 59 3d 35 2b 28 31  37 2f 32 34 29 0d 07 44  |DAY=5+(17/24)..D|
000011d0  14 20 44 41 59 3d 44 41  59 2d 42 41 53 45 44 41  |. DAY=DAY-BASEDA|
000011e0  59 0d 07 4e 18 20 e7 20  44 41 59 3c 30 20 44 41  |Y..N. . DAY<0 DA|
000011f0  59 3d 44 41 59 2b 33 36  35 0d 07 58 15 20 53 44  |Y=DAY+365..X. SD|
00001200  41 59 3d 44 41 59 2a 33  36 36 2f 33 36 35 0d 07  |AY=DAY*366/365..|
00001210  62 0f 20 53 44 41 59 25  3d 53 44 41 59 0d 07 6c  |b. SDAY%=SDAY..l|
00001220  1b 20 53 54 49 4d 45 3d  28 53 44 41 59 2d 53 44  |. STIME=(SDAY-SD|
00001230  41 59 25 29 2a 33 36 30  0d 07 76 15 20 52 41 43  |AY%)*360..v. RAC|
00001240  4f 52 52 31 3d 53 54 49  4d 45 2b 39 30 0d 07 80  |ORR1=STIME+90...|
00001250  2d 20 e7 20 52 41 43 4f  52 52 31 3e 33 35 39 20  |- . RACORR1>359 |
00001260  52 41 43 4f 52 52 31 3d  52 41 43 4f 52 52 31 2d  |RACORR1=RACORR1-|
00001270  33 36 30 3a e5 20 8d 74  40 47 0d 07 8a 2b 20 e7  |360:. .t@G...+ .|
00001280  20 52 41 43 4f 52 52 31  3c 30 20 52 41 43 4f 52  | RACORR1<0 RACOR|
00001290  52 31 3d 52 41 43 4f 52  52 31 2b 33 36 30 3a e5  |R1=RACORR1+360:.|
000012a0  20 8d 74 4a 47 0d 07 94  10 20 47 41 43 4f 52 52  | .tJG.... GACORR|
000012b0  31 3d 32 37 30 0d 07 9e  13 20 52 41 47 41 31 3d  |1=270.... RAGA1=|
000012c0  39 30 2d 41 5a 4c 41 54  0d 07 a8 06 20 e1 0d 07  |90-AZLAT.... ...|
000012d0  b2 05 20 0d 07 bc 0b 20  dd f2 67 61 69 6e 0d 07  |.. .... ..gain..|
000012e0  c6 2c 20 e8 20 22 50 6c  65 61 73 65 20 65 6e 74  |., . "Please ent|
000012f0  65 72 20 47 61 6c 61 63  74 69 63 20 4c 6f 6e 67  |er Galactic Long|
00001300  69 74 75 64 65 3a 20 22  48 31 0d 07 d0 13 20 e7  |itude: "H1.... .|
00001310  20 48 31 3c 30 20 45 52  25 3d 31 3a e1 0d 07 da  | H1<0 ER%=1:....|
00001320  15 20 e7 20 48 31 3e 33  36 30 20 45 52 25 3d 31  |. . H1>360 ER%=1|
00001330  3a e1 0d 07 e4 2c 20 e8  20 22 50 6c 65 61 73 65  |:...., . "Please|
00001340  20 65 6e 74 65 72 20 47  61 6c 61 63 74 69 63 20  | enter Galactic |
00001350  4c 61 74 74 69 74 75 64  65 3a 20 22 56 31 0d 07  |Lattitude: "V1..|
00001360  ee 15 20 e7 20 56 31 3c  2d 39 30 20 45 52 25 3d  |.. . V1<-90 ER%=|
00001370  31 3a e1 0d 07 f8 12 20  e7 20 56 31 3e 39 30 20  |1:..... . V1>90 |
00001380  45 52 25 3d 31 0d 08 02  06 20 e1 0d 08 0c 05 20  |ER%=1.... ..... |
00001390  0d 08 16 0c 20 dd f2 67  61 6f 75 74 0d 08 20 18  |.... ..gaout.. .|
000013a0  20 47 4c 4f 4e 47 25 3d  48 32 3a 47 4c 41 54 54  | GLONG%=H2:GLATT|
000013b0  25 3d 56 32 0d 08 2a 25  20 e7 20 28 48 32 2d 47  |%=V2..*% . (H2-G|
000013c0  4c 4f 4e 47 25 29 3e 2e  35 20 47 4c 4f 4e 47 25  |LONG%)>.5 GLONG%|
000013d0  3d 47 4c 4f 4e 47 25 2b  31 0d 08 34 25 20 e7 20  |=GLONG%+1..4% . |
000013e0  28 56 32 2d 47 4c 41 54  54 25 29 3e 2e 35 20 47  |(V2-GLATT%)>.5 G|
000013f0  4c 41 54 54 25 3d 47 4c  41 54 54 25 2b 31 0d 08  |LATT%=GLATT%+1..|
00001400  3e 27 20 f1 20 22 47 61  6c 61 63 74 69 63 20 6c  |>' . "Galactic l|
00001410  6f 6e 67 69 74 75 64 65  20 69 73 3a 20 22 3b 47  |ongitude is: ";G|
00001420  4c 4f 4e 47 25 0d 08 48  27 20 f1 20 22 47 61 6c  |LONG%..H' . "Gal|
00001430  61 63 74 69 63 20 6c 61  74 74 69 74 75 64 65 20  |actic lattitude |
00001440  69 73 3a 20 22 3b 47 4c  41 54 54 25 0d 08 52 06  |is: ";GLATT%..R.|
00001450  20 e1 0d ff                                       | ...|
00001454

20-03-88/ASTRO.m0

20-03-88/ASTRO.m1

20-03-88/ASTRO.m2

20-03-88/ASTRO.m4

20-03-88/ASTRO.m5

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