00000000: 01 1C 1D 1C 0A 00 FE 11 22 31 32 38 20 51 55 49 |........"128 QUI|
00000010: 43 4B 53 4F 52 54 22 2C 50 34 38 36 34 00 4D 1C |CKSORT",P4864.M.|
00000020: 14 00 99 22 93 11 05 48 4F 57 20 4D 41 4E 59 20 |..."...HOW MANY |
00000030: 52 41 4E 44 4F 4D 20 53 54 52 49 4E 47 53 20 54 |RANDOM STRINGS T|
00000040: 4F 20 43 52 45 41 54 45 22 3A 85 20 4E 00 87 1C |O CREATE":. N...|
00000050: 1E 00 86 20 41 24 28 4E 29 3A 99 22 93 11 43 52 |... A$(N):."..CR|
00000060: 45 41 54 49 4E 47 22 4E 22 52 41 4E 44 4F 4D 20 |EATING"N"RANDOM |
00000070: 53 54 52 49 4E 47 53 22 3A 53 44 B2 AB 54 49 3A |STRINGS":SD..TI:|
00000080: 41 B2 BB 28 53 44 29 00 BA 1C 28 00 81 49 B2 31 |A..(SD)...(..I.1|
00000090: A4 4E 3A 99 49 3B C7 28 31 34 35 29 3A 4E 31 B2 |.N:.I;.(145):N1.|
000000A0: B5 28 BB 28 31 29 AC 31 30 AA 31 29 3A 41 24 B2 |.(.(1).10.1):A$.|
000000B0: 22 22 3A 81 4A B2 31 A4 4E 31 00 E8 1C 32 00 42 |"":.J.1.N1...2.B|
000000C0: 24 B2 C7 28 B5 28 BB 28 31 29 AC 32 36 AA 36 35 |$..(.(.(1).26.65|
000000D0: 29 29 3A 41 24 B2 41 24 AA 42 24 3A 82 3A 41 24 |)):A$.A$.B$:.:A$|
000000E0: 28 49 29 B2 41 24 3A 82 00 13 1D 3C 00 99 22 11 |(I).A$:....<..".|
000000F0: 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |.PRESS ANY KEY T|
00000100: 4F 20 53 54 41 52 54 20 53 4F 52 54 22 3A A1 F9 |O START SORT":..|
00000110: 20 41 24 00 47 1D 46 00 FE 25 3A 54 31 B2 54 49 | A$.G.F..%:T1.TI|
00000120: 3A 9E 34 38 36 34 2C 2C 2C 2C 2C 4E 2C 41 24 28 |:.4864,,,,,N,A$(|
00000130: 31 29 3A 54 32 B2 54 49 3A 99 22 93 11 44 4F 4E |1):T2.TI:."..DON|
00000140: 45 11 11 22 3A FE 26 00 75 1D 50 00 8B C2 28 32 |E..":.&.u.P...(2|
00000150: 35 30 29 B3 B1 30 A7 99 22 4E 4F 54 20 45 4E 4F |50)..0.."NOT ENO|
00000160: 55 47 48 20 4D 45 4D 4F 52 59 20 54 4F 20 53 4F |UGH MEMORY TO SO|
00000170: 52 54 22 3A 80 00 B5 1D 5A 00 4D 54 24 B2 C4 28 |RT":....Z.MT$..(|
00000180: 28 54 32 AB 54 31 29 AD 36 30 29 3A 99 20 4E 22 |(T2.T1).60):. N"|
00000190: 45 4C 45 4D 45 4E 54 53 20 53 4F 52 54 45 44 20 |ELEMENTS SORTED |
000001A0: 49 4E 22 C8 28 4D 54 24 2C 36 29 22 20 53 45 43 |IN".(MT$,6)" SEC|
000001B0: 4F 4E 44 53 22 00 F3 1D 64 00 99 22 11 11 50 52 |ONDS"...d.."..PR|
000001C0: 45 53 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 20 |ESS ANY KEY FOR |
000001D0: 53 4F 52 54 45 44 20 4C 49 53 54 11 22 3A A1 F9 |SORTED LIST.":..|
000001E0: 20 41 24 3A 81 49 B2 31 A4 4E 3A 99 41 24 28 49 | A$:.I.1.N:.A$(I|
000001F0: 29 3A 82 00 00 00 |):.... |
........"128 QUICKSORT",P4864.M...."...H
OW MANY RANDOM STRINGS TO CREATE":. N...
... A$(N):."..CREATING"N"RANDOM STRINGS"
:SD..TI:A..(SD)...(..I.1.N:.I;G(145):N1.
.(.(1).10.1):A$."":.J.1.N1...2.B$.G(.(.(
1).26.65)):A$.A$.B$:.:A$(I).A$:....<..".
.PRESS ANY KEY TO START SORT":.. A$.G.F.
.%:T1.TI:.4864,,,,,N,A$(1):T2.TI:."..DON
E..":.&.U.P..B(250)..0.."NOT ENOUGH MEMO
RY TO SORT":....Z.MT$.D((T2.T1).60):. N"
ELEMENTS SORTED IN"H(MT$,6)" SECONDS"...
D.."..PRESS ANY KEY FOR SORTED LIST.":..
A$:.I.1.N:.A$(I):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL