*TV 255,1
*FX11,0
�7
(�instructions
2B� X$(250):� Y$(250):� Z$(250):N=1:K=N:P%=3:total=0:M=0:� D(24)
<	�file
F�choice
P�4
Z
�setup
d � � �=17 � �options � � � �
n�
x
�input
�
�input
��radians
��calculate
�P%=P%+1
�
�clear
�	�N=49
�8�0,27);"48 legs maximum"'"Press 'TAB' for printout"
��=9��copy
�*FX11,25
��
�..........................
�� �clear

� �0,27);�(159)

�

..........................

"� �setup

,�� 0,368:� 0,1023:� 1279,1023:� 1279,368:� 0,940:� 1279,940:� 400,368:� 400,1023:� 650,368:� 650,1023:� 950,268:� 950,1023:�1279,368:�1279,268:�650,268:�650,368

6 �X=368�940�97:�0,X:�1279,X:�

@V� �1,1);"Position";�15,1);"Lat.";�22,1);"Long.";�31,1);"Distance";�23,22);"total";

J:�total>0�� �36-�(T$),21);tota;J$;�36-�(U$),22);totb;K$

T*�0,23);"Press 'ESCAPE'"'"for options"

^�

h..........................

r� �input

wM�N>2�N � 2<>0�30,27)"Enter 'R'";�30,28);"to repeat";�30,29);"last posn."

|%� �0,27);"Enter Position:  "X$(N)

��P%=21��:�setup:P%=3

��X$(N)=""�X$(N)=�(N)

�A$=X$(N)

��repeat

��Y$(N)<>""��print:�clear:�

��X$(N)>11�X$(N)=�X$(N),11)

�%� �0,28);"         Lat.    "Y$(N)

�.�30,27);�(10);�23,28);�(17);�23,29);�(17)

��chklat

��Err=0��error:�txA

�%� �0,29);"         Long.   "Z$(N)

�.�30,27);�(10);�23,28);�(17);�23,29);�(17)

��chklong

��Err=0��error:�d`A

�print

�clear
�
&..........................
0� �radians
: � �r(X)=�(�(X)+(X-�(X))*5/3)
DH A=�r(�(Y$(N-2))):B=�r(�(Z$(N-2))):C=�r(�(Y$(N-1))):D=�r(�(Z$(N-1)))
N� E=dlat....F=dlong
X0� �Y$(N-2),1)=�Y$(N-1),1) � E=�(A-C) � E=A+C
b0� �Z$(N-1),1)=�Z$(N-2),1) � F=�(B-D) � F=B+D
l� F>� � F=2*�-F
v�
�..........................
�� �calculate
�X=(�(�A*�C*�F-�A*�C+�E))
�D(N/2)=�(X)*60
�total=total+D(N/2)
�M=N
�
�units
�Q$=�(disa):R$=�(disb)
�5� �36-�(Q$),P%-2);disa;J$;�36-�(R$),P%-1);disb;K$
�T$=�(tota):U$=�(totb)
�1� �36-�(T$),21);tota;J$;�36-�(U$),22);totb;K$
��
�..........................
� �options
*FX15,1

�clear
 �Q
*{� �0,27);"Press 'TAB' for printout"'"Press '0' to zero totals"'"Press '1' to end programme"'"Press 'SPACE' to continue"
4Q=�
>
�clear
H!�Q<>9�Q<>32�Q<>48�Q<>49��TtC
R�Q=49��d\@
\�Q=9��copy:�
f8�Q=48�total=0:�31,21);"     ";�31,22);"     ":�TjC
p�Q=32��
z.......................... 
�� �print
�.� �1,P%);X$(N);�14,P%);Y$(N);�22,P%);Z$(N)
�N=N+1:P%=P%+1
��
�..........................
�
� �chklat
�
�A,B,C
��(Y$(N))=5�Y$(N)="0"+Y$(N)
�!A=�Y$(N),"N",6)+�Y$(N),"S",6)
�B=(�(�Y$(N),4,1))<6)
�C=(�(�Y$(N),6))<90.01)
�
Err=A*B*C
��
� �chklong
�(Z$(N))=6�Z$(N)="0"+Z$(N)
 �(Z$(N))=5�Z$(N)="00"+Z$(N)
$
�A,B,C
.!A=�Z$(N),"E",7)+�Z$(N),"W",7)
8B=(�(�Z$(N),5,1))<6)
BC=(�(�Z$(N),6))<180.01)
L
Err=A*B*C
V�
`.........................
j� �error
t7�30,27);"ERROR";�30,28);"12.34N";�30,29);"012.34W"
~*�1,7,2,1,1,1,1,1,121,-10,-5,-2,120,120
�
�1,1,53,7
��
�.........................
�� �copy
��
�
�I,X,Q
��2
��I=1�9:�X:�1,X:�
��27,64,27,68,10,25,35,50,0
�*FX3,10
�F�"          Position        lat.      long.              Distance"
�H�"     ____________________________________________________________"
�M=1 � N-1 �2

	M=M+1

�units
	M=M-1
(8�1,9:�X$(M);:�1,9:�Y$(M);:�1,9:�Z$(M);:�1,9:�disa;J$
2>�1,9:�X$(M+1);:�1,9:�Y$(M+1);:�1,9:�Z$(M+1);:�1,9:�disb;K$
<H�"     ____________________________________________________________"
F�
P
*FX3,0
Z�2
d�1,27,1,68,1,35,1,50,1,0
n*FX3,10
x �1,9:�"Total";:�1,9:�tota;J$
��1,9:�" ";:�1,9:�totb;K$;
�
*FX3,0
�	�1,13
��3
��
�.........................
�� �instructions
�6� �11,0); �(141);�(157);�(129);"DISTANCE  ";�(156)
�6� �11,1); �(141);�(157);�(129);"DISTANCE  ";�(156)
�5� �8,2) �(157);�(129);"J.GOLDWATER 1985  ";�(156)
�V�0,4);"This programme will determine the"'"shortest distance between two points."
�d�0,7);"Inputs required are an optional place"'"name followed by latitude and then"'"longitude."
�Z�0,11);"Coordinates are input in the form";'"degrees-decimal point-minutes-hemiphere"
d�0,14);"Example: GLASGOW.......ENTER";�9,15);"55.52N........ENTER";�9,16);"4.26W.........ENTER"
r�0,18);"The repeat facility automatically"'"displays the co-ordinates of a position"'"when it is used again."
V�0,24);"Press ";�(136);�(157);�(129);"SPACE ";�(156);�(137);�(135);"to continue";
"*FX15,1
,
���=32
6�
@.........................
J
� �choice
TS�:�5,8);"do you want distances in";�3,12);"'1'-�nautical� and �statute� miles"
^2�3,14);"'2'-�nautical� miles and�kilometres�"
h2�3,16);"'3'-�statute� miles and �kilometres�"
r!�5,20)"Press '1','2' or '3'"
|*FX15,1
�
H=�-48
��H<1�H>3��tFF
��
�.........................
�� �units
�r�H=1�tota=�(total+.5):totb=�(total*1.15078+.5):disa=�(D(M/2)+.5):disb=�(D(M/2)*1.15078+.5):J$="nm.":K$="sm.":�
�n�H=2�tota=�(total+.5):totb=�(total*1.852+.5):disa=�(D(M/2)+.5):disb=�(D(M/2)*1.852+.5):J$="nm.":K$="km.":�
�~�H=3�tota=�(total*1.15078+.5):totb=�(total*1.852+.5):disa=�(D(M/2)*1.15078+.5):disb=�(D(M/2)*1.852+.5):J$="sm.":K$="km.":�
�.........................
�
� �repeat
�7�A$="R"�X$(N)=X$(N-1):Y$(N)=Y$(N-1):Z$(N)=Z$(N-1):�
��X
��K<N � K=N
�
�X=1�K
�1�A$=X$(X)�X$(N)=X$(X):Y$(N)=Y$(X):Z$(N)=Z$(X)
�
�
.........................
&� �file
0�W
:M� � � �=222 � �5,17);"��File not found��":�# Y:�W=1�1500:�:�T|@:� � � �
DS�:�0,10);"Do you wish to load a data file"''"Press�'RETURN'�or enter filename"
N�15,15)A$
b�A$=""��
l
Y=� A$
v
K=49:Q%=0
��
�
�#Y=Q%
�
�#Y,X$
�
�#Y=Q%+13
�
�#Y,Y$
�
�#Y=Q%+21
�
�#Y,Z$
�Q%=Q%+30
�X$(K)=X$:Y$(K)=Y$:Z$(K)=Z$
�	K=K+1
�	� �#Y
��# Y
�	� � �
�
�

00000000  0d 00 0a 0d 2a 54 56 20  32 35 35 2c 31 0d 00 14  |....*TV 255,1...|
00000010  0b 2a 46 58 31 31 2c 30  0d 00 1e 06 eb 37 0d 00  |.*FX11,0.....7..|
00000020  28 11 f2 69 6e 73 74 72  75 63 74 69 6f 6e 73 0d  |(..instructions.|
00000030  00 32 42 de 20 58 24 28  32 35 30 29 3a de 20 59  |.2B. X$(250):. Y|
00000040  24 28 32 35 30 29 3a de  20 5a 24 28 32 35 30 29  |$(250):. Z$(250)|
00000050  3a 4e 3d 31 3a 4b 3d 4e  3a 50 25 3d 33 3a 74 6f  |:N=1:K=N:P%=3:to|
00000060  74 61 6c 3d 30 3a 4d 3d  30 3a de 20 44 28 32 34  |tal=0:M=0:. D(24|
00000070  29 0d 00 3c 09 f2 66 69  6c 65 0d 00 46 0b f2 63  |)..<..file..F..c|
00000080  68 6f 69 63 65 0d 00 50  06 eb 34 0d 00 5a 0a f2  |hoice..P..4..Z..|
00000090  73 65 74 75 70 0d 00 64  20 ee 85 20 e7 20 9f 3d  |setup..d .. . .=|
000000a0  31 37 20 8c 20 f2 6f 70  74 69 6f 6e 73 20 8b 20  |17 . .options . |
000000b0  ee 20 85 20 87 0d 00 6e  05 f5 0d 00 78 0a f2 69  |. . ...n....x..i|
000000c0  6e 70 75 74 0d 00 82 0a  f2 69 6e 70 75 74 0d 00  |nput.....input..|
000000d0  8c 0c f2 72 61 64 69 61  6e 73 0d 00 96 0e f2 63  |...radians.....c|
000000e0  61 6c 63 75 6c 61 74 65  0d 00 a0 0b 50 25 3d 50  |alculate....P%=P|
000000f0  25 2b 31 0d 00 b4 0a f2  63 6c 65 61 72 0d 00 be  |%+1.....clear...|
00000100  09 fd 4e 3d 34 39 0d 00  c8 38 f1 8a 30 2c 32 37  |..N=49...8..0,27|
00000110  29 3b 22 34 38 20 6c 65  67 73 20 6d 61 78 69 6d  |);"48 legs maxim|
00000120  75 6d 22 27 22 50 72 65  73 73 20 27 54 41 42 27  |um"'"Press 'TAB'|
00000130  20 66 6f 72 20 70 72 69  6e 74 6f 75 74 22 0d 00  | for printout"..|
00000140  d2 0e e7 a5 3d 39 8c f2  63 6f 70 79 0d 00 dc 0c  |....=9..copy....|
00000150  2a 46 58 31 31 2c 32 35  0d 00 e6 05 e0 0d 00 f0  |*FX11,25........|
00000160  1e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000170  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 0d 00 fa 0c dd  |................|
00000180  20 f2 63 6c 65 61 72 0d  01 04 13 f1 20 8a 30 2c  | .clear..... .0,|
00000190  32 37 29 3b 89 28 31 35  39 29 0d 01 0e 05 e1 0d  |27);.(159)......|
000001a0  01 18 1e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000001b0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 0d 01 22  |..............."|
000001c0  0c dd 20 f2 73 65 74 75  70 0d 01 2c a3 ec 20 30  |.. .setup..,.. 0|
000001d0  2c 33 36 38 3a df 20 30  2c 31 30 32 33 3a df 20  |,368:. 0,1023:. |
000001e0  31 32 37 39 2c 31 30 32  33 3a df 20 31 32 37 39  |1279,1023:. 1279|
000001f0  2c 33 36 38 3a ec 20 30  2c 39 34 30 3a df 20 31  |,368:. 0,940:. 1|
00000200  32 37 39 2c 39 34 30 3a  ec 20 34 30 30 2c 33 36  |279,940:. 400,36|
00000210  38 3a df 20 34 30 30 2c  31 30 32 33 3a ec 20 36  |8:. 400,1023:. 6|
00000220  35 30 2c 33 36 38 3a df  20 36 35 30 2c 31 30 32  |50,368:. 650,102|
00000230  33 3a ec 20 39 35 30 2c  32 36 38 3a df 20 39 35  |3:. 950,268:. 95|
00000240  30 2c 31 30 32 33 3a ec  31 32 37 39 2c 33 36 38  |0,1023:.1279,368|
00000250  3a df 31 32 37 39 2c 32  36 38 3a df 36 35 30 2c  |:.1279,268:.650,|
00000260  32 36 38 3a df 36 35 30  2c 33 36 38 0d 01 36 20  |268:.650,368..6 |
00000270  e3 58 3d 33 36 38 b8 39  34 30 88 39 37 3a ec 30  |.X=368.940.97:.0|
00000280  2c 58 3a df 31 32 37 39  2c 58 3a ed 0d 01 40 56  |,X:.1279,X:...@V|
00000290  f1 20 8a 31 2c 31 29 3b  22 50 6f 73 69 74 69 6f  |. .1,1);"Positio|
000002a0  6e 22 3b 8a 31 35 2c 31  29 3b 22 4c 61 74 2e 22  |n";.15,1);"Lat."|
000002b0  3b 8a 32 32 2c 31 29 3b  22 4c 6f 6e 67 2e 22 3b  |;.22,1);"Long.";|
000002c0  8a 33 31 2c 31 29 3b 22  44 69 73 74 61 6e 63 65  |.31,1);"Distance|
000002d0  22 3b 8a 32 33 2c 32 32  29 3b 22 74 6f 74 61 6c  |";.23,22);"total|
000002e0  22 3b 0d 01 4a 3a e7 74  6f 74 61 6c 3e 30 8c f1  |";..J:.total>0..|
000002f0  20 8a 33 36 2d a9 28 54  24 29 2c 32 31 29 3b 74  | .36-.(T$),21);t|
00000300  6f 74 61 3b 4a 24 3b 8a  33 36 2d a9 28 55 24 29  |ota;J$;.36-.(U$)|
00000310  2c 32 32 29 3b 74 6f 74  62 3b 4b 24 0d 01 54 2a  |,22);totb;K$..T*|
00000320  f1 8a 30 2c 32 33 29 3b  22 50 72 65 73 73 20 27  |..0,23);"Press '|
00000330  45 53 43 41 50 45 27 22  27 22 66 6f 72 20 6f 70  |ESCAPE'"'"for op|
00000340  74 69 6f 6e 73 22 0d 01  5e 05 e1 0d 01 68 1e 2e  |tions"..^....h..|
00000350  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000360  2e 2e 2e 2e 2e 2e 2e 2e  2e 0d 01 72 0c dd 20 f2  |...........r.. .|
00000370  69 6e 70 75 74 0d 01 77  4d e7 4e 3e 32 80 4e 20  |input..wM.N>2.N |
00000380  83 20 32 3c 3e 30 f1 8a  33 30 2c 32 37 29 22 45  |. 2<>0..30,27)"E|
00000390  6e 74 65 72 20 27 52 27  22 3b 8a 33 30 2c 32 38  |nter 'R'";.30,28|
000003a0  29 3b 22 74 6f 20 72 65  70 65 61 74 22 3b 8a 33  |);"to repeat";.3|
000003b0  30 2c 32 39 29 3b 22 6c  61 73 74 20 70 6f 73 6e  |0,29);"last posn|
000003c0  2e 22 0d 01 7c 25 e8 20  8a 30 2c 32 37 29 3b 22  |."..|%. .0,27);"|
000003d0  45 6e 74 65 72 20 50 6f  73 69 74 69 6f 6e 3a 20  |Enter Position: |
000003e0  20 22 58 24 28 4e 29 0d  01 81 18 e7 50 25 3d 32  | "X$(N).....P%=2|
000003f0  31 8c db 3a f2 73 65 74  75 70 3a 50 25 3d 33 0d  |1..:.setup:P%=3.|
00000400  01 86 18 e7 58 24 28 4e  29 3d 22 22 8c 58 24 28  |....X$(N)="".X$(|
00000410  4e 29 3d c3 28 4e 29 0d  01 90 0c 41 24 3d 58 24  |N)=.(N)....A$=X$|
00000420  28 4e 29 0d 01 9a 0b f2  72 65 70 65 61 74 0d 01  |(N).....repeat..|
00000430  a4 1e e7 59 24 28 4e 29  3c 3e 22 22 8c f2 70 72  |...Y$(N)<>""..pr|
00000440  69 6e 74 3a f2 63 6c 65  61 72 3a e1 0d 01 ae 1f  |int:.clear:.....|
00000450  e7 a9 58 24 28 4e 29 3e  31 31 8c 58 24 28 4e 29  |..X$(N)>11.X$(N)|
00000460  3d c0 58 24 28 4e 29 2c  31 31 29 0d 01 b8 25 e8  |=.X$(N),11)...%.|
00000470  20 8a 30 2c 32 38 29 3b  22 20 20 20 20 20 20 20  | .0,28);"       |
00000480  20 20 4c 61 74 2e 20 20  20 20 22 59 24 28 4e 29  |  Lat.    "Y$(N)|
00000490  0d 01 c2 2e f1 8a 33 30  2c 32 37 29 3b 89 28 31  |......30,27);.(1|
000004a0  30 29 3b 8a 32 33 2c 32  38 29 3b 89 28 31 37 29  |0);.23,28);.(17)|
000004b0  3b 8a 32 33 2c 32 39 29  3b 89 28 31 37 29 0d 01  |;.23,29);.(17)..|
000004c0  cc 0b f2 63 68 6b 6c 61  74 0d 01 d6 17 e7 45 72  |...chklat.....Er|
000004d0  72 3d 30 8c f2 65 72 72  6f 72 3a e5 8d 74 78 41  |r=0..error:..txA|
000004e0  0d 01 e0 25 e8 20 8a 30  2c 32 39 29 3b 22 20 20  |...%. .0,29);"  |
000004f0  20 20 20 20 20 20 20 4c  6f 6e 67 2e 20 20 20 22  |       Long.   "|
00000500  5a 24 28 4e 29 0d 01 ea  2e f1 8a 33 30 2c 32 37  |Z$(N)......30,27|
00000510  29 3b 89 28 31 30 29 3b  8a 32 33 2c 32 38 29 3b  |);.(10);.23,28);|
00000520  89 28 31 37 29 3b 8a 32  33 2c 32 39 29 3b 89 28  |.(17);.23,29);.(|
00000530  31 37 29 0d 01 f4 0c f2  63 68 6b 6c 6f 6e 67 0d  |17).....chklong.|
00000540  01 fe 17 e7 45 72 72 3d  30 8c f2 65 72 72 6f 72  |....Err=0..error|
00000550  3a e5 8d 64 60 41 0d 02  08 0a f2 70 72 69 6e 74  |:..d`A.....print|
00000560  0d 02 12 0a f2 63 6c 65  61 72 0d 02 1c 05 e1 0d  |.....clear......|
00000570  02 26 1e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |.&..............|
00000580  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 0d 02 30  |...............0|
00000590  0e dd 20 f2 72 61 64 69  61 6e 73 0d 02 3a 20 dd  |.. .radians..: .|
000005a0  20 a4 72 28 58 29 3d b2  28 a8 28 58 29 2b 28 58  | .r(X)=.(.(X)+(X|
000005b0  2d a8 28 58 29 29 2a 35  2f 33 29 0d 02 44 48 20  |-.(X))*5/3)..DH |
000005c0  41 3d a4 72 28 bb 28 59  24 28 4e 2d 32 29 29 29  |A=.r(.(Y$(N-2)))|
000005d0  3a 42 3d a4 72 28 bb 28  5a 24 28 4e 2d 32 29 29  |:B=.r(.(Z$(N-2))|
000005e0  29 3a 43 3d a4 72 28 bb  28 59 24 28 4e 2d 31 29  |):C=.r(.(Y$(N-1)|
000005f0  29 29 3a 44 3d a4 72 28  bb 28 5a 24 28 4e 2d 31  |)):D=.r(.(Z$(N-1|
00000600  29 29 29 0d 02 4e 17 f4  20 45 3d 64 6c 61 74 2e  |)))..N.. E=dlat.|
00000610  2e 2e 2e 46 3d 64 6c 6f  6e 67 0d 02 58 30 e7 20  |...F=dlong..X0. |
00000620  c2 59 24 28 4e 2d 32 29  2c 31 29 3d c2 59 24 28  |.Y$(N-2),1)=.Y$(|
00000630  4e 2d 31 29 2c 31 29 20  8c 20 45 3d 94 28 41 2d  |N-1),1) . E=.(A-|
00000640  43 29 20 8b 20 45 3d 41  2b 43 0d 02 62 30 e7 20  |C) . E=A+C..b0. |
00000650  c2 5a 24 28 4e 2d 31 29  2c 31 29 3d c2 5a 24 28  |.Z$(N-1),1)=.Z$(|
00000660  4e 2d 32 29 2c 31 29 20  8c 20 46 3d 94 28 42 2d  |N-2),1) . F=.(B-|
00000670  44 29 20 8b 20 46 3d 42  2b 44 0d 02 6c 13 e7 20  |D) . F=B+D..l.. |
00000680  46 3e af 20 8c 20 46 3d  32 2a af 2d 46 0d 02 76  |F>. . F=2*.-F..v|
00000690  05 e1 0d 02 80 1e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000006a0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000006b0  0d 02 8a 10 dd 20 f2 63  61 6c 63 75 6c 61 74 65  |..... .calculate|
000006c0  0d 02 94 1c 58 3d 28 95  28 9b 41 2a 9b 43 2a 9b  |....X=(.(.A*.C*.|
000006d0  46 2d 9b 41 2a 9b 43 2b  9b 45 29 29 0d 02 9e 12  |F-.A*.C+.E))....|
000006e0  44 28 4e 2f 32 29 3d 9d  28 58 29 2a 36 30 0d 02  |D(N/2)=.(X)*60..|
000006f0  a8 16 74 6f 74 61 6c 3d  74 6f 74 61 6c 2b 44 28  |..total=total+D(|
00000700  4e 2f 32 29 0d 02 b2 07  4d 3d 4e 0d 02 bc 0a f2  |N/2)....M=N.....|
00000710  75 6e 69 74 73 0d 02 c6  19 51 24 3d c3 28 64 69  |units....Q$=.(di|
00000720  73 61 29 3a 52 24 3d c3  28 64 69 73 62 29 0d 02  |sa):R$=.(disb)..|
00000730  d0 35 f1 20 8a 33 36 2d  a9 28 51 24 29 2c 50 25  |.5. .36-.(Q$),P%|
00000740  2d 32 29 3b 64 69 73 61  3b 4a 24 3b 8a 33 36 2d  |-2);disa;J$;.36-|
00000750  a9 28 52 24 29 2c 50 25  2d 31 29 3b 64 69 73 62  |.(R$),P%-1);disb|
00000760  3b 4b 24 0d 02 da 19 54  24 3d c3 28 74 6f 74 61  |;K$....T$=.(tota|
00000770  29 3a 55 24 3d c3 28 74  6f 74 62 29 0d 02 e4 31  |):U$=.(totb)...1|
00000780  f1 20 8a 33 36 2d a9 28  54 24 29 2c 32 31 29 3b  |. .36-.(T$),21);|
00000790  74 6f 74 61 3b 4a 24 3b  8a 33 36 2d a9 28 55 24  |tota;J$;.36-.(U$|
000007a0  29 2c 32 32 29 3b 74 6f  74 62 3b 4b 24 0d 02 ee  |),22);totb;K$...|
000007b0  05 e1 0d 02 f8 1e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000007c0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000007d0  0d 03 02 0e dd 20 f2 6f  70 74 69 6f 6e 73 0d 03  |..... .options..|
000007e0  0c 0b 2a 46 58 31 35 2c  31 0d 03 16 0a f2 63 6c  |..*FX15,1.....cl|
000007f0  65 61 72 0d 03 20 06 ea  51 0d 03 2a 7b f1 20 8a  |ear.. ..Q..*{. .|
00000800  30 2c 32 37 29 3b 22 50  72 65 73 73 20 27 54 41  |0,27);"Press 'TA|
00000810  42 27 20 66 6f 72 20 70  72 69 6e 74 6f 75 74 22  |B' for printout"|
00000820  27 22 50 72 65 73 73 20  27 30 27 20 74 6f 20 7a  |'"Press '0' to z|
00000830  65 72 6f 20 74 6f 74 61  6c 73 22 27 22 50 72 65  |ero totals"'"Pre|
00000840  73 73 20 27 31 27 20 74  6f 20 65 6e 64 20 70 72  |ss '1' to end pr|
00000850  6f 67 72 61 6d 6d 65 22  27 22 50 72 65 73 73 20  |ogramme"'"Press |
00000860  27 53 50 41 43 45 27 20  74 6f 20 63 6f 6e 74 69  |'SPACE' to conti|
00000870  6e 75 65 22 0d 03 34 07  51 3d a5 0d 03 3e 0a f2  |nue"..4.Q=...>..|
00000880  63 6c 65 61 72 0d 03 48  21 e7 51 3c 3e 39 80 51  |clear..H!.Q<>9.Q|
00000890  3c 3e 33 32 80 51 3c 3e  34 38 80 51 3c 3e 34 39  |<>32.Q<>48.Q<>49|
000008a0  8c e5 8d 54 74 43 0d 03  52 0f e7 51 3d 34 39 8c  |...TtC..R..Q=49.|
000008b0  e5 8d 64 5c 40 0d 03 5c  10 e7 51 3d 39 8c f2 63  |..d\@..\..Q=9..c|
000008c0  6f 70 79 3a e1 0d 03 66  38 e7 51 3d 34 38 8c 74  |opy:...f8.Q=48.t|
000008d0  6f 74 61 6c 3d 30 3a f1  8a 33 31 2c 32 31 29 3b  |otal=0:..31,21);|
000008e0  22 20 20 20 20 20 22 3b  8a 33 31 2c 32 32 29 3b  |"     ";.31,22);|
000008f0  22 20 20 20 20 20 22 3a  e5 8d 54 6a 43 0d 03 70  |"     ":..TjC..p|
00000900  0b e7 51 3d 33 32 8c e1  0d 03 7a 1f 2e 2e 2e 2e  |..Q=32....z.....|
00000910  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000920  2e 2e 2e 2e 2e 2e 20 0d  03 84 0c dd 20 f2 70 72  |...... ..... .pr|
00000930  69 6e 74 0d 03 8e 2e f1  20 8a 31 2c 50 25 29 3b  |int..... .1,P%);|
00000940  58 24 28 4e 29 3b 8a 31  34 2c 50 25 29 3b 59 24  |X$(N);.14,P%);Y$|
00000950  28 4e 29 3b 8a 32 32 2c  50 25 29 3b 5a 24 28 4e  |(N);.22,P%);Z$(N|
00000960  29 0d 03 98 11 4e 3d 4e  2b 31 3a 50 25 3d 50 25  |)....N=N+1:P%=P%|
00000970  2b 31 0d 03 a2 05 e1 0d  03 ac 1e 2e 2e 2e 2e 2e  |+1..............|
00000980  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000990  2e 2e 2e 2e 2e 0d 03 b6  0d dd 20 f2 63 68 6b 6c  |.......... .chkl|
000009a0  61 74 0d 03 c0 0a ea 41  2c 42 2c 43 0d 03 ca 1f  |at.....A,B,C....|
000009b0  e7 a9 28 59 24 28 4e 29  29 3d 35 8c 59 24 28 4e  |..(Y$(N))=5.Y$(N|
000009c0  29 3d 22 30 22 2b 59 24  28 4e 29 0d 03 d4 21 41  |)="0"+Y$(N)...!A|
000009d0  3d a7 59 24 28 4e 29 2c  22 4e 22 2c 36 29 2b a7  |=.Y$(N),"N",6)+.|
000009e0  59 24 28 4e 29 2c 22 53  22 2c 36 29 0d 03 de 18  |Y$(N),"S",6)....|
000009f0  42 3d 28 bb 28 c1 59 24  28 4e 29 2c 34 2c 31 29  |B=(.(.Y$(N),4,1)|
00000a00  29 3c 36 29 0d 03 e8 1a  43 3d 28 bb 28 c0 59 24  |)<6)....C=(.(.Y$|
00000a10  28 4e 29 2c 36 29 29 3c  39 30 2e 30 31 29 0d 03  |(N),6))<90.01)..|
00000a20  f2 0d 45 72 72 3d 41 2a  42 2a 43 0d 03 fc 05 e1  |..Err=A*B*C.....|
00000a30  0d 04 06 0e dd 20 f2 63  68 6b 6c 6f 6e 67 0d 04  |..... .chklong..|
00000a40  10 1f e7 a9 28 5a 24 28  4e 29 29 3d 36 8c 5a 24  |....(Z$(N))=6.Z$|
00000a50  28 4e 29 3d 22 30 22 2b  5a 24 28 4e 29 0d 04 1a  |(N)="0"+Z$(N)...|
00000a60  20 e7 a9 28 5a 24 28 4e  29 29 3d 35 8c 5a 24 28  | ..(Z$(N))=5.Z$(|
00000a70  4e 29 3d 22 30 30 22 2b  5a 24 28 4e 29 0d 04 24  |N)="00"+Z$(N)..$|
00000a80  0a ea 41 2c 42 2c 43 0d  04 2e 21 41 3d a7 5a 24  |..A,B,C...!A=.Z$|
00000a90  28 4e 29 2c 22 45 22 2c  37 29 2b a7 5a 24 28 4e  |(N),"E",7)+.Z$(N|
00000aa0  29 2c 22 57 22 2c 37 29  0d 04 38 18 42 3d 28 bb  |),"W",7)..8.B=(.|
00000ab0  28 c1 5a 24 28 4e 29 2c  35 2c 31 29 29 3c 36 29  |(.Z$(N),5,1))<6)|
00000ac0  0d 04 42 1b 43 3d 28 bb  28 c0 5a 24 28 4e 29 2c  |..B.C=(.(.Z$(N),|
00000ad0  36 29 29 3c 31 38 30 2e  30 31 29 0d 04 4c 0d 45  |6))<180.01)..L.E|
00000ae0  72 72 3d 41 2a 42 2a 43  0d 04 56 05 e1 0d 04 60  |rr=A*B*C..V....`|
00000af0  1d 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000b00  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 0d 04 6a 0c dd 20  |............j.. |
00000b10  f2 65 72 72 6f 72 0d 04  74 37 f1 8a 33 30 2c 32  |.error..t7..30,2|
00000b20  37 29 3b 22 45 52 52 4f  52 22 3b 8a 33 30 2c 32  |7);"ERROR";.30,2|
00000b30  38 29 3b 22 31 32 2e 33  34 4e 22 3b 8a 33 30 2c  |8);"12.34N";.30,|
00000b40  32 39 29 3b 22 30 31 32  2e 33 34 57 22 0d 04 7e  |29);"012.34W"..~|
00000b50  2a e2 31 2c 37 2c 32 2c  31 2c 31 2c 31 2c 31 2c  |*.1,7,2,1,1,1,1,|
00000b60  31 2c 31 32 31 2c 2d 31  30 2c 2d 35 2c 2d 32 2c  |1,121,-10,-5,-2,|
00000b70  31 32 30 2c 31 32 30 0d  04 88 0d d4 31 2c 31 2c  |120,120.....1,1,|
00000b80  35 33 2c 37 0d 04 92 05  e1 0d 04 9c 1d 2e 2e 2e  |53,7............|
00000b90  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000ba0  2e 2e 2e 2e 2e 2e 0d 04  a6 0b dd 20 f2 63 6f 70  |........... .cop|
00000bb0  79 0d 04 b0 05 f7 0d 04  ba 0a ea 49 2c 58 2c 51  |y..........I,X,Q|
00000bc0  0d 04 c4 06 ef 32 0d 04  ce 14 e3 49 3d 31 b8 39  |.....2.....I=1.9|
00000bd0  3a f3 58 3a ef 31 2c 58  3a ed 0d 04 d8 1e dc 32  |:.X:.1,X:......2|
00000be0  37 2c 36 34 2c 32 37 2c  36 38 2c 31 30 2c 32 35  |7,64,27,68,10,25|
00000bf0  2c 33 35 2c 35 30 2c 30  0d 04 e2 0b 2a 46 58 33  |,35,50,0....*FX3|
00000c00  2c 31 30 0d 04 ec 46 f1  22 20 20 20 20 20 20 20  |,10...F."       |
00000c10  20 20 20 50 6f 73 69 74  69 6f 6e 20 20 20 20 20  |   Position     |
00000c20  20 20 20 6c 61 74 2e 20  20 20 20 20 20 6c 6f 6e  |   lat.      lon|
00000c30  67 2e 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |g.              |
00000c40  44 69 73 74 61 6e 63 65  22 0d 04 f6 48 f1 22 20  |Distance"...H." |
00000c50  20 20 20 20 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |    ____________|
00000c60  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000c90  22 0d 05 00 11 e3 4d 3d  31 20 b8 20 4e 2d 31 20  |".....M=1 . N-1 |
00000ca0  88 32 0d 05 0a 09 4d 3d  4d 2b 31 0d 05 14 0a f2  |.2....M=M+1.....|
00000cb0  75 6e 69 74 73 0d 05 1e  09 4d 3d 4d 2d 31 0d 05  |units....M=M-1..|
00000cc0  28 38 ef 31 2c 39 3a f1  58 24 28 4d 29 3b 3a ef  |(8.1,9:.X$(M);:.|
00000cd0  31 2c 39 3a f1 59 24 28  4d 29 3b 3a ef 31 2c 39  |1,9:.Y$(M);:.1,9|
00000ce0  3a f1 5a 24 28 4d 29 3b  3a ef 31 2c 39 3a f1 64  |:.Z$(M);:.1,9:.d|
00000cf0  69 73 61 3b 4a 24 0d 05  32 3e ef 31 2c 39 3a f1  |isa;J$..2>.1,9:.|
00000d00  58 24 28 4d 2b 31 29 3b  3a ef 31 2c 39 3a f1 59  |X$(M+1);:.1,9:.Y|
00000d10  24 28 4d 2b 31 29 3b 3a  ef 31 2c 39 3a f1 5a 24  |$(M+1);:.1,9:.Z$|
00000d20  28 4d 2b 31 29 3b 3a ef  31 2c 39 3a f1 64 69 73  |(M+1);:.1,9:.dis|
00000d30  62 3b 4b 24 0d 05 3c 48  f1 22 20 20 20 20 20 5f  |b;K$..<H."     _|
00000d40  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000d70  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 22 0d 05 46 05  |___________"..F.|
00000d80  ed 0d 05 50 0a 2a 46 58  33 2c 30 0d 05 5a 06 ef  |...P.*FX3,0..Z..|
00000d90  32 0d 05 64 1c ef 31 2c  32 37 2c 31 2c 36 38 2c  |2..d..1,27,1,68,|
00000da0  31 2c 33 35 2c 31 2c 35  30 2c 31 2c 30 0d 05 6e  |1,35,1,50,1,0..n|
00000db0  0b 2a 46 58 33 2c 31 30  0d 05 78 20 ef 31 2c 39  |.*FX3,10..x .1,9|
00000dc0  3a f1 22 54 6f 74 61 6c  22 3b 3a ef 31 2c 39 3a  |:."Total";:.1,9:|
00000dd0  f1 74 6f 74 61 3b 4a 24  0d 05 82 1d ef 31 2c 39  |.tota;J$.....1,9|
00000de0  3a f1 22 20 22 3b 3a ef  31 2c 39 3a f1 74 6f 74  |:." ";:.1,9:.tot|
00000df0  62 3b 4b 24 3b 0d 05 8c  0a 2a 46 58 33 2c 30 0d  |b;K$;....*FX3,0.|
00000e00  05 96 09 ef 31 2c 31 33  0d 05 a0 06 ef 33 0d 05  |....1,13.....3..|
00000e10  aa 05 e1 0d 05 b4 1d 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000e20  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000e30  0d 05 be 13 dd 20 f2 69  6e 73 74 72 75 63 74 69  |..... .instructi|
00000e40  6f 6e 73 0d 05 c8 36 f1  20 8a 31 31 2c 30 29 3b  |ons...6. .11,0);|
00000e50  20 bd 28 31 34 31 29 3b  bd 28 31 35 37 29 3b bd  | .(141);.(157);.|
00000e60  28 31 32 39 29 3b 22 44  49 53 54 41 4e 43 45 20  |(129);"DISTANCE |
00000e70  20 22 3b bd 28 31 35 36  29 0d 05 d2 36 f1 20 8a  | ";.(156)...6. .|
00000e80  31 31 2c 31 29 3b 20 bd  28 31 34 31 29 3b bd 28  |11,1); .(141);.(|
00000e90  31 35 37 29 3b bd 28 31  32 39 29 3b 22 44 49 53  |157);.(129);"DIS|
00000ea0  54 41 4e 43 45 20 20 22  3b bd 28 31 35 36 29 0d  |TANCE  ";.(156).|
00000eb0  05 dc 35 f1 20 8a 38 2c  32 29 20 bd 28 31 35 37  |..5. .8,2) .(157|
00000ec0  29 3b bd 28 31 32 39 29  3b 22 4a 2e 47 4f 4c 44  |);.(129);"J.GOLD|
00000ed0  57 41 54 45 52 20 31 39  38 35 20 20 22 3b bd 28  |WATER 1985  ";.(|
00000ee0  31 35 36 29 0d 05 e6 56  f1 8a 30 2c 34 29 3b 22  |156)...V..0,4);"|
00000ef0  54 68 69 73 20 70 72 6f  67 72 61 6d 6d 65 20 77  |This programme w|
00000f00  69 6c 6c 20 64 65 74 65  72 6d 69 6e 65 20 74 68  |ill determine th|
00000f10  65 22 27 22 73 68 6f 72  74 65 73 74 20 64 69 73  |e"'"shortest dis|
00000f20  74 61 6e 63 65 20 62 65  74 77 65 65 6e 20 74 77  |tance between tw|
00000f30  6f 20 70 6f 69 6e 74 73  2e 22 0d 05 f0 64 f1 8a  |o points."...d..|
00000f40  30 2c 37 29 3b 22 49 6e  70 75 74 73 20 72 65 71  |0,7);"Inputs req|
00000f50  75 69 72 65 64 20 61 72  65 20 61 6e 20 6f 70 74  |uired are an opt|
00000f60  69 6f 6e 61 6c 20 70 6c  61 63 65 22 27 22 6e 61  |ional place"'"na|
00000f70  6d 65 20 66 6f 6c 6c 6f  77 65 64 20 62 79 20 6c  |me followed by l|
00000f80  61 74 69 74 75 64 65 20  61 6e 64 20 74 68 65 6e  |atitude and then|
00000f90  22 27 22 6c 6f 6e 67 69  74 75 64 65 2e 22 0d 05  |"'"longitude."..|
00000fa0  fa 5a f1 8a 30 2c 31 31  29 3b 22 43 6f 6f 72 64  |.Z..0,11);"Coord|
00000fb0  69 6e 61 74 65 73 20 61  72 65 20 69 6e 70 75 74  |inates are input|
00000fc0  20 69 6e 20 74 68 65 20  66 6f 72 6d 22 3b 27 22  | in the form";'"|
00000fd0  64 65 67 72 65 65 73 2d  64 65 63 69 6d 61 6c 20  |degrees-decimal |
00000fe0  70 6f 69 6e 74 2d 6d 69  6e 75 74 65 73 2d 68 65  |point-minutes-he|
00000ff0  6d 69 70 68 65 72 65 22  0d 06 04 64 f1 8a 30 2c  |miphere"...d..0,|
00001000  31 34 29 3b 22 45 78 61  6d 70 6c 65 3a 20 47 4c  |14);"Example: GL|
00001010  41 53 47 4f 57 2e 2e 2e  2e 2e 2e 2e 45 4e 54 45  |ASGOW.......ENTE|
00001020  52 22 3b 8a 39 2c 31 35  29 3b 22 35 35 2e 35 32  |R";.9,15);"55.52|
00001030  4e 2e 2e 2e 2e 2e 2e 2e  2e 45 4e 54 45 52 22 3b  |N........ENTER";|
00001040  8a 39 2c 31 36 29 3b 22  34 2e 32 36 57 2e 2e 2e  |.9,16);"4.26W...|
00001050  2e 2e 2e 2e 2e 2e 45 4e  54 45 52 22 0d 06 0e 72  |......ENTER"...r|
00001060  f1 8a 30 2c 31 38 29 3b  22 54 68 65 20 72 65 70  |..0,18);"The rep|
00001070  65 61 74 20 66 61 63 69  6c 69 74 79 20 61 75 74  |eat facility aut|
00001080  6f 6d 61 74 69 63 61 6c  6c 79 22 27 22 64 69 73  |omatically"'"dis|
00001090  70 6c 61 79 73 20 74 68  65 20 63 6f 2d 6f 72 64  |plays the co-ord|
000010a0  69 6e 61 74 65 73 20 6f  66 20 61 20 70 6f 73 69  |inates of a posi|
000010b0  74 69 6f 6e 22 27 22 77  68 65 6e 20 69 74 20 69  |tion"'"when it i|
000010c0  73 20 75 73 65 64 20 61  67 61 69 6e 2e 22 0d 06  |s used again."..|
000010d0  18 56 f1 8a 30 2c 32 34  29 3b 22 50 72 65 73 73  |.V..0,24);"Press|
000010e0  20 22 3b bd 28 31 33 36  29 3b bd 28 31 35 37 29  | ";.(136);.(157)|
000010f0  3b bd 28 31 32 39 29 3b  22 53 50 41 43 45 20 22  |;.(129);"SPACE "|
00001100  3b bd 28 31 35 36 29 3b  bd 28 31 33 37 29 3b bd  |;.(156);.(137);.|
00001110  28 31 33 35 29 3b 22 74  6f 20 63 6f 6e 74 69 6e  |(135);"to contin|
00001120  75 65 22 3b 0d 06 22 0b  2a 46 58 31 35 2c 31 0d  |ue";..".*FX15,1.|
00001130  06 2c 0a f5 fd a5 3d 33  32 0d 06 36 05 e1 0d 06  |.,....=32..6....|
00001140  40 1d 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |@...............|
00001150  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 0d 06 4a 0d dd  |.............J..|
00001160  20 f2 63 68 6f 69 63 65  0d 06 54 53 db 3a f1 8a  | .choice..TS.:..|
00001170  35 2c 38 29 3b 22 64 6f  20 79 6f 75 20 77 61 6e  |5,8);"do you wan|
00001180  74 20 64 69 73 74 61 6e  63 65 73 20 69 6e 22 3b  |t distances in";|
00001190  8a 33 2c 31 32 29 3b 22  27 31 27 2d 81 6e 61 75  |.3,12);"'1'-.nau|
000011a0  74 69 63 61 6c 87 20 61  6e 64 20 82 73 74 61 74  |tical. and .stat|
000011b0  75 74 65 87 20 6d 69 6c  65 73 22 0d 06 5e 32 f1  |ute. miles"..^2.|
000011c0  8a 33 2c 31 34 29 3b 22  27 32 27 2d 81 6e 61 75  |.3,14);"'2'-.nau|
000011d0  74 69 63 61 6c 87 20 6d  69 6c 65 73 20 61 6e 64  |tical. miles and|
000011e0  84 6b 69 6c 6f 6d 65 74  72 65 73 87 22 0d 06 68  |.kilometres."..h|
000011f0  32 f1 8a 33 2c 31 36 29  3b 22 27 33 27 2d 82 73  |2..3,16);"'3'-.s|
00001200  74 61 74 75 74 65 87 20  6d 69 6c 65 73 20 61 6e  |tatute. miles an|
00001210  64 20 84 6b 69 6c 6f 6d  65 74 72 65 73 87 22 0d  |d .kilometres.".|
00001220  06 72 21 f1 8a 35 2c 32  30 29 22 50 72 65 73 73  |.r!..5,20)"Press|
00001230  20 27 31 27 2c 27 32 27  20 6f 72 20 27 33 27 22  | '1','2' or '3'"|
00001240  0d 06 7c 0b 2a 46 58 31  35 2c 31 0d 06 86 0a 48  |..|.*FX15,1....H|
00001250  3d a5 2d 34 38 0d 06 90  12 e7 48 3c 31 84 48 3e  |=.-48.....H<1.H>|
00001260  33 8c e5 8d 74 46 46 0d  06 9a 05 e1 0d 06 a4 1d  |3...tFF.........|
00001270  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00001280  2e 2e 2e 2e 2e 2e 2e 2e  2e 0d 06 ae 0c dd 20 f2  |.............. .|
00001290  75 6e 69 74 73 0d 06 b8  72 e7 48 3d 31 8c 74 6f  |units...r.H=1.to|
000012a0  74 61 3d a8 28 74 6f 74  61 6c 2b 2e 35 29 3a 74  |ta=.(total+.5):t|
000012b0  6f 74 62 3d a8 28 74 6f  74 61 6c 2a 31 2e 31 35  |otb=.(total*1.15|
000012c0  30 37 38 2b 2e 35 29 3a  64 69 73 61 3d a8 28 44  |078+.5):disa=.(D|
000012d0  28 4d 2f 32 29 2b 2e 35  29 3a 64 69 73 62 3d a8  |(M/2)+.5):disb=.|
000012e0  28 44 28 4d 2f 32 29 2a  31 2e 31 35 30 37 38 2b  |(D(M/2)*1.15078+|
000012f0  2e 35 29 3a 4a 24 3d 22  6e 6d 2e 22 3a 4b 24 3d  |.5):J$="nm.":K$=|
00001300  22 73 6d 2e 22 3a e1 0d  06 c2 6e e7 48 3d 32 8c  |"sm.":....n.H=2.|
00001310  74 6f 74 61 3d a8 28 74  6f 74 61 6c 2b 2e 35 29  |tota=.(total+.5)|
00001320  3a 74 6f 74 62 3d a8 28  74 6f 74 61 6c 2a 31 2e  |:totb=.(total*1.|
00001330  38 35 32 2b 2e 35 29 3a  64 69 73 61 3d a8 28 44  |852+.5):disa=.(D|
00001340  28 4d 2f 32 29 2b 2e 35  29 3a 64 69 73 62 3d a8  |(M/2)+.5):disb=.|
00001350  28 44 28 4d 2f 32 29 2a  31 2e 38 35 32 2b 2e 35  |(D(M/2)*1.852+.5|
00001360  29 3a 4a 24 3d 22 6e 6d  2e 22 3a 4b 24 3d 22 6b  |):J$="nm.":K$="k|
00001370  6d 2e 22 3a e1 0d 06 cc  7e e7 48 3d 33 8c 74 6f  |m.":....~.H=3.to|
00001380  74 61 3d a8 28 74 6f 74  61 6c 2a 31 2e 31 35 30  |ta=.(total*1.150|
00001390  37 38 2b 2e 35 29 3a 74  6f 74 62 3d a8 28 74 6f  |78+.5):totb=.(to|
000013a0  74 61 6c 2a 31 2e 38 35  32 2b 2e 35 29 3a 64 69  |tal*1.852+.5):di|
000013b0  73 61 3d a8 28 44 28 4d  2f 32 29 2a 31 2e 31 35  |sa=.(D(M/2)*1.15|
000013c0  30 37 38 2b 2e 35 29 3a  64 69 73 62 3d a8 28 44  |078+.5):disb=.(D|
000013d0  28 4d 2f 32 29 2a 31 2e  38 35 32 2b 2e 35 29 3a  |(M/2)*1.852+.5):|
000013e0  4a 24 3d 22 73 6d 2e 22  3a 4b 24 3d 22 6b 6d 2e  |J$="sm.":K$="km.|
000013f0  22 3a e1 0d 06 d6 1d 2e  2e 2e 2e 2e 2e 2e 2e 2e  |":..............|
00001400  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00001410  0d 06 e0 0d dd 20 f2 72  65 70 65 61 74 0d 06 e5  |..... .repeat...|
00001420  37 e7 41 24 3d 22 52 22  8c 58 24 28 4e 29 3d 58  |7.A$="R".X$(N)=X|
00001430  24 28 4e 2d 31 29 3a 59  24 28 4e 29 3d 59 24 28  |$(N-1):Y$(N)=Y$(|
00001440  4e 2d 31 29 3a 5a 24 28  4e 29 3d 5a 24 28 4e 2d  |N-1):Z$(N)=Z$(N-|
00001450  31 29 3a e1 0d 06 ea 06  ea 58 0d 06 ef 0e e7 4b  |1):......X.....K|
00001460  3c 4e 20 8c 20 4b 3d 4e  0d 06 f4 0a e3 58 3d 31  |<N . K=N.....X=1|
00001470  b8 4b 0d 06 fe 31 e7 41  24 3d 58 24 28 58 29 8c  |.K...1.A$=X$(X).|
00001480  58 24 28 4e 29 3d 58 24  28 58 29 3a 59 24 28 4e  |X$(N)=X$(X):Y$(N|
00001490  29 3d 59 24 28 58 29 3a  5a 24 28 4e 29 3d 5a 24  |)=Y$(X):Z$(N)=Z$|
000014a0  28 58 29 0d 07 08 05 ed  0d 07 12 05 e1 0d 07 1c  |(X).............|
000014b0  1d 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000014c0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 0d 07 26 0b dd 20  |............&.. |
000014d0  f2 66 69 6c 65 0d 07 30  06 ea 57 0d 07 3a 4d ee  |.file..0..W..:M.|
000014e0  20 85 20 e7 20 9f 3d 32  32 32 20 8c 20 f1 8a 35  | . . .=222 . ..5|
000014f0  2c 31 37 29 3b 22 88 83  46 69 6c 65 20 6e 6f 74  |,17);"..File not|
00001500  20 66 6f 75 6e 64 87 89  22 3a d9 23 20 59 3a e3  | found..":.# Y:.|
00001510  57 3d 31 b8 31 35 30 30  3a ed 3a e5 8d 54 7c 40  |W=1.1500:.:..T|@|
00001520  3a 8b 20 ee 20 85 20 87  0d 07 44 53 db 3a f1 8a  |:. . . ...DS.:..|
00001530  30 2c 31 30 29 3b 22 44  6f 20 79 6f 75 20 77 69  |0,10);"Do you wi|
00001540  73 68 20 74 6f 20 6c 6f  61 64 20 61 20 64 61 74  |sh to load a dat|
00001550  61 20 66 69 6c 65 22 27  27 22 50 72 65 73 73 81  |a file"''"Press.|
00001560  27 52 45 54 55 52 4e 27  87 6f 72 20 65 6e 74 65  |'RETURN'.or ente|
00001570  72 20 66 69 6c 65 6e 61  6d 65 22 0d 07 4e 0e e8  |r filename"..N..|
00001580  8a 31 35 2c 31 35 29 41  24 0d 07 62 0c e7 41 24  |.15,15)A$..b..A$|
00001590  3d 22 22 8c e1 0d 07 6c  0a 59 3d 8e 20 41 24 0d  |=""....l.Y=. A$.|
000015a0  07 76 0d 4b 3d 34 39 3a  51 25 3d 30 0d 07 80 05  |.v.K=49:Q%=0....|
000015b0  f5 0d 07 8a 0a cf 23 59  3d 51 25 0d 07 94 0a e8  |......#Y=Q%.....|
000015c0  23 59 2c 58 24 0d 07 9e  0d cf 23 59 3d 51 25 2b  |#Y,X$.....#Y=Q%+|
000015d0  31 33 0d 07 a8 0a e8 23  59 2c 59 24 0d 07 b2 0d  |13.....#Y,Y$....|
000015e0  cf 23 59 3d 51 25 2b 32  31 0d 07 bc 0a e8 23 59  |.#Y=Q%+21.....#Y|
000015f0  2c 5a 24 0d 07 c6 0c 51  25 3d 51 25 2b 33 30 0d  |,Z$....Q%=Q%+30.|
00001600  07 d0 1e 58 24 28 4b 29  3d 58 24 3a 59 24 28 4b  |...X$(K)=X$:Y$(K|
00001610  29 3d 59 24 3a 5a 24 28  4b 29 3d 5a 24 0d 07 da  |)=Y$:Z$(K)=Z$...|
00001620  09 4b 3d 4b 2b 31 0d 07  e4 09 fd 20 c5 23 59 0d  |.K=K+1..... .#Y.|
00001630  07 ee 08 d9 23 20 59 0d  07 f8 09 ee 20 85 20 87  |....# Y..... . .|
00001640  0d 08 02 05 e1 0d ff                              |.......|
00001647