|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ 5 C D G H I K L M O P R T ░ ┃
Length: 327424 (0x4ff00) Description: Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5 Types: 5¼" Floppy Disk, ImdContainer
f04 | f09 | basis | postl | type | name | artifact |
---|---|---|---|---|---|---|
mangled | CCOPY | - | ||||
* | IVPS | 10 | 5 | R | CCOPY | ⟦7bd37f65b⟧ Mikados_R |
mangled | CFCOPY | - | ||||
mangled | CFCOPY | - | ||||
A | 35 | 1 | 0 | CFCOPY | ⟦d87411532⟧ Mikados_0 | |
A | FCOPY | 5 | 5 | R | CFCOPY | ⟦6f7ba1aaf⟧ Mikados_R |
mangled | COASM | - | ||||
* | OASM | 5 | 5 | R | COASM | ⟦e3a255b5a⟧ Mikados_R |
mangled | COMAL80 | - | ||||
85 | 1 | 1 | COMAL80 | ⟦9664c267c⟧ Mikados_1 | ||
mangled | COMP | - | ||||
5 | 5 | R | COMP | ⟦a173522d8⟧ Mikados_R | ||
mangled | COMPR80 | - | ||||
A | 10 | 255 | K | COMPR80 | ⟦eeb204985⟧ TextFile, Mikados TextFile, Mikados_K | |
mangled | CPCOP | - | ||||
mangled | CPCOP | - | ||||
5 | 5 | R | CPCOP | ⟦d6d749456⟧ Mikados_R | ||
15 | 1 | 0 | CPCOP | ⟦934ccc3b2⟧ Mikados_0 | ||
mangled | CREAT | - | ||||
* | REAT | 10 | 5 | R | CREAT | ⟦b6f3e2e8b⟧ Mikados_R |
mangled | CREXT | - | ||||
A | ICLR | 5 | 5 | R | CREXT | ⟦50c3bfb15⟧ Mikados_R |
mangled | DDEANSYS | - | ||||
*g | LADR | 124 | 1 | 0 | DDEANSYS | ⟦486b5477c⟧ Mikados_0 |
mangled | FCOPY80 | - | ||||
mangled | GETDR | - | ||||
5 | 5 | R | GETDR | ⟦83bd8c44a⟧ Mikados_R | ||
mangled | GETFN | - | ||||
* | ETFN | 5 | 5 | R | GETFN | ⟦529614d1b⟧ Mikados_R |
mangled | GETPR | - | ||||
5 | 5 | R | GETPR | ⟦e8c039afc⟧ Mikados_R | ||
mangled | HELP | - | ||||
5 | 5 | R | HELP | ⟦5ad67ea59⟧ Mikados_R | ||
10 | 255 | K | INITLI80 | ⟦8bf5a5501⟧ Mikados TextFile, Mikados_K | ||
mangled | KOMPNM | - | ||||
mangled | KOMPNM | - | ||||
A | 15 | 1 | 0 | KOMPNM | ⟦111deefc8⟧ Mikados_0 | |
A | 15 | 5 | R | KOMPNM | ⟦cdc333f54⟧ Mikados_R | |
mangled | KOPIP | - | ||||
10 | 5 | R | KOPIP | ⟦d24b3b899⟧ Mikados_R | ||
mangled | LABEL | - | ||||
A | TPRC | 5 | 5 | R | LABEL | ⟦889ecc3be⟧ Mikados_R |
mangled | LOAD2 | - | ||||
* | OAD2 | 8 | 1 | 0 | LOAD2 | ⟦1a8e0c879⟧ Mikados_0 |
mangled | MIKM | - | ||||
A | IKM | 19 | 1 | 0 | MIKM | ⟦cfaddbc0b⟧ Mikados_0 |
mangled | OMDØB | - | ||||
mangled | OMDØB | - | ||||
A | 5 | 5 | R | OMDØB | ⟦6c15112d5⟧ Mikados_R | |
15 | 1 | 0 | OMDØB | ⟦16d6288b5⟧ Mikados_0 | ||
mangled | PCOPY80 | - | ||||
10 | 255 | K | PCOPY80 | ⟦e02f295d2⟧ TextFile, Mikados TextFile, Mikados_K | ||
mangled | PERGE | - | ||||
mangled | PERGE | - | ||||
A | 5 | 5 | R | PERGE | ⟦facff6884⟧ Mikados_R | |
* | NVD | 15 | 1 | 0 | PERGE | ⟦2ae704965⟧ Mikados_0 |
mangled | PLINC | - | ||||
mangled | PLINC | - | ||||
* | SQMD | 10 | 5 | R | PLINC | ⟦c5b343a11⟧ Mikados_R |
A | 16 | 1 | 0 | PLINC | ⟦6e8810f67⟧ Mikados_0 | |
mangled | PURGE | - | ||||
5 | 5 | R | PURGE | ⟦f2c0ddc03⟧ Mikados_R | ||
mangled | PURGE80 | - | ||||
10 | 255 | K | PURGE80 | ⟦6e77bf8d0⟧ TextFile, Mikados TextFile, Mikados_K | ||
mangled | READV | - | ||||
*Æ | EADV | 5 | 5 | R | READV | ⟦6fd5fcd32⟧ Mikados_R |
mangled | RENAM | - | ||||
10 | 5 | R | RENAM | ⟦87f1d81b4⟧ Mikados_R | ||
mangled | RENAME80 | - | ||||
10 | 255 | K | RENAME80 | ⟦96e7721a4⟧ TextFile, Mikados TextFile, Mikados_K | ||
mangled | RESDI | - | ||||
* | ESDI | 5 | 5 | R | RESDI | ⟦ac3b0a5a8⟧ Mikados_R |
A | IKM | 19 | 1 | 0 | ░IKM | ⟦80b7b476e⟧ Mikados_0 |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0026,04 (0x026400)}, plart=»COMA «, pldto=»01.01.1984«, plbtg=»SYSPROG «, pluda=» «} 0x00030…00040 1f 00 02 10 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x00040…00060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ […0x5…] 0x00100…00200 (0, 0, 2) DirSect { 0x00100…00200 dent = [ // @0x0 0x00100…00200 [0x00]: DirEnt {name=»FCOPY80 «, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004100)}} 0x00100…00200 [0x01]: BogusDirEnt {name=»DIMES «, typ=»N«, seg=»*«, seg0={DA 0449,00 (0x449000)}} 0x00100…00200 [0x02]: BogusDirEnt {name=»CCREXT «, typ=»N«, seg=»*«, seg0={DA 010f,00 (0x10f000)}} 0x00100…00200 [0x03]: BogusDirEnt {name=»BANKR «, typ=»N«, seg=»*«, seg0={DA 00fc,00 (0x0fc000)}} 0x00100…00200 [0x04]: BogusDirEnt {name=»INVH «, typ=»N«, seg=»*«, seg0={DA 006d,00 (0x06d000)}} 0x00100…00200 [0x05]: BogusDirEnt {name=»C9MES «, typ=»N«, seg=»*«, seg0={DA 02f4,00 (0x2f4000)}} 0x00100…00200 [0x06]: BogusDirEnt {name=»VENTS «, typ=»N«, seg=»*«, seg0={DA 008b,00 (0x08b000)}} 0x00100…00200 [0x07]: BogusDirEnt {name=»PRRES «, typ=»N«, seg=»*«, seg0={DA 0186,00 (0x186000)}} 0x00100…00200 ] 0x00100…00200 } 0x00200…00300 (0, 0, 3) EmptyDirSect 0x00300…00400 (0, 0, 4) DirSect { 0x00300…00400 dent = [ // @0x0 0x00300…00400 [0x00]: BogusDirEnt {name=»VENTT «, typ=»N«, seg=»*«, seg0={DA 008e,00 (0x08e000)}} 0x00300…00400 [0x01]: DirEnt {name=»PERGE «, typ=»R«, seg=»A«, seg0={DA 0012,07 (0x012700)}} 0x00300…00400 [0x02]: BogusDirEnt {name=»ASEMA «, typ=»N«, seg=»*«, seg0={DA 03f5,00 (0x3f5000)}} 0x00300…00400 ] 0x00300…00400 } 0x00400…00500 (0, 0, 5) EmptyDirSect 0x00500…00600 (0, 0, 6) DirSect { 0x00500…00600 dent = [ // @0x0 0x00500…00600 [0x00]: DirEnt {name=»GETDR «, typ=»R«, seg=»A«, seg0={DA 0004,0b (0x004b00)}} 0x00500…00600 [0x01]: DirEnt {name=»KOMPNM «, typ=»0«, seg=»A«, seg0={DA 0012,0c (0x012c00)}} 0x00500…00600 [0x02]: DirEnt {name=»MIKM «, typ=»0«, seg=»A«, seg0={DA 0025,01 (0x025100)}} 0x00500…00600 ] 0x00500…00600 } 0x00600…00700 (0, 0, 7) EmptyDirSect […0x2…] 0x00900…00a00 (0, 0, 10) DirSect { 0x00900…00a00 dent = [ // @0x0 0x00900…00a00 [0x00]: DirEnt {name=»COMP «, typ=»R«, seg=»A«, seg0={DA 0005,00 (0x005000)}} 0x00900…00a00 [0x01]: BogusDirEnt {name=»VIXP «, typ=»N«, seg=»*«, seg0={DA 0485,00 (0x485000)}} 0x00900…00a00 [0x02]: BogusDirEnt {name=»INVD «, typ=»N«, seg=»*«, seg0={DA 006a,00 (0x06a000)}} 0x00900…00a00 [0x03]: BogusDirEnt {name=»C5MES «, typ=»N«, seg=»*«, seg0={DA 046d,00 (0x46d000)}} 0x00900…00a00 [0x04]: DirEnt {name=»PERGE «, typ=»0«, seg=»A«, seg0={DA 0013,0b (0x013b00)}} 0x00900…00a00 ] 0x00900…00a00 } 0x00a00…00b00 (0, 0, 11) EmptyDirSect 0x00b00…00c00 (0, 0, 12) DirSect { 0x00b00…00c00 dent = [ // @0x0 0x00b00…00c00 [0x00]: DirEnt {name=»CPCOP «, typ=»R«, seg=»A«, seg0={DA 0005,05 (0x005500)}} 0x00b00…00c00 [0x01]: BogusDirEnt {name=»BFIND «, typ=»N«, seg=»*«, seg0={DA 011e,00 (0x11e000)}} 0x00b00…00c00 [0x02]: BogusDirEnt {name=»STATES «, typ=»N«, seg=»*«, seg0={DA 04ed,00 (0x4ed000)}} 0x00b00…00c00 [0x03]: BogusDirEnt {name=»TXOFF «, typ=»N«, seg=»*«, seg0={DA 04e9,00 (0x4e9000)}} 0x00b00…00c00 [0x04]: BogusDirEnt {name=»OUT1 «, typ=»N«, seg=»*«, seg0={DA 007f,00 (0x07f000)}} 0x00b00…00c00 [0x05]: BogusDirEnt {name=»BBMVD «, typ=»N«, seg=»*«, seg0={DA 0121,00 (0x121000)}} 0x00b00…00c00 ] 0x00b00…00c00 } 0x00c00…00d00 (0, 0, 13) EmptyDirSect […0x4…] 0x01100…01200 (0, 1, 2) DirSect { 0x01100…01200 dent = [ // @0x0 0x01100…01200 [0x00]: DirEnt {name=»CPCOP «, typ=»0«, seg=»A«, seg0={DA 0005,0a (0x005a00)}} 0x01100…01200 [0x01]: DirEnt {name=»COMPR80 «, typ=»K«, seg=»A«, seg0={DA 0006,09 (0x006900)}} 0x01100…01200 [0x02]: BogusDirEnt {name=»VICLR «, typ=»N«, seg=»*«, seg0={DA 0115,00 (0x115000)}} 0x01100…01200 [0x03]: BogusDirEnt {name=»TERSP «, typ=»N«, seg=»*«, seg0={DA 04ec,00 (0x4ec000)}} 0x01100…01200 [0x04]: DirEnt {name=»CREXT «, typ=»R«, seg=»A«, seg0={DA 0014,0a (0x014a00)}} 0x01100…01200 [0x05]: BogusDirEnt {name=»TESTH «, typ=»N«, seg=»*«, seg0={DA 0085,00 (0x085000)}} 0x01100…01200 [0x06]: BogusDirEnt {name=»C1MES «, typ=»N«, seg=»*«, seg0={DA 0455,00 (0x455000)}} 0x01100…01200 ] 0x01100…01200 } 0x01200…01300 (0, 1, 3) EmptyDirSect […0x2…] 0x01500…01600 (0, 1, 6) DirSect { 0x01500…01600 dent = [ // @0x0 0x01500…01600 [0x00]: DirEnt {name=»PCOPY80 «, typ=»K«, seg=»A«, seg0={DA 0007,03 (0x007300)}} 0x01500…01600 [0x01]: DirEnt {name=»OMDØB «, typ=»R«, seg=»A«, seg0={DA 0007,0d (0x007d00)}} 0x01500…01600 [0x02]: BogusDirEnt {name=»STPRC «, typ=»N«, seg=»*«, seg0={DA 00a0,00 (0x0a0000)}} 0x01500…01600 [0x03]: BogusDirEnt {name=»UDIND «, typ=»N«, seg=»*«, seg0={DA 00d0,00 (0x0d0000)}} 0x01500…01600 [0x04]: BogusDirEnt {name=»WAIT «, typ=»N«, seg=»*«, seg0={DA 00b2,00 (0x0b2000)}} 0x01500…01600 [0x05]: BogusDirEnt {name=»CLOSE «, typ=»N«, seg=»*«, seg0={DA 00c1,00 (0x0c1000)}} 0x01500…01600 [0x06]: BogusDirEnt {name=»PLLÆS «, typ=»N«, seg=»*«, seg0={DA 00f1,00 (0x0f1000)}} 0x01500…01600 [0x07]: BogusDirEnt {name=»CREADV «, typ=»N«, seg=»*«, seg0={DA 0109,00 (0x109000)}} 0x01500…01600 [0x08]: DirEnt {name=»LABEL «, typ=»R«, seg=»A«, seg0={DA 0014,0f (0x014f00)}} 0x01500…01600 [0x09]: BogusDirEnt {name=»P4MES «, typ=»N«, seg=»*«, seg0={DA 0443,00 (0x443000)}} 0x01500…01600 [0x0a]: BogusDirEnt {name=»ÅR «, typ=»N«, seg=»*«, seg0={DA 02da,00 (0x2da000)}} 0x01500…01600 ] 0x01500…01600 } 0x01600…01700 (0, 1, 7) EmptyDirSect […0x2…] 0x01900…01a00 (0, 1, 10) DirSect { 0x01900…01a00 dent = [ // @0x0 0x01900…01a00 [0x00]: BogusDirEnt {name=»ISQGB «, typ=»N«, seg=»*«, seg0={DA 04be,00 (0x4be000)}} 0x01900…01a00 [0x01]: BogusDirEnt {name=»FRIIF «, typ=»N«, seg=»*«, seg0={DA 00fa,00 (0x0fa000)}} 0x01900…01a00 [0x02]: DirEnt {name=»GETFN «, typ=»R«, seg=»A«, seg0={DA 0015,04 (0x015400)}} 0x01900…01a00 ] 0x01900…01a00 } 0x01a00…01b00 (0, 1, 11) EmptyDirSect 0x01b00…01c00 (0, 1, 12) DirSect { 0x01b00…01c00 dent = [ // @0x0 0x01b00…01c00 [0x00]: DirEnt {name=»OMDØB «, typ=»0«, seg=»A«, seg0={DA 0008,02 (0x008200)}} 0x01b00…01c00 [0x01]: DirEnt {name=»KOMPNM «, typ=»R«, seg=»A«, seg0={DA 0015,09 (0x015900)}} 0x01b00…01c00 [0x02]: BogusDirEnt {name=»BSELC «, typ=»N«, seg=»*«, seg0={DA 004c,00 (0x04c000)}} 0x01b00…01c00 [0x03]: BogusDirEnt {name=»RBUFST «, typ=»N«, seg=»*«, seg0={DA 0497,00 (0x497000)}} 0x01b00…01c00 [0x04]: BogusDirEnt {name=»ISQGC «, typ=»N«, seg=»*«, seg0={DA 04ca,00 (0x4ca000)}} 0x01b00…01c00 ] 0x01b00…01c00 } 0x01c00…01d00 (0, 1, 13) EmptyDirSect 0x01d00…01e00 (0, 1, 14) DirSect { 0x01d00…01e00 dent = [ // @0x0 0x01d00…01e00 [0x00]: BogusDirEnt {name=»ISQGD «, typ=»N«, seg=»*«, seg0={DA 04d6,00 (0x4d6000)}} 0x01d00…01e00 [0x01]: BogusDirEnt {name=»FÅINH «, typ=»N«, seg=»*«, seg0={DA 005b,00 (0x05b000)}} 0x01d00…01e00 [0x02]: DirEnt {name=»READV «, typ=»R«, seg=»A«, seg0={DA 0016,08 (0x016800)}} 0x01d00…01e00 [0x03]: BogusDirEnt {name=»BSCMES «, typ=»N«, seg=»*«, seg0={DA 04f9,00 (0x4f9000)}} 0x01d00…01e00 [0x04]: BogusDirEnt {name=»SNADAT «, typ=»N«, seg=»*«, seg0={DA 04ed,00 (0x4ed000)}} 0x01d00…01e00 [0x05]: BogusDirEnt {name=»CBMES «, typ=»N«, seg=»*«, seg0={DA 0300,00 (0x300000)}} 0x01d00…01e00 ] 0x01d00…01e00 } 0x01e00…01f00 (0, 1, 15) EmptyDirSect […0x1…] 0x02000…02100 (1, 0, 2) DirSect { 0x02000…02100 dent = [ // @0x0 0x02000…02100 [0x00]: BogusDirEnt {name=»VSEND «, typ=»N«, seg=»*«, seg0={DA 0091,00 (0x091000)}} 0x02000…02100 [0x01]: DirEnt {name=»CFCOPY «, typ=»0«, seg=»A«, seg0={DA 0016,0d (0x016d00)}} 0x02000…02100 ] 0x02000…02100 } 0x02100…02200 (1, 0, 3) EmptyDirSect 0x02200…02300 (1, 0, 4) DirSect { 0x02200…02300 dent = [ // @0x0 0x02200…02300 [0x00]: DirEnt {name=»PURGE «, typ=»R«, seg=»A«, seg0={DA 0009,0b (0x009b00)}} 0x02200…02300 [0x01]: BogusDirEnt {name=»SKRIV «, typ=»N«, seg=»*«, seg0={DA 00fd,00 (0x0fd000)}} 0x02200…02300 [0x02]: BogusDirEnt {name=»HASH «, typ=»N«, seg=»*«, seg0={DA 00d3,00 (0x0d3000)}} 0x02200…02300 [0x03]: BogusDirEnt {name=»R1SLUT «, typ=»N«, seg=»*«, seg0={DA 7fff,00 (0x7fff000)}} 0x02200…02300 [0x04]: BogusDirEnt {name=»SIGNL «, typ=»N«, seg=»*«, seg0={DA 00af,00 (0x0af000)}} 0x02200…02300 ] 0x02200…02300 } 0x02300…02400 (1, 0, 5) EmptyDirSect 0x02400…02500 (1, 0, 6) DirSect { 0x02400…02500 dent = [ // @0x0 0x02400…02500 [0x00]: DirEnt {name=»HELP «, typ=»R«, seg=»A«, seg0={DA 000a,00 (0x00a000)}} 0x02400…02500 [0x01]: BogusDirEnt {name=»C7MES «, typ=»N«, seg=»*«, seg0={DA 0479,00 (0x479000)}} 0x02400…02500 [0x02]: BogusDirEnt {name=»CWRITV «, typ=»N«, seg=»*«, seg0={DA 010c,00 (0x10c000)}} 0x02400…02500 [0x03]: BogusDirEnt {name=»GEMIB «, typ=»N«, seg=»*«, seg0={DA 00d6,00 (0x0d6000)}} 0x02400…02500 ] 0x02400…02500 } 0x02500…02600 (1, 0, 7) EmptyDirSect 0x02600…02700 (1, 0, 8) DirSect { 0x02600…02700 dent = [ // @0x0 0x02600…02700 [0x00]: BogusDirEnt {name=»PFIND «, typ=»N«, seg=»*«, seg0={DA 00ca,00 (0x0ca000)}} 0x02600…02700 [0x01]: BogusDirEnt {name=»POOL «, typ=»N«, seg=»*«, seg0={DA 0401,00 (0x401000)}} 0x02600…02700 [0x02]: DirEnt {name=»RESDI «, typ=»R«, seg=»A«, seg0={DA 0019,00 (0x019000)}} 0x02600…02700 [0x03]: BogusDirEnt {name=»MOVE3 «, typ=»N«, seg=»*«, seg0={DA 00e8,00 (0x0e8000)}} 0x02600…02700 [0x04]: BogusDirEnt {name=»X21MES «, typ=»N«, seg=»*«, seg0={DA 04ff,00 (0x4ff000)}} 0x02600…02700 ] 0x02600…02700 } 0x02700…02800 (1, 0, 9) EmptyDirSect 0x02800…02900 (1, 0, 10) DirSect { 0x02800…02900 dent = [ // @0x0 0x02800…02900 [0x00]: DirEnt {name=»COMAL80 «, typ=»1«, seg=»A«, seg0={DA 000a,05 (0x00a500)}} 0x02800…02900 [0x01]: BogusDirEnt {name=»BCMES «, typ=»N«, seg=»*«, seg0={DA 0505,00 (0x505000)}} 0x02800…02900 [0x02]: DirEnt {name=»LOAD2 «, typ=»0«, seg=»A«, seg0={DA 0024,09 (0x024900)}} 0x02800…02900 ] 0x02800…02900 } 0x02900…02a00 (1, 0, 11) EmptyDirSect 0x02a00…02b00 (1, 0, 12) DirSect { 0x02a00…02b00 dent = [ // @0x0 0x02a00…02b00 [0x00]: BogusDirEnt {name=»SSMES «, typ=»N«, seg=»*«, seg0={DA 04dc,00 (0x4dc000)}} 0x02a00…02b00 [0x01]: BogusDirEnt {name=»CCMES «, typ=»N«, seg=»*«, seg0={DA 0306,00 (0x306000)}} 0x02a00…02b00 [0x02]: DirEnt {name=»COASM «, typ=»R«, seg=»A«, seg0={DA 0019,05 (0x019500)}} 0x02a00…02b00 [0x03]: BogusDirEnt {name=»BIDEC «, typ=»N«, seg=»*«, seg0={DA 0046,00 (0x046000)}} 0x02a00…02b00 [0x04]: BogusDirEnt {name=»IN1 «, typ=»N«, seg=»*«, seg0={DA 0061,00 (0x061000)}} 0x02a00…02b00 [0x05]: BogusDirEnt {name=»RBUFSL «, typ=»N«, seg=»*«, seg0={DA 0499,00 (0x499000)}} 0x02a00…02b00 [0x06]: BogusDirEnt {name=»RELSE «, typ=»N«, seg=»*«, seg0={DA 0097,00 (0x097000)}} 0x02a00…02b00 [0x07]: BogusDirEnt {name=»ISQMA «, typ=»N«, seg=»*«, seg0={DA 04ac,00 (0x4ac000)}} 0x02a00…02b00 [0x08]: BogusDirEnt {name=»VENTH «, typ=»N«, seg=»*«, seg0={DA 0088,00 (0x088000)}} 0x02a00…02b00 [0x09]: BogusDirEnt {name=»P1MES «, typ=»N«, seg=»*«, seg0={DA 0431,00 (0x431000)}} 0x02a00…02b00 [0x0a]: BogusDirEnt {name=»VIYP «, typ=»N«, seg=»*«, seg0={DA 0487,00 (0x487000)}} 0x02a00…02b00 ] 0x02a00…02b00 } 0x02b00…02c00 (1, 0, 13) EmptyDirSect 0x02c00…02d00 (1, 0, 14) DirSect { 0x02c00…02d00 dent = [ // @0x0 0x02c00…02d00 [0x00]: DirEnt {name=»GETPR «, typ=»R«, seg=»A«, seg0={DA 000f,0a (0x00fa00)}} 0x02c00…02d00 [0x01]: BogusDirEnt {name=»ISQMB «, typ=»N«, seg=»*«, seg0={DA 04b8,00 (0x4b8000)}} 0x02c00…02d00 [0x02]: BogusDirEnt {name=»DIVPS «, typ=»N«, seg=»*«, seg0={DA 004f,00 (0x04f000)}} 0x02c00…02d00 [0x03]: BogusDirEnt {name=»INVB «, typ=»N«, seg=»*«, seg0={DA 0067,00 (0x067000)}} 0x02c00…02d00 [0x04]: DirEnt {name=»CCOPY «, typ=»R«, seg=»A«, seg0={DA 0019,0a (0x019a00)}} 0x02c00…02d00 [0x05]: BogusDirEnt {name=»FÅBUF «, typ=»N«, seg=»*«, seg0={DA 0058,00 (0x058000)}} 0x02c00…02d00 [0x06]: BogusDirEnt {name=»C3MES «, typ=»N«, seg=»*«, seg0={DA 0461,00 (0x461000)}} 0x02c00…02d00 [0x07]: BogusDirEnt {name=»TIDSP «, typ=»N«, seg=»*«, seg0={DA 02de,00 (0x2de000)}} 0x02c00…02d00 [0x08]: BogusDirEnt {name=»BBMOV «, typ=»N«, seg=»*«, seg0={DA 011b,00 (0x11b000)}} 0x02c00…02d00 ] 0x02c00…02d00 } 0x02d00…02e00 (1, 0, 15) EmptyDirSect 0x02e00…02f00 (1, 0, 16) DirSect { 0x02e00…02f00 dent = [ // @0x0 0x02e00…02f00 [0x00]: BogusDirEnt {name=»ALLOC «, typ=»N«, seg=»*«, seg0={DA 009a,00 (0x09a000)}} 0x02e00…02f00 [0x01]: BogusDirEnt {name=»MÅNED «, typ=»N«, seg=»*«, seg0={DA 02d7,00 (0x2d7000)}} 0x02e00…02f00 [0x02]: DirEnt {name=»CREAT «, typ=»R«, seg=»A«, seg0={DA 001a,04 (0x01a400)}} 0x02e00…02f00 [0x03]: BogusDirEnt {name=»USSEM «, typ=»N«, seg=»*«, seg0={DA 04ea,00 (0x4ea000)}} 0x02e00…02f00 [0x04]: BogusDirEnt {name=»BANKI «, typ=»N«, seg=»*«, seg0={DA 0152,00 (0x152000)}} 0x02e00…02f00 [0x05]: BogusDirEnt {name=»ISQMC «, typ=»N«, seg=»*«, seg0={DA 04c4,00 (0x4c4000)}} 0x02e00…02f00 [0x06]: BogusDirEnt {name=»FVSMES «, typ=»N«, seg=»*«, seg0={DA 04f6,00 (0x4f6000)}} 0x02e00…02f00 ] 0x02e00…02f00 } 0x02f00…03000 (1, 1, 1) EmptyDirSect 0x03000…03100 (1, 1, 2) DirSect { 0x03000…03100 dent = [ // @0x0 0x03000…03100 [0x00]: DirEnt {name=»PURGE80 «, typ=»K«, seg=»A«, seg0={DA 000f,0f (0x00ff00)}} 0x03000…03100 [0x01]: BogusDirEnt {name=»NYFIL «, typ=»N«, seg=»*«, seg0={DA 00b8,00 (0x0b8000)}} 0x03000…03100 [0x02]: BogusDirEnt {name=»ISQMD «, typ=»N«, seg=»*«, seg0={DA 04d0,00 (0x4d0000)}} 0x03000…03100 [0x03]: BogusDirEnt {name=»HLAKT «, typ=»N«, seg=»*«, seg0={DA 02cf,00 (0x2cf000)}} 0x03000…03100 [0x04]: DirEnt {name=»PLINC «, typ=»R«, seg=»A«, seg0={DA 001a,0e (0x01ae00)}} 0x03000…03100 [0x05]: BogusDirEnt {name=»LBSKD «, typ=»N«, seg=»*«, seg0={DA 0070,00 (0x070000)}} 0x03000…03100 ] 0x03000…03100 } 0x03100…03200 (1, 1, 3) EmptyDirSect 0x03200…03300 (1, 1, 4) DirSect { 0x03200…03300 dent = [ // @0x0 0x03200…03300 [0x00]: DirEnt {name=»KOPIP «, typ=»R«, seg=»A«, seg0={DA 0010,09 (0x010900)}} 0x03200…03300 [0x01]: BogusDirEnt {name=»FYLDB «, typ=»N«, seg=»*«, seg0={DA 00eb,00 (0x0eb000)}} 0x03200…03300 [0x02]: BogusDirEnt {name=»SLEEP «, typ=»N«, seg=»*«, seg0={DA 042b,00 (0x42b000)}} 0x03200…03300 [0x03]: BogusDirEnt {name=»WRITE «, typ=»N«, seg=»*«, seg0={DA 00bb,00 (0x0bb000)}} 0x03200…03300 [0x04]: BogusDirEnt {name=»HLMES «, typ=»N«, seg=»*«, seg0={DA 0413,00 (0x413000)}} 0x03200…03300 [0x05]: BogusDirEnt {name=»C8MES «, typ=»N«, seg=»*«, seg0={DA 047f,00 (0x47f000)}} 0x03200…03300 [0x06]: BogusDirEnt {name=»CQSEND «, typ=»N«, seg=»*«, seg0={DA 0106,00 (0x106000)}} 0x03200…03300 [0x07]: BogusDirEnt {name=»SOMES «, typ=»N«, seg=»*«, seg0={DA 04e2,00 (0x4e2000)}} 0x03200…03300 [0x08]: BogusDirEnt {name=»EXIT «, typ=»N«, seg=»*«, seg0={DA 00a6,00 (0x0a6000)}} 0x03200…03300 ] 0x03200…03300 } 0x03300…03400 (1, 1, 5) EmptyDirSect […0x2…] 0x03600…03700 (1, 1, 8) DirSect { 0x03600…03700 dent = [ // @0x0 0x03600…03700 [0x00]: BogusDirEnt {name=»BASIF «, typ=»N«, seg=»*«, seg0={DA 00dc,00 (0x0dc000)}} 0x03600…03700 [0x01]: DirEnt {name=»PLINC «, typ=»0«, seg=»A«, seg0={DA 001b,08 (0x01b800)}} 0x03600…03700 [0x02]: DirEnt {name=»CFCOPY «, typ=»R«, seg=»A«, seg0={DA 001c,08 (0x01c800)}} 0x03600…03700 [0x03]: BogusDirEnt {name=»ASEND «, typ=»N«, seg=»*«, seg0={DA 0043,00 (0x043000)}} 0x03600…03700 [0x04]: BogusDirEnt {name=»MOVEB «, typ=»N«, seg=»*«, seg0={DA 0076,00 (0x076000)}} 0x03600…03700 ] 0x03600…03700 } 0x03700…03800 (1, 1, 9) EmptyDirSect […0x2…] 0x03a00…03b00 (1, 1, 12) DirSect { 0x03a00…03b00 dent = [ // @0x0 0x03a00…03b00 [0x00]: DirEnt {name=»RENAM «, typ=»R«, seg=»A«, seg0={DA 0011,03 (0x011300)}} 0x03a00…03b00 [0x01]: BogusDirEnt {name=»C4MES «, typ=»N«, seg=»*«, seg0={DA 0467,00 (0x467000)}} 0x03a00…03b00 [0x02]: BogusDirEnt {name=»PLADR «, typ=»N«, seg=»*«, seg0={DA 00cd,00 (0x0cd000)}} 0x03a00…03b00 [0x03]: BogusDirEnt {name=»TAGBC «, typ=»N«, seg=»*«, seg0={DA 00e5,00 (0x0e5000)}} 0x03a00…03b00 [0x04]: BogusDirEnt {name=»OPEN «, typ=»N«, seg=»*«, seg0={DA 00b5,00 (0x0b5000)}} 0x03a00…03b00 [0x05]: BogusDirEnt {name=»SYSTAT «, typ=»N«, seg=»*«, seg0={DA 0124,00 (0x124000)}} 0x03a00…03b00 [0x06]: BogusDirEnt {name=»MOVED «, typ=»N«, seg=»*«, seg0={DA 0079,00 (0x079000)}} 0x03a00…03b00 [0x07]: DirEnt {name=»DDEANSYS«, typ=»0«, seg=»A«, seg0={DA 001c,0d (0x01cd00)}} 0x03a00…03b00 ] 0x03a00…03b00 } 0x03b00…03c00 (1, 1, 13) EmptyDirSect 0x03c00…03d00 (1, 1, 14) DirSect { 0x03c00…03d00 dent = [ // @0x0 0x03c00…03d00 [0x00]: DirEnt {name=»RENAME80«, typ=»K«, seg=»A«, seg0={DA 0011,0d (0x011d00)}} 0x03c00…03d00 [0x01]: BogusDirEnt {name=»R1START «, typ=»N«, seg=»*«, seg0={DA 4000,00 (0x4000000)}} 0x03c00…03d00 [0x02]: BogusDirEnt {name=»BCDOP «, typ=»N«, seg=»*«, seg0={DA 0112,00 (0x112000)}} 0x03c00…03d00 [0x03]: BogusDirEnt {name=»MUL «, typ=»N«, seg=»*«, seg0={DA 007c,00 (0x07c000)}} 0x03c00…03d00 [0x04]: BogusDirEnt {name=»BCAIM «, typ=»N«, seg=»*«, seg0={DA 00ee,00 (0x0ee000)}} 0x03c00…03d00 [0x05]: BogusDirEnt {name=»RECEI «, typ=»N«, seg=»*«, seg0={DA 00a9,00 (0x0a9000)}} 0x03c00…03d00 [0x06]: BogusDirEnt {name=»PLADS «, typ=»N«, seg=»*«, seg0={DA 00f4,00 (0x0f4000)}} 0x03c00…03d00 ] 0x03c00…03d00 } 0x03d00…03e00 (1, 1, 15) EmptyDirSect […0x2…] 0x04000…04100 (2, 0, 2) DirSect { 0x04000…04100 dent = [ // @0x0 0x04000…04100 [0x00]: DirEnt {name=»FCOPY80 «, typ=»K«, seg=»A«, seg0={DA 0a00,00 (0xa00000)}} 0x04000…04100 [0x01]: BogusDirEnt {name=» «, typ=» «, seg=» «, seg0={DA 0000,ff (0x00ff00)}} 0x04000…04100 [0x02]: BogusDirEnt {name=» 20«, typ=»1«, seg=»0«, seg0={DA 2030,2f (0x2032f00)}} 0x04000…04100 [0x03]: BogusDirEnt {name=»/ 05.09.«, typ=»1«, seg=»9«, seg0={DA 3038,20 (0x303a000)}} 0x04000…04100 [0x04]: BogusDirEnt {name=»PNM, COM«, typ=»A«, seg=»L«, seg0={DA 3038,20 (0x303a000)}} 0x04000…04100 [0x05]: BogusDirEnt {name=»VERSION «, typ=»2«, seg=»4«, seg0={DA 302e,34 (0x3031400)}} 0x04000…04100 [0x06]: BogusDirEnt {name=».19822=0«, typ=»1«, seg=»1«, seg0={DA 2030,44 (0x2034400)}} 0x04000…04100 [0x07]: BogusDirEnt {name=»IM DREVF«, typ=»R«, seg=»A«, seg0={DA 2024,4f (0x2028f00)}} 0x04000…04100 [0x08]: BogusDirEnt {name=»F 2,DREV«, typ=»T«, seg=»I«, seg0={DA 244c,20 (0x244e000)}} 0x04000…04100 [0x09]: BogusDirEnt {name=»OF 2,TYP«, typ=»E«, seg=»$«, seg0={DA 4f20,46 (0x4f24600)}} 0x04000…04100 [0x0a]: BogusDirEnt {name=» 1,NAVNF«, typ=»R«, seg=»A«, seg0={DA 2024,4f (0x2028f00)}} 0x04000…04100 [0x0b]: BogusDirEnt {name=»F 9=3012«, typ=»0«, seg=» «, seg0={DA 4944,4d (0x4948d00)}} 0x04000…04100 [0x0c]: BogusDirEnt {name=» NAVN$ O«, typ=»F«, seg=» «, seg0={DA 3831,2c (0x3833c00)}} 0x04000…04100 [0x0d]: BogusDirEnt {name=»SIDSTECH«, typ=»A«, seg=»R«, seg0={DA 2024,4f (0x2028f00)}} 0x04000…04100 [0x0e]: BogusDirEnt {name=»F 1,NAVN«, typ=»T«, seg=»I«, seg0={DA 244c,20 (0x244e000)}} 0x04000…04100 [0x0f]: BogusDirEnt {name=»OF 93!01«, typ=»3«, seg=»0«, seg0={DA 4920,4e (0x4924e00)}} 0x04000…04100 [0x10]: BogusDirEnt {name=»TEGER IN«, typ=»D«, seg=»E«, seg0={DA 2c58,46 (0x2c5c600)}} 0x04000…04100 [0x11]: BogusDirEnt {name=»LAG,FORE«, typ=»V«, seg=»E«, seg0={DA 2c52,59 (0x2c57900)}} 0x04000…04100 [0x12]: BogusDirEnt {name=»!"0140 P«, typ=»R«, seg=»I«, seg0={DA 544e,20 (0x5450000)}} 0x04000…04100 ] 0x04000…04100 } 0x04100…04120 (2, 0, 3) 2d 20 4b 4f 50 49 45 52 20 46 49 4c 2e 22 22 0b 30 31 35 30 20 50 52 49 4e 54 20 0b 0c 30 31 36 ┆- KOPIER FIL."" 0150 PRINT 016┆ 0x04120…04140 30 20 52 45 50 45 41 54 20 0c 3e 30 31 37 30 20 49 4e 50 55 54 20 22 44 52 45 56 4e 52 20 28 50 ┆0 REPEAT >0170 INPUT "DREVNR (P┆ 0x04140…04160 31 2c 20 50 32 2c 20 2e 2e 20 29 2c 20 44 45 52 20 4b 4f 50 49 45 52 45 53 20 46 52 41 3a 20 22 ┆1, P2, .. ), DER KOPIERES FRA: "┆ 0x04160…04180 3a 44 52 45 56 46 52 41 24 3e 2b 30 31 38 30 20 55 4e 54 49 4c 20 44 52 45 56 46 52 41 24 3e 22 ┆:DREVFRA$>+0180 UNTIL DREVFRA$>"┆ 0x04180…041a0 50 30 22 20 41 4e 44 20 44 52 45 56 46 52 41 24 3c 3d 22 50 39 22 2b 0b 30 31 39 30 20 50 52 49 ┆P0" AND DREVFRA$<="P9"+ 0190 PRI┆ 0x041a0…041c0 4e 54 20 0b 0c 30 32 30 30 20 52 45 50 45 41 54 20 0c 3e 30 32 31 30 20 49 4e 50 55 54 20 22 44 ┆NT 0200 REPEAT >0210 INPUT "D┆ 0x041c0…041e0 52 45 56 4e 52 20 28 50 31 2c 20 50 32 2c 20 2e 2e 20 29 2c 20 44 45 52 20 4b 4f 50 49 45 52 45 ┆REVNR (P1, P2, .. ), DER KOPIERE┆ 0x041e0…04200 53 20 54 49 4c 3a 20 22 3a 44 52 45 56 54 49 4c 24 3e 2b 30 32 32 30 20 55 4e 54 49 4c 20 44 52 ┆S TIL: ":DREVTIL$>+0220 UNTIL DR┆ 0x04200…04220 (2, 0, 4) 45 56 54 49 4c 24 3e 22 50 30 22 20 41 4e 44 20 44 52 45 56 54 49 4c 24 3c 3d 22 50 39 22 2b 0c ┆EVTIL$>"P0" AND DREVTIL$<="P9"+ ┆ 0x04220…04240 30 32 33 30 20 52 45 50 45 41 54 20 0c 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 0c 30 32 35 30 20 ┆0230 REPEAT 0240 PRINT 0250 ┆ 0x04240…04260 52 45 50 45 41 54 20 0c 2b 30 32 36 30 20 4e 41 56 4e 46 52 41 24 3a 3d 22 22 3b 4e 41 56 4e 24 ┆REPEAT +0260 NAVNFRA$:="";NAVN$┆ 0x04260…04280 3a 3d 22 22 3b 46 4c 41 47 2c 46 4f 52 45 56 45 52 3a 3d 30 2b 24 30 32 37 30 20 49 4e 50 55 54 ┆:="";FLAG,FOREVER:=0+$0270 INPUT┆ 0x04280…042a0 20 22 49 4e 44 54 41 53 54 20 46 49 4c 4e 41 56 4e 3a 20 22 3a 4e 41 56 4e 24 24 3a 30 32 38 30 ┆ "INDTAST FILNAVN: ":NAVN$$:0280┆ 0x042a0…042c0 20 45 58 45 43 20 4b 4f 4e 56 45 52 54 4f 47 4d 4f 56 45 28 4e 41 56 4e 24 2c 31 2c 4e 41 56 4e ┆ EXEC KONVERTOGMOVE(NAVN$,1,NAVN┆ 0x042c0…042e0 46 52 41 24 2c 53 49 44 53 54 45 43 48 41 52 24 2c 46 4c 41 47 29 3a 47 30 32 39 30 20 49 46 20 ┆FRA$,SIDSTECHAR$,FLAG):G0290 IF ┆ 0x042e0…04300 4c 45 4e 28 4e 41 56 4e 46 52 41 24 29 3e 38 20 4f 52 20 4c 45 4e 28 4e 41 56 4e 46 52 41 24 29 ┆LEN(NAVNFRA$)>8 OR LEN(NAVNFRA$)┆ 0x04300…04320 (2, 0, 5) 3c 31 20 4f 52 20 4e 41 56 4e 24 28 39 29 3c 3e 22 22 20 54 48 45 4e 20 46 4c 41 47 3a 3d 31 47 ┆<1 OR NAVN$(9)<>"" THEN FLAG:=1G┆ 0x04320…04340 24 30 33 30 30 20 49 46 20 53 49 44 53 54 45 43 48 41 52 24 3d 22 3a 22 20 54 48 45 4e 20 46 4c ┆$0300 IF SIDSTECHAR$=":" THEN FL┆ 0x04340…04360 41 47 3a 3d 31 24 11 30 33 31 30 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 0f 30 33 32 30 20 54 ┆AG:=1$ 0310 UNTIL FLAG=0 0320 T┆ 0x04360…04380 59 50 45 24 3a 3d 22 4b 22 0f 23 30 33 33 30 20 45 44 49 54 20 22 42 20 46 4f 52 20 42 49 4e 5b ┆YPE$:="K" #0330 EDIT "B FOR BINÆ┆ 0x04380…043a0 52 20 46 49 4c 3a 20 22 3a 54 59 50 45 24 23 0c 30 33 34 30 20 52 45 50 45 41 54 20 0c 23 30 33 ┆R FIL: ":TYPE$# 0340 REPEAT #03┆ 0x043a0…043c0 35 30 20 4e 41 56 4e 24 3a 3d 22 22 3b 4e 41 56 4e 54 49 4c 24 3a 3d 22 22 3b 46 4c 41 47 3a 3d ┆50 NAVN$:="";NAVNTIL$:="";FLAG:=┆ 0x043c0…043e0 30 23 24 30 33 36 30 20 49 4e 50 55 54 20 22 45 56 54 20 4e 59 54 20 46 49 4c 4e 41 56 4e 3a 20 ┆0#$0360 INPUT "EVT NYT FILNAVN: ┆ 0x043e0…04400 22 3a 4e 41 56 4e 24 24 1a 30 33 37 30 20 49 46 20 4c 45 4e 28 4e 41 56 4e 24 29 3d 30 20 54 48 ┆":NAVN$$ 0370 IF LEN(NAVN$)=0 TH┆ 0x04400…04420 (2, 0, 6) 45 4e 20 1a 17 30 33 38 30 20 4e 41 56 4e 54 49 4c 24 3a 3d 4e 41 56 4e 46 52 41 24 17 0a 30 33 ┆EN 0380 NAVNTIL$:=NAVNFRA$ 03┆ 0x04420…04440 39 30 20 45 4c 53 45 20 0a 3a 30 34 30 30 20 45 58 45 43 20 4b 4f 4e 56 45 52 54 4f 47 4d 4f 56 ┆90 ELSE :0400 EXEC KONVERTOGMOV┆ 0x04440…04460 45 28 4e 41 56 4e 24 2c 31 2c 4e 41 56 4e 54 49 4c 24 2c 53 49 44 53 54 45 43 48 41 52 24 2c 46 ┆E(NAVN$,1,NAVNTIL$,SIDSTECHAR$,F┆ 0x04460…04480 4c 41 47 29 3a 47 30 34 31 30 20 49 46 20 4c 45 4e 28 4e 41 56 4e 54 49 4c 24 29 3e 38 20 4f 52 ┆LAG):G0410 IF LEN(NAVNTIL$)>8 OR┆ 0x04480…044a0 20 4c 45 4e 28 4e 41 56 4e 54 49 4c 24 29 3c 31 20 4f 52 20 4e 41 56 4e 24 28 39 29 3c 3e 22 22 ┆ LEN(NAVNTIL$)<1 OR NAVN$(9)<>""┆ 0x044a0…044c0 20 54 48 45 4e 20 46 4c 41 47 3a 3d 31 47 0b 30 34 32 30 20 45 4e 44 49 46 20 0b 11 30 34 33 30 ┆ THEN FLAG:=1G 0420 ENDIF 0430┆ 0x044c0…044e0 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 0e 30 34 34 30 20 45 58 45 43 20 43 4f 50 59 0e 12 30 ┆ UNTIL FLAG=0 0440 EXEC COPY 0┆ 0x044e0…04500 34 35 30 20 55 4e 54 49 4c 20 46 4f 52 45 56 45 52 12 0e 30 34 36 30 20 50 52 4f 43 20 43 4f 50 ┆450 UNTIL FOREVER 0460 PROC COP┆ 0x04500…04520 (2, 0, 7) 59 0e 1a 30 34 37 30 20 43 41 4c 4c 20 22 53 59 53 50 52 4f 47 3a 43 46 43 4f 50 59 22 1a 12 30 ┆Y 0470 CALL "SYSPROG:CFCOPY" 0┆ 0x04520…04540 34 38 30 20 49 46 20 46 4c 41 47 20 54 48 45 4e 20 12 2e 30 34 39 30 20 50 52 49 4e 54 20 22 46 ┆480 IF FLAG THEN .0490 PRINT "F┆ 0x04540…04560 43 4f 50 59 20 4d 49 53 4c 59 4b 4b 45 44 45 53 2e 20 46 45 4a 4c 4b 4f 44 45 20 22 3b 46 4c 41 ┆COPY MISLYKKEDES. FEJLKODE ";FLA┆ 0x04560…04580 47 2e 0a 30 35 30 30 20 53 54 4f 50 20 0a 0a 30 35 31 30 20 45 4c 53 45 20 0a 42 30 35 32 30 20 ┆G. 0500 STOP 0510 ELSE B0520 ┆ 0x04580…045a0 50 52 49 4e 54 20 4e 41 56 4e 46 52 41 24 3b 22 20 45 52 20 4b 4f 50 49 45 52 45 54 20 46 52 41 ┆PRINT NAVNFRA$;" ER KOPIERET FRA┆ 0x045a0…045c0 20 22 3b 44 52 45 56 46 52 41 24 3b 22 20 54 49 4c 20 22 3b 44 52 45 56 54 49 4c 24 3b 42 24 30 ┆ ";DREVFRA$;" TIL ";DREVTIL$;B$0┆ 0x045c0…045e0 35 33 30 20 50 52 49 4e 54 20 22 20 55 4e 44 45 52 20 4e 41 56 4e 45 54 20 22 3b 4e 41 56 4e 54 ┆530 PRINT " UNDER NAVNET ";NAVNT┆ 0x045e0…04600 49 4c 24 24 0b 30 35 34 30 20 45 4e 44 49 46 20 0b 11 30 35 35 30 20 45 4e 44 50 52 4f 43 20 43 ┆IL$$ 0540 ENDIF 0550 ENDPROC C┆ 0x04600…04620 (2, 0, 8) 4f 50 59 11 38 30 35 36 30 20 50 52 4f 43 20 4b 4f 4e 56 45 52 54 4f 47 4d 4f 56 45 28 4e 46 52 ┆OPY 80560 PROC KONVERTOGMOVE(NFR┆ 0x04620…04640 41 24 2c 49 2c 52 45 46 20 4e 54 49 4c 24 2c 52 45 46 20 43 48 24 2c 52 45 46 20 46 29 38 09 30 ┆A$,I,REF NTIL$,REF CH$,REF F)8 0┆ 0x04640…04660 35 37 30 20 59 3a 3d 31 09 0c 30 35 38 30 20 52 45 50 45 41 54 20 0c 12 30 35 39 30 20 43 48 24 ┆570 Y:=1 0580 REPEAT 0590 CH$┆ 0x04660…04680 3a 3d 4e 46 52 41 24 28 49 29 12 39 30 36 30 30 20 49 46 20 43 48 24 3d 3e 22 61 22 20 41 4e 44 ┆:=NFRA$(I) 90600 IF CH$=>"a" AND┆ 0x04680…046a0 20 43 48 24 3c 3d 22 7d 22 20 54 48 45 4e 20 43 48 24 3a 3d 43 48 52 24 28 4f 52 44 28 43 48 24 ┆ CH$<="å" THEN CH$:=CHR$(ORD(CH$┆ 0x046a0…046c0 29 2d 33 32 29 39 16 30 36 31 30 20 49 46 20 43 48 24 3c 3e 22 3a 22 20 54 48 45 4e 20 16 4b 30 ┆)-32)9 0610 IF CH$<>":" THEN K0┆ 0x046c0…046e0 36 32 30 20 49 46 20 28 43 48 24 3d 3e 22 30 22 20 41 4e 44 20 43 48 24 3c 3d 22 39 22 29 20 4f ┆620 IF (CH$=>"0" AND CH$<="9") O┆ 0x046e0…04700 52 20 28 43 48 24 3d 3e 22 41 22 20 41 4e 44 20 43 48 24 3c 3d 22 5d 22 29 20 4f 52 20 43 48 24 ┆R (CH$=>"A" AND CH$<="Å") OR CH$┆ 0x04700…04720 (2, 0, 9) 3d 22 5f 22 20 54 48 45 4e 20 4b 20 30 36 33 30 20 4e 54 49 4c 24 28 59 29 3a 3d 43 48 24 3b 59 ┆="_" THEN K 0630 NTIL$(Y):=CH$;Y┆ 0x04720…04740 3a 3d 59 2b 31 3b 49 3a 3d 49 2b 31 20 0a 30 36 34 30 20 45 4c 53 45 20 0a 15 30 36 35 30 20 49 ┆:=Y+1;I:=I+1 0640 ELSE 0650 I┆ 0x04740…04760 46 20 43 48 24 3c 3e 22 22 20 54 48 45 4e 20 15 09 30 36 36 30 20 46 3a 3d 31 09 1a 30 36 37 30 ┆F CH$<>"" THEN 0660 F:=1 0670┆ 0x04760…04780 20 45 58 49 54 20 2f 2f 20 55 4c 4f 56 4c 49 47 54 20 54 45 47 4e 1a 0b 30 36 38 30 20 45 4e 44 ┆ EXIT // ULOVLIGT TEGN 0680 END┆ 0x04780…047a0 49 46 20 0b 0b 30 36 39 30 20 45 4e 44 49 46 20 0b 0b 30 37 30 30 20 45 4e 44 49 46 20 0b 48 30 ┆IF 0690 ENDIF 0700 ENDIF H0┆ 0x047a0…047c0 37 31 30 20 55 4e 54 49 4c 20 59 3d 4c 45 4e 28 4e 46 52 41 24 29 2b 31 20 4f 52 20 43 48 24 3d ┆710 UNTIL Y=LEN(NFRA$)+1 OR CH$=┆ 0x047c0…047e0 22 3a 22 20 4f 52 20 43 48 24 3d 22 22 20 4f 52 20 4c 45 4e 28 4e 54 49 4c 24 29 3d 3e 39 20 4f ┆":" OR CH$="" OR LEN(NTIL$)=>9 O┆ 0x047e0…04800 52 20 49 3d 3e 31 38 48 1a 30 37 32 30 20 45 4e 44 50 52 4f 43 20 4b 4f 4e 56 45 52 54 4f 47 4d ┆R I=>18H 0720 ENDPROC KONVERTOGM┆ 0x04800…04820 (2, 0, 10) 4f 56 45 1a 00 00 20 20 20 20 20 4b 54 4c 4b 31 20 20 20 3b 48 4f 50 20 48 56 49 53 20 4a 41 23 ┆OVE KTLK1 ;HOP HVIS JA#┆ 0x04820…04840 20 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 4b 54 52 55 20 20 3b 48 56 41 44 20 4d 45 ┆ LXI H,KTRU ;HVAD ME┆ 0x04840…04860 44 20 1e 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 48 4c 44 45 43 20 20 20 3b 22 52 55 4e 22 ┆D CALL HLDEC ;"RUN"┆ 0x04860…04880 3f 1e 23 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 4b 54 4c 4b 31 20 20 20 3b 48 4f 50 20 48 ┆? # JZ KTLK1 ;HOP H┆ 0x04880…048a0 56 49 53 20 4a 41 23 1d 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 48 2c 4b 54 43 4c 20 20 3b ┆VIS JA# LXI H,KTCL ;┆ 0x048a0…048c0 22 4e 45 57 22 1d 19 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 48 4c 44 45 43 20 20 20 3b 3f ┆"NEW" CALL HLDEC ;?┆ 0x048c0…048e0 19 30 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 20 48 45 4e 54 20 ┆ 0 POP H ; HENT ┆ 0x048e0…04900 46 5c 52 53 54 45 20 49 4b 4b 45 2d 42 4c 41 4e 4b 45 30 26 20 20 20 20 20 20 20 50 55 53 48 20 ┆FØRSTE IKKE-BLANKE0& PUSH ┆ 0x04900…04920 (2, 0, 11) 20 20 20 48 20 20 20 20 20 20 20 3b 20 52 45 54 41 42 4c 45 52 20 53 54 41 4b 26 3b 20 20 20 20 ┆ H ; RETABLER STAK&; ┆ 0x04920…04940 20 20 20 4a 4e 5a 20 20 20 20 20 46 45 33 37 20 20 20 20 3b 4b 55 4e 20 43 41 54 2c 20 4c 4f 41 ┆ JNZ FE37 ;KUN CAT, LOA┆ 0x04940…04960 44 2c 20 4e 45 57 2c 20 52 55 4e 20 54 49 4c 4c 41 44 54 20 48 45 52 3b 06 4b 54 4c 4b 31 3a 06 ┆D, NEW, RUN TILLADT HER; KTLK1: ┆ 0x04960…04980 1e 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 41 46 53 54 41 4b 1e ┆ POP D ;AFSTAK ┆ 0x04980…049a0 20 20 20 20 20 20 20 20 50 4f 50 20 20 20 20 20 48 20 20 20 20 20 20 20 3b 52 45 47 49 53 54 52 ┆ POP H ;REGISTR┆ 0x049a0…049c0 45 20 35 20 20 20 20 20 20 20 52 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 45 4b 53 45 4b ┆E 5 RET ;EKSEK┆ 0x049c0…049e0 56 45 52 20 4c 4f 41 44 2c 20 43 41 54 2c 20 45 4c 4c 45 52 20 52 55 4e 35 01 3b 01 18 20 20 20 ┆VER LOAD, CAT, ELLER RUN5 ; ┆ 0x049e0…04a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 18 2e 4b 54 41 50 3a 20 20 20 00 ┆ ; .KTAP: ┆ 0x04a00…04a20 (2, 0, 12) ExtentHdr {name=»GETDR «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,00 (0x005000)}, f04=» «, postl=0x0005, f99=» «} 0x04a20…04f00 Extent[0x4e0] 0x04f00…04f20 (2, 1, 1) ExtentHdr {name=»COMP «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,05 (0x005500)}, f04=» «, postl=0x0005, f99=» «} 0x04f20…05400 Extent[0x4e0] 0x05400…05420 (2, 1, 6) ExtentHdr {name=»CPCOP «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,0a (0x005a00)}, f04=» «, postl=0x0005, f99=» «} 0x05420…05900 Extent[0x4e0] 0x05900…05920 (2, 1, 11) ExtentHdr {name=»CPCOP «, typ=»0«, seg=»A«, next=0x00, basis=0x000f, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,09 (0x006900)}, f04=» «, postl=0x0001, f99=» «} 0x05920…06800 Extent[0xee0] 0x06800…06820 (3, 0, 10) ExtentHdr {name=»COMPR80 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,03 (0x007300)}, f04=»A «, postl=0x00ff, f99=» «} 0x06820…07200 Extent[0x9e0] 0x07200…07220 (3, 1, 4) ExtentHdr {name=»PCOPY80 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,0d (0x007d00)}, f04=» «, postl=0x00ff, f99=» «} 0x07220…07c00 Extent[0x9e0] 0x07c00…07c20 (3, 1, 14) ExtentHdr {name=»OMDØB «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,02 (0x008200)}, f04=»A «, postl=0x0005, f99=» «} 0x07c20…08100 Extent[0x4e0] 0x08100…08120 (4, 0, 3) ExtentHdr {name=»OMDØB «, typ=»0«, seg=»A«, next=0x00, basis=0x000f, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,01 (0x009100)}, f04=» «, postl=0x0001, f99=» «} 0x08120…09000 Extent[0xee0] 0x09000…09020 (4, 1, 2) ExtentHdr {name=»INITLI80«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,0b (0x009b00)}, f04=» «, postl=0x00ff, f99=» «} 0x09020…09a00 Extent[0x9e0] 0x09a00…09a20 (4, 1, 12) ExtentHdr {name=»PURGE «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000a,00 (0x00a000)}, f04=» «, postl=0x0005, f99=» «} 0x09a20…09f00 Extent[0x4e0] 0x09f00…09f20 (5, 0, 1) ExtentHdr {name=»HELP «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000a,05 (0x00a500)}, f04=» «, postl=0x0005, f99=» «} 0x09f20…0a400 Extent[0x4e0] 0x0a400…0a420 (5, 0, 6) ExtentHdr {name=»COMAL80 «, typ=»1«, seg=»A«, next=0x00, basis=0x0055, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,0a (0x00fa00)}, f04=» «, postl=0x0001, f99=» «} 0x0a420…0f900 Extent[0x54e0] 0x0f900…0f920 (7, 1, 11) ExtentHdr {name=»GETPR «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,0f (0x00ff00)}, f04=» «, postl=0x0005, f99=» «} 0x0f920…0fe00 Extent[0x4e0] 0x0fe00…0fe20 (7, 1, 16) ExtentHdr {name=»PURGE80 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,09 (0x010900)}, f04=» «, postl=0x00ff, f99=» «} 0x0fe20…10800 Extent[0x9e0] 0x10800…10820 (8, 0, 10) ExtentHdr {name=»KOPIP «, typ=»R«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0011,03 (0x011300)}, f04=» «, postl=0x0005, f99=» «} 0x10820…11200 Extent[0x9e0] 0x11200…11220 (8, 1, 4) ExtentHdr {name=»RENAM «, typ=»R«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0011,0d (0x011d00)}, f04=» «, postl=0x0005, f99=» «} 0x11220…11c00 Extent[0x9e0] 0x11c00…11c20 (8, 1, 14) ExtentHdr {name=»RENAME80«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,07 (0x012700)}, f04=» «, postl=0x00ff, f99=» «} 0x11c20…12600 Extent[0x9e0] 0x12600…12620 (9, 0, 8) ExtentHdr {name=»PERGE «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,0c (0x012c00)}, f04=»A «, postl=0x0005, f99=» «} 0x12620…12b00 Extent[0x4e0] 0x12b00…12b20 (9, 0, 13) ExtentHdr {name=»KOMPNM «, typ=»0«, seg=»A«, next=0x00, basis=0x000f, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0013,0b (0x013b00)}, f04=»A «, postl=0x0001, f99=» «} 0x12b20…13a00 Extent[0xee0] 0x13a00…13a20 (9, 1, 12) ExtentHdr {name=»PERGE «, typ=»0«, seg=»A«, next=0x00, basis=0x000f, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0014,0a (0x014a00)}, f04=»* «, postl=0x0001, f99=»NVD «} 0x13a20…14900 Extent[0xee0] 0x14900…14920 (10, 0, 11) ExtentHdr {name=»CREXT «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0014,0f (0x014f00)}, f04=»A «, postl=0x0005, f99=»ICLR «} 0x14920…14e00 Extent[0x4e0] 0x14e00…14e20 (10, 0, 16) ExtentHdr {name=»LABEL «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,04 (0x015400)}, f04=»A «, postl=0x0005, f99=»TPRC «} 0x14e20…15300 Extent[0x4e0] 0x15300…15320 (10, 1, 5) ExtentHdr {name=»GETFN «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0015,09 (0x015900)}, f04=»* «, postl=0x0005, f99=»ETFN «} 0x15320…15800 Extent[0x4e0] 0x15800…15820 (10, 1, 10) ExtentHdr {name=»KOMPNM «, typ=»R«, seg=»A«, next=0x00, basis=0x000f, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,08 (0x016800)}, f04=»A «, postl=0x0005, f99=» «} 0x15820…16700 Extent[0xee0] 0x16700…16720 (11, 0, 9) ExtentHdr {name=»READV «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,0d (0x016d00)}, f04=»*Æ «, postl=0x0005, f99=»EADV «} 0x16720…16c00 Extent[0x4e0] 0x16c00…16c20 (11, 0, 14) ExtentHdr {name=»CFCOPY «, typ=»0«, seg=»A«, next=0x00, basis=0x0023, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,00 (0x019000)}, f04=»A «, postl=0x0001, f99=» «} 0x16c20…18f00 Extent[0x22e0] 0x18f00…18f20 (12, 1, 1) ExtentHdr {name=»RESDI «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,05 (0x019500)}, f04=»* «, postl=0x0005, f99=»ESDI «} 0x18f20…19400 Extent[0x4e0] 0x19400…19420 (12, 1, 6) ExtentHdr {name=»COASM «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,0a (0x019a00)}, f04=»* «, postl=0x0005, f99=»OASM «} 0x19420…19900 Extent[0x4e0] 0x19900…19920 (12, 1, 11) ExtentHdr {name=»CCOPY «, typ=»R«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001a,04 (0x01a400)}, f04=»* «, postl=0x0005, f99=»IVPS «} 0x19920…1a300 Extent[0x9e0] 0x1a300…1a320 (13, 0, 5) ExtentHdr {name=»CREAT «, typ=»R«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001a,0e (0x01ae00)}, f04=»* «, postl=0x0005, f99=»REAT «} 0x1a320…1ad00 Extent[0x9e0] 0x1ad00…1ad20 (13, 0, 15) ExtentHdr {name=»PLINC «, typ=»R«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001b,08 (0x01b800)}, f04=»* «, postl=0x0005, f99=»SQMD «} 0x1ad20…1b700 Extent[0x9e0] 0x1b700…1b720 (13, 1, 9) ExtentHdr {name=»PLINC «, typ=»0«, seg=»A«, next=0x00, basis=0x0010, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,08 (0x01c800)}, f04=»A «, postl=0x0001, f99=» «} 0x1b720…1c700 Extent[0xfe0] 0x1c700…1c720 (14, 0, 9) ExtentHdr {name=»CFCOPY «, typ=»R«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,0d (0x01cd00)}, f04=»A «, postl=0x0005, f99=»FCOPY«} 0x1c720…1cc00 Extent[0x4e0] 0x1cc00…1cc20 (14, 0, 14) ExtentHdr {name=»DDEANSYS«, typ=»0«, seg=»A«, next=0x00, basis=0x007c, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,09 (0x024900)}, f04=»*g «, postl=0x0001, f99=»LADR «} 0x1cc20…24800 Extent[0x7be0] 0x24800…24820 (18, 0, 10) ExtentHdr {name=»LOAD2 «, typ=»0«, seg=»A«, next=0x00, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0025,01 (0x025100)}, f04=»* «, postl=0x0001, f99=»OAD2 «} 0x24820…25000 Extent[0x7e0] 0x25000…25020 (18, 1, 2) ExtentHdr {name=»MIKM «, typ=»0«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0026,04 (0x026400)}, f04=»A «, postl=0x0001, f99=»IKM «} 0x25020…26300 Extent[0x12e0] 0x26300…26320 (19, 0, 5) ExtentHdr {name=» IKM «, typ=»0«, seg=»A«, next=0x00, basis=0x0013, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0000,00 (0x000000)}, f04=»A «, postl=0x0001, f99=»IKM «} 0x26320…27600 Extent[0x12e0] 0x27600…27620 (19, 1, 8) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ […0xf47…] 0x45f00…45f20 (35, 0, 1) 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆ […0x4ff…]