_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SRTDIR

FILE INFORMATION

FILENAME(S): SRTDIR

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:22:53

APPEARS ON: 1 disk(s)

FILE HASH

d8afb40956647dc63aebfe6c885f8c9b3ff131007a45fa83b6c3f53a0f2f8d65

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
DOS VADER SRTDIR PRG DuncanTwain 8 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 26 08 64 00 99 C7  28 31 34 37 29 3A 97 35  |..&.d...(147):.5|
00000010: 33 32 38 30 2C 38 3A 97  35 33 32 38 31 2C 30 3A  |3280,8:.53281,0:|
00000020: 97 36 34 36 2C 31 00 49  08 6E 00 99 A3 31 33 29  |.646,1.I.n...13)|
00000030: 22 91 12 20 53 4F 52 54  20 44 49 52 45 43 54 4F  |".. SORT DIRECTO|
00000040: 52 59 20 92 22 3A 99 3A  99 00 7E 08 73 00 99 A3  |RY .":.:..~.s...|
00000050: 33 29 22 12 20 52 45 4D  4F 56 45 20 44 4F 53 20  |3)". REMOVE DOS |
00000060: 56 41 44 45 52 20 49 46  20 57 4F 52 4B 49 4E 47  |VADER IF WORKING|
00000070: 20 57 49 54 48 20 38 20  92 22 3A 99 3A 99 00 A1  | WITH 8 .":.:...|
00000080: 08 78 00 99 A3 31 32 29  22 49 4E 50 55 54 20 27  |.x...12)"INPUT '|
00000090: 39 39 27 20 54 4F 20 41  42 4F 52 54 22 3A 99 3A  |99' TO ABORT":.:|
000000A0: 99 00 D3 08 82 00 99 22  11 11 22 3B 3A 99 A3 31  |......."..";:..1|
000000B0: 30 29 22 57 4F 52 4B 49  4E 47 20 57 49 54 48 20  |0)"WORKING WITH |
000000C0: 44 45 56 49 43 45 20 20  20 38 9D 9D 9D 22 3B 3A  |DEVICE   8...";:|
000000D0: 85 44 56 00 E3 08 8C 00  8B 44 56 B2 39 39 A7 89  |.DV......DV.99..|
000000E0: 34 33 30 00 14 09 91 00  99 3A 99 3A 99 A3 35 29  |430......:.:..5)|
000000F0: 22 12 20 49 4E 53 45 52  54 20 53 4F 55 52 43 45  |". INSERT SOURCE|
00000100: 20 44 49 53 4B 2D 48 49  54 20 53 50 41 43 45 20  | DISK-HIT SPACE |
00000110: 92 22 3A 99 00 27 09 92  00 A1 41 24 3A 8B 41 24  |.":..'....A$:.A$|
00000120: B2 22 22 A7 31 34 36 00  3A 09 93 00 8B 41 24 B2  |."".146.:....A$.|
00000130: C7 28 33 32 29 A7 89 31  35 30 00 43 09 94 00 89  |.(32)..150.C....|
00000140: 31 34 36 00 51 09 96 00  8D 34 38 30 3A 89 32 39  |146.Q....480:.29|
00000150: 30 00 7A 09 A0 00 99 22  11 53 4F 52 54 49 4E 47  |0.z....".SORTING|
00000160: 22 3A 53 4B B2 4B 31 3A  4C 25 28 4B 31 29 B2 4B  |":SK.K1:L%(K1).K|
00000170: 31 3A 52 25 28 31 29 B2  4E 46 00 9A 09 AA 00 4C  |1:R%(1).NF.....L|
00000180: 31 B2 4C 25 28 53 4B 29  3A 52 31 B2 52 25 28 53  |1.L%(SK):R1.R%(S|
00000190: 4B 29 3A 53 4B B2 53 4B  AB 31 00 C0 09 B4 00 4C  |K):SK.SK.1.....L|
000001A0: 32 B2 4C 31 3A 52 32 B2  52 31 3A 4B 45 24 B2 4E  |2.L1:R2.R1:KE$.N|
000001B0: 53 24 28 B5 28 28 4C 31  AA 52 31 29 AD 32 29 29  |S$(.((L1.R1).2))|
000001C0: 00 EC 09 BE 00 4B 45 24  B2 CA 28 4B 45 24 2C 33  |.....KE$..(KE$,3|
000001D0: 31 29 AA CA 28 4B 45 24  2C 34 2C 4D 25 28 B5 28  |1)..(KE$,4,M%(.(|
000001E0: 28 4C 31 AA 52 31 29 AD  32 29 29 29 00 25 0A C8  |(L1.R1).2))).%..|
000001F0: 00 8B CA 28 4E 53 24 28  4C 32 29 2C 33 31 29 AA  |...(NS$(L2),31).|
00000200: CA 28 4E 53 24 28 4C 32  29 2C 34 2C 4D 25 28 4C  |.(NS$(L2),4,M%(L|
00000210: 32 29 29 B3 4B 45 24 A7  4C 32 B2 4C 32 AA 4B 31  |2)).KE$.L2.L2.K1|
00000220: 3A 89 32 30 30 00 5E 0A  D2 00 8B 4B 45 24 B3 CA  |:.200.^....KE$..|
00000230: 28 4E 53 24 28 52 32 29  2C 33 31 29 AA CA 28 4E  |(NS$(R2),31)..(N|
00000240: 53 24 28 52 32 29 2C 34  2C 4D 25 28 52 32 29 29  |S$(R2),4,M%(R2))|
00000250: A7 52 32 B2 52 32 AB 4B  31 3A 89 32 31 30 00 6D  |.R2.R2.K1:.210.m|
00000260: 0A DC 00 8B 4C 32 B1 52  32 A7 32 35 30 00 A3 0A  |....L2.R2.250...|
00000270: E6 00 4E 24 B2 4E 53 24  28 52 32 29 3A 48 B2 4D  |..N$.NS$(R2):H.M|
00000280: 25 28 52 32 29 3A 4E 53  24 28 52 32 29 B2 4E 53  |%(R2):NS$(R2).NS|
00000290: 24 28 4C 32 29 3A 4D 25  28 52 32 29 B2 4D 25 28  |$(L2):M%(R2).M%(|
000002A0: 4C 32 29 00 D0 0A F0 00  4E 53 24 28 4C 32 29 B2  |L2).....NS$(L2).|
000002B0: 4E 24 3A 4D 25 28 4C 32  29 B2 48 3A 4C 32 B2 4C  |N$:M%(L2).H:L2.L|
000002C0: 32 AA 31 3A 52 32 B2 52  32 AB 31 3A 89 32 30 30  |2.1:R2.R2.1:.200|
000002D0: 00 F7 0A FA 00 8B 4C 32  B3 52 31 A7 53 4B B2 53  |......L2.R1.SK.S|
000002E0: 4B AA 31 3A 4C 25 28 53  4B 29 B2 4C 32 3A 52 25  |K.1:L%(SK).L2:R%|
000002F0: 28 53 4B 29 B2 52 31 00  0C 0B 04 01 52 31 B2 52  |(SK).R1.....R1.R|
00000300: 32 3A 8B 4C 31 B3 52 31  A7 31 38 30 00 18 0B 0E  |2:.L1.R1.180....|
00000310: 01 8B 53 4B A7 31 37 30  00 1E 0B 18 01 8E 00 2C  |..SK.170.......,|
00000320: 0B 22 01 4E 46 B2 30 3A  8D 34 34 30 00 63 0B 2C  |.".NF.0:.440.c.,|
00000330: 01 8D 34 36 30 3A 81 50  50 B2 31 A4 38 3A 52 24  |..460:.PP.1.8:R$|
00000340: B2 22 22 3A 46 4C B2 30  3A 4D 25 28 4E 46 AA 31  |."":FL.0:M%(NF.1|
00000350: 29 B2 31 36 3A 81 58 B2  31 A4 33 30 3A A1 23 35  |).16:.X.1.30:.#5|
00000360: 2C 49 24 00 89 0B 36 01  8B 49 24 B2 C7 28 31 36  |,I$...6..I$..(16|
00000370: 30 29 AF 46 4C B2 30 A7  4D 25 28 4E 46 AA 31 29  |0).FL.0.M%(NF.1)|
00000380: B2 58 AB 34 3A 46 4C B2  31 00 B2 0B 40 01 52 24  |.X.4:FL.1...@.R$|
00000390: B2 52 24 AA C8 28 49 24  AA 43 30 24 2C 31 29 3A  |.R$..(I$.C0$,1):|
000003A0: 82 3A 8B 50 50 B3 B1 38  A7 A1 23 35 2C 49 24 2C  |.:.PP..8..#5,I$,|
000003B0: 49 24 00 DC 0B 4A 01 58  24 B2 43 30 24 3A 8B CA  |I$...J.X$.C0$:..|
000003C0: 28 52 24 2C 31 2C 31 29  B2 43 30 24 A7 58 24 B2  |(R$,1,1).C0$.X$.|
000003D0: C7 28 32 35 35 29 3A 99  44 44 24 3B 00 13 0C 54  |.(255):.DD$;...T|
000003E0: 01 4E 46 B2 4E 46 AA 31  3A 4E 53 24 28 4E 46 29  |.NF.NF.1:NS$(NF)|
000003F0: B2 52 24 AA 58 24 3A 99  CA 28 52 24 2C 34 2C 31  |.R$.X$:..(R$,4,1|
00000400: 36 29 3A 82 50 50 3A 8B  59 53 B3 B1 32 35 35 A7  |6):.PP:.YS..255.|
00000410: 33 30 30 00 1F 0C 5E 01  A0 35 3A 8D 31 36 30 00  |300...^..5:.160.|
00000420: 48 0C 68 01 99 22 11 48  49 54 20 12 20 53 50 41  |H.h..".HIT . SPA|
00000430: 43 45 20 92 54 4F 20 52  45 57 52 49 54 45 20 44  |CE .TO REWRITE D|
00000440: 49 52 45 43 54 4F 52 59  00 5D 0C 72 01 A1 41 24  |IRECTORY.].r..A$|
00000450: 3A 8B 41 24 B3 B1 22 20  22 A7 33 37 30 00 6B 0C  |:.A$.." ".370.k.|
00000460: 7C 01 8D 34 34 30 3A 4E  4E B2 30 00 84 0C 86 01  ||..440:NN.0.....|
00000470: 8D 34 36 30 3A 81 50 50  B2 31 A4 38 3A 4E 4E B2  |.460:.PP.1.8:NN.|
00000480: 4E 4E AA 31 00 B8 0C 90  01 98 35 2C CA 28 4E 53  |NN.1......5,.(NS|
00000490: 24 28 4E 4E 29 2C 31 2C  33 30 29 3B 3A 8B CA 28  |$(NN),1,30);:..(|
000004A0: 4E 53 24 28 4E 4E 29 2C  33 31 29 B2 C7 28 32 35  |NS$(NN),31)..(25|
000004B0: 35 29 A7 99 44 44 24 3B  00 E0 0C 9A 01 99 CA 28  |5)..DD$;.......(|
000004C0: 4E 53 24 28 4E 4E 29 2C  34 2C 31 36 29 3A 8B 50  |NS$(NN),4,16):.P|
000004D0: 50 B3 B1 38 A7 98 35 2C  43 30 24 3B 43 30 24 3B  |P..8..5,C0$;C0$;|
000004E0: 00 08 0D A4 01 82 50 50  3A 98 31 35 2C 22 55 32  |......PP:.15,"U2|
000004F0: 22 3B 35 3B 30 3B 4C 54  3B 4C 53 3A 8B 59 53 B3  |";5;0;LT;LS:.YS.|
00000500: B1 32 35 35 A7 33 39 30  00 2A 0D AE 01 A0 35 3A  |.255.390.*....5:|
00000510: 99 3A 99 A3 31 30 29 22  12 20 41 4C 4C 20 44 4F  |.:..10)". ALL DO|
00000520: 4E 45 20 92 22 3A 89 35  30 30 00 5A 0D B8 01 9F  |NE .":.500.Z....|
00000530: 35 2C 44 56 2C 35 2C 22  23 22 3A 59 54 B2 31 38  |5,DV,5,"#":YT.18|
00000540: 3A 59 53 B2 30 3A 8D 34  36 30 3A 98 31 35 2C 22  |:YS.0:.460:.15,"|
00000550: 42 2D 50 22 3B 35 3B 31  34 33 00 81 0D C2 01 99  |B-P";5;143......|
00000560: 52 4E 24 3B 3A 81 58 B2  31 A4 32 34 3A A1 23 35  |RN$;:.X.1.24:.#5|
00000570: 2C 49 24 3A 99 49 24 3B  3A 82 3A 99 52 46 24 3A  |,I$:.I$;:.:.RF$:|
00000580: 8E 00 BB 0D CC 01 98 31  35 2C 22 55 31 22 3B 35  |.......15,"U1";5|
00000590: 3B 30 3B 59 54 3B 59 53  3A 4C 54 B2 59 54 3A 4C  |;0;YT;YS:LT.YT:L|
000005A0: 53 B2 59 53 3A A1 23 35  2C 54 24 2C 53 24 3A 59  |S.YS:.#5,T$,S$:Y|
000005B0: 54 B2 C6 28 54 24 AA 43  30 24 29 00 CE 0D D6 01  |T..(T$.C0$).....|
000005C0: 59 53 B2 C6 28 53 24 AA  43 30 24 29 3A 8E 00 13  |YS..(S$.C0$):...|
000005D0: 0E E0 01 58 B2 31 35 30  3A 86 4C 25 28 58 29 2C  |...X.150:.L%(X),|
000005E0: 4D 25 28 58 29 2C 52 25  28 58 29 2C 4E 53 24 28  |M%(X),R%(X),NS$(|
000005F0: 58 29 3A 4B 31 B2 31 3A  9F 31 35 2C 44 56 2C 31  |X):K1.1:.15,DV,1|
00000600: 35 2C 22 49 22 3A 43 30  24 B2 C7 28 30 29 3A 4E  |5,"I":C0$..(0):N|
00000610: 46 B2 30 00 4E 0E EA 01  44 44 24 B2 22 3E 3E 3E  |F.0.N...DD$.">>>|
00000620: 3E 3E 3E 3E 3E 3E 3E 3E  3E 3E 3E 12 20 44 45 4C  |>>>>>>>>>>>. DEL|
00000630: 45 54 45 44 20 92 22 3A  52 4E 24 B2 C7 28 31 38  |ETED .":RN$..(18|
00000640: 29 3A 52 46 24 B2 C7 28  31 34 36 29 3A 8E 00 7E  |):RF$..(146):..~|
00000650: 0E F4 01 99 3A 99 A3 33  29 22 12 20 42 45 20 53  |....:..3)". BE S|
00000660: 55 52 45 20 54 4F 20 49  4E 53 45 52 54 20 44 4F  |URE TO INSERT DO|
00000670: 53 20 56 41 44 45 52 20  92 22 3A 99 3A 99 00 A4  |S VADER .":.:...|
00000680: 0E F5 01 99 3A 99 22 48  49 54 20 41 4E 59 20 4B  |....:."HIT ANY K|
00000690: 45 59 20 54 4F 20 52 45  54 55 52 4E 20 54 4F 20  |EY TO RETURN TO |
000006A0: 4D 45 4E 55 00 BA 0E F6  01 92 31 39 37 2C 36 34  |MENU......197,64|
000006B0: 2C 36 34 3A 97 31 39 38  2C 30 00 C5 0E F7 01 97  |,64:.198,0......|
000006C0: 36 34 36 2C 30 00 DF 0E  F9 01 99 C7 28 31 34 37  |646,0.......(147|
000006D0: 29 3A 99 22 4C 4F 41 44  49 4E 47 11 11 11 22 00  |):."LOADING...".|
000006E0: 06 0F FE 01 99 22 4C 4F  41 44 22 C7 28 33 34 29  |....."LOAD".(34)|
000006F0: 22 4D 45 4E 55 20 32 20  2B 22 C7 28 33 34 29 22  |"MENU 2 +".(34)"|
00000700: 2C 38 91 91 91 22 00 3B  0F 08 02 97 36 33 31 2C  |,8...".;....631,|
00000710: 31 33 3A 97 36 33 32 2C  38 32 3A 97 36 33 33 2C  |13:.632,82:.633,|
00000720: 38 35 3A 97 36 33 34 2C  37 38 3A 97 36 33 35 2C  |85:.634,78:.635,|
00000730: 31 33 3A 97 31 39 38 2C  35 3A 80 00 00 00        |13:.198,5:....  |
..&.D..G(147):.53280,8:.53281,0:.646,1.I
.N...13)".. SORT DIRECTORY .":.:..~.S...
3)". REMOVE DOS VADER IF WORKING WITH 8 
.":.:....X...12)"INPUT '99' TO ABORT":.:
..S...."..";:..10)"WORKING WITH DEVICE  
 8...";:.DV......DV.99..430......:.:..5)
