�     >SortTest

� By  DCA
� For 32-bit machines
(� (c) BAU September 1993
2:
<� 0
Fn%=10000
Ps%=n%/2
Z-� swi$(2),q% 4*n%,p% 4*n%,xpos(2),ypos(2)
d$swi$()="OS_HeapSort","SCL_qsort"
n� routine=0 � 1
x" �"Trying """swi$(routine)""""
�# �sort_cardinals(swi$(routine))
�" �sort_integers(swi$(routine))
�  �sort_cardpt(swi$(routine))
� �sort_intpt(swi$(routine))
�# �sort_string_ci(swi$(routine))
�# �sort_string_cs(swi$(routine))
� �
��
��
�:
�� �sort_cardinals(swi$)
�%�sort_num(swi$,0,"0 / Cardinals")
��

:

� �sort_integers(swi$)

$�sort_num(swi$,1,"1 / Integers")

"�

,:

6#� �sort_num(swi$,type%,banner$)

@�banner$": ";

J
j=�(-123)

T� i%=0 � n%-1

^ q%!(4*i%)=�

h�

r�=0

|ș swi$,n%,q%,type%

�� " time=";�/100

��display_on

�� i%=0 � n%-1 � (n%/10)

�+ �;i%;�6);" &"~q%!(4*i%);�18);q%!(4*i%)

��

��

��display_off

��

�:

�� �sort_cardpt(swi$)

�%�sort_pt(swi$,2,"2 / ->Cardinal")

��

�:
� �sort_intpt(swi$)
$�sort_pt(swi$,3,"3 / ->Integer")
�
&:
0"� �sort_pt(swi$,type%,banner$)
:�banner$": ";
D
j=�(-123)
N� i%=0 � n%-1
X q%!(4*i%)=�
b p%!(4*i%)=q%+4*i%
l�
v�=0
�ș swi$,n%,p%,type%
�� " time=";�/100
��display_on
�� i%=0 � n%-1 � (n%/10)
�1 �;i%;�6);" &"~!(p%!(4*i%));�18);!(p%!(4*i%))
��
��
��display_off
��
�:
�� �sort_string_ci(swi$)
�0�sort_string(swi$,4,"4 / string (case ins)")
��
:
� �sort_string_cs(swi$)
1�sort_string(swi$,5,"5 / string (case sens)")
 �
*:
4&� �sort_string(swi$,type%,banner$)
>�banner$": ";
H
j=�(-123)
R� i%=0 � s%-1
\ a%=q%+8*i%
f � j%=0 � 6
p  a%?j%=64+�(26)
z  � �>0 � a%?j%+=32
� �
� p%!(4*i%)=a%
� a%?7=0
��
��=0
�ș swi$,s%,p%,type%
�� " time=";�/100
��display_on
�� i%=0 � s%-1 � (s%/10)
� �;i%;�6);"""";
� ș "OS_Write0",p%!(4*i%)
�
 �""""
