DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ 5 A B C D F I L M N O P R S T U W X Z ┃

⟦4ada80662⟧ Bits:30005446 Pascal/MT+ v5.5 & XREF & BDS C v1.46, 5¼" Floppy Disk, CP/M Filesystem - CR7/8, CpmFileSystem_CR8, ImdContainer

    Length: 655360 (0xa0000)
    Description: Bits:30005446 Pascal/MT+ v5.5 & XREF & BDS C v1.46
    Types: 5¼" Floppy Disk, CP/M Filesystem - CR7/8, CpmFileSystem_CR8, ImdContainer

Namespace CP/M Filesystem - CR7/8

bytes name artifact
1280 ALPH.C ⟦29102cf7b⟧ TextFile
3328 BCDREALS.ERL ⟦16bfc561e⟧
5376 BDS.LIB ⟦e9e49a5dd⟧ TextFile
4992 BDSCIO.H ⟦9eea8976a⟧ TextFile
1152 C.CCC ⟦64efeccfc⟧
19200 CASM.C ⟦b34e85562⟧ TextFile
896 CAT.C ⟦e4d6db8f3⟧ TextFile
2304 CAT.COM ⟦9f83275d9⟧
13696 CC.COM ⟦dc958cf94⟧
2048 CC0T.C ⟦78c326edd⟧ TextFile
15872 CC2.COM ⟦31d917547⟧
24448 CCC.ASM ⟦be8e9c3d2⟧ TextFile
4736 CL.COM ⟦cccaecb89⟧
5248 CLIB.COM ⟦2130b8bb5⟧
3328 CONVERT.C ⟦f66e2e96d⟧ TextFile
768 DBUGHELP.TXT ⟦d17d20870⟧ TextFile
11264 DEBUGGER.ERL ⟦cfca61af5⟧
21760 DEFF2.CSM ⟦f2a53e828⟧ TextFile
11008 DEFF2A.CSM ⟦9b5afb9c5⟧ TextFile
2816 DI.COM ⟦ba60bd5d0⟧
8448 DIO.C ⟦cef50dba6⟧ TextFile
896 DIO.H ⟦3dd358cf1⟧ TextFile
18560 DIS8080.COM ⟦4076357ac⟧
27264 F80.COM ⟦0f3ffc120⟧
6784 FLOAT.C ⟦d99448d9b⟧ TextFile
5888 FLOAT.DOC ⟦2e67ecbc8⟧ TextFile
768 FLOATSUM.C ⟦b05a72f7f⟧ TextFile
26496 FORLIB.REL ⟦07050d398⟧
7680 FPREALS.ERL ⟦bbb2924ed⟧
2432 FULLHEAP.ERL ⟦a5b93b6b4⟧
128 IOCHK.BLD ⟦7128fecee⟧ TextFile
10752 L80.COM ⟦e2bfb9bb9⟧
4736 LIB80.COM ⟦28f5af4a7⟧
15616 LIBMT.COM ⟦2ab9b69c9⟧
11520 LINKMT.COM ⟦76636782d⟧
2560 LPR.C ⟦bccef03e7⟧ TextFile
896 LPRINTF.C ⟦20780696b⟧ TextFile
20096 M80.COM ⟦1a229b803⟧
1408 MLIST.COM ⟦13b6822bc⟧
4864 MTERRS.TXT ⟦c90f1f830⟧ TextFile
12800 MTPLUS.000 ⟦8fdd1161f⟧
10752 MTPLUS.001 ⟦5aea77784⟧
7040 MTPLUS.002 ⟦edf25be09⟧
7552 MTPLUS.003 ⟦a0cbabbe8⟧
17408 MTPLUS.004 ⟦fa5c41b0a⟧
7808 MTPLUS.005 ⟦954b36f77⟧
5888 MTPLUS.006 ⟦8068f453b⟧
35584 MTPLUS.COM ⟦0eba591c2⟧
2176 NOBOOT.C ⟦036fcd7ec⟧ TextFile
10624 OTHELLO.C ⟦938c3c302⟧ TextFile
24320 PASLIB.ERL ⟦c0a79f725⟧
7424 PIP.COM ⟦7f9e12a92⟧
2816 RANDOMIO.ERL ⟦fc75b833a⟧
2560 READ.ME ⟦4d587d5a1⟧ TextFile
1024 ROVLMGR.ERL ⟦455b15fa7⟧
1024 SIEVE.C ⟦1cf8fac0b⟧ TextFile
8064 STDLIB1.C ⟦d9824a192⟧ TextFile
6656 STDLIB2.C ⟦92e9bc33c⟧ TextFile
20352 TELNET.C ⟦a023378ba⟧ TextFile
3328 TRANCEND.ERL ⟦733f1e3ca⟧
384 UTILMOD.ERL ⟦9eb6b4a6c⟧
4864 WILDEXP.C ⟦7b0128c1b⟧ TextFile
768 XREF.DOC ⟦01a5df82a⟧ TextFile
30208 ZIP.COM ⟦cb722a606⟧

OctetView - CR7/8

0x00000…00020 (0, 0, 1)   e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5   ┆                                ┆
         […0xff…]
0x02000…02020 (1, 0, 1)   DirEnt {status=0x00, name=»PIP     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x3a, al=[0x0002, 0x0003, 0x0004, 0x0005, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02020…02040             DirEnt {status=0x00, name=»CAT     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x12, al=[0x0006, 0x0007, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02040…02060             DirEnt {status=0x00, name=»MLIST   COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x0b, al=[0x0008, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02060…02080             DirEnt {status=0x00, name=»ALPH    C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x0a, al=[0x0009, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02080…020a0             DirEnt {status=0x00, name=»BDS     LIB«, xl=0x00, bc=0x00, xh=0x00, rc=0x2a, al=[0x000a, 0x000b, 0x000c, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x020a0…020c0             DirEnt {status=0x00, name=»BDSCIO  H  «, xl=0x00, bc=0x00, xh=0x00, rc=0x27, al=[0x000d, 0x000e, 0x000f, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x020c0…020e0             DirEnt {status=0x00, name=»C       CCC«, xl=0x00, bc=0x00, xh=0x00, rc=0x09, al=[0x0010, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x020e0…02100             DirEnt {status=0x00, name=»BCDREALSERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x1a, al=[0x0011, 0x0012, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02100…02120 (1, 0, 2)   DirEnt {status=0x00, name=»DBUGHELPTXT«, xl=0x00, bc=0x00, xh=0x00, rc=0x06, al=[0x0013, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02120…02140             DirEnt {status=0x00, name=»DEBUGGERERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x58, al=[0x0014, 0x0015, 0x0016, 0x0017, 0x0018, 0x0019, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02140…02160             DirEnt {status=0x00, name=»CASM    C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x001a, 0x001b, 0x001c, 0x001d, 0x001e, 0x001f, 0x0020, 0x0021], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02160…02180             DirEnt {status=0x00, name=»CASM    C  «, xl=0x01, bc=0x00, xh=0x00, rc=0x16, al=[0x0022, 0x0023, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02180…021a0             DirEnt {status=0x00, name=»CAT     C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x07, al=[0x0024, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x021a0…021c0             DirEnt {status=0x00, name=»CC      COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x6b, al=[0x0025, 0x0026, 0x0027, 0x0028, 0x0029, 0x002a, 0x002b, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x021c0…021e0             DirEnt {status=0x00, name=»CC0T    C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x10, al=[0x002c, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x021e0…02200             DirEnt {status=0x00, name=»ZIP     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x002d, 0x002e, 0x002f, 0x0030, 0x0031, 0x0032, 0x0033, 0x0034], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02200…02220 (1, 0, 3)   DirEnt {status=0x00, name=»MTPLUS  004«, xl=0x01, bc=0x00, xh=0x00, rc=0x08, al=[0x0109, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02220…02240             DirEnt {status=0x00, name=»MTPLUS  005«, xl=0x00, bc=0x00, xh=0x00, rc=0x3d, al=[0x010a, 0x010b, 0x010c, 0x010d, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02240…02260             DirEnt {status=0x00, name=»MTPLUS  006«, xl=0x00, bc=0x00, xh=0x00, rc=0x2e, al=[0x010e, 0x010f, 0x0110, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02260…02280             DirEnt {status=0x00, name=»MTPLUS  COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x0111, 0x0112, 0x0113, 0x0114, 0x0115, 0x0116, 0x0117, 0x0118], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02280…022a0             DirEnt {status=0x00, name=»MTPLUS  COM«, xl=0x01, bc=0x00, xh=0x00, rc=0x80, al=[0x0119, 0x011a, 0x011b, 0x011c, 0x011d, 0x011e, 0x011f, 0x0120], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x022a0…022c0             DirEnt {status=0x00, name=»MTPLUS  COM«, xl=0x02, bc=0x00, xh=0x00, rc=0x16, al=[0x0121, 0x0122, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x022c0…022e0             DirEnt {status=0x00, name=»PASLIB  ERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x0123, 0x0124, 0x0125, 0x0126, 0x0127, 0x0128, 0x0129, 0x012a], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x022e0…02300             DirEnt {status=0x00, name=»PASLIB  ERL«, xl=0x01, bc=0x00, xh=0x00, rc=0x3e, al=[0x012b, 0x012c, 0x012d, 0x012e, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02300…02320 (1, 0, 4)   DirEnt {status=0x00, name=»RANDOMIOERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x16, al=[0x012f, 0x0130, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02320…02340             DirEnt {status=0x00, name=»ROVLMGR ERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x08, al=[0x0131, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02340…02360             DirEnt {status=0x00, name=»TRANCENDERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x1a, al=[0x0132, 0x0133, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02360…02380             DirEnt {status=0x00, name=»UTILMOD ERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x03, al=[0x0134, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02380…023a0             DirEnt {status=0x00, name=»XREF    DOC«, xl=0x00, bc=0x00, xh=0x00, rc=0x06, al=[0x0135, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x023a0…023c0             DirEnt {status=0x00, name=»XREF    $$$«, xl=0x00, bc=0x00, xh=0x00, rc=0x00, al=[0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x023c0…023e0             DirEnt {status=0x00, name=»FORLIB  LIB«, xl=0x00, bc=0x00, xh=0x00, rc=0x00, al=[0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x023e0…02400             UnusedDirEnt {status=0xe5}
0x02400…02420 (1, 0, 5)   DirEnt {status=0x00, name=»ZIP     COM«, xl=0x01, bc=0x00, xh=0x00, rc=0x6c, al=[0x0035, 0x0036, 0x0037, 0x0038, 0x0039, 0x003a, 0x003b, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02420…02440             DirEnt {status=0x00, name=»CC2     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x7c, al=[0x003c, 0x003d, 0x003e, 0x003f, 0x0040, 0x0041, 0x0042, 0x0043], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02440…02460             DirEnt {status=0x00, name=»CCC     ASM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x0044, 0x0045, 0x0046, 0x0047, 0x0048, 0x0049, 0x004a, 0x004b], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02460…02480             DirEnt {status=0x00, name=»CCC     ASM«, xl=0x01, bc=0x00, xh=0x00, rc=0x3f, al=[0x004c, 0x004d, 0x004e, 0x004f, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02480…024a0             DirEnt {status=0x00, name=»CL      COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x0050, 0x0051, 0x0052, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x024a0…024c0             DirEnt {status=0x00, name=»CLIB    COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x29, al=[0x0053, 0x0054, 0x0055, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x024c0…024e0             DirEnt {status=0x00, name=»CONVERT C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x1a, al=[0x0056, 0x0057, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x024e0…02500             DirEnt {status=0x00, name=»DEFF2   CSM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x0058, 0x0059, 0x005a, 0x005b, 0x005c, 0x005d, 0x005e, 0x005f], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02500…02520 (1, 0, 6)   DirEnt {status=0x00, name=»DEFF2   CSM«, xl=0x01, bc=0x00, xh=0x00, rc=0x2a, al=[0x0060, 0x0061, 0x0062, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02520…02540             DirEnt {status=0x00, name=»DEFF2A  CSM«, xl=0x00, bc=0x00, xh=0x00, rc=0x56, al=[0x0063, 0x0064, 0x0065, 0x0066, 0x0067, 0x0068, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02540…02560             DirEnt {status=0x00, name=»DIO     C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x42, al=[0x0069, 0x006a, 0x006b, 0x006c, 0x006d, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02560…02580             DirEnt {status=0x00, name=»DIO     H  «, xl=0x00, bc=0x00, xh=0x00, rc=0x07, al=[0x006e, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02580…025a0             DirEnt {status=0x00, name=»FLOAT   C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x35, al=[0x006f, 0x0070, 0x0071, 0x0072, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x025a0…025c0             DirEnt {status=0x00, name=»FLOAT   DOC«, xl=0x00, bc=0x00, xh=0x00, rc=0x2e, al=[0x0073, 0x0074, 0x0075, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x025c0…025e0             DirEnt {status=0x00, name=»FLOATSUMC  «, xl=0x00, bc=0x00, xh=0x00, rc=0x06, al=[0x0076, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x025e0…02600             DirEnt {status=0x00, name=»LPR     C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x14, al=[0x0077, 0x0078, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02600…02620 (1, 0, 7)   UnusedDirEnt {status=0xe5}
         […0xf…]
0x02800…02820 (1, 0, 9)   DirEnt {status=0x00, name=»LPRINTF C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x07, al=[0x0079, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02820…02840             DirEnt {status=0x00, name=»NOBOOT  C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x11, al=[0x007a, 0x007b, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02840…02860             DirEnt {status=0x00, name=»OTHELLO C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x53, al=[0x007c, 0x007d, 0x007e, 0x007f, 0x0080, 0x0081, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02860…02880             DirEnt {status=0x00, name=»READ    ME «, xl=0x00, bc=0x00, xh=0x00, rc=0x14, al=[0x0082, 0x0083, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02880…028a0             DirEnt {status=0x00, name=»SIEVE   C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x08, al=[0x0084, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x028a0…028c0             DirEnt {status=0x00, name=»STDLIB1 C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x3f, al=[0x0085, 0x0086, 0x0087, 0x0088, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x028c0…028e0             DirEnt {status=0x00, name=»STDLIB2 C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x34, al=[0x0089, 0x008a, 0x008b, 0x008c, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x028e0…02900             DirEnt {status=0x00, name=»TELNET  C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x008d, 0x008e, 0x008f, 0x0090, 0x0091, 0x0092, 0x0093, 0x0094], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02900…02920 (1, 0, 10)  DirEnt {status=0x00, name=»TELNET  C  «, xl=0x01, bc=0x00, xh=0x00, rc=0x1f, al=[0x0095, 0x0096, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02920…02940             DirEnt {status=0x00, name=»WILDEXP C  «, xl=0x00, bc=0x00, xh=0x00, rc=0x26, al=[0x0097, 0x0098, 0x0099, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02940…02960             DirEnt {status=0x00, name=»F80     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x009a, 0x009b, 0x009c, 0x009d, 0x009e, 0x009f, 0x00a0, 0x00a1], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02960…02980             DirEnt {status=0x00, name=»F80     COM«, xl=0x01, bc=0x00, xh=0x00, rc=0x55, al=[0x00a2, 0x00a3, 0x00a4, 0x00a5, 0x00a6, 0x00a7, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02980…029a0             DirEnt {status=0x00, name=»FORLIB  REL«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x00a8, 0x00a9, 0x00aa, 0x00ab, 0x00ac, 0x00ad, 0x00ae, 0x00af], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x029a0…029c0             DirEnt {status=0x00, name=»FORLIB  REL«, xl=0x01, bc=0x00, xh=0x00, rc=0x4f, al=[0x00b0, 0x00b1, 0x00b2, 0x00b3, 0x00b4, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x029c0…029e0             DirEnt {status=0x00, name=»L80     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x54, al=[0x00b5, 0x00b6, 0x00b7, 0x00b8, 0x00b9, 0x00ba, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x029e0…02a00             DirEnt {status=0x00, name=»LIB80   COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x25, al=[0x00bb, 0x00bc, 0x00bd, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02a00…02a20 (1, 0, 11)  UnusedDirEnt {status=0xe5}
         […0xf…]
0x02c00…02c20 (1, 0, 13)  DirEnt {status=0x00, name=»M80     COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x00be, 0x00bf, 0x00c0, 0x00c1, 0x00c2, 0x00c3, 0x00c4, 0x00c5], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02c20…02c40             DirEnt {status=0x00, name=»M80     COM«, xl=0x01, bc=0x00, xh=0x00, rc=0x1d, al=[0x00c6, 0x00c7, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02c40…02c60             DirEnt {status=0x00, name=»DI      COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x16, al=[0x00c8, 0x00c9, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02c60…02c80             DirEnt {status=0x00, name=»DIS8080 COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x00ca, 0x00cb, 0x00cc, 0x00cd, 0x00ce, 0x00cf, 0x00d0, 0x00d1], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02c80…02ca0             DirEnt {status=0x00, name=»DIS8080 COM«, xl=0x01, bc=0x00, xh=0x00, rc=0x11, al=[0x00d2, 0x00d3, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02ca0…02cc0             DirEnt {status=0x00, name=»FPREALS ERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x3c, al=[0x00d4, 0x00d5, 0x00d6, 0x00d7, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02cc0…02ce0             DirEnt {status=0x00, name=»FULLHEAPERL«, xl=0x00, bc=0x00, xh=0x00, rc=0x13, al=[0x00d8, 0x00d9, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02ce0…02d00             DirEnt {status=0x00, name=»IOCHK   BLD«, xl=0x00, bc=0x00, xh=0x00, rc=0x01, al=[0x00da, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02d00…02d20 (1, 0, 14)  DirEnt {status=0x00, name=»LIBMT   COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x7a, al=[0x00db, 0x00dc, 0x00dd, 0x00de, 0x00df, 0x00e0, 0x00e1, 0x00e2], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02d20…02d40             DirEnt {status=0x00, name=»LINKMT  COM«, xl=0x00, bc=0x00, xh=0x00, rc=0x5a, al=[0x00e3, 0x00e4, 0x00e5, 0x00e6, 0x00e7, 0x00e8, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02d40…02d60             DirEnt {status=0x00, name=»MTERRS  TXT«, xl=0x00, bc=0x00, xh=0x00, rc=0x26, al=[0x00e9, 0x00ea, 0x00eb, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02d60…02d80             DirEnt {status=0x00, name=»MTPLUS  000«, xl=0x00, bc=0x00, xh=0x00, rc=0x64, al=[0x00ec, 0x00ed, 0x00ee, 0x00ef, 0x00f0, 0x00f1, 0x00f2, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02d80…02da0             DirEnt {status=0x00, name=»MTPLUS  001«, xl=0x00, bc=0x00, xh=0x00, rc=0x54, al=[0x00f3, 0x00f4, 0x00f5, 0x00f6, 0x00f7, 0x00f8, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02da0…02dc0             DirEnt {status=0x00, name=»MTPLUS  002«, xl=0x00, bc=0x00, xh=0x00, rc=0x37, al=[0x00f9, 0x00fa, 0x00fb, 0x00fc, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02dc0…02de0             DirEnt {status=0x00, name=»MTPLUS  003«, xl=0x00, bc=0x00, xh=0x00, rc=0x3b, al=[0x00fd, 0x00fe, 0x00ff, 0x0100, 0x0000, 0x0000, 0x0000, 0x0000], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02de0…02e00             DirEnt {status=0x00, name=»MTPLUS  004«, xl=0x00, bc=0x00, xh=0x00, rc=0x80, al=[0x0101, 0x0102, 0x0103, 0x0104, 0x0105, 0x0106, 0x0107, 0x0108], flags=[0,0,0,0,0,0,0,0,0,0,0]}
0x02e00…02e20 (1, 0, 15)  UnusedDirEnt {status=0xe5}
         […0xf…]
0x03000…03100 (1, 1, 1)   DataBlock {»PIP.COM«}
         […0x1f…]
0x05000…05100 (2, 1, 1)   DataBlock {»CAT.COM«}
         […0xf…]
0x06000…06100 (3, 0, 1)   DataBlock {»MLIST.COM«}
         […0x1…]
0x06200…06300 (3, 0, 3)   DataBlock {»ALPH.C«}
         […0x1…]
0x06400…06500 (3, 0, 5)   DataBlock {»MLIST.COM«}
         […0x1…]
0x06600…06700 (3, 0, 7)   DataBlock {»ALPH.C«}
         […0x1…]
0x06800…06900 (3, 0, 9)   DataBlock {»MLIST.COM«}
         […0x1…]
0x06a00…06b00 (3, 0, 11)  DataBlock {»ALPH.C«}
         […0x1…]
0x06c00…06d00 (3, 0, 13)  DataBlock {»MLIST.COM«}
         […0x1…]
0x06e00…06f00 (3, 0, 15)  DataBlock {»ALPH.C«}
         […0x1…]
0x07000…07100 (3, 1, 1)   DataBlock {»BDS.LIB«}
         […0x11…]
0x08200…08300 (4, 0, 3)   DataBlock {»BDSCIO.H«}
         […0x1…]
0x08400…08500 (4, 0, 5)   DataBlock {»BDS.LIB«}
         […0x1…]
0x08600…08700 (4, 0, 7)   DataBlock {»BDSCIO.H«}
         […0x1…]
0x08800…08900 (4, 0, 9)   DataBlock {»BDS.LIB«}
         […0x1…]
0x08a00…08b00 (4, 0, 11)  DataBlock {»BDSCIO.H«}
         […0x1…]
0x08c00…08d00 (4, 0, 13)  DataBlock {»BDS.LIB«}
         […0x1…]
0x08e00…08f00 (4, 0, 15)  DataBlock {»BDSCIO.H«}
         […0x11…]
0x0a000…0a100 (5, 0, 1)   DataBlock {»C.CCC«}
         […0x1…]
0x0a200…0a300 (5, 0, 3)   DataBlock {»BCDREALS.ERL«}
         […0x1…]
0x0a400…0a500 (5, 0, 5)   DataBlock {»C.CCC«}
         […0x1…]
0x0a600…0a700 (5, 0, 7)   DataBlock {»BCDREALS.ERL«}
         […0x1…]
0x0a800…0a900 (5, 0, 9)   DataBlock {»C.CCC«}
         […0x1…]
0x0aa00…0ab00 (5, 0, 11)  DataBlock {»BCDREALS.ERL«}
         […0x1…]
0x0ac00…0ad00 (5, 0, 13)  DataBlock {»C.CCC«}
         […0x1…]
0x0ae00…0af00 (5, 0, 15)  DataBlock {»BCDREALS.ERL«}
         […0x3…]
0x0b200…0b300 (5, 1, 3)   DataBlock {»DBUGHELP.TXT«}
         […0x1…]
0x0b400…0b500 (5, 1, 5)   DataBlock {»BCDREALS.ERL«}
         […0x1…]
0x0b600…0b700 (5, 1, 7)   DataBlock {»DBUGHELP.TXT«}
         […0x1…]
0x0b800…0b900 (5, 1, 9)   DataBlock {»BCDREALS.ERL«}
         […0x1…]
0x0ba00…0bb00 (5, 1, 11)  DataBlock {»DBUGHELP.TXT«}
         […0x1…]
0x0bc00…0bd00 (5, 1, 13)  DataBlock {»BCDREALS.ERL«}
         […0x1…]
0x0be00…0bf00 (5, 1, 15)  DataBlock {»DBUGHELP.TXT«}
         […0x1…]
0x0c000…0c100 (6, 0, 1)   DataBlock {»DEBUGGER.ERL«}
         […0x2f…]
0x0f000…0f100 (7, 1, 1)   DataBlock {»CASM.C«}
         […0x4f…]
0x14000…14100 (10, 0, 1)  DataBlock {»CAT.C«}
         […0x1…]
0x14200…14300 (10, 0, 3)  DataBlock {»CC.COM«}
         […0x1…]
0x14400…14500 (10, 0, 5)  DataBlock {»CAT.C«}
         […0x1…]
0x14600…14700 (10, 0, 7)  DataBlock {»CC.COM«}
         […0x1…]
0x14800…14900 (10, 0, 9)  DataBlock {»CAT.C«}
         […0x1…]
0x14a00…14b00 (10, 0, 11) DataBlock {»CC.COM«}
         […0x1…]
0x14c00…14d00 (10, 0, 13) DataBlock {»CAT.C«}
         […0x1…]
0x14e00…14f00 (10, 0, 15) DataBlock {»CC.COM«}
         […0x31…]
0x18000…18100 (12, 0, 1)  DataBlock {»CC0T.C«}
         […0x1…]
0x18200…18300 (12, 0, 3)  DataBlock {»ZIP.COM«}
         […0x1…]
0x18400…18500 (12, 0, 5)  DataBlock {»CC0T.C«}
         […0x1…]
0x18600…18700 (12, 0, 7)  DataBlock {»ZIP.COM«}
         […0x1…]
0x18800…18900 (12, 0, 9)  DataBlock {»CC0T.C«}
         […0x1…]
0x18a00…18b00 (12, 0, 11) DataBlock {»ZIP.COM«}
         […0x1…]
0x18c00…18d00 (12, 0, 13) DataBlock {»CC0T.C«}
         […0x1…]
0x18e00…18f00 (12, 0, 15) DataBlock {»ZIP.COM«}
         […0x71…]
0x20000…20100 (16, 0, 1)  DataBlock {»CC2.COM«}
         […0x3f…]
0x24000…24100 (18, 0, 1)  DataBlock {»CCC.ASM«}
         […0x5f…]
0x2a000…2a100 (21, 0, 1)  DataBlock {»CL.COM«}
         […0x11…]
0x2b200…2b300 (21, 1, 3)  DataBlock {»CLIB.COM«}
         […0x1…]
0x2b400…2b500 (21, 1, 5)  DataBlock {»CL.COM«}
         […0x1…]
0x2b600…2b700 (21, 1, 7)  DataBlock {»CLIB.COM«}
         […0x1…]
0x2b800…2b900 (21, 1, 9)  DataBlock {»CL.COM«}
         […0x1…]
0x2ba00…2bb00 (21, 1, 11) DataBlock {»CLIB.COM«}
         […0x1…]
0x2bc00…2bd00 (21, 1, 13) DataBlock {»CL.COM«}
         […0x1…]
0x2be00…2bf00 (21, 1, 15) DataBlock {»CLIB.COM«}
         […0x11…]
0x2d000…2d100 (22, 1, 1)  DataBlock {»CONVERT.C«}
         […0xf…]
0x2e000…2e100 (23, 0, 1)  DataBlock {»DEFF2.CSM«}
         […0x51…]
0x33200…33300 (25, 1, 3)  DataBlock {»DEFF2A.CSM«}
         […0x1…]
0x33400…33500 (25, 1, 5)  DataBlock {»DEFF2.CSM«}
         […0x1…]
0x33600…33700 (25, 1, 7)  DataBlock {»DEFF2A.CSM«}
         […0x1…]
0x33800…33900 (25, 1, 9)  DataBlock {»DEFF2.CSM«}
         […0x1…]
0x33a00…33b00 (25, 1, 11) DataBlock {»DEFF2A.CSM«}
         […0x1…]
0x33c00…33d00 (25, 1, 13) DataBlock {»DEFF2.CSM«}
         […0x1…]
0x33e00…33f00 (25, 1, 15) DataBlock {»DEFF2A.CSM«}
         […0x23…]
0x36200…36300 (27, 0, 3)  DataBlock {»DIO.C«}
         […0x1…]
0x36400…36500 (27, 0, 5)  DataBlock {»DEFF2A.CSM«}
         […0x1…]
0x36600…36700 (27, 0, 7)  DataBlock {»DIO.C«}
         […0x1…]
0x36800…36900 (27, 0, 9)  DataBlock {»DEFF2A.CSM«}
         […0x1…]
0x36a00…36b00 (27, 0, 11) DataBlock {»DIO.C«}
         […0x1…]
0x36c00…36d00 (27, 0, 13) DataBlock {»DEFF2A.CSM«}
         […0x1…]
0x36e00…36f00 (27, 0, 15) DataBlock {»DIO.C«}
         […0x21…]
0x39000…39100 (28, 1, 1)  DataBlock {»DIO.H«}
         […0x1…]
0x39200…39300 (28, 1, 3)  DataBlock {»FLOAT.C«}
         […0x1…]
0x39400…39500 (28, 1, 5)  DataBlock {»DIO.H«}
         […0x1…]
0x39600…39700 (28, 1, 7)  DataBlock {»FLOAT.C«}
         […0x1…]
0x39800…39900 (28, 1, 9)  DataBlock {»DIO.H«}
         […0x1…]
0x39a00…39b00 (28, 1, 11) DataBlock {»FLOAT.C«}
         […0x1…]
0x39c00…39d00 (28, 1, 13) DataBlock {»DIO.H«}
         […0x1…]
0x39e00…39f00 (28, 1, 15) DataBlock {»FLOAT.C«}
         […0x13…]
0x3b200…3b300 (29, 1, 3)  DataBlock {»FLOAT.DOC«}
         […0x1…]
0x3b400…3b500 (29, 1, 5)  DataBlock {»FLOAT.C«}
         […0x1…]
0x3b600…3b700 (29, 1, 7)  DataBlock {»FLOAT.DOC«}
         […0x1…]
0x3b800…3b900 (29, 1, 9)  DataBlock {»FLOAT.C«}
         […0x1…]
0x3ba00…3bb00 (29, 1, 11) DataBlock {»FLOAT.DOC«}
         […0x1…]
0x3bc00…3bd00 (29, 1, 13) DataBlock {»FLOAT.C«}
         […0x1…]
0x3be00…3bf00 (29, 1, 15) DataBlock {»FLOAT.DOC«}
         […0x11…]
0x3d000…3d100 (30, 1, 1)  DataBlock {»FLOATSUM.C«}
         […0x1…]
0x3d200…3d300 (30, 1, 3)  DataBlock {»LPR.C«}
         […0x1…]
0x3d400…3d500 (30, 1, 5)  DataBlock {»FLOATSUM.C«}
         […0x1…]
0x3d600…3d700 (30, 1, 7)  DataBlock {»LPR.C«}
         […0x1…]
0x3d800…3d900 (30, 1, 9)  DataBlock {»FLOATSUM.C«}
         […0x1…]
0x3da00…3db00 (30, 1, 11) DataBlock {»LPR.C«}
         […0x1…]
0x3dc00…3dd00 (30, 1, 13) DataBlock {»FLOATSUM.C«}
         […0x1…]
0x3de00…3df00 (30, 1, 15) DataBlock {»LPR.C«}
         […0x3…]
0x3e200…3e300 (31, 0, 3)  DataBlock {»LPRINTF.C«}
         […0x1…]
0x3e400…3e500 (31, 0, 5)  DataBlock {»LPR.C«}
         […0x1…]
0x3e600…3e700 (31, 0, 7)  DataBlock {»LPRINTF.C«}
         […0x1…]
0x3e800…3e900 (31, 0, 9)  DataBlock {»LPR.C«}
         […0x1…]
0x3ea00…3eb00 (31, 0, 11) DataBlock {»LPRINTF.C«}
         […0x1…]
0x3ec00…3ed00 (31, 0, 13) DataBlock {»LPR.C«}
         […0x1…]
0x3ee00…3ef00 (31, 0, 15) DataBlock {»LPRINTF.C«}
         […0x1…]
0x3f000…3f100 (31, 1, 1)  DataBlock {»NOBOOT.C«}
         […0xf…]
0x40000…40100 (32, 0, 1)  DataBlock {»OTHELLO.C«}
         […0x2f…]
0x43000…43100 (33, 1, 1)  DataBlock {»READ.ME«}
         […0xf…]
0x44000…44100 (34, 0, 1)  DataBlock {»SIEVE.C«}
         […0x1…]
0x44200…44300 (34, 0, 3)  DataBlock {»STDLIB1.C«}
         […0x1…]
0x44400…44500 (34, 0, 5)  DataBlock {»SIEVE.C«}
         […0x1…]
0x44600…44700 (34, 0, 7)  DataBlock {»STDLIB1.C«}
         […0x1…]
0x44800…44900 (34, 0, 9)  DataBlock {»SIEVE.C«}
         […0x1…]
0x44a00…44b00 (34, 0, 11) DataBlock {»STDLIB1.C«}
         […0x1…]
0x44c00…44d00 (34, 0, 13) DataBlock {»SIEVE.C«}
         […0x1…]
0x44e00…44f00 (34, 0, 15) DataBlock {»STDLIB1.C«}
         […0x13…]
0x46200…46300 (35, 0, 3)  DataBlock {»STDLIB2.C«}
         […0x1…]
0x46400…46500 (35, 0, 5)  DataBlock {»STDLIB1.C«}
         […0x1…]
0x46600…46700 (35, 0, 7)  DataBlock {»STDLIB2.C«}
         […0x1…]
0x46800…46900 (35, 0, 9)  DataBlock {»STDLIB1.C«}
         […0x1…]
0x46a00…46b00 (35, 0, 11) DataBlock {»STDLIB2.C«}
         […0x1…]
0x46c00…46d00 (35, 0, 13) DataBlock {»STDLIB1.C«}
         […0x1…]
0x46e00…46f00 (35, 0, 15) DataBlock {»STDLIB2.C«}
         […0x13…]
0x48200…48300 (36, 0, 3)  DataBlock {»TELNET.C«}
         […0x1…]
0x48400…48500 (36, 0, 5)  DataBlock {»STDLIB2.C«}
         […0x1…]
0x48600…48700 (36, 0, 7)  DataBlock {»TELNET.C«}
         […0x1…]
0x48800…48900 (36, 0, 9)  DataBlock {»STDLIB2.C«}
         […0x1…]
0x48a00…48b00 (36, 0, 11) DataBlock {»TELNET.C«}
         […0x1…]
0x48c00…48d00 (36, 0, 13) DataBlock {»STDLIB2.C«}
         […0x1…]
0x48e00…48f00 (36, 0, 15) DataBlock {»TELNET.C«}
         […0x43…]
0x4d200…4d300 (38, 1, 3)  DataBlock {»WILDEXP.C«}
         […0x1…]
0x4d400…4d500 (38, 1, 5)  DataBlock {»TELNET.C«}
         […0x1…]
0x4d600…4d700 (38, 1, 7)  DataBlock {»WILDEXP.C«}
         […0x1…]
0x4d800…4d900 (38, 1, 9)  DataBlock {»TELNET.C«}
         […0x1…]
0x4da00…4db00 (38, 1, 11) DataBlock {»WILDEXP.C«}
         […0x1…]
0x4dc00…4dd00 (38, 1, 13) DataBlock {»TELNET.C«}
         […0x1…]
0x4de00…4df00 (38, 1, 15) DataBlock {»WILDEXP.C«}
         […0x11…]
0x4f000…4f100 (39, 1, 1)  DataBlock {»F80.COM«}
         […0x6f…]
0x56000…56100 (43, 0, 1)  DataBlock {»FORLIB.REL«}
         […0x61…]
0x5c200…5c300 (46, 0, 3)  DataBlock {»L80.COM«}
         […0x1…]
0x5c400…5c500 (46, 0, 5)  DataBlock {»FORLIB.REL«}
         […0x1…]
0x5c600…5c700 (46, 0, 7)  DataBlock {»L80.COM«}
         […0x1…]
0x5c800…5c900 (46, 0, 9)  DataBlock {»FORLIB.REL«}
         […0x1…]
0x5ca00…5cb00 (46, 0, 11) DataBlock {»L80.COM«}
         […0x1…]
0x5cc00…5cd00 (46, 0, 13) DataBlock {»FORLIB.REL«}
         […0x1…]
0x5ce00…5cf00 (46, 0, 15) DataBlock {»L80.COM«}
         […0x23…]
0x5f200…5f300 (47, 1, 3)  DataBlock {»LIB80.COM«}
         […0x1…]
0x5f400…5f500 (47, 1, 5)  DataBlock {»L80.COM«}
         […0x1…]
0x5f600…5f700 (47, 1, 7)  DataBlock {»LIB80.COM«}
         […0x1…]
0x5f800…5f900 (47, 1, 9)  DataBlock {»L80.COM«}
         […0x1…]
0x5fa00…5fb00 (47, 1, 11) DataBlock {»LIB80.COM«}
         […0x1…]
0x5fc00…5fd00 (47, 1, 13) DataBlock {»L80.COM«}
         […0x1…]
0x5fe00…5ff00 (47, 1, 15) DataBlock {»LIB80.COM«}
         […0x11…]
0x61000…61100 (48, 1, 1)  DataBlock {»M80.COM«}
         […0x4f…]
0x66000…66100 (51, 0, 1)  DataBlock {»DI.COM«}
         […0xf…]
0x67000…67100 (51, 1, 1)  DataBlock {»DIS8080.COM«}
         […0x4f…]
0x6c000…6c100 (54, 0, 1)  DataBlock {»FPREALS.ERL«}
         […0x1f…]
0x6e000…6e100 (55, 0, 1)  DataBlock {»FULLHEAP.ERL«}
         […0xf…]
0x6f000…6f100 (55, 1, 1)  DataBlock {»IOCHK.BLD«}
         […0x1…]
0x6f200…6f300 (55, 1, 3)  DataBlock {»LIBMT.COM«}
         […0x1…]
0x6f400…6f500 (55, 1, 5)  DataBlock {»IOCHK.BLD«}
         […0x1…]
0x6f600…6f700 (55, 1, 7)  DataBlock {»LIBMT.COM«}
         […0x1…]
0x6f800…6f900 (55, 1, 9)  DataBlock {»IOCHK.BLD«}
         […0x1…]
0x6fa00…6fb00 (55, 1, 11) DataBlock {»LIBMT.COM«}
         […0x1…]
0x6fc00…6fd00 (55, 1, 13) DataBlock {»IOCHK.BLD«}
         […0x1…]
0x6fe00…6ff00 (55, 1, 15) DataBlock {»LIBMT.COM«}
         […0x33…]
0x73200…73300 (57, 1, 3)  DataBlock {»LINKMT.COM«}
         […0x1…]
0x73400…73500 (57, 1, 5)  DataBlock {»LIBMT.COM«}
         […0x1…]
0x73600…73700 (57, 1, 7)  DataBlock {»LINKMT.COM«}
         […0x1…]
0x73800…73900 (57, 1, 9)  DataBlock {»LIBMT.COM«}
         […0x1…]
0x73a00…73b00 (57, 1, 11) DataBlock {»LINKMT.COM«}
         […0x1…]
0x73c00…73d00 (57, 1, 13) DataBlock {»LIBMT.COM«}
         […0x1…]
0x73e00…73f00 (57, 1, 15) DataBlock {»LINKMT.COM«}
         […0x23…]
0x76200…76300 (59, 0, 3)  DataBlock {»MTERRS.TXT«}
         […0x1…]
0x76400…76500 (59, 0, 5)  DataBlock {»LINKMT.COM«}
         […0x1…]
0x76600…76700 (59, 0, 7)  DataBlock {»MTERRS.TXT«}
         […0x1…]
0x76800…76900 (59, 0, 9)  DataBlock {»LINKMT.COM«}
         […0x1…]
0x76a00…76b00 (59, 0, 11) DataBlock {»MTERRS.TXT«}
         […0x1…]
0x76c00…76d00 (59, 0, 13) DataBlock {»LINKMT.COM«}
         […0x1…]
0x76e00…76f00 (59, 0, 15) DataBlock {»MTERRS.TXT«}
         […0x11…]
0x78000…78100 (60, 0, 1)  DataBlock {»MTPLUS.000«}
         […0x31…]
0x7b200…7b300 (61, 1, 3)  DataBlock {»MTPLUS.001«}
         […0x1…]
0x7b400…7b500 (61, 1, 5)  DataBlock {»MTPLUS.000«}
         […0x1…]
0x7b600…7b700 (61, 1, 7)  DataBlock {»MTPLUS.001«}
         […0x1…]
0x7b800…7b900 (61, 1, 9)  DataBlock {»MTPLUS.000«}
         […0x1…]
0x7ba00…7bb00 (61, 1, 11) DataBlock {»MTPLUS.001«}
         […0x1…]
0x7bc00…7bd00 (61, 1, 13) DataBlock {»MTPLUS.000«}
         […0x1…]
0x7be00…7bf00 (61, 1, 15) DataBlock {»MTPLUS.001«}
         […0x23…]
0x7e200…7e300 (63, 0, 3)  DataBlock {»MTPLUS.002«}
         […0x1…]
0x7e400…7e500 (63, 0, 5)  DataBlock {»MTPLUS.001«}
         […0x1…]
0x7e600…7e700 (63, 0, 7)  DataBlock {»MTPLUS.002«}
         […0x1…]
0x7e800…7e900 (63, 0, 9)  DataBlock {»MTPLUS.001«}
         […0x1…]
0x7ea00…7eb00 (63, 0, 11) DataBlock {»MTPLUS.002«}
         […0x1…]
0x7ec00…7ed00 (63, 0, 13) DataBlock {»MTPLUS.001«}
         […0x1…]
0x7ee00…7ef00 (63, 0, 15) DataBlock {»MTPLUS.002«}
         […0x13…]
0x80200…80300 (64, 0, 3)  DataBlock {»MTPLUS.003«}
         […0x1…]
0x80400…80500 (64, 0, 5)  DataBlock {»MTPLUS.002«}
         […0x1…]
0x80600…80700 (64, 0, 7)  DataBlock {»MTPLUS.003«}
         […0x1…]
0x80800…80900 (64, 0, 9)  DataBlock {»MTPLUS.002«}
         […0x1…]
0x80a00…80b00 (64, 0, 11) DataBlock {»MTPLUS.003«}
         […0x1…]
0x80c00…80d00 (64, 0, 13) DataBlock {»MTPLUS.002«}
         […0x1…]
0x80e00…80f00 (64, 0, 15) DataBlock {»MTPLUS.003«}
         […0x13…]
0x82200…82300 (65, 0, 3)  DataBlock {»MTPLUS.004«}
         […0x1…]
0x82400…82500 (65, 0, 5)  DataBlock {»MTPLUS.003«}
         […0x1…]
0x82600…82700 (65, 0, 7)  DataBlock {»MTPLUS.004«}
         […0x1…]
0x82800…82900 (65, 0, 9)  DataBlock {»MTPLUS.003«}
         […0x1…]
0x82a00…82b00 (65, 0, 11) DataBlock {»MTPLUS.004«}
         […0x1…]
0x82c00…82d00 (65, 0, 13) DataBlock {»MTPLUS.003«}
         […0x1…]
0x82e00…82f00 (65, 0, 15) DataBlock {»MTPLUS.004«}
         […0x41…]
0x87000…87100 (67, 1, 1)  DataBlock {»MTPLUS.005«}
         […0x1f…]
0x89000…89100 (68, 1, 1)  DataBlock {»MTPLUS.006«}
         […0x11…]
0x8a200…8a300 (69, 0, 3)  DataBlock {»MTPLUS.COM«}
         […0x1…]
0x8a400…8a500 (69, 0, 5)  DataBlock {»MTPLUS.006«}
         […0x1…]
0x8a600…8a700 (69, 0, 7)  DataBlock {»MTPLUS.COM«}
         […0x1…]
0x8a800…8a900 (69, 0, 9)  DataBlock {»MTPLUS.006«}
         […0x1…]
0x8aa00…8ab00 (69, 0, 11) DataBlock {»MTPLUS.COM«}
         […0x1…]
0x8ac00…8ad00 (69, 0, 13) DataBlock {»MTPLUS.006«}
         […0x1…]
0x8ae00…8af00 (69, 0, 15) DataBlock {»MTPLUS.COM«}
         […0x83…]
0x93200…93300 (73, 1, 3)  DataBlock {»PASLIB.ERL«}
         […0x1…]
0x93400…93500 (73, 1, 5)  DataBlock {»MTPLUS.COM«}
         […0x1…]
0x93600…93700 (73, 1, 7)  DataBlock {»PASLIB.ERL«}
         […0x1…]
0x93800…93900 (73, 1, 9)  DataBlock {»MTPLUS.COM«}
         […0x1…]
0x93a00…93b00 (73, 1, 11) DataBlock {»PASLIB.ERL«}
         […0x1…]
0x93c00…93d00 (73, 1, 13) DataBlock {»MTPLUS.COM«}
         […0x1…]
0x93e00…93f00 (73, 1, 15) DataBlock {»PASLIB.ERL«}
         […0x53…]
0x99200…99300 (76, 1, 3)  DataBlock {»RANDOMIO.ERL«}
         […0x1…]
0x99400…99500 (76, 1, 5)  DataBlock {»PASLIB.ERL«}
         […0x1…]
0x99600…99700 (76, 1, 7)  DataBlock {»RANDOMIO.ERL«}
         […0x1…]
0x99800…99900 (76, 1, 9)  DataBlock {»PASLIB.ERL«}
         […0x1…]
0x99a00…99b00 (76, 1, 11) DataBlock {»RANDOMIO.ERL«}
         […0x1…]
0x99c00…99d00 (76, 1, 13) DataBlock {»PASLIB.ERL«}
         […0x1…]
0x99e00…99f00 (76, 1, 15) DataBlock {»RANDOMIO.ERL«}
         […0x3…]
0x9a200…9a300 (77, 0, 3)  DataBlock {»ROVLMGR.ERL«}
         […0x1…]
0x9a400…9a500 (77, 0, 5)  DataBlock {»RANDOMIO.ERL«}
         […0x1…]
0x9a600…9a700 (77, 0, 7)  DataBlock {»ROVLMGR.ERL«}
         […0x1…]
0x9a800…9a900 (77, 0, 9)  DataBlock {»RANDOMIO.ERL«}
         […0x1…]
0x9aa00…9ab00 (77, 0, 11) DataBlock {»ROVLMGR.ERL«}
         […0x1…]
0x9ac00…9ad00 (77, 0, 13) DataBlock {»RANDOMIO.ERL«}
         […0x1…]
0x9ae00…9af00 (77, 0, 15) DataBlock {»ROVLMGR.ERL«}
         […0x1…]
0x9b000…9b100 (77, 1, 1)  DataBlock {»TRANCEND.ERL«}
         […0xf…]
0x9c000…9c100 (78, 0, 1)  DataBlock {»UTILMOD.ERL«}
         […0x1…]
0x9c200…9c300 (78, 0, 3)  DataBlock {»XREF.DOC«}
         […0x1…]
0x9c400…9c500 (78, 0, 5)  DataBlock {»UTILMOD.ERL«}
         […0x1…]
0x9c600…9c700 (78, 0, 7)  DataBlock {»XREF.DOC«}
         […0x1…]
0x9c800…9c900 (78, 0, 9)  DataBlock {»UTILMOD.ERL«}
         […0x1…]
0x9ca00…9cb00 (78, 0, 11) DataBlock {»XREF.DOC«}
         […0x1…]
0x9cc00…9cd00 (78, 0, 13) DataBlock {»UTILMOD.ERL«}
         […0x1…]
0x9ce00…9cf00 (78, 0, 15) DataBlock {»XREF.DOC«}
         […0x1…]
0x9d000…9d020 (78, 1, 1)  28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d   ┆(*==============================┆
0x9d020…9d040             3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d   ┆================================┆
0x9d040…9d060             3d 3d 3d 3d 3d 3d 2a 29 0d 0a 28 2a 20 20 50 52 4f 47 52 41 4d 20 54 49 54 4c 45 3a 20 50 41 53   ┆======*)  (*  PROGRAM TITLE: PAS┆
0x9d060…9d080             43 41 4c 20 43 52 4f 53 53 2d 52 45 46 45 52 45 4e 43 49 4e 47 20 50 52 4f 47 52 41 4d 20 20 20   ┆CAL CROSS-REFERENCING PROGRAM   ┆
0x9d080…9d0a0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20   ┆                *)  (*          ┆
0x9d0a0…9d0c0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                ┆
0x9d0c0…9d0e0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a   ┆                          *)  (*┆
0x9d0e0…9d100             20 20 50 52 4f 47 52 41 4d 20 46 49 4c 45 3a 20 58 52 45 46 2e 53 52 43 20 20 20 20 20 20 20 20   ┆  PROGRAM FILE: XREF.SRC        ┆
0x9d100…9d120 (78, 1, 2)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                ┆
0x9d120…9d140             20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆    *)  (*                      ┆
0x9d140…9d160             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                ┆
0x9d160…9d180             20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 4c 41 53 54 20 55 50 44 41 54   ┆              *)  (*  LAST UPDAT┆
0x9d180…9d1a0             45 3a 20 20 30 39 2d 4d 41 52 2d 38 31 20 62 79 20 4d 69 6b 65 20 4c 65 68 6d 61 6e 20 20 20 20   ┆E:  09-MAR-81 by Mike Lehman    ┆
0x9d1a0…9d1c0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 09 09   ┆                        *)  (*  ┆
0x9d1c0…9d1e0             09 09 09 09 09 09 20 20 20 20 20 20 2a 29 0d 0a 28 2a 09 4e 4f 54 45 3a 20 54 48 49 53 20 50 52   ┆            *)  (* NOTE: THIS PR┆
0x9d1e0…9d200             4f 47 52 41 4d 20 57 41 53 20 4f 52 49 47 49 4e 41 4c 4c 59 20 57 52 49 54 54 45 4e 20 42 59 20   ┆OGRAM WAS ORIGINALLY WRITTEN BY ┆
0x9d200…9d220 (78, 1, 3)  53 5d 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43   ┆SÅ OF INTEGER;                 C┆
0x9d220…9d240             41 53 45 20 52 45 46 54 59 50 45 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ASE REFTYPE OF                  ┆
0x9d240…9d260             20 20 43 4f 55 4e 54 3a 20 28 52 45 46 4e 55 4d 3a 20 4e 55 4d 52 45 46 53 29 3b 0d 0a 20 20 20   ┆  COUNT: (REFNUM: NUMREFS);     ┆
0x9d260…9d280             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 54 52 3a 20 28 4e 45 58 54 3a 20 49 54 45 4d 50   ┆               PTR: (NEXT: ITEMP┆
0x9d280…9d2a0             54 52 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 42 55 46   ┆TR)              END ;       BUF┆
0x9d2a0…9d2c0             46 45 52 20 3d 20 50 41 43 4b 45 44 20 41 52 52 41 59 5b 30 2e 2e 31 33 31 5d 20 4f 46 20 43 48   ┆FER = PACKED ARRAYÆ0..131Å OF CH┆
0x9d2c0…9d2e0             41 52 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 54 4f 50 3a 20 49 4e 44 45 58 3b 20 20 20 20 20   ┆AR;    VAR      TOP: INDEX;     ┆
0x9d2e0…9d300             20 20 20 28 2a 54 4f 50 20 4f 46 20 43 48 41 49 4e 20 4c 49 4e 4b 49 4e 47 20 41 4c 4c 20 45 4e   ┆   (*TOP OF CHAIN LINKING ALL EN┆
0x9d300…9d320 (78, 1, 4)  54 52 49 45 53 20 49 4e 20 54 2a 29 0d 0a 20 20 20 20 49 2c 4c 49 4e 45 43 4f 55 4e 54 2c 42 55   ┆TRIES IN T*)      I,LINECOUNT,BU┆
0x9d320…9d340             46 43 55 52 53 4f 52 3a 20 49 4e 54 45 47 45 52 3b 20 20 20 20 20 20 20 20 28 2a 43 55 52 52 45   ┆FCURSOR: INTEGER;        (*CURRE┆
0x9d340…9d360             4e 54 20 4c 49 4e 45 20 4e 55 4d 42 45 52 2a 29 0d 0a 20 20 20 20 46 46 2c 43 48 3a 20 43 48 41   ┆NT LINE NUMBER*)      FF,CH: CHA┆
0x9d360…9d380             52 3b 20 20 20 20 20 20 20 20 20 20 28 2a 43 55 52 52 45 4e 54 20 43 48 41 52 20 53 43 41 4e 4e   ┆R;          (*CURRENT CHAR SCANN┆
0x9d380…9d3a0             45 44 20 2a 29 0d 0a 20 20 20 20 42 55 46 2c 42 55 46 31 2c 42 55 46 32 3a 20 5e 42 55 46 46 45   ┆ED *)      BUF,BUF1,BUF2: ^BUFFE┆
0x9d3a0…9d3c0             52 3b 0d 0a 20 20 20 20 54 3a 20 41 52 52 41 59 20 5b 49 4e 44 45 58 5d 20 4f 46 20 57 4f 52 44   ┆R;      T: ARRAY ÆINDEXÅ OF WORD┆
0x9d3c0…9d3e0             3b 20 20 20 20 20 20 20 20 28 2a 48 41 53 48 20 54 41 42 4c 45 2a 29 0d 0a 20 20 20 20 4b 45 59   ┆;        (*HASH TABLE*)      KEY┆
0x9d3e0…9d400             3a 20 41 52 52 41 59 20 5b 31 2e 2e 4e 4b 5d 20 4f 46 20 41 4c 46 41 3b 20 20 20 20 20 20 28 2a   ┆: ARRAY Æ1..NKÅ OF ALFA;      (*┆
0x9d400…9d420 (78, 1, 5)  4e 2e 20 57 49 52 54 48 20 41 4e 44 20 20 20 20 20 2a 29 0d 0a 28 2a 09 41 44 41 50 54 45 44 20   ┆N. WIRTH AND     *)  (* ADAPTED ┆
0x9d420…9d440             46 4f 52 20 55 43 53 44 20 50 41 53 43 41 4c 20 28 49 2e 34 20 2d 20 54 48 45 20 50 55 42 4c 49   ┆FOR UCSD PASCAL (I.4 - THE PUBLI┆
0x9d440…9d460             43 20 44 4f 4d 41 49 4e 20 56 45 52 53 49 4f 4e 29 20 20 20 20 20 2a 29 0d 0a 28 2a 09 42 59 20   ┆C DOMAIN VERSION)     *)  (* BY ┆
0x9d460…9d480             53 48 41 57 4e 20 46 41 4e 4e 49 4e 47 20 28 49 4e 20 31 39 37 38 29 20 41 4e 44 20 53 55 42 53   ┆SHAWN FANNING (IN 1978) AND SUBS┆
0x9d480…9d4a0             45 51 55 45 4e 54 4c 59 20 41 44 41 50 54 45 44 20 46 4f 52 09 20 20 20 20 20 20 2a 29 0d 0a 28   ┆EQUENTLY ADAPTED FOR       *)  (┆
0x9d4a0…9d4c0             2a 09 50 41 53 43 41 4c 2f 4d 54 2b 20 42 59 20 4d 49 4b 45 20 4c 45 48 4d 41 4e 20 28 49 4e 20   ┆* PASCAL/MT+ BY MIKE LEHMAN (IN ┆
0x9d4c0…9d4e0             31 39 38 31 29 20 41 4e 44 20 49 53 20 41 20 50 55 42 4c 49 43 20 44 4f 4d 41 49 4e 20 20 20 20   ┆1981) AND IS A PUBLIC DOMAIN    ┆
0x9d4e0…9d500             2a 29 0d 0a 28 2a 09 50 52 4f 47 52 41 4d 2e 20 20 49 46 20 59 4f 55 20 4d 41 4b 45 20 52 45 56   ┆*)  (* PROGRAM.  IF YOU MAKE REV┆
0x9d500…9d520 (78, 1, 6)  49 53 49 4f 4e 53 2c 20 45 54 43 2e 20 50 4c 45 41 53 45 20 4c 45 41 56 45 20 54 48 45 20 41 55   ┆ISIONS, ETC. PLEASE LEAVE THE AU┆
0x9d520…9d540             54 48 4f 52 20 2a 29 0d 0a 28 2a 09 41 4e 44 20 4d 4f 44 49 46 49 45 52 53 20 4e 41 4d 45 20 49   ┆THOR *)  (* AND MODIFIERS NAME I┆
0x9d540…9d560             4e 20 54 48 45 20 53 4f 55 52 43 45 20 46 49 4c 45 2e 20 20 54 48 41 4e 4b 20 59 4f 55 2e 09 20   ┆N THE SOURCE FILE.  THANK YOU.  ┆
0x9d560…9d580             20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     *)  (*                     ┆
0x9d580…9d5a0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                ┆
0x9d5a0…9d5c0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 50 52 4f 47 52 41 4d 20 53   ┆               *)  (*  PROGRAM S┆
0x9d5c0…9d5e0             55 4d 4d 41 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆UMMARY:                         ┆
0x9d5e0…9d600             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20   ┆                         *)  (* ┆
0x9d600…9d620 (78, 1, 7)  20 52 45 53 45 52 56 45 44 20 4b 45 59 57 4f 52 44 20 54 41 42 4c 45 20 2a 29 0d 0a 20 20 20 20   ┆ RESERVED KEYWORD TABLE *)      ┆
0x9d620…9d640             45 52 52 4f 52 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ERROR,                          ┆
0x9d640…9d660             20 28 2a 20 45 52 52 4f 52 20 46 4c 41 47 20 2a 29 0d 0a 20 20 20 20 4c 49 53 54 49 4e 47 3a 20   ┆ (* ERROR FLAG *)      LISTING: ┆
0x9d660…9d680             42 4f 4f 4c 45 41 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 4c 49 53 54 49   ┆BOOLEAN;                (* LISTI┆
0x9d680…9d6a0             4e 47 20 4f 50 54 49 4f 4e 20 2a 29 0d 0a 20 20 20 20 49 4e 46 49 4c 45 3a 20 54 45 58 54 3b 0d   ┆NG OPTION *)      INFILE: TEXT; ┆
0x9d6a0…9d6c0             0a 20 20 20 20 4c 53 54 20 3a 20 54 45 58 54 3b 09 09 09 0d 0a 20 20 20 20 4c 53 54 46 49 4c 45   ┆     LST : TEXT;         LSTFILE┆
0x9d6c0…9d6e0             4e 41 4d 45 20 3a 20 53 54 52 49 4e 47 3b 0d 0a 20 20 20 20 49 4e 50 55 54 5f 4c 49 4e 45 20 3a   ┆NAME : STRING;      INPUT_LINE :┆
0x9d6e0…9d700             20 53 54 52 49 4e 47 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 49 4e 49 54 49 41 4c 49 5a 45   ┆ STRING;    PROCEDURE INITIALIZE┆
0x9d700…9d720 (78, 1, 8)  3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a 50 52 4f 43 45 44   ┆;  VAR    I : INTEGER;    PROCED┆
0x9d720…9d740             55 52 45 20 46 49 52 53 54 48 41 4c 46 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4b 45 59 5b 20 31   ┆URE FIRSTHALF;  BEGIN     KEYÆ 1┆
0x9d740…9d760             5d 20 3a 3d 20 27 41 4e 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 32 5d 20 3a 3d 20   ┆Å := 'AND     ';     KEYÆ 2Å := ┆
0x9d760…9d780             27 41 52 52 41 59 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 33 5d 20 3a 3d 20 27 42 45 47 49   ┆'ARRAY   ';     KEYÆ 3Å := 'BEGI┆
0x9d780…9d7a0             4e 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 34 5d 20 3a 3d 20 27 42 4f 4f 4c 45 41 4e 20 27   ┆N   ';     KEYÆ 4Å := 'BOOLEAN '┆
0x9d7a0…9d7c0             3b 0d 0a 20 20 20 4b 45 59 5b 20 35 5d 20 3a 3d 20 27 43 41 53 45 20 20 20 20 27 3b 0d 0a 20 20   ┆;     KEYÆ 5Å := 'CASE    ';    ┆
0x9d7c0…9d7e0             20 4b 45 59 5b 20 36 5d 20 3a 3d 20 27 43 48 41 52 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b   ┆ KEYÆ 6Å := 'CHAR    ';     KEYÆ┆
0x9d7e0…9d800             20 37 5d 20 3a 3d 20 27 43 4f 4e 53 54 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 38 5d 20 3a   ┆ 7Å := 'CONST   ';     KEYÆ 8Å :┆
0x9d800…9d820 (78, 1, 9)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆                                ┆
         […0x1…]
0x9d840…9d860             20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 54 48 49 53 20 50 52 4f 47 52 41 4d 20 50 52 4f 44 55   ┆   *)  (*     THIS PROGRAM PRODU┆
0x9d860…9d880             43 45 53 20 41 20 43 52 4f 53 53 2d 52 45 46 45 52 45 4e 43 45 20 4c 49 53 54 49 4e 47 20 46 4f   ┆CES A CROSS-REFERENCE LISTING FO┆
0x9d880…9d8a0             52 20 41 4e 59 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 50 41 53 43 41 4c 20 50 52 4f   ┆R ANY        *)  (*   PASCAL PRO┆
0x9d8a0…9d8c0             47 52 41 4d 2e 20 20 4f 43 43 55 52 45 4e 43 45 53 20 4f 4e 4c 59 20 41 52 45 20 4c 49 53 54 45   ┆GRAM.  OCCURENCES ONLY ARE LISTE┆
0x9d8c0…9d8e0             44 2e 20 20 4e 4f 20 44 49 53 54 49 4e 43 54 49 4f 4e 20 49 53 20 20 2a 29 0d 0a 28 2a 20 20 20   ┆D.  NO DISTINCTION IS  *)  (*   ┆
0x9d8e0…9d900             4d 41 44 45 20 42 45 54 57 45 45 4e 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 41 4e 44 20 52 45 46   ┆MADE BETWEEN DEFINITIONS AND REF┆
0x9d900…9d920 (78, 1, 10) 45 52 45 4e 43 45 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ERENCES.                        ┆
0x9d920…9d940             20 2a 29 0d 0a 28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d   ┆ *)  (*=========================┆
0x9d940…9d960             3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d   ┆================================┆
0x9d960…9d980             3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 47 52 41 4d 20 58 52 45   ┆===========*)        PROGRAM XRE┆
0x9d980…9d9a0             46 3b 0d 0a 0d 0a 28 2a 43 52 4f 53 53 20 52 45 46 45 52 45 4e 43 45 20 47 45 4e 45 52 41 54 4f   ┆F;    (*CROSS REFERENCE GENERATO┆
0x9d9a0…9d9c0             52 20 46 4f 52 20 50 41 53 43 41 4c 20 50 52 4f 47 52 41 4d 53 2e 20 20 4e 2e 57 49 52 54 48 2c   ┆R FOR PASCAL PROGRAMS.  N.WIRTH,┆
0x9d9c0…9d9e0             20 37 2e 35 2e 37 34 2a 29 0d 0a 28 2a 27 51 55 41 44 52 41 54 49 43 20 51 55 4f 54 49 45 4e 54   ┆ 7.5.74*)  (*'QUADRATIC QUOTIENT┆
0x9d9e0…9da00             27 20 48 41 53 48 20 4d 45 54 48 4f 44 2a 29 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20   ┆' HASH METHOD*)    CONST        ┆
0x9da00…9da20 (78, 1, 11) 3d 20 27 44 49 56 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 39 5d 20 3a 3d 20 27 44 4f   ┆= 'DIV     ';     KEYÆ 9Å := 'DO┆
0x9da20…9da40             57 4e 54 4f 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 30 5d 20 3a 3d 20 27 44 4f 20 20 20 20 20   ┆WNTO  ';     KEYÆ10Å := 'DO     ┆
0x9da40…9da60             20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 31 5d 20 3a 3d 20 27 45 4c 53 45 20 20 20 20 27 3b 0d 0a   ┆ ';     KEYÆ11Å := 'ELSE    ';  ┆
0x9da60…9da80             20 20 20 4b 45 59 5b 31 32 5d 20 3a 3d 20 27 45 4e 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45   ┆   KEYÆ12Å := 'END     ';     KE┆
0x9da80…9daa0             59 5b 31 33 5d 20 3a 3d 20 27 45 58 49 54 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 34 5d   ┆YÆ13Å := 'EXIT    ';     KEYÆ14Å┆
0x9daa0…9dac0             20 3a 3d 20 27 46 49 4c 45 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 35 5d 20 3a 3d 20 27   ┆ := 'FILE    ';     KEYÆ15Å := '┆
0x9dac0…9dae0             46 4f 52 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 36 5d 20 3a 3d 20 27 46 55 4e 43 54   ┆FOR     ';     KEYÆ16Å := 'FUNCT┆
0x9dae0…9db00             49 4f 4e 27 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 43 4f 4e 44 48   ┆ION';  END;    PROCEDURE SECONDH┆
0x9db00…9db20 (78, 1, 12) 41 4c 46 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4b 45 59 5b 31 37 5d 20 3a 3d 20 27 47 4f 54 4f   ┆ALF;  BEGIN     KEYÆ17Å := 'GOTO┆
0x9db20…9db40             20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 38 5d 20 3a 3d 20 27 49 46 20 20 20 20 20 20 27   ┆    ';     KEYÆ18Å := 'IF      '┆
0x9db40…9db60             3b 0d 0a 20 20 20 4b 45 59 5b 31 39 5d 20 3a 3d 20 27 49 4e 20 20 20 20 20 20 27 3b 0d 0a 20 20   ┆;     KEYÆ19Å := 'IN      ';    ┆
0x9db60…9db80             20 4b 45 59 5b 32 30 5d 20 3a 3d 20 27 49 4e 50 55 54 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b   ┆ KEYÆ20Å := 'INPUT   ';     KEYÆ┆
0x9db80…9dba0             32 31 5d 20 3a 3d 20 27 49 4e 54 45 47 45 52 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 32 5d 20 3a   ┆21Å := 'INTEGER ';     KEYÆ22Å :┆
0x9dba0…9dbc0             3d 20 27 4d 4f 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 33 5d 20 3a 3d 20 27 4e 49   ┆= 'MOD     ';     KEYÆ23Å := 'NI┆
0x9dbc0…9dbe0             4c 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 34 5d 20 3a 3d 20 27 4e 4f 54 20 20 20 20   ┆L     ';     KEYÆ24Å := 'NOT    ┆
0x9dbe0…9dc00             20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 35 5d 20 3a 3d 20 27 4f 46 20 20 20 20 20 20 27 3b 0d 0a   ┆ ';     KEYÆ25Å := 'OF      ';  ┆
0x9dc00…9dc20 (78, 1, 13) 50 20 20 3d 20 37 34 39 3b 20 20 20 20 20 20 20 20 20 20 20 28 2a 53 49 5a 45 20 4f 46 20 48 41   ┆P  = 749;           (*SIZE OF HA┆
0x9dc20…9dc40             53 48 54 41 42 4c 45 2a 29 0d 0a 20 20 20 20 20 20 4e 4b 20 3d 20 20 34 35 3b 20 20 20 20 20 20   ┆SHTABLE*)        NK =  45;      ┆
0x9dc40…9dc60             20 20 20 20 20 20 20 28 2a 4e 4f 2e 20 4f 46 20 4b 45 59 57 4f 52 44 53 2a 29 0d 0a 20 20 20 20   ┆       (*NO. OF KEYWORDS*)      ┆
0x9dc60…9dc80             20 20 41 4c 46 41 4c 45 4e 20 20 3d 20 20 38 3b 0d 0a 20 20 20 20 20 20 52 45 46 53 50 45 52 4c   ┆  ALFALEN  =  8;        REFSPERL┆
0x9dc80…9dca0             49 4e 45 20 3d 20 31 35 3b 0d 0a 20 20 20 20 20 20 52 45 46 53 50 45 52 49 54 45 4d 20 3d 20 20   ┆INE = 15;        REFSPERITEM =  ┆
0x9dca0…9dcc0             35 3b 0d 0a 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 20 20 20 41 4c 46 41 20 3d 20 50 41 43 4b 45 44   ┆5;      TYPE       ALFA = PACKED┆
0x9dcc0…9dce0             20 41 52 52 41 59 5b 31 2e 2e 41 4c 46 41 4c 45 4e 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20   ┆ ARRAYÆ1..ALFALENÅ OF CHAR;     ┆
0x9dce0…9dd00             20 20 49 4e 44 45 58 20 3d 20 30 2e 2e 50 3b 0d 0a 20 20 20 20 20 49 54 45 4d 50 54 52 20 3d 20   ┆  INDEX = 0..P;       ITEMPTR = ┆
0x9dd00…9dd20 (78, 1, 14) 5e 49 54 45 4d 3b 0d 0a 20 20 20 20 20 57 4f 52 44 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20   ┆^ITEM;       WORD = RECORD      ┆
0x9dd20…9dd40             20 20 20 20 20 20 20 20 20 20 20 4b 45 59 3a 20 41 4c 46 41 3b 0d 0a 20 20 20 20 20 20 20 20 20   ┆           KEY: ALFA;           ┆
0x9dd40…9dd60             20 20 20 20 20 20 46 49 52 53 54 2c 20 4c 41 53 54 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20   ┆      FIRST, LAST: ITEMPTR;     ┆
0x9dd60…9dd80             20 20 20 20 20 20 20 20 20 20 20 20 46 4f 4c 3a 20 49 4e 44 45 58 0d 0a 20 20 20 20 20 20 20 20   ┆            FOL: INDEX          ┆
0x9dd80…9dda0             20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 4e 55 4d 52 45 46 53 20 3d 20 31 2e 2e 52 45 46   ┆    END ;       NUMREFS = 1..REF┆
0x9dda0…9ddc0             53 50 45 52 49 54 45 4d 3b 0d 0a 20 20 20 20 20 52 45 46 54 59 50 45 20 3d 20 28 43 4f 55 4e 54   ┆SPERITEM;       REFTYPE = (COUNT┆
0x9ddc0…9dde0             2c 20 50 54 52 29 3b 0d 0a 20 20 20 20 20 49 54 45 4d 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20   ┆, PTR);       ITEM = RECORD     ┆
0x9dde0…9de00             20 20 20 20 20 20 20 20 20 20 20 20 52 45 46 20 20 20 3a 20 41 52 52 41 59 5b 4e 55 4d 52 45 46   ┆            REF   : ARRAYÆNUMREF┆
0x9de00…9de20 (78, 1, 15) 20 20 20 4b 45 59 5b 32 36 5d 20 3a 3d 20 27 4f 52 20 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45   ┆   KEYÆ26Å := 'OR      ';     KE┆
0x9de20…9de40             59 5b 32 37 5d 20 3a 3d 20 27 4f 55 54 50 55 54 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 38 5d   ┆YÆ27Å := 'OUTPUT  ';     KEYÆ28Å┆
0x9de40…9de60             20 3a 3d 20 27 50 41 43 4b 45 44 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 39 5d 20 3a 3d 20 27   ┆ := 'PACKED  ';     KEYÆ29Å := '┆
0x9de60…9de80             50 52 4f 43 45 44 55 52 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 30 5d 20 3a 3d 20 27 50 52 4f 47 52   ┆PROCEDUR';     KEYÆ30Å := 'PROGR┆
0x9de80…9dea0             41 4d 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 31 5d 20 3a 3d 20 27 52 45 41 4c 20 20 20 20 27 3b   ┆AM ';     KEYÆ31Å := 'REAL    ';┆
0x9dea0…9dec0             0d 0a 20 20 20 4b 45 59 5b 33 32 5d 20 3a 3d 20 27 52 45 43 4f 52 44 20 20 27 3b 0d 0a 20 20 20   ┆     KEYÆ32Å := 'RECORD  ';     ┆
0x9dec0…9dee0             4b 45 59 5b 33 33 5d 20 3a 3d 20 27 52 45 50 45 41 54 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33   ┆KEYÆ33Å := 'REPEAT  ';     KEYÆ3┆
0x9dee0…9df00             34 5d 20 3a 3d 20 27 53 45 54 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 35 5d 20 3a 3d   ┆4Å := 'SET     ';     KEYÆ35Å :=┆
0x9df00…9df20 (78, 1, 16) 20 27 53 54 52 49 4e 47 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 36 5d 20 3a 3d 20 27 54 45 58   ┆ 'STRING  ';     KEYÆ36Å := 'TEX┆
0x9df20…9df40             54 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 37 5d 20 3a 3d 20 27 54 48 45 4e 20 20 20 20   ┆T    ';     KEYÆ37Å := 'THEN    ┆
0x9df40…9df60             27 3b 0d 0a 20 20 20 4b 45 59 5b 33 38 5d 20 3a 3d 20 27 54 4f 20 20 20 20 20 20 27 3b 0d 0a 20   ┆';     KEYÆ38Å := 'TO      ';   ┆
0x9df60…9df80             20 20 4b 45 59 5b 33 39 5d 20 3a 3d 20 27 54 59 50 45 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59   ┆  KEYÆ39Å := 'TYPE    ';     KEY┆
0x9df80…9dfa0             5b 34 30 5d 20 3a 3d 20 27 55 4e 54 49 4c 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 31 5d 20   ┆Æ40Å := 'UNTIL   ';     KEYÆ41Å ┆
0x9dfa0…9dfc0             3a 3d 20 27 56 41 52 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 32 5d 20 3a 3d 20 27 57   ┆:= 'VAR     ';     KEYÆ42Å := 'W┆
0x9dfc0…9dfe0             48 49 4c 45 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 33 5d 20 3a 3d 20 27 57 49 54 48 20 20   ┆HILE   ';     KEYÆ43Å := 'WITH  ┆
0x9dfe0…9e000             20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 34 5d 20 3a 3d 20 27 57 52 49 54 45 20 20 20 27 3b 0d   ┆  ';     KEYÆ44Å := 'WRITE   '; ┆
0x9e000…9e020 (79, 0, 1)  0a 20 20 20 4b 45 59 5b 34 35 5d 20 3a 3d 20 27 57 52 49 54 45 4c 4e 20 27 3b 0d 0a 45 4e 44 3b   ┆    KEYÆ45Å := 'WRITELN ';  END;┆
0x9e020…9e040             0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 49 4e 49 54 49 41 4c 49 5a 45 20 2a 29 0d 0a 20 20 20 57   ┆    BEGIN (* INITIALIZE *)     W┆
0x9e040…9e060             52 49 54 45 4c 4e 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e 28 27 50 61 73 63 61 6c 2f 4d 54 2b 20   ┆RITELN;     WRITELN('Pascal/MT+ ┆
0x9e060…9e080             50 72 6f 67 72 61 6d 20 58 72 65 66 20 55 74 69 6c 69 74 79 20 2d 2d 20 52 65 6c 65 61 73 65 20   ┆Program Xref Utility -- Release ┆
0x9e080…9e0a0             35 2e 32 27 29 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e 28 27 54 68 69 73 20 70 72 6f 67 72 61 6d   ┆5.2');     WRITELN('This program┆
0x9e0a0…9e0c0             20 69 73 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 27 29 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e   ┆ is public domain');     WRITELN┆
0x9e0c0…9e0e0             3b 0d 0a 20 20 20 46 46 3a 3d 43 48 52 28 31 32 29 3b 0d 0a 20 20 20 4e 45 57 28 42 55 46 31 29   ┆;     FF:=CHR(12);     NEW(BUF1)┆
0x9e0e0…9e100             3b 0d 0a 20 20 20 4e 45 57 28 42 55 46 32 29 3b 0d 0a 20 20 20 42 55 46 3a 3d 42 55 46 31 3b 0d   ┆;     NEW(BUF2);     BUF:=BUF1; ┆
0x9e100…9e120 (79, 0, 2)  0a 20 20 20 45 52 52 4f 52 20 20 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 46 4f 52 20 49 20   ┆    ERROR   := FALSE;     FOR I ┆
0x9e120…9e140             3a 3d 20 30 20 54 4f 20 50 20 44 4f 0d 0a 20 20 20 20 20 20 54 5b 49 5d 2e 4b 45 59 20 3a 3d 20   ┆:= 0 TO P DO        TÆIÅ.KEY := ┆
0x9e140…9e160             27 20 20 20 20 20 20 20 20 27 3b 0d 0a 20 20 20 46 49 52 53 54 48 41 4c 46 3b 0d 0a 20 20 20 53   ┆'        ';     FIRSTHALF;     S┆
0x9e160…9e180             45 43 4f 4e 44 48 41 4c 46 3b 0d 0a 20 20 20 4c 49 4e 45 43 4f 55 4e 54 3a 3d 20 30 3b 0d 0a 20   ┆ECONDHALF;     LINECOUNT:= 0;   ┆
0x9e180…9e1a0             20 20 42 55 46 43 55 52 53 4f 52 3a 3d 20 30 3b 0d 0a 20 20 20 54 4f 50 20 3a 3d 20 50 3b 0d 0a   ┆  BUFCURSOR:= 0;     TOP := P;  ┆
0x9e1a0…9e1c0             20 20 20 43 48 20 20 3a 3d 20 27 20 27 0d 0a 45 4e 44 3b 20 28 2a 20 49 4e 49 54 49 41 4c 49 5a   ┆   CH  := ' '  END; (* INITIALIZ┆
0x9e1c0…9e1e0             45 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4f 50 45 4e 46 49 4c 45 53 3b   ┆E *)        PROCEDURE OPENFILES;┆
0x9e1e0…9e200             0d 0a 56 41 52 0d 0a 20 20 20 20 4e 55 4d 42 4c 4f 43 4b 53 3a 20 49 4e 54 45 47 45 52 3b 0d 0a   ┆  VAR      NUMBLOCKS: INTEGER;  ┆
0x9e200…9e220 (79, 0, 3)  48 3a 3d 27 20 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 5a 41 50 3a 3d 46 41 4c   ┆H:=' '             ELSE ZAP:=FAL┆
0x9e220…9e240             53 45 3b 0d 0a 20 20 20 20 20 20 41 5b 49 5d 3a 3d 43 48 3b 0d 0a 20 20 20 20 20 20 4e 55 4d 3a   ┆SE;        AÆIÅ:=CH;        NUM:┆
0x9e240…9e260             3d 4e 55 4d 20 4d 4f 44 20 49 50 4f 54 3b 0d 0a 20 20 20 20 20 20 49 50 4f 54 3a 3d 49 50 4f 54   ┆=NUM MOD IPOT;        IPOT:=IPOT┆
0x9e260…9e280             20 44 49 56 20 31 30 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 41 5b 37 5d 3a 3d 27 20 27 3b   ┆ DIV 10;      END;    AÆ7Å:=' ';┆
0x9e280…9e2a0             0d 0a 20 20 4d 4f 56 45 4c 45 46 54 28 41 2c 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 2c 37   ┆    MOVELEFT(A,BUF^ÆBUFCURSORÅ,7┆
0x9e2a0…9e2c0             29 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 37 3b 0d 0a 45   ┆);    BUFCURSOR:=BUFCURSOR+7;  E┆
0x9e2c0…9e2e0             4e 44 3b 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d   ┆ND;      PROCEDURE GETNEXTCHAR; ┆
0x9e2e0…9e300             0a 56 41 52 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 0d 0a 20 20 20 20   ┆ VAR I : INTEGER;  BEGIN        ┆
0x9e300…9e320 (79, 0, 4)  49 46 20 4c 45 4e 47 54 48 28 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 30 20 54 48 45 4e 0d 0a   ┆IF LENGTH(INPUT_LINE) = 0 THEN  ┆
0x9e320…9e340             20 20 20 20 20 20 52 45 41 44 4c 4e 28 49 4e 46 49 4c 45 2c 49 4e 50 55 54 5f 4c 49 4e 45 29 3b   ┆      READLN(INFILE,INPUT_LINE);┆
0x9e340…9e360             0d 0a 0d 0a 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20   ┆        IF LENGTH(INPUT_LINE) = ┆
0x9e360…9e380             30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 43 48 20 3a 3d 20 27 20 27 0d 0a 20 20 20 20 45 4c 53   ┆0 THEN        CH := ' '      ELS┆
0x9e380…9e3a0             45 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 43 48 3a 3d 49 4e 50 55 54 5f 4c 49 4e 45 5b   ┆E        BEGIN   CH:=INPUT_LINEÆ┆
0x9e3a0…9e3c0             31 5d 3b 0d 0a 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 49 4e 50 55 54 5f 4c 49 4e 45 2c 31   ┆1Å;          DELETE(INPUT_LINE,1┆
0x9e3c0…9e3e0             2c 31 29 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 49 46 20 45 4f 46 28 49 4e   ┆,1)        END;        IF EOF(IN┆
0x9e3e0…9e400             46 49 4c 45 29 20 54 48 45 4e 20 45 52 52 4f 52 3a 3d 54 52 55 45 0d 0a 20 20 20 20 45 4c 53 45   ┆FILE) THEN ERROR:=TRUE      ELSE┆
0x9e400…9e420 (79, 0, 5)  20 20 20 20 4f 50 45 4e 4f 4b 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 4f 50 45 4e 45 52   ┆    OPENOK: BOOLEAN;      OPENER┆
0x9e420…9e440             52 4e 55 4d 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 4c 49 53 54 4f 50 54 49 4f 4e 3a   ┆RNUM : INTEGER;      LISTOPTION:┆
0x9e440…9e460             20 43 48 41 52 3b 0d 0a 20 20 20 20 46 49 4c 45 4e 41 4d 45 3a 20 53 54 52 49 4e 47 3b 0d 0a 0d   ┆ CHAR;      FILENAME: STRING;   ┆
0x9e460…9e480             0a 42 45 47 49 4e 20 28 2a 20 4f 50 45 4e 20 2a 29 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20   ┆ BEGIN (* OPEN *)     REPEAT    ┆
0x9e480…9e4a0             20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 20 27 49 6e 70 75   ┆    WRITELN;        WRITE( 'Inpu┆
0x9e4a0…9e4c0             74 20 66 69 6c 65 20 3f 20 27 20 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 20 46 49 4c   ┆t file ? ' );        READLN( FIL┆
0x9e4c0…9e4e0             45 4e 41 4d 45 20 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 46 49 4c 45 4e 41   ┆ENAME );        IF LENGTH(FILENA┆
0x9e4e0…9e500             4d 45 29 20 3e 30 20 54 48 45 4e 0d 0a 09 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 41   ┆ME) >0 THEN   BEGIN            A┆
0x9e500…9e520 (79, 0, 6)  53 53 49 47 4e 28 49 4e 46 49 4c 45 2c 20 46 49 4c 45 4e 41 4d 45 20 29 3b 0d 0a 09 20 20 52 45   ┆SSIGN(INFILE, FILENAME );     RE┆
0x9e520…9e540             53 45 54 28 49 4e 46 49 4c 45 29 0d 0a 09 45 4e 44 3b 0d 0a 20 20 20 20 20 20 4f 50 45 4e 45 52   ┆SET(INFILE)   END;        OPENER┆
0x9e540…9e560             52 4e 55 4d 20 3a 3d 20 49 4f 52 45 53 55 4c 54 3b 0d 0a 20 20 20 20 20 20 4f 50 45 4e 4f 4b 20   ┆RNUM := IORESULT;        OPENOK ┆
0x9e560…9e580             20 20 20 20 3a 3d 20 28 20 4f 50 45 4e 45 52 52 4e 55 4d 20 3c 3e 20 32 35 35 20 29 3b 0d 0a 20   ┆    := ( OPENERRNUM <> 255 );   ┆
0x9e580…9e5a0             20 20 20 20 20 49 46 20 4e 4f 54 20 4f 50 45 4e 4f 4b 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20   ┆     IF NOT OPENOK THEN         ┆
0x9e5a0…9e5c0             20 57 52 49 54 45 4c 4e 28 20 27 2a 2a 2a 20 49 4e 50 55 54 20 4f 50 45 4e 20 45 52 52 4f 52 20   ┆ WRITELN( '*** INPUT OPEN ERROR ┆
0x9e5c0…9e5e0             23 27 2c 20 4f 50 45 4e 45 52 52 4e 55 4d 20 29 3b 0d 0a 20 20 20 55 4e 54 49 4c 20 4f 50 45 4e   ┆#', OPENERRNUM );     UNTIL OPEN┆
0x9e5e0…9e600             4f 4b 3b 0d 0a 0d 0a 20 20 20 57 52 49 54 45 28 27 4f 75 74 70 75 74 20 66 69 6c 65 20 6e 61 6d   ┆OK;       WRITE('Output file nam┆
0x9e600…9e620 (79, 0, 7)  0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 42 55 46 5e 5b 42 55 46 43   ┆        BEGIN          BUF^ÆBUFC┆
0x9e620…9e640             55 52 53 4f 52 5d 3a 3d 43 48 3b 0d 0a 20 20 20 20 20 20 20 20 42 55 46 43 55 52 53 4f 52 3a 3d   ┆URSORÅ:=CH;          BUFCURSOR:=┆
0x9e640…9e660             42 55 46 43 55 52 53 4f 52 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28   ┆BUFCURSOR+1;          IF LENGTH(┆
0x9e660…9e680             49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆INPUT_LINE) = 0 THEN            ┆
0x9e680…9e6a0             42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 5e 5b 42 55 46 43 55 52 53 4f   ┆BEGIN              BUF^ÆBUFCURSO┆
0x9e6a0…9e6c0             52 5d 3a 3d 43 48 52 28 31 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 43 55 52   ┆RÅ:=CHR(13);              BUFCUR┆
0x9e6c0…9e6e0             53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4c   ┆SOR:=BUFCURSOR+1;              L┆
0x9e6e0…9e700             49 4e 45 43 4f 55 4e 54 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 20 2b 31 3b 0d 0a 20 20 20 20 20 20   ┆INECOUNT:= LINECOUNT +1;        ┆
0x9e700…9e720 (79, 0, 8)  20 20 20 20 20 20 49 46 20 4c 49 53 54 49 4e 47 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20   ┆      IF LISTING THEN           ┆
0x9e720…9e740             20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 4c 53 54 46 49 4c 45 4e 41 4d 45 20 3c 3e 20   ┆     BEGIN    IF LSTFILENAME <> ┆
0x9e740…9e760             27 43 4f 4e 3a 27 20 54 48 45 4e 0d 0a 09 09 20 20 57 52 49 54 45 28 27 2e 27 29 3b 0d 0a 09 09   ┆'CON:' THEN      WRITE('.');    ┆
0x9e760…9e780             46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 42 55 46 43 55 52 53 4f 52 2d 31 20 44 4f 0d 0a 20 20   ┆FOR I := 0 TO BUFCURSOR-1 DO    ┆
0x9e780…9e7a0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c 42 55 46 5e 5b 49   ┆                WRITE(LST,BUF^ÆI┆
0x9e7a0…9e7c0             5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 46 20 3d 20 42 55   ┆Å);                  IF BUF = BU┆
0x9e7c0…9e7e0             46 32 20 54 48 45 4e 20 42 55 46 3a 3d 42 55 46 31 20 45 4c 53 45 20 42 55 46 3a 3d 42 55 46 32   ┆F2 THEN BUF:=BUF1 ELSE BUF:=BUF2┆
0x9e7e0…9e800             3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 30 3b   ┆;                  BUFCURSOR:=0;┆
0x9e800…9e820 (79, 0, 9)  65 3f 20 27 29 3b 0d 0a 20 20 20 52 45 41 44 4c 4e 28 4c 53 54 46 49 4c 45 4e 41 4d 45 29 3b 0d   ┆e? ');     READLN(LSTFILENAME); ┆
0x9e820…9e840             0a 20 20 20 41 53 53 49 47 4e 28 4c 53 54 2c 4c 53 54 46 49 4c 45 4e 41 4d 45 29 3b 0d 0a 20 20   ┆    ASSIGN(LST,LSTFILENAME);    ┆
0x9e840…9e860             20 52 45 57 52 49 54 45 28 4c 53 54 29 3b 0d 0a 0d 0a 20 20 20 57 52 49 54 45 28 20 27 44 6f 20   ┆ REWRITE(LST);       WRITE( 'Do ┆
0x9e860…9e880             79 6f 75 20 77 61 6e 74 20 61 20 6c 69 73 74 69 6e 67 20 3f 20 27 20 29 3b 0d 0a 20 20 20 52 45   ┆you want a listing ? ' );     RE┆
0x9e880…9e8a0             41 44 28 20 4c 49 53 54 4f 50 54 49 4f 4e 20 29 3b 0d 0a 20 20 20 4c 49 53 54 49 4e 47 20 3a 3d   ┆AD( LISTOPTION );     LISTING :=┆
0x9e8a0…9e8c0             20 4e 4f 54 28 4c 49 53 54 4f 50 54 49 4f 4e 20 3d 20 27 4e 27 29 3b 0d 0a 20 20 20 49 46 20 4c   ┆ NOT(LISTOPTION = 'N');     IF L┆
0x9e8c0…9e8e0             49 53 54 49 4e 47 20 54 48 45 4e 20 50 55 54 4e 55 4d 42 45 52 28 30 29 3b 0d 0a 20 20 20 52 45   ┆ISTING THEN PUTNUMBER(0);     RE┆
0x9e8e0…9e900             41 44 4c 4e 28 49 4e 46 49 4c 45 2c 49 4e 50 55 54 5f 4c 49 4e 45 29 3b 0d 0a 20 20 20 57 52 49   ┆ADLN(INFILE,INPUT_LINE);     WRI┆
0x9e900…9e920 (79, 0, 10) 54 45 4c 4e 3b 0d 0a 45 4e 44 3b 20 28 2a 20 4f 50 45 4e 20 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43   ┆TELN;  END; (* OPEN *)      PROC┆
0x9e920…9e940             45 44 55 52 45 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54   ┆EDURE LPWRITELN;  VAR    I : INT┆
0x9e940…9e960             45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 3a   ┆EGER;  BEGIN    BUF^ÆBUFCURSORÅ:┆
0x9e960…9e980             3d 43 48 52 28 31 33 29 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f   ┆=CHR(13);    BUFCURSOR:=BUFCURSO┆
0x9e980…9e9a0             52 2b 31 3b 0d 0a 20 20 46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 42 55 46 43 55 52 53 4f 52 2d   ┆R+1;    FOR I := 0 TO BUFCURSOR-┆
0x9e9a0…9e9c0             31 20 44 4f 0d 0a 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c 42 55 46 5e 5b 49 5d 29 3b 0d 0a 20   ┆1 DO      WRITE(LST,BUF^ÆIÅ);   ┆
0x9e9c0…9e9e0             20 49 46 20 42 55 46 20 3d 20 42 55 46 31 20 54 48 45 4e 20 42 55 46 3a 3d 42 55 46 32 20 45 4c   ┆ IF BUF = BUF1 THEN BUF:=BUF2 EL┆
0x9e9e0…9ea00             53 45 20 42 55 46 3a 3d 42 55 46 31 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 30 3b 0d 0a   ┆SE BUF:=BUF1;    BUFCURSOR:=0;  ┆
0x9ea00…9ea20 (79, 0, 11) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 4e 55 4d 42 45 52 28 4c 49 4e 45   ┆                  PUTNUMBER(LINE┆
0x9ea20…9ea40             43 4f 55 4e 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20   ┆COUNT);                END      ┆
0x9ea40…9ea60             20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 09 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 42 55   ┆        ELSE         BEGIN    BU┆
0x9ea60…9ea80             46 43 55 52 53 4f 52 3a 3d 30 3b 0d 0a 09 09 57 52 49 54 45 28 27 2e 27 29 0d 0a 09 20 20 20 20   ┆FCURSOR:=0;    WRITE('.')       ┆
0x9ea80…9eaa0             20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 4c 49 4e 45 43 4f   ┆  END;                IF (LINECO┆
0x9eaa0…9eac0             55 4e 54 20 4d 4f 44 20 36 30 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆UNT MOD 60) = 0 THEN            ┆
0x9eac0…9eae0             20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4c 49   ┆    BEGIN                  IF LI┆
0x9eae0…9eb00             53 54 49 4e 47 20 54 48 45 4e 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20   ┆STING THEN PAGE(LST);           ┆
0x9eb00…9eb20 (79, 0, 12) 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4f 55 54 50 55 54 2c 27 3c 20 27 2c 4c 49 4e 45 43   ┆       WRITELN(OUTPUT,'< ',LINEC┆
0x9eb20…9eb40             4f 55 4e 54 3a 34 2c 27 2c 27 2c 4d 45 4d 41 56 41 49 4c 3a 35 2c 27 20 3e 27 29 3b 0d 0a 20 20   ┆OUNT:4,',',MEMAVAIL:5,' >');    ┆
0x9eb40…9eb60             20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44   ┆            END;             END┆
0x9eb60…9eb80             3b 0d 0a 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 45 4e 44 3b 20 28 2a 20 47 45 54 4e 45 58 54   ┆;         END;   END; (* GETNEXT┆
0x9eb80…9eba0             43 48 41 52 20 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 41 52 43 48 28 20 49   ┆CHAR *)      PROCEDURE SEARCH( I┆
0x9eba0…9ebc0             44 3a 20 41 4c 46 41 20 29 3b 20 20 20 20 20 20 20 20 20 20 28 2a 4d 4f 44 55 4c 4f 20 50 20 48   ┆D: ALFA );          (*MODULO P H┆
0x9ebc0…9ebe0             41 53 48 20 53 45 41 52 43 48 2a 29 0d 0a 28 2a 47 4c 4f 42 41 4c 3a 20 54 2c 20 54 4f 50 2a 29   ┆ASH SEARCH*)  (*GLOBAL: T, TOP*)┆
0x9ebe0…9ec00             0d 0a 56 41 52 0d 0a 20 20 20 20 49 2c 4a 2c 48 2c 44 20 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a   ┆  VAR      I,J,H,D  : INTEGER;  ┆
0x9ec00…9ec20 (79, 0, 13) 20 20 4c 49 4e 45 43 4f 55 4e 54 3a 3d 4c 49 4e 45 43 4f 55 4e 54 2b 31 3b 0d 0a 20 20 49 46 20   ┆  LINECOUNT:=LINECOUNT+1;    IF ┆
0x9ec20…9ec40             28 4c 49 4e 45 43 4f 55 4e 54 20 4d 4f 44 20 36 30 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20   ┆(LINECOUNT MOD 60) = 0 THEN     ┆
0x9ec40…9ec60             20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50   ┆ PAGE(LST);  END;    PROCEDURE P┆
0x9ec60…9ec80             55 54 41 4c 46 41 28 53 3a 41 4c 46 41 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 4d 4f 56 45 4c 45   ┆UTALFA(S:ALFA);  BEGIN    MOVELE┆
0x9ec80…9eca0             46 54 28 53 5b 31 5d 2c 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 2c 38 29 3b 0d 0a 20 20 42   ┆FT(SÆ1Å,BUF^ÆBUFCURSORÅ,8);    B┆
0x9eca0…9ecc0             55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 38 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a   ┆UFCURSOR:=BUFCURSOR+8;  END;    ┆
0x9ecc0…9ece0             50 52 4f 43 45 44 55 52 45 20 50 55 54 4e 55 4d 42 45 52 28 4e 55 4d 3a 20 49 4e 54 45 47 45 52   ┆PROCEDURE PUTNUMBER(NUM: INTEGER┆
0x9ece0…9ed00             29 3b 0d 0a 56 41 52 20 49 2c 49 50 4f 54 3a 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 41 3a 20   ┆);  VAR I,IPOT:INTEGER;      A: ┆
0x9ed00…9ed20 (79, 0, 14) 41 4c 46 41 3b 0d 0a 20 20 20 20 43 48 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 5a 41 50 3a 42 4f   ┆ALFA;      CH: CHAR;      ZAP:BO┆
0x9ed20…9ed40             4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 0d 0a 42 45 47 49 4e 0d 0a 20 20 5a 41 50 3a 3d 54 52 55 45   ┆OLEAN;        BEGIN    ZAP:=TRUE┆
0x9ed40…9ed60             3b 0d 0a 20 20 49 50 4f 54 3a 3d 31 30 30 30 30 3b 0d 0a 20 20 41 5b 31 5d 3a 3d 27 20 27 3b 0d   ┆;    IPOT:=10000;    AÆ1Å:=' '; ┆
0x9ed60…9ed80             0a 20 20 46 4f 52 20 49 3a 3d 20 32 20 54 4f 20 36 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d   ┆   FOR I:= 2 TO 6 DO      BEGIN ┆
0x9ed80…9eda0             0a 20 20 20 20 20 20 43 48 3a 3d 43 48 52 28 4e 55 4d 20 44 49 56 20 49 50 4f 54 20 2b 20 4f 52   ┆       CH:=CHR(NUM DIV IPOT + OR┆
0x9eda0…9edc0             44 28 27 30 27 29 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 49 20 3c 3e 20 36 20 54 48 45 4e 0d 0a   ┆D('0'));        IF I <> 6 THEN  ┆
0x9edc0…9ede0             20 20 20 20 20 20 20 20 49 46 20 5a 41 50 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20   ┆        IF ZAP THEN             ┆
0x9ede0…9ee00             49 46 20 43 48 20 3d 20 27 30 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 43   ┆IF CH = '0' THEN               C┆
0x9ee00…9ee20 (79, 0, 15) 20 20 20 20 58 20 20 20 20 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 20 46 20 20 20 20 3a 20   ┆    X    : ITEMPTR;      F    : ┆
0x9ee20…9ee40             42 4f 4f 4c 45 41 4e 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4a 3a 3d 30 3b 0d 0a 20 20 20   ┆BOOLEAN;    BEGIN     J:=0;     ┆
0x9ee40…9ee60             46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 41 4c 46 41 4c 45 4e 20 44 4f 0d 0a 20 20 20 20 20 4a 3a   ┆FOR I:= 1 TO ALFALEN DO       J:┆
0x9ee60…9ee80             3d 20 4a 2a 31 30 2b 4f 52 44 28 49 44 5b 49 5d 29 3b 0d 0a 20 20 20 48 20 20 3a 3d 20 41 42 53   ┆= J*10+ORD(IDÆIÅ);     H  := ABS┆
0x9ee80…9eea0             28 4a 29 20 4d 4f 44 20 50 3b 0d 0a 20 20 20 46 20 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20   ┆(J) MOD P;     F  := FALSE;     ┆
0x9eea0…9eec0             44 20 20 3a 3d 20 31 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 54 5b   ┆D  := 1;     REPEAT        IF TÆ┆
0x9eec0…9eee0             48 5d 2e 4b 45 59 20 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20   ┆HÅ.KEY = ID           THEN      ┆
0x9eee0…9ef00             20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 46 4f 55 4e 44 2a 29 0d 0a 20 20 20 20 20 20 20   ┆        BEGIN (*FOUND*)         ┆
0x9ef00…9ef20 (79, 0, 16) 20 20 20 20 20 20 20 20 46 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   ┆        F := TRUE;              ┆
0x9ef20…9ef40             20 20 20 49 46 20 54 5b 48 5d 2e 4c 41 53 54 5e 2e 52 45 46 4e 55 4d 20 3d 20 52 45 46 53 50 45   ┆   IF TÆHÅ.LAST^.REFNUM = REFSPE┆
0x9ef40…9ef60             52 49 54 45 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20   ┆RITEM                    THEN   ┆
0x9ef60…9ef80             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20   ┆                    BEGIN       ┆
0x9ef80…9efa0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 58 29 3b 0d 0a 20 20 20   ┆                    NEW(X);     ┆
0x9efa0…9efc0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 4e 55 4d 20   ┆                      X^.REFNUM ┆
0x9efc0…9efe0             3a 3d 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆:= 1;                           ┆
0x9efe0…9f000             58 5e 2e 52 45 46 5b 31 5d 20 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 3b 0d 0a 20 20 20 20 20 20 20   ┆X^.REFÆ1Å := LINECOUNT;         ┆
0x9f000…9f020 (79, 1, 1)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 4c 41 53 54 5e 2e 4e 45 58   ┆                  TÆHÅ.LAST^.NEX┆
0x9f020…9f040             54 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆T:= X;                          ┆
0x9f040…9f060             20 54 5b 48 5d 2e 4c 41 53 54 20 20 20 20 20 20 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 20 20   ┆ TÆHÅ.LAST      := X;           ┆
0x9f060…9f080             20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆            END                 ┆
0x9f080…9f0a0             20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48   ┆  ELSE                      WITH┆
0x9f0a0…9f0c0             20 54 5b 48 5d 2e 4c 41 53 54 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ TÆHÅ.LAST^ DO                  ┆
0x9f0c0…9f0e0             20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆       BEGIN                    ┆
0x9f0e0…9f100             20 20 20 20 20 20 20 20 52 45 46 4e 55 4d 20 20 20 20 20 20 3a 3d 20 52 45 46 4e 55 4d 20 2b 20   ┆        REFNUM      := REFNUM + ┆
0x9f100…9f120 (79, 1, 2)  31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45   ┆1;                            RE┆
0x9f120…9f140             46 5b 52 45 46 4e 55 4d 5d 20 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 0d 0a 20 20 20 20 20 20 20 20   ┆FÆREFNUMÅ := LINECOUNT          ┆
0x9f140…9f160             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   ┆               END              ┆
0x9f160…9f180             45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   ┆END           ELSE              ┆
0x9f180…9f1a0             49 46 20 54 5b 48 5d 2e 4b 45 59 20 3d 20 27 20 20 20 20 20 20 20 20 27 0d 0a 20 20 20 20 20 20   ┆IF TÆHÅ.KEY = '        '        ┆
0x9f1a0…9f1c0             20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆         THEN                   ┆
0x9f1c0…9f1e0             20 42 45 47 49 4e 20 28 2a 4e 45 57 20 45 4e 54 52 59 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆ BEGIN (*NEW ENTRY*)            ┆
0x9f1e0…9f200             20 20 20 20 20 20 20 20 20 20 20 46 20 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20   ┆           F  := TRUE;          ┆
0x9f200…9f220 (79, 1, 3)  20 28 2a 50 52 49 4e 54 57 4f 52 44 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52   ┆ (*PRINTWORD*) ;        PROCEDUR┆
0x9f220…9f240             45 20 50 52 49 4e 54 54 41 42 4c 45 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 49 2c 4a 2c 4d 3a   ┆E PRINTTABLE;    VAR      I,J,M:┆
0x9f240…9f260             20 49 4e 44 45 58 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 49 20 3a 3d 20 54 4f 50 3b 0d 0a   ┆ INDEX;    BEGIN     I := TOP;  ┆
0x9f260…9f280             20 20 20 57 48 49 4c 45 20 49 20 3c 3e 20 50 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 20   ┆   WHILE I <> P DO        BEGIN ┆
0x9f280…9f2a0             28 2a 46 49 4e 44 20 4d 49 4e 49 4d 41 4c 20 57 4f 52 44 2a 29 0d 0a 20 20 20 20 20 20 20 20 20   ┆(*FIND MINIMAL WORD*)           ┆
0x9f2a0…9f2c0             4d 20 3a 3d 20 49 3b 0d 0a 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 54 5b 49 5d 2e 46 4f 4c 3b   ┆M := I;           J := TÆIÅ.FOL;┆
0x9f2c0…9f2e0             0d 0a 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 4a 20 3c 3e 20 50 20 44 4f 0d 0a 20 20 20 20   ┆           WHILE J <> P DO      ┆
0x9f2e0…9f300             20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46   ┆        BEGIN                 IF┆
0x9f300…9f320 (79, 1, 4)  20 54 5b 4a 5d 2e 4b 45 59 20 3c 20 54 5b 4d 5d 2e 4b 45 59 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆ TÆJÅ.KEY < TÆMÅ.KEY            ┆
0x9f320…9f340             20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆        THEN                    ┆
0x9f340…9f360             20 20 20 4d 20 3a 3d 20 4a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20   ┆   M := J;                 J := ┆
0x9f360…9f380             54 5b 4a 5d 2e 46 4f 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20   ┆TÆJÅ.FOL              END ;     ┆
0x9f380…9f3a0             20 20 20 20 20 20 50 52 49 4e 54 57 4f 52 44 28 54 5b 4d 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20   ┆      PRINTWORD(TÆMÅ);          ┆
0x9f3a0…9f3c0             20 49 46 20 4d 20 3c 3e 20 49 20 54 48 45 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 42 45 47   ┆ IF M <> I THEN              BEG┆
0x9f3c0…9f3e0             49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 4b 45 59 3a 3d 54 5b 49 5d 2e   ┆IN               TÆMÅ.KEY:=TÆIÅ.┆
0x9f3e0…9f400             4b 45 59 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 46 49 52 53 54 3a 3d 54   ┆KEY;               TÆMÅ.FIRST:=T┆
0x9f400…9f420 (79, 1, 5)  20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 58 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆             NEW(X);            ┆
0x9f420…9f440             20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 4e 55 4d 20 3a 3d 20 31 3b 0d 0a 20 20 20 20   ┆           X^.REFNUM := 1;      ┆
0x9f440…9f460             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 5b 31 5d 20 3a 3d 20 4c 49   ┆                 X^.REFÆ1Å := LI┆
0x9f460…9f480             4e 45 43 4f 55 4e 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54   ┆NECOUNT;                       T┆
0x9f480…9f4a0             5b 48 5d 2e 4b 45 59 20 20 20 3a 3d 20 49 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ÆHÅ.KEY   := ID;                ┆
0x9f4a0…9f4c0             20 20 20 20 20 20 20 54 5b 48 5d 2e 46 49 52 53 54 20 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20   ┆       TÆHÅ.FIRST := X;         ┆
0x9f4c0…9f4e0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 4c 41 53 54 20 20 3a 3d 20 58 3b 0d 0a   ┆              TÆHÅ.LAST  := X;  ┆
0x9f4e0…9f500             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 46 4f 4c 20 20 20   ┆                     TÆHÅ.FOL   ┆
0x9f500…9f520 (79, 1, 6)  3a 3d 20 54 4f 50 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f   ┆:= TOP;                       TO┆
0x9f520…9f540             50 20 3a 3d 20 48 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20   ┆P := H                    END   ┆
0x9f540…9f560             20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   ┆              ELSE              ┆
0x9f560…9f580             20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 43 4f 4c 4c 49 53 49 4f 4e 2a 29 0d 0a 20 20 20 20 20   ┆      BEGIN (*COLLISION*)       ┆
0x9f580…9f5a0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 20 3a 3d 20 48 2b 44 3b 0d 0a 20 20 20 20 20   ┆                H := H+D;       ┆
0x9f5a0…9f5c0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 20 3a 3d 20 44 2b 32 3b 0d 0a 20 20 20 20 20   ┆                D := D+2;       ┆
0x9f5c0…9f5e0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 48 20 3e 3d 20 50 0d 0a 20 20 20 20 20   ┆                IF H >= P       ┆
0x9f5e0…9f600             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20   ┆                   THEN         ┆
0x9f600…9f620 (79, 1, 7)  5b 49 5d 2e 46 49 52 53 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 4c 41   ┆ÆIÅ.FIRST;               TÆMÅ.LA┆
0x9f620…9f640             53 54 3a 3d 54 5b 49 5d 2e 4c 41 53 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d   ┆ST:=TÆIÅ.LAST;             END; ┆
0x9f640…9f660             0a 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 54 5b 49 5d 2e 46 4f 4c 0d 0a 20 20 20 20 20 20 45   ┆          I := TÆIÅ.FOL        E┆
0x9f660…9f680             4e 44 0d 0a 45 4e 44 20 28 2a 50 52 49 4e 54 54 41 42 4c 45 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a   ┆ND  END (*PRINTTABLE*) ;        ┆
0x9f680…9f6a0             50 52 4f 43 45 44 55 52 45 20 47 45 54 49 44 45 4e 54 49 46 49 45 52 3b 0d 0a 56 41 52 0d 0a 20   ┆PROCEDURE GETIDENTIFIER;  VAR   ┆
0x9f6a0…9f6c0             20 20 20 4a 2c 4b 2c 49 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 49 44 3a 20 41 4c 46 41   ┆   J,K,I: INTEGER;      ID: ALFA┆
0x9f6c0…9f6e0             3b 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 47 45 54 49 44 45 4e 54 49 46 49 45 52 20 2a 29 0d 0a   ┆;    BEGIN (* GETIDENTIFIER *)  ┆
0x9f6e0…9f700             20 20 20 49 20 3a 3d 20 30 3b 0d 0a 20 20 20 49 44 20 3a 3d 20 27 20 20 20 20 20 20 20 20 27 3b   ┆   I := 0;     ID := '        ';┆
0x9f700…9f720 (79, 1, 8)  0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 49 20 3c 20 41 4c 46 41 4c 45   ┆     REPEAT        IF I < ALFALE┆
0x9f720…9f740             4e 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45   ┆N           THEN              BE┆
0x9f740…9f760             47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 49 2b 31 3b 0d 0a 20   ┆GIN                 I := I+1;   ┆
0x9f760…9f780             20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 27 61 27 20 3c 3d 20 43 48 29 20 41 4e 44   ┆              IF ('a' <= CH) AND┆
0x9f780…9f7a0             20 28 43 48 20 3c 3d 20 27 7a 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ (CH <= 'z')                    ┆
0x9f7a0…9f7c0             54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 5b 49 5d   ┆THEN                       IDÆIÅ┆
0x9f7c0…9f7e0             20 3a 3d 20 43 48 52 28 20 4f 52 44 28 43 48 29 20 2d 20 4f 52 44 28 27 61 27 29 20 2b 20 4f 52   ┆ := CHR( ORD(CH) - ORD('a') + OR┆
0x9f7e0…9f800             44 28 27 41 27 29 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45   ┆D('A') )                    ELSE┆
0x9f800…9f820 (79, 1, 9)  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 20 3a 3d 20 48 20 2d 20 50 3b 0d   ┆                    H := H - P; ┆
0x9f820…9f840             0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 20 3d 20 50 0d 0a   ┆                      IF D = P  ┆
0x9f840…9f860             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20   ┆                        THEN    ┆
0x9f860…9f880             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a   ┆                         BEGIN  ┆
0x9f880…9f8a0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52   ┆                              WR┆
0x9f8a0…9f8c0             49 54 45 4c 4e 28 4f 55 54 50 55 54 2c 27 54 42 4c 45 20 4f 56 46 4c 57 27 29 3b 0d 0a 20 20 20   ┆ITELN(OUTPUT,'TBLE OVFLW');     ┆
0x9f8c0…9f8e0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 52 4f 52   ┆                           ERROR┆
0x9f8e0…9f900             20 3a 3d 20 54 52 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ := TRUE                        ┆
0x9f900…9f920 (79, 1, 10) 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e   ┆     END ;                    EN┆
0x9f920…9f940             44 0d 0a 20 20 20 55 4e 54 49 4c 20 46 20 4f 52 20 45 52 52 4f 52 0d 0a 45 4e 44 20 28 2a 53 45   ┆D     UNTIL F OR ERROR  END (*SE┆
0x9f940…9f960             41 52 43 48 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 52 49 4e 54 57   ┆ARCH*) ;        PROCEDURE PRINTW┆
0x9f960…9f980             4f 52 44 28 57 3a 20 57 4f 52 44 29 3b 0d 0a 56 41 52 0d 0a 20 20 20 20 4c 3a 20 49 4e 54 45 47   ┆ORD(W: WORD);  VAR      L: INTEG┆
0x9f980…9f9a0             45 52 3b 0d 0a 20 20 20 20 58 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 20 4e 45 58 54 52 45   ┆ER;      X: ITEMPTR;      NEXTRE┆
0x9f9a0…9f9c0             46 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 54 48 49 53 52 45 46 3a 20 4e 55 4d 52 45   ┆F : INTEGER;      THISREF: NUMRE┆
0x9f9c0…9f9e0             46 53 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 50 55 54 41 4c 46 41 28 57 2e 4b 45 59 29 3b 0d 0a   ┆FS;  BEGIN     PUTALFA(W.KEY);  ┆
0x9f9e0…9fa00             20 20 20 58 20 3a 3d 20 57 2e 46 49 52 53 54 3b 0d 0a 20 20 20 4c 20 3a 3d 20 30 3b 0d 0a 20 20   ┆   X := W.FIRST;     L := 0;    ┆
0x9fa00…9fa20 (79, 1, 11) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 5b 49 5d 20 3a 3d 20   ┆                       IDÆIÅ := ┆
0x9fa20…9fa40             43 48 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 47 45 54 4e   ┆CH              END;        GETN┆
0x9fa40…9fa60             45 58 54 43 48 41 52 0d 0a 20 20 20 55 4e 54 49 4c 20 28 20 4e 4f 54 28 28 28 43 48 3e 3d 27 41   ┆EXTCHAR     UNTIL ( NOT(((CH>='A┆
0x9fa60…9fa80             27 29 20 41 4e 44 20 28 43 48 3c 3d 27 5a 27 29 29 20 4f 52 20 28 28 43 48 3e 3d 27 61 27 29 20   ┆') AND (CH<='Z')) OR ((CH>='a') ┆
0x9fa80…9faa0             41 4e 44 20 28 43 48 3c 3d 27 7a 27 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆AND (CH<='z'))                  ┆
0x9faa0…9fac0             4f 52 20 28 28 43 48 3e 3d 27 30 27 29 20 41 4e 44 20 28 43 48 3c 3d 27 39 27 29 29 29 29 20 4f   ┆OR ((CH>='0') AND (CH<='9')))) O┆
0x9fac0…9fae0             52 20 28 45 52 52 4f 52 29 3b 0d 0a 20 20 20 49 20 3a 3d 20 31 3b 0d 0a 20 20 20 4a 20 3a 3d 20   ┆R (ERROR);     I := 1;     J := ┆
0x9fae0…9fb00             4e 4b 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 4b 20 3a 3d 20 28 49 2b 4a 29   ┆NK;     REPEAT        K := (I+J)┆
0x9fb00…9fb20 (79, 1, 12) 20 44 49 56 20 32 3b 20 20 20 20 20 20 28 2a 42 49 4e 41 52 59 20 53 45 41 52 43 48 2a 29 0d 0a   ┆ DIV 2;      (*BINARY SEARCH*)  ┆
0x9fb20…9fb40             20 20 20 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3c 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20   ┆      IF KEYÆKÅ <= ID           ┆
0x9fb40…9fb60             54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 4b 2b 31 3b 0d 0a 0d 0a 20   ┆THEN              I := K+1;     ┆
0x9fb60…9fb80             20 20 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3e 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 54   ┆     IF KEYÆKÅ >= ID           T┆
0x9fb80…9fba0             48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 4b 2d 31 3b 0d 0a 0d 0a 20 20   ┆HEN              J := K-1;      ┆
0x9fba0…9fbc0             20 55 4e 54 49 4c 20 49 20 3e 20 4a 3b 0d 0a 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3c 3e 20 49   ┆ UNTIL I > J;     IF KEYÆKÅ <> I┆
0x9fbc0…9fbe0             44 20 54 48 45 4e 20 53 45 41 52 43 48 28 49 44 29 3b 0d 0a 45 4e 44 3b 20 28 2a 20 47 45 54 49   ┆D THEN SEARCH(ID);  END; (* GETI┆
0x9fbe0…9fc00             44 45 4e 54 49 46 49 45 52 20 2a 29 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 43 52 4f 53 53 52 45   ┆DENTIFIER *)    BEGIN (* CROSSRE┆
0x9fc00…9fc20 (79, 1, 13) 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 4c 20 3d 20 52 45 46 53 50 45 52 4c 49 4e   ┆ REPEAT        IF L = REFSPERLIN┆
0x9fc20…9fc40             45 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45   ┆E           THEN              BE┆
0x9fc40…9fc60             47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 20 3a 3d 20 30 3b 0d 0a 20 20 20   ┆GIN                 L := 0;     ┆
0x9fc60…9fc80             20 20 20 20 20 20 20 20 20 20 20 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20   ┆            LPWRITELN;          ┆
0x9fc80…9fca0             20 20 20 20 20 20 20 50 55 54 41 4c 46 41 28 27 20 20 20 20 20 20 20 20 27 29 3b 0d 0a 20 20 20   ┆       PUTALFA('        ');     ┆
0x9fca0…9fcc0             20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 20 4c 20 3a 3d 20 4c 2b 31 3b 0d   ┆         END ;        L := L+1; ┆
0x9fcc0…9fce0             0a 20 20 20 20 20 20 54 48 49 53 52 45 46 20 3a 3d 20 28 4c 2d 31 29 20 4d 4f 44 20 52 45 46 53   ┆       THISREF := (L-1) MOD REFS┆
0x9fce0…9fd00             50 45 52 49 54 45 4d 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 4e 45 58 54 52 45 46 20 3a 3d 20 58   ┆PERITEM + 1;        NEXTREF := X┆
0x9fd00…9fd20 (79, 1, 14) 5e 2e 52 45 46 5b 20 54 48 49 53 52 45 46 20 5d 3b 0d 0a 20 20 20 20 20 20 49 46 20 54 48 49 53   ┆^.REFÆ THISREF Å;        IF THIS┆
0x9fd20…9fd40             52 45 46 20 3d 20 58 5e 2e 52 45 46 4e 55 4d 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a   ┆REF = X^.REFNUM           THEN  ┆
0x9fd40…9fd60             20 20 20 20 20 20 20 20 20 20 20 20 58 20 3a 3d 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 45   ┆            X := NIL           E┆
0x9fd60…9fd80             4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 48 49 53 52 45 46 20 3d 20 52 45   ┆LSE              IF THISREF = RE┆
0x9fd80…9fda0             46 53 50 45 52 49 54 45 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a   ┆FSPERITEM                 THEN  ┆
0x9fda0…9fdc0             20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3a 3d 20 58 5e 2e 4e 45 58 54 3b 0d   ┆                  X := X^.NEXT; ┆
0x9fdc0…9fde0             0a 20 20 20 20 20 20 50 55 54 4e 55 4d 42 45 52 28 4e 45 58 54 52 45 46 29 3b 0d 0a 20 20 20 55   ┆       PUTNUMBER(NEXTREF);     U┆
0x9fde0…9fe00             4e 54 49 4c 20 58 20 3d 20 4e 49 4c 3b 0d 0a 20 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 45 4e 44   ┆NTIL X = NIL;    LPWRITELN;  END┆
0x9fe00…9fe20 (79, 1, 15) 46 20 2a 29 0d 0a 20 20 20 49 4e 49 54 49 41 4c 49 5a 45 3b 0d 0a 0d 0a 20 20 20 4f 50 45 4e 46   ┆F *)     INITIALIZE;       OPENF┆
0x9fe20…9fe40             49 4c 45 53 3b 0d 0a 20 20 20 57 48 49 4c 45 20 28 4e 4f 54 28 45 4f 46 28 49 4e 46 49 4c 45 29   ┆ILES;     WHILE (NOT(EOF(INFILE)┆
0x9fe40…9fe60             29 29 20 41 4e 44 20 28 4e 4f 54 28 20 45 52 52 4f 52 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 42   ┆)) AND (NOT( ERROR)) DO        B┆
0x9fe60…9fe80             45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 49 46 20 28 28 43 48 3e 3d 27 41 27 29 20 41 4e 44 20   ┆EGIN          IF ((CH>='A') AND ┆
0x9fe80…9fea0             28 43 48 3c 3d 27 5a 27 29 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 45 54 49 44   ┆(CH<='Z')) THEN            GETID┆
0x9fea0…9fec0             45 4e 54 49 46 49 45 52 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20   ┆ENTIFIER          ELSE          ┆
0x9fec0…9fee0             20 20 49 46 20 28 43 48 20 3d 20 27 27 27 27 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20   ┆  IF (CH = '''') THEN           ┆
0x9fee0…9ff00             20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a   ┆   BEGIN                REPEAT  ┆
0x9ff00…9ff20 (79, 1, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20   ┆                GETNEXTCHAR;    ┆
0x9ff20…9ff40             20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 43 48 20 3d 20 27 27 27 27 29 20 4f 52   ┆            UNTIL (CH = '''') OR┆
0x9ff40…9ff60             20 28 45 52 52 4f 52 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54   ┆ (ERROR);                GETNEXT┆
0x9ff60…9ff80             43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20   ┆CHAR;              END          ┆
0x9ff80…9ffa0             20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d 20 27 28 27 20   ┆  ELSE              IF CH = '(' ┆
0x9ffa0…9ffc0             54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20   ┆THEN                BEGIN       ┆
0x9ffc0…9ffe0             20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20   ┆           GETNEXTCHAR;         ┆
0x9ffe0…a0000             20 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d 20 27 2a 27 20 54 48 45 4e 0d 0a 20 20 20 20 20   ┆         IF CH = '*' THEN       ┆