". INSERT SOURCE DISK-HIT SPACE .":..'..
..A$:.A$."".146.:....A$.G(32)..150.C....
146.Q....480:.290.Z. ..".SORTING":SK.K1:
L%(K1).K1:R%(1).NF.....L1.L%(SK):R1.R%(S
K):SK.SK.1.....L2.L1:R2.R1:KE$.NS$(.((L1
.R1).2)).....KE$.J(KE$,31).J(KE$,4,M%(.(
(L1.R1).2))).%.H..J(NS$(L2),31).J(NS$(L2
),4,M%(L2)).KE$.L2.L2.K1:.200.^.R..KE$.J
(NS$(R2),31).J(NS$(R2),4,M%(R2)).R2.R2.K
1:.210.M....L2.R2.250.....N$.NS$(R2):H.M
%(R2):NS$(R2).NS$(L2):M%(R2).M%(L2).P...
NS$(L2).N$:M%(L2).H:L2.L2.1:R2.R2.1:.200
......L2.R1.SK.SK.1:L%(SK).L2:R%(SK).R1.
....R1.R2:.L1.R1.180......SK.170.......,
.".NF.0:.440.C.,..460:.PP.1.8:R$."":FL.0
:M%(NF.1).16:.X.1.30:.#5,I$...6..I$.G(16
0).FL.0.M%(NF.1).X.4:FL.1...@.R$.R$.H(I$
.C0$,1):.:.PP..8..#5,I$,I$...J.X$.C0$:.J
(R$,1,1).C0$.X$.G(255):.DD$;...T.NF.NF.1
:NS$(NF).R$.X$:.J(R$,4,16):.PP:.YS..255.
300...^. 5:.160.H.H..".HIT . SPACE .TO R
EWRITE DIRECTORY.].R..A$:.A$.." ".370.K.
|..440:NN.0......460:.PP.1.8:NN.NN.1....
..5,J(NS$(NN),1,30);:.J(NS$(NN),31).G(25
5)..DD$;......J(NS$(NN),4,16):.PP..8..5,
C0$;C0$;......PP:.15,"U2";5;0;LT;LS:.YS.
.255.390.*... 5:.:..10)". ALL DONE .":.5
00.Z....5,DV,5,"#":YT.18:YS.0:.460:.15,"
B-P";5;143...B..RN$;:.X.1.24:.#5,I$:.I$;
:.:.RF$:....L..15,"U1";5;0;YT;YS:LT.YT:L
S.YS:.#5,T$,S$:YT.F(T$.C0$).N.V.YS.F(S$.
C0$):......X.150:.L%(X),M%(X),R%(X),NS$(
X):K1.1:.15,DV,15,"I":C0$.G(0):NF.0.N...
DD$.">>>>>>>>>>>>>>. DELETED .":RN$.G(18
):RF$.G(146):..~....:..3)". BE SURE TO I
NSERT DOS VADER .":.:.......:."HIT ANY K
EY TO RETURN TO MENU......197,64,64:.198
,0.E....646,0......G(147):."LOADING...".
....."LOAD"G(34)"MENU 2 +"G(34)",8...".;
....631,13:.632,82:.633,85:.634,78:.635,
13:.198,5:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL