�     >MultiSort
8�     Demo of multi-level sorting, using OS_HeapSort
� By  Graham Crow
(� (c) AU July 1994
2:
<� � �error:�
F�init:�input
P!�display(printer%):� unsorted
Z-�sort(records%,levels%,priority%(),case%)
d�
n:
x
��init
�5maxrecords%=30:fields%=4:fieldlen%=20:records%=26
�� Surname$(maxrecords%)
�� Forename$(maxrecords%)
�� Sex$(maxrecords%)
�� Age%(maxrecords%)
�� fieldtype%(fields%)
�7� data% maxrecords%*fieldlen%:� to hold actual data
�5� table% maxrecords%*4:� to hold pointers to data
�� J%=1 � fields%
� � n%:fieldtype%(J%)=n%
��
�� J%=1 � records%
� � s1$,s2$,s3$,n%

' Surname$(J%)=s1$:Forename$(J%)=s2$

 Sex$(J%)=s3$:Age%(J%)=n%

�

"5� Index%(maxrecords%):� for sorted record numbers

,-� start with Index in record number order

6%� J%=1 � records%:Index%(J%)=J%:�

@� priority%(fields%)

Jprinter%=�

T�

^:

h��input

r%� user's input (needs validating)

|!� priority fields for sorting

�priority%(1)=3

�priority%(2)=1

�priority%(3)=2

�priority%(4)=4

�
levels%=4

�,case%=5:� case-sensitive strings (non=4)

��

�:

�ݤdata(record%,field%)

�� s$:s$=""

�Ȏ field% �

� � 1:s$=Surname$(record%)

� � 2:s$=Forename$(record%)
 � 3:s$=Sex$(record%)
 � 4:s$=�(Age%(record%))
�
&-� case%=4 s$=�uc(s$):� not case-sensitive
0=s$
::
Dݤuc(s$)
N� J%,c%,o$:o$=""
X� J%=1 � �s$
b c%=�(�s$,J%,1))
l � c%>96 � c%<123 � c%-=32
v o$+=�c%
��
�=o$
�:
���display(printer%)
�� J%,i%,s$
��:�
�� "Priority fields:  ";
�� J%=1 � levels%
� �;priority%(J%);"  ";
��
�� printer% �2
��'
�� J%=1 � records%
 i%=Index%(J%):� i%"  ";
& s$=Surname$(i%):�s$+�13-�s$," ");
( s$=Forename$(i%):� s$+�12-�s$," ");
 & � Sex$(i%);:@%=5:� Age%(i%):@%=10
*
�:�:�3
4�
>:
H.��sort(records%,levels%,priority%(),case%)
R� Primary sort
\'� J%,field%,type%,fad%,len%,a1%,a2%
f�key(1)
p:
z'� get relevant fields and addresses
�,a1%=data%:a2%=table%:field%=priority%(1)
�Ȏ fieldtype%(field%) �
�, � 1:type%=case%:len%=fieldlen%:� string
� � J%=1 � records%
�5  $a1%=�data(J%,field%):!a2%=a1%:a1%+=len%:a2%+=4
� �
�! � 2:type%=3:len%=4:� integer
� � J%=1 � records%
�8  !a1%=�(�data(J%,field%)):!a2%=a1%:a1%+=len%:a2%+=4
� �
��
�3fad%=!table%:� pointer to first physical string
�:
� HeapSort table
*ș "OS_HeapSort",records%,table%,type%
�transferOut(1,records%)
$�display(printer%)
.>� levels%>1 �multisort(records%,levels%,priority%(),case%)
8�
B:
L3��multisort(records%,levels%,priority%(),case%)
V� Secondary sort(s)
`"� J%,K%,field%,field1%,field2%
j(� from%,to%,sorted%,new%,done%,same%
t� a%,a1%,a2%,p%,i%,r%,f%
~+� suffix1$,suffix2$,str1$,str2$,s1$,s2$
�:
�� K%=2 � levels%
�
 �key(K%)
� to%=1:done%=�:sorted%=�
�2 field1%=priority%(K%-1):field2%=priority%(K%)
� Ȏ fieldtype%(field2%) �
�-  � 1:type%=case%:len%=fieldlen%:� string
�"  � 2:type%=3:len%=4:� integer
� �
� :
� �
�  from%=to%
  r%=Index%(from%)

  str1$=�data(r%,field1%)
  new%=�
  :
(4  � advance until change of item or end of index
2  �
<
   to%+=1
F   � to%>records% �
P    done%=�
Z   �
d    r%=Index%(to%)
n    str2$=�data(r%,field1%)
x"    new%=�compare(str1$,str2$)
�   �
�  � new% � done%
�  :
�  � anything to sort?
�)  � (to%-from%)>1 �heapsort:sorted%=�
�   :
� � done%
�@ � � sorted% K%=levels%:� force exit if nothing to be sorted
��display(printer%)
��
��
�:
�ݤcompare(str1$,str2$)
� check previous strings
same%=�
� K%>2 �
" � J%=K% � 3 �-1
,  f%=priority%(J%-2)
6'  r%=Index%(from%):s1$=�data(r%,f%)
@'  r%=Index%(to%)  :s2$=�data(r%,f%)
J  � s1$<>s2$ same%=�:J%=0
T �
^�
h#� str1$<>str2$ � same%=� new%=�
r	=new%
|:
���heapsort
�%� prime data table with hi values
�a1%=data%:a2%=table%
�� J%=1 � records%
� Ȏ fieldtype%(field2%) �
�  � 1:$a1%="zzzzzzz"
�  � 2:!a1%=999999
� �
� !a2%=a1%:a1%+=len%:a2%+=4
��
�;� transfer next set of items to array ready for sorting
�� J%=from% � to%-1
� r%=Index%(J%)
 s$=�data(r%,field2%)
 Ȏ fieldtype%(field2%) �
!  � 1:$(data%+(r%-1)*len%)=s$
&"  � 2:!(data%+(r%-1)*len%)=�s$
0 �
:�
D*ș "OS_HeapSort",records%,table%,type%
N�transferOut(from%,to%-1)
X�
b:
l��transferOut(f%,t%)
v/� transfer sorted items from table to index
�
a%=table%
�� J%=f% � t%
� p%=!a%
� r%=p%-fad%+len%
� Index%(J%)=r% � len%
�
 a%+=4
��
��
�:
�
��key(n%)
�'�0,30)"Press any key to perform ";
�� printer% �2
��"Sort "+�n%;
)�" (Field "+�(priority%(n%))+") ";:�
�3
�
 :
*
��dump
4a1%=data%:a2%=table%
>�
H� J%=1 � records%
R' @%=4:� J%,Index%(J%);"  &"+�~!a2%;
\0 @%=2:�"(",(!a2%-fad%+len%) � len%;") ";$a1%
f a1%+=len%:a2%+=4
p�:@%=10
z�
�:
���error
��:�" at line ";�:�3
��
�:
�
� 1,1,1,2
�� Jones,William,M,42
�� Smith,Alice,F,27
�� Brown,Paul,M,18
�� Honeycombe,Emma,F,56
�� Brown,Mavis,F,88
�� MacBeath,William,M,27
�� Brown,Mary,F,18
	� Smith,Frances,F,33
	� Thomas,Gemma,F,60
	� Smith,Graham,M,18
	$� Robinson,Marsha,F,34
	.� Smith,Harold,M,69
	8� Green,William,M,7
	B� brown,Veronica,F,71
	L� Jones,Frances,F,34
	V� McIntosh,William,M,16
	`� Jones,Maureen,F,21
	j� Green,Angela,F,38
	t� Robins,Angela,F,42
	~� Jones,Mary,F,42
	�� Brown,Victor,M,38
	�� Robinson,Angela,F,27
	�� robinson,maureen,F,31
	�� Robinson,Angela,F,8
	�� Green,Angela,F,32
	�� Thompson,Len,M,88
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 4d 75 6c 74 69  |.....     >Multi|
00000010  53 6f 72 74 0d 00 14 38  f4 20 20 20 20 20 44 65  |Sort...8.     De|
00000020  6d 6f 20 6f 66 20 6d 75  6c 74 69 2d 6c 65 76 65  |mo of multi-leve|
00000030  6c 20 73 6f 72 74 69 6e  67 2c 20 75 73 69 6e 67  |l sorting, using|
00000040  20 4f 53 5f 48 65 61 70  53 6f 72 74 0d 00 1e 15  | OS_HeapSort....|
00000050  f4 20 42 79 20 20 47 72  61 68 61 6d 20 43 72 6f  |. By  Graham Cro|
00000060  77 0d 00 28 16 f4 20 28  63 29 20 41 55 20 4a 75  |w..(.. (c) AU Ju|
00000070  6c 79 20 31 39 39 34 0d  00 32 05 3a 0d 00 3c 10  |ly 1994..2.:..<.|
00000080  ee 20 85 20 f2 65 72 72  6f 72 3a e0 0d 00 46 10  |. . .error:...F.|
00000090  f2 69 6e 69 74 3a f2 69  6e 70 75 74 0d 00 50 21  |.init:.input..P!|
000000a0  f2 64 69 73 70 6c 61 79  28 70 72 69 6e 74 65 72  |.display(printer|
000000b0  25 29 3a f4 20 75 6e 73  6f 72 74 65 64 0d 00 5a  |%):. unsorted..Z|
000000c0  2d f2 73 6f 72 74 28 72  65 63 6f 72 64 73 25 2c  |-.sort(records%,|
000000d0  6c 65 76 65 6c 73 25 2c  70 72 69 6f 72 69 74 79  |levels%,priority|
000000e0  25 28 29 2c 63 61 73 65  25 29 0d 00 64 05 e0 0d  |%(),case%)..d...|
000000f0  00 6e 05 3a 0d 00 78 0a  dd f2 69 6e 69 74 0d 00  |.n.:..x...init..|
00000100  82 35 6d 61 78 72 65 63  6f 72 64 73 25 3d 33 30  |.5maxrecords%=30|
00000110  3a 66 69 65 6c 64 73 25  3d 34 3a 66 69 65 6c 64  |:fields%=4:field|
00000120  6c 65 6e 25 3d 32 30 3a  72 65 63 6f 72 64 73 25  |len%=20:records%|
00000130  3d 32 36 0d 00 8c 1b de  20 53 75 72 6e 61 6d 65  |=26..... Surname|
00000140  24 28 6d 61 78 72 65 63  6f 72 64 73 25 29 0d 00  |$(maxrecords%)..|
00000150  96 1c de 20 46 6f 72 65  6e 61 6d 65 24 28 6d 61  |... Forename$(ma|
00000160  78 72 65 63 6f 72 64 73  25 29 0d 00 a0 17 de 20  |xrecords%)..... |
00000170  53 65 78 24 28 6d 61 78  72 65 63 6f 72 64 73 25  |Sex$(maxrecords%|
00000180  29 0d 00 aa 17 de 20 41  67 65 25 28 6d 61 78 72  |)..... Age%(maxr|
00000190  65 63 6f 72 64 73 25 29  0d 00 b4 19 de 20 66 69  |ecords%)..... fi|
000001a0  65 6c 64 74 79 70 65 25  28 66 69 65 6c 64 73 25  |eldtype%(fields%|
000001b0  29 0d 00 be 37 de 20 64  61 74 61 25 20 6d 61 78  |)...7. data% max|
000001c0  72 65 63 6f 72 64 73 25  2a 66 69 65 6c 64 6c 65  |records%*fieldle|
000001d0  6e 25 3a f4 20 74 6f 20  68 6f 6c 64 20 61 63 74  |n%:. to hold act|
000001e0  75 61 6c 20 64 61 74 61  0d 00 c8 35 de 20 74 61  |ual data...5. ta|
000001f0  62 6c 65 25 20 6d 61 78  72 65 63 6f 72 64 73 25  |ble% maxrecords%|
00000200  2a 34 3a f4 20 74 6f 20  68 6f 6c 64 20 70 6f 69  |*4:. to hold poi|
00000210  6e 74 65 72 73 20 74 6f  20 64 61 74 61 0d 00 d2  |nters to data...|
00000220  14 e3 20 4a 25 3d 31 20  b8 20 66 69 65 6c 64 73  |.. J%=1 . fields|
00000230  25 0d 00 dc 1b 20 f3 20  6e 25 3a 66 69 65 6c 64  |%.... . n%:field|
00000240  74 79 70 65 25 28 4a 25  29 3d 6e 25 0d 00 e6 05  |type%(J%)=n%....|
00000250  ed 0d 00 f0 15 e3 20 4a  25 3d 31 20 b8 20 72 65  |...... J%=1 . re|
00000260  63 6f 72 64 73 25 0d 00  fa 15 20 f3 20 73 31 24  |cords%.... . s1$|
00000270  2c 73 32 24 2c 73 33 24  2c 6e 25 0d 01 04 27 20  |,s2$,s3$,n%...' |
00000280  53 75 72 6e 61 6d 65 24  28 4a 25 29 3d 73 31 24  |Surname$(J%)=s1$|
00000290  3a 46 6f 72 65 6e 61 6d  65 24 28 4a 25 29 3d 73  |:Forename$(J%)=s|
000002a0  32 24 0d 01 0e 1d 20 53  65 78 24 28 4a 25 29 3d  |2$.... Sex$(J%)=|
000002b0  73 33 24 3a 41 67 65 25  28 4a 25 29 3d 6e 25 0d  |s3$:Age%(J%)=n%.|
000002c0  01 18 05 ed 0d 01 22 35  de 20 49 6e 64 65 78 25  |......"5. Index%|
000002d0  28 6d 61 78 72 65 63 6f  72 64 73 25 29 3a f4 20  |(maxrecords%):. |
000002e0  66 6f 72 20 73 6f 72 74  65 64 20 72 65 63 6f 72  |for sorted recor|
000002f0  64 20 6e 75 6d 62 65 72  73 0d 01 2c 2d f4 20 73  |d numbers..,-. s|
00000300  74 61 72 74 20 77 69 74  68 20 49 6e 64 65 78 20  |tart with Index |
00000310  69 6e 20 72 65 63 6f 72  64 20 6e 75 6d 62 65 72  |in record number|
00000320  20 6f 72 64 65 72 0d 01  36 25 e3 20 4a 25 3d 31  | order..6%. J%=1|
00000330  20 b8 20 72 65 63 6f 72  64 73 25 3a 49 6e 64 65  | . records%:Inde|
00000340  78 25 28 4a 25 29 3d 4a  25 3a ed 0d 01 40 18 de  |x%(J%)=J%:...@..|
00000350  20 70 72 69 6f 72 69 74  79 25 28 66 69 65 6c 64  | priority%(field|
00000360  73 25 29 0d 01 4a 0e 70  72 69 6e 74 65 72 25 3d  |s%)..J.printer%=|
00000370  a3 0d 01 54 05 e1 0d 01  5e 05 3a 0d 01 68 0b dd  |...T....^.:..h..|
00000380  f2 69 6e 70 75 74 0d 01  72 25 f4 20 75 73 65 72  |.input..r%. user|
00000390  27 73 20 69 6e 70 75 74  20 28 6e 65 65 64 73 20  |'s input (needs |
000003a0  76 61 6c 69 64 61 74 69  6e 67 29 0d 01 7c 21 f4  |validating)..|!.|
000003b0  20 70 72 69 6f 72 69 74  79 20 66 69 65 6c 64 73  | priority fields|
000003c0  20 66 6f 72 20 73 6f 72  74 69 6e 67 0d 01 86 12  | for sorting....|
000003d0  70 72 69 6f 72 69 74 79  25 28 31 29 3d 33 0d 01  |priority%(1)=3..|
000003e0  90 12 70 72 69 6f 72 69  74 79 25 28 32 29 3d 31  |..priority%(2)=1|
000003f0  0d 01 9a 12 70 72 69 6f  72 69 74 79 25 28 33 29  |....priority%(3)|
00000400  3d 32 0d 01 a4 12 70 72  69 6f 72 69 74 79 25 28  |=2....priority%(|
00000410  34 29 3d 34 0d 01 ae 0d  6c 65 76 65 6c 73 25 3d  |4)=4....levels%=|
00000420  34 0d 01 b8 2c 63 61 73  65 25 3d 35 3a f4 20 63  |4...,case%=5:. c|
00000430  61 73 65 2d 73 65 6e 73  69 74 69 76 65 20 73 74  |ase-sensitive st|
00000440  72 69 6e 67 73 20 28 6e  6f 6e 3d 34 29 0d 01 c2  |rings (non=4)...|
00000450  05 e1 0d 01 cc 05 3a 0d  01 d6 1a dd a4 64 61 74  |......:......dat|
00000460  61 28 72 65 63 6f 72 64  25 2c 66 69 65 6c 64 25  |a(record%,field%|
00000470  29 0d 01 e0 0e ea 20 73  24 3a 73 24 3d 22 22 0d  |)..... s$:s$="".|
00000480  01 ea 0f c8 8e 20 66 69  65 6c 64 25 20 ca 0d 01  |..... field% ...|
00000490  f4 1d 20 c9 20 31 3a 73  24 3d 53 75 72 6e 61 6d  |.. . 1:s$=Surnam|
000004a0  65 24 28 72 65 63 6f 72  64 25 29 0d 01 fe 1e 20  |e$(record%).... |
000004b0  c9 20 32 3a 73 24 3d 46  6f 72 65 6e 61 6d 65 24  |. 2:s$=Forename$|
000004c0  28 72 65 63 6f 72 64 25  29 0d 02 08 19 20 c9 20  |(record%).... . |
000004d0  33 3a 73 24 3d 53 65 78  24 28 72 65 63 6f 72 64  |3:s$=Sex$(record|
000004e0  25 29 0d 02 12 1c 20 c9  20 34 3a 73 24 3d c3 28  |%).... . 4:s$=.(|
000004f0  41 67 65 25 28 72 65 63  6f 72 64 25 29 29 0d 02  |Age%(record%))..|
00000500  1c 05 cb 0d 02 26 2d e7  20 63 61 73 65 25 3d 34  |.....&-. case%=4|
00000510  20 73 24 3d a4 75 63 28  73 24 29 3a f4 20 6e 6f  | s$=.uc(s$):. no|
00000520  74 20 63 61 73 65 2d 73  65 6e 73 69 74 69 76 65  |t case-sensitive|
00000530  0d 02 30 07 3d 73 24 0d  02 3a 05 3a 0d 02 44 0c  |..0.=s$..:.:..D.|
00000540  dd a4 75 63 28 73 24 29  0d 02 4e 14 ea 20 4a 25  |..uc(s$)..N.. J%|
00000550  2c 63 25 2c 6f 24 3a 6f  24 3d 22 22 0d 02 58 10  |,c%,o$:o$=""..X.|
00000560  e3 20 4a 25 3d 31 20 b8  20 a9 73 24 0d 02 62 14  |. J%=1 . .s$..b.|
00000570  20 63 25 3d 97 28 c1 73  24 2c 4a 25 2c 31 29 29  | c%=.(.s$,J%,1))|
00000580  0d 02 6c 1e 20 e7 20 63  25 3e 39 36 20 80 20 63  |..l. . c%>96 . c|
00000590  25 3c 31 32 33 20 8c 20  63 25 2d 3d 33 32 0d 02  |%<123 . c%-=32..|
000005a0  76 0c 20 6f 24 2b 3d bd  63 25 0d 02 80 05 ed 0d  |v. o$+=.c%......|
000005b0  02 8a 07 3d 6f 24 0d 02  94 05 3a 0d 02 9e 17 dd  |...=o$....:.....|
000005c0  f2 64 69 73 70 6c 61 79  28 70 72 69 6e 74 65 72  |.display(printer|
000005d0  25 29 0d 02 a8 0e ea 20  4a 25 2c 69 25 2c 73 24  |%)..... J%,i%,s$|
000005e0  0d 02 b2 07 db 3a f1 0d  02 bc 1b f1 20 22 50 72  |.....:...... "Pr|
000005f0  69 6f 72 69 74 79 20 66  69 65 6c 64 73 3a 20 20  |iority fields:  |
00000600  22 3b 0d 02 c6 14 e3 20  4a 25 3d 31 20 b8 20 6c  |";..... J%=1 . l|
00000610  65 76 65 6c 73 25 0d 02  d0 1a 20 f1 3b 70 72 69  |evels%.... .;pri|
00000620  6f 72 69 74 79 25 28 4a  25 29 3b 22 20 20 22 3b  |ority%(J%);"  ";|
00000630  0d 02 da 05 ed 0d 02 e4  11 e7 20 70 72 69 6e 74  |.......... print|
00000640  65 72 25 20 ef 32 0d 02  ee 06 f1 27 0d 02 f8 15  |er% .2.....'....|
00000650  e3 20 4a 25 3d 31 20 b8  20 72 65 63 6f 72 64 73  |. J%=1 . records|
00000660  25 0d 03 02 1c 20 69 25  3d 49 6e 64 65 78 25 28  |%.... i%=Index%(|
00000670  4a 25 29 3a f1 20 69 25  22 20 20 22 3b 0d 03 0c  |J%):. i%"  ";...|
00000680  26 20 73 24 3d 53 75 72  6e 61 6d 65 24 28 69 25  |& s$=Surname$(i%|
00000690  29 3a f1 73 24 2b c4 31  33 2d a9 73 24 2c 22 20  |):.s$+.13-.s$," |
000006a0  22 29 3b 0d 03 16 28 20  73 24 3d 46 6f 72 65 6e  |");...( s$=Foren|
000006b0  61 6d 65 24 28 69 25 29  3a f1 20 73 24 2b c4 31  |ame$(i%):. s$+.1|
000006c0  32 2d a9 73 24 2c 22 20  22 29 3b 0d 03 20 26 20  |2-.s$," ");.. & |
000006d0  f1 20 53 65 78 24 28 69  25 29 3b 3a 40 25 3d 35  |. Sex$(i%);:@%=5|
000006e0  3a f1 20 41 67 65 25 28  69 25 29 3a 40 25 3d 31  |:. Age%(i%):@%=1|
000006f0  30 0d 03 2a 0a ed 3a f1  3a ef 33 0d 03 34 05 e1  |0..*..:.:.3..4..|
00000700  0d 03 3e 05 3a 0d 03 48  2e dd f2 73 6f 72 74 28  |..>.:..H...sort(|
00000710  72 65 63 6f 72 64 73 25  2c 6c 65 76 65 6c 73 25  |records%,levels%|
00000720  2c 70 72 69 6f 72 69 74  79 25 28 29 2c 63 61 73  |,priority%(),cas|
00000730  65 25 29 0d 03 52 12 f4  20 50 72 69 6d 61 72 79  |e%)..R.. Primary|
00000740  20 73 6f 72 74 0d 03 5c  27 ea 20 4a 25 2c 66 69  | sort..\'. J%,fi|
00000750  65 6c 64 25 2c 74 79 70  65 25 2c 66 61 64 25 2c  |eld%,type%,fad%,|
00000760  6c 65 6e 25 2c 61 31 25  2c 61 32 25 0d 03 66 0b  |len%,a1%,a2%..f.|
00000770  f2 6b 65 79 28 31 29 0d  03 70 05 3a 0d 03 7a 27  |.key(1)..p.:..z'|
00000780  f4 20 67 65 74 20 72 65  6c 65 76 61 6e 74 20 66  |. get relevant f|
00000790  69 65 6c 64 73 20 61 6e  64 20 61 64 64 72 65 73  |ields and addres|
000007a0  73 65 73 0d 03 84 2c 61  31 25 3d 64 61 74 61 25  |ses...,a1%=data%|
000007b0  3a 61 32 25 3d 74 61 62  6c 65 25 3a 66 69 65 6c  |:a2%=table%:fiel|
000007c0  64 25 3d 70 72 69 6f 72  69 74 79 25 28 31 29 0d  |d%=priority%(1).|
000007d0  03 8e 1b c8 8e 20 66 69  65 6c 64 74 79 70 65 25  |..... fieldtype%|
000007e0  28 66 69 65 6c 64 25 29  20 ca 0d 03 98 2c 20 c9  |(field%) ...., .|
000007f0  20 31 3a 74 79 70 65 25  3d 63 61 73 65 25 3a 6c  | 1:type%=case%:l|
00000800  65 6e 25 3d 66 69 65 6c  64 6c 65 6e 25 3a f4 20  |en%=fieldlen%:. |
00000810  73 74 72 69 6e 67 0d 03  a2 16 20 e3 20 4a 25 3d  |string.... . J%=|
00000820  31 20 b8 20 72 65 63 6f  72 64 73 25 0d 03 ac 35  |1 . records%...5|
00000830  20 20 24 61 31 25 3d a4  64 61 74 61 28 4a 25 2c  |  $a1%=.data(J%,|
00000840  66 69 65 6c 64 25 29 3a  21 61 32 25 3d 61 31 25  |field%):!a2%=a1%|
00000850  3a 61 31 25 2b 3d 6c 65  6e 25 3a 61 32 25 2b 3d  |:a1%+=len%:a2%+=|
00000860  34 0d 03 b6 06 20 ed 0d  03 c0 21 20 c9 20 32 3a  |4.... ....! . 2:|
00000870  74 79 70 65 25 3d 33 3a  6c 65 6e 25 3d 34 3a f4  |type%=3:len%=4:.|
00000880  20 69 6e 74 65 67 65 72  0d 03 ca 16 20 e3 20 4a  | integer.... . J|
00000890  25 3d 31 20 b8 20 72 65  63 6f 72 64 73 25 0d 03  |%=1 . records%..|
000008a0  d4 38 20 20 21 61 31 25  3d bb 28 a4 64 61 74 61  |.8  !a1%=.(.data|
000008b0  28 4a 25 2c 66 69 65 6c  64 25 29 29 3a 21 61 32  |(J%,field%)):!a2|
000008c0  25 3d 61 31 25 3a 61 31  25 2b 3d 6c 65 6e 25 3a  |%=a1%:a1%+=len%:|
000008d0  61 32 25 2b 3d 34 0d 03  de 06 20 ed 0d 03 e8 05  |a2%+=4.... .....|
000008e0  cb 0d 03 f2 33 66 61 64  25 3d 21 74 61 62 6c 65  |....3fad%=!table|
000008f0  25 3a f4 20 70 6f 69 6e  74 65 72 20 74 6f 20 66  |%:. pointer to f|
00000900  69 72 73 74 20 70 68 79  73 69 63 61 6c 20 73 74  |irst physical st|
00000910  72 69 6e 67 0d 03 fc 05  3a 0d 04 06 14 f4 20 48  |ring....:..... H|
00000920  65 61 70 53 6f 72 74 20  74 61 62 6c 65 0d 04 10  |eapSort table...|
00000930  2a c8 99 20 22 4f 53 5f  48 65 61 70 53 6f 72 74  |*.. "OS_HeapSort|
00000940  22 2c 72 65 63 6f 72 64  73 25 2c 74 61 62 6c 65  |",records%,table|
00000950  25 2c 74 79 70 65 25 0d  04 1a 1c f2 74 72 61 6e  |%,type%.....tran|
00000960  73 66 65 72 4f 75 74 28  31 2c 72 65 63 6f 72 64  |sferOut(1,record|
00000970  73 25 29 0d 04 24 16 f2  64 69 73 70 6c 61 79 28  |s%)..$..display(|
00000980  70 72 69 6e 74 65 72 25  29 0d 04 2e 3e e7 20 6c  |printer%)...>. l|
00000990  65 76 65 6c 73 25 3e 31  20 f2 6d 75 6c 74 69 73  |evels%>1 .multis|
000009a0  6f 72 74 28 72 65 63 6f  72 64 73 25 2c 6c 65 76  |ort(records%,lev|
000009b0  65 6c 73 25 2c 70 72 69  6f 72 69 74 79 25 28 29  |els%,priority%()|
000009c0  2c 63 61 73 65 25 29 0d  04 38 05 e1 0d 04 42 05  |,case%)..8....B.|
000009d0  3a 0d 04 4c 33 dd f2 6d  75 6c 74 69 73 6f 72 74  |:..L3..multisort|
000009e0  28 72 65 63 6f 72 64 73  25 2c 6c 65 76 65 6c 73  |(records%,levels|
000009f0  25 2c 70 72 69 6f 72 69  74 79 25 28 29 2c 63 61  |%,priority%(),ca|
00000a00  73 65 25 29 0d 04 56 17  f4 20 53 65 63 6f 6e 64  |se%)..V.. Second|
00000a10  61 72 79 20 73 6f 72 74  28 73 29 0d 04 60 22 ea  |ary sort(s)..`".|
00000a20  20 4a 25 2c 4b 25 2c 66  69 65 6c 64 25 2c 66 69  | J%,K%,field%,fi|
00000a30  65 6c 64 31 25 2c 66 69  65 6c 64 32 25 0d 04 6a  |eld1%,field2%..j|
00000a40  28 ea 20 66 72 6f 6d 25  2c 74 6f 25 2c 73 6f 72  |(. from%,to%,sor|
00000a50  74 65 64 25 2c 6e 65 77  25 2c 64 6f 6e 65 25 2c  |ted%,new%,done%,|
00000a60  73 61 6d 65 25 0d 04 74  1c ea 20 61 25 2c 61 31  |same%..t.. a%,a1|
00000a70  25 2c 61 32 25 2c 70 25  2c 69 25 2c 72 25 2c 66  |%,a2%,p%,i%,r%,f|
00000a80  25 0d 04 7e 2b ea 20 73  75 66 66 69 78 31 24 2c  |%..~+. suffix1$,|
00000a90  73 75 66 66 69 78 32 24  2c 73 74 72 31 24 2c 73  |suffix2$,str1$,s|
00000aa0  74 72 32 24 2c 73 31 24  2c 73 32 24 0d 04 88 05  |tr2$,s1$,s2$....|
00000ab0  3a 0d 04 92 14 e3 20 4b  25 3d 32 20 b8 20 6c 65  |:..... K%=2 . le|
00000ac0  76 65 6c 73 25 0d 04 9c  0d 20 f2 6b 65 79 28 4b  |vels%.... .key(K|
00000ad0  25 29 0d 04 a6 1c 20 74  6f 25 3d 31 3a 64 6f 6e  |%).... to%=1:don|
00000ae0  65 25 3d a3 3a 73 6f 72  74 65 64 25 3d a3 0d 04  |e%=.:sorted%=...|
00000af0  b0 32 20 66 69 65 6c 64  31 25 3d 70 72 69 6f 72  |.2 field1%=prior|
00000b00  69 74 79 25 28 4b 25 2d  31 29 3a 66 69 65 6c 64  |ity%(K%-1):field|
00000b10  32 25 3d 70 72 69 6f 72  69 74 79 25 28 4b 25 29  |2%=priority%(K%)|
00000b20  0d 04 ba 1d 20 c8 8e 20  66 69 65 6c 64 74 79 70  |.... .. fieldtyp|
00000b30  65 25 28 66 69 65 6c 64  32 25 29 20 ca 0d 04 c4  |e%(field2%) ....|
00000b40  2d 20 20 c9 20 31 3a 74  79 70 65 25 3d 63 61 73  |-  . 1:type%=cas|
00000b50  65 25 3a 6c 65 6e 25 3d  66 69 65 6c 64 6c 65 6e  |e%:len%=fieldlen|
00000b60  25 3a f4 20 73 74 72 69  6e 67 0d 04 ce 22 20 20  |%:. string..."  |
00000b70  c9 20 32 3a 74 79 70 65  25 3d 33 3a 6c 65 6e 25  |. 2:type%=3:len%|
00000b80  3d 34 3a f4 20 69 6e 74  65 67 65 72 0d 04 d8 06  |=4:. integer....|
00000b90  20 cb 0d 04 e2 06 20 3a  0d 04 ec 06 20 f5 0d 04  | ..... :.... ...|
00000ba0  f6 0f 20 20 66 72 6f 6d  25 3d 74 6f 25 0d 05 00  |..  from%=to%...|
00000bb0  16 20 20 72 25 3d 49 6e  64 65 78 25 28 66 72 6f  |.  r%=Index%(fro|
00000bc0  6d 25 29 0d 05 0a 1d 20  20 73 74 72 31 24 3d a4  |m%)....  str1$=.|
00000bd0  64 61 74 61 28 72 25 2c  66 69 65 6c 64 31 25 29  |data(r%,field1%)|
00000be0  0d 05 14 0c 20 20 6e 65  77 25 3d a3 0d 05 1e 07  |....  new%=.....|
00000bf0  20 20 3a 0d 05 28 34 20  20 f4 20 61 64 76 61 6e  |  :..(4  . advan|
00000c00  63 65 20 75 6e 74 69 6c  20 63 68 61 6e 67 65 20  |ce until change |
00000c10  6f 66 20 69 74 65 6d 20  6f 72 20 65 6e 64 20 6f  |of item or end o|
00000c20  66 20 69 6e 64 65 78 0d  05 32 07 20 20 f5 0d 05  |f index..2.  ...|
00000c30  3c 0d 20 20 20 74 6f 25  2b 3d 31 0d 05 46 17 20  |<.   to%+=1..F. |
00000c40  20 20 e7 20 74 6f 25 3e  72 65 63 6f 72 64 73 25  |  . to%>records%|
00000c50  20 8c 0d 05 50 0f 20 20  20 20 64 6f 6e 65 25 3d  | ...P.    done%=|
00000c60  b9 0d 05 5a 08 20 20 20  cc 0d 05 64 16 20 20 20  |...Z.   ...d.   |
00000c70  20 72 25 3d 49 6e 64 65  78 25 28 74 6f 25 29 0d  | r%=Index%(to%).|
00000c80  05 6e 1f 20 20 20 20 73  74 72 32 24 3d a4 64 61  |.n.    str2$=.da|
00000c90  74 61 28 72 25 2c 66 69  65 6c 64 31 25 29 0d 05  |ta(r%,field1%)..|
00000ca0  78 22 20 20 20 20 6e 65  77 25 3d a4 63 6f 6d 70  |x"    new%=.comp|
00000cb0  61 72 65 28 73 74 72 31  24 2c 73 74 72 32 24 29  |are(str1$,str2$)|
00000cc0  0d 05 82 08 20 20 20 cd  0d 05 8c 14 20 20 fd 20  |....   .....  . |
00000cd0  6e 65 77 25 20 84 20 64  6f 6e 65 25 0d 05 96 07  |new% . done%....|
00000ce0  20 20 3a 0d 05 a0 19 20  20 f4 20 61 6e 79 74 68  |  :....  . anyth|
00000cf0  69 6e 67 20 74 6f 20 73  6f 72 74 3f 0d 05 aa 29  |ing to sort?...)|
00000d00  20 20 e7 20 28 74 6f 25  2d 66 72 6f 6d 25 29 3e  |  . (to%-from%)>|
00000d10  31 20 f2 68 65 61 70 73  6f 72 74 3a 73 6f 72 74  |1 .heapsort:sort|
00000d20  65 64 25 3d b9 0d 05 b4  08 20 20 20 3a 0d 05 be  |ed%=.....   :...|
00000d30  0c 20 fd 20 64 6f 6e 65  25 0d 05 c8 40 20 e7 20  |. . done%...@ . |
00000d40  ac 20 73 6f 72 74 65 64  25 20 4b 25 3d 6c 65 76  |. sorted% K%=lev|
00000d50  65 6c 73 25 3a f4 20 66  6f 72 63 65 20 65 78 69  |els%:. force exi|
00000d60  74 20 69 66 20 6e 6f 74  68 69 6e 67 20 74 6f 20  |t if nothing to |
00000d70  62 65 20 73 6f 72 74 65  64 0d 05 d2 16 f2 64 69  |be sorted.....di|
00000d80  73 70 6c 61 79 28 70 72  69 6e 74 65 72 25 29 0d  |splay(printer%).|
00000d90  05 dc 05 ed 0d 05 e6 05  e1 0d 05 f0 05 3a 0d 05  |.............:..|
00000da0  fa 1a dd a4 63 6f 6d 70  61 72 65 28 73 74 72 31  |....compare(str1|
00000db0  24 2c 73 74 72 32 24 29  0d 06 04 1c f4 20 63 68  |$,str2$)..... ch|
00000dc0  65 63 6b 20 70 72 65 76  69 6f 75 73 20 73 74 72  |eck previous str|
00000dd0  69 6e 67 73 0d 06 0e 0b  73 61 6d 65 25 3d b9 0d  |ings....same%=..|
00000de0  06 18 0c e7 20 4b 25 3e  32 20 8c 0d 06 22 14 20  |.... K%>2 ...". |
00000df0  e3 20 4a 25 3d 4b 25 20  b8 20 33 20 88 2d 31 0d  |. J%=K% . 3 .-1.|
00000e00  06 2c 18 20 20 66 25 3d  70 72 69 6f 72 69 74 79  |.,.  f%=priority|
00000e10  25 28 4a 25 2d 32 29 0d  06 36 27 20 20 72 25 3d  |%(J%-2)..6'  r%=|
00000e20  49 6e 64 65 78 25 28 66  72 6f 6d 25 29 3a 73 31  |Index%(from%):s1|
00000e30  24 3d a4 64 61 74 61 28  72 25 2c 66 25 29 0d 06  |$=.data(r%,f%)..|
00000e40  40 27 20 20 72 25 3d 49  6e 64 65 78 25 28 74 6f  |@'  r%=Index%(to|
00000e50  25 29 20 20 3a 73 32 24  3d a4 64 61 74 61 28 72  |%)  :s2$=.data(r|
00000e60  25 2c 66 25 29 0d 06 4a  1d 20 20 e7 20 73 31 24  |%,f%)..J.  . s1$|
00000e70  3c 3e 73 32 24 20 73 61  6d 65 25 3d a3 3a 4a 25  |<>s2$ same%=.:J%|
00000e80  3d 30 0d 06 54 06 20 ed  0d 06 5e 05 cd 0d 06 68  |=0..T. ...^....h|
00000e90  23 e7 20 73 74 72 31 24  3c 3e 73 74 72 32 24 20  |#. str1$<>str2$ |
00000ea0  84 20 73 61 6d 65 25 3d  a3 20 6e 65 77 25 3d b9  |. same%=. new%=.|
00000eb0  0d 06 72 09 3d 6e 65 77  25 0d 06 7c 05 3a 0d 06  |..r.=new%..|.:..|
00000ec0  86 0e dd f2 68 65 61 70  73 6f 72 74 0d 06 90 25  |....heapsort...%|
00000ed0  f4 20 70 72 69 6d 65 20  64 61 74 61 20 74 61 62  |. prime data tab|
00000ee0  6c 65 20 77 69 74 68 20  68 69 20 76 61 6c 75 65  |le with hi value|
00000ef0  73 0d 06 9a 18 61 31 25  3d 64 61 74 61 25 3a 61  |s....a1%=data%:a|
00000f00  32 25 3d 74 61 62 6c 65  25 0d 06 a4 15 e3 20 4a  |2%=table%..... J|
00000f10  25 3d 31 20 b8 20 72 65  63 6f 72 64 73 25 0d 06  |%=1 . records%..|
00000f20  ae 1d 20 c8 8e 20 66 69  65 6c 64 74 79 70 65 25  |.. .. fieldtype%|
00000f30  28 66 69 65 6c 64 32 25  29 20 ca 0d 06 b8 18 20  |(field2%) ..... |
00000f40  20 c9 20 31 3a 24 61 31  25 3d 22 7a 7a 7a 7a 7a  | . 1:$a1%="zzzzz|
00000f50  7a 7a 22 0d 06 c2 15 20  20 c9 20 32 3a 21 61 31  |zz"....  . 2:!a1|
00000f60  25 3d 39 39 39 39 39 39  0d 06 cc 06 20 cb 0d 06  |%=999999.... ...|
00000f70  d6 1e 20 21 61 32 25 3d  61 31 25 3a 61 31 25 2b  |.. !a2%=a1%:a1%+|
00000f80  3d 6c 65 6e 25 3a 61 32  25 2b 3d 34 0d 06 e0 05  |=len%:a2%+=4....|
00000f90  ed 0d 06 ea 3b f4 20 74  72 61 6e 73 66 65 72 20  |....;. transfer |
00000fa0  6e 65 78 74 20 73 65 74  20 6f 66 20 69 74 65 6d  |next set of item|
00000fb0  73 20 74 6f 20 61 72 72  61 79 20 72 65 61 64 79  |s to array ready|
00000fc0  20 66 6f 72 20 73 6f 72  74 69 6e 67 0d 06 f4 16  | for sorting....|
00000fd0  e3 20 4a 25 3d 66 72 6f  6d 25 20 b8 20 74 6f 25  |. J%=from% . to%|
00000fe0  2d 31 0d 06 fe 12 20 72  25 3d 49 6e 64 65 78 25  |-1.... r%=Index%|
00000ff0  28 4a 25 29 0d 07 08 19  20 73 24 3d a4 64 61 74  |(J%).... s$=.dat|
00001000  61 28 72 25 2c 66 69 65  6c 64 32 25 29 0d 07 12  |a(r%,field2%)...|
00001010  1d 20 c8 8e 20 66 69 65  6c 64 74 79 70 65 25 28  |. .. fieldtype%(|
00001020  66 69 65 6c 64 32 25 29  20 ca 0d 07 1c 21 20 20  |field2%) ....!  |
00001030  c9 20 31 3a 24 28 64 61  74 61 25 2b 28 72 25 2d  |. 1:$(data%+(r%-|
00001040  31 29 2a 6c 65 6e 25 29  3d 73 24 0d 07 26 22 20  |1)*len%)=s$..&" |
00001050  20 c9 20 32 3a 21 28 64  61 74 61 25 2b 28 72 25  | . 2:!(data%+(r%|
00001060  2d 31 29 2a 6c 65 6e 25  29 3d bb 73 24 0d 07 30  |-1)*len%)=.s$..0|
00001070  06 20 cb 0d 07 3a 05 ed  0d 07 44 2a c8 99 20 22  |. ...:....D*.. "|
00001080  4f 53 5f 48 65 61 70 53  6f 72 74 22 2c 72 65 63  |OS_HeapSort",rec|
00001090  6f 72 64 73 25 2c 74 61  62 6c 65 25 2c 74 79 70  |ords%,table%,typ|
000010a0  65 25 0d 07 4e 1d f2 74  72 61 6e 73 66 65 72 4f  |e%..N..transferO|
000010b0  75 74 28 66 72 6f 6d 25  2c 74 6f 25 2d 31 29 0d  |ut(from%,to%-1).|
000010c0  07 58 05 e1 0d 07 62 05  3a 0d 07 6c 18 dd f2 74  |.X....b.:..l...t|
000010d0  72 61 6e 73 66 65 72 4f  75 74 28 66 25 2c 74 25  |ransferOut(f%,t%|
000010e0  29 0d 07 76 2f f4 20 74  72 61 6e 73 66 65 72 20  |)..v/. transfer |
000010f0  73 6f 72 74 65 64 20 69  74 65 6d 73 20 66 72 6f  |sorted items fro|
00001100  6d 20 74 61 62 6c 65 20  74 6f 20 69 6e 64 65 78  |m table to index|
00001110  0d 07 80 0d 61 25 3d 74  61 62 6c 65 25 0d 07 8a  |....a%=table%...|
00001120  10 e3 20 4a 25 3d 66 25  20 b8 20 74 25 0d 07 94  |.. J%=f% . t%...|
00001130  0b 20 70 25 3d 21 61 25  0d 07 9e 14 20 72 25 3d  |. p%=!a%.... r%=|
00001140  70 25 2d 66 61 64 25 2b  6c 65 6e 25 0d 07 a8 19  |p%-fad%+len%....|
00001150  20 49 6e 64 65 78 25 28  4a 25 29 3d 72 25 20 81  | Index%(J%)=r% .|
00001160  20 6c 65 6e 25 0d 07 b2  0a 20 61 25 2b 3d 34 0d  | len%.... a%+=4.|
00001170  07 bc 05 ed 0d 07 c6 05  e1 0d 07 d0 05 3a 0d 07  |.............:..|
00001180  da 0d dd f2 6b 65 79 28  6e 25 29 0d 07 e4 27 f1  |....key(n%)...'.|
00001190  8a 30 2c 33 30 29 22 50  72 65 73 73 20 61 6e 79  |.0,30)"Press any|
000011a0  20 6b 65 79 20 74 6f 20  70 65 72 66 6f 72 6d 20  | key to perform |
000011b0  22 3b 0d 07 ee 11 e7 20  70 72 69 6e 74 65 72 25  |";..... printer%|
000011c0  20 ef 32 0d 07 f8 11 f1  22 53 6f 72 74 20 22 2b  | .2....."Sort "+|
000011d0  c3 6e 25 3b 0d 08 02 29  f1 22 20 28 46 69 65 6c  |.n%;...)." (Fiel|
000011e0  64 20 22 2b c3 28 70 72  69 6f 72 69 74 79 25 28  |d "+.(priority%(|
000011f0  6e 25 29 29 2b 22 29 20  22 3b 3a e7 a5 0d 08 0c  |n%))+") ";:.....|
00001200  06 ef 33 0d 08 16 05 e1  0d 08 20 05 3a 0d 08 2a  |..3....... .:..*|
00001210  0a dd f2 64 75 6d 70 0d  08 34 18 61 31 25 3d 64  |...dump..4.a1%=d|
00001220  61 74 61 25 3a 61 32 25  3d 74 61 62 6c 65 25 0d  |ata%:a2%=table%.|
00001230  08 3e 05 f1 0d 08 48 15  e3 20 4a 25 3d 31 20 b8  |.>....H.. J%=1 .|
00001240  20 72 65 63 6f 72 64 73  25 0d 08 52 27 20 40 25  | records%..R' @%|
00001250  3d 34 3a f1 20 4a 25 2c  49 6e 64 65 78 25 28 4a  |=4:. J%,Index%(J|
00001260  25 29 3b 22 20 20 26 22  2b c3 7e 21 61 32 25 3b  |%);"  &"+.~!a2%;|
00001270  0d 08 5c 30 20 40 25 3d  32 3a f1 22 28 22 2c 28  |..\0 @%=2:."(",(|
00001280  21 61 32 25 2d 66 61 64  25 2b 6c 65 6e 25 29 20  |!a2%-fad%+len%) |
00001290  81 20 6c 65 6e 25 3b 22  29 20 22 3b 24 61 31 25  |. len%;") ";$a1%|
000012a0  0d 08 66 15 20 61 31 25  2b 3d 6c 65 6e 25 3a 61  |..f. a1%+=len%:a|
000012b0  32 25 2b 3d 34 0d 08 70  0b ed 3a 40 25 3d 31 30  |2%+=4..p..:@%=10|
000012c0  0d 08 7a 05 e1 0d 08 84  05 3a 0d 08 8e 0b dd f2  |..z......:......|
000012d0  65 72 72 6f 72 0d 08 98  17 f6 3a f1 22 20 61 74  |error.....:." at|
000012e0  20 6c 69 6e 65 20 22 3b  9e 3a ef 33 0d 08 a2 05  | line ";.:.3....|
000012f0  e1 0d 08 ac 05 3a 0d 08  b6 0d dc 20 31 2c 31 2c  |.....:..... 1,1,|
00001300  31 2c 32 0d 08 c0 18 dc  20 4a 6f 6e 65 73 2c 57  |1,2..... Jones,W|
00001310  69 6c 6c 69 61 6d 2c 4d  2c 34 32 0d 08 ca 16 dc  |illiam,M,42.....|
00001320  20 53 6d 69 74 68 2c 41  6c 69 63 65 2c 46 2c 32  | Smith,Alice,F,2|
00001330  37 0d 08 d4 15 dc 20 42  72 6f 77 6e 2c 50 61 75  |7..... Brown,Pau|
00001340  6c 2c 4d 2c 31 38 0d 08  de 1a dc 20 48 6f 6e 65  |l,M,18..... Hone|
00001350  79 63 6f 6d 62 65 2c 45  6d 6d 61 2c 46 2c 35 36  |ycombe,Emma,F,56|
00001360  0d 08 e8 16 dc 20 42 72  6f 77 6e 2c 4d 61 76 69  |..... Brown,Mavi|
00001370  73 2c 46 2c 38 38 0d 08  f2 1b dc 20 4d 61 63 42  |s,F,88..... MacB|
00001380  65 61 74 68 2c 57 69 6c  6c 69 61 6d 2c 4d 2c 32  |eath,William,M,2|
00001390  37 0d 08 fc 15 dc 20 42  72 6f 77 6e 2c 4d 61 72  |7..... Brown,Mar|
000013a0  79 2c 46 2c 31 38 0d 09  06 18 dc 20 53 6d 69 74  |y,F,18..... Smit|
000013b0  68 2c 46 72 61 6e 63 65  73 2c 46 2c 33 33 0d 09  |h,Frances,F,33..|
000013c0  10 17 dc 20 54 68 6f 6d  61 73 2c 47 65 6d 6d 61  |... Thomas,Gemma|
000013d0  2c 46 2c 36 30 0d 09 1a  17 dc 20 53 6d 69 74 68  |,F,60..... Smith|
000013e0  2c 47 72 61 68 61 6d 2c  4d 2c 31 38 0d 09 24 1a  |,Graham,M,18..$.|
000013f0  dc 20 52 6f 62 69 6e 73  6f 6e 2c 4d 61 72 73 68  |. Robinson,Marsh|
00001400  61 2c 46 2c 33 34 0d 09  2e 17 dc 20 53 6d 69 74  |a,F,34..... Smit|
00001410  68 2c 48 61 72 6f 6c 64  2c 4d 2c 36 39 0d 09 38  |h,Harold,M,69..8|
00001420  17 dc 20 47 72 65 65 6e  2c 57 69 6c 6c 69 61 6d  |.. Green,William|
00001430  2c 4d 2c 37 0d 09 42 19  dc 20 62 72 6f 77 6e 2c  |,M,7..B.. brown,|
00001440  56 65 72 6f 6e 69 63 61  2c 46 2c 37 31 0d 09 4c  |Veronica,F,71..L|
00001450  18 dc 20 4a 6f 6e 65 73  2c 46 72 61 6e 63 65 73  |.. Jones,Frances|
00001460  2c 46 2c 33 34 0d 09 56  1b dc 20 4d 63 49 6e 74  |,F,34..V.. McInt|
00001470  6f 73 68 2c 57 69 6c 6c  69 61 6d 2c 4d 2c 31 36  |osh,William,M,16|
00001480  0d 09 60 18 dc 20 4a 6f  6e 65 73 2c 4d 61 75 72  |..`.. Jones,Maur|
00001490  65 65 6e 2c 46 2c 32 31  0d 09 6a 17 dc 20 47 72  |een,F,21..j.. Gr|
000014a0  65 65 6e 2c 41 6e 67 65  6c 61 2c 46 2c 33 38 0d  |een,Angela,F,38.|
000014b0  09 74 18 dc 20 52 6f 62  69 6e 73 2c 41 6e 67 65  |.t.. Robins,Ange|
000014c0  6c 61 2c 46 2c 34 32 0d  09 7e 15 dc 20 4a 6f 6e  |la,F,42..~.. Jon|
000014d0  65 73 2c 4d 61 72 79 2c  46 2c 34 32 0d 09 88 17  |es,Mary,F,42....|
000014e0  dc 20 42 72 6f 77 6e 2c  56 69 63 74 6f 72 2c 4d  |. Brown,Victor,M|
000014f0  2c 33 38 0d 09 92 1a dc  20 52 6f 62 69 6e 73 6f  |,38..... Robinso|
00001500  6e 2c 41 6e 67 65 6c 61  2c 46 2c 32 37 0d 09 9c  |n,Angela,F,27...|
00001510  1b dc 20 72 6f 62 69 6e  73 6f 6e 2c 6d 61 75 72  |.. robinson,maur|
00001520  65 65 6e 2c 46 2c 33 31  0d 09 a6 19 dc 20 52 6f  |een,F,31..... Ro|
00001530  62 69 6e 73 6f 6e 2c 41  6e 67 65 6c 61 2c 46 2c  |binson,Angela,F,|
00001540  38 0d 09 b0 17 dc 20 47  72 65 65 6e 2c 41 6e 67  |8..... Green,Ang|
00001550  65 6c 61 2c 46 2c 33 32  0d 09 ba 17 dc 20 54 68  |ela,F,32..... Th|
00001560  6f 6d 70 73 6f 6e 2c 4c  65 6e 2c 4d 2c 38 38 0d  |ompson,Len,M,88.|
00001570  ff                                                |.|
00001571