DIREC.-SORTER
FILE INFORMATION
FILENAME(S): DIREC.-SORTER
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:29:18
APPEARS ON: 1 disk(s)
FILE HASH
3be784e93f99d7dd37e86c3212cbb4dc15e6539c62d6e7f7d171135bc6a854c8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KL | DIREC.-SORTER | PRG | DuncanTwain | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 8F 20 44 49 52 45 43 54 4F 52 |....d.. DIRECTOR|
00000010: 59 2D 53 4F 52 54 45 52 00 3E 08 65 00 8F 20 53 |Y-SORTER.>.e.. S|
00000020: 4F 52 54 49 45 52 54 20 44 49 52 45 43 54 4F 52 |ORTIERT DIRECTOR|
00000030: 59 20 41 4C 50 48 41 42 45 54 49 53 43 48 00 60 |Y ALPHABETISCH.`|
00000040: 08 66 00 8F 20 42 45 49 20 56 49 45 4C 45 4E 20 |.f.. BEI VIELEN |
00000050: 45 49 4E 54 52 41 45 47 45 4E 20 42 49 54 54 45 |EINTRAEGEN BITTE|
00000060: 00 80 08 67 00 8F 20 45 54 57 41 53 20 47 45 44 |...g.. ETWAS GED|
00000070: 55 4C 44 20 28 4D 41 58 2E 20 35 2E 4D 49 4E 29 |ULD (MAX. 5.MIN)|
00000080: 00 A6 08 68 00 8F 20 53 4F 52 54 49 45 52 54 20 |...h.. SORTIERT |
00000090: 41 55 43 48 20 47 45 53 43 52 41 54 43 48 54 45 |AUCH GESCRATCHTE|
000000A0: 20 46 49 4C 45 53 00 C7 08 69 00 8F 20 4D 49 54 | FILES...i.. MIT|
000000B0: 2C 20 53 54 45 4C 4C 54 20 53 49 45 20 41 42 45 |, STELLT SIE ABE|
000000C0: 52 20 4E 49 43 48 54 00 ED 08 6A 00 8F 20 57 49 |R NICHT...j.. WI|
000000D0: 45 44 45 52 20 48 45 52 20 21 20 53 4F 52 54 49 |EDER HER ! SORTI|
000000E0: 45 52 41 4C 47 4F 52 49 54 48 4D 55 53 00 13 09 |ERALGORITHMUS...|
000000F0: 6B 00 8F 20 4B 41 4E 4E 20 53 49 43 48 20 49 4E |k.. KANN SICH IN|
00000100: 20 45 49 4E 45 4D 20 53 4F 4C 43 48 45 4E 20 46 | EINEM SOLCHEN F|
00000110: 41 4C 4C 00 36 09 6C 00 8F 20 49 4E 20 45 49 4E |ALL.6.l.. IN EIN|
00000120: 45 52 20 45 4E 44 4C 4F 53 53 43 48 4C 45 49 46 |ER ENDLOSSCHLEIF|
00000130: 45 20 56 45 52 2D 00 5C 09 6D 00 8F 20 48 45 44 |E VER-.\.m.. HED|
00000140: 44 45 52 4E 2E 20 41 42 48 49 4C 46 45 3A 20 4E |DERN. ABHILFE: N|
00000150: 41 43 48 20 33 2D 34 20 4D 49 4E 2E 00 7C 09 6E |ACH 3-4 MIN..|.n|
00000160: 00 8F 20 53 54 4F 50 2D 54 41 53 54 45 20 44 52 |.. STOP-TASTE DR|
00000170: 55 45 43 4B 45 4E 2C 20 44 41 4E 4E 00 A1 09 6F |UECKEN, DANN...o|
00000180: 00 8F 20 47 4F 54 4F 20 32 31 30 20 45 49 4E 47 |.. GOTO 210 EING|
00000190: 45 42 45 4E 2E 20 53 49 4E 44 20 45 49 4E 54 52 |EBEN. SIND EINTR|
000001A0: 2E 00 C7 09 70 00 8F 20 44 41 4E 4E 20 4E 4F 43 |....p.. DANN NOC|
000001B0: 48 20 4E 49 43 48 54 20 56 4F 4C 4C 4B 4F 4D 4D |H NICHT VOLLKOMM|
000001C0: 45 4E 20 53 4F 52 2D 00 E9 09 71 00 8F 20 54 49 |EN SOR-...q.. TI|
000001D0: 45 52 54 2C 20 4E 4F 43 48 4D 41 4C 53 20 46 55 |ERT, NOCHMALS FU|
000001E0: 45 52 20 45 49 4E 49 47 45 00 06 0A 72 00 8F 20 |ER EINIGE...r.. |
000001F0: 4D 49 4E 55 54 45 4E 20 4C 41 55 46 45 4E 20 4C |MINUTEN LAUFEN L|
00000200: 41 53 53 45 4E 2E 00 29 0A 73 00 8F 20 41 43 48 |ASSEN..).s.. ACH|
00000210: 54 55 4E 47 20 21 21 21 20 4E 55 52 20 5A 55 53 |TUNG !!! NUR ZUS|
00000220: 41 4D 4D 45 4E 20 4D 49 54 00 49 0A 74 00 8F 20 |AMMEN MIT.I.t.. |
00000230: 44 45 4E 20 55 4E 54 45 52 50 52 4F 47 52 41 4D |DEN UNTERPROGRAM|
00000240: 4D 45 4E 20 31 20 26 20 32 00 60 0A 75 00 8F 20 |MEN 1 & 2.`.u.. |
00000250: 41 42 4C 41 55 46 46 41 45 48 49 47 20 21 21 21 |ABLAUFFAEHIG !!!|
00000260: 00 66 0A 76 00 3A 00 6C 0A 77 00 3A 00 7B 0A 78 |.f.v.:.l.w.:.{.x|
00000270: 00 86 20 44 44 24 28 31 34 34 29 00 8E 0A 82 00 |.. DD$(144).....|
00000280: 4D 4D B2 4D 4D AA 31 3A 8D 20 31 30 30 30 00 AB |MM.MM.1:. 1000..|
00000290: 0A 8C 00 8B 20 44 44 24 B2 4E 4E 24 A7 20 4D 4D |.... DD$.NN$. MM|
000002A0: B2 4D 4D AB 31 3A 89 20 31 36 30 00 C8 0A 96 00 |.MM.1:. 160.....|
000002B0: 44 44 24 28 4D 4D 29 B2 44 44 24 3A 44 44 24 B2 |DD$(MM).DD$:DD$.|
000002C0: 22 22 3A 89 20 31 33 30 00 DA 0A A0 00 81 20 47 |"":. 130...... G|
000002D0: 47 B2 31 20 A4 20 4D 4D AB 31 00 07 0B AA 00 8B |G.1 . MM.1......|
000002E0: 20 CA 28 44 44 24 28 47 47 29 2C 34 2C 31 36 29 | .(DD$(GG),4,16)|
000002F0: B3 CA 28 44 44 24 28 47 47 AA 31 29 2C 34 2C 31 |..(DD$(GG.1),4,1|
00000300: 36 29 A7 20 31 39 30 00 3C 0B B4 00 48 48 24 B2 |6). 190.<...HH$.|
00000310: 44 44 24 28 47 47 29 3A 44 44 24 28 47 47 29 B2 |DD$(GG):DD$(GG).|
00000320: 44 44 24 28 47 47 AA 31 29 3A 44 44 24 28 47 47 |DD$(GG.1):DD$(GG|
00000330: AA 31 29 B2 48 48 24 3A 46 46 B2 31 00 45 0B BE |.1).HH$:FF.1.E..|
00000340: 00 82 20 47 47 00 5B 0B C8 00 8B 20 46 46 20 A7 |.. GG.[.... FF .|
00000350: 20 46 46 B2 30 3A 89 20 31 36 30 00 65 0B D2 00 | FF.0:. 160.e...|
00000360: 49 49 B2 4D 4D 00 8D 0B DC 00 81 20 4D 4D B2 31 |II.MM...... MM.1|
00000370: 20 A4 20 49 49 3A 44 44 24 B2 44 44 24 28 4D 4D | . II:DD$.DD$(MM|
00000380: 29 3A 8D 20 32 30 30 30 3A 82 20 4D 4D 00 93 0B |):. 2000:. MM...|
00000390: E6 00 80 00 A9 0B E8 03 8F 20 55 4E 54 45 52 50 |......... UNTERP|
000003A0: 52 4F 47 52 41 4D 4D 20 31 00 CD 0B E9 03 8F 20 |ROGRAMM 1...... |
000003B0: 4C 45 53 45 4E 20 45 49 4E 45 53 20 45 49 4E 54 |LESEN EINES EINT|
000003C0: 52 41 47 45 53 20 41 55 53 20 44 45 4D 00 F1 0B |RAGES AUS DEM...|
000003D0: EA 03 8F 20 44 49 52 45 43 54 4F 52 59 20 28 41 |... DIRECTORY (A|
000003E0: 4C 4C 45 20 33 30 20 42 59 54 45 53 20 21 21 21 |LLE 30 BYTES !!!|
000003F0: 29 00 0B 0C EB 03 8F 20 49 4E 20 44 49 45 20 56 |)...... IN DIE V|
00000400: 41 52 49 41 42 4C 45 20 44 44 24 00 25 0C EC 03 |ARIABLE DD$.%...|
00000410: 8F 20 55 45 42 45 52 47 41 42 45 50 41 52 41 4D |. UEBERGABEPARAM|
00000420: 45 54 45 52 3A 00 47 0C ED 03 8F 20 4D 4D 3D 4E |ETER:.G.... MM=N|
00000430: 55 4D 4D 45 52 20 44 45 53 20 45 49 4E 54 52 41 |UMMER DES EINTRA|
00000440: 47 45 53 20 44 45 52 00 64 0C EE 03 8F 20 20 20 |GES DER.d.... |
00000450: 20 47 45 4C 45 53 45 4E 20 57 45 52 44 45 4E 20 | GELESEN WERDEN |
00000460: 53 4F 4C 4C 00 6A 0C EF 03 3A 00 70 0C F0 03 3A |SOLL.j...:.p...:|
00000470: 00 76 0C F1 03 3A 00 93 0C F2 03 9F 20 31 35 2C |.v...:...... 15,|
00000480: 38 2C 31 35 2C 22 49 22 3A 9F 38 2C 38 2C 38 2C |8,15,"I":.8,8,8,|
00000490: 22 23 22 00 B6 0C FC 03 4E 4E 24 B2 22 22 3A 81 |"#".....NN$."":.|
000004A0: 49 B2 31 A4 33 30 3A 4E 4E 24 B2 4E 4E 24 AA C7 |I.1.30:NN$.NN$..|
000004B0: 28 30 29 3A 82 49 00 C9 0C 06 04 58 58 B2 B5 28 |(0):.I.....XX..(|
000004C0: 28 4D 4D AB 31 29 AD 38 29 00 DF 0C 10 04 98 31 |(MM.1).8)......1|
000004D0: 35 2C 22 55 31 20 38 20 30 20 31 38 20 30 22 00 |5,"U1 8 0 18 0".|
000004E0: EE 0C 1A 04 81 5A 5A B2 31 A4 58 58 AA 31 00 00 |.....ZZ.1.XX.1..|
000004F0: 0D 24 04 98 31 35 2C 22 42 2D 50 20 38 20 30 22 |.$..15,"B-P 8 0"|
00000500: 00 1B 0D 2E 04 A1 23 38 2C 54 54 24 3A 54 54 B2 |......#8,TT$:TT.|
00000510: C6 28 54 54 24 AA C7 28 30 29 29 00 36 0D 38 04 |.(TT$..(0)).6.8.|
00000520: A1 23 38 2C 53 53 24 3A 53 53 B2 C6 28 53 53 24 |.#8,SS$:SS..(SS$|
00000530: AA C7 28 30 29 29 00 51 0D 42 04 8B 20 54 54 B2 |..(0)).Q.B.. TT.|
00000540: 30 20 A7 20 44 44 24 B2 4E 4E 24 3A 89 31 31 37 |0 . DD$.NN$:.117|
00000550: 30 00 68 0D 4C 04 98 31 35 2C 22 55 31 20 38 20 |0.h.L..15,"U1 8 |
00000560: 30 22 3B 54 54 3B 53 53 00 70 0D 56 04 82 5A 5A |0";TT;SS.p.V..ZZ|
00000570: 00 90 0D 60 04 50 50 B2 4D 4D AB 28 58 58 AC 38 |...`.PP.MM.(XX.8|
00000580: 29 3A 50 50 B2 28 50 50 AB 31 29 AC 33 32 AA 32 |):PP.(PP.1).32.2|
00000590: 00 A3 0D 6A 04 98 31 35 2C 22 42 2D 50 20 38 22 |...j..15,"B-P 8"|
000005A0: 3B 50 50 00 BA 0D 74 04 81 5A 5A B2 31 20 A4 20 |;PP...t..ZZ.1 . |
000005B0: 33 30 3A A1 23 38 2C 5A 5A 24 00 CF 0D 7E 04 8B |30:.#8,ZZ$...~..|
000005C0: 5A 5A 24 B2 22 22 A7 5A 5A 24 B2 C7 28 30 29 00 |ZZ$."".ZZ$..(0).|
000005D0: E3 0D 88 04 44 44 24 B2 44 44 24 AA 5A 5A 24 3A |....DD$.DD$.ZZ$:|
000005E0: 82 5A 5A 00 F0 0D 92 04 A0 20 38 3A A0 20 31 35 |.ZZ...... 8:. 15|
000005F0: 00 F6 0D 9C 04 8E 00 0C 0E D0 07 8F 20 55 4E 54 |............ UNT|
00000600: 45 52 50 52 4F 47 52 41 4D 4D 20 32 00 2F 0E D1 |ERPROGRAMM 2./..|
00000610: 07 8F 20 53 43 48 52 45 49 42 45 4E 20 45 49 4E |.. SCHREIBEN EIN|
00000620: 45 53 20 45 49 4E 54 52 41 47 45 53 20 49 4E 00 |ES EINTRAGES IN.|
00000630: 52 0E D2 07 8F 20 44 41 53 20 44 49 52 45 43 54 |R.... DAS DIRECT|
00000640: 4F 52 59 20 28 33 30 20 42 59 54 45 53 20 21 21 |ORY (30 BYTES !!|
00000650: 21 29 00 6C 0E D3 07 8F 20 55 45 42 45 52 47 41 |!).l.... UEBERGA|
00000660: 42 45 50 41 52 41 4D 45 54 45 52 3A 00 8E 0E D4 |BEPARAMETER:....|
00000670: 07 8F 20 4D 4D 3D 4E 55 4D 4D 45 52 20 44 45 53 |.. MM=NUMMER DES|
00000680: 20 45 49 4E 54 52 41 47 45 53 20 44 45 52 00 AF | EINTRAGES DER..|
00000690: 0E D5 07 8F 20 20 20 20 47 45 53 43 48 52 49 45 |.... GESCHRIE|
000006A0: 42 45 4E 20 57 45 52 44 45 4E 20 53 4F 4C 4C 00 |BEN WERDEN SOLL.|
000006B0: CA 0E D6 07 8F 20 44 44 24 3D 44 49 52 45 43 54 |..... DD$=DIRECT|
000006C0: 4F 52 59 45 49 4E 54 52 41 47 00 D0 0E D7 07 3A |ORYEINTRAG.....:|
000006D0: 00 D6 0E D8 07 3A 00 DC 0E D9 07 3A 00 F9 0E DA |.....:.....:....|
000006E0: 07 9F 20 31 35 2C 38 2C 31 35 2C 22 49 22 3A 9F |.. 15,8,15,"I":.|
000006F0: 38 2C 38 2C 38 2C 22 23 22 00 0C 0F E4 07 58 58 |8,8,8,"#".....XX|
00000700: B2 B5 28 28 4D 4D AB 31 29 AD 38 29 00 22 0F EE |..((MM.1).8)."..|
00000710: 07 98 31 35 2C 22 55 31 20 38 20 30 20 31 38 20 |..15,"U1 8 0 18 |
00000720: 30 22 00 31 0F F8 07 81 5A 5A B2 31 A4 58 58 AA |0".1....ZZ.1.XX.|
00000730: 31 00 43 0F 02 08 98 31 35 2C 22 42 2D 50 20 38 |1.C....15,"B-P 8|
00000740: 20 30 22 00 5C 0F 0C 08 A1 23 38 2C 54 24 3A 54 | 0".\....#8,T$:T|
00000750: 54 B2 C6 28 54 24 AA C7 28 30 29 29 00 75 0F 16 |T..(T$..(0)).u..|
00000760: 08 A1 23 38 2C 53 24 3A 53 53 B2 C6 28 53 24 AA |..#8,S$:SS..(S$.|
00000770: C7 28 30 29 29 00 87 0F 20 08 8B 20 54 54 B2 30 |.(0))... .. TT.0|
00000780: 20 A7 20 32 31 35 30 00 9E 0F 2A 08 98 31 35 2C | . 2150...*..15,|
00000790: 22 55 31 20 38 20 30 22 3B 54 54 3B 53 53 00 A6 |"U1 8 0";TT;SS..|
000007A0: 0F 34 08 82 5A 5A 00 C6 0F 3E 08 50 50 B2 4D 4D |.4..ZZ...>.PP.MM|
000007B0: AB 28 58 58 AC 38 29 3A 50 50 B2 28 50 50 AB 31 |.(XX.8):PP.(PP.1|
000007C0: 29 AC 33 32 AA 32 00 D9 0F 48 08 98 31 35 2C 22 |).32.2...H..15,"|
000007D0: 42 2D 50 20 38 22 3B 50 50 00 E4 0F 52 08 98 38 |B-P 8";PP...R..8|
000007E0: 2C 44 44 24 00 FB 0F 5C 08 98 31 35 2C 22 55 32 |,DD$...\..15,"U2|
000007F0: 20 38 20 30 22 3B 54 54 3B 53 53 00 08 10 66 08 | 8 0";TT;SS...f.|
00000800: A0 20 38 3A A0 20 31 35 00 0E 10 70 08 8E 00 00 |. 8:. 15...p....|
00000810: 00 |. |
....D.. DIRECTORY-SORTER.>.E.. SORTIERT
DIRECTORY ALPHABETISCH.`.F.. BEI VIELEN
EINTRAEGEN BITTE...G.. ETWAS GEDULD (MAX
. 5.MIN)...H.. SORTIERT AUCH GESCRATCHTE
FILES.G.I.. MIT, STELLT SIE ABER NICHT.
..J.. WIEDER HER ! SORTIERALGORITHMUS...
K.. KANN SICH IN EINEM SOLCHEN FALL.6.L.
. IN EINER ENDLOSSCHLEIFE VER-.\.M.. HED
DERN. ABHILFE: NACH 3-4 MIN..|.N.. STOP-
TASTE DRUECKEN, DANN...O.. GOTO 210 EING
EBEN. SIND EINTR..G.P.. DANN NOCH NICHT
VOLLKOMMEN SOR-...Q.. TIERT, NOCHMALS FU
ER EINIGE...R.. MINUTEN LAUFEN LASSEN..)
.S.. ACHTUNG !!! NUR ZUSAMMEN MIT.I.T..
DEN UNTERPROGRAMMEN 1 & 2.`.U.. ABLAUFFA
EHIG !!!.F.V.:.L.W.:.{.X.. DD$(144).....
MM.MM.1:. 1000...... DD$.NN$. MM.MM.1:.
160.H...DD$(MM).DD$:DD$."":. 130.Z. .. G
G.1 . MM.1...... J(DD$(GG),4,16).J(DD$(G
G.1),4,16). 190.<...HH$.DD$(GG):DD$(GG).
DD$(GG.1):DD$(GG.1).HH$:FF.1.E.... GG.[.
H.. FF . FF.0:. 160.E.R.II.MM...... MM.1
. II:DD$.DD$(MM):. 2000:. MM...........
. UNTERPROGRAMM 1.M.... LESEN EINES EINT
RAGES AUS DEM...... DIRECTORY (ALLE 30 B
YTES !!!)...... IN DIE VARIABLE DD$.%...
. UEBERGABEPARAMETER:.G.... MM=NUMMER DE
S EINTRAGES DER.D.... GELESEN WERDEN
SOLL.J...:.P...:.V...:...... 15,8,15,"I"
:.8,8,8,"#".....NN$."":.I.1.30:NN$.NN$.G
(0):.I.I...XX..((MM.1).8)......15,"U1 8
0 18 0"......ZZ.1.XX.1...$..15,"B-P 8 0"
......#8,TT$:TT.F(TT$.G(0)).6.8..#8,SS$:
SS.F(SS$.G(0)).Q.B.. TT.0 . DD$.NN$:.117
0.H.L..15,"U1 8 0";TT;SS.P.V..ZZ...`.PP.
MM.(XX.8):PP.(PP.1).32.2...J..15,"B-P 8"
;PP...T..ZZ.1 . 30:.#8,ZZ$.O.~..ZZ$."".Z
Z$.G(0).....DD$.DD$.ZZ$:.ZZ..... 8: 15
.........P.. UNTERPROGRAMM 2./.Q.. SCHRE
IBEN EINES EINTRAGES IN.R.R.. DAS DIRECT
ORY (30 BYTES !!!).L.S.. UEBERGABEPARAME
TER:...T.. MM=NUMMER DES EINTRAGES DER..
.U.. GESCHRIEBEN WERDEN SOLL.J.V.. DD
$=DIRECTORYEINTRAG.P.W.:.V.X.:...Y.:...Z
.. 15,8,15,"I":.8,8,8,"#".....XX..((MM.1
).8)."....15,"U1 8 0 18 0".1....ZZ.1.XX.
1.C....15,"B-P 8 0".\....#8,T$:TT.F(T$.G
(0)).U....#8,S$:SS.F(S$.G(0))... .. TT.0
. 2150...*..15,"U1 8 0";TT;SS...4..ZZ.F
.>.PP.MM.(XX.8):PP.(PP.1).32.2.Y.H..15,"
B-P 8";PP...R..8,DD$...\..15,"U2 8 0";TT
;SS...F. 8: 15...P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL