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

DIRPRINT

FILE INFORMATION

FILENAME(S): DIRPRINT

FILE TYPE(S): PRG

FILE SIZE: 1K

FIRST SEEN: 2025-12-01 01:09:57

APPEARS ON: 1 disk(s)

FILE HASH

cae32ae202195e7bef608431146e2369ad9621f32f2bc26a75d83ce28a81c16c

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NYTTO COPY DIRPRINT PRG hedning, Martin L0fgren 6 13 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 22 08 01 00 8F 20  20 2A 2A 2A 2A 2A 2A 2A  |.."....  *******|
00000010: 20 49 4E 49 54 49 41 4C  49 5A 45 20 2A 2A 2A 2A  | INITIALIZE ****|
00000020: 2A 2A 00 35 08 03 00 86  41 24 28 39 39 29 3A 86  |**.5....A$(99):.|
00000030: 53 28 39 39 29 00 55 08  0A 00 8F 20 2A 2A 2A 20  |S(99).U.... *** |
00000040: 44 49 53 50 4C 41 59 20  44 49 52 45 43 54 4F 52  |DISPLAY DIRECTOR|
00000050: 59 20 2A 2A 2A 00 5F 08  0F 00 99 22 93 22 3B 00  |Y ***._....".";.|
00000060: 6D 08 14 00 8D 20 39 39  35 3A 58 B2 32 00 81 08  |m.... 995:X.2...|
00000070: 1E 00 A1 23 31 2C 41 24  3A 41 24 28 30 29 B2 22  |...#1,A$:A$(0)."|
00000080: 22 00 8F 08 28 00 8B 53  54 B3 B1 30 A7 37 35 00  |"...(..ST..0.75.|
00000090: A7 08 32 00 8B 41 24 B2  C7 28 33 34 29 A7 8D 31  |..2..A$..(34)..1|
000000A0: 30 30 30 3A 58 B2 31 00  B0 08 3C 00 89 20 33 30  |000:X.1...<.. 30|
000000B0: 00 D0 08 46 00 8F 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  |...F.. *********|
000000C0: 20 51 55 45 52 59 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  | QUERY *********|
000000D0: 00 E3 08 4B 00 99 22 11  11 22 3A 41 24 28 30 29  |...K.."..":A$(0)|
000000E0: B2 22 22 00 F3 08 4D 00  8D 20 32 30 30 30 3A 99  |.""...M.. 2000:.|
000000F0: 22 11 22 00 05 09 50 00  8D 20 39 39 35 3A 58 B2  |"."...P.. 995:X.|
00000100: 30 3A 51 B2 31 00 10 09  5A 00 A1 23 31 2C 41 24  |0:Q.1...Z..#1,A$|
00000110: 00 1F 09 64 00 8B 53 54  B3 B1 30 A7 31 34 35 00  |...d..ST..0.145.|
00000120: 31 09 6E 00 8B 41 24 B3  B1 C7 28 33 34 29 A7 39  |1.n..A$...(34).9|
00000130: 30 00 3C 09 73 00 8D 20  31 30 30 30 00 4B 09 78  |0.<.s.. 1000.K.x|
00000140: 00 8B 58 A7 20 8D 20 31  31 30 30 00 66 09 82 00  |..X. . 1100.f...|
00000150: 58 B2 31 3A 49 B2 49 AA  31 3A 41 24 28 49 29 B2  |X.1:I.I.1:A$(I).|
00000160: 22 22 3A 89 39 30 00 85  09 8C 00 8F 20 2A 2A 2A  |"":.90...... ***|
00000170: 2A 2A 2A 2A 2A 20 50 52  49 4E 54 20 2A 2A 2A 2A  |***** PRINT ****|
00000180: 2A 2A 2A 2A 2A 00 97 09  91 00 8B 44 B2 30 A7 41  |*****......D.0.A|
00000190: 24 28 30 29 B2 4E 24 00  BF 09 98 00 9F 34 2C 34  |$(0).N$......4,4|
000001A0: 3A 98 34 2C C7 28 32 37  29 C7 28 36 34 29 3A 98  |:.4,.(27).(64):.|
000001B0: 34 2C 22 1B 45 22 41 24  28 30 29 22 1B 46 22 00  |4,".E"A$(0)".F".|
000001C0: DE 09 A0 00 81 4A B2 31  A4 C3 28 41 24 28 30 29  |.....J.1..(A$(0)|
000001D0: 29 3A 98 34 2C 22 C5 22  3B 3A 82 3A A0 34 00 08  |):.4,".";:.:.4..|
000001E0: 0A A5 00 9F 34 2C 34 2C  36 3A 98 34 2C C7 28 31  |....4,4,6:.4,.(1|
000001F0: 30 29 3A A0 34 3A 9F 34  2C 34 3A 98 34 2C 22 1B  |0):.4:.4,4:.4,".|
00000200: 42 03 1B 53 01 1B 34 22  00 14 0A AA 00 81 49 B2  |B..S..4"......I.|
00000210: 31 A4 39 39 00 28 0A B4  00 8B 20 53 28 49 29 A7  |1.99.(.... S(I).|
00000220: 98 34 2C 41 24 28 49 29  00 2E 0A BE 00 82 00 38  |.4,A$(I).......8|
00000230: 0A C8 00 A0 31 3A A0 34  00 4E 0A C9 00 85 22 46  |....1:.4.N...."F|
00000240: 4C 45 52 20 44 49 53 4B  41 52 22 3B 49 24 00 6D  |LER DISKAR";I$.m|
00000250: 0A CA 00 8B 20 28 28 49  24 B2 22 4A 22 29 20 B0  |.... ((I$."J") .|
00000260: 20 28 49 24 B2 22 59 22  29 29 A7 20 8A 00 73 0A  | (I$."Y")). ..s.|
00000270: CB 00 80 00 92 0A E2 03  8F 20 2A 2A 2A 2A 2A 2A  |......... ******|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000290: 2A 2A 00 A7 0A E3 03 A0  31 3A 9F 31 2C 38 2C 30  |**......1:.1,8,0|
000002A0: 2C 22 24 30 22 3A 8E 00  C6 0A E7 03 8F 20 2A 2A  |,"$0":....... **|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002C0: 2A 2A 2A 2A 2A 2A 00 D9  0A E8 03 8B 58 B2 32 A7  |******......X.2.|
000002D0: 99 22 12 22 3B 3A 58 B2  31 00 E6 0A F2 03 8B 58  |.".";:X.1......X|
000002E0: A7 20 99 41 24 3B 00 F1  0A FC 03 A1 23 31 2C 41  |. .A$;......#1,A|
000002F0: 24 00 16 0B 06 04 8B 20  41 24 B3 B1 C7 28 33 34  |$...... A$...(34|
00000300: 29 A7 41 24 28 49 29 B2  41 24 28 49 29 AA 41 24  |).A$(I).A$(I).A$|
00000310: 3A 89 31 30 31 30 00 26  0B 10 04 8B 58 A7 20 99  |:.1010.&....X. .|
00000320: 41 24 22 92 22 3B 00 31  0B 1A 04 8B 51 B2 30 A7  |A$".";.1....Q.0.|
00000330: 99 00 37 0B 24 04 8E 00  55 0B 25 04 8F 20 2A 2A  |..7.$...U.%.. **|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000350: 2A 2A 2A 2A 2A 00 74 0B  4C 04 99 A6 32 35 AB C3  |*****.t.L...25..|
00000360: 28 41 24 28 49 29 29 29  3B 3A 85 22 20 59 2F 4E  |(A$(I)));:." Y/N|
00000370: 22 3B 41 24 00 88 0B 56  04 8B 20 41 24 B2 22 59  |";A$...V.. A$."Y|
00000380: 22 A7 53 28 49 29 B2 31  00 8E 0B 60 04 8E 00 AC  |".S(I).1...`....|
00000390: 0B CF 07 8F 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.... ***********|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 CC 0B D0  |************....|
000003B0: 07 85 22 55 53 45 20 44  45 46 41 55 4C 54 20 44  |.."USE DEFAULT D|
000003C0: 49 53 4B 20 4E 41 4D 45  22 3B 41 24 00 DE 0B DA  |ISK NAME";A$....|
000003D0: 07 8B 41 24 B2 22 59 22  A7 44 B2 31 3A 8E 00 F2  |..A$."Y".D.1:...|
000003E0: 0B E4 07 85 22 44 49 53  4B 20 4E 41 4D 45 22 3B  |...."DISK NAME";|
000003F0: 4E 24 00 F8 0B EE 07 8E  00 16 0C B7 0B 8F 20 2A  |N$............ *|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000410: 2A 2A 2A 2A 2A 2A 00 00  00                       |******...       |
.."....  ******* INITIALIZE ******.5....
A$(99):.S(99).U.... *** DISPLAY DIRECTOR
Y ***._....".";.M.... 995:X.2......#1,A$
:A$(0).""...(..ST..0.75...2..A$.G(34)..1
000:X.1...<.. 30.P.F.. ********* QUERY *
********...K.."..":A$(0).""...M.. 2000:.
"."...P.. 995:X.0:Q.1...Z..#1,A$...D..ST
..0.145.1.N..A$..G(34).90.<.S.. 1000.K.X
..X. . 1100.F...X.1:I.I.1:A$(I)."":.90..
.... ******** PRINT *********......D.0.A
$(0).N$......4,4:.4,G(27)G(64):.4,".E"A$
(0)".F"... ..J.1.C(A$(0)):.4,"E";:.: 4..
....4,4,6:.4,G(10): 4:.4,4:.4,".B..S..4"
......I.1.99.(.... S(I)..4,A$(I).......8
.H. 1: 4.N.I.."FLER DISKAR";I$.M.J.. ((I
$."J") . (I$."Y")). ..S.K........ ******
******************..... 1:.1,8,0,"$0":..
F.... ************************.Y....X.2.
.".";:X.1......X. .A$;......#1,A$...... 
A$..G(34).A$(I).A$(I).A$:.1010.&....X. .
A$".";.1....Q.0...7.$...U.%.. **********
*************.T.L...25.C(A$(I)));:." Y/N
";A$...V.. A$."Y".S(I).1...`.....O.. ***
********************.L.P.."USE DEFAULT D
ISK NAME";A$...Z..A$."Y".D.1:......."DIS
K NAME";N$............ *****************
******...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL