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$............ ***************** ******...
> CLICK IMAGE PREVIEW FOR FULL MODAL