/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / baslib / SortLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 39 f4 20 3e 24 | 2e 42 61 73 6c 69 62 2e |...9. >$|.Baslib.|
|00000010| 53 6f 72 74 4c 69 62 20 | 20 20 20 3a 20 50 52 4f |SortLib |   : PRO|
|00000020| 43 68 65 6c 70 5f 73 6f | 72 74 6c 69 62 20 66 6f |Chelp_so|rtlib fo|
|00000030| 72 20 64 65 74 61 69 6c | 73 0d 00 14 05 3a 0d 00 |r detail|s....:..|
|00000040| 1e 1a f4 20 56 31 2e 30 | 30 20 32 36 30 32 38 39 |... V1.0|0 260289|
|00000050| 20 43 72 65 61 74 65 64 | 0d 00 28 05 3a 0d 00 32 | Created|..(.:..2|
|00000060| 1f dd f2 69 6e 74 5f 71 | 75 69 63 6b 73 6f 72 74 |...int_q|uicksort|
|00000070| 31 5f 64 65 6d 6f 28 66 | 6c 61 67 29 0d 00 3c 0f |1_demo(f|lag)..<.|
|00000080| ea 20 6c 6f 6f 70 25 2c | 6e 72 25 0d 00 46 0b 6e |. loop%,|nr%..F.n|
|00000090| 72 25 3d 31 30 30 0d 00 | 50 11 de 20 61 6c 69 73 |r%=100..|P.. alis|
|000000a0| 74 25 28 6e 72 25 29 0d | 00 5a 13 e3 20 6c 6f 6f |t%(nr%).|.Z.. loo|
|000000b0| 70 25 3d 31 20 b8 20 6e | 72 25 0d 00 64 1a 20 20 |p%=1 . n|r%..d.  |
|000000c0| 61 6c 69 73 74 25 28 6c | 6f 6f 70 25 29 3d b3 28 |alist%(l|oop%)=.(|
|000000d0| 31 30 30 29 0d 00 6e 15 | 20 20 f1 20 61 6c 69 73 |100)..n.|  . alis|
|000000e0| 74 25 28 6c 6f 6f 70 25 | 29 0d 00 78 05 ed 0d 00 |t%(loop%|)..x....|
|000000f0| 82 05 f1 0d 00 8c 28 f2 | 69 6e 74 5f 71 75 69 63 |......(.|int_quic|
|00000100| 6b 73 6f 72 74 31 28 61 | 6c 69 73 74 25 28 29 2c |ksort1(a|list%(),|
|00000110| 31 2c 6e 72 25 2c 66 6c | 61 67 29 0d 00 96 13 e3 |1,nr%,fl|ag).....|
|00000120| 20 6c 6f 6f 70 25 3d 31 | 20 b8 20 6e 72 25 0d 00 | loop%=1| . nr%..|
|00000130| a0 15 20 20 f1 20 61 6c | 69 73 74 25 28 6c 6f 6f |..  . al|ist%(loo|
|00000140| 70 25 29 0d 00 aa 0b ed | 20 6c 6f 6f 70 25 0d 00 |p%).....| loop%..|
|00000150| b4 05 e1 0d 00 be 05 3a | 0d 00 c8 1f dd f2 69 6e |.......:|......in|
|00000160| 74 5f 71 75 69 63 6b 73 | 6f 72 74 32 5f 64 65 6d |t_quicks|ort2_dem|
|00000170| 6f 28 66 6c 61 67 29 0d | 00 d2 0f ea 20 6e 72 25 |o(flag).|.... nr%|
|00000180| 2c 6c 6f 6f 70 25 0d 00 | dc 0b 6e 72 25 3d 31 30 |,loop%..|..nr%=10|
|00000190| 30 0d 00 e6 1f de 20 61 | 6c 69 73 74 25 28 6e 72 |0..... a|list%(nr|
|000001a0| 25 29 2c 70 6f 69 6e 74 | 65 72 25 28 6e 72 25 29 |%),point|er%(nr%)|
|000001b0| 0d 00 f0 13 e3 20 6c 6f | 6f 70 25 3d 31 20 b8 20 |..... lo|op%=1 . |
|000001c0| 6e 72 25 0d 00 fa 1a 20 | 20 61 6c 69 73 74 25 28 |nr%.... | alist%(|
|000001d0| 6c 6f 6f 70 25 29 3d b3 | 28 31 30 30 29 0d 01 04 |loop%)=.|(100)...|
|000001e0| 15 20 20 f1 20 61 6c 69 | 73 74 25 28 6c 6f 6f 70 |.  . ali|st%(loop|
|000001f0| 25 29 0d 01 0e 1b 20 20 | 70 6f 69 6e 74 65 72 25 |%)....  |pointer%|
|00000200| 28 6c 6f 6f 70 25 29 3d | 6c 6f 6f 70 25 0d 01 18 |(loop%)=|loop%...|
|00000210| 0b ed 20 6c 6f 6f 70 25 | 0d 01 22 05 f1 0d 01 2c |.. loop%|.."....,|
|00000220| 33 f2 69 6e 74 5f 71 75 | 69 63 6b 73 6f 72 74 32 |3.int_qu|icksort2|
|00000230| 28 61 6c 69 73 74 25 28 | 29 2c 70 6f 69 6e 74 65 |(alist%(|),pointe|
|00000240| 72 25 28 29 2c 31 2c 6e | 72 25 2c 66 6c 61 67 29 |r%(),1,n|r%,flag)|
|00000250| 0d 01 36 13 e3 20 6c 6f | 6f 70 25 3d 31 20 b8 20 |..6.. lo|op%=1 . |
|00000260| 6e 72 25 0d 01 40 1f 20 | 20 f1 20 61 6c 69 73 74 |nr%..@. | . alist|
|00000270| 25 28 70 6f 69 6e 74 65 | 72 25 28 6c 6f 6f 70 25 |%(pointe|r%(loop%|
|00000280| 29 29 0d 01 4a 0b ed 20 | 6c 6f 6f 70 25 0d 01 54 |))..J.. |loop%..T|
|00000290| 05 e1 0d 01 5e 05 3a 0d | 01 68 2d dd f2 69 6e 74 |....^.:.|.h-..int|
|000002a0| 5f 71 75 69 63 6b 73 6f | 72 74 31 28 6c 69 73 74 |_quickso|rt1(list|
|000002b0| 25 28 29 2c 62 6f 74 25 | 2c 74 6f 70 25 2c 61 73 |%(),bot%|,top%,as|
|000002c0| 63 64 25 29 0d 01 72 0d | ea 20 6c 6f 25 2c 68 69 |cd%)..r.|. lo%,hi|
|000002d0| 25 0d 01 7c 0c 6c 6f 25 | 3d 62 6f 74 25 0d 01 86 |%..|.lo%|=bot%...|
|000002e0| 0c 68 69 25 3d 74 6f 70 | 25 0d 01 90 08 46 25 3d |.hi%=top|%....F%=|
|000002f0| b9 0d 01 9a 25 f2 71 73 | 5f 73 77 61 70 31 28 6c |....%.qs|_swap1(l|
|00000300| 6f 25 2c 6c 6f 25 2d 31 | 2b b3 28 68 69 25 2b 31 |o%,lo%-1|+.(hi%+1|
|00000310| 2d 6c 6f 25 29 29 0d 01 | a4 05 f5 0d 01 ae 0f 20 |-lo%))..|....... |
|00000320| 20 e7 20 61 73 63 64 25 | 20 8c 0d 01 b8 3c 20 20 | . ascd%| ....<  |
|00000330| 20 20 e7 20 6c 69 73 74 | 25 28 6c 6f 25 29 3e 6c |  . list|%(lo%)>l|
|00000340| 69 73 74 25 28 68 69 25 | 29 20 8c 20 f2 71 73 5f |ist%(hi%|) . .qs_|
|00000350| 73 77 61 70 31 28 6c 6f | 25 2c 68 69 25 29 3a 46 |swap1(lo|%,hi%):F|
|00000360| 25 3d ac 20 46 25 0d 01 | c2 07 20 20 cc 0d 01 cc |%=. F%..|..  ....|
|00000370| 3c 20 20 20 20 e7 20 6c | 69 73 74 25 28 6c 6f 25 |<    . l|ist%(lo%|
|00000380| 29 3c 6c 69 73 74 25 28 | 68 69 25 29 20 8c 20 f2 |)<list%(|hi%) . .|
|00000390| 71 73 5f 73 77 61 70 31 | 28 6c 6f 25 2c 68 69 25 |qs_swap1|(lo%,hi%|
|000003a0| 29 3a 46 25 3d ac 20 46 | 25 0d 01 d6 07 20 20 cd |):F%=. F|%....  .|
|000003b0| 0d 01 e0 22 20 20 e7 20 | 46 25 20 8c 20 68 69 25 |..."  . |F% . hi%|
|000003c0| 3d 68 69 25 2d 31 20 8b | 20 6c 6f 25 3d 6c 6f 25 |=hi%-1 .| lo%=lo%|
|000003d0| 2b 31 0d 01 ea 0d fd 20 | 6c 6f 25 3d 68 69 25 0d |+1..... |lo%=hi%.|
|000003e0| 01 f4 3c e7 20 62 6f 74 | 25 3c 6c 6f 25 2d 31 20 |..<. bot|%<lo%-1 |
|000003f0| 8c 20 f2 69 6e 74 5f 71 | 75 69 63 6b 73 6f 72 74 |. .int_q|uicksort|
|00000400| 31 28 6c 69 73 74 25 28 | 29 2c 62 6f 74 25 2c 6c |1(list%(|),bot%,l|
|00000410| 6f 25 2d 31 2c 61 73 63 | 64 25 29 0d 01 fe 3c e7 |o%-1,asc|d%)...<.|
|00000420| 20 68 69 25 2b 31 3c 74 | 6f 70 25 20 8c 20 f2 69 | hi%+1<t|op% . .i|
|00000430| 6e 74 5f 71 75 69 63 6b | 73 6f 72 74 31 28 6c 69 |nt_quick|sort1(li|
|00000440| 73 74 25 28 29 2c 68 69 | 25 2b 31 2c 74 6f 70 25 |st%(),hi|%+1,top%|
|00000450| 2c 61 73 63 64 25 29 0d | 02 08 05 e1 0d 02 12 05 |,ascd%).|........|
|00000460| 3a 0d 02 1c 38 dd f2 69 | 6e 74 5f 71 75 69 63 6b |:...8..i|nt_quick|
|00000470| 73 6f 72 74 32 28 6c 69 | 73 74 25 28 29 2c 70 6f |sort2(li|st%(),po|
|00000480| 69 6e 74 65 72 25 28 29 | 2c 62 6f 74 25 2c 74 6f |inter%()|,bot%,to|
|00000490| 70 25 2c 61 73 63 64 25 | 29 0d 02 26 0d ea 20 6c |p%,ascd%|)..&.. l|
|000004a0| 6f 25 2c 68 69 25 0d 02 | 30 0c 6c 6f 25 3d 62 6f |o%,hi%..|0.lo%=bo|
|000004b0| 74 25 0d 02 3a 0c 68 69 | 25 3d 74 6f 70 25 0d 02 |t%..:.hi|%=top%..|
|000004c0| 44 08 46 25 3d b9 0d 02 | 4e 25 f2 71 73 5f 73 77 |D.F%=...|N%.qs_sw|
|000004d0| 61 70 32 28 6c 6f 25 2c | 6c 6f 25 2d 31 2b b3 28 |ap2(lo%,|lo%-1+.(|
|000004e0| 68 69 25 2b 31 2d 6c 6f | 25 29 29 0d 02 58 05 f5 |hi%+1-lo|%))..X..|
|000004f0| 0d 02 62 0f 20 20 e7 20 | 61 73 63 64 25 20 8c 0d |..b.  . |ascd% ..|
|00000500| 02 6c 50 20 20 20 20 e7 | 20 6c 69 73 74 25 28 70 |.lP    .| list%(p|
|00000510| 6f 69 6e 74 65 72 25 28 | 6c 6f 25 29 29 3e 6c 69 |ointer%(|lo%))>li|
|00000520| 73 74 25 28 70 6f 69 6e | 74 65 72 25 28 68 69 25 |st%(poin|ter%(hi%|
|00000530| 29 29 20 8c 20 f2 71 73 | 5f 73 77 61 70 32 28 6c |)) . .qs|_swap2(l|
|00000540| 6f 25 2c 68 69 25 29 3a | 46 25 3d ac 20 46 25 0d |o%,hi%):|F%=. F%.|
|00000550| 02 76 07 20 20 cc 0d 02 | 80 50 20 20 20 20 e7 20 |.v.  ...|.P    . |
|00000560| 6c 69 73 74 25 28 70 6f | 69 6e 74 65 72 25 28 6c |list%(po|inter%(l|
|00000570| 6f 25 29 29 3c 6c 69 73 | 74 25 28 70 6f 69 6e 74 |o%))<lis|t%(point|
|00000580| 65 72 25 28 68 69 25 29 | 29 20 8c 20 f2 71 73 5f |er%(hi%)|) . .qs_|
|00000590| 73 77 61 70 32 28 6c 6f | 25 2c 68 69 25 29 3a 46 |swap2(lo|%,hi%):F|
|000005a0| 25 3d ac 20 46 25 0d 02 | 8a 07 20 20 cd 0d 02 94 |%=. F%..|..  ....|
|000005b0| 22 20 20 e7 20 46 25 20 | 8c 20 68 69 25 3d 68 69 |"  . F% |. hi%=hi|
|000005c0| 25 2d 31 20 8b 20 6c 6f | 25 3d 6c 6f 25 2b 31 0d |%-1 . lo|%=lo%+1.|
|000005d0| 02 9e 0d fd 20 6c 6f 25 | 3d 68 69 25 0d 02 a8 47 |.... lo%|=hi%...G|
|000005e0| e7 20 62 6f 74 25 3c 6c | 6f 25 2d 31 20 8c 20 f2 |. bot%<l|o%-1 . .|
|000005f0| 69 6e 74 5f 71 75 69 63 | 6b 73 6f 72 74 32 28 6c |int_quic|ksort2(l|
|00000600| 69 73 74 25 28 29 2c 70 | 6f 69 6e 74 65 72 25 28 |ist%(),p|ointer%(|
|00000610| 29 2c 62 6f 74 25 2c 6c | 6f 25 2d 31 2c 61 73 63 |),bot%,l|o%-1,asc|
|00000620| 64 25 29 0d 02 b2 47 e7 | 20 68 69 25 2b 31 3c 74 |d%)...G.| hi%+1<t|
|00000630| 6f 70 25 20 8c 20 f2 69 | 6e 74 5f 71 75 69 63 6b |op% . .i|nt_quick|
|00000640| 73 6f 72 74 32 28 6c 69 | 73 74 25 28 29 2c 70 6f |sort2(li|st%(),po|
|00000650| 69 6e 74 65 72 25 28 29 | 2c 68 69 25 2b 31 2c 74 |inter%()|,hi%+1,t|
|00000660| 6f 70 25 2c 61 73 63 64 | 25 29 0d 02 bc 05 e1 0d |op%,ascd|%)......|
|00000670| 02 c6 05 3a 0d 02 d0 38 | dd f2 73 74 72 5f 71 75 |...:...8|..str_qu|
|00000680| 69 63 6b 73 6f 72 74 32 | 28 6c 69 73 74 24 28 29 |icksort2|(list$()|
|00000690| 2c 70 6f 69 6e 74 65 72 | 25 28 29 2c 62 6f 74 25 |,pointer|%(),bot%|
|000006a0| 2c 74 6f 70 25 2c 61 73 | 63 64 25 29 0d 02 da 0d |,top%,as|cd%)....|
|000006b0| ea 20 6c 6f 25 2c 68 69 | 25 0d 02 e4 0c 6c 6f 25 |. lo%,hi|%....lo%|
|000006c0| 3d 62 6f 74 25 0d 02 ee | 0c 68 69 25 3d 74 6f 70 |=bot%...|.hi%=top|
|000006d0| 25 0d 02 f8 08 46 25 3d | b9 0d 03 02 25 f2 71 73 |%....F%=|....%.qs|
|000006e0| 5f 73 77 61 70 32 28 6c | 6f 25 2c 6c 6f 25 2d 31 |_swap2(l|o%,lo%-1|
|000006f0| 2b b3 28 68 69 25 2b 31 | 2d 6c 6f 25 29 29 0d 03 |+.(hi%+1|-lo%))..|
|00000700| 0c 05 f5 0d 03 16 0f 20 | 20 e7 20 61 73 63 64 25 |....... | . ascd%|
|00000710| 20 8c 0d 03 20 50 20 20 | 20 20 e7 20 6c 69 73 74 | ... P  |  . list|
|00000720| 24 28 70 6f 69 6e 74 65 | 72 25 28 6c 6f 25 29 29 |$(pointe|r%(lo%))|
|00000730| 3e 6c 69 73 74 24 28 70 | 6f 69 6e 74 65 72 25 28 |>list$(p|ointer%(|
|00000740| 68 69 25 29 29 20 8c 20 | f2 71 73 5f 73 77 61 70 |hi%)) . |.qs_swap|
|00000750| 32 28 6c 6f 25 2c 68 69 | 25 29 3a 46 25 3d ac 20 |2(lo%,hi|%):F%=. |
|00000760| 46 25 0d 03 2a 07 20 20 | cc 0d 03 34 50 20 20 20 |F%..*.  |...4P   |
|00000770| 20 e7 20 6c 69 73 74 24 | 28 70 6f 69 6e 74 65 72 | . list$|(pointer|
|00000780| 25 28 6c 6f 25 29 29 3c | 6c 69 73 74 24 28 70 6f |%(lo%))<|list$(po|
|00000790| 69 6e 74 65 72 25 28 68 | 69 25 29 29 20 8c 20 f2 |inter%(h|i%)) . .|
|000007a0| 71 73 5f 73 77 61 70 32 | 28 6c 6f 25 2c 68 69 25 |qs_swap2|(lo%,hi%|
|000007b0| 29 3a 46 25 3d ac 20 46 | 25 0d 03 3e 07 20 20 cd |):F%=. F|%..>.  .|
|000007c0| 0d 03 48 22 20 20 e7 20 | 46 25 20 8c 20 68 69 25 |..H"  . |F% . hi%|
|000007d0| 3d 68 69 25 2d 31 20 8b | 20 6c 6f 25 3d 6c 6f 25 |=hi%-1 .| lo%=lo%|
|000007e0| 2b 31 0d 03 52 0d fd 20 | 6c 6f 25 3d 68 69 25 0d |+1..R.. |lo%=hi%.|
|000007f0| 03 5c 47 e7 20 62 6f 74 | 25 3c 6c 6f 25 2d 31 20 |.\G. bot|%<lo%-1 |
|00000800| 8c 20 f2 73 74 72 5f 71 | 75 69 63 6b 73 6f 72 74 |. .str_q|uicksort|
|00000810| 32 28 6c 69 73 74 24 28 | 29 2c 70 6f 69 6e 74 65 |2(list$(|),pointe|
|00000820| 72 25 28 29 2c 62 6f 74 | 25 2c 6c 6f 25 2d 31 2c |r%(),bot|%,lo%-1,|
|00000830| 61 73 63 64 25 29 0d 03 | 66 47 e7 20 68 69 25 2b |ascd%)..|fG. hi%+|
|00000840| 31 3c 74 6f 70 25 20 8c | 20 f2 73 74 72 5f 71 75 |1<top% .| .str_qu|
|00000850| 69 63 6b 73 6f 72 74 32 | 28 6c 69 73 74 24 28 29 |icksort2|(list$()|
|00000860| 2c 70 6f 69 6e 74 65 72 | 25 28 29 2c 68 69 25 2b |,pointer|%(),hi%+|
|00000870| 31 2c 74 6f 70 25 2c 61 | 73 63 64 25 29 0d 03 70 |1,top%,a|scd%)..p|
|00000880| 05 e1 0d 03 7a 05 3a 0d | 03 84 17 dd f2 71 73 5f |....z.:.|.....qs_|
|00000890| 73 77 61 70 31 28 6c 6f | 25 2c 68 69 25 29 0d 03 |swap1(lo|%,hi%)..|
|000008a0| 8e 14 74 65 6d 70 25 3d | 6c 69 73 74 25 28 6c 6f |..temp%=|list%(lo|
|000008b0| 25 29 0d 03 98 19 6c 69 | 73 74 25 28 6c 6f 25 29 |%)....li|st%(lo%)|
|000008c0| 3d 6c 69 73 74 25 28 68 | 69 25 29 0d 03 a2 14 6c |=list%(h|i%)....l|
|000008d0| 69 73 74 25 28 68 69 25 | 29 3d 74 65 6d 70 25 0d |ist%(hi%|)=temp%.|
|000008e0| 03 ac 05 e1 0d 03 b6 05 | 3a 0d 03 c0 17 dd f2 71 |........|:......q|
|000008f0| 73 5f 73 77 61 70 32 28 | 6c 6f 25 2c 68 69 25 29 |s_swap2(|lo%,hi%)|
|00000900| 0d 03 ca 17 74 65 6d 70 | 25 3d 70 6f 69 6e 74 65 |....temp|%=pointe|
|00000910| 72 25 28 6c 6f 25 29 0d | 03 d4 1f 70 6f 69 6e 74 |r%(lo%).|...point|
|00000920| 65 72 25 28 6c 6f 25 29 | 3d 70 6f 69 6e 74 65 72 |er%(lo%)|=pointer|
|00000930| 25 28 68 69 25 29 0d 03 | de 17 70 6f 69 6e 74 65 |%(hi%)..|..pointe|
|00000940| 72 25 28 68 69 25 29 3d | 74 65 6d 70 25 0d 03 e8 |r%(hi%)=|temp%...|
|00000950| 05 e1 0d 03 f2 05 3a 0d | 03 fc 05 3a 0d 04 06 12 |......:.|...:....|
|00000960| dd f2 68 65 6c 70 5f 73 | 6f 72 74 6c 69 62 0d 04 |..help_s|ortlib..|
|00000970| 10 05 f1 0d 04 1a 2c f1 | 22 20 31 29 2e 20 44 45 |......,.|" 1). DE|
|00000980| 46 50 52 4f 43 69 6e 74 | 5f 71 75 69 63 6b 73 6f |FPROCint|_quickso|
|00000990| 72 74 31 5f 64 65 6d 6f | 28 66 6c 61 67 29 22 0d |rt1_demo|(flag)".|
|000009a0| 04 24 48 f1 22 20 20 20 | 20 20 20 20 43 72 65 61 |.$H."   |    Crea|
|000009b0| 74 65 73 20 61 20 6c 69 | 73 74 20 6f 66 20 31 30 |tes a li|st of 10|
|000009c0| 30 20 72 61 6e 64 6f 6d | 20 69 6e 74 65 67 65 72 |0 random| integer|
|000009d0| 73 20 61 6e 64 20 71 75 | 69 63 6b 73 6f 72 74 73 |s and qu|icksorts|
|000009e0| 20 74 68 65 6d 2e 22 0d | 04 2e 49 f1 22 20 20 20 | them.".|..I."   |
|000009f0| 20 20 20 20 49 66 20 66 | 6c 61 67 20 69 73 20 54 |    If f|lag is T|
|00000a00| 52 55 45 20 73 6f 72 74 | 20 69 73 20 61 73 63 65 |RUE sort| is asce|
|00000a10| 6e 64 69 6e 67 2c 20 65 | 6c 73 65 20 73 6f 72 74 |nding, e|lse sort|
|00000a20| 20 69 73 20 64 65 73 63 | 65 6e 64 69 6e 67 2e 22 | is desc|ending."|
|00000a30| 0d 04 38 2c f1 22 20 32 | 29 2e 20 44 45 46 50 52 |..8,." 2|). DEFPR|
|00000a40| 4f 43 69 6e 74 5f 71 75 | 69 63 6b 73 6f 72 74 32 |OCint_qu|icksort2|
|00000a50| 5f 64 65 6d 6f 28 66 6c | 61 67 29 22 0d 04 42 48 |_demo(fl|ag)"..BH|
|00000a60| f1 22 20 20 20 20 20 20 | 20 43 72 65 61 74 65 73 |."      | Creates|
|00000a70| 20 61 20 6c 69 73 74 20 | 6f 66 20 31 30 30 20 72 | a list |of 100 r|
|00000a80| 61 6e 64 6f 6d 20 69 6e | 74 65 67 65 72 73 20 61 |andom in|tegers a|
|00000a90| 6e 64 20 71 75 69 63 6b | 73 6f 72 74 73 20 74 68 |nd quick|sorts th|
|00000aa0| 65 6d 2e 22 0d 04 4c 49 | f1 22 20 20 20 20 20 20 |em."..LI|."      |
|00000ab0| 20 49 66 20 66 6c 61 67 | 20 69 73 20 54 52 55 45 | If flag| is TRUE|
|00000ac0| 20 73 6f 72 74 20 69 73 | 20 61 73 63 65 6e 64 69 | sort is| ascendi|
|00000ad0| 6e 67 2c 20 65 6c 73 65 | 20 73 6f 72 74 20 69 73 |ng, else| sort is|
|00000ae0| 20 64 65 73 63 65 6e 64 | 69 6e 67 2e 22 0d 04 56 | descend|ing."..V|
|00000af0| 3a f1 22 20 33 29 2e 20 | 44 45 46 50 52 4f 43 69 |:." 3). |DEFPROCi|
|00000b00| 6e 74 5f 71 75 69 63 6b | 73 6f 72 74 31 28 6c 69 |nt_quick|sort1(li|
|00000b10| 73 74 25 28 29 2c 62 6f | 74 25 2c 74 6f 70 25 2c |st%(),bo|t%,top%,|
|00000b20| 61 73 63 64 25 29 22 0d | 04 60 42 f1 22 20 20 20 |ascd%)".|.`B."   |
|00000b30| 20 20 20 20 51 75 69 63 | 6b 73 6f 72 74 20 72 6f |    Quic|ksort ro|
|00000b40| 75 74 69 6e 65 2e 20 6c | 69 73 74 25 28 29 20 69 |utine. l|ist%() i|
|00000b50| 73 20 69 6e 74 65 67 65 | 72 20 61 72 72 61 79 20 |s intege|r array |
|00000b60| 74 6f 20 73 6f 72 74 2c | 22 0d 04 6a 47 f1 22 20 |to sort,|"..jG." |
|00000b70| 20 20 20 20 20 20 62 6f | 74 25 3d 6c 6f 77 65 73 |      bo|t%=lowes|
|00000b80| 74 20 61 72 72 61 79 20 | 65 6c 65 6d 65 6e 74 20 |t array |element |
|00000b90| 74 6f 20 73 6f 72 74 20 | 61 6e 64 20 74 6f 70 25 |to sort |and top%|
|00000ba0| 20 69 73 20 74 68 65 20 | 68 69 67 68 65 73 74 22 | is the |highest"|
|00000bb0| 0d 04 74 47 f1 22 20 20 | 20 20 20 20 20 65 6c 65 |..tG."  |     ele|
|00000bc0| 6d 65 6e 74 20 74 6f 20 | 73 6f 72 74 20 28 61 72 |ment to |sort (ar|
|00000bd0| 72 61 79 20 65 6c 65 6d | 65 6e 74 73 20 61 72 65 |ray elem|ents are|
|00000be0| 20 72 65 61 72 72 61 6e | 67 65 64 29 2e 20 49 66 | rearran|ged). If|
|00000bf0| 20 61 73 63 64 25 22 0d | 04 7e 28 f1 22 20 20 20 | ascd%".|.~(."   |
|00000c00| 20 20 20 20 69 73 20 54 | 52 55 45 20 73 6f 72 74 |    is T|RUE sort|
|00000c10| 20 69 73 20 61 73 63 65 | 6e 64 69 6e 67 2e 22 0d | is asce|nding.".|
|00000c20| 04 88 3f f1 22 20 34 29 | 2e 20 44 45 46 50 52 4f |..?." 4)|. DEFPRO|
|00000c30| 43 69 6e 74 5f 71 75 69 | 63 6b 73 6f 72 74 32 28 |Cint_qui|cksort2(|
|00000c40| 6c 69 73 74 25 28 29 2c | 70 6f 69 6e 74 65 72 25 |list%(),|pointer%|
|00000c50| 28 29 2c 62 6f 74 25 2c | 74 6f 70 25 29 22 0d 04 |(),bot%,|top%)"..|
|00000c60| 92 42 f1 22 20 20 20 20 | 20 20 20 51 75 69 63 6b |.B."    |   Quick|
|00000c70| 73 6f 72 74 20 72 6f 75 | 74 69 6e 65 2e 20 6c 69 |sort rou|tine. li|
|00000c80| 73 74 25 28 29 20 69 73 | 20 69 6e 74 65 67 65 72 |st%() is| integer|
|00000c90| 20 61 72 72 61 79 20 74 | 6f 20 73 6f 72 74 2c 22 | array t|o sort,"|
|00000ca0| 0d 04 9c 48 f1 22 20 20 | 20 20 20 20 20 70 6f 69 |...H."  |     poi|
|00000cb0| 6e 74 65 72 25 28 29 20 | 69 73 20 61 72 72 61 79 |nter%() |is array|
|00000cc0| 20 6f 66 20 69 6e 74 65 | 67 65 72 20 70 6f 69 6e | of inte|ger poin|
|00000cd0| 74 65 72 73 2c 20 62 6f | 74 25 3d 6c 6f 77 65 73 |ters, bo|t%=lowes|
|00000ce0| 74 20 61 72 72 61 79 22 | 0d 04 a6 46 f1 22 20 20 |t array"|...F."  |
|00000cf0| 20 20 20 20 20 65 6c 65 | 6d 65 6e 74 20 74 6f 20 |     ele|ment to |
|00000d00| 73 6f 72 74 20 61 6e 64 | 20 74 6f 70 25 20 69 73 |sort and| top% is|
|00000d10| 20 74 68 65 20 68 69 67 | 68 65 73 74 20 65 6c 65 | the hig|hest ele|
|00000d20| 6d 65 6e 74 20 74 6f 20 | 73 6f 72 74 2e 22 0d 04 |ment to |sort."..|
|00000d30| b0 42 f1 22 20 20 20 20 | 20 20 20 6c 69 73 74 25 |.B."    |   list%|
|00000d40| 28 29 20 69 73 20 6e 6f | 74 20 72 65 61 72 72 61 |() is no|t rearra|
|00000d50| 6e 67 65 64 2e 20 49 66 | 20 61 73 63 64 25 20 69 |nged. If| ascd% i|
|00000d60| 73 20 54 52 55 45 20 73 | 6f 72 74 20 69 73 20 22 |s TRUE s|ort is "|
|00000d70| 0d 04 ba 18 f1 22 20 20 | 20 20 20 20 20 61 73 63 |....."  |     asc|
|00000d80| 65 6e 64 69 6e 67 2e 22 | 0d 04 c4 3a f1 22 20 35 |ending."|...:." 5|
|00000d90| 29 2e 20 44 45 46 50 52 | 4f 43 73 74 72 5f 71 75 |). DEFPR|OCstr_qu|
|00000da0| 69 63 6b 73 6f 72 74 31 | 28 6c 69 73 74 24 28 29 |icksort1|(list$()|
|00000db0| 2c 62 6f 74 25 2c 74 6f | 70 25 2c 61 73 63 64 25 |,bot%,to|p%,ascd%|
|00000dc0| 29 22 0d 04 ce 41 f1 22 | 20 20 20 20 20 20 20 51 |)"...A."|       Q|
|00000dd0| 75 69 63 6b 73 6f 72 74 | 20 72 6f 75 74 69 6e 65 |uicksort| routine|
|00000de0| 2e 20 6c 69 73 74 24 28 | 29 20 69 73 20 73 74 72 |. list$(|) is str|
|00000df0| 69 6e 67 20 61 72 72 61 | 79 20 74 6f 20 73 6f 72 |ing arra|y to sor|
|00000e00| 74 2c 22 0d 04 d8 47 f1 | 22 20 20 20 20 20 20 20 |t,"...G.|"       |
|00000e10| 62 6f 74 25 3d 6c 6f 77 | 65 73 74 20 61 72 72 61 |bot%=low|est arra|
|00000e20| 79 20 65 6c 65 6d 65 6e | 74 20 74 6f 20 73 6f 72 |y elemen|t to sor|
|00000e30| 74 20 61 6e 64 20 74 6f | 70 25 20 69 73 20 74 68 |t and to|p% is th|
|00000e40| 65 20 68 69 67 68 65 73 | 74 22 0d 04 e2 47 f1 22 |e highes|t"...G."|
|00000e50| 20 20 20 20 20 20 20 65 | 6c 65 6d 65 6e 74 20 74 |       e|lement t|
|00000e60| 6f 20 73 6f 72 74 20 28 | 61 72 72 61 79 20 65 6c |o sort (|array el|
|00000e70| 65 6d 65 6e 74 73 20 61 | 72 65 20 72 65 61 72 72 |ements a|re rearr|
|00000e80| 61 6e 67 65 64 29 2e 20 | 49 66 20 61 73 63 64 25 |anged). |If ascd%|
|00000e90| 22 0d 04 ec 28 f1 22 20 | 20 20 20 20 20 20 69 73 |"...(." |      is|
|00000ea0| 20 54 52 55 45 20 73 6f | 72 74 20 69 73 20 61 73 | TRUE so|rt is as|
|00000eb0| 63 65 6e 64 69 6e 67 2e | 22 0d 04 f6 3f f1 22 20 |cending.|"...?." |
|00000ec0| 36 29 2e 20 44 45 46 50 | 52 4f 43 73 74 72 5f 71 |6). DEFP|ROCstr_q|
|00000ed0| 75 69 63 6b 73 6f 72 74 | 32 28 6c 69 73 74 24 28 |uicksort|2(list$(|
|00000ee0| 29 2c 70 6f 69 6e 74 65 | 72 25 28 29 2c 62 6f 74 |),pointe|r%(),bot|
|00000ef0| 25 2c 74 6f 70 25 29 22 | 0d 05 00 41 f1 22 20 20 |%,top%)"|...A."  |
|00000f00| 20 20 20 20 20 51 75 69 | 63 6b 73 6f 72 74 20 72 |     Qui|cksort r|
|00000f10| 6f 75 74 69 6e 65 2e 20 | 6c 69 73 74 24 28 29 20 |outine. |list$() |
|00000f20| 69 73 20 73 74 72 69 6e | 67 20 61 72 72 61 79 20 |is strin|g array |
|00000f30| 74 6f 20 73 6f 72 74 2c | 22 0d 05 0a 48 f1 22 20 |to sort,|"...H." |
|00000f40| 20 20 20 20 20 20 70 6f | 69 6e 74 65 72 25 28 29 |      po|inter%()|
|00000f50| 20 69 73 20 61 72 72 61 | 79 20 6f 66 20 69 6e 74 | is arra|y of int|
|00000f60| 65 67 65 72 20 70 6f 69 | 6e 74 65 72 73 2c 20 62 |eger poi|nters, b|
|00000f70| 6f 74 25 3d 6c 6f 77 65 | 73 74 20 61 72 72 61 79 |ot%=lowe|st array|
|00000f80| 22 0d 05 14 46 f1 22 20 | 20 20 20 20 20 20 65 6c |"...F." |      el|
|00000f90| 65 6d 65 6e 74 20 74 6f | 20 73 6f 72 74 20 61 6e |ement to| sort an|
|00000fa0| 64 20 74 6f 70 25 20 69 | 73 20 74 68 65 20 68 69 |d top% i|s the hi|
|00000fb0| 67 68 65 73 74 20 65 6c | 65 6d 65 6e 74 20 74 6f |ghest el|ement to|
|00000fc0| 20 73 6f 72 74 2e 22 0d | 05 1e 42 f1 22 20 20 20 | sort.".|..B."   |
|00000fd0| 20 20 20 20 6c 69 73 74 | 24 28 29 20 69 73 20 6e |    list|$() is n|
|00000fe0| 6f 74 20 72 65 61 72 72 | 61 6e 67 65 64 2e 20 49 |ot rearr|anged. I|
|00000ff0| 66 20 61 73 63 64 25 20 | 69 73 20 54 52 55 45 20 |f ascd% |is TRUE |
|00001000| 73 6f 72 74 20 69 73 20 | 22 0d 05 28 18 f1 22 20 |sort is |"..(.." |
|00001010| 20 20 20 20 20 20 61 73 | 63 65 6e 64 69 6e 67 2e |      as|cending.|
|00001020| 22 0d 05 32 05 e1 0d 05 | 3c 05 3a 0d ff          |"..2....|<.:..   |
+--------+-------------------------+-------------------------+--------+--------+