00000000: 01 08 28 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 0C 00 8F 20 20 |********.O.... |
00000030: 20 20 42 55 42 42 4C 45 20 53 4F 52 54 20 20 53 | BUBBLE SORT S|
00000040: 54 52 49 4E 47 20 41 52 52 41 59 20 20 20 2A 00 |TRING ARRAY *.|
00000050: 76 08 0E 00 8F 20 20 20 20 20 20 20 20 20 20 4D |v.... M|
00000060: 45 54 20 4D 54 20 52 4F 55 54 49 4E 45 20 20 20 |ET MT ROUTINE |
00000070: 20 20 20 20 20 2A 00 9D 08 10 00 8F 20 55 49 54 | *...... UIT|
00000080: 3A 41 44 56 2E 4D 43 20 50 52 4F 47 20 46 4F 52 |:ADV.MC PROG FOR|
00000090: 20 43 36 34 20 20 50 31 31 30 20 20 2A 00 C4 08 | C64 P110 *...|
000000A0: 12 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 00 E1 08 14 00 81 41 B2 34 39 31 35 |****......A.4915|
000000D0: 32 A4 34 39 33 31 30 3A 87 58 3A 97 41 2C 58 3A |2.49310:.X:.A,X:|
000000E0: 82 00 0D 09 19 00 99 22 93 11 20 44 49 54 20 50 |.......".. DIT P|
000000F0: 52 47 20 4D 41 41 4B 54 20 45 45 4E 20 52 41 4E |RG MAAKT EEN RAN|
00000100: 44 4F 4D 20 41 52 52 41 59 20 56 41 4E 00 3B 09 |DOM ARRAY VAN.;.|
00000110: 1E 00 99 22 20 42 41 53 49 43 20 53 54 52 49 4E |..." BASIC STRIN|
00000120: 47 53 2C 20 45 4E 20 5A 45 54 20 44 49 54 20 4F |GS, EN ZET DIT O|
00000130: 50 20 56 4F 4C 47 4F 52 44 45 2E 00 5F 09 23 00 |P VOLGORDE.._.#.|
00000140: 85 22 11 20 47 45 45 46 20 48 45 54 20 41 41 4E |.". GEEF HET AAN|
00000150: 54 41 4C 20 53 54 52 49 4E 47 53 22 3B 42 25 00 |TAL STRINGS";B%.|
00000160: 6B 09 32 00 86 41 24 28 42 25 29 00 77 09 3C 00 |k.2..A$(B%).w.<.|
00000170: 81 4E B2 31 A4 42 25 00 81 09 46 00 42 24 B2 22 |.N.1.B%...F.B$."|
00000180: 22 00 92 09 4B 00 41 25 B2 31 30 AC BB 28 31 29 |"...K.A%.10..(1)|
00000190: AA 31 00 9E 09 50 00 81 5A B2 31 A4 41 25 00 AD |.1...P..Z.1.A%..|
000001A0: 09 55 00 52 25 B2 32 36 AC BB 28 31 29 00 BD 09 |.U.R%.26..(1)...|
000001B0: 5A 00 4B 24 B2 C7 28 52 25 AA 36 35 29 00 CA 09 |Z.K$..(R%.65)...|
000001C0: 5F 00 42 24 B2 42 24 AA 4B 24 00 D0 09 61 00 82 |_.B$.B$.K$...a..|
000001D0: 00 DD 09 62 00 41 24 28 4E 29 B2 42 24 00 EC 09 |...b.A$(N).B$...|
000001E0: 63 00 99 22 13 11 11 11 11 11 22 4E 00 F2 09 64 |c.."......"N...d|
000001F0: 00 82 00 07 0A 69 00 99 3A 99 22 53 4F 52 54 49 |.....i..:."SORTI|
00000200: 4E 47 2E 2E 2E 2E 22 00 16 0A 78 00 48 42 25 B2 |NG...."...x.HB%.|
00000210: 42 25 AD 32 35 36 00 2B 0A 82 00 4C 42 25 B2 42 |B%.256.+...LB%.B|
00000220: 25 AB 28 48 42 25 AC 32 35 36 29 00 38 0A 96 00 |%.(HB%.256).8...|
00000230: 97 32 35 31 2C 4C 42 25 00 45 0A A0 00 97 32 35 |.251,LB%.E....25|
00000240: 32 2C 48 42 25 00 5D 0A AA 00 8F 20 43 41 4C 4C |2,HB%.].... CALL|
00000250: 20 53 4F 52 54 20 52 4F 55 54 49 4E 45 00 6E 0A | SORT ROUTINE.n.|
00000260: B4 00 54 49 24 B2 22 30 30 30 30 30 30 22 00 79 |..TI$."000000".y|
00000270: 0A BE 00 9E 34 39 31 35 32 00 88 0A C8 00 54 B2 |....49152.....T.|
00000280: 54 49 AD 36 30 AA 2E 35 00 A3 0A D2 00 8F 20 44 |TI.60..5...... D|
00000290: 49 53 50 4C 41 59 20 53 4F 52 54 45 44 20 41 52 |ISPLAY SORTED AR|
000002A0: 52 41 59 00 AF 0A DC 00 81 4E B2 31 A4 42 25 00 |RAY......N.1.B%.|
000002B0: BA 0A E6 00 99 41 24 28 4E 29 00 C0 0A F0 00 82 |.....A$(N)......|
000002C0: 00 E6 0A FA 00 99 22 53 4F 52 54 45 44 22 42 25 |......"SORTED"B%|
000002D0: 22 53 54 52 49 4E 47 53 20 49 4E 22 54 22 53 45 |"STRINGS IN"T"SE|
000002E0: 43 4F 4E 44 53 22 00 24 0B 11 27 83 20 35 36 2C |CONDS".$..'. 56,|
000002F0: 31 36 35 2C 32 35 31 2C 32 33 33 2C 31 2C 31 33 |165,251,233,1,13|
00000300: 33 2C 32 35 31 2C 31 37 36 2C 32 2C 31 39 38 2C |3,251,176,2,198,|
00000310: 32 35 32 2C 32 34 2C 31 36 35 2C 34 37 2C 31 30 |252,24,165,47,10|
00000320: 35 2C 31 30 00 63 0B 12 27 83 20 31 33 33 2C 38 |5,10.c..'. 133,8|
00000330: 39 2C 31 36 35 2C 34 38 2C 31 30 35 2C 30 2C 31 |9,165,48,105,0,1|
00000340: 33 33 2C 39 30 2C 31 36 39 2C 30 2C 31 33 33 2C |33,90,169,0,133,|
00000350: 32 35 35 2C 31 33 33 2C 32 35 33 2C 31 33 33 2C |255,133,253,133,|
00000360: 32 35 34 00 9F 0B 13 27 83 20 31 36 35 2C 39 30 |254....'. 165,90|
00000370: 2C 31 33 33 2C 38 38 2C 31 36 35 2C 38 39 2C 31 |,133,88,165,89,1|
00000380: 33 33 2C 38 37 2C 32 34 2C 31 30 35 2C 33 2C 31 |33,87,24,105,3,1|
00000390: 33 33 2C 38 39 2C 31 34 34 2C 32 2C 32 33 30 00 |33,89,144,2,230.|
000003A0: DC 0B 14 27 83 20 39 30 2C 31 36 30 2C 30 2C 31 |...'. 90,160,0,1|
000003B0: 37 37 2C 38 37 2C 31 33 33 2C 39 35 2C 31 37 37 |77,87,133,95,177|
000003C0: 2C 38 39 2C 31 33 33 2C 39 36 2C 32 30 30 2C 31 |,89,133,96,200,1|
000003D0: 37 37 2C 38 37 2C 31 33 33 2C 39 31 00 1A 0C 15 |77,87,133,91....|
000003E0: 27 83 20 31 37 37 2C 38 39 2C 31 33 33 2C 39 33 |'. 177,89,133,93|
000003F0: 2C 32 30 30 2C 31 37 37 2C 38 37 2C 31 33 33 2C |,200,177,87,133,|
00000400: 39 32 2C 31 37 37 2C 38 39 2C 31 33 33 2C 39 34 |92,177,89,133,94|
00000410: 2C 31 36 30 2C 30 2C 31 37 37 00 57 0C 16 27 83 |,160,0,177.W..'.|
00000420: 20 39 33 2C 32 30 39 2C 39 31 2C 31 34 34 2C 31 | 93,209,91,144,1|
00000430: 35 2C 32 30 38 2C 33 30 2C 32 30 30 2C 31 39 36 |5,208,30,200,196|
00000440: 2C 39 35 2C 32 34 30 2C 32 35 2C 31 39 36 2C 39 |,95,240,25,196,9|
00000450: 36 2C 32 34 30 2C 34 00 98 0C 17 27 83 20 32 30 |6,240,4....'. 20|
00000460: 38 2C 32 33 37 2C 32 30 38 2C 31 36 37 2C 31 36 |8,237,208,167,16|
00000470: 30 2C 32 2C 31 33 32 2C 32 35 35 2C 31 37 37 2C |0,2,132,255,177,|
00000480: 38 37 2C 31 37 30 2C 31 37 37 2C 38 39 2C 31 34 |87,170,177,89,14|
00000490: 35 2C 38 37 2C 31 33 38 00 DA 0C 18 27 83 20 31 |5,87,138....'. 1|
000004A0: 34 35 2C 38 39 2C 31 33 36 2C 31 36 2C 32 34 33 |45,89,136,16,243|
000004B0: 2C 32 33 30 2C 32 35 33 2C 32 30 38 2C 32 2C 32 |,230,253,208,2,2|
000004C0: 33 30 2C 32 35 34 2C 31 36 35 2C 32 35 33 2C 31 |30,254,165,253,1|
000004D0: 39 37 2C 32 35 31 2C 32 30 38 00 1C 0D 19 27 83 |97,251,208....'.|
000004E0: 20 31 35 39 2C 31 36 35 2C 32 35 34 2C 31 39 37 | 159,165,254,197|
000004F0: 2C 32 35 32 2C 32 30 38 2C 31 35 33 2C 31 36 35 |,252,208,153,165|
00000500: 2C 32 35 35 2C 32 34 30 2C 31 39 2C 31 36 35 2C |,255,240,19,165,|
00000510: 32 35 31 2C 35 36 2C 32 33 33 2C 31 00 5B 0D 1A |251,56,233,1.[..|
00000520: 27 83 20 31 33 33 2C 32 35 31 2C 31 37 36 2C 34 |'. 133,251,176,4|
00000530: 2C 31 39 38 2C 32 35 32 2C 31 36 35 2C 32 35 31 |,198,252,165,251|
00000540: 2C 32 30 38 2C 32 30 30 2C 31 36 35 2C 32 35 32 |,208,200,165,252|
00000550: 2C 32 30 38 2C 31 39 36 2C 39 36 00 00 00 |,208,196,96... |
..(....*********************************
.O.... BUBBLE SORT STRING ARRAY *.
V.... MET MT ROUTINE *..
.... UIT:ADV.MC PROG FOR C64 P110 *.D.
...*********************************....
..A.49152.49310:.X:.A,X:.......".. DIT P
RG MAAKT EEN RANDOM ARRAY VAN.;...." BAS
IC STRINGS, EN ZET DIT OP VOLGORDE.._.#.
.". GEEF HET AANTAL STRINGS";B%.K.2..A$(
B%).W.<..N.1.B%...F.B$.""...K.A%.10..(1)
.1...P..Z.1.A%...U.R%.26..(1)...Z.K$.G(R
%.65).J._.B$.B$.K$.P.A.....B.A$(N).B$...
C.."......"N...D.....I..:."SORTING....".
..X.HB%.B%.256.+...LB%.B%.(HB%.256).8...
.251,LB%.E. ..252,HB%.].... CALL SORT RO
UTINE.N...TI$."000000".Y....49152...H.T.
TI.60..5...R.. DISPLAY SORTED ARRAY.....
.N.1.B%......A$(N)............"SORTED"B%
"STRINGS IN"T"SECONDS".$..'. 56,165,251,
233,1,133,251,176,2,198,252,24,165,47,10
5,10.C..'. 133,89,165,48,105,0,133,90,16
9,0,133,255,133,253,133,254....'. 165,90
,133,88,165,89,133,87,24,105,3,133,89,14
4,2,230....'. 90,160,0,177,87,133,95,177
,89,133,96,200,177,87,133,91....'. 177,8
9,133,93,200,177,87,133,92,177,89,133,94
,160,0,177.W..'. 93,209,91,144,15,208,30
,200,196,95,240,25,196,96,240,4....'. 20
8,237,208,167,160,2,132,255,177,87,170,1
77,89,145,87,138.Z..'. 145,89,136,16,243
,230,253,208,2,230,254,165,253,197,251,2
08....'. 159,165,254,197,252,208,153,165
,255,240,19,165,251,56,233,1.[..'. 133,2
51,176,4,198,252,165,251,208,200,165,252
,208,196,96...