��
�
�display_off
�
$:
.� �display_on
8
xpos(0)=�
B
ypos(0)=�
L&� 28,40,31,79,0,31,xpos(1),ypos(1)
V�
`:
j� �display_off
t
xpos(1)=�
~
ypos(1)=�
�� 26,31,xpos(0),ypos(0)
��
�

00000000  0d 00 0a 13 f4 20 20 20  20 20 3e 53 6f 72 74 54  |.....     >SortT|
00000010  65 73 74 0d 00 14 0d f4  20 42 79 20 20 44 43 41  |est..... By  DCA|
00000020  0d 00 1e 19 f4 20 46 6f  72 20 33 32 2d 62 69 74  |..... For 32-bit|
00000030  20 6d 61 63 68 69 6e 65  73 0d 00 28 1c f4 20 28  | machines..(.. (|
00000040  63 29 20 42 41 55 20 53  65 70 74 65 6d 62 65 72  |c) BAU September|
00000050  20 31 39 39 33 0d 00 32  05 3a 0d 00 3c 07 eb 20  | 1993..2.:..<.. |
00000060  30 0d 00 46 0c 6e 25 3d  31 30 30 30 30 0d 00 50  |0..F.n%=10000..P|
00000070  0b 73 25 3d 6e 25 2f 32  0d 00 5a 2d de 20 73 77  |.s%=n%/2..Z-. sw|
00000080  69 24 28 32 29 2c 71 25  20 34 2a 6e 25 2c 70 25  |i$(2),q% 4*n%,p%|
00000090  20 34 2a 6e 25 2c 78 70  6f 73 28 32 29 2c 79 70  | 4*n%,xpos(2),yp|
000000a0  6f 73 28 32 29 0d 00 64  24 73 77 69 24 28 29 3d  |os(2)..d$swi$()=|
000000b0  22 4f 53 5f 48 65 61 70  53 6f 72 74 22 2c 22 53  |"OS_HeapSort","S|
000000c0  43 4c 5f 71 73 6f 72 74  22 0d 00 6e 13 e3 20 72  |CL_qsort"..n.. r|
000000d0  6f 75 74 69 6e 65 3d 30  20 b8 20 31 0d 00 78 22  |outine=0 . 1..x"|
000000e0  20 f1 22 54 72 79 69 6e  67 20 22 22 22 73 77 69  | ."Trying """swi|
000000f0  24 28 72 6f 75 74 69 6e  65 29 22 22 22 22 0d 00  |$(routine)""""..|
00000100  82 23 20 f2 73 6f 72 74  5f 63 61 72 64 69 6e 61  |.# .sort_cardina|
00000110  6c 73 28 73 77 69 24 28  72 6f 75 74 69 6e 65 29  |ls(swi$(routine)|
00000120  29 0d 00 8c 22 20 f2 73  6f 72 74 5f 69 6e 74 65  |)..." .sort_inte|
00000130  67 65 72 73 28 73 77 69  24 28 72 6f 75 74 69 6e  |gers(swi$(routin|
00000140  65 29 29 0d 00 96 20 20  f2 73 6f 72 74 5f 63 61  |e))...  .sort_ca|
00000150  72 64 70 74 28 73 77 69  24 28 72 6f 75 74 69 6e  |rdpt(swi$(routin|
00000160  65 29 29 0d 00 a0 1f 20  f2 73 6f 72 74 5f 69 6e  |e)).... .sort_in|
00000170  74 70 74 28 73 77 69 24  28 72 6f 75 74 69 6e 65  |tpt(swi$(routine|
00000180  29 29 0d 00 aa 23 20 f2  73 6f 72 74 5f 73 74 72  |))...# .sort_str|
00000190  69 6e 67 5f 63 69 28 73  77 69 24 28 72 6f 75 74  |ing_ci(swi$(rout|
000001a0  69 6e 65 29 29 0d 00 b4  23 20 f2 73 6f 72 74 5f  |ine))...# .sort_|
000001b0  73 74 72 69 6e 67 5f 63  73 28 73 77 69 24 28 72  |string_cs(swi$(r|
000001c0  6f 75 74 69 6e 65 29 29  0d 00 be 06 20 f1 0d 00  |outine)).... ...|
000001d0  c8 05 ed 0d 00 d2 05 e0  0d 00 dc 05 3a 0d 00 e6  |............:...|
000001e0  1b dd 20 f2 73 6f 72 74  5f 63 61 72 64 69 6e 61  |.. .sort_cardina|
000001f0  6c 73 28 73 77 69 24 29  0d 00 f0 25 f2 73 6f 72  |ls(swi$)...%.sor|
00000200  74 5f 6e 75 6d 28 73 77  69 24 2c 30 2c 22 30 20  |t_num(swi$,0,"0 |
00000210  2f 20 43 61 72 64 69 6e  61 6c 73 22 29 0d 00 fa  |/ Cardinals")...|
00000220  05 e1 0d 01 04 05 3a 0d  01 0e 1a dd 20 f2 73 6f  |......:..... .so|
00000230  72 74 5f 69 6e 74 65 67  65 72 73 28 73 77 69 24  |rt_integers(swi$|
00000240  29 0d 01 18 24 f2 73 6f  72 74 5f 6e 75 6d 28 73  |)...$.sort_num(s|
00000250  77 69 24 2c 31 2c 22 31  20 2f 20 49 6e 74 65 67  |wi$,1,"1 / Integ|
00000260  65 72 73 22 29 0d 01 22  05 e1 0d 01 2c 05 3a 0d  |ers").."....,.:.|
00000270  01 36 23 dd 20 f2 73 6f  72 74 5f 6e 75 6d 28 73  |.6#. .sort_num(s|
00000280  77 69 24 2c 74 79 70 65  25 2c 62 61 6e 6e 65 72  |wi$,type%,banner|
00000290  24 29 0d 01 40 11 f1 62  61 6e 6e 65 72 24 22 3a  |$)..@..banner$":|
000002a0  20 22 3b 0d 01 4a 0d 6a  3d b3 28 2d 31 32 33 29  | ";..J.j=.(-123)|
000002b0  0d 01 54 11 e3 20 69 25  3d 30 20 b8 20 6e 25 2d  |..T.. i%=0 . n%-|
000002c0  31 0d 01 5e 10 20 71 25  21 28 34 2a 69 25 29 3d  |1..^. q%!(4*i%)=|
000002d0  b3 0d 01 68 05 ed 0d 01  72 07 d1 3d 30 0d 01 7c  |...h....r..=0..||
000002e0  17 c8 99 20 73 77 69 24  2c 6e 25 2c 71 25 2c 74  |... swi$,n%,q%,t|
000002f0  79 70 65 25 0d 01 86 14  f1 20 22 20 74 69 6d 65  |ype%..... " time|
00000300  3d 22 3b 91 2f 31 30 30  0d 01 90 0f f2 64 69 73  |=";./100.....dis|
00000310  70 6c 61 79 5f 6f 6e 0d  01 9a 1b e3 20 69 25 3d  |play_on..... i%=|
00000320  30 20 b8 20 6e 25 2d 31  20 88 20 28 6e 25 2f 31  |0 . n%-1 . (n%/1|
00000330  30 29 0d 01 a4 2b 20 f1  3b 69 25 3b 8a 36 29 3b  |0)...+ .;i%;.6);|
00000340  22 20 26 22 7e 71 25 21  28 34 2a 69 25 29 3b 8a  |" &"~q%!(4*i%);.|
00000350  31 38 29 3b 71 25 21 28  34 2a 69 25 29 0d 01 ae  |18);q%!(4*i%)...|
00000360  05 ed 0d 01 b8 05 f1 0d  01 c2 10 f2 64 69 73 70  |............disp|
00000370  6c 61 79 5f 6f 66 66 0d  01 cc 05 e1 0d 01 d6 05  |lay_off.........|
00000380  3a 0d 01 e0 18 dd 20 f2  73 6f 72 74 5f 63 61 72  |:..... .sort_car|
00000390  64 70 74 28 73 77 69 24  29 0d 01 ea 25 f2 73 6f  |dpt(swi$)...%.so|
000003a0  72 74 5f 70 74 28 73 77  69 24 2c 32 2c 22 32 20  |rt_pt(swi$,2,"2 |
000003b0  2f 20 2d 3e 43 61 72 64  69 6e 61 6c 22 29 0d 01  |/ ->Cardinal")..|
000003c0  f4 05 e1 0d 01 fe 05 3a  0d 02 08 17 dd 20 f2 73  |.......:..... .s|
000003d0  6f 72 74 5f 69 6e 74 70  74 28 73 77 69 24 29 0d  |ort_intpt(swi$).|
000003e0  02 12 24 f2 73 6f 72 74  5f 70 74 28 73 77 69 24  |..$.sort_pt(swi$|
000003f0  2c 33 2c 22 33 20 2f 20  2d 3e 49 6e 74 65 67 65  |,3,"3 / ->Intege|
00000400  72 22 29 0d 02 1c 05 e1  0d 02 26 05 3a 0d 02 30  |r").......&.:..0|
00000410  22 dd 20 f2 73 6f 72 74  5f 70 74 28 73 77 69 24  |". .sort_pt(swi$|
00000420  2c 74 79 70 65 25 2c 62  61 6e 6e 65 72 24 29 0d  |,type%,banner$).|
00000430  02 3a 11 f1 62 61 6e 6e  65 72 24 22 3a 20 22 3b  |.:..banner$": ";|
00000440  0d 02 44 0d 6a 3d b3 28  2d 31 32 33 29 0d 02 4e  |..D.j=.(-123)..N|
00000450  11 e3 20 69 25 3d 30 20  b8 20 6e 25 2d 31 0d 02  |.. i%=0 . n%-1..|
00000460  58 10 20 71 25 21 28 34  2a 69 25 29 3d b3 0d 02  |X. q%!(4*i%)=...|
00000470  62 16 20 70 25 21 28 34  2a 69 25 29 3d 71 25 2b  |b. p%!(4*i%)=q%+|
00000480  34 2a 69 25 0d 02 6c 05  ed 0d 02 76 07 d1 3d 30  |4*i%..l....v..=0|
00000490  0d 02 80 17 c8 99 20 73  77 69 24 2c 6e 25 2c 70  |...... swi$,n%,p|
000004a0  25 2c 74 79 70 65 25 0d  02 8a 14 f1 20 22 20 74  |%,type%..... " t|
000004b0  69 6d 65 3d 22 3b 91 2f  31 30 30 0d 02 94 0f f2  |ime=";./100.....|
000004c0  64 69 73 70 6c 61 79 5f  6f 6e 0d 02 9e 1b e3 20  |display_on..... |
000004d0  69 25 3d 30 20 b8 20 6e  25 2d 31 20 88 20 28 6e  |i%=0 . n%-1 . (n|
000004e0  25 2f 31 30 29 0d 02 a8  31 20 f1 3b 69 25 3b 8a  |%/10)...1 .;i%;.|
000004f0  36 29 3b 22 20 26 22 7e  21 28 70 25 21 28 34 2a  |6);" &"~!(p%!(4*|
00000500  69 25 29 29 3b 8a 31 38  29 3b 21 28 70 25 21 28  |i%));.18);!(p%!(|
00000510  34 2a 69 25 29 29 0d 02  b2 05 ed 0d 02 bc 05 f1  |4*i%))..........|
00000520  0d 02 c6 10 f2 64 69 73  70 6c 61 79 5f 6f 66 66  |.....display_off|
00000530  0d 02 d0 05 e1 0d 02 da  05 3a 0d 02 e4 1b dd 20  |.........:..... |
00000540  f2 73 6f 72 74 5f 73 74  72 69 6e 67 5f 63 69 28  |.sort_string_ci(|
00000550  73 77 69 24 29 0d 02 ee  30 f2 73 6f 72 74 5f 73  |swi$)...0.sort_s|
00000560  74 72 69 6e 67 28 73 77  69 24 2c 34 2c 22 34 20  |tring(swi$,4,"4 |
00000570  2f 20 73 74 72 69 6e 67  20 28 63 61 73 65 20 69  |/ string (case i|
00000580  6e 73 29 22 29 0d 02 f8  05 e1 0d 03 02 05 3a 0d  |ns)").........:.|
00000590  03 0c 1b dd 20 f2 73 6f  72 74 5f 73 74 72 69 6e  |.... .sort_strin|
000005a0  67 5f 63 73 28 73 77 69  24 29 0d 03 16 31 f2 73  |g_cs(swi$)...1.s|
000005b0  6f 72 74 5f 73 74 72 69  6e 67 28 73 77 69 24 2c  |ort_string(swi$,|
000005c0  35 2c 22 35 20 2f 20 73  74 72 69 6e 67 20 28 63  |5,"5 / string (c|
000005d0  61 73 65 20 73 65 6e 73  29 22 29 0d 03 20 05 e1  |ase sens)").. ..|
000005e0  0d 03 2a 05 3a 0d 03 34  26 dd 20 f2 73 6f 72 74  |..*.:..4&. .sort|
000005f0  5f 73 74 72 69 6e 67 28  73 77 69 24 2c 74 79 70  |_string(swi$,typ|
00000600  65 25 2c 62 61 6e 6e 65  72 24 29 0d 03 3e 11 f1  |e%,banner$)..>..|
00000610  62 61 6e 6e 65 72 24 22  3a 20 22 3b 0d 03 48 0d  |banner$": ";..H.|
00000620  6a 3d b3 28 2d 31 32 33  29 0d 03 52 11 e3 20 69  |j=.(-123)..R.. i|
00000630  25 3d 30 20 b8 20 73 25  2d 31 0d 03 5c 0f 20 61  |%=0 . s%-1..\. a|
00000640  25 3d 71 25 2b 38 2a 69  25 0d 03 66 0f 20 e3 20  |%=q%+8*i%..f. . |
00000650  6a 25 3d 30 20 b8 20 36  0d 03 70 14 20 20 61 25  |j%=0 . 6..p.  a%|
00000660  3f 6a 25 3d 36 34 2b b3  28 32 36 29 0d 03 7a 17  |?j%=64+.(26)..z.|
00000670  20 20 e7 20 b3 3e 30 20  8c 20 61 25 3f 6a 25 2b  |  . .>0 . a%?j%+|
00000680  3d 33 32 0d 03 84 06 20  ed 0d 03 8e 11 20 70 25  |=32.... ..... p%|
00000690  21 28 34 2a 69 25 29 3d  61 25 0d 03 98 0b 20 61  |!(4*i%)=a%.... a|
000006a0  25 3f 37 3d 30 0d 03 a2  05 ed 0d 03 ac 07 d1 3d  |%?7=0..........=|
000006b0  30 0d 03 b6 17 c8 99 20  73 77 69 24 2c 73 25 2c  |0...... swi$,s%,|
000006c0  70 25 2c 74 79 70 65 25  0d 03 c0 14 f1 20 22 20  |p%,type%..... " |
000006d0  74 69 6d 65 3d 22 3b 91  2f 31 30 30 0d 03 ca 0f  |time=";./100....|
000006e0  f2 64 69 73 70 6c 61 79  5f 6f 6e 0d 03 d4 1b e3  |.display_on.....|
000006f0  20 69 25 3d 30 20 b8 20  73 25 2d 31 20 88 20 28  | i%=0 . s%-1 . (|
00000700  73 25 2f 31 30 29 0d 03  de 13 20 f1 3b 69 25 3b  |s%/10).... .;i%;|
00000710  8a 36 29 3b 22 22 22 22  3b 0d 03 e8 1d 20 c8 99  |.6);"""";.... ..|
00000720  20 22 4f 53 5f 57 72 69  74 65 30 22 2c 70 25 21  | "OS_Write0",p%!|
00000730  28 34 2a 69 25 29 0d 03  f2 0a 20 f1 22 22 22 22  |(4*i%).... .""""|
00000740  0d 03 fc 05 ed 0d 04 06  05 f1 0d 04 10 10 f2 64  |...............d|
00000750  69 73 70 6c 61 79 5f 6f  66 66 0d 04 1a 05 e1 0d  |isplay_off......|
00000760  04 24 05 3a 0d 04 2e 11  dd 20 f2 64 69 73 70 6c  |.$.:..... .displ|
00000770  61 79 5f 6f 6e 0d 04 38  0d 78 70 6f 73 28 30 29  |ay_on..8.xpos(0)|
00000780  3d b1 0d 04 42 0d 79 70  6f 73 28 30 29 3d bc 0d  |=...B.ypos(0)=..|
00000790  04 4c 26 ef 20 32 38 2c  34 30 2c 33 31 2c 37 39  |.L&. 28,40,31,79|
000007a0  2c 30 2c 33 31 2c 78 70  6f 73 28 31 29 2c 79 70  |,0,31,xpos(1),yp|
000007b0  6f 73 28 31 29 0d 04 56  05 e1 0d 04 60 05 3a 0d  |os(1)..V....`.:.|
000007c0  04 6a 12 dd 20 f2 64 69  73 70 6c 61 79 5f 6f 66  |.j.. .display_of|
000007d0  66 0d 04 74 0d 78 70 6f  73 28 31 29 3d b1 0d 04  |f..t.xpos(1)=...|
000007e0  7e 0d 79 70 6f 73 28 31  29 3d bc 0d 04 88 1b ef  |~.ypos(1)=......|
000007f0  20 32 36 2c 33 31 2c 78  70 6f 73 28 30 29 2c 79  | 26,31,xpos(0),y|
00000800  70 6f 73 28 30 29 0d 04  92 05 e1 0d ff           |pos(0).......|
0000080d