QUICKSORT
FILE INFORMATION
FILENAME(S): QUICKSORT
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 16:54:36
APPEARS ON: 2 disk(s)
FILE HASH
996d3b9ab5ccc847033405ea8ca806cfca49a2fa81af22b432be722e8c40442c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 8 85 | QUICKSORT | PRG | Treasure Chest - Reamigation | 19 | 4 | DOWNLOAD FILE |
| 64 ER 8 85 | QUICKSORT | PRG | BrainSkull, Leopold Zyka, C64er | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8F 20 45 52 53 54 45 4C 4C 45 |..".... ERSTELLE| 00000010: 4E 20 45 49 4E 45 53 20 46 45 4C 44 45 53 20 5A |N EINES FELDES Z| 00000020: 55 4D 00 33 08 14 00 8F 20 53 4F 52 54 49 45 52 |UM.3.... SORTIER| 00000030: 45 4E 2E 00 56 08 1E 00 8F 20 44 41 53 20 45 52 |EN..V.... DAS ER| 00000040: 53 54 45 4C 4C 45 4E 20 4B 41 4E 4E 20 5A 55 46 |STELLEN KANN ZUF| 00000050: 41 45 4C 4C 49 47 00 79 08 28 00 8F 20 4F 44 45 |AELLIG.y.(.. ODE| 00000060: 52 20 47 45 5A 49 45 4C 54 20 28 44 55 52 43 48 |R GEZIELT (DURCH| 00000070: 20 45 49 4E 47 41 42 45 29 00 89 08 32 00 8F 20 | EINGABE)...2.. | 00000080: 45 52 46 4F 4C 47 45 4E 2E 00 8F 08 3C 00 8F 00 |ERFOLGEN....<...| 00000090: B5 08 46 00 8F 20 53 4F 52 54 49 45 52 41 4C 47 |..F.. SORTIERALG| 000000A0: 4F 52 49 54 48 4D 45 4E 20 45 52 48 41 4C 54 45 |ORITHMEN ERHALTE| 000000B0: 4E 20 44 49 45 00 DD 08 50 00 8F 20 5A 45 49 4C |N DIE...P.. ZEIL| 000000C0: 45 4E 4E 55 4D 4D 45 52 4E 20 56 4F 4E 20 31 30 |ENNUMMERN VON 10| 000000D0: 30 30 30 20 42 49 53 20 35 30 30 30 30 00 01 09 |000 BIS 50000...| 000000E0: 5A 00 8F 20 53 49 45 20 42 45 4E 4F 45 54 49 47 |Z.. SIE BENOETIG| 000000F0: 45 4E 20 4A 45 57 45 49 4C 53 20 44 49 45 53 45 |EN JEWEILS DIESE| 00000100: 4E 00 21 09 63 00 8F 20 56 4F 52 53 50 41 4E 4E |N.!.c.. VORSPANN| 00000110: 20 5A 55 52 20 41 55 53 46 55 45 48 52 55 4E 47 | ZUR AUSFUEHRUNG| 00000120: 2E 00 41 09 64 00 8F 20 48 45 52 53 54 45 4C 4C |..A.d.. HERSTELL| 00000130: 55 4E 47 20 45 49 4E 45 53 20 41 52 52 41 59 53 |UNG EINES ARRAYS| 00000140: 3A 00 5F 09 6E 00 8F 20 41 52 52 41 59 56 41 52 |:._.n.. ARRAYVAR| 00000150: 49 41 42 4C 45 20 20 20 20 20 20 2D 20 41 24 00 |IABLE - A$.| 00000160: 82 09 78 00 8F 20 53 43 48 4C 45 49 46 45 4E 56 |..x.. SCHLEIFENV| 00000170: 41 52 49 41 42 4C 45 4E 20 2D 20 58 2C 20 59 2C |ARIABLEN - X, Y,| 00000180: 20 5A 00 A8 09 82 00 8F 20 48 49 4C 46 53 56 41 | Z...... HILFSVA| 00000190: 52 49 41 42 4C 45 4E 20 20 20 20 20 2D 20 42 24 |RIABLEN - B$| 000001A0: 2C 20 43 24 2C 20 44 24 00 C6 09 8C 00 8F 20 44 |, C$, D$...... D| 000001B0: 52 45 49 45 43 4B 54 41 55 53 43 48 20 4D 49 54 |REIECKTAUSCH MIT| 000001C0: 20 20 2D 20 53 24 00 D1 09 96 00 99 22 93 22 3A | - S$......".":| 000001D0: 9C 00 04 0A A0 00 99 22 53 4F 4C 4C 20 56 4F 4E |......."SOLL VON| 000001E0: 20 12 48 92 41 4E 44 20 4F 44 45 52 20 12 5A 92 | .H.AND ODER .Z.| 000001F0: 55 46 41 45 4C 4C 49 47 20 45 52 53 54 45 4C 4C |UFAELLIG ERSTELL| 00000200: 54 22 3A 99 00 16 0A AA 00 85 22 57 45 52 44 45 |T":......."WERDE| 00000210: 4E 20 22 3B 58 24 00 2F 0A B4 00 8B 58 24 B3 B1 |N ";X$./....X$..| 00000220: 22 48 22 AF 58 24 B3 B1 22 5A 22 A7 31 35 30 00 |"H".X$.."Z".150.| 00000230: 4B 0A BE 00 8B 58 24 B2 22 48 22 A7 8D 32 32 30 |K....X$."H"..220| 00000240: 3A 8D 31 30 30 30 3A 89 32 31 30 00 5A 0A C8 00 |:.1000:.210.Z...| 00000250: 8D 32 32 30 3A 8D 32 30 30 30 00 74 0A D2 00 89 |.220:.2000.t....| 00000260: 34 30 30 30 3A 20 8F 20 57 45 49 54 45 52 4D 41 |4000: . WEITERMA| 00000270: 43 48 45 4E 00 98 0A DC 00 8F 20 41 4E 5A 41 48 |CHEN...... ANZAH| 00000280: 4C 20 44 45 52 20 45 4C 45 4D 45 4E 54 45 20 42 |L DER ELEMENTE B| 00000290: 45 53 54 49 4D 4D 45 4E 00 B8 0A E6 00 99 3A 85 |ESTIMMEN......:.| 000002A0: 22 41 4E 5A 41 48 4C 20 44 45 52 20 45 4C 45 4D |"ANZAHL DER ELEM| 000002B0: 45 4E 54 45 20 22 3B 41 00 E2 0A F0 00 8B 20 41 |ENTE ";A...... A| 000002C0: B1 31 30 30 30 30 A7 99 3A 99 22 5A 55 20 56 49 |.10000..:."ZU VI| 000002D0: 45 4C 45 20 45 4C 45 4D 45 4E 54 45 22 3A 89 32 |ELE ELEMENTE":.2| 000002E0: 33 30 00 09 0B FA 00 8B 41 B3 31 30 A7 99 3A 99 |30......A.10..:.| 000002F0: 22 5A 55 20 57 45 4E 49 47 45 20 45 4C 45 4D 45 |"ZU WENIGE ELEME| 00000300: 4E 54 45 22 3A 89 32 33 30 00 15 0B FF 00 86 20 |NTE":.230...... | 00000310: 41 24 28 41 29 00 3E 0B 04 01 85 22 11 11 12 44 |A$(A).>...."...D| 00000320: 92 52 55 43 4B 45 52 20 4F 44 45 52 20 12 42 92 |.RUCKER ODER .B.| 00000330: 49 4C 44 53 43 48 49 52 4D 20 22 3B 59 24 00 57 |ILDSCHIRM ";Y$.W| 00000340: 0B 0E 01 8B 59 24 B3 B1 22 44 22 AF 59 24 B3 B1 |....Y$.."D".Y$..| 00000350: 22 42 22 A7 32 36 30 00 6C 0B 18 01 8B 59 24 B2 |"B".260.l....Y$.| 00000360: 22 44 22 A7 44 B2 34 3A 89 33 30 30 00 74 0B 22 |"D".D.4:.300.t."| 00000370: 01 44 B2 33 00 7A 0B 2C 01 8E 00 91 0B E8 03 8F |.D.3.z.,........| 00000380: 20 45 49 4E 47 41 42 45 20 56 4F 4E 20 48 41 4E | EINGABE VON HAN| 00000390: 44 00 9A 0B F2 03 99 22 93 22 00 CF 0B FC 03 99 |D......"."......| 000003A0: 3A 99 22 53 49 45 20 4D 55 45 53 53 45 4E 20 4A |:."SIE MUESSEN J| 000003B0: 45 54 5A 54 22 41 22 20 45 4C 45 4D 45 4E 54 45 |ETZT"A" ELEMENTE| 000003C0: 20 45 49 4E 47 45 42 45 4E 21 22 3A 99 3A 99 00 | EINGEBEN!":.:..| 000003D0: FF 0B 06 04 99 22 4A 45 44 45 53 20 45 4C 45 4D |....."JEDES ELEM| 000003E0: 45 4E 54 20 42 45 53 54 45 48 54 20 41 55 53 20 |ENT BESTEHT AUS | 000003F0: 33 20 5A 45 49 43 48 45 4E 2E 22 3A 99 3A 99 00 |3 ZEICHEN.":.:..| 00000400: 0A 0C 10 04 81 58 B2 31 A4 41 00 27 0C 1A 04 99 |.....X.1.A.'....| 00000410: 58 22 2E 20 22 3B 3A 85 22 45 4C 45 4D 45 4E 54 |X". ";:."ELEMENT| 00000420: 22 3B 41 24 28 58 29 00 3D 0C 24 04 8B C3 28 41 |";A$(X).=.$...(A| 00000430: 24 28 58 29 29 B3 B1 33 A7 31 30 35 30 00 44 0C |$(X))..3.1050.D.| 00000440: 2E 04 82 58 00 4A 0C 38 04 8E 00 63 0C D0 07 8F |...X.J.8...c....| 00000450: 20 5A 55 46 41 45 4C 4C 49 47 45 20 45 49 4E 47 | ZUFAELLIGE EING| 00000460: 41 42 45 00 6C 0C DA 07 99 22 93 22 00 AC 0C E4 |ABE.l...."."....| 00000470: 07 99 3A 99 22 45 53 20 57 45 52 44 45 4E 20 4A |..:."ES WERDEN J| 00000480: 45 54 5A 54 22 41 22 20 45 4C 45 4D 45 4E 54 45 |ETZT"A" ELEMENTE| 00000490: 20 5A 55 46 41 45 4C 4C 49 47 22 3A 99 3A 99 22 | ZUFAELLIG":.:."| 000004A0: 41 55 53 47 45 57 41 45 48 4C 54 22 00 DE 0C EE |AUSGEWAEHLT"....| 000004B0: 07 99 3A 99 22 4A 45 44 45 53 20 45 4C 45 4D 45 |..:."JEDES ELEME| 000004C0: 4E 54 20 42 45 53 54 45 48 54 20 41 55 53 20 33 |NT BESTEHT AUS 3| 000004D0: 20 5A 45 49 43 48 45 4E 2E 22 3A 99 3A 99 00 E9 | ZEICHEN.":.:...| 000004E0: 0C F8 07 81 58 B2 31 A4 41 00 F6 0C 02 08 41 24 |....X.1.A.....A$| 000004F0: 28 58 29 B2 22 22 00 22 0D 0C 08 81 59 B2 31 A4 |(X).""."....Y.1.| 00000500: 33 3A 41 24 28 58 29 B2 41 24 28 58 29 AA C7 28 |3:A$(X).A$(X)..(| 00000510: B5 28 BB 28 54 49 29 AC 32 35 29 AA 36 35 29 3A |.(.(TI).25).65):| 00000520: 82 59 00 29 0D 16 08 82 58 00 2F 0D 20 08 8E 00 |.Y.)....X./. ...| 00000530: 52 0D B8 0B 8F 20 5A 57 49 53 43 48 45 4E 41 55 |R.... ZWISCHENAU| 00000540: 53 47 41 42 45 20 44 45 52 20 45 4C 45 4D 45 4E |SGABE DER ELEMEN| 00000550: 54 45 00 63 0D C2 0B 81 20 49 B2 31 A4 41 AB 39 |TE.c.... I.1.A.9| 00000560: A9 31 30 00 81 0D CC 0B 81 20 4A B2 49 A4 49 AA |.10...... J.I.I.| 00000570: 39 3A 98 31 2C 41 24 28 4A 29 22 20 22 3B 3A 82 |9:.1,A$(J)" ";:.| 00000580: 4A 00 8B 0D D6 0B 98 31 3A 82 49 00 91 0D E0 0B |J......1:.I.....| 00000590: 8E 00 A4 0D A0 0F 8F 20 57 45 49 54 45 52 4D 41 |....... WEITERMA| 000005A0: 43 48 45 4E 00 AD 0D A5 0F 9F 31 2C 44 00 D3 0D |CHEN......1,D...| 000005B0: AA 0F 99 22 93 41 55 53 47 41 42 45 20 44 45 53 |...".AUSGABE DES| 000005C0: 20 45 52 53 54 45 4C 4C 54 45 4E 20 46 45 4C 44 | ERSTELLTEN FELD| 000005D0: 45 53 22 00 D9 0D B4 0F 99 00 E3 0D BE 0F 8D 33 |ES"............3| 000005E0: 30 30 30 00 FC 0D C8 0F 8F 20 53 4F 52 54 49 45 |000...... SORTIE| 000005F0: 52 55 4E 47 20 53 54 41 52 54 45 54 00 02 0E D2 |RUNG STARTET....| 00000600: 0F 8F 00 21 0E 10 27 8F 20 53 4F 52 54 49 45 52 |...!..'. SORTIER| 00000610: 45 4E 20 44 55 52 43 48 20 5A 45 52 4C 45 47 45 |EN DURCH ZERLEGE| 00000620: 4E 00 27 0E 1A 27 8F 00 3E 0E 24 27 8F 20 20 20 |N.'..'..>.$'. | 00000630: 20 20 20 20 20 51 55 49 43 4B 53 4F 52 54 00 44 | QUICKSORT.D| 00000640: 0E 2E 27 8F 00 5C 0E 38 27 8F 20 4C 47 20 3D 20 |..'..\.8'. LG = | 00000650: 4C 49 4E 4B 45 20 47 52 45 4E 5A 45 00 75 0E 42 |LINKE GRENZE.u.B| 00000660: 27 8F 20 52 47 20 3D 20 52 45 43 48 54 45 20 47 |'. RG = RECHTE G| 00000670: 52 45 4E 5A 45 00 93 0E 4C 27 8F 20 56 47 24 20 |RENZE...L'. VG$ | 00000680: 3D 20 56 45 52 47 4C 45 49 43 48 53 45 4C 45 4D |= VERGLEICHSELEM| 00000690: 45 4E 54 00 99 0E 56 27 8F 00 B7 0E 60 27 8F 20 |ENT...V'....`'. | 000006A0: 45 49 4E 47 41 4E 47 20 44 45 53 20 48 41 55 50 |EINGANG DES HAUP| 000006B0: 54 4D 4F 44 55 4C 53 00 BD 0E 6A 27 8F 00 E6 0E |TMODULS...j'....| 000006C0: 74 27 86 4C 47 28 31 30 30 29 2C 52 47 28 31 30 |t'.LG(100),RG(10| 000006D0: 30 29 3A 5A B2 30 3A 4C 47 28 31 29 B2 31 3A 52 |0):Z.0:LG(1).1:R| 000006E0: 47 28 31 29 B2 41 00 FE 0E 7E 27 8D 31 30 32 30 |G(1).A...~'.1020| 000006F0: 30 3A 20 8F 20 51 55 49 43 4B 53 4F 52 54 00 10 |0: . QUICKSORT..| 00000700: 0F 88 27 89 35 30 30 30 30 3A 8F 20 45 4E 44 45 |..'.50000:. ENDE| 00000710: 00 33 0F D8 27 8F 20 45 49 4E 47 41 4E 47 20 44 |.3..'. EINGANG D| 00000720: 45 52 20 52 45 4B 55 52 53 49 56 53 43 48 4C 45 |ER REKURSIVSCHLE| 00000730: 49 46 45 00 51 0F E2 27 5A B2 5A AA 31 3A 8B 4C |IFE.Q..'Z.Z.1:.L| 00000740: 47 28 5A 29 B1 B2 52 47 28 5A 29 A7 31 30 33 35 |G(Z)..RG(Z).1035| 00000750: 30 00 65 0F EC 27 58 B2 4C 47 28 5A 29 3A 59 B2 |0.e..'X.LG(Z):Y.| 00000760: 52 47 28 5A 29 00 83 0F F1 27 8F 20 56 45 52 47 |RG(Z)....'. VERG| 00000770: 4C 45 49 43 48 53 45 4C 45 4D 45 4E 54 20 48 4F |LEICHSELEMENT HO| 00000780: 4C 45 4E 00 9A 0F F6 27 56 47 24 B2 41 24 28 B5 |LEN....'VG$.A$(.| 00000790: 28 28 58 AA 59 29 AD 32 29 29 00 A9 0F 00 28 8B |((X.Y).2))....(.| 000007A0: 58 B1 59 A7 31 30 33 32 30 00 C5 0F 0A 28 8B 41 |X.Y.10320....(.A| 000007B0: 24 28 58 29 B3 56 47 24 A7 58 B2 58 AA 31 3A 89 |$(X).VG$.X.X.1:.| 000007C0: 31 30 32 35 30 00 E1 0F 14 28 8B 41 24 28 59 29 |10250....(.A$(Y)| 000007D0: B1 56 47 24 A7 59 B2 59 AB 31 3A 89 31 30 32 36 |.VG$.Y.Y.1:.1026| 000007E0: 30 00 F0 0F 1E 28 8B 58 B1 59 A7 31 30 33 32 30 |0....(.X.Y.10320| 000007F0: 00 12 10 28 28 53 24 B2 41 24 28 58 29 3A 41 24 |...((S$.A$(X):A$| 00000800: 28 58 29 B2 41 24 28 59 29 3A 41 24 28 59 29 B2 |(X).A$(Y):A$(Y).| 00000810: 53 24 00 22 10 32 28 58 B2 58 AA 31 3A 59 B2 59 |S$.".2(X.X.1:Y.Y| 00000820: AB 31 00 2D 10 3C 28 89 31 30 32 34 30 00 33 10 |.1.-.<(.10240.3.| 00000830: 46 28 8F 00 3D 10 50 28 8D 33 30 30 30 00 61 10 |F(..=.P(.3000.a.| 00000840: 5A 28 52 47 28 5A AA 31 29 B2 59 3A 4C 47 28 5A |Z(RG(Z.1).Y:LG(Z| 00000850: AA 31 29 B2 4C 47 28 5A 29 3A 8D 20 31 30 32 30 |.1).LG(Z):. 1020| 00000860: 30 00 85 10 64 28 4C 47 28 5A AA 31 29 B2 58 3A |0...d(LG(Z.1).X:| 00000870: 52 47 28 5A AA 31 29 B2 52 47 28 5A 29 3A 8D 20 |RG(Z.1).RG(Z):. | 00000880: 31 30 32 30 30 00 91 10 6E 28 5A B2 5A AB 31 3A |10200...n(Z.Z.1:| 00000890: 8E 00 97 10 78 28 8F 00 AC 10 50 C3 8F 20 45 4E |....x(....P.. EN| 000008A0: 44 45 42 45 48 41 4E 44 4C 55 4E 47 00 B3 10 5A |DEBEHANDLUNG...Z| 000008B0: C3 98 31 00 BE 10 64 C3 8D 20 33 30 30 30 00 D3 |..1...d.. 3000..| 000008C0: 10 6E C3 98 31 2C 41 3B 22 20 45 4C 45 4D 45 4E |.n..1,A;" ELEMEN| 000008D0: 54 45 22 00 E0 10 78 C3 98 31 3A 98 31 3A A0 31 |TE"...x..1:.1:.1| 000008E0: 00 E6 10 82 C3 80 00 00 00 |......... |
..".... ERSTELLEN EINES FELDES ZUM.3.... SORTIEREN..V.... DAS ERSTELLEN KANN ZUF AELLIG.Y.(.. ODER GEZIELT (DURCH EINGABE )...2.. ERFOLGEN....<.....F.. SORTIERALG ORITHMEN ERHALTEN DIE...P.. ZEILENNUMMER N VON 10000 BIS 50000...Z.. SIE BENOETIG EN JEWEILS DIESEN.!.C.. VORSPANN ZUR AUS FUEHRUNG..A.D.. HERSTELLUNG EINES ARRAYS :._.N.. ARRAYVARIABLE - A$...X.. SC HLEIFENVARIABLEN - X, Y, Z...... HILFSVA RIABLEN - B$, C$, D$.F.... DREIECKTA USCH MIT - S$.Q....".":.... .."SOLL VON .H.AND ODER .Z.UFAELLIG ERSTELLT":..... .."WERDEN ";X$./....X$.."H".X$.."Z".150. K....X$."H"..220:.1000:.210.Z.H..220:.20 00.T.R..4000: . WEITERMACHEN...... ANZAH L DER ELEMENTE BESTIMMEN......:."ANZAHL DER ELEMENTE ";A...... A.10000..:."ZU VI ELE ELEMENTE":.230......A.10..:."ZU WENI GE ELEMENTE":.230...... A$(A).>...."...D .RUCKER ODER .B.ILDSCHIRM ";Y$.W....Y$.. "D".Y$.."B".260.L....Y$."D".D.4:.300.T." .D.3.Z.,........ EINGABE VON HAND......" .".O....:."SIE MUESSEN JETZT"A" ELEMENTE EINGEBEN!":.:......."JEDES ELEMENT BEST EHT AUS 3 ZEICHEN.":.:.......X.1.A.'.... X". ";:."ELEMENT";A$(X).=.$..C(A$(X))..3 .1050.D....X.J.8...C.P.. ZUFAELLIGE EING ABE.L.Z.."."......:."ES WERDEN JETZT"A" ELEMENTE ZUFAELLIG":.:."AUSGEWAEHLT".... ..:."JEDES ELEMENT BESTEHT AUS 3 ZEICHEN .":.:.......X.1.A.....A$(X).""."....Y.1. 3:A$(X).A$(X).G(.(.(TI).25).65):.Y.).... X./. ...R.... ZWISCHENAUSGABE DER ELEMEN TE.C.B.. I.1.A.9.10...L.. J.I.I.9:.1,A$( J)" ";:.J...V..1:.I......... .. WEITERMA CHEN......1,D.S....".AUSGABE DES ERSTELL TEN FELDES".Y..........3000...H.. SORTIE RUNG STARTET...R...!..'. SORTIEREN DURCH ZERLEGEN.'..'..>.$'. QUICKSORT.D ..'..\.8'. LG = LINKE GRENZE.U.B'. RG = RECHTE GRENZE...L'. VG$ = VERGLEICHSELEM ENT...V'....`'. EINGANG DES HAUPTMODULS. ..J'....T'.LG(100),RG(100):Z.0:LG(1).1:R G(1).A...~'.10200: . QUICKSORT....'.5000 0:. ENDE.3.X'. EINGANG DER REKURSIVSCHLE IFE.Q..'Z.Z.1:.LG(Z)..RG(Z).10350.E..'X. LG(Z):Y.RG(Z)....'. VERGLEICHSELEMENT HO LEN....'VG$.A$(.((X.Y).2))....(.X.Y.1032 0.E..(.A$(X).VG$.X.X.1:.10250....(.A$(Y) .VG$.Y.Y.1:.10260....(.X.Y.10320...((S$. A$(X):A$(X).A$(Y):A$(Y).S$.".2(X.X.1:Y.Y .1.-.<(.10240.3.F(..=.P(.3000.A.Z(RG(Z.1 ).Y:LG(Z.1).LG(Z):. 10200...D(LG(Z.1).X: RG(Z.1).RG(Z):. 10200...N(Z.Z.1:....X(.. ..PC. ENDEBEHANDLUNG...ZC.1...DC. 3000.S .NC.1,A;" ELEMENTE"...XC.1:.1: 1....C... .
> CLICK IMAGE PREVIEW FOR FULL MODAL