DIRDEL

FILE INFORMATION

FILENAME(S): DIRDEL

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 19:36:54

APPEARS ON: 1 disk(s)

FILE HASH

a109dce626016a859c067a484ea0e8f3ae3763c58fbbaf31e8822495b4ef070b

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C 64 UTILITIES 2	DIRDEL	PRG	Curtcool, Bo	15	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0E 08 05 00 99 20  C7 28 31 34 37 29 00 20  |....... .(147). |
00000010: 08 0A 00 86 20 50 28 38  29 2C 54 50 24 28 35 29  |.... P(8),TP$(5)|
00000020: 00 4C 08 28 00 41 24 B2  22 22 3A 85 22 4F 55 54  |.L.(.A$."":."OUT|
00000030: 50 55 54 20 54 4F 20 53  43 52 45 45 4E 20 4F 52  |PUT TO SCREEN OR|
00000040: 20 50 52 49 4E 54 45 52  22 3B 41 24 00 5C 08 3C  | PRINTER";A$.\.<|
00000050: 00 8B 20 41 24 B2 22 22  20 A7 20 80 00 98 08 50  |.. A$."" . ....P|
00000060: 00 8B 20 41 24 B2 22 53  43 52 45 45 4E 22 20 A7  |.. A$."SCREEN" .|
00000070: 20 9F 20 36 2C 33 3A 48  31 B2 31 34 37 3A 46 B2  | . 6,3:H1.147:F.|
00000080: 31 3A 48 32 B2 31 38 3A  48 33 B2 32 33 3A 48 34  |1:H2.18:H3.23:H4|
00000090: B2 38 3A 89 20 32 30 30  00 D7 08 5A 00 8B 20 41  |.8:. 200...Z.. A|
000000A0: 24 B2 22 50 52 49 4E 54  45 52 22 20 A7 20 9F 20  |$."PRINTER" . . |
000000B0: 36 2C 34 2C 36 3A 48 31  B2 31 34 3A 46 B2 33 3A  |6,4,6:H1.14:F.3:|
000000C0: 48 32 B2 30 3A 48 33 B2  32 30 30 3A 48 34 B2 32  |H2.0:H3.200:H4.2|
000000D0: 31 3A 89 20 32 30 30 00  E0 08 64 00 89 20 34 30  |1:. 200...d.. 40|
000000E0: 00 01 09 C8 00 41 24 B2  22 22 3A 99 22 43 55 52  |.....A$."":."CUR|
000000F0: 52 45 4E 54 2C 44 45 4C  45 54 45 44 2C 20 4F 52  |RENT,DELETED, OR|
00000100: 22 00 1F 09 CD 00 85 22  20 20 20 20 20 46 55 4C  |"......"     FUL|
00000110: 4C 20 44 49 52 45 43 54  4F 52 59 22 3B 41 24 00  |L DIRECTORY";A$.|
00000120: 35 09 DC 00 8B 20 41 24  B2 22 22 20 A7 20 A0 36  |5.... A$."" . .6|
00000130: 3A 89 20 34 30 00 54 09  E6 00 8B 20 41 24 B2 22  |:. 40.T.... A$."|
00000140: 43 55 52 52 45 4E 54 22  20 A7 20 4C B2 31 3A 89  |CURRENT" . L.1:.|
00000150: 20 33 30 30 00 73 09 F0  00 8B 20 41 24 B2 22 44  | 300.s.... A$."D|
00000160: 45 4C 45 54 45 44 22 20  A7 20 4C B2 30 3A 89 20  |ELETED" . L.0:. |
00000170: 33 30 30 00 8F 09 FA 00  8B 20 41 24 B2 22 46 55  |300...... A$."FU|
00000180: 4C 4C 22 20 A7 20 4C B2  32 3A 89 20 33 30 30 00  |LL" . L.2:. 300.|
00000190: 99 09 04 01 89 20 32 30  30 00 AE 09 2C 01 81 20  |..... 200...,.. |
000001A0: 43 B2 31 A4 38 3A 87 20  50 28 43 29 3A 82 00 C5  |C.1.8:. P(C):...|
000001B0: 09 40 01 81 20 43 B2 30  A4 34 3A 87 20 54 50 24  |.@.. C.0.4:. TP$|
000001C0: 28 43 29 3A 82 00 DF 09  5E 01 9F 20 31 35 2C 38  |(C):....^.. 15,8|
000001D0: 2C 31 35 3A 9F 20 35 2C  38 2C 35 2C 22 23 22 00  |,15:. 5,8,5,"#".|
000001E0: F6 09 72 01 98 31 35 2C  22 42 2D 52 3A 22 35 3B  |..r..15,"B-R:"5;|
000001F0: 38 3B 31 38 3B 30 00 0A  0A 7C 01 98 31 35 2C 22  |8;18;0...|..15,"|
00000200: 42 2D 50 3A 22 35 3B 31  34 34 00 23 0A 86 01 98  |B-P:"5;144.#....|
00000210: 36 2C C7 28 48 31 29 3B  A6 48 34 29 3B C7 28 48  |6,.(H1);.H4);.(H|
00000220: 32 29 3B 00 40 0A 90 01  81 20 43 B2 31 A4 31 38  |2);.@.... C.1.18|
00000230: 3A A1 23 35 2C 41 24 3A  98 36 2C 41 24 3B 3A 82  |:.#5,A$:.6,A$;:.|
00000240: 00 4E 0A A4 01 98 36 2C  22 20 20 20 22 3B 00 65  |.N....6,"   ";.e|
00000250: 0A B8 01 A1 23 35 2C 41  24 2C 42 24 3A 98 36 2C  |....#5,A$,B$:.6,|
00000260: 41 24 3B 42 24 00 77 0A  C2 01 98 36 2C 22 20 22  |A$;B$.w....6," "|
00000270: 3A 98 36 2C 22 20 22 00  90 0A E0 01 48 33 B2 48  |:.6," ".....H3.H|
00000280: 33 AB 33 3A 54 B2 31 38  3A 53 B2 31 3A 4E B2 31  |3.3:T.18:S.1:N.1|
00000290: 00 AB 0A EA 01 8B 20 54  B2 30 20 A7 20 98 36 3A  |...... T.0 . .6:|
000002A0: A0 36 3A A0 35 3A A0 31  35 3A 80 00 C0 0A F4 01  |.6:.5:.15:......|
000002B0: 98 31 35 2C 22 55 31 3A  22 35 3B 38 3B 54 3B 53  |.15,"U1:"5;8;T;S|
000002C0: 00 E8 0A 08 02 A1 23 35  2C 54 24 2C 53 24 3A 54  |......#5,T$,S$:T|
000002D0: B2 C6 28 54 24 AA C7 28  30 29 29 3A 53 B2 C6 28  |..(T$..(0)):S..(|
000002E0: 53 24 AA C7 28 30 29 29  00 FE 0A 1C 02 8B 20 4E  |S$..(0))...... N|
000002F0: B2 39 20 A7 20 4E B2 31  3A 89 20 34 39 30 00 13  |.9 . N.1:. 490..|
00000300: 0B 30 02 98 31 35 2C 22  42 2D 50 3A 22 35 3B 50  |.0..15,"B-P:"5;P|
00000310: 28 4E 29 00 52 0B 44 02  A1 23 35 2C 41 24 2C 54  |(N).R.D..#5,A$,T|
00000320: 31 24 2C 53 31 24 3A 54  31 B2 C6 28 54 31 24 AA  |1$,S1$:T1..(T1$.|
00000330: C7 28 30 29 29 3A 53 31  B2 C6 28 53 31 24 AA C7  |.(0)):S1..(S1$..|
00000340: 28 30 29 29 3A 41 31 B2  C6 28 41 24 AA C7 28 30  |(0)):A1..(A$..(0|
00000350: 29 29 00 6A 0B 4E 02 8B  20 41 31 B3 B1 30 20 A7  |)).j.N.. A1..0 .|
00000360: 20 41 31 B2 41 31 AB 31  32 38 00 7C 0B 53 02 8B  | A1.A1.128.|.S..|
00000370: 20 41 31 B3 30 20 A7 20  41 31 B2 30 00 9B 0B 58  | A1.0 . A1.0...X|
00000380: 02 8B 20 41 31 B2 30 20  AF 20 4C B2 31 20 A7 20  |.. A1.0 . L.1 . |
00000390: 4E B2 4E AA 31 3A 89 20  35 34 30 00 AC 0B 6C 02  |N.N.1:. 540...l.|
000003A0: 8B 20 41 31 B2 30 20 A7  20 37 30 30 00 C4 0B 76  |. A1.0 . 700...v|
000003B0: 02 8B 20 4C B2 30 20 A7  20 4E B2 4E AA 31 3A 89  |.. L.0 . N.N.1:.|
000003C0: 20 35 34 30 00 CE 0B BC  02 4E 24 B2 22 22 00 ED  | 540.....N$.""..|
000003D0: 0B D0 02 81 20 43 B2 31  A4 31 36 3A A1 23 35 2C  |.... C.1.16:.#5,|
000003E0: 41 24 3A 4E 24 B2 4E 24  AA 41 24 3A 82 00 09 0C  |A$:N$.N$.A$:....|
000003F0: DA 02 8B 20 C3 28 4E 24  29 B2 30 20 A7 20 4E B2  |... .(N$).0 . N.|
00000400: 4E AA 31 3A 89 20 35 34  30 00 21 0C E4 02 98 31  |N.1:. 540.!....1|
00000410: 35 2C 22 42 2D 50 3A 22  35 3B 50 28 4E 29 AA 32  |5,"B-P:"5;P(N).2|
00000420: 38 00 5B 0C F8 02 A1 23  35 2C 4C 42 24 2C 48 42  |8.[....#5,LB$,HB|
00000430: 24 3A 4C 42 B2 C6 28 4C  42 24 AA C7 28 30 29 29  |$:LB..(LB$..(0))|
00000440: 3A 48 42 B2 C6 28 48 42  24 AA C7 28 30 29 29 3A  |:HB..(HB$..(0)):|
00000450: 42 B2 4C 42 AA 32 35 36  AC 48 42 00 78 0C 0C 03  |B.LB.256.HB.x...|
00000460: 98 36 2C 42 3B A6 35 AB  C3 28 C4 28 42 29 29 29  |.6,B;.5..(.(B)))|
00000470: 3B 4E 24 3B A6 32 29 3B  00 9F 0C 20 03 98 36 2C  |;N$;.2);... ..6,|
00000480: 54 50 24 28 41 31 29 3B  A6 32 29 3B 54 31 3B A6  |TP$(A1);.2);T1;.|
00000490: 34 AB C3 28 C4 28 54 31  29 29 29 3B 53 31 3B 00  |4..(.(T1)));S1;.|
000004A0: BD 0C 2A 03 8B 20 48 32  B2 30 20 A7 20 98 36 2C  |..*.. H2.0 . .6,|
000004B0: A6 39 AB C3 28 C4 28 53  31 29 29 29 3B 00 CF 0C  |.9..(.(S1)));...|
000004C0: 34 03 48 33 B2 48 33 AB  31 3A 46 B2 46 AB 31 00  |4.H3.H3.1:F.F.1.|
000004D0: E0 0C 48 03 8B 20 48 33  B3 B1 30 20 A7 39 30 30  |..H.. H3..0 .900|
000004E0: 00 FA 0C 4D 03 99 3A 99  20 22 45 4E 54 45 52 20  |...M..:. "ENTER |
000004F0: 2A 20 4F 52 20 3C 43 52  3E 22 00 10 0D 52 03 A1  |* OR <CR>"...R..|
00000500: 41 24 3A 8B 20 41 24 B2  22 22 20 A7 20 38 35 30  |A$:. A$."" . 850|
00000510: 00 2E 0D 55 03 8B 20 41  24 B2 22 2A 22 20 A7 20  |...U.. A$."*" . |
00000520: 98 36 3A A0 36 3A A0 35  3A A0 31 35 3A 80 00 4C  |.6:.6:.5:.15:..L|
00000530: 0D 57 03 99 C7 28 31 34  37 29 3A 48 33 B2 32 32  |.W...(147):H3.22|
00000540: 3A 4E B2 4E AA 31 3A 89  20 35 34 30 00 6B 0D 84  |:N.N.1:. 540.k..|
00000550: 03 8B 20 46 B2 30 20 A7  20 98 36 3A 46 B2 33 3A  |.. F.0 . .6:F.3:|
00000560: 4E B2 4E AA 31 3A 89 20  35 34 30 00 7C 0D 98 03  |N.N.1:. 540.|...|
00000570: 8B 20 48 32 B3 B1 30 20  A7 20 98 36 00 8C 0D A2  |. H2..0 . .6....|
00000580: 03 4E B2 4E AA 31 3A 89  20 35 34 30 00 AD 0D 88  |.N.N.1:. 540....|
00000590: 13 83 20 32 2C 33 34 2C  36 36 2C 39 38 2C 31 33  |.. 2,34,66,98,13|
000005A0: 30 2C 31 36 32 2C 31 39  34 2C 32 32 36 00 C7 0D  |0,162,194,226...|
000005B0: 89 13 83 20 44 45 4C 2C  53 45 51 2C 50 52 47 2C  |... DEL,SEQ,PRG,|
000005C0: 55 53 52 2C 52 45 4C 00  00 00                    |USR,REL...      |

....... G(147). .... P(8),TP$(5).L.(.A$.
"":."OUTPUT TO SCREEN OR PRINTER";A$.\.<
.. A$."" . ....P.. A$."SCREEN" . . 6,3:H
1.147:F.1:H2.18:H3.23:H4.8:. 200.W.Z.. A
$."PRINTER" . . 6,4,6:H1.14:F.3:H2.0:H3.
200:H4.21:. 200...D.. 40...H.A$."":."CUR
RENT,DELETED, OR"...M.."     FULL DIRECT
ORY";A$.5.... A$."" .  6:. 40.T.... A$."
CURRENT" . L.1:. 300.S.... A$."DELETED" 
. L.0:. 300...... A$."FULL" . L.2:. 300.
..... 200...,.. C.1.8:. P(C):..E.@.. C.0
.4:. TP$(C):....^.. 15,8,15:. 5,8,5,"#".
..R..15,"B-R:"5;8;18;0...|..15,"B-P:"5;1
44.#....6,G(H1);.H4);G(H2);.@.... C.1.18
:.#5,A$:.6,A$;:..N....6,"   ";.E....#5,A
$,B$:.6,A$;B$.W.B..6," ":.6," ".....H3.H
3.3:T.18:S.1:N.1...... T.0 . .6: 6: 5: 1
5:.......15,"U1:"5;8;T;S......#5,T$,S$:T
.F(T$.G(0)):S.F(S$.G(0))...... N.9 . N.1
:. 490...0..15,"B-P:"5;P(N).R.D..#5,A$,T
1$,S1$:T1.F(T1$.G(0)):S1.F(S1$.G(0)):A1.
F(A$.G(0)).J.N.. A1..0 . A1.A1.128.|.S..
 A1.0 . A1.0...X.. A1.0 . L.1 . N.N.1:. 
540...L.. A1.0 . 700.D.V.. L.0 . N.N.1:.
 540.N...N$.""...P.. C.1.16:.#5,A$:N$.N$
.A$:....Z.. C(N$).0 . N.N.1:. 540.!....1
5,"B-P:"5;P(N).28.[....#5,LB$,HB$:LB.F(L
B$.G(0)):HB.F(HB$.G(0)):B.LB.256.HB.X...
.6,B;.5.C(D(B)));N$;.2);... ..6,TP$(A1);
.2);T1;.4.C(D(T1)));S1;...*.. H2.0 . .6,
.9.C(D(S1)));.O.4.H3.H3.1:F.F.1...H.. H3
..0 .900...M..:. "ENTER * OR <CR>"...R..
A$:. A$."" . 850...U.. A$."*" . .6: 6: 5
: 15:..L.W..G(147):H3.22:N.N.1:. 540.K..
.. F.0 . .6:F.3:N.N.1:. 540.|.... H2..0 
. .6.....N.N.1:. 540...... 2,34,66,98,13
0,162,194,226.G.... DEL,SEQ,PRG,USR,REL.
..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL