EBS-QUICKSORT
FILE INFORMATION
FILENAME(S): EBS-QUICKSORT
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 16:27:21
APPEARS ON: 1 disk(s)
FILE HASH
978d21906532e3cdca739f962905692ed9de281abc2c3ad3c88d234d252cefbe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ELSA DATA | EBS-QUICKSORT | PRG | BrainSkull, Thomas Marosits | 16 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 8F 00 2C 08 6E 00 8F 20 2A 2A |....d...,.n.. **|
00000010: 2A 2A 2A 2A 2A 2A 2A 20 51 55 49 43 4B 2D 53 4F |******* QUICK-SO|
00000020: 52 54 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 08 78 |RT *********.2.x|
00000030: 00 8F 00 55 08 82 00 8F 20 41 25 20 20 20 20 3D |...U.... A% =|
00000040: 20 20 5A 41 45 48 4C 45 52 20 44 55 52 43 48 47 | ZAEHLER DURCHG|
00000050: 41 45 4E 47 45 00 76 08 8C 00 8F 20 44 25 20 20 |AENGE.v.... D% |
00000060: 20 20 3D 20 20 41 4E 5A 41 48 4C 20 44 45 52 20 | = ANZAHL DER |
00000070: 53 54 41 50 45 4C 00 9A 08 96 00 8F 20 48 49 25 |STAPEL...... HI%|
00000080: 20 20 20 3D 20 20 48 49 4C 46 53 5A 45 49 47 45 | = HILFSZEIGE|
00000090: 52 20 49 4E 54 45 52 47 45 52 00 BA 08 A0 00 8F |R INTERGER......|
000000A0: 20 49 25 20 20 20 20 3D 20 20 53 43 48 4C 45 49 | I% = SCHLEI|
000000B0: 46 45 4E 5A 41 45 48 4C 45 52 00 D6 08 AA 00 8F |FENZAEHLER......|
000000C0: 20 4C 49 25 20 20 20 3D 20 20 4C 49 4E 4B 45 20 | LI% = LINKE |
000000D0: 47 52 45 4E 5A 45 00 FC 08 B4 00 8F 20 4D 49 25 |GRENZE...... MI%|
000000E0: 20 20 20 3D 20 20 4D 49 54 54 45 20 5A 57 49 53 | = MITTE ZWIS|
000000F0: 43 48 45 4E 20 4C 25 20 26 20 52 25 00 1F 09 BE |CHEN L% & R%....|
00000100: 00 8F 20 4E 25 20 20 20 20 3D 20 20 41 4E 5A 41 |.. N% = ANZA|
00000110: 48 4C 20 44 45 52 20 45 4C 45 4D 45 4E 54 45 00 |HL DER ELEMENTE.|
00000120: 3C 09 C8 00 8F 20 52 45 25 20 20 20 3D 20 20 52 |<.... RE% = R|
00000130: 45 43 48 54 45 20 47 52 45 4E 5A 45 00 5E 09 D2 |ECHTE GRENZE.^..|
00000140: 00 8F 20 48 25 28 58 29 20 3D 20 20 56 45 4B 54 |.. H%(X) = VEKT|
00000150: 4F 52 20 4D 49 54 20 47 52 45 4E 5A 45 4E 00 80 |OR MIT GRENZEN..|
00000160: 09 DC 00 8F 20 48 49 4C 46 20 20 3D 20 20 48 49 |.... HILF = HI|
00000170: 4C 46 53 56 41 52 49 41 42 4C 45 20 52 45 41 4C |LFSVARIABLE REAL|
00000180: 00 A1 09 E6 00 8F 20 49 2C 4A 20 20 20 3D 20 20 |...... I,J = |
00000190: 53 43 48 4C 45 49 46 45 4E 56 41 52 49 41 42 4C |SCHLEIFENVARIABL|
000001A0: 45 00 C7 09 F0 00 8F 20 50 49 56 4F 54 20 3D 20 |E...... PIVOT = |
000001B0: 20 41 4B 54 55 45 4C 4C 45 53 20 50 49 56 4F 54 | AKTUELLES PIVOT|
000001C0: 45 4C 45 4D 45 4E 54 00 EB 09 FA 00 8F 20 50 56 |ELEMENT...... PV|
000001D0: 20 20 20 20 3D 20 20 44 4F 50 50 45 4C 54 45 52 | = DOPPELTER|
000001E0: 20 4D 49 54 54 45 4C 57 45 52 54 00 0F 0A 04 01 | MITTELWERT.....|
000001F0: 8F 20 41 28 58 29 20 20 3D 20 20 56 45 4B 54 4F |. A(X) = VEKTO|
00000200: 52 20 4D 49 54 20 45 4C 45 4D 45 4E 54 45 4E 00 |R MIT ELEMENTEN.|
00000210: 15 0A 0E 01 3A 00 20 0A 18 01 4E 25 B2 31 30 30 |....:. ...N%.100|
00000220: 00 3B 0A 22 01 41 25 B2 28 BC 28 BA 28 4E 25 29 |.;.".A%.(.(.(N%)|
00000230: 29 AD BC 28 32 29 29 AC 31 2E 37 00 47 0A 2C 01 |)..(2)).1.7.G.,.|
00000240: 44 25 B2 32 AE 41 25 00 52 0A 36 01 86 41 28 4E |D%.2.A%.R.6..A(N|
00000250: 25 29 00 5E 0A 40 01 86 48 25 28 44 25 29 00 6A |%).^.@..H%(D%).j|
00000260: 0A 4A 01 48 25 28 30 29 B2 31 00 78 0A 54 01 48 |.J.H%(0).1.x.T.H|
00000270: 25 28 44 25 29 B2 4E 25 00 7E 0A 5E 01 3A 00 8A |%(D%).N%.~.^.:..|
00000280: 0A 68 01 81 49 B2 31 A4 4E 25 00 98 0A 72 01 41 |.h..I.1.N%...r.A|
00000290: 28 49 29 B2 BB 28 49 29 00 9F 0A 7C 01 82 49 00 |(I)..(I)...|..I.|
000002A0: A5 0A 86 01 3A 00 B1 0A 90 01 81 49 B2 31 A4 4E |....:......I.1.N|
000002B0: 25 00 C4 0A 9A 01 48 49 4C 46 B2 48 49 4C 46 AA |%.....HILF.HILF.|
000002C0: 41 28 49 29 00 CB 0A A4 01 82 49 00 DC 0A AE 01 |A(I)......I.....|
000002D0: 50 56 B2 48 49 4C 46 AD 4E 25 AC 32 00 E2 0A B8 |PV.HILF.N%.2....|
000002E0: 01 3A 00 F0 0A C2 01 81 49 B2 30 A4 41 25 AB 32 |.:......I.0.A%.2|
000002F0: 00 FD 0A CC 01 81 4A B2 31 A4 32 AE 49 00 0E 0B |......J.1.2.I...|
00000300: D6 01 48 49 25 B2 32 AE 28 41 25 AB 49 29 00 24 |..HI%.2.(A%.I).$|
00000310: 0B E0 01 4C 49 25 B2 48 25 28 48 49 25 AC 28 4A |...LI%.H%(HI%.(J|
00000320: AB 31 29 29 00 36 0B EA 01 52 45 25 B2 48 25 28 |.1)).6...RE%.H%(|
00000330: 48 49 25 AC 4A 29 00 49 0B F4 01 4D 49 25 B2 48 |HI%.J).I...MI%.H|
00000340: 49 25 AC 28 4A AB 2E 35 29 00 5D 0B FE 01 50 49 |I%.(J..5).]...PI|
00000350: 56 4F 54 B2 4D 49 25 AD 44 25 AC 50 56 00 63 0B |VOT.MI%.D%.PV.c.|
00000360: 08 02 CD 00 75 0B 12 02 8B 41 28 4C 49 25 29 B1 |....u....A(LI%).|
00000370: 50 49 56 4F 54 00 7B 0B 1C 02 A7 00 8D 0B 26 02 |PIVOT.{.......&.|
00000380: CE 41 28 52 45 25 29 B1 50 49 56 4F 54 00 9B 0B |.A(RE%).PIVOT...|
00000390: 30 02 52 45 25 B2 52 45 25 AB 31 00 A1 0B 3A 02 |0.RE%.RE%.1...:.|
000003A0: D0 00 B1 0B 44 02 48 49 4C 46 B2 41 28 4C 49 25 |....D.HILF.A(LI%|
000003B0: 29 00 C3 0B 4E 02 41 28 4C 49 25 29 B2 41 28 52 |)...N.A(LI%).A(R|
000003C0: 45 25 29 00 D3 0B 58 02 41 28 52 45 25 29 B2 48 |E%)...X.A(RE%).H|
000003D0: 49 4C 46 00 D9 0B 62 02 D4 00 E7 0B 6C 02 4C 49 |ILF...b.....l.LI|
000003E0: 25 B2 4C 49 25 AA 31 00 F4 0B 76 02 CF 52 45 25 |%.LI%.1...v..RE%|
000003F0: B3 4C 49 25 00 00 0C 80 02 8B 52 45 25 B3 4E 25 |.LI%......RE%.N%|
00000400: 00 06 0C 8A 02 A7 00 16 0C 94 02 48 49 4C 46 B2 |...........HILF.|
00000410: 41 28 52 45 25 29 00 2A 0C 9E 02 41 28 52 45 25 |A(RE%).*...A(RE%|
00000420: 29 B2 41 28 52 45 25 AA 31 29 00 3C 0C A8 02 41 |).A(RE%.1).<...A|
00000430: 28 52 45 25 AA 31 29 B2 48 49 4C 46 00 42 0C B2 |(RE%.1).HILF.B..|
00000440: 02 D4 00 52 0C BC 02 48 25 28 4D 49 25 29 B2 52 |...R...H%(MI%).R|
00000450: 45 25 00 59 0C C6 02 82 4A 00 60 0C D0 02 82 49 |E%.Y....J.`....I|
00000460: 00 66 0C DA 02 3A 00 7E 0C E4 02 41 28 30 29 B2 |.f...:.~...A(0).|
00000470: AB 31 2E 37 30 31 34 31 31 38 33 45 33 38 00 8C |.1.70141183E38..|
00000480: 0C EE 02 81 49 B2 31 A4 4E 25 AB 31 00 9D 0C F8 |....I.1.N%.1....|
00000490: 02 8B 41 28 49 AA 31 29 B3 41 28 49 29 00 A3 0C |..A(I.1).A(I)...|
000004A0: 02 03 A7 00 AE 0C 0C 03 49 25 B2 49 AA 31 00 BD |........I%.I.1..|
000004B0: 0C 16 03 48 49 4C 46 B2 41 28 49 25 29 00 C3 0C |...HILF.A(I%)...|
000004C0: 20 03 CD 00 D5 0C 2A 03 41 28 49 25 29 B2 41 28 | .....*.A(I%).A(|
000004D0: 49 25 AB 31 29 00 E1 0C 34 03 49 25 B2 49 25 AB |I%.1)...4.I%.I%.|
000004E0: 31 00 F3 0C 3E 03 CF 41 28 49 25 AB 31 29 B3 48 |1...>..A(I%.1).H|
000004F0: 49 4C 46 00 02 0D 48 03 41 28 49 25 29 B2 48 49 |ILF...H.A(I%).HI|
00000500: 4C 46 00 08 0D 52 03 D4 00 0F 0D 5C 03 82 49 00 |LF...R.....\..I.|
00000510: 15 0D 66 03 3A 00 1B 0D 70 03 80 00 00 00 |..f.:...p..... |
....D...,.N.. ********* QUICK-SORT *****
****.2.X...U.... A% = ZAEHLER DURCHG
AENGE.V.... D% = ANZAHL DER STAPEL..
.... HI% = HILFSZEIGER INTERGER... ..
I% = SCHLEIFENZAEHLER.V.... LI% =
LINKE GRENZE...... MI% = MITTE ZWIS
CHEN L% & R%...... N% = ANZAHL DER E
LEMENTE.<.H.. RE% = RECHTE GRENZE.^.R
.. H%(X) = VEKTOR MIT GRENZEN...... HIL
F = HILFSVARIABLE REAL...... I,J =
SCHLEIFENVARIABLE.G.... PIVOT = AKTUELL
ES PIVOTELEMENT...... PV = DOPPELTER
MITTELWERT...... A(X) = VEKTOR MIT EL
EMENTEN.....:. ...N%.100.;.".A%.(.(.(N%)
)..(2)).1.7.G.,.D%.2.A%.R.6..A(N%).^.@..
H%(D%).J.J.H%(0).1.X.T.H%(D%).N%.~.^.:..
.H..I.1.N%...R.A(I)..(I)...|..I.....:...
...I.1.N%.D...HILF.HILF.A(I).K....I.....
PV.HILF.N%.2.....:...B..I.0.A%.2...L..J.
1.2.I...V.HI%.2.(A%.I).$...LI%.H%(HI%.(J
.1)).6...RE%.H%(HI%.J).I...MI%.HI%.(J..5
).]...PIVOT.MI%.D%.PV.C...M.U....A(LI%).
PIVOT.{.......&.NA(RE%).PIVOT...0.RE%.RE
%.1...:.P...D.HILF.A(LI%).C.N.A(LI%).A(R
E%).S.X.A(RE%).HILF.Y.B.T...L.LI%.LI%.1.
..V.ORE%.LI%......RE%.N%...........HILF.
A(RE%).*...A(RE%).A(RE%.1).<...A(RE%.1).
HILF.B...T.R...H%(MI%).RE%.Y.F..J.`.P..I
.F.Z.:.~...A(0)..1.70141183E38......I.1.
N%.1......A(I.1).A(I)...........I%.I.1..
...HILF.A(I%).C. .M.U.*.A(I%).A(I%.1)...
4.I%.I%.1...>.OA(I%.1).HILF...H.A(I%).HI
LF...R.T...\..I...F.:...P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL