Home » CEEFAX disks » telesoftware15.adl » 14-04-89/Radar

14-04-89/Radar

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 » telesoftware15.adl
Filename: 14-04-89/Radar
Read OK: ✔
File size: 0A50 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM *****************
   20 REM *               *
   30 REM * RADAR  Vs1.01 *
   40 REM *               *
   50 REM * by Ken Ebborn *
   60 REM *               *
   70 REM * December 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 HOLDH=1:HOLDT=1
  140 GOTO 170
  150 PRINT''"   ERROR - Press any key to continue:-"
  155IFHOLDH=0 AND HOLDT=0 HOLDH=1
  160 ZZ=GET
  170 CLS
  180 PRINT'''
  190 COLOUR 1
  200 PRINT"           ***** RADAR *****"'
  210 PRINT"     A great circle map substitute"''
  220 COLOUR 2
  230 PRINT'"   HERE"'
  240 PRINT"     Longitude (deg,min E +ve) ";
  250 IF HOLDH=0 PRINT;HXD;",";HXM:GOTO 290
  260 INPUT""HXD,HXM
  270 IF HXM>59 OR HXM<0 GOTO 150
  280 IF HXD<0 HXM=-HXM
  290 HX=HXD+(HXM/60)
  300 IF HX>180 OR HX<-180 GOTO 150
  310 IF INT(HXD)<>HXD AND HXM<>0 GOTO 150
  320 HX=PI*HX/180
  330 PRINT"     Lattitude (deg,min)       ";
  340 IF HOLDH=0 PRINT;HYD;",";HYM:GOTO 380
  350 INPUT""HYD,HYM
  360 IF HYM>59 OR HYM<0 GOTO 150
  370 IF HYD<0 HYM=-HYM
  380 HY=HYD+(HYM/60)
  390 IF HY>90 OR HY<-90 GOTO 150
  400 IF INT(HYD)<>HYD AND HYM<>0 GOTO 150
  410 HY=PI*HY/180
  420 HOLDH=0
  430 PRINT''"   THERE"'
  440 PRINT"     Longitude (deg,min E +ve) ";
  450 IF HOLDT=0 PRINT;TXD;",";TXM:GOTO 490
  460 INPUT""TXD,TXM
  470 IF TXM>59 OR TXM<0 GOTO 150
  480 IF TXD<0 TXM=-TXM
  490 TX=TXD+(TXM/60)
  500 IF TX>180 OR TX<-180 GOTO 150
  510 IF INT(TXD)<>TXD AND TXM<>0 GOTO 150
  520 TX=PI*TX/180
  530 PRINT"     Lattitude (deg,min)       ";
  540 IF HOLDT=0 PRINT;TYD;",";TYM:GOTO 580
  550 INPUT""TYD,TYM
  560 IF TYM>59 OR TYM<0 GOTO 150
  570 IF TYD<0 TYM=-TYM
  580 TY=TYD+(TYM/60)
  590 IF TY>90 OR TY<-90 GOTO 150
  600 IF INT(TYD)<>TYD AND TYM<>0 GOTO 150
  610 TY=PI*TY/180
  620 PRINT'
  630 TX=TX-HX
  640 IF TX=0 AND TY=HY GOTO 150
  650 HOLDT=0
  660 IF TX>PI TX=TX-(2*PI)
  670 IF TX<-PI TX=TX+(2*PI)
  680 IND=0
  690 IF TX<0 TX=-TX:IND=1
  700 A1B=ACS(COS(TY)*COS(TX))
  710 STH1=SIN(TY)/SIN(A1B)
  720 IF STH1>1 STH1=1
  730 IF STH1<-1 STH1=-1
  740 TH1=ASN(STH1)
  750 TH2=(PI/2)-TH1
  760 AB=ACS((COS(HY)*COS(A1B))+(SIN(HY)*SIN(A1B)*COS(TH2)))
  770 ABD=INT((AB*3960)+0.5)
  780 PRINT"     The distance is ";ABD;"miles"
  790 IF AB>(PI-0.000000001) PRINT"     All bearings equidistant":GOTO 980
  800 IF HY=0 BRG=((PI/2)-TH1)*180/PI:GOTO 950
  810 IF HY<0 HYS=-HY ELSE HYS=HY
  820 S=(HYS+AB+A1B)/2
  830 N=(SIN(S)*SIN(S-HYS)*SIN(S-AB)*SIN(S-A1B))
  840 IF N>0.000000001 GOTO 900
  850 IF TX>PI/2 GOTO 880
  860 IF TY-HY>0 BRG=0 ELSE BRG=180
  870 GOTO 970
  880 IF TY+HY>0 BRG=0 ELSE BRG=180
  890 GOTO 970
  900 N=SQR(N)
  910 Z=ATN((SIN(S-A1B)*SIN(S))/N)
  920 BAA1=PI-(2*Z)
  930 BAA1=INT((BAA1*180/PI)+0.5)
  940 IF HY>0 BRG=180-BAA1 ELSE BRG=BAA1
  950 IF IND=1 BRG=360-BRG
  960 BRG=INT(BRG+0.5)
  970 PRINT"     The bearing is ";BRG;" deg"
  980 PRINT''
  990 COLOUR 1
 1000 PRINT"   H(ere) T(here) or B(oth) to change"
 1010 PRINT'"             PRESS E to end"
 1020 COLOUR 2
 1030 G=GET
 1040 IF G=66 HOLDH=1:HOLDT=1:GOTO 170
 1050 IF G=72 HOLDH=1:GOTO 170
 1060 IF G=84 HOLDT=1:GOTO 170
 1070 IF G=69 MODE3:END
 1080 GOTO 1030


 � *****************
 � *               *
 � * RADAR  Vs1.01 *
( � *               *
2 � * by Ken Ebborn *
< � *               *
F � * December 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
� HOLDH=1:HOLDT=1
� � �tj@
�0 �''"   ERROR - Press any key to continue:-"
��HOLDH=0 � HOLDT=0 HOLDH=1
�	 ZZ=�
� �
�	 �'''
� � 1
�% �"           ***** RADAR *****"'
�, �"     A great circle map substitute"''
� � 2
� �'"   HERE"'
�( �"     Longitude (deg,min E +ve) ";
�# � HOLDH=0 �;HXD;",";HXM:� �TbA
 �""HXD,HXM
 � HXM>59 � HXM<0 � �tV@
 � HXD<0 HXM=-HXM
" HX=HXD+(HXM/60)
, � HX>180 � HX<-180 � �tV@
6" � �(HXD)<>HXD � HXM<>0 � �tV@
@ HX=�*HX/180
J( �"     Lattitude (deg,min)       ";
T# � HOLDH=0 �;HYD;",";HYM:� �D|A
^ �""HYD,HYM
h � HYM>59 � HYM<0 � �tV@
r � HYD<0 HYM=-HYM
| HY=HYD+(HYM/60)
� � HY>90 � HY<-90 � �tV@
�" � �(HYD)<>HYD � HYM<>0 � �tV@
� HY=�*HY/180
� HOLDH=0
� �''"   THERE"'
�( �"     Longitude (deg,min E +ve) ";
�# � HOLDT=0 �;TXD;",";TXM:� �djA
� �""TXD,TXM
� � TXM>59 � TXM<0 � �tV@
� � TXD<0 TXM=-TXM
� TX=TXD+(TXM/60)
� � TX>180 � TX<-180 � �tV@
�" � �(TXD)<>TXD � TXM<>0 � �tV@
 TX=�*TX/180
( �"     Lattitude (deg,min)       ";
# � HOLDT=0 �;TYD;",";TYM:� �DDB
& �""TYD,TYM
0 � TYM>59 � TYM<0 � �tV@
: � TYD<0 TYM=-TYM
D TY=TYD+(TYM/60)
N � TY>90 � TY<-90 � �tV@
X" � �(TYD)<>TYD � TYM<>0 � �tV@
b TY=�*TY/180
l �'
v
 TX=TX-HX
� � TX=0 � TY=HY � �tV@
� HOLDT=0
� � TX>� TX=TX-(2*�)
� � TX<-� TX=TX+(2*�)
�
 IND=0
� � TX<0 TX=-TX:IND=1
� A1B=�(�(TY)*�(TX))
� STH1=�(TY)/�(A1B)
� � STH1>1 STH1=1
� � STH1<-1 STH1=-1
� TH1=�(STH1)
� TH2=(�/2)-TH1
�/ AB=�((�(HY)*�(A1B))+(�(HY)*�(A1B)*�(TH2)))
 ABD=�((AB*3960)+0.5)
) �"     The distance is ";ABD;"miles"
A � AB>(�-0.000000001) �"     All bearings equidistant":� �dTC
 ( � HY=0 BRG=((�/2)-TH1)*180/�:� �tvC
* � HY<0 HYS=-HY � HYS=HY
4 S=(HYS+AB+A1B)/2
>' N=(�(S)*�(S-HYS)*�(S-AB)*�(S-A1B))
H � N>0.000000001 � �tDC
R � TX>�/2 � �DpC
\ � TY-HY>0 BRG=0 � BRG=180
f � �dJC
p � TY+HY>0 BRG=0 � BRG=180
z � �dJC
� N=�(N)
� Z=�((�(S-A1B)*�(S))/N)
� BAA1=�-(2*Z)
� BAA1=�((BAA1*180/�)+0.5)
�# � HY>0 BRG=180-BAA1 � BRG=BAA1
� � IND=1 BRG=360-BRG
� BRG=�(BRG+0.5)
�' �"     The bearing is ";BRG;" deg"
� �''
� � 1
�- �"   H(ere) T(here) or B(oth) to change"
�$ �'"             PRESS E to end"
� � 2
 G=�
" � G=66 HOLDH=1:HOLDT=1:� �tj@
 � G=72 HOLDH=1:� �tj@
$ � G=84 HOLDT=1:� �tj@
. � G=69 �3:�
8 � �TFD
�
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 52 41 44 41 52 20 20  |.... . * RADAR  |
00000040  56 73 31 2e 30 31 20 2a  0d 00 28 18 20 f4 20 2a  |Vs1.01 *..(. . *|
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 44 65 63 65 6d 62 65  |..F. . * Decembe|
000000a0  72 20 31 39 38 37 20 2a  0d 00 50 18 20 f4 20 2a  |r 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 14 20 48 4f 4c 44 48  3d 31 3a 48 4f 4c 44 54  |.. HOLDH=1:HOLDT|
00000130  3d 31 0d 00 8c 0b 20 e5  20 8d 74 6a 40 0d 00 96  |=1.... . .tj@...|
00000140  30 20 f1 27 27 22 20 20  20 45 52 52 4f 52 20 2d  |0 .''"   ERROR -|
00000150  20 50 72 65 73 73 20 61  6e 79 20 6b 65 79 20 74  | Press any key t|
00000160  6f 20 63 6f 6e 74 69 6e  75 65 3a 2d 22 0d 00 9b  |o continue:-"...|
00000170  1e e7 48 4f 4c 44 48 3d  30 20 80 20 48 4f 4c 44  |..HOLDH=0 . HOLD|
00000180  54 3d 30 20 48 4f 4c 44  48 3d 31 0d 00 a0 09 20  |T=0 HOLDH=1.... |
00000190  5a 5a 3d a5 0d 00 aa 06  20 db 0d 00 b4 09 20 f1  |ZZ=..... ..... .|
000001a0  27 27 27 0d 00 be 08 20  fb 20 31 0d 00 c8 25 20  |'''.... . 1...% |
000001b0  f1 22 20 20 20 20 20 20  20 20 20 20 20 2a 2a 2a  |."           ***|
000001c0  2a 2a 20 52 41 44 41 52  20 2a 2a 2a 2a 2a 22 27  |** RADAR *****"'|
000001d0  0d 00 d2 2c 20 f1 22 20  20 20 20 20 41 20 67 72  |..., ."     A gr|
000001e0  65 61 74 20 63 69 72 63  6c 65 20 6d 61 70 20 73  |eat circle map s|
000001f0  75 62 73 74 69 74 75 74  65 22 27 27 0d 00 dc 08  |ubstitute"''....|
00000200  20 fb 20 32 0d 00 e6 11  20 f1 27 22 20 20 20 48  | . 2.... .'"   H|
00000210  45 52 45 22 27 0d 00 f0  28 20 f1 22 20 20 20 20  |ERE"'...( ."    |
00000220  20 4c 6f 6e 67 69 74 75  64 65 20 28 64 65 67 2c  | Longitude (deg,|
00000230  6d 69 6e 20 45 20 2b 76  65 29 20 22 3b 0d 00 fa  |min E +ve) ";...|
00000240  23 20 e7 20 48 4f 4c 44  48 3d 30 20 f1 3b 48 58  |# . HOLDH=0 .;HX|
00000250  44 3b 22 2c 22 3b 48 58  4d 3a e5 20 8d 54 62 41  |D;",";HXM:. .TbA|
00000260  0d 01 04 0f 20 e8 22 22  48 58 44 2c 48 58 4d 0d  |.... .""HXD,HXM.|
00000270  01 0e 1c 20 e7 20 48 58  4d 3e 35 39 20 84 20 48  |... . HXM>59 . H|
00000280  58 4d 3c 30 20 e5 20 8d  74 56 40 0d 01 18 15 20  |XM<0 . .tV@.... |
00000290  e7 20 48 58 44 3c 30 20  48 58 4d 3d 2d 48 58 4d  |. HXD<0 HXM=-HXM|
000002a0  0d 01 22 14 20 48 58 3d  48 58 44 2b 28 48 58 4d  |..". HX=HXD+(HXM|
000002b0  2f 36 30 29 0d 01 2c 1e  20 e7 20 48 58 3e 31 38  |/60)..,. . HX>18|
000002c0  30 20 84 20 48 58 3c 2d  31 38 30 20 e5 20 8d 74  |0 . HX<-180 . .t|
000002d0  56 40 0d 01 36 22 20 e7  20 a8 28 48 58 44 29 3c  |V@..6" . .(HXD)<|
000002e0  3e 48 58 44 20 80 20 48  58 4d 3c 3e 30 20 e5 20  |>HXD . HXM<>0 . |
000002f0  8d 74 56 40 0d 01 40 10  20 48 58 3d af 2a 48 58  |.tV@..@. HX=.*HX|
00000300  2f 31 38 30 0d 01 4a 28  20 f1 22 20 20 20 20 20  |/180..J( ."     |
00000310  4c 61 74 74 69 74 75 64  65 20 28 64 65 67 2c 6d  |Lattitude (deg,m|
00000320  69 6e 29 20 20 20 20 20  20 20 22 3b 0d 01 54 23  |in)       ";..T#|
00000330  20 e7 20 48 4f 4c 44 48  3d 30 20 f1 3b 48 59 44  | . HOLDH=0 .;HYD|
00000340  3b 22 2c 22 3b 48 59 4d  3a e5 20 8d 44 7c 41 0d  |;",";HYM:. .D|A.|
00000350  01 5e 0f 20 e8 22 22 48  59 44 2c 48 59 4d 0d 01  |.^. .""HYD,HYM..|
00000360  68 1c 20 e7 20 48 59 4d  3e 35 39 20 84 20 48 59  |h. . HYM>59 . HY|
00000370  4d 3c 30 20 e5 20 8d 74  56 40 0d 01 72 15 20 e7  |M<0 . .tV@..r. .|
00000380  20 48 59 44 3c 30 20 48  59 4d 3d 2d 48 59 4d 0d  | HYD<0 HYM=-HYM.|
00000390  01 7c 14 20 48 59 3d 48  59 44 2b 28 48 59 4d 2f  |.|. HY=HYD+(HYM/|
000003a0  36 30 29 0d 01 86 1c 20  e7 20 48 59 3e 39 30 20  |60).... . HY>90 |
000003b0  84 20 48 59 3c 2d 39 30  20 e5 20 8d 74 56 40 0d  |. HY<-90 . .tV@.|
000003c0  01 90 22 20 e7 20 a8 28  48 59 44 29 3c 3e 48 59  |.." . .(HYD)<>HY|
000003d0  44 20 80 20 48 59 4d 3c  3e 30 20 e5 20 8d 74 56  |D . HYM<>0 . .tV|
000003e0  40 0d 01 9a 10 20 48 59  3d af 2a 48 59 2f 31 38  |@.... HY=.*HY/18|
000003f0  30 0d 01 a4 0c 20 48 4f  4c 44 48 3d 30 0d 01 ae  |0.... HOLDH=0...|
00000400  13 20 f1 27 27 22 20 20  20 54 48 45 52 45 22 27  |. .''"   THERE"'|
00000410  0d 01 b8 28 20 f1 22 20  20 20 20 20 4c 6f 6e 67  |...( ."     Long|
00000420  69 74 75 64 65 20 28 64  65 67 2c 6d 69 6e 20 45  |itude (deg,min E|
00000430  20 2b 76 65 29 20 22 3b  0d 01 c2 23 20 e7 20 48  | +ve) ";...# . H|
00000440  4f 4c 44 54 3d 30 20 f1  3b 54 58 44 3b 22 2c 22  |OLDT=0 .;TXD;","|
00000450  3b 54 58 4d 3a e5 20 8d  64 6a 41 0d 01 cc 0f 20  |;TXM:. .djA.... |
00000460  e8 22 22 54 58 44 2c 54  58 4d 0d 01 d6 1c 20 e7  |.""TXD,TXM.... .|
00000470  20 54 58 4d 3e 35 39 20  84 20 54 58 4d 3c 30 20  | TXM>59 . TXM<0 |
00000480  e5 20 8d 74 56 40 0d 01  e0 15 20 e7 20 54 58 44  |. .tV@.... . TXD|
00000490  3c 30 20 54 58 4d 3d 2d  54 58 4d 0d 01 ea 14 20  |<0 TXM=-TXM.... |
000004a0  54 58 3d 54 58 44 2b 28  54 58 4d 2f 36 30 29 0d  |TX=TXD+(TXM/60).|
000004b0  01 f4 1e 20 e7 20 54 58  3e 31 38 30 20 84 20 54  |... . TX>180 . T|
000004c0  58 3c 2d 31 38 30 20 e5  20 8d 74 56 40 0d 01 fe  |X<-180 . .tV@...|
000004d0  22 20 e7 20 a8 28 54 58  44 29 3c 3e 54 58 44 20  |" . .(TXD)<>TXD |
000004e0  80 20 54 58 4d 3c 3e 30  20 e5 20 8d 74 56 40 0d  |. TXM<>0 . .tV@.|
000004f0  02 08 10 20 54 58 3d af  2a 54 58 2f 31 38 30 0d  |... TX=.*TX/180.|
00000500  02 12 28 20 f1 22 20 20  20 20 20 4c 61 74 74 69  |..( ."     Latti|
00000510  74 75 64 65 20 28 64 65  67 2c 6d 69 6e 29 20 20  |tude (deg,min)  |
00000520  20 20 20 20 20 22 3b 0d  02 1c 23 20 e7 20 48 4f  |     ";...# . HO|
00000530  4c 44 54 3d 30 20 f1 3b  54 59 44 3b 22 2c 22 3b  |LDT=0 .;TYD;",";|
00000540  54 59 4d 3a e5 20 8d 44  44 42 0d 02 26 0f 20 e8  |TYM:. .DDB..&. .|
00000550  22 22 54 59 44 2c 54 59  4d 0d 02 30 1c 20 e7 20  |""TYD,TYM..0. . |
00000560  54 59 4d 3e 35 39 20 84  20 54 59 4d 3c 30 20 e5  |TYM>59 . TYM<0 .|
00000570  20 8d 74 56 40 0d 02 3a  15 20 e7 20 54 59 44 3c  | .tV@..:. . TYD<|
00000580  30 20 54 59 4d 3d 2d 54  59 4d 0d 02 44 14 20 54  |0 TYM=-TYM..D. T|
00000590  59 3d 54 59 44 2b 28 54  59 4d 2f 36 30 29 0d 02  |Y=TYD+(TYM/60)..|
000005a0  4e 1c 20 e7 20 54 59 3e  39 30 20 84 20 54 59 3c  |N. . TY>90 . TY<|
000005b0  2d 39 30 20 e5 20 8d 74  56 40 0d 02 58 22 20 e7  |-90 . .tV@..X" .|
000005c0  20 a8 28 54 59 44 29 3c  3e 54 59 44 20 80 20 54  | .(TYD)<>TYD . T|
000005d0  59 4d 3c 3e 30 20 e5 20  8d 74 56 40 0d 02 62 10  |YM<>0 . .tV@..b.|
000005e0  20 54 59 3d af 2a 54 59  2f 31 38 30 0d 02 6c 07  | TY=.*TY/180..l.|
000005f0  20 f1 27 0d 02 76 0d 20  54 58 3d 54 58 2d 48 58  | .'..v. TX=TX-HX|
00000600  0d 02 80 1a 20 e7 20 54  58 3d 30 20 80 20 54 59  |.... . TX=0 . TY|
00000610  3d 48 59 20 e5 20 8d 74  56 40 0d 02 8a 0c 20 48  |=HY . .tV@.... H|
00000620  4f 4c 44 54 3d 30 0d 02  94 17 20 e7 20 54 58 3e  |OLDT=0.... . TX>|
00000630  af 20 54 58 3d 54 58 2d  28 32 2a af 29 0d 02 9e  |. TX=TX-(2*.)...|
00000640  18 20 e7 20 54 58 3c 2d  af 20 54 58 3d 54 58 2b  |. . TX<-. TX=TX+|
00000650  28 32 2a af 29 0d 02 a8  0a 20 49 4e 44 3d 30 0d  |(2*.).... IND=0.|
00000660  02 b2 18 20 e7 20 54 58  3c 30 20 54 58 3d 2d 54  |... . TX<0 TX=-T|
00000670  58 3a 49 4e 44 3d 31 0d  02 bc 17 20 41 31 42 3d  |X:IND=1.... A1B=|
00000680  95 28 9b 28 54 59 29 2a  9b 28 54 58 29 29 0d 02  |.(.(TY)*.(TX))..|
00000690  c6 16 20 53 54 48 31 3d  b5 28 54 59 29 2f b5 28  |.. STH1=.(TY)/.(|
000006a0  41 31 42 29 0d 02 d0 14  20 e7 20 53 54 48 31 3e  |A1B).... . STH1>|
000006b0  31 20 53 54 48 31 3d 31  0d 02 da 16 20 e7 20 53  |1 STH1=1.... . S|
000006c0  54 48 31 3c 2d 31 20 53  54 48 31 3d 2d 31 0d 02  |TH1<-1 STH1=-1..|
000006d0  e4 10 20 54 48 31 3d 98  28 53 54 48 31 29 0d 02  |.. TH1=.(STH1)..|
000006e0  ee 12 20 54 48 32 3d 28  af 2f 32 29 2d 54 48 31  |.. TH2=(./2)-TH1|
000006f0  0d 02 f8 2f 20 41 42 3d  95 28 28 9b 28 48 59 29  |.../ AB=.((.(HY)|
00000700  2a 9b 28 41 31 42 29 29  2b 28 b5 28 48 59 29 2a  |*.(A1B))+(.(HY)*|
00000710  b5 28 41 31 42 29 2a 9b  28 54 48 32 29 29 29 0d  |.(A1B)*.(TH2))).|
00000720  03 02 19 20 41 42 44 3d  a8 28 28 41 42 2a 33 39  |... ABD=.((AB*39|
00000730  36 30 29 2b 30 2e 35 29  0d 03 0c 29 20 f1 22 20  |60)+0.5)...) ." |
00000740  20 20 20 20 54 68 65 20  64 69 73 74 61 6e 63 65  |    The distance|
00000750  20 69 73 20 22 3b 41 42  44 3b 22 6d 69 6c 65 73  | is ";ABD;"miles|
00000760  22 0d 03 16 41 20 e7 20  41 42 3e 28 af 2d 30 2e  |"...A . AB>(.-0.|
00000770  30 30 30 30 30 30 30 30  31 29 20 f1 22 20 20 20  |000000001) ."   |
00000780  20 20 41 6c 6c 20 62 65  61 72 69 6e 67 73 20 65  |  All bearings e|
00000790  71 75 69 64 69 73 74 61  6e 74 22 3a e5 20 8d 64  |quidistant":. .d|
000007a0  54 43 0d 03 20 28 20 e7  20 48 59 3d 30 20 42 52  |TC.. ( . HY=0 BR|
000007b0  47 3d 28 28 af 2f 32 29  2d 54 48 31 29 2a 31 38  |G=((./2)-TH1)*18|
000007c0  30 2f af 3a e5 20 8d 74  76 43 0d 03 2a 1c 20 e7  |0/.:. .tvC..*. .|
000007d0  20 48 59 3c 30 20 48 59  53 3d 2d 48 59 20 8b 20  | HY<0 HYS=-HY . |
000007e0  48 59 53 3d 48 59 0d 03  34 15 20 53 3d 28 48 59  |HYS=HY..4. S=(HY|
000007f0  53 2b 41 42 2b 41 31 42  29 2f 32 0d 03 3e 27 20  |S+AB+A1B)/2..>' |
00000800  4e 3d 28 b5 28 53 29 2a  b5 28 53 2d 48 59 53 29  |N=(.(S)*.(S-HYS)|
00000810  2a b5 28 53 2d 41 42 29  2a b5 28 53 2d 41 31 42  |*.(S-AB)*.(S-A1B|
00000820  29 29 0d 03 48 1b 20 e7  20 4e 3e 30 2e 30 30 30  |))..H. . N>0.000|
00000830  30 30 30 30 30 31 20 e5  20 8d 74 44 43 0d 03 52  |000001 . .tDC..R|
00000840  14 20 e7 20 54 58 3e af  2f 32 20 e5 20 8d 44 70  |. . TX>./2 . .Dp|
00000850  43 0d 03 5c 1e 20 e7 20  54 59 2d 48 59 3e 30 20  |C..\. . TY-HY>0 |
00000860  42 52 47 3d 30 20 8b 20  42 52 47 3d 31 38 30 0d  |BRG=0 . BRG=180.|
00000870  03 66 0b 20 e5 20 8d 64  4a 43 0d 03 70 1e 20 e7  |.f. . .dJC..p. .|
00000880  20 54 59 2b 48 59 3e 30  20 42 52 47 3d 30 20 8b  | TY+HY>0 BRG=0 .|
00000890  20 42 52 47 3d 31 38 30  0d 03 7a 0b 20 e5 20 8d  | BRG=180..z. . .|
000008a0  64 4a 43 0d 03 84 0b 20  4e 3d b6 28 4e 29 0d 03  |dJC.... N=.(N)..|
000008b0  8e 1b 20 5a 3d 99 28 28  b5 28 53 2d 41 31 42 29  |.. Z=.((.(S-A1B)|
000008c0  2a b5 28 53 29 29 2f 4e  29 0d 03 98 11 20 42 41  |*.(S))/N).... BA|
000008d0  41 31 3d af 2d 28 32 2a  5a 29 0d 03 a2 1d 20 42  |A1=.-(2*Z).... B|
000008e0  41 41 31 3d a8 28 28 42  41 41 31 2a 31 38 30 2f  |AA1=.((BAA1*180/|
000008f0  af 29 2b 30 2e 35 29 0d  03 ac 23 20 e7 20 48 59  |.)+0.5)...# . HY|
00000900  3e 30 20 42 52 47 3d 31  38 30 2d 42 41 41 31 20  |>0 BRG=180-BAA1 |
00000910  8b 20 42 52 47 3d 42 41  41 31 0d 03 b6 18 20 e7  |. BRG=BAA1.... .|
00000920  20 49 4e 44 3d 31 20 42  52 47 3d 33 36 30 2d 42  | IND=1 BRG=360-B|
00000930  52 47 0d 03 c0 13 20 42  52 47 3d a8 28 42 52 47  |RG.... BRG=.(BRG|
00000940  2b 30 2e 35 29 0d 03 ca  27 20 f1 22 20 20 20 20  |+0.5)...' ."    |
00000950  20 54 68 65 20 62 65 61  72 69 6e 67 20 69 73 20  | The bearing is |
00000960  22 3b 42 52 47 3b 22 20  64 65 67 22 0d 03 d4 08  |";BRG;" deg"....|
00000970  20 f1 27 27 0d 03 de 08  20 fb 20 31 0d 03 e8 2d  | .''.... . 1...-|
00000980  20 f1 22 20 20 20 48 28  65 72 65 29 20 54 28 68  | ."   H(ere) T(h|
00000990  65 72 65 29 20 6f 72 20  42 28 6f 74 68 29 20 74  |ere) or B(oth) t|
000009a0  6f 20 63 68 61 6e 67 65  22 0d 03 f2 24 20 f1 27  |o change"...$ .'|
000009b0  22 20 20 20 20 20 20 20  20 20 20 20 20 20 50 52  |"             PR|
000009c0  45 53 53 20 45 20 74 6f  20 65 6e 64 22 0d 03 fc  |ESS E to end"...|
000009d0  08 20 fb 20 32 0d 04 06  08 20 47 3d a5 0d 04 10  |. . 2.... G=....|
000009e0  22 20 e7 20 47 3d 36 36  20 48 4f 4c 44 48 3d 31  |" . G=66 HOLDH=1|
000009f0  3a 48 4f 4c 44 54 3d 31  3a e5 20 8d 74 6a 40 0d  |:HOLDT=1:. .tj@.|
00000a00  04 1a 1a 20 e7 20 47 3d  37 32 20 48 4f 4c 44 48  |... . G=72 HOLDH|
00000a10  3d 31 3a e5 20 8d 74 6a  40 0d 04 24 1a 20 e7 20  |=1:. .tj@..$. . |
00000a20  47 3d 38 34 20 48 4f 4c  44 54 3d 31 3a e5 20 8d  |G=84 HOLDT=1:. .|
00000a30  74 6a 40 0d 04 2e 10 20  e7 20 47 3d 36 39 20 eb  |tj@.... . G=69 .|
00000a40  33 3a e0 0d 04 38 0b 20  e5 20 8d 54 46 44 0d ff  |3:...8. . .TFD..|
00000a50
14-04-89/Radar.m0
14-04-89/Radar.m1
14-04-89/Radar.m2
14-04-89/Radar.m4
14-04-89/Radar.m5

© Dominic Ford 2021–2024.

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