DIR SORT
FILE INFORMATION
FILENAME(S): DIR SORT
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-10-20 00:33:22
APPEARS ON: 1 disk(s)
FILE HASH
32a578f6ee223d3a85b1e1c0d20145093c93a3c40b69c9d9a29c6e162350b45d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| N ED DAD I | DIR SORT | PRG | Martin Ahman | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 64 00 86 50 4E 24 28 32 32 34 29 2C |..1.d..PN$(224),|
00000010: 53 50 28 32 39 29 2C 53 45 28 32 39 29 3A 8F 22 |SP(29),SE(29):."|
00000020: 20 CE 41 4D 45 2C D3 50 55 52 2C D3 45 4B 54 4F | .AME,.PUR,.EKTO|
00000030: 52 00 52 08 6E 00 4E 24 B2 C7 28 30 29 3A 81 49 |R.R.n.N$..(0):.I|
00000040: B2 31 A4 33 30 3A 42 4C 24 B2 42 4C 24 AA 4E 24 |.1.30:BL$.BL$.N$|
00000050: 3A 82 00 58 08 78 00 8F 00 7C 08 82 00 8F 22 20 |:..X.x...|...." |
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 C5 49 4E 47 41 |---------- .INGA|
00000070: 42 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 82 08 8C |BE ---------....|
00000080: 00 8F 00 92 08 96 00 46 4C 25 B2 30 3A 44 52 25 |.......FL%.0:DR%|
00000090: B2 30 00 B4 08 A0 00 53 4F B2 31 3A 53 50 25 B2 |.0.....SO.1:SP%.|
000000A0: 31 38 3A 53 45 25 B2 31 3A 8B 46 4C 25 A7 53 50 |18:SE%.1:.FL%.SP|
000000B0: 25 B2 33 39 00 BA 08 AA 00 8F 00 E3 08 B4 00 8F |%.39............|
000000C0: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D C4 49 52 45 43 |" ---------.IREC|
000000D0: 54 4F 52 59 20 4C 45 53 45 4E 2D 2D 2D 2D 2D 2D |TORY LESEN------|
000000E0: 2D 2D 2D 00 E9 08 BE 00 8F 00 06 09 C8 00 9F 31 |---............1|
000000F0: 35 2C 38 2C 31 35 2C 22 49 22 AA C4 28 44 52 25 |5,8,15,"I"..(DR%|
00000100: 29 3A 8D 35 37 30 00 1A 09 D2 00 9F 32 2C 38 2C |):.570......2,8,|
00000110: 32 2C 22 23 22 3A 8D 35 37 30 00 45 09 DC 00 99 |2,"#":.570.E....|
00000120: 22 93 12 20 D0 52 4F 47 52 41 4D 4D 2F C4 41 54 |".. .ROGRAMM/.AT|
00000130: 45 49 4E 41 4D 45 4E 20 55 4E 53 4F 52 54 49 45 |EINAMEN UNSORTIE|
00000140: 52 54 20 11 22 00 77 09 E6 00 98 31 35 2C 22 55 |RT .".w....15,"U|
00000150: 31 20 22 3B 32 3B 44 52 25 3B 53 50 25 3B 53 45 |1 ";2;DR%;SP%;SE|
00000160: 25 3A 53 50 28 53 4E 29 B2 53 50 25 3A 53 45 28 |%:SP(SN).SP%:SE(|
00000170: 53 4E 29 B2 53 45 25 00 80 09 F0 00 8D 35 36 30 |SN).SE%......560|
00000180: 00 8E 09 FA 00 53 50 25 B2 C6 28 45 24 29 00 97 |.....SP%..(E$)..|
00000190: 09 04 01 8D 35 36 30 00 AA 09 0E 01 53 45 25 B2 |....560.....SE%.|
000001A0: C6 28 45 24 29 3A 50 5A B2 32 00 C5 09 18 01 98 |.(E$):PZ.2......|
000001B0: 31 35 2C 22 42 2D 50 22 3B 32 3B 50 5A 3A 4E 4E |15,"B-P";2;PZ:NN|
000001C0: B2 4E 4E AA 31 00 D6 09 22 01 81 49 B2 31 A4 33 |.NN.1..."..I.1.3|
000001D0: 30 3A 8D 35 36 30 00 EF 09 2C 01 50 4E 24 28 4E |0:.560...,.PN$(N|
000001E0: 4E 29 B2 50 4E 24 28 4E 4E 29 AA 45 24 3A 82 00 |N).PN$(NN).E$:..|
000001F0: 26 0A 36 01 8B C6 28 C8 28 50 4E 24 28 4E 4E 29 |&.6...(.(PN$(NN)|
00000200: 2C 31 29 29 B2 30 A7 50 4E 24 28 4E 4E 29 B2 22 |,1)).0.PN$(NN)."|
00000210: 22 3A 4E 4E B2 4E 4E AB 31 3A 44 45 B2 44 45 AA |":NN.NN.1:DE.DE.|
00000220: 31 3A 89 33 35 30 00 56 0A 40 01 81 49 B2 31 39 |1:.350.V.@..I.19|
00000230: A4 35 A9 AB 31 3A 8B CA 28 50 4E 24 28 4E 4E 29 |.5..1:..(PN$(NN)|
00000240: 2C 49 2C 31 29 B3 B1 C7 28 31 36 30 29 A7 49 B2 |,I,1)...(160).I.|
00000250: 35 3A 89 33 34 30 00 85 0A 4A 01 50 4E 24 28 4E |5:.340...J.PN$(N|
00000260: 4E 29 B2 C8 28 50 4E 24 28 4E 4E 29 2C 49 AB 31 |N)..(PN$(NN),I.1|
00000270: 29 AA 22 20 22 AA C9 28 50 4E 24 28 4E 4E 29 2C |)." "..(PN$(NN),|
00000280: 33 30 AB 49 29 00 9C 0A 54 01 82 3A 99 CA 28 50 |30.I)...T..:..(P|
00000290: 4E 24 28 4E 4E 29 2C 34 2C 31 36 29 00 B6 0A 5E |N$(NN),4,16)...^|
000002A0: 01 8B 50 5A AB 32 32 36 A7 50 5A B2 50 5A AA 33 |..PZ.226.PZ.PZ.3|
000002B0: 32 3A 89 32 38 30 00 D1 0A 68 01 8B 53 50 25 A7 |2:.280...h..SP%.|
000002C0: 50 5A B2 32 3A 53 4E B2 53 4E AA 31 3A 89 32 33 |PZ.2:SN.SN.1:.23|
000002D0: 30 00 DF 0A 72 01 8B 44 45 B2 30 A7 34 32 30 00 |0...r..DE.0.420.|
000002E0: 17 0B 7C 01 53 4F B2 30 3A 81 49 B2 4E 4E AA 31 |..|.SO.0:.I.NN.1|
000002F0: A4 4E 4E AA 44 45 3A 50 4E 24 28 49 29 B2 42 4C |.NN.DE:PN$(I).BL|
00000300: 24 3A 82 3A 8F 22 C6 4F 52 20 44 45 4C 45 54 45 |$:.:.".OR DELETE|
00000310: 44 20 46 49 4C 45 53 00 1D 0B 86 01 8F 00 50 0B |D FILES.......P.|
00000320: 90 01 8F 22 20 2D 2D 2D 2D 2D 2D 2D 2D 20 C6 49 |..." -------- .I|
00000330: 4C 45 4E 41 4D 45 4D 20 4E 45 55 20 53 4F 52 54 |LENAMEM NEU SORT|
00000340: 49 45 52 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |IEREN ----------|
00000350: 00 56 0B 9A 01 8F 00 7B 0B A4 01 99 22 93 12 20 |.V.....{....".. |
00000360: C6 49 4C 45 4E 41 4D 45 4E 20 57 45 52 44 45 4E |.ILENAMEN WERDEN|
00000370: 20 53 4F 52 54 49 45 52 54 11 22 00 B6 0B AE 01 | SORTIERT.".....|
00000380: 81 4A B2 31 A4 4E 4E AB 31 3A 81 49 B2 4A AA 31 |.J.1.NN.1:.I.J.1|
00000390: A4 4E 4E 3A 8B CA 28 50 4E 24 28 49 29 2C 34 2C |.NN:..(PN$(I),4,|
000003A0: 31 36 29 B1 CA 28 50 4E 24 28 4A 29 2C 34 2C 31 |16)..(PN$(J),4,1|
000003B0: 36 29 A7 34 35 30 00 E9 0B B8 01 4E 24 B2 50 4E |6).450.....N$.PN|
000003C0: 24 28 49 29 3A 50 4E 24 28 49 29 B2 50 4E 24 28 |$(I):PN$(I).PN$(|
000003D0: 4A 29 3A 50 4E 24 28 4A 29 B2 4E 24 3A 99 4A 3B |J):PN$(J).N$:.J;|
000003E0: 22 13 11 22 3A 53 4F B2 30 00 15 0C C2 01 82 49 |"..":SO.0......I|
000003F0: 2C 4A 3A 81 4A B2 31 A4 4E 4E 3A 99 CA 28 50 4E |,J:.J.1.NN:..(PN|
00000400: 24 28 4A 29 2C 34 2C 31 36 29 3A 81 49 B2 31 39 |$(J),4,16):.I.19|
00000410: A4 35 A9 AB 31 00 36 0C CC 01 8B CA 28 50 4E 24 |.5..1.6.....(PN$|
00000420: 28 4A 29 2C 49 2C 31 29 B3 B1 22 20 22 A7 49 B2 |(J),I,1).." ".I.|
00000430: 35 3A 89 34 38 30 00 65 0C D6 01 50 4E 24 28 4A |5:.480.e...PN$(J|
00000440: 29 B2 C8 28 50 4E 24 28 4A 29 2C 49 AB 31 29 AA |)..(PN$(J),I.1).|
00000450: C7 28 31 36 30 29 AA C9 28 50 4E 24 28 4A 29 2C |.(160)..(PN$(J),|
00000460: 33 30 AB 49 29 00 8D 0C E0 01 82 49 2C 4A 3A 8B |30.I)......I,J:.|
00000470: 53 4F A7 CE 3A 99 22 12 53 43 48 4F 4E 20 53 4F |SO..:.".SCHON SO|
00000480: 52 54 49 45 52 54 21 07 07 07 22 3A 80 00 93 0C |RTIERT!...":....|
00000490: EA 01 8F 00 C5 0C F4 01 8F 22 2D 2D 2D 2D 2D 2D |........."------|
000004A0: 2D 20 4E 45 55 45 53 20 C4 49 52 45 43 54 4F 52 |- NEUES .IRECTOR|
000004B0: 59 20 53 43 48 52 45 49 42 45 4E 20 2D 2D 2D 2D |Y SCHREIBEN ----|
000004C0: 2D 2D 2D 2D 2D 00 CB 0C FE 01 8F 00 04 0D 08 02 |-----...........|
000004D0: 50 4E 25 B2 31 3A 81 4A B2 30 A4 53 4E 3A 98 31 |PN%.1:.J.0.SN:.1|
000004E0: 35 2C 22 42 2D 50 20 22 3B 32 3B 30 3A 98 32 2C |5,"B-P ";2;0:.2,|
000004F0: C7 28 53 50 28 4A AA 31 29 29 C7 28 53 45 28 4A |.(SP(J.1)).(SE(J|
00000500: AA 31 29 29 00 45 0D 12 02 50 5A B2 32 3A 81 49 |.1)).E...PZ.2:.I|
00000510: B2 31 A4 38 3A 98 31 35 2C 22 42 2D 50 20 22 3B |.1.8:.15,"B-P ";|
00000520: 32 3B 50 5A 3A 98 32 2C 50 4E 24 28 50 4E 25 29 |2;PZ:.2,PN$(PN%)|
00000530: 3B 3A 50 4E 25 B2 50 4E 25 AA 31 3A 50 5A B2 50 |;:PN%.PN%.1:PZ.P|
00000540: 5A AA 33 32 3A 00 7E 0D 1C 02 82 3A 98 31 35 2C |Z.32:.~....:.15,|
00000550: 22 55 32 20 22 3B 32 3B 44 52 25 3B 53 50 28 4A |"U2 ";2;DR%;SP(J|
00000560: 29 3B 53 45 28 4A 29 3A 82 3A A0 31 35 3A 99 22 |);SE(J):.:.15:."|
00000570: 12 46 45 52 54 49 47 21 07 07 07 22 3A 80 00 84 |.FERTIG!...":...|
00000580: 0D 26 02 80 00 A0 0D 30 02 A1 23 32 2C 45 24 3A |.&.....0..#2,E$:|
00000590: 45 24 B2 C7 28 C6 28 45 24 AA 4E 24 29 29 3A 8E |E$..(.(E$.N$)):.|
000005A0: 00 AC 0D 3A 02 8B 44 53 B2 30 A7 8E 00 B9 0D 44 |...:..DS.0.....D|
000005B0: 02 99 44 53 24 3A CE 3A 80 00 00 00 43 FF 00 22 |..DS$:.:....C.."|
000005C0: 22 B1 18 B1 6E 18 |"...n. |
..1.D..PN$(224),SP(29),SE(29):." NAME,SP
UR,SEKTOR.R.N.N$.G(0):.I.1.30:BL$.BL$.N$
:..X.X...|...." ---------- EINGABE -----
----...........FL%.0:DR%.0... .SO.1:SP%.
18:SE%.1:.FL%.SP%.39............" ------
---DIRECTORY LESEN---------.........H..1
5,8,15,"I".D(DR%):.570...R..2,8,2,"#":.5
70.E....".. PROGRAMM/DATEINAMEN UNSORTIE
RT .".W....15,"U1 ";2;DR%;SP%;SE%:SP(SN)
.SP%:SE(SN).SE%......560.....SP%.F(E$)..
....560.....SE%.F(E$):PZ.2.E....15,"B-P"
;2;PZ:NN.NN.1.V."..I.1.30:.560...,.PN$(N
N).PN$(NN).E$:..&.6..F(H(PN$(NN),1)).0.P
N$(NN)."":NN.NN.1:DE.DE.1:.350.V.@..I.19
.5..1:.J(PN$(NN),I,1)..G(160).I.5:.340..
.J.PN$(NN).H(PN$(NN),I.1)." ".I(PN$(NN),
30.I)...T..:.J(PN$(NN),4,16)...^..PZ.226
.PZ.PZ.32:.280.Q.H..SP%.PZ.2:SN.SN.1:.23
0...R..DE.0.420...|.SO.0:.I.NN.1.NN.DE:P
N$(I).BL$:.:."FOR DELETED FILES.......P.
..." -------- FILENAMEM NEU SORTIEREN --
--------.V.....{....".. FILENAMEN WERDEN
SORTIERT."......J.1.NN.1:.I.J.1.NN:.J(P
N$(I),4,16).J(PN$(J),4,16).450.....N$.PN
$(I):PN$(I).PN$(J):PN$(J).N$:.J;"..":SO.
0...B..I,J:.J.1.NN:.J(PN$(J),4,16):.I.19
.5..1.6.L..J(PN$(J),I,1).." ".I.5:.480.E
.V.PN$(J).H(PN$(J),I.1).G(160).I(PN$(J),
30.I)......I,J:.SO.N:.".SCHON SORTIERT!.
..":........E...."------- NEUES DIRECTOR
Y SCHREIBEN ---------.K.........PN%.1:.J
.0.SN:.15,"B-P ";2;0:.2,G(SP(J.1))G(SE(J
.1)).E...PZ.2:.I.1.8:.15,"B-P ";2;PZ:.2,
PN$(PN%);:PN%.PN%.1:PZ.PZ.32:.~....:.15,
"U2 ";2;DR%;SP(J);SE(J):.: 15:.".FERTIG!
...":....&... .0..#2,E$:E$.G(F(E$.N$)):.
...:..DS.0.....D..DS$:N:....C..""...N.
> CLICK IMAGE PREVIEW FOR FULL MODAL