DIR SORTERING
FILE INFORMATION
FILENAME(S): DIR SORTERING
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 19:38:41
APPEARS ON: 1 disk(s)
FILE HASH
1e6d2a0f9bbb234de6cb7eac4c84ba42a846815cd69ebb46350bd48f93558e7b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY DISK M J | DIR SORTERING | PRG | Curtcool, Brian | 3 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4B 08 64 00 86 46 58 24 28 32 35 36 29 2C |..K.d..FX$(256),|
00000010: 46 54 24 28 32 35 36 29 2C 46 4C 28 32 35 36 29 |FT$(256),FL(256)|
00000020: 2C 54 54 28 32 35 36 29 3A 4E B2 AB 31 3A 81 20 |,TT(256):N..1:. |
00000030: 49 B2 31 20 A4 20 32 35 36 3A 46 58 24 28 49 29 |I.1 . 256:FX$(I)|
00000040: B2 22 22 3A 82 3A 58 B2 32 32 31 00 70 08 6E 00 |."":.:X.221.p.n.|
00000050: 42 4C 24 B2 22 20 22 3A 81 20 49 B2 31 20 A4 20 |BL$." ":. I.1 . |
00000060: 34 30 3A 42 4C 24 B2 42 4C 24 AA 22 A0 22 3A 82 |40:BL$.BL$.".":.|
00000070: 00 9E 08 78 00 A0 20 31 35 3A 9F 31 35 2C 38 2C |...x.. 15:.15,8,|
00000080: 31 35 3A 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 8D |15:.1,8,0,"$0":.|
00000090: 20 34 38 30 3A A1 23 31 2C 41 24 2C 42 24 00 C0 | 480:.#1,A$,B$..|
000000A0: 08 82 00 57 B2 35 31 3A 4C 24 B2 22 22 3A 85 22 |...W.51:L$."":."|
000000B0: 4C 41 42 45 4C 20 53 54 52 49 4E 47 22 3B 4C 24 |LABEL STRING";L$|
000000C0: 00 04 09 87 00 8B 20 C3 28 4C 24 29 B1 32 32 20 |...... .(L$).22 |
000000D0: A7 20 99 22 4C 41 42 45 4C 20 53 54 52 49 4E 47 |. ."LABEL STRING|
000000E0: 20 54 4F 4F 20 4C 4F 4E 47 2D 4D 41 58 20 49 53 | TOO LONG-MAX IS|
000000F0: 20 32 32 20 43 48 41 52 54 45 52 53 2E 22 3A 89 | 22 CHARTERS.":.|
00000100: 20 31 33 30 00 33 09 8C 00 A1 23 31 2C 41 24 2C | 130.3....#1,A$,|
00000110: 42 24 3A A1 23 31 2C 41 24 2C 42 24 3A 43 B2 30 |B$:.#1,A$,B$:C.0|
00000120: 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 |:. A$.."" . C..(|
00000130: 41 24 29 00 50 09 96 00 8B 20 42 24 B3 B1 22 22 |A$).P.... B$..""|
00000140: 20 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 | . C.C..(B$).256|
00000150: 00 62 09 A0 00 4E B2 4E AA 31 3A 46 4C 28 4E 29 |.b...N.N.1:FL(N)|
00000160: B2 43 00 7B 09 AA 00 A1 23 31 2C 42 24 3A 8B 20 |.C.{....#1,B$:. |
00000170: 53 54 B3 B1 30 20 A7 20 32 36 30 00 91 09 B4 00 |ST..0 . 260.....|
00000180: 8B 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 31 37 |. B$...(34) . 17|
00000190: 30 00 9B 09 BE 00 4E 24 B2 22 22 00 C3 09 C8 00 |0.....N$."".....|
000001A0: A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 |.#1,B$:. B$...(3|
000001B0: 34 29 20 A7 20 4E 24 B2 4E 24 AA 42 24 3A 89 20 |4) . N$.N$.B$:. |
000001C0: 32 30 30 00 D1 09 D2 00 46 58 24 28 4E 29 B2 4E |200.....FX$(N).N|
000001D0: 24 00 ED 09 DC 00 A1 23 31 2C 42 24 3A 8B 20 42 |$......#1,B$:. B|
000001E0: 24 B2 C7 28 33 32 29 20 A7 20 32 32 30 00 F7 09 |$..(32) . 220...|
000001F0: E6 00 43 24 B2 22 22 00 1B 0A F0 00 43 24 B2 43 |..C$."".....C$.C|
00000200: 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 20 42 24 |$.B$:.#1,B$:. B$|
00000210: B3 B1 22 22 20 20 A7 20 32 34 30 00 3B 0A FA 00 |.."" . 240.;...|
00000220: 46 54 24 28 4E 29 B2 C8 28 43 24 2C 33 29 3A 8B |FT$(N)..(C$,3):.|
00000230: 20 53 54 B2 30 20 A7 20 31 34 30 00 58 0A 04 01 | ST.0 . 140.X...|
00000240: A0 20 31 3A 42 46 B2 46 4C 28 4E 29 3A 4E B2 4E |. 1:BF.FL(N):N.N|
00000250: AB 31 3A 8D 20 35 38 30 00 66 0A 0E 01 A0 20 33 |.1:. 580.f.... 3|
00000260: 3A 9F 20 33 2C 34 00 97 0A 18 01 98 33 2C C7 28 |:. 3,4......3,.(|
00000270: 31 37 36 29 3B 3A 81 20 49 B2 31 20 A4 20 35 31 |176);:. I.1 . 51|
00000280: 3A 98 33 2C C7 28 31 39 32 29 3B 3A 82 3A 98 33 |:.3,.(192);:.:.3|
00000290: 2C C7 28 31 37 34 29 00 AD 0A 22 01 98 33 2C C7 |,.(174)..."..3,.|
000002A0: 28 58 29 3B A6 35 31 29 3B C7 28 58 29 00 DC 0A |(X);.51);.(X)...|
000002B0: 2C 01 54 32 24 B2 46 58 24 28 30 29 3A 8B 20 4C |,.T2$.FX$(0):. L|
000002C0: 24 B3 B1 22 22 20 A7 20 54 32 24 B2 54 32 24 AA |$.."" . T2$.T2$.|
000002D0: 22 A0 A0 28 22 AA 4C 24 AA 22 29 22 00 FB 0A 36 |"..(".L$.")"...6|
000002E0: 01 54 24 B2 C7 28 58 29 AA 22 A0 A0 A0 A0 A0 3E |.T$..(X).".....>|
000002F0: 3E 3E 20 22 AA 46 58 24 28 30 29 00 28 0B 3B 01 |>> ".FX$(0).(.;.|
00000300: 8B 20 4C 24 B2 22 22 20 A7 20 54 24 B2 54 24 AA |. L$."" . T$.T$.|
00000310: CA 28 42 4C 24 2C 31 2C 57 AB C3 28 54 24 29 AB |.(BL$,1,W..(T$).|
00000320: 31 29 3A 89 20 33 33 30 00 5C 0B 40 01 4B B2 57 |1):. 330.\.@.K.W|
00000330: AB 32 AB C3 28 54 24 29 AB C3 28 4C 24 29 3A 54 |.2..(T$)..(L$):T|
00000340: 24 B2 54 24 AA CA 28 42 4C 24 2C 31 2C 4B AB 31 |$.T$..(BL$,1,K.1|
00000350: 29 AA 22 28 22 AA 4C 24 AA 22 29 22 00 76 0B 4A |)."(".L$.")".v.J|
00000360: 01 54 24 B2 54 24 AA 22 20 20 22 AA C7 28 58 29 |.T$.T$." "..(X)|
00000370: 3A 98 33 2C 54 24 00 8C 0B 54 01 98 33 2C C7 28 |:.3,T$...T..3,.(|
00000380: 58 29 3B A6 35 31 29 3B C7 28 58 29 00 BD 0B 5E |X);.51);.(X)...^|
00000390: 01 98 33 2C C7 28 31 37 31 29 3B 3A 81 20 49 B2 |..3,.(171);:. I.|
000003A0: 31 20 A4 20 35 31 3A 98 33 2C C7 28 31 39 32 29 |1 . 51:.3,.(192)|
000003B0: 3B 3A 82 3A 98 33 2C C7 28 31 37 39 29 00 D3 0B |;:.:.3,.(179)...|
000003C0: 68 01 98 33 2C C7 28 58 29 3B A6 35 31 29 3B C7 |h..3,.(X);.51);.|
000003D0: 28 58 29 00 F2 0B 72 01 4C B2 39 3A 4B B2 B5 28 |(X)...r.L.9:K..(|
000003E0: 28 4E AA 31 29 AD 32 29 3A 81 20 49 B2 31 20 A4 |(N.1).2):. I.1 .|
000003F0: 20 4B 00 2E 0C 7C 01 54 24 B2 C7 28 58 29 3A 4A | K...|.T$..(X):J|
00000400: B2 49 3A 8D 20 35 32 30 3A 54 24 B2 54 24 AA 22 |.I:. 520:T$.T$."|
00000410: 20 22 3A 4A B2 4B AA 49 3A 8D 20 35 32 30 3A 54 | ":J.K.I:. 520:T|
00000420: 24 B2 54 24 AA 22 A0 A0 22 AA C7 28 58 29 00 40 |$.T$.".."..(X).@|
00000430: 0C 86 01 98 33 2C 54 24 3A 4C B2 4C AA 31 3A 82 |....3,T$:L.L.1:.|
00000440: 00 56 0C 90 01 98 33 2C C7 28 58 29 3B A6 35 31 |.V....3,.(X);.51|
00000450: 29 3B C7 28 58 29 00 7C 0C 9A 01 50 B2 B5 28 28 |);.(X).|...P..((|
00000460: 42 46 AC 31 30 30 AD 36 36 34 29 AA 2E 35 29 3A |BF.100.664)..5):|
00000470: 50 24 B2 CA 28 C4 28 50 29 2C 32 29 00 B3 0C A4 |P$..(.(P),2)....|
00000480: 01 54 24 B2 C7 28 58 29 AA CA 28 42 4C 24 2C 31 |.T$..(X)..(BL$,1|
00000490: 2C 31 34 29 AA C4 28 42 46 29 AA 22 20 42 4C 4F |,14)..(BF)." BLO|
000004A0: 43 4B 53 20 28 22 AA 50 24 AA 22 25 29 20 46 52 |CKS (".P$."%) FR|
000004B0: 45 45 22 00 DB 0C AE 01 54 24 B2 54 24 AA CA 28 |EE".....T$.T$..(|
000004C0: 42 4C 24 2C 31 2C 57 AB C3 28 54 24 29 AA 31 29 |BL$,1,W..(T$).1)|
000004D0: AA C7 28 58 29 3A 98 33 2C 54 24 00 FB 0C B8 01 |..(X):.3,T$.....|
000004E0: 81 20 49 B2 4C 20 A4 20 32 37 3A 98 33 2C C7 28 |. I.L . 27:.3,.(|
000004F0: 58 29 3B A6 35 31 29 C7 28 58 29 00 01 0D C2 01 |X);.51).(X).....|
00000500: 82 00 32 0D CC 01 98 33 2C C7 28 31 37 33 29 3B |..2....3,.(173);|
00000510: 3A 81 20 49 B2 31 20 A4 20 35 31 3A 98 33 2C C7 |:. I.1 . 51:.3,.|
00000520: 28 31 39 32 29 3B 3A 82 3A 98 33 2C C7 28 31 38 |(192);:.:.3,.(18|
00000530: 39 29 00 44 0D D6 01 98 33 3A A0 20 33 3A A0 20 |9).D....3:. 3:. |
00000540: 31 35 3A 80 00 5F 0D E0 01 84 31 35 2C 45 52 2C |15:.._....15,ER,|
00000550: 45 52 24 3A 8B 20 45 52 B3 32 30 20 A7 20 8E 00 |ER$:. ER.20 . ..|
00000560: 9A 0D EA 01 8B 20 45 52 B2 37 34 20 B0 20 45 52 |..... ER.74 . ER|
00000570: B2 32 31 20 A7 20 45 52 24 B2 45 52 24 AA 22 2D |.21 . ER$.ER$."-|
00000580: 2D 49 53 20 44 49 53 4B 20 49 4E 53 45 52 54 45 |-IS DISK INSERTE|
00000590: 44 20 3F 22 3A 89 20 35 31 30 00 BE 0D F4 01 45 |D ?":. 510.....E|
000005A0: 52 24 B2 22 44 49 53 4B 20 45 52 52 4F 52 22 AA |R$."DISK ERROR".|
000005B0: C4 28 45 52 29 AA 22 3A 20 22 AA 45 52 24 00 C9 |.(ER).": ".ER$..|
000005C0: 0D FE 01 99 45 52 24 3A 80 00 F1 0D 08 02 54 B2 |....ER$:......T.|
000005D0: 54 54 28 4A 29 3A 8B 20 54 B2 30 20 A7 20 54 24 |TT(J):. T.0 . T$|
000005E0: B2 54 24 AA CA 28 42 4C 24 2C 31 2C 32 34 29 3A |.T$..(BL$,1,24):|
000005F0: 8E 00 0D 0E 12 02 8B 20 46 4C 28 54 29 B3 31 30 |....... FL(T).10|
00000600: 30 20 A7 20 54 24 B2 54 24 AA 22 A0 22 00 28 0E |0 . T$.T$.".".(.|
00000610: 1C 02 8B 20 46 4C 28 54 29 B3 31 30 20 A7 20 54 |... FL(T).10 . T|
00000620: 24 B2 54 24 AA 22 A0 22 00 4B 0E 26 02 54 24 B2 |$.T$.".".K.&.T$.|
00000630: 54 24 AA CA 28 C4 28 46 4C 28 54 29 29 2C 32 29 |T$..(.(FL(T)),2)|
00000640: AA 22 A0 22 AA 46 58 24 28 54 29 00 7C 0E 30 02 |.".".FX$(T).|.0.|
00000650: 8B 20 C3 28 46 58 24 28 54 29 29 B3 31 36 20 A7 |. .(FX$(T)).16 .|
00000660: 20 54 24 B2 54 24 AA CA 28 42 4C 24 2C 31 2C 31 | T$.T$..(BL$,1,1|
00000670: 36 AB C3 28 46 58 24 28 54 29 29 29 00 98 0E 3A |6..(FX$(T)))...:|
00000680: 02 54 24 B2 54 24 AA 22 A0 22 AA C8 28 46 54 24 |.T$.T$."."..(FT$|
00000690: 28 54 29 2C 33 29 3A 8E 00 B4 0E 44 02 81 20 49 |(T),3):....D.. I|
000006A0: B2 31 20 A4 20 4E 20 3A 20 54 54 28 49 29 B2 49 |.1 . N : TT(I).I|
000006B0: 20 3A 20 82 00 F7 0E 4E 02 81 49 B2 31 20 A4 20 | : ....N..I.1 . |
000006C0: 4E AB 31 20 3A 20 53 B2 49 20 3A 20 81 20 4A B2 |N.1 : S.I : . J.|
000006D0: 49 AA 31 20 A4 20 4E 20 3A 20 8B 20 46 58 24 28 |I.1 . N : . FX$(|
000006E0: 54 54 28 4A 29 29 B3 46 58 24 28 54 54 28 53 29 |TT(J)).FX$(TT(S)|
000006F0: 29 20 A7 20 53 B2 4A 00 2A 0F 58 02 82 20 4A 20 |) . S.J.*.X.. J |
00000700: 3A 20 8B 20 53 B3 B1 49 20 A7 20 54 B2 54 54 28 |: . S..I . T.TT(|
00000710: 49 29 20 3A 20 54 54 28 49 29 B2 54 54 28 53 29 |I) : TT(I).TT(S)|
00000720: 20 3A 20 54 54 28 53 29 B2 54 00 36 0F 62 02 82 | : TT(S).T.6.b..|
00000730: 20 49 20 3A 20 8E 00 00 40 | I : ...@ |
..K.D..FX$(256),FT$(256),FL(256),TT(256)
:N..1:. I.1 . 256:FX$(I)."":.:X.221.P.N.
BL$." ":. I.1 . 40:BL$.BL$." ":....X. 1
5:.15,8,15:.1,8,0,"$0":. 480:.#1,A$,B$..
...W.51:L$."":."LABEL STRING";L$...... C
(L$).22 . ."LABEL STRING TOO LONG-MAX IS
22 CHARTERS.":. 130.3....#1,A$,B$:.#1,A
$,B$:C.0:. A$.."" . C.F(A$).P.... B$..""
. C.C.F(B$).256.B. .N.N.1:FL(N).C.{....
#1,B$:. ST..0 . 260...... B$..G(34) . 17
0.....N$."".C.H..#1,B$:. B$..G(34) . N$.
N$.B$:. 200.Q.R.FX$(N).N$......#1,B$:. B
$.G(32) . 220.....C$."".....C$.C$.B$:.#1
,B$:. B$.."" . 240.;...FT$(N).H(C$,3):.
ST.0 . 140.X... 1:BF.FL(N):N.N.1:. 580
.F... 3:. 3,4......3,G(176);:. I.1 . 51
:.3,G(192);:.:.3,G(174)..."..3,G(X);.51)
;G(X)...,.T2$.FX$(0):. L$.."" . T2$.T2$.
" (".L$.")"...6.T$.G(X)." >>> ".FX$
(0).(.;.. L$."" . T$.T$.J(BL$,1,W.C(T$).
1):. 330.\.@.K.W.2.C(T$).C(L$):T$.T$.J(B
L$,1,K.1)."(".L$.")".V.J.T$.T$." ".G(X)
:.3,T$...T..3,G(X);.51);G(X)...^..3,G(17
1);:. I.1 . 51:.3,G(192);:.:.3,G(179).S.
H..3,G(X);.51);G(X)...R.L.9:K..((N.1).2)
:. I.1 . K...|.T$.G(X):J.I:. 520:T$.T$."
":J.K.I:. 520:T$.T$." ".G(X).@....3,T$
:L.L.1:..V....3,G(X);.51);G(X).|...P..((
BF.100.664)..5):P$.J(D(P),2).....T$.G(X)
.J(BL$,1,14).D(BF)." BLOCKS (".P$."%) FR
EE".....T$.T$.J(BL$,1,W.C(T$).1).G(X):.3
,T$...... I.L . 27:.3,G(X);.51)G(X)...B.
..2.L..3,G(173);:. I.1 . 51:.3,G(192);:.
:.3,G(189).D.V..3: 3: 15:.._....15,ER,
ER$:. ER.20 . ....... ER.74 . ER.21 . ER
$.ER$."--IS DISK INSERTED ?":. 510.....E
R$."DISK ERROR".D(ER).": ".ER$.I....ER$:
......T.TT(J):. T.0 . T$.T$.J(BL$,1,24):
....... FL(T).100 . T$.T$." ".(.... FL(T
).10 . T$.T$." ".K.&.T$.T$.J(D(FL(T)),2)
." ".FX$(T).|.0.. C(FX$(T)).16 . T$.T$.J
(BL$,1,16.C(FX$(T)))...:.T$.T$." ".H(FT$
(T),3):....D.. I.1 . N : TT(I).I : ....N
..I.1 . N.1 : S.I : . J.I.1 . N : . FX$(
TT(J)).FX$(TT(S)) . S.J.*.X.. J : . S..I
. T.TT(I) : TT(I).TT(S) : TT(S).T.6.B..
I : ...@
> CLICK IMAGE PREVIEW FOR FULL MODAL