00000000: 49 02 80 02 A9 02 00 0A 18 00 50 52 4F 47 52 41 |I.........PROGRA|
00000010: 4D 3A 20 51 55 49 43 4B 53 4F 52 54 2F 2F 00 14 |M: QUICKSORT//..|
00000020: 22 00 41 46 54 45 52 20 4E 2E 20 57 49 52 54 48 |".AFTER N. WIRTH|
00000030: 3A 20 41 4C 47 4F 52 49 54 48 4D 53 2E 2E 2F 2F |: ALGORITHMS..//|
00000040: 00 1E 21 00 49 4D 50 4C 45 4D 45 4E 54 45 44 20 |..!.IMPLEMENTED |
00000050: 49 4E 20 43 42 4D 20 43 4F 4D 41 4C 2D 38 30 2F |IN CBM COMAL-80/|
00000060: 2F 00 28 26 00 42 59 20 42 4F 52 47 45 20 52 2E |/.(&.BY BORGE R.|
00000070: 20 43 48 52 49 53 54 45 4E 53 45 4E 2C 20 4E 4F | CHRISTENSEN, NO|
00000080: 56 2E 20 38 30 2F 2F 00 32 04 00 00 3C 0D 70 01 |V. 80//.2...<.p.|
00000090: F8 6D 02 72 02 72 03 7B 00 46 0E 07 04 04 02 3A |.m.r.r.{.F.....:|
000000A0: 07 05 04 03 3A 42 00 50 13 07 06 0A 07 04 02 04 |....:B.P........|
000000B0: 03 27 47 02 00 02 25 13 3A 00 5A 04 95 00 64 14 |.'G...%.:.Z...d.|
000000C0: 97 0A 07 07 04 16 04 06 2A 99 07 04 02 00 01 3D |........*......=|
000000D0: 9A 00 6E 14 97 04 06 0A 07 07 05 16 2A 99 07 05 |..n.........*...|
000000E0: 02 00 01 40 9A 00 78 0C 68 04 04 04 05 2E 69 C4 |...@..x.h.....i.|
000000F0: 6D 00 82 20 07 08 0A 07 07 04 16 3A 0A 07 07 04 |m.. .......:....|
00000100: 1C 0A 07 07 05 16 3A 42 0A 07 07 05 1C 04 08 3A |......:B.......:|
00000110: 42 00 8C 10 07 04 02 00 01 3D 07 05 02 00 01 40 |B........=.....@|
00000120: 42 00 96 04 6F 00 A0 0C DA 04 04 04 05 30 96 5C |B...o........0.\|
00000130: 6D 00 AA 12 68 04 02 04 05 2A 6A 7F 01 07 02 10 |m...h....*j.....|
00000140: 07 05 16 00 B4 12 68 04 04 04 03 2A 6A 7F 01 07 |......h....*j...|
00000150: 04 10 07 03 16 00 BE 05 7D 01 00 C8 04 00 00 D2 |........}.......|
00000160: 34 B5 03 29 4E 55 4D 42 45 52 20 4F 46 20 45 4C |4..)NUMBER OF EL|
00000170: 45 4D 45 4E 54 53 20 54 4F 20 47 45 4E 45 52 41 |EMENTS TO GENERA|
00000180: 54 45 20 41 4E 44 20 53 4F 52 54 3A 20 B7 07 09 |TE AND SORT: ...|
00000190: B8 BB 00 DC 0A 8C 8D 07 01 04 09 92 00 E6 2B 82 |..............+.|
000001A0: 04 0F 00 02 00 01 84 04 09 85 88 0A 07 07 04 1C |................|
000001B0: 04 09 02 00 04 04 09 24 55 54 3A 89 00 47 45 4E |.......$UT:..GEN|
000001C0: 45 52 41 54 45 2F 2F 00 F0 1A 7F 0A 03 12 47 45 |ERATE//.......GE|
000001D0: 4E 45 52 41 54 45 44 20 53 45 51 55 45 4E 43 45 |NERATED SEQUENCE|
000001E0: 15 00 FA 0C 7F 01 02 00 01 0D 07 09 16 01 04 17 |................|
000001F0: 7F 0A 03 0F 53 4F 52 54 45 44 20 53 45 51 55 45 |....SORTED SEQUE|
00000200: 4E 43 45 15 01 0E 04 00 01 18 0B 70 0A E9 6E 01 |NCE........p..n.|
00000210: 74 0B 7B 01 22 06 5F 60 61 01 2C 0E 5F 06 0B 65 |t.{."._`a.,._..e|
00000220: 66 03 01 3A 65 60 61 01 36 19 82 04 0F 00 02 00 |f..:e`a.6.......|
00000230: 01 84 04 09 85 88 5F 0A 07 07 04 16 64 67 61 89 |......_.....dga.|
00000240: 01 40 06 5F 60 61 01 4A 05 7D 0A 01 54 04 00 14 |.@._`a.J.}..T...|
00000250: 2E 6D 00 00 00 00 00 00 00 00 00 00 00 00 10 8B |.m..............|
00000260: 7F 00 00 10 86 7F 00 00 10 81 7F 00 00 90 F4 7F |................|
00000270: 00 00 10 7C 7F 00 00 10 FB 7F 00 00 14 AB 6E 00 |...|..........n.|
00000280: 00 00 00 00 00 00 09 51 55 49 43 4B 53 4F 52 54 |.......QUICKSORT|
00000290: 01 4C 01 52 01 49 01 4A 01 58 01 41 01 57 01 4E |.L.R.I.J.X.A.W.N|
000002A0: 08 50 52 49 4E 54 4F 55 54 04 54 45 58 54 00 00 |.PRINTOUT.TEXT..|
I.........PROGRAM: QUICKSORT//..".AFTER
N. WIRTH: ALGORITHMS..//..!.IMPLEMENTED
IN CBM COMAL-80//.(&.BY BORGE R. CHRISTE
NSEN, NOV. 80//.2...<.P..M.R.R.{.F.....:
....:B.P.........'G...%.:.Z...D.........
*......=..N.........*......@..X.H.....ID
M.. .......:..........:B.......:B.......
.=.....@B...O. .Z....0.\M...H....*J....
......H....*J..........}..H...R4..)NUMB
ER OF ELEMENTS TO GENERATE AND SORT: ...
..............+........................$
UT:..GENERATE//......GENERATED SEQUENCE
..................SORTED SEQUENCE.....
...P..N.T.{."._`A.,._..EF..:E`A.6.......
......_.....DGA..@._`A.J.}..T....M......
.......................|........N.
.......QUICKSORT.L.R.I.J.X.A.W.N.PRINTOU
T.TEXT..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL