PRINT'DIRECTORY
FILE INFORMATION
FILENAME(S): PRINT'DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-12-01 01:02:02
APPEARS ON: 1 disk(s)
FILE HASH
38a3186e660e2ca7e8bab27bf50833d1d31cde65c1a1b94fbdcb080fc45c3c0c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY POPPEL | PRINT'DIRECTORY | PRG | hedning, German ebay | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 17 06 B7 06 D6 07 00 0A 24 00 28 43 29 20 31 39 |........$.(C) 19|
00000010: 38 33 20 43 4F 4D 41 4C 20 55 53 45 52 53 20 47 |83 COMAL USERS G|
00000020: 52 4F 55 50 20 28 55 53 41 29 00 14 09 07 01 02 |ROUP (USA)......|
00000030: 00 90 3A 00 1E 24 8C 8F 02 00 02 00 10 93 8F 03 |..:..$..........|
00000040: 00 02 00 04 93 94 8F 04 00 02 00 10 93 94 8F 05 |................|
00000050: 00 02 00 02 93 94 C5 00 28 1A 8C 8E 06 01 02 00 |........(.......|
00000060: 01 90 04 01 92 8E 07 01 02 00 01 90 04 01 92 94 |................|
00000070: C5 00 32 23 8C 8F 08 01 02 00 80 90 02 00 84 92 |..2#............|
00000080: 02 00 03 93 8F 09 01 02 00 01 90 04 01 92 02 00 |................|
00000090: 10 93 94 C5 00 3C 0F 0C 08 02 00 80 19 03 03 2A |.....<.........*|
000000A0: 2A 2A 3C 00 46 36 0C 08 02 00 81 19 03 03 53 45 |**<.F6........SE|
000000B0: 51 3C 0C 08 02 00 82 19 03 03 50 52 47 3C 42 0C |Q<........PRG<B.|
000000C0: 08 02 00 83 19 03 03 55 53 52 3C 42 0C 08 02 00 |.......USR<B....|
000000D0: 84 19 03 03 52 45 4C 3C 42 00 50 06 7F 0A 81 00 |....REL<B.P.....|
000000E0: 5A 09 07 0B 02 00 00 3A 00 64 16 5F 02 00 0E 4B |Z......:.d._...K|
000000F0: 65 60 61 00 4C 4F 57 45 52 20 43 41 53 45 00 6E |e`a.LOWER CASE.n|
00000100: 2D B5 03 22 C9 4E 53 45 52 54 20 44 49 53 4B 20 |-..".NSERT DISK |
00000110: 54 4F 20 43 41 54 41 4C 4F 47 20 49 4E 20 44 52 |TO CATALOG IN DR|
00000120: 49 56 45 20 30 3A B7 09 05 BA BB 00 78 08 03 02 |IVE 0:......x...|
00000130: 49 30 7E 00 82 06 7F 0C 81 00 8C 05 CF D1 00 96 |I0~.............|
00000140: 06 7F 1E 81 00 A0 04 00 00 AA 09 70 0C 9D 8C 00 |...........p....|
00000150: 7B 00 B4 08 03 02 49 30 7E 00 BE 09 07 0D 02 00 |{.....I0~.......|
00000160: 02 3A 00 C8 0D DB 04 0D DC 03 02 24 30 DD DE 00 |.:.........$0...|
00000170: D2 07 07 0E 44 3A 00 DC 0F 7F 0F 02 00 8E 0D 07 |....D:..........|
00000180: 0D 10 07 0E 16 00 E6 12 7F 10 09 02 12 02 00 10 |................|
00000190: 0D 07 0D 10 07 0E 16 00 F0 0F 7F 0F 02 00 02 0D |................|
000001A0: 07 0D 10 07 0E 16 00 FA 12 7F 10 09 03 12 02 00 |................|
000001B0: 02 0D 07 0D 10 07 0E 16 01 04 1D 5F 03 05 C4 49 |..........._...I|
000001C0: 53 4B 3A 65 67 06 02 65 67 03 03 C9 C4 3A 65 67 |SK:eg..eg....:eg|
000001D0: 06 03 65 60 61 01 0E 0F 7F 0F 02 00 5C 0D 07 0D |..e`a.......\...|
000001E0: 10 07 0E 16 01 18 09 07 11 02 00 00 3A 01 22 09 |............:.".|
000001F0: 07 12 02 02 98 3A 01 2C 04 95 01 36 0E 07 13 0A |.....:.,...6....|
00000200: 14 07 0D 10 07 0E 16 3A 01 40 0F 7F 0F 02 00 02 |.......:.@......|
00000210: 0D 07 0D 10 07 0E 16 01 4A 12 7F 10 09 04 12 02 |........J.......|
00000220: 00 10 0D 07 0D 10 07 0E 16 01 54 0F 7F 0F 02 00 |..........T.....|
00000230: 09 0D 07 0D 10 07 0E 16 01 5E 1B 07 15 0A 14 07 |.........^......|
00000240: 0D 10 07 0E 16 02 01 00 0A 14 07 0D 10 07 0E 16 |................|
00000250: 24 27 3A 01 68 18 68 04 13 02 00 81 2A 04 13 02 |$':.h.h.....*...|
00000260: 00 84 30 39 6A 07 13 02 00 80 3A 01 72 1C 5F 04 |..09j.....:.r._.|
00000270: 0B 02 00 01 27 64 67 06 04 65 67 0C 08 07 13 16 |....'dg..eg.....|
00000280: 65 67 04 15 64 60 61 01 7C 0C 68 04 0B 04 01 34 |eg..d`a.|.h....4|
00000290: 69 ED 8B 01 86 17 5F 03 0E 54 4F 4F 20 4D 41 4E |i....._..TOO MAN|
000002A0: 59 20 46 49 4C 45 53 65 60 61 01 90 0F 6D 2E 8C |Y FILESe`a...m..|
000002B0: 04 13 02 00 80 32 69 2E 8C 01 9A 09 07 0B 02 00 |.....2i.........|
000002C0: 01 3D 01 A4 08 07 12 04 15 40 01 AE 0B 0C 09 07 |.=.......@......|
000002D0: 0B 1C 06 04 3C 01 B8 0B 0B 07 07 0B 1C 04 15 3B |....<..........;|
000002E0: 01 C2 0B 0B 06 07 0B 1C 04 13 3B 01 CC 04 6F 01 |..........;...o.|
000002F0: D6 07 07 16 43 3A 01 E0 09 07 11 02 00 01 3D 01 |....C:........=.|
00000300: EA 0D 68 04 11 02 00 08 2C 69 5F 8C 01 F4 09 07 |..h.....,i_.....|
00000310: 11 02 00 00 3A 01 FE 07 07 16 44 3A 02 08 04 6F |....:.....D:...o|
00000320: 02 12 13 68 04 16 6A 7F 0F 02 00 02 0D 07 0D 10 |...h..j.........|
00000330: 07 0E 16 02 1C 09 DA 04 0E 96 39 8B 02 26 05 CF |..........9..&..|
00000340: D1 02 30 19 5F 03 0C 42 4C 4F 43 4B 53 20 46 52 |..0._..BLOCKS FR|
00000350: 45 45 3A 65 67 04 12 64 60 61 02 3A 05 7D 0C 02 |EE:eg..d`a.:.}..|
00000360: 44 04 00 02 4E 09 70 1E FE 8D 00 7B 02 58 2C B5 |D...N.p....{.X,.|
00000370: 03 21 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 |.!PRINT DIRECTOR|
00000380: 59 20 54 4F 20 50 52 49 4E 54 45 52 20 28 59 2F |Y TO PRINTER (Y/|
00000390: 4E 29 3A B7 09 05 BA BB 02 62 14 68 06 05 03 01 |N):......b.h....|
000003A0: D9 2D 06 05 03 01 59 2D 39 69 FA 8D 02 6C 0A BD |.-....Y-9i...l..|
000003B0: 03 03 4C 50 3A BE 02 76 06 5F 60 61 02 80 1D 5F |..LP:..v._`a..._|
000003C0: 03 05 44 49 53 4B 3A 65 67 06 02 65 67 03 03 49 |..DISK:eg..eg..I|
000003D0: 44 3A 65 67 06 03 65 60 61 02 8A 06 5F 60 61 02 |D:eg..e`a..._`a.|
000003E0: 94 33 5F 03 03 4E 55 4D 65 66 02 00 05 63 66 03 |.3_..NUMef...cf.|
000003F0: 08 46 49 4C 45 4E 41 4D 45 65 66 02 00 16 63 66 |.FILENAMEef...cf|
00000400: 03 03 54 59 50 65 67 03 06 42 4C 4F 43 4B 53 65 |..TYPeg..BLOCKSe|
00000410: 60 61 02 9E 38 5F 03 03 2D 2D 2D 65 66 02 00 05 |`a..8_..---ef...|
00000420: 63 66 03 10 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |cf..------------|
00000430: 2D 2D 2D 2D 65 66 02 00 16 63 66 03 0A 2D 2D 2D |----ef...cf..---|
00000440: 20 2D 2D 2D 2D 2D 2D 65 60 61 02 A8 0F 82 1B D1 | ------e`a......|
00000450: 8D 02 00 01 84 04 0B 85 87 02 B2 0E 5F 04 1B 64 |............_..d|
00000460: 66 02 00 05 63 66 61 02 BC 0C 5F 0C 09 07 1B 16 |f...cfa..._.....|
00000470: 65 66 61 02 C6 1B 5F 02 00 16 63 66 0C 08 0B 06 |efa..._...cf....|
00000480: 07 1B 1C 17 65 67 0B 07 07 1B 16 64 60 61 02 D0 |....eg.....d`a..|
00000490: 07 8A 1B 8D 8D 02 DA 18 5F 04 12 64 67 03 0B 42 |........_..dg..B|
000004A0: 4C 4F 43 4B 53 20 46 52 45 45 65 60 61 02 E4 0A |LOCKS FREEe`a...|
000004B0: BD 03 03 44 53 3A BE 02 EE 04 6F 02 F8 05 7D 1E |...DS:....o...}.|
000004C0: 03 02 04 00 03 0C 1D 00 20 44 49 53 4B 27 47 45 |........ DISK'GE|
000004D0: 54 20 52 4F 55 54 49 4E 45 53 20 46 4F 4C 4C 4F |T ROUTINES FOLLO|
000004E0: 57 03 16 04 00 03 20 0D E9 14 6E 8E 02 72 17 75 |W..... ...n..r.u|
000004F0: 0E 7C 03 2A 0B E4 02 07 EA E5 04 17 E6 03 34 08 |.|.*..........4.|
00000500: E7 02 07 E9 E8 03 3E 0A 07 0E 02 00 90 D8 3A 03 |......>.......:.|
00000510: 48 1C EF 02 07 E8 D8 F2 00 56 41 4C 55 45 20 4F |H........VALUE O|
00000520: 46 20 43 48 41 52 41 43 54 45 52 03 52 05 EC 14 |F CHARACTER.R...|
00000530: 03 5C 04 00 03 66 09 70 0A E7 8E 00 7C 03 70 10 |.\...f.p....|.p.|
00000540: 83 18 A2 8E 02 07 E8 84 02 07 F7 85 87 03 7A 08 |..............z.|
00000550: AF 07 19 B0 B3 03 84 0A E4 05 18 E5 04 19 E6 03 |................|
00000560: 8E 07 8B 18 80 8E 03 98 1F AA AD 00 00 AD 00 A2 |................|
00000570: AD 00 00 AD 00 20 AD 00 C6 AD 00 FF AD 00 20 AD |..... ........ .|
00000580: 00 CF AB C8 8E 03 A2 1F AA AD 00 FF AD 00 8D AD |................|
00000590: 00 E8 AD 00 07 AD 00 20 AD 00 CC AD 00 FF AD 00 |....... ........|
000005A0: 60 AB 00 00 03 AC 05 7D 0A 03 B6 04 00 03 C0 0F |`......}........|
000005B0: 70 0F 1A 8F 03 72 1A 72 17 75 0E 7C 03 CA 1B 83 |p....r.r.u.|....|
000005C0: 1B 0F 00 02 00 01 84 04 1A 85 88 07 1C 0A 14 07 |................|
000005D0: 17 10 07 0E 16 3A 89 03 D4 05 7D 0F 03 DE 04 00 |.....:....}.....|
000005E0: 03 E8 11 70 10 5B 8F 04 77 1D 72 1A 72 17 75 0E |...p.[..w.r.r.u.|
000005F0: 7C 03 F2 08 09 1D 03 00 3C 03 FC 1F 83 1B 0F 00 ||.......<.......|
00000600: 02 00 01 84 04 1A 85 88 0C 1D 08 1B 1D 0A 14 07 |................|
00000610: 17 10 07 0E 16 4B 3C 89 04 06 05 7D 10 10 FC AF |.....K<....}....|
00000620: 00 00 12 E8 AF 00 00 12 E0 AF 00 00 12 CC AF 00 |................|
00000630: 00 12 C6 AF 00 00 91 BF AF 00 00 91 98 AE 00 00 |................|
00000640: 92 71 AD 00 00 92 47 AD 00 00 14 77 8E 00 00 10 |.q....G....w....|
00000650: 02 A2 00 00 14 8B 8A 00 00 10 FD A1 00 00 10 F8 |................|
00000660: A1 00 00 14 F0 8E 00 00 14 23 8F 00 00 10 F3 A1 |.........#......|
00000670: 00 00 10 EE A1 00 00 10 E9 A1 00 00 15 28 8E 00 |.............(..|
00000680: 00 10 E4 A1 00 00 10 DF A1 00 00 00 00 00 00 00 |................|
00000690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 10 |................|
000006A0: DA A1 00 00 00 00 00 00 00 00 00 00 00 00 14 A6 |................|
000006B0: 8C 00 00 00 00 00 00 00 00 00 00 00 00 09 4D 41 |..............MA|
000006C0: 58 27 46 49 4C 45 53 09 44 49 53 4B 27 4E 41 4D |X'FILES.DISK'NAM|
000006D0: 45 07 44 49 53 4B 27 49 44 09 46 49 4C 45 27 4E |E.DISK'ID.FILE'N|
000006E0: 41 4D 45 04 54 45 58 54 0A 46 49 4C 45 27 54 59 |AME.TEXT.FILE'TY|
000006F0: 50 45 53 0B 46 49 4C 45 27 42 4C 4F 43 4B 53 04 |PES.FILE'BLOCKS.|
00000700: 54 59 50 45 0A 46 49 4C 45 27 4E 41 4D 45 53 0D |TYPE.FILE'NAMES.|
00000710: 44 49 53 4B 27 47 45 54 27 49 4E 49 54 0A 46 49 |DISK'GET'INIT.FI|
00000720: 4C 45 27 43 4F 55 4E 54 08 52 45 41 44 27 44 49 |LE'COUNT.READ'DI|
00000730: 52 0B 4D 41 53 54 45 52 27 46 49 4C 45 08 46 49 |R.MASTER'FILE.FI|
00000740: 4C 45 27 45 4E 44 0D 44 49 53 4B 27 47 45 54 27 |LE'END.DISK'GET'|
00000750: 53 4B 49 50 0F 44 49 53 4B 27 47 45 54 27 53 54 |SKIP.DISK'GET'ST|
00000760: 52 49 4E 47 0B 42 4C 4F 43 4B 27 43 4F 55 4E 54 |RING.BLOCK'COUNT|
00000770: 0B 42 4C 4F 43 4B 53 27 46 52 45 45 09 54 48 49 |.BLOCKS'FREE.THI|
00000780: 53 27 54 59 50 45 08 44 49 53 4B 27 47 45 54 06 |S'TYPE.DISK'GET.|
00000790: 42 4C 4F 43 4B 53 0A 42 4C 4F 43 4B 27 46 4C 41 |BLOCKS.BLOCK'FLA|
000007A0: 47 08 46 49 4C 45 27 4E 55 4D 03 4C 4F 43 01 56 |G.FILE'NUM.LOC.V|
000007B0: 05 43 4F 55 4E 54 01 58 01 59 04 49 54 45 4D 09 |.COUNT.X.Y.ITEM.|
000007C0: 50 52 49 4E 54 27 44 49 52 09 46 49 4C 45 27 54 |PRINT'DIR.FILE'T|
000007D0: 59 50 45 07 4C 49 53 54 35 30 30 00 00 00 |YPE.LIST500... |
....V...$.(C) 1983 COMAL USERS GROUP (US
A)........:..$..........................
......E.(.......................E.2#....
...........................E.<.........*
**<.F6........SEQ<........PRG<B........U
SR<B........REL<B.P....Z......:.D._...K
E`A.LOWER CASE.N-.."INSERT DISK TO CATAL
OG IN DRIVE 0:......X...I0~........OQ..
.... .....P....{.....I0~........:.H....
...$0...R...D:........................
......................................
..._..DISK:EG..EG..ID:EG..E`A......\...
............:."......:.,...6...........:
.@.............J................T....
.........^......................$':.H.H.
....*.....09J.....:.R._.....'DG..EG.....
EG..D`A.|.H....4I....._..TOO MANY FILESE
`A...M.......2I..........=.......@......
....<..........;.B........;.L.O.V...C:..
......=...H.....,I_.........:.....D:...O
...H..J..............Z...9..&.OQ.0._..B
LOCKS FREE:EG..D`A.:.}..D...N.P....{.X,.
.!PRINT DIRECTORY TO PRINTER (Y/N):.....
.B.H....Y-....Y-9I...L....LP:..V._`A..._
..DISK:EG..EG..ID:EG..E`A..._`A..3_..NUM
EF...CF..FILENAMEEF...CF..TYPEG..BLOCKSE
`A..8_..---EF...CF..----------------EF..
.CF..--- ------E`A.....Q............_..D
F...CFA..._.....EFA.F._...CF........EG..
...D`A.P......Z._..DG..BLOCKS FREEE`A...
...DS:....O...}......... DISK'GET ROUTIN
ES FOLLOW..... ...N..R.U.|.*..........4.
......>......X:.H.....X..VALUE OF CHARAC
TER.R....\...F.P....|.P...............Z.
..................................... ..
F..... ..O.H................... ..L.....
`......}........P....R.R.U.|.J..........
.............:..T.}........P.[..W.R.R.U.
|.......<............................K<.
...}.................L....F.............
.Q....G....W............................
.#...................(..................
................Z.......................
......MAX'FILES.DISK'NAME.DISK'ID.FILE'N
AME.TEXT.FILE'TYPES.FILE'BLOCKS.TYPE.FIL
E'NAMES.DISK'GET'INIT.FILE'COUNT.READ'DI
R.MASTER'FILE.FILE'END.DISK'GET'SKIP.DIS
K'GET'STRING.BLOCK'COUNT.BLOCKS'FREE.THI
S'TYPE.DISK'GET.BLOCKS.BLOCK'FLAG.FILE'N
UM.LOC.V.COUNT.X.Y.ITEM.PRINT'DIR.FILE'T
YPE.LIST500...
> CLICK IMAGE PREVIEW FOR FULL MODAL