DIR-SORTER
FILE INFORMATION
FILENAME(S): DIR-SORTER
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-10-20 14:30:49
APPEARS ON: 2 disk(s)
FILE HASH
6ef919e11c5991cb2c01946cbe13909644fb2a308e62dd4d94c2e86715f3a1d9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 83 | DIR-SORTER | PRG | C64er, DuncanTwain, Treasure Chest - Klaus Der Suhler | 15 | 1 | DOWNLOAD FILE |
| 64 ER SONDERH 83 | DIR-SORTER | PRG | Treasure Chest - Klaus Der Suhler | 15 | 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 7A 0A 78 |.f.v.:.l.w.:.z.x| 00000270: 00 86 44 44 24 28 31 34 34 29 00 8C 0A 82 00 4D |..DD$(144).....M| 00000280: 4D B2 4D 4D AA 31 3A 8D 31 30 30 30 00 A7 0A 8C |M.MM.1:.1000....| 00000290: 00 8B 20 44 44 24 B2 4E 4E 24 A7 4D 4D B2 4D 4D |.. DD$.NN$.MM.MM| 000002A0: AB 31 3A 89 31 36 30 00 C3 0A 96 00 44 44 24 28 |.1:.160.....DD$(| 000002B0: 4D 4D 29 B2 44 44 24 3A 44 44 24 B2 22 22 3A 89 |MM).DD$:DD$."":.| 000002C0: 31 33 30 00 D3 0A A0 00 81 20 47 47 B2 31 A4 4D |130...... GG.1.M| 000002D0: 4D AB 31 00 00 0B AA 00 8B 20 CA 28 44 44 24 28 |M.1...... .(DD$(| 000002E0: 47 47 29 2C 34 2C 31 36 29 B3 CA 28 44 44 24 28 |GG),4,16)..(DD$(| 000002F0: 47 47 AA 31 29 2C 34 2C 31 36 29 A7 20 31 39 30 |GG.1),4,16). 190| 00000300: 00 35 0B B4 00 48 48 24 B2 44 44 24 28 47 47 29 |.5...HH$.DD$(GG)| 00000310: 3A 44 44 24 28 47 47 29 B2 44 44 24 28 47 47 AA |:DD$(GG).DD$(GG.| 00000320: 31 29 3A 44 44 24 28 47 47 AA 31 29 B2 48 48 24 |1):DD$(GG.1).HH$| 00000330: 3A 46 46 B2 31 00 3E 0B BE 00 82 20 47 47 00 53 |:FF.1.>.... GG.S| 00000340: 0B C8 00 8B 20 46 46 20 A7 20 46 46 B2 30 3A 89 |.... FF . FF.0:.| 00000350: 31 36 30 00 5D 0B D2 00 49 49 B2 4D 4D 00 80 0B |160.]...II.MM...| 00000360: DC 00 81 4D 4D B2 31 A4 49 49 3A 44 44 24 B2 44 |...MM.1.II:DD$.D| 00000370: 44 24 28 4D 4D 29 3A 8D 32 30 30 30 3A 82 4D 4D |D$(MM):.2000:.MM| 00000380: 00 86 0B E6 00 80 00 9C 0B E8 03 8F 20 55 4E 54 |............ UNT| 00000390: 45 52 50 52 4F 47 52 41 4D 4D 20 31 00 C0 0B E9 |ERPROGRAMM 1....| 000003A0: 03 8F 20 4C 45 53 45 4E 20 45 49 4E 45 53 20 45 |.. LESEN EINES E| 000003B0: 49 4E 54 52 41 47 45 53 20 41 55 53 20 44 45 4D |INTRAGES AUS DEM| 000003C0: 00 E4 0B EA 03 8F 20 44 49 52 45 43 54 4F 52 59 |...... DIRECTORY| 000003D0: 20 28 41 4C 4C 45 20 33 30 20 42 59 54 45 53 20 | (ALLE 30 BYTES | 000003E0: 21 21 21 29 00 FE 0B EB 03 8F 20 49 4E 20 44 49 |!!!)...... IN DI| 000003F0: 45 20 56 41 52 49 41 42 4C 45 20 44 44 24 00 18 |E VARIABLE DD$..| 00000400: 0C EC 03 8F 20 55 45 42 45 52 47 41 42 45 50 41 |.... UEBERGABEPA| 00000410: 52 41 4D 45 54 45 52 3A 00 3A 0C ED 03 8F 20 4D |RAMETER:.:.... M| 00000420: 4D 3D 4E 55 4D 4D 45 52 20 44 45 53 20 45 49 4E |M=NUMMER DES EIN| 00000430: 54 52 41 47 45 53 20 44 45 52 00 57 0C EE 03 8F |TRAGES DER.W....| 00000440: 20 20 20 20 47 45 4C 45 53 45 4E 20 57 45 52 44 | GELESEN WERD| 00000450: 45 4E 20 53 4F 4C 4C 00 5D 0C EF 03 3A 00 63 0C |EN SOLL.]...:.c.| 00000460: F0 03 3A 00 69 0C F1 03 3A 00 86 0C F2 03 9F 20 |..:.i...:...... | 00000470: 31 35 2C 38 2C 31 35 2C 22 49 22 3A 9F 38 2C 38 |15,8,15,"I":.8,8| 00000480: 2C 38 2C 22 23 22 00 A9 0C FC 03 4E 4E 24 B2 22 |,8,"#".....NN$."| 00000490: 22 3A 81 49 B2 31 A4 33 30 3A 4E 4E 24 B2 4E 4E |":.I.1.30:NN$.NN| 000004A0: 24 AA C7 28 30 29 3A 82 49 00 BC 0C 06 04 58 58 |$..(0):.I.....XX| 000004B0: B2 B5 28 28 4D 4D AB 31 29 AD 38 29 00 D2 0C 10 |..((MM.1).8)....| 000004C0: 04 98 31 35 2C 22 55 31 20 38 20 30 20 31 38 20 |..15,"U1 8 0 18 | 000004D0: 30 22 00 E1 0C 1A 04 81 5A 5A B2 31 A4 58 58 AA |0"......ZZ.1.XX.| 000004E0: 31 00 F3 0C 24 04 98 31 35 2C 22 42 2D 50 20 38 |1...$..15,"B-P 8| 000004F0: 20 30 22 00 0E 0D 2E 04 A1 23 38 2C 54 54 24 3A | 0"......#8,TT$:| 00000500: 54 54 B2 C6 28 54 54 24 AA C7 28 30 29 29 00 29 |TT..(TT$..(0)).)| 00000510: 0D 38 04 A1 23 38 2C 53 53 24 3A 53 53 B2 C6 28 |.8..#8,SS$:SS..(| 00000520: 53 53 24 AA C7 28 30 29 29 00 44 0D 42 04 8B 20 |SS$..(0)).D.B.. | 00000530: 54 54 B2 30 20 A7 20 44 44 24 B2 4E 4E 24 3A 89 |TT.0 . DD$.NN$:.| 00000540: 31 31 37 30 00 5B 0D 4C 04 98 31 35 2C 22 55 31 |1170.[.L..15,"U1| 00000550: 20 38 20 30 22 3B 54 54 3B 53 53 00 63 0D 56 04 | 8 0";TT;SS.c.V.| 00000560: 82 5A 5A 00 83 0D 60 04 50 50 B2 4D 4D AB 28 58 |.ZZ...`.PP.MM.(X| 00000570: 58 AC 38 29 3A 50 50 B2 28 50 50 AB 31 29 AC 33 |X.8):PP.(PP.1).3| 00000580: 32 AA 32 00 96 0D 6A 04 98 31 35 2C 22 42 2D 50 |2.2...j..15,"B-P| 00000590: 20 38 22 3B 50 50 00 AD 0D 74 04 81 5A 5A B2 31 | 8";PP...t..ZZ.1| 000005A0: 20 A4 20 33 30 3A A1 23 38 2C 5A 5A 24 00 C2 0D | . 30:.#8,ZZ$...| 000005B0: 7E 04 8B 5A 5A 24 B2 22 22 A7 5A 5A 24 B2 C7 28 |~..ZZ$."".ZZ$..(| 000005C0: 30 29 00 D6 0D 88 04 44 44 24 B2 44 44 24 AA 5A |0).....DD$.DD$.Z| 000005D0: 5A 24 3A 82 5A 5A 00 E3 0D 92 04 A0 20 38 3A A0 |Z$:.ZZ...... 8:.| 000005E0: 20 31 35 00 E9 0D 9C 04 8E 00 FF 0D D0 07 8F 20 | 15............ | 000005F0: 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 32 00 |UNTERPROGRAMM 2.| 00000600: 22 0E D1 07 8F 20 53 43 48 52 45 49 42 45 4E 20 |".... SCHREIBEN | 00000610: 45 49 4E 45 53 20 45 49 4E 54 52 41 47 45 53 20 |EINES EINTRAGES | 00000620: 49 4E 00 45 0E D2 07 8F 20 44 41 53 20 44 49 52 |IN.E.... DAS DIR| 00000630: 45 43 54 4F 52 59 20 28 33 30 20 42 59 54 45 53 |ECTORY (30 BYTES| 00000640: 20 21 21 21 29 00 5F 0E D3 07 8F 20 55 45 42 45 | !!!)._.... UEBE| 00000650: 52 47 41 42 45 50 41 52 41 4D 45 54 45 52 3A 00 |RGABEPARAMETER:.| 00000660: 81 0E D4 07 8F 20 4D 4D 3D 4E 55 4D 4D 45 52 20 |..... MM=NUMMER | 00000670: 44 45 53 20 45 49 4E 54 52 41 47 45 53 20 44 45 |DES EINTRAGES DE| 00000680: 52 00 A2 0E D5 07 8F 20 20 20 20 47 45 53 43 48 |R...... GESCH| 00000690: 52 49 45 42 45 4E 20 57 45 52 44 45 4E 20 53 4F |RIEBEN WERDEN SO| 000006A0: 4C 4C 00 BD 0E D6 07 8F 20 44 44 24 3D 44 49 52 |LL...... DD$=DIR| 000006B0: 45 43 54 4F 52 59 45 49 4E 54 52 41 47 00 C3 0E |ECTORYEINTRAG...| 000006C0: D7 07 3A 00 C9 0E D8 07 3A 00 CF 0E D9 07 3A 00 |..:.....:.....:.| 000006D0: EC 0E DA 07 9F 20 31 35 2C 38 2C 31 35 2C 22 49 |..... 15,8,15,"I| 000006E0: 22 3A 9F 38 2C 38 2C 38 2C 22 23 22 00 FF 0E E4 |":.8,8,8,"#"....| 000006F0: 07 58 58 B2 B5 28 28 4D 4D AB 31 29 AD 38 29 00 |.XX..((MM.1).8).| 00000700: 15 0F EE 07 98 31 35 2C 22 55 31 20 38 20 30 20 |.....15,"U1 8 0 | 00000710: 31 38 20 30 22 00 24 0F F8 07 81 5A 5A B2 31 A4 |18 0".$....ZZ.1.| 00000720: 58 58 AA 31 00 36 0F 02 08 98 31 35 2C 22 42 2D |XX.1.6....15,"B-| 00000730: 50 20 38 20 30 22 00 4F 0F 0C 08 A1 23 38 2C 54 |P 8 0".O....#8,T| 00000740: 24 3A 54 54 B2 C6 28 54 24 AA C7 28 30 29 29 00 |$:TT..(T$..(0)).| 00000750: 68 0F 16 08 A1 23 38 2C 53 24 3A 53 53 B2 C6 28 |h....#8,S$:SS..(| 00000760: 53 24 AA C7 28 30 29 29 00 7A 0F 20 08 8B 20 54 |S$..(0)).z. .. T| 00000770: 54 B2 30 20 A7 20 32 31 35 30 00 91 0F 2A 08 98 |T.0 . 2150...*..| 00000780: 31 35 2C 22 55 31 20 38 20 30 22 3B 54 54 3B 53 |15,"U1 8 0";TT;S| 00000790: 53 00 99 0F 34 08 82 5A 5A 00 B9 0F 3E 08 50 50 |S...4..ZZ...>.PP| 000007A0: B2 4D 4D AB 28 58 58 AC 38 29 3A 50 50 B2 28 50 |.MM.(XX.8):PP.(P| 000007B0: 50 AB 31 29 AC 33 32 AA 32 00 CC 0F 48 08 98 31 |P.1).32.2...H..1| 000007C0: 35 2C 22 42 2D 50 20 38 22 3B 50 50 00 D8 0F 52 |5,"B-P 8";PP...R| 000007D0: 08 98 38 2C 44 44 24 3B 00 EF 0F 5C 08 98 31 35 |..8,DD$;...\..15| 000007E0: 2C 22 55 32 20 38 20 30 22 3B 54 54 3B 53 53 00 |,"U2 8 0";TT;SS.| 000007F0: FC 0F 66 08 A0 20 38 3A A0 20 31 35 00 02 10 70 |..f.. 8:. 15...p| 00000800: 08 8E 00 00 00 FF |...... |
....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.:.Z.X..DD$(144).....M M.MM.1:.1000...... DD$.NN$.MM.MM.1:.160. C...DD$(MM).DD$:DD$."":.130.S. .. GG.1.M M.1...... J(DD$(GG),4,16).J(DD$(GG.1),4, 16). 190.5...HH$.DD$(GG):DD$(GG).DD$(GG. 1):DD$(GG.1).HH$:FF.1.>.... GG.S.H.. FF . FF.0:.160.].R.II.MM......MM.1.II:DD$.D D$(MM):.2000:.MM............ UNTERPROGRA MM 1...... LESEN EINES EINTRAGES AUS DEM ...... DIRECTORY (ALLE 30 BYTES !!!).... .. IN DIE VARIABLE DD$...... UEBERGABEPA RAMETER:.:.... MM=NUMMER DES EINTRAGES D ER.W.... GELESEN WERDEN SOLL.]...:.C. ..:.I...:...... 15,8,15,"I":.8,8,8,"#".. ...NN$."":.I.1.30:NN$.NN$.G(0):.I.....XX ..((MM.1).8).R....15,"U1 8 0 18 0"...... ZZ.1.XX.1...$..15,"B-P 8 0"......#8,TT$: TT.F(TT$.G(0)).).8..#8,SS$:SS.F(SS$.G(0) ).D.B.. TT.0 . DD$.NN$:.1170.[.L..15,"U1 8 0";TT;SS.C.V..ZZ...`.PP.MM.(XX.8):PP. (PP.1).32.2...J..15,"B-P 8";PP...T..ZZ.1 . 30:.#8,ZZ$.B.~..ZZ$."".ZZ$.G(0).V...D D$.DD$.ZZ$:.ZZ..... 8: 15.........P.. UNTERPROGRAMM 2.".Q.. SCHREIBEN EINES EI NTRAGES IN.E.R.. DAS DIRECTORY (30 BYTES !!!)._.S.. UEBERGABEPARAMETER:...T.. MM =NUMMER DES EINTRAGES DER...U.. GESCH RIEBEN WERDEN SOLL...V.. DD$=DIRECTORYEI NTRAG.C.W.:.I.X.:.O.Y.:...Z.. 15,8,15,"I ":.8,8,8,"#".....XX..((MM.1).8)......15, "U1 8 0 18 0".$....ZZ.1.XX.1.6....15,"B- P 8 0".O....#8,T$:TT.F(T$.G(0)).H....#8, S$:SS.F(S$.G(0)).Z. .. TT.0 . 2150...*.. 15,"U1 8 0";TT;SS...4..ZZ...>.PP.MM.(XX. 8):PP.(PP.1).32.2.L.H..15,"B-P 8";PP.X.R ..8,DD$;...\..15,"U2 8 0";TT;SS...F. 8: 15...P......
> CLICK IMAGE PREVIEW FOR FULL MODAL