DIRECTORY-PRINT
FILE INFORMATION
FILENAME(S): DIRECTORY-PRINT
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:24:34
APPEARS ON: 2 disk(s)
FILE HASH
af8df280182db8973ef8cd7d27cfe0c38f480b9e4b5168bc113fdc96d41c6f0a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOOLSOFTWARE | DIRECTORY-PRINT | PRG | DuncanTwain | 15 | 3 | DOWNLOAD FILE |
| M | DIRECTORY-PRINT | PRG | DuncanTwain | 20 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 64 00 8F 20 20 2A 2A 2A 20 50 2E 43 |.. .d.. *** P.C| 00000010: 4F 58 20 20 31 36 2D 31 32 2D 38 35 20 2A 2A 2A |OX 16-12-85 ***| 00000020: 00 3F 08 6E 00 97 20 35 33 32 38 30 2C 35 3A 97 |.?.n.. 53280,5:.| 00000030: 20 35 33 32 38 31 2C 36 3A 97 36 34 36 2C 31 00 | 53281,6:.646,1.| 00000040: 68 08 78 00 99 22 93 11 20 20 20 20 20 20 20 20 |h.x..".. | 00000050: 20 4D 50 53 38 30 31 20 44 49 52 45 43 54 4F 52 | MPS801 DIRECTOR| 00000060: 59 2D 50 52 49 4E 54 22 00 98 08 82 00 99 22 2A |Y-PRINT"......"*| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 22 00 C7 08 8C 00 99 22 20 |*******"......" | 000000A0: 5A 49 54 20 44 45 20 47 4F 45 44 45 20 53 43 48 |ZIT DE GOEDE SCH| 000000B0: 49 4A 46 20 49 4E 20 44 45 20 44 52 49 56 45 20 |IJF IN DE DRIVE | 000000C0: 3F 20 3C 43 52 3E 22 00 E2 08 96 00 A1 20 41 24 |? <CR>"...... A$| 000000D0: 3A 8B 20 41 24 B3 B1 C7 28 31 33 29 20 A7 20 31 |:. A$...(13) . 1| 000000E0: 35 30 00 1A 09 A0 00 85 22 93 11 11 20 47 45 45 |50......"... GEE| 000000F0: 46 20 44 41 54 55 4D 20 3C 42 56 2E 20 31 36 2D |F DATUM <BV. 16-| 00000100: 31 32 2D 38 35 3E 22 3B 44 54 24 3A 8B 20 44 54 |12-85>";DT$:. DT| 00000110: 24 B2 22 22 20 A7 20 31 38 30 00 4E 09 AA 00 81 |$."" . 180.N....| 00000120: 20 49 B2 31 20 A4 20 C3 28 44 54 24 29 3A 97 20 | I.1 . .(DT$):. | 00000130: 36 37 39 AA 49 2C C6 28 CA 28 44 54 24 2C 49 2C |679.I,.(.(DT$,I,| 00000140: 31 29 29 3A 82 20 49 3A 44 54 24 B2 22 22 00 8F |1)):. I:DT$.""..| 00000150: 09 B4 00 86 43 24 28 38 30 29 2C 48 28 38 30 29 |....C$(80),H(80)| 00000160: 2C 52 24 28 37 35 29 2C 54 24 28 34 29 3A 43 53 |,R$(75),T$(4):CS| 00000170: 24 B2 C7 28 33 34 29 3A 59 59 B2 30 3A 4A 4A B2 |$..(34):YY.0:JJ.| 00000180: 32 33 3A 50 B2 30 3A 58 58 B2 30 3A 5A B2 30 00 |23:P.0:XX.0:Z.0.| 00000190: B7 09 BE 00 81 20 49 B2 31 20 A4 20 31 31 20 3A |..... I.1 . 11 :| 000001A0: 44 54 24 B2 44 54 24 AA C7 28 C2 28 36 37 39 AA |DT$.DT$..(.(679.| 000001B0: 49 29 29 3A 82 20 49 00 D3 09 C8 00 9F 31 35 2C |I)):. I......15,| 000001C0: 38 2C 31 35 2C 22 49 30 22 3A 8D 33 36 30 3A 99 |8,15,"I0":.360:.| 000001D0: 22 93 22 00 F7 09 D2 00 9F 32 2C 38 2C 30 2C 22 |"."......2,8,0,"| 000001E0: 24 30 22 3A 8D 33 36 30 3A 99 22 93 22 3A A1 23 |$0":.360:.".":.#| 000001F0: 32 2C 41 24 2C 42 24 00 18 0A DC 00 A1 23 32 2C |2,A$,B$......#2,| 00000200: 41 24 2C 42 24 3A 8B 20 53 54 20 A7 20 8D 20 37 |A$,B$:. ST . . 7| 00000210: 31 30 20 3A 89 33 31 30 00 2E 0A E6 00 A1 23 32 |10 :.310......#2| 00000220: 2C 41 24 2C 42 24 3A 4E 24 B2 C7 28 30 29 00 5C |,A$,B$:N$..(0).\| 00000230: 0A F0 00 48 B2 C6 28 41 24 AA 4E 24 29 AA C6 28 |...H..(A$.N$)..(| 00000240: 42 24 AA 4E 24 29 AC 32 35 36 3A 99 48 3B 3A 48 |B$.N$).256:.H;:H| 00000250: 24 B2 C4 28 48 29 3A 43 24 B2 48 24 00 67 0A FA |$..(H):C$.H$.g..| 00000260: 00 A1 23 32 2C 41 24 00 79 0A 04 01 8B 41 24 B2 |..#2,A$.y....A$.| 00000270: 22 22 A7 99 3A 89 32 32 30 00 8A 0A 0E 01 8B 20 |""..:.220...... | 00000280: 41 24 B2 43 53 24 A7 32 35 30 00 9C 0A 18 01 99 |A$.CS$.250......| 00000290: 41 24 3B 3A 43 24 B2 43 24 AA 41 24 00 C5 0A 22 |A$;:C$.C$.A$..."| 000002A0: 01 59 59 B2 59 59 AA 31 3A 8B 59 59 B2 4A 4A A7 |.YY.YY.1:.YY.JJ.| 000002B0: 8D 33 34 30 3A 59 59 B2 30 3A 43 24 B2 22 22 3A |.340:YY.0:C$."":| 000002C0: 4A 4A B2 32 35 00 CE 0A 2C 01 89 32 35 30 00 08 |JJ.25...,..250..| 000002D0: 0B 36 01 55 24 B2 C8 28 C4 28 55 AB 32 29 AA 22 |.6.U$..(.(U.2)."| 000002E0: 20 20 22 2C 33 29 3A 43 24 28 55 AA 31 29 B2 55 | ",3):C$(U.1).U| 000002F0: 24 AA 22 20 20 20 3C 46 49 4C 45 53 3E 22 3A 99 |$." <FILES>":.| 00000300: 20 43 24 28 55 AA 31 29 00 33 0B 40 01 8B 55 AB | C$(U.1).3.@..U.| 00000310: 32 B1 34 34 A7 99 22 54 45 56 45 45 4C 20 46 49 |2.44.."TEVEEL FI| 00000320: 4C 45 53 20 4F 4D 20 54 45 20 50 52 49 4E 54 45 |LES OM TE PRINTE| 00000330: 4E 21 22 00 44 0B 4A 01 A0 32 3A 8D 33 36 30 3A |N!".D.J..2:.360:| 00000340: 89 34 32 30 00 6E 0B 54 01 8B 50 B2 30 A7 50 B2 |.420.n.T..P.0.P.| 00000350: 31 3A 46 24 B2 CA 28 43 24 2C 34 2C 31 36 29 3A |1:F$..(C$,4,16):| 00000360: 49 44 24 B2 CA 28 43 24 2C 32 31 2C 32 29 00 89 |ID$..(C$,21,2)..| 00000370: 0B 5E 01 55 B2 55 AA 31 3A 43 24 28 55 29 B2 C8 |.^.U.U.1:C$(U)..| 00000380: 28 43 24 2C 32 33 29 3A 8E 00 9E 0B 68 01 84 31 |(C$,23):....h..1| 00000390: 35 2C 46 31 2C 46 32 24 2C 46 33 2C 46 34 00 E3 |5,F1,F2$,F3,F4..| 000003A0: 0B 72 01 8B 46 31 A7 99 22 93 11 12 20 46 20 4F |.r..F1.."... F O| 000003B0: 20 55 20 54 20 20 21 21 20 20 20 20 20 20 20 20 | U T !! | 000003C0: 20 20 20 20 20 20 20 20 20 20 22 20 46 32 24 22 | " F2$"| 000003D0: 92 22 3A 99 22 11 20 56 45 52 44 45 52 20 4A 2F |.":.". VERDER J/| 000003E0: 4E 3F 22 00 EF 0B 7C 01 8B 46 31 B2 30 A7 8E 00 |N?"...|..F1.0...| 000003F0: 0C 0C 86 01 A1 51 24 3A 8B 51 24 B3 B1 22 4A 22 |.....Q$:.Q$.."J"| 00000400: AF 51 24 B3 B1 22 4E 22 A7 33 39 30 00 1A 0C 90 |.Q$.."N".390....| 00000410: 01 8B 51 24 B2 22 4E 22 A7 80 00 2F 0C 9A 01 A0 |..Q$."N".../....| 00000420: 32 3A A0 31 35 3A 99 22 93 22 3A 8A 31 38 30 00 |2:.15:.".":.180.| 00000430: 56 0C A4 01 99 22 11 11 20 55 49 54 50 52 49 4E |V....".. UITPRIN| 00000440: 54 45 4E 20 4F 50 20 50 52 49 4E 54 45 52 20 3C |TEN OP PRINTER <| 00000450: 4A 2F 4E 3E 3F 22 00 73 0C AE 01 A1 59 24 3A 8B |J/N>?".s....Y$:.| 00000460: 59 24 B3 B1 22 4A 22 AF 59 24 B3 B1 22 4E 22 A7 |Y$.."J".Y$.."N".| 00000470: 34 33 30 00 84 0C B8 01 8B 59 24 B2 22 4E 22 A7 |430......Y$."N".| 00000480: 20 36 34 30 00 8D 0C C2 01 9F 31 2C 34 00 9B 0C | 640......1,4...| 00000490: CC 01 8B 58 58 B2 31 A7 35 37 30 00 CC 0C D6 01 |...XX.1.570.....| 000004A0: 81 20 49 B2 31 A4 37 33 3A 54 24 28 31 29 B2 54 |. I.1.73:T$(1).T| 000004B0: 24 28 31 29 AA 22 2A 22 3A 82 20 49 3A 54 24 28 |$(1)."*":. I:T$(| 000004C0: 31 29 B2 22 20 22 AA 54 24 28 31 29 00 FF 0C E0 |1)." ".T$(1)....| 000004D0: 01 81 20 49 B2 55 AA 32 A4 36 32 3A 43 24 28 49 |.. I.U.2.62:C$(I| 000004E0: 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |)." | 000004F0: 20 20 20 20 20 20 20 20 20 20 22 3A 82 20 49 00 | ":. I.| 00000500: 23 0D EA 01 45 24 B2 22 20 20 20 20 20 20 20 20 |#...E$." | 00000510: 20 20 20 20 20 20 20 20 20 20 49 44 2E 4E 52 2E | ID.NR.| 00000520: 3A 20 22 00 33 0D F4 01 54 24 28 32 29 B2 22 20 |: ".3...T$(2)." | 00000530: 20 20 22 00 40 0D FE 01 81 20 49 B2 31 A4 34 35 | ".@.... I.1.45| 00000540: 00 52 0D 08 02 52 24 28 49 29 B2 43 24 28 49 AA |.R...R$(I).C$(I.| 00000550: 31 29 00 5A 0D 12 02 82 20 49 00 67 0D 1C 02 81 |1).Z.... I.g....| 00000560: 20 49 B2 31 A4 31 35 00 95 0D 26 02 52 24 28 49 | I.1.15...&.R$(I| 00000570: 29 B2 22 20 22 AA 52 24 28 49 29 AA 22 20 22 AA |)." ".R$(I)." ".| 00000580: 52 24 28 49 AA 31 35 29 AA 22 20 22 AA 52 24 28 |R$(I.15)." ".R$(| 00000590: 49 AA 33 30 29 00 9D 0D 30 02 82 20 49 00 D2 0D |I.30)...0.. I...| 000005A0: 3A 02 98 31 2C 54 24 28 31 29 3A 98 31 2C C7 28 |:..1,T$(1):.1,.(| 000005B0: 31 29 C7 28 31 34 29 54 24 28 32 29 AA 46 24 AA |1).(14)T$(2).F$.| 000005C0: C7 28 31 35 29 AA 45 24 AA C7 28 31 34 29 AA 49 |.(15).E$..(14).I| 000005D0: 44 24 00 F3 0D 44 02 98 31 2C C7 28 31 35 29 AA |D$...D..1,.(15).| 000005E0: 22 20 20 20 20 20 20 44 41 54 55 4D 3A 20 22 AA |" DATUM: ".| 000005F0: 44 54 24 00 06 0E 4E 02 98 31 2C C7 28 31 35 29 |DT$...N..1,.(15)| 00000600: AA 54 24 28 31 29 00 20 0E 58 02 81 20 49 B2 31 |.T$(1). .X.. I.1| 00000610: A4 31 35 3A 98 31 2C 52 24 28 49 29 3A 82 20 49 |.15:.1,R$(I):. I| 00000620: 00 2E 0E 62 02 8B 58 58 B2 31 A7 36 33 30 00 5F |...b..XX.1.630._| 00000630: 0E 6C 02 81 20 49 B2 31 A4 37 33 3A 54 24 28 33 |.l.. I.1.73:T$(3| 00000640: 29 B2 54 24 28 33 29 AA 22 2A 22 3A 82 20 49 3A |).T$(3)."*":. I:| 00000650: 54 24 28 33 29 B2 22 20 22 AA 54 24 28 33 29 00 |T$(3)." ".T$(3).| 00000660: 75 0E 76 02 98 31 2C 54 24 28 33 29 3A 98 31 3A |u.v..1,T$(3):.1:| 00000670: 98 31 3A A0 31 00 A4 0E 80 02 99 22 93 11 11 20 |.1:.1......"... | 00000680: 4E 4F 47 20 45 45 4E 20 44 49 52 45 43 54 4F 52 |NOG EEN DIRECTOR| 00000690: 59 20 55 49 54 50 52 49 4E 54 45 4E 20 3C 4A 2F |Y UITPRINTEN <J/| 000006A0: 4E 3E 3F 22 00 C1 0E 8A 02 A1 59 24 3A 8B 59 24 |N>?"......Y$:.Y$| 000006B0: B3 B1 22 4A 22 AF 59 24 B3 B1 22 4E 22 A7 36 35 |.."J".Y$.."N".65| 000006C0: 30 00 D0 0E 94 02 8B 59 24 B2 22 4E 22 A7 20 80 |0......Y$."N". .| 000006D0: 00 F6 0E 9E 02 99 22 11 20 44 49 53 4B 45 54 54 |......". DISKETT| 000006E0: 45 20 41 4C 20 47 45 57 49 53 53 45 4C 44 20 3F |E AL GEWISSELD ?| 000006F0: 20 3C 43 52 3E 22 00 0F 0F A8 02 A1 20 41 24 3A | <CR>"...... A$:| 00000700: 8B 41 24 B3 B1 C7 28 31 33 29 A7 20 36 38 30 00 |.A$...(13). 680.| 00000710: 25 0F B2 02 8B 20 41 24 B2 C7 28 31 33 29 A7 20 |%.... A$..(13). | 00000720: 8A 20 31 38 30 00 2B 0F BC 02 80 00 40 0F C6 02 |. 180.+.....@...| 00000730: 81 20 49 B2 31 20 A4 20 C3 28 43 24 28 55 29 29 |. I.1 . .(C$(U))| 00000740: 00 5D 0F D0 02 8B 20 CA 28 43 24 28 55 29 2C 49 |.].... .(C$(U),I| 00000750: 2C 31 29 B3 B1 22 42 22 A7 20 82 20 49 00 75 0F |,1).."B". . I.u.| 00000760: DA 02 8B 20 49 B2 33 20 A7 20 53 50 24 B2 22 20 |... I.3 . SP$." | 00000770: 20 20 20 3C 22 00 8C 0F E4 02 8B 20 49 B2 34 20 | <"...... I.4 | 00000780: A7 20 53 50 24 B2 22 20 20 20 3C 22 00 A2 0F EE |. SP$." <"....| 00000790: 02 8B 20 49 B2 35 20 A7 20 53 50 24 B2 22 20 20 |.. I.5 . SP$." | 000007A0: 3C 22 00 B9 0F F8 02 43 24 28 55 29 B2 C8 28 43 |<".....C$(U)..(C| 000007B0: 24 28 55 29 2C 49 AB 31 29 00 DC 0F 02 03 43 24 |$(U),I.1).....C$| 000007C0: 28 55 29 B2 43 24 28 55 29 AA 53 50 24 AA 22 42 |(U).C$(U).SP$."B| 000007D0: 4C 4F 43 4B 53 20 46 52 45 45 3E 22 00 E2 0F 0C |LOCKS FREE>"....| 000007E0: 03 8E 00 00 00 |..... |
.. .D.. *** P.COX 16-12-85 ***.?.N.. 5
3280,5:. 53281,6:.646,1.H.X.."..
MPS801 DIRECTORY-PRINT"......"*********
*******************************".G...."
ZIT DE GOEDE SCHIJF IN DE DRIVE ? <CR>".
..... A$:. A$..G(13) . 150... .."... GEE
F DATUM <BV. 16-12-85>";DT$:. DT$."" . 1
80.N.... I.1 . C(DT$):. 679.I,F(J(DT$,I,
1)):. I:DT$.""......C$(80),H(80),R$(75),
T$(4):CS$.G(34):YY.0:JJ.23:P.0:XX.0:Z.0.
..... I.1 . 11 :DT$.DT$.G(B(679.I)):. I.
S.H..15,8,15,"I0":.360:."."...R..2,8,0,"
$0":.360:.".":.#2,A$,B$......#2,A$,B$:.
ST . . 710 :.310......#2,A$,B$:N$.G(0).\
...H.F(A$.N$).F(B$.N$).256:.H;:H$.D(H):C
$.H$.G....#2,A$.Y....A$.""..:.220......
A$.CS$.250......A$;:C$.C$.A$.E.".YY.YY.1
:.YY.JJ..340:YY.0:C$."":JJ.25.N.,..250..
.6.U$.H(D(U.2)." ",3):C$(U.1).U$." <F
ILES>":. C$(U.1).3.@..U.2.44.."TEVEEL FI
LES OM TE PRINTEN!".D.J. 2:.360:.420.N.T
..P.0.P.1:F$.J(C$,4,16):ID$.J(C$,21,2)..
.^.U.U.1:C$(U).H(C$,23):....H..15,F1,F2$
,F3,F4...R..F1.."... F O U T !!
" F2$".":.". VERDER J/N?"...|.
.F1.0........Q$:.Q$.."J".Q$.."N".390....
..Q$."N".../... 2: 15:.".":.180.V...."..
UITPRINTEN OP PRINTER <J/N>?".S....Y$:.
Y$.."J".Y$.."N".430......Y$."N". 640...B
..1,4...L..XX.1.570.L.V.. I.1.73:T$(1).T
$(1)."*":. I:T$(1)." ".T$(1)...... I.U.2
.62:C$(I)." ":. I.
#...E$." ID.NR.: ".3...
T$(2)." ".@.... I.1.45.R...R$(I).C$(I.
1).Z.... I.G.... I.1.15...&.R$(I)." ".R$
(I)." ".R$(I.15)." ".R$(I.30)...0.. I.R.
:..1,T$(1):.1,G(1)G(14)T$(2).F$.G(15).E$
.G(14).ID$...D..1,G(15)." DATUM: ".
DT$...N..1,G(15).T$(1). .X.. I.1.15:.1,R
$(I):. I...B..XX.1.630._.L.. I.1.73:T$(3
).T$(3)."*":. I:T$(3)." ".T$(3).U.V..1,T
$(3):.1:.1: 1......"... NOG EEN DIRECTOR
Y UITPRINTEN <J/N>?".A....Y$:.Y$.."J".Y$
.."N".650.P....Y$."N". .......". DISKETT
E AL GEWISSELD ? <CR>"...... A$:.A$..G(1
3). 680.%.... A$.G(13). . 180.+.....@.F.
. I.1 . C(C$(U)).].P.. J(C$(U),I,1).."B"
. . I.U.Z.. I.3 . SP$." <"...... I.4
. SP$." <"...... I.5 . SP$." <".....C
$(U).H(C$(U),I.1).....C$(U).C$(U).SP$."B
LOCKS FREE>".........
> CLICK IMAGE PREVIEW FOR FULL MODAL