*TV 255
'�A$(500):�E$(500):�F$(500):�G$(500)
�7
(	�menu
2� N � �T|@,�DF@,�DZ@
<Y=� Q$:Z%=0:�input:�T^@
F�count:�C=0��nofile:�T^@
PY=� Q$:�input:�T^@
Z�read:�T^@
d#...............................
n� �input
x�
�A=0
��
�7�A>0�0,23);"Press�'RETURN'�when entries complete."
�<�A=0�0,10);"Enter place name - up to 11 letters.";�(80)
�"� �0,20);"Enter Position:  "X$
��0,23);�(38)
��X$=""��tdA
�j�A=0�0,10);"Now enter latitude; degrees then decimalpoint then minutes then hemisphere"'"e.g. 12.34N"
��X$>11�X$=�X$,11)
�"� �0,21);"         Lat.    "Y$
�-�30,20);�(8);�23,21);�(18);�23,22);�(17)
��chklat
�U�A=0�0,10);"Now enter longitude as before           e.g. 123.45W or 0.12W";�(80)
��Err=0��error:�dH@
�"� �0,22);"         Long.   "Z$

E�30,20);"     ";�23,21);"             ";�23,22);"              "

�chklong

�Err=0��error:�dz@

"
�#Y=Z%

,
�#Y,X$

6
�#Y=Z%+13

@
�#Y,Y$

J
�#Y=Z%+21

T
�#Y,Z$

^Z%=Z%+30

h	A=A+1

r�A>0�0,10);�(120)

|�A>18��:A=0

�!�0,A);X$;�15,A);Y$;�23,A);Z$

�, �0,20);�(40);�0,21);�(40);�0,22);�(40)

���

��#Y

��

�"..............................

�� �read

�
�count

�
�C=0��

��14

��

�Q%=0

�
C=� Q$
�

�#C=Q%
�#C,A$(Q%/30)
&
�#C=Q%+13
0
�#C,B$
:
�#C=Q%+21
D �#C,C$
NQ%=Q%+30
X
�Q%=Z%
b�#C
l	�sort
v"�:�:�"Press�SPACE�to continue"
�
� � � =32
��
� ............................
�
� �chklat
�
�A,B,C
��(Y$)=5�Y$="0"+Y$
�A=�Y$,"N",6)+�Y$,"S",6)
�B=(�(�Y$,4,1))<6)
�C=(�(�Y$,6))<90.01)
�
Err=A*B*C
��
�...........................
�� �chklong
�(Z$)=6�Z$="0"+Z$
�(Z$)=5�Z$="00"+Z$

�A,B,C
 A=�Z$,"E",7)+�Z$,"W",7)
*B=(�(�Z$,5,1))<6)
4C=(�(�Z$,6))<180.01)
>
Err=A*B*C
H�
R.........................
\� �error
f7�30,20);"ERROR";�30,21);"12.34N";�30,22);"012.34W"
p*�1,7,2,1,1,1,1,1,121,-10,-5,-2,120,120
z
�1,1,53,7
��
�"..............................
�� �menu
�*FX15,0
��
��0,0);"Do you want to :-"
�!�4,2);"�(1)�open a new file"
�)�4,4);"�(2)�add to an existing file"
��4,6);"�(3)�read a file"
�,�4,8);"�(4)�run the�DISTANCE�programme"
�%�4,10);"�(5)�end this programme"
�1�0,13);"Press�(1)�,�(2)�,�(3)�,�(4)�or�(5)�"
�
N=�-48
�N>5�N<1��d|C
�0,N*2);"��>>"
�N=4� �"DIST"
$�N=5� �
.�:*.
8+�0,16);"�ENTER�name of file"''�(10);Q$
=b�(Q$)>7��0,20);"��Check filename (7 letters max.)":X=�(200):�0,18);�(20);�0,20);�(38):�TxD
B�
L"..............................
V� �count
`
C=� Q$
j�C=0��#C:�nofile:�
t�#C=0:first=�#C
~�first>0��wrongfile:C=0:�
�
Z%=�#C
�Z%=30*(�(Z%/30))
��#C
��
�!.............................
�� �sort
�D�2,2);"Press 'TAB' for printout"''"  any other key to continue"
�K=�
��
�Y%=Z%/30-1
�	K%=Y%
��

K%=K% � 3

�K%=0�K%=1
�
W%=1
(�I%=0�Y%-K%
2�A$(I%)>A$(I%+K%) � �swap
<�
F
�;".";
P	�W%=1
Z	�K%=1
d�
n�K=9�2:�15:�13
x�X%=0�Y%
�Z%=(X% � 3)*13
��Z%);A$(X%);
��
�
�13:�3
��
�..........................
�� �swap
�W%=0
�
T$=A$(I%)
�A$(I%)=A$(I%+K%)
�A$(I%+K%)=T$
��
�...........................

� �nofile
�
�5,20);"��FILE NOT FOUND"
"%�3,22);"Press�SPACE�to continue"
,	��=32
6�
@...........................
J� �wrongfile
T�
^5�11,18);"��";Q$;"��";�5,20);"is not a�data�file"
hX=�(400)
r%�3,22);"Press�SPACE�to continue"
|	��=32
��
�

00000000  0d 00 0a 0b 2a 54 56 20  32 35 35 0d 00 14 27 de  |....*TV 255...'.|
00000010  41 24 28 35 30 30 29 3a  de 45 24 28 35 30 30 29  |A$(500):.E$(500)|
00000020  3a de 46 24 28 35 30 30  29 3a de 47 24 28 35 30  |:.F$(500):.G$(50|
00000030  30 29 0d 00 1e 06 eb 37  0d 00 28 09 f2 6d 65 6e  |0).....7..(..men|
00000040  75 0d 00 32 18 ee 20 4e  20 e5 20 8d 54 7c 40 2c  |u..2.. N . .T|@,|
00000050  8d 44 46 40 2c 8d 44 5a  40 0d 00 3c 1c 59 3d ae  |.DF@,.DZ@..<.Y=.|
00000060  20 51 24 3a 5a 25 3d 30  3a f2 69 6e 70 75 74 3a  | Q$:Z%=0:.input:|
00000070  e5 8d 54 5e 40 0d 00 46  1d f2 63 6f 75 6e 74 3a  |..T^@..F..count:|
00000080  e7 43 3d 30 8c f2 6e 6f  66 69 6c 65 3a e5 8d 54  |.C=0..nofile:..T|
00000090  5e 40 0d 00 50 17 59 3d  ad 20 51 24 3a f2 69 6e  |^@..P.Y=. Q$:.in|
000000a0  70 75 74 3a e5 8d 54 5e  40 0d 00 5a 0f f2 72 65  |put:..T^@..Z..re|
000000b0  61 64 3a e5 8d 54 5e 40  0d 00 64 23 2e 2e 2e 2e  |ad:..T^@..d#....|
000000c0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000000d0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 0d 00 6e 0c dd  |.............n..|
000000e0  20 f2 69 6e 70 75 74 0d  00 78 05 db 0d 00 82 07  | .input..x......|
000000f0  41 3d 30 0d 00 8c 05 f5  0d 00 91 37 e7 41 3e 30  |A=0........7.A>0|
00000100  f1 8a 30 2c 32 33 29 3b  22 50 72 65 73 73 81 27  |..0,23);"Press.'|
00000110  52 45 54 55 52 4e 27 87  77 68 65 6e 20 65 6e 74  |RETURN'.when ent|
00000120  72 69 65 73 20 63 6f 6d  70 6c 65 74 65 2e 22 0d  |ries complete.".|
00000130  00 96 3c e7 41 3d 30 f1  8a 30 2c 31 30 29 3b 22  |..<.A=0..0,10);"|
00000140  45 6e 74 65 72 20 70 6c  61 63 65 20 6e 61 6d 65  |Enter place name|
00000150  20 2d 20 75 70 20 74 6f  20 31 31 20 6c 65 74 74  | - up to 11 lett|
00000160  65 72 73 2e 22 3b 89 28  38 30 29 0d 00 a0 22 e8  |ers.";.(80)...".|
00000170  20 8a 30 2c 32 30 29 3b  22 45 6e 74 65 72 20 50  | .0,20);"Enter P|
00000180  6f 73 69 74 69 6f 6e 3a  20 20 22 58 24 0d 00 a5  |osition:  "X$...|
00000190  11 f1 8a 30 2c 32 33 29  3b 89 28 33 38 29 0d 00  |...0,23);.(38)..|
000001a0  aa 10 e7 58 24 3d 22 22  8c e5 8d 74 64 41 0d 00  |...X$=""...tdA..|
000001b0  b4 6a e7 41 3d 30 f1 8a  30 2c 31 30 29 3b 22 4e  |.j.A=0..0,10);"N|
000001c0  6f 77 20 65 6e 74 65 72  20 6c 61 74 69 74 75 64  |ow enter latitud|
000001d0  65 3b 20 64 65 67 72 65  65 73 20 74 68 65 6e 20  |e; degrees then |
000001e0  64 65 63 69 6d 61 6c 70  6f 69 6e 74 20 74 68 65  |decimalpoint the|
000001f0  6e 20 6d 69 6e 75 74 65  73 20 74 68 65 6e 20 68  |n minutes then h|
00000200  65 6d 69 73 70 68 65 72  65 22 27 22 65 2e 67 2e  |emisphere"'"e.g.|
00000210  20 31 32 2e 33 34 4e 22  0d 00 be 16 e7 a9 58 24  | 12.34N"......X$|
00000220  3e 31 31 8c 58 24 3d c0  58 24 2c 31 31 29 0d 00  |>11.X$=.X$,11)..|
00000230  c8 22 e8 20 8a 30 2c 32  31 29 3b 22 20 20 20 20  |.". .0,21);"    |
00000240  20 20 20 20 20 4c 61 74  2e 20 20 20 20 22 59 24  |     Lat.    "Y$|
00000250  0d 00 d2 2d f1 8a 33 30  2c 32 30 29 3b 89 28 38  |...-..30,20);.(8|
00000260  29 3b 8a 32 33 2c 32 31  29 3b 89 28 31 38 29 3b  |);.23,21);.(18);|
00000270  8a 32 33 2c 32 32 29 3b  89 28 31 37 29 0d 00 dc  |.23,22);.(17)...|
00000280  0b f2 63 68 6b 6c 61 74  0d 00 e6 55 e7 41 3d 30  |..chklat...U.A=0|
00000290  f1 8a 30 2c 31 30 29 3b  22 4e 6f 77 20 65 6e 74  |..0,10);"Now ent|
000002a0  65 72 20 6c 6f 6e 67 69  74 75 64 65 20 61 73 20  |er longitude as |
000002b0  62 65 66 6f 72 65 20 20  20 20 20 20 20 20 20 20  |before          |
000002c0  20 65 2e 67 2e 20 31 32  33 2e 34 35 57 20 6f 72  | e.g. 123.45W or|
000002d0  20 30 2e 31 32 57 22 3b  89 28 38 30 29 0d 00 f0  | 0.12W";.(80)...|
000002e0  17 e7 45 72 72 3d 30 8c  f2 65 72 72 6f 72 3a e5  |..Err=0..error:.|
000002f0  8d 64 48 40 0d 00 fa 22  e8 20 8a 30 2c 32 32 29  |.dH@...". .0,22)|
00000300  3b 22 20 20 20 20 20 20  20 20 20 4c 6f 6e 67 2e  |;"         Long.|
00000310  20 20 20 22 5a 24 0d 01  04 45 f1 8a 33 30 2c 32  |   "Z$...E..30,2|
00000320  30 29 3b 22 20 20 20 20  20 22 3b 8a 32 33 2c 32  |0);"     ";.23,2|
00000330  31 29 3b 22 20 20 20 20  20 20 20 20 20 20 20 20  |1);"            |
00000340  20 22 3b 8a 32 33 2c 32  32 29 3b 22 20 20 20 20  | ";.23,22);"    |
00000350  20 20 20 20 20 20 20 20  20 20 22 0d 01 0e 0c f2  |          ".....|
00000360  63 68 6b 6c 6f 6e 67 0d  01 18 17 e7 45 72 72 3d  |chklong.....Err=|
00000370  30 8c f2 65 72 72 6f 72  3a e5 8d 64 7a 40 0d 01  |0..error:..dz@..|
00000380  22 0a cf 23 59 3d 5a 25  0d 01 2c 0a f1 23 59 2c  |"..#Y=Z%..,..#Y,|
00000390  58 24 0d 01 36 0d cf 23  59 3d 5a 25 2b 31 33 0d  |X$..6..#Y=Z%+13.|
000003a0  01 40 0a f1 23 59 2c 59  24 0d 01 4a 0d cf 23 59  |.@..#Y,Y$..J..#Y|
000003b0  3d 5a 25 2b 32 31 0d 01  54 0a f1 23 59 2c 5a 24  |=Z%+21..T..#Y,Z$|
000003c0  0d 01 5e 0c 5a 25 3d 5a  25 2b 33 30 0d 01 68 09  |..^.Z%=Z%+30..h.|
000003d0  41 3d 41 2b 31 0d 01 72  16 e7 41 3e 30 f1 8a 30  |A=A+1..r..A>0..0|
000003e0  2c 31 30 29 3b 89 28 31  32 30 29 0d 01 7c 0f e7  |,10);.(120)..|..|
000003f0  41 3e 31 38 8c db 3a 41  3d 30 0d 01 86 21 f1 8a  |A>18..:A=0...!..|
00000400  30 2c 41 29 3b 58 24 3b  8a 31 35 2c 41 29 3b 59  |0,A);X$;.15,A);Y|
00000410  24 3b 8a 32 33 2c 41 29  3b 5a 24 0d 01 90 2c 20  |$;.23,A);Z$..., |
00000420  f1 8a 30 2c 32 30 29 3b  89 28 34 30 29 3b 8a 30  |..0,20);.(40);.0|
00000430  2c 32 31 29 3b 89 28 34  30 29 3b 8a 30 2c 32 32  |,21);.(40);.0,22|
00000440  29 3b 89 28 34 30 29 0d  01 9a 06 fd a3 0d 01 a4  |);.(40).........|
00000450  07 d9 23 59 0d 01 ae 05  e1 0d 01 b8 22 2e 2e 2e  |..#Y........"...|
00000460  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000470  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 0d 01 c2 0b dd  |................|
00000480  20 f2 72 65 61 64 0d 01  cc 0a f2 63 6f 75 6e 74  | .read.....count|
00000490  0d 01 d6 0a e7 43 3d 30  8c e1 0d 01 e0 07 ef 31  |.....C=0.......1|
000004a0  34 0d 01 ea 05 db 0d 01  f4 08 51 25 3d 30 0d 01  |4.........Q%=0..|
000004b0  fe 0a 43 3d ad 20 51 24  0d 02 08 05 f5 0d 02 12  |..C=. Q$........|
000004c0  0a cf 23 43 3d 51 25 0d  02 1c 11 e8 23 43 2c 41  |..#C=Q%.....#C,A|
000004d0  24 28 51 25 2f 33 30 29  0d 02 26 0d cf 23 43 3d  |$(Q%/30)..&..#C=|
000004e0  51 25 2b 31 33 0d 02 30  0a e8 23 43 2c 42 24 0d  |Q%+13..0..#C,B$.|
000004f0  02 3a 0d cf 23 43 3d 51  25 2b 32 31 0d 02 44 0b  |.:..#C=Q%+21..D.|
00000500  20 e8 23 43 2c 43 24 0d  02 4e 0c 51 25 3d 51 25  | .#C,C$..N.Q%=Q%|
00000510  2b 33 30 0d 02 58 0a fd  51 25 3d 5a 25 0d 02 62  |+30..X..Q%=Z%..b|
00000520  07 d9 23 43 0d 02 6c 09  f2 73 6f 72 74 0d 02 76  |..#C..l..sort..v|
00000530  22 f1 3a f1 3a f1 22 50  72 65 73 73 81 53 50 41  |".:.:."Press.SPA|
00000540  43 45 87 74 6f 20 63 6f  6e 74 69 6e 75 65 22 0d  |CE.to continue".|
00000550  02 80 0d f5 20 fd 20 a5  20 3d 33 32 0d 02 8a 05  |.... . . =32....|
00000560  e1 0d 02 94 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |.... ...........|
00000570  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000580  2e 0d 02 9e 0d dd 20 f2  63 68 6b 6c 61 74 0d 02  |...... .chklat..|
00000590  a8 0a ea 41 2c 42 2c 43  0d 02 b2 16 e7 a9 28 59  |...A,B,C......(Y|
000005a0  24 29 3d 35 8c 59 24 3d  22 30 22 2b 59 24 0d 02  |$)=5.Y$="0"+Y$..|
000005b0  bc 1b 41 3d a7 59 24 2c  22 4e 22 2c 36 29 2b a7  |..A=.Y$,"N",6)+.|
000005c0  59 24 2c 22 53 22 2c 36  29 0d 02 c6 15 42 3d 28  |Y$,"S",6)....B=(|
000005d0  bb 28 c1 59 24 2c 34 2c  31 29 29 3c 36 29 0d 02  |.(.Y$,4,1))<6)..|
000005e0  d0 17 43 3d 28 bb 28 c0  59 24 2c 36 29 29 3c 39  |..C=(.(.Y$,6))<9|
000005f0  30 2e 30 31 29 0d 02 da  0d 45 72 72 3d 41 2a 42  |0.01)....Err=A*B|
00000600  2a 43 0d 02 e4 05 e1 0d  02 ee 1f 2e 2e 2e 2e 2e  |*C..............|
00000610  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000620  2e 2e 2e 2e 2e 2e 0d 02  f8 0e dd 20 f2 63 68 6b  |........... .chk|
00000630  6c 6f 6e 67 0d 03 02 16  e7 a9 28 5a 24 29 3d 36  |long......(Z$)=6|
00000640  8c 5a 24 3d 22 30 22 2b  5a 24 0d 03 0c 17 e7 a9  |.Z$="0"+Z$......|
00000650  28 5a 24 29 3d 35 8c 5a  24 3d 22 30 30 22 2b 5a  |(Z$)=5.Z$="00"+Z|
00000660  24 0d 03 16 0a ea 41 2c  42 2c 43 0d 03 20 1b 41  |$.....A,B,C.. .A|
00000670  3d a7 5a 24 2c 22 45 22  2c 37 29 2b a7 5a 24 2c  |=.Z$,"E",7)+.Z$,|
00000680  22 57 22 2c 37 29 0d 03  2a 15 42 3d 28 bb 28 c1  |"W",7)..*.B=(.(.|
00000690  5a 24 2c 35 2c 31 29 29  3c 36 29 0d 03 34 18 43  |Z$,5,1))<6)..4.C|
000006a0  3d 28 bb 28 c0 5a 24 2c  36 29 29 3c 31 38 30 2e  |=(.(.Z$,6))<180.|
000006b0  30 31 29 0d 03 3e 0d 45  72 72 3d 41 2a 42 2a 43  |01)..>.Err=A*B*C|
000006c0  0d 03 48 05 e1 0d 03 52  1d 2e 2e 2e 2e 2e 2e 2e  |..H....R........|
000006d0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000006e0  2e 2e 0d 03 5c 0c dd 20  f2 65 72 72 6f 72 0d 03  |....\.. .error..|
000006f0  66 37 f1 8a 33 30 2c 32  30 29 3b 22 45 52 52 4f  |f7..30,20);"ERRO|
00000700  52 22 3b 8a 33 30 2c 32  31 29 3b 22 31 32 2e 33  |R";.30,21);"12.3|
00000710  34 4e 22 3b 8a 33 30 2c  32 32 29 3b 22 30 31 32  |4N";.30,22);"012|
00000720  2e 33 34 57 22 0d 03 70  2a e2 31 2c 37 2c 32 2c  |.34W"..p*.1,7,2,|
00000730  31 2c 31 2c 31 2c 31 2c  31 2c 31 32 31 2c 2d 31  |1,1,1,1,1,121,-1|
00000740  30 2c 2d 35 2c 2d 32 2c  31 32 30 2c 31 32 30 0d  |0,-5,-2,120,120.|
00000750  03 7a 0d d4 31 2c 31 2c  35 33 2c 37 0d 03 84 05  |.z..1,1,53,7....|
00000760  e1 0d 03 8e 22 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |...."...........|
00000770  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000780  2e 2e 2e 0d 03 98 0b dd  20 f2 6d 65 6e 75 0d 03  |........ .menu..|
00000790  a2 0b 2a 46 58 31 35 2c  30 0d 03 ac 05 db 0d 03  |..*FX15,0.......|
000007a0  b6 1e f1 8a 30 2c 30 29  3b 22 44 6f 20 79 6f 75  |....0,0);"Do you|
000007b0  20 77 61 6e 74 20 74 6f  20 3a 2d 22 0d 03 c0 21  | want to :-"...!|
000007c0  f1 8a 34 2c 32 29 3b 22  81 28 31 29 87 6f 70 65  |..4,2);".(1).ope|
000007d0  6e 20 61 20 6e 65 77 20  66 69 6c 65 22 0d 03 ca  |n a new file"...|
000007e0  29 f1 8a 34 2c 34 29 3b  22 81 28 32 29 87 61 64  |)..4,4);".(2).ad|
000007f0  64 20 74 6f 20 61 6e 20  65 78 69 73 74 69 6e 67  |d to an existing|
00000800  20 66 69 6c 65 22 0d 03  d4 1d f1 8a 34 2c 36 29  | file"......4,6)|
00000810  3b 22 81 28 33 29 87 72  65 61 64 20 61 20 66 69  |;".(3).read a fi|
00000820  6c 65 22 0d 03 de 2c f1  8a 34 2c 38 29 3b 22 81  |le"...,..4,8);".|
00000830  28 34 29 87 72 75 6e 20  74 68 65 82 44 49 53 54  |(4).run the.DIST|
00000840  41 4e 43 45 87 70 72 6f  67 72 61 6d 6d 65 22 0d  |ANCE.programme".|
00000850  03 e8 25 f1 8a 34 2c 31  30 29 3b 22 81 28 35 29  |..%..4,10);".(5)|
00000860  87 65 6e 64 20 74 68 69  73 20 70 72 6f 67 72 61  |.end this progra|
00000870  6d 6d 65 22 0d 03 f2 31  f1 8a 30 2c 31 33 29 3b  |mme"...1..0,13);|
00000880  22 50 72 65 73 73 81 28  31 29 87 2c 81 28 32 29  |"Press.(1).,.(2)|
00000890  87 2c 81 28 33 29 87 2c  81 28 34 29 87 6f 72 81  |.,.(3).,.(4).or.|
000008a0  28 35 29 87 22 0d 03 fc  0a 4e 3d a5 2d 34 38 0d  |(5)."....N=.-48.|
000008b0  04 06 12 e7 4e 3e 35 84  4e 3c 31 8c e5 8d 64 7c  |....N>5.N<1...d||
000008c0  43 0d 04 10 13 f1 8a 30  2c 4e 2a 32 29 3b 22 88  |C......0,N*2);".|
000008d0  83 3e 3e 22 0d 04 1a 11  e7 4e 3d 34 8c 20 d7 22  |.>>".....N=4. ."|
000008e0  44 49 53 54 22 0d 04 24  0b e7 4e 3d 35 8c 20 e0  |DIST"..$..N=5. .|
000008f0  0d 04 2e 08 db 3a 2a 2e  0d 04 38 2b e8 8a 30 2c  |.....:*...8+..0,|
00000900  31 36 29 3b 22 81 45 4e  54 45 52 87 6e 61 6d 65  |16);".ENTER.name|
00000910  20 6f 66 20 66 69 6c 65  22 27 27 89 28 31 30 29  | of file"''.(10)|
00000920  3b 51 24 0d 04 3d 62 e7  a9 28 51 24 29 3e 37 8c  |;Q$..=b..(Q$)>7.|
00000930  f1 8a 30 2c 32 30 29 3b  22 88 83 43 68 65 63 6b  |..0,20);"..Check|
00000940  20 66 69 6c 65 6e 61 6d  65 20 28 37 20 6c 65 74  | filename (7 let|
00000950  74 65 72 73 20 6d 61 78  2e 29 22 3a 58 3d a6 28  |ters max.)":X=.(|
00000960  32 30 30 29 3a f1 8a 30  2c 31 38 29 3b 89 28 32  |200):..0,18);.(2|
00000970  30 29 3b 8a 30 2c 32 30  29 3b 89 28 33 38 29 3a  |0);.0,20);.(38):|
00000980  e5 8d 54 78 44 0d 04 42  05 e1 0d 04 4c 22 2e 2e  |..TxD..B....L"..|
00000990  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
000009a0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 0d 04 56 0c  |..............V.|
000009b0  dd 20 f2 63 6f 75 6e 74  0d 04 60 0a 43 3d ad 20  |. .count..`.C=. |
000009c0  51 24 0d 04 6a 16 e7 43  3d 30 8c d9 23 43 3a f2  |Q$..j..C=0..#C:.|
000009d0  6e 6f 66 69 6c 65 3a e1  0d 04 74 13 cf 23 43 3d  |nofile:...t..#C=|
000009e0  30 3a 66 69 72 73 74 3d  9a 23 43 0d 04 7e 1d e7  |0:first=.#C..~..|
000009f0  66 69 72 73 74 3e 30 8c  f2 77 72 6f 6e 67 66 69  |first>0..wrongfi|
00000a00  6c 65 3a 43 3d 30 3a e1  0d 04 88 0a 5a 25 3d a2  |le:C=0:.....Z%=.|
00000a10  23 43 0d 04 92 14 5a 25  3d 33 30 2a 28 a8 28 5a  |#C....Z%=30*(.(Z|
00000a20  25 2f 33 30 29 29 0d 04  9c 07 d9 23 43 0d 04 a6  |%/30)).....#C...|
00000a30  05 e1 0d 04 b0 21 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |.....!..........|
00000a40  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000a50  2e 2e 2e 0d 04 ba 0b dd  20 f2 73 6f 72 74 0d 04  |........ .sort..|
00000a60  c4 44 f1 8a 32 2c 32 29  3b 22 50 72 65 73 73 20  |.D..2,2);"Press |
00000a70  27 54 41 42 27 20 66 6f  72 20 70 72 69 6e 74 6f  |'TAB' for printo|
00000a80  75 74 22 27 27 22 20 20  61 6e 79 20 6f 74 68 65  |ut"''"  any othe|
00000a90  72 20 6b 65 79 20 74 6f  20 63 6f 6e 74 69 6e 75  |r key to continu|
00000aa0  65 22 0d 04 ce 07 4b 3d  a5 0d 04 d8 05 db 0d 04  |e"....K=........|
00000ab0  e2 0e 59 25 3d 5a 25 2f  33 30 2d 31 0d 04 ec 09  |..Y%=Z%/30-1....|
00000ac0  4b 25 3d 59 25 0d 04 f6  05 f5 0d 05 00 0d 4b 25  |K%=Y%.........K%|
00000ad0  3d 4b 25 20 81 20 33 0d  05 0a 0e e7 4b 25 3d 30  |=K% . 3.....K%=0|
00000ae0  8c 4b 25 3d 31 0d 05 14  05 f5 0d 05 1e 08 57 25  |.K%=1.........W%|
00000af0  3d 31 0d 05 28 0f e3 49  25 3d 30 b8 59 25 2d 4b  |=1..(..I%=0.Y%-K|
00000b00  25 0d 05 32 1d e7 41 24  28 49 25 29 3e 41 24 28  |%..2..A$(I%)>A$(|
00000b10  49 25 2b 4b 25 29 20 8c  20 f2 73 77 61 70 0d 05  |I%+K%) . .swap..|
00000b20  3c 05 ed 0d 05 46 0a f1  3b 22 2e 22 3b 0d 05 50  |<....F..;".";..P|
00000b30  09 fd 57 25 3d 31 0d 05  5a 09 fd 4b 25 3d 31 0d  |..W%=1..Z..K%=1.|
00000b40  05 64 05 db 0d 05 6e 12  e7 4b 3d 39 ef 32 3a ef  |.d....n..K=9.2:.|
00000b50  31 35 3a ef 31 33 0d 05  78 0c e3 58 25 3d 30 b8  |15:.13..x..X%=0.|
00000b60  59 25 0d 05 82 12 5a 25  3d 28 58 25 20 83 20 33  |Y%....Z%=(X% . 3|
00000b70  29 2a 31 33 0d 05 8c 11  f1 8a 5a 25 29 3b 41 24  |)*13......Z%);A$|
00000b80  28 58 25 29 3b 0d 05 96  05 ed 0d 05 a0 0a ef 31  |(X%);..........1|
00000b90  33 3a ef 33 0d 05 aa 05  e1 0d 05 b4 1e 2e 2e 2e  |3:.3............|
00000ba0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000bb0  2e 2e 2e 2e 2e 2e 2e 0d  05 be 0b dd 20 f2 73 77  |............ .sw|
00000bc0  61 70 0d 05 c8 08 57 25  3d 30 0d 05 d2 0d 54 24  |ap....W%=0....T$|
00000bd0  3d 41 24 28 49 25 29 0d  05 dc 14 41 24 28 49 25  |=A$(I%)....A$(I%|
00000be0  29 3d 41 24 28 49 25 2b  4b 25 29 0d 05 e6 10 41  |)=A$(I%+K%)....A|
00000bf0  24 28 49 25 2b 4b 25 29  3d 54 24 0d 05 f0 05 e1  |$(I%+K%)=T$.....|
00000c00  0d 05 fa 1f 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000c10  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 0d  |................|
00000c20  06 04 0d dd 20 f2 6e 6f  66 69 6c 65 0d 06 0e 05  |.... .nofile....|
00000c30  f5 0d 06 18 1e f1 8a 35  2c 32 30 29 3b 22 88 82  |.......5,20);"..|
00000c40  46 49 4c 45 20 4e 4f 54  20 46 4f 55 4e 44 22 0d  |FILE NOT FOUND".|
00000c50  06 22 25 f1 8a 33 2c 32  32 29 3b 22 50 72 65 73  |."%..3,22);"Pres|
00000c60  73 81 53 50 41 43 45 87  74 6f 20 63 6f 6e 74 69  |s.SPACE.to conti|
00000c70  6e 75 65 22 0d 06 2c 09  fd a5 3d 33 32 0d 06 36  |nue"..,...=32..6|
00000c80  05 e1 0d 06 40 1f 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |....@...........|
00000c90  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000ca0  2e 0d 06 4a 10 dd 20 f2  77 72 6f 6e 67 66 69 6c  |...J.. .wrongfil|
00000cb0  65 0d 06 54 05 f5 0d 06  5e 35 f1 8a 31 31 2c 31  |e..T....^5..11,1|
00000cc0  38 29 3b 22 88 83 22 3b  51 24 3b 22 89 87 22 3b  |8);"..";Q$;"..";|
00000cd0  8a 35 2c 32 30 29 3b 22  69 73 20 6e 6f 74 20 61  |.5,20);"is not a|
00000ce0  81 64 61 74 61 87 66 69  6c 65 22 0d 06 68 0c 58  |.data.file"..h.X|
00000cf0  3d a6 28 34 30 30 29 0d  06 72 25 f1 8a 33 2c 32  |=.(400)..r%..3,2|
00000d00  32 29 3b 22 50 72 65 73  73 81 53 50 41 43 45 87  |2);"Press.SPACE.|
00000d10  74 6f 20 63 6f 6e 74 69  6e 75 65 22 0d 06 7c 09  |to continue"..|.|
00000d20  fd a5 3d 33 32 0d 06 86  05 e1 0d ff              |..=32.......|
00000d2c