|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics
Length: 1177344 (0x11f700)
Description: Bits:30005751 SW1323/I8 RC703 Facility for UCSD Pascal rel. 1.0
Types: 8" Floppy Disk, ImdContainer
Dumping the first 0x20 bytes of each record
0x000000…000080 (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 ┆ ┆
[…0x34…]
0x002900…002b00 (1, 0, 2) 65 67 69 6e 20 67 65 74 28 64 61 66 69 6c d7 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e ┆egin get(dafil ┆
0x002b00…002d00 (1, 0, 3) 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 ┆ ┆
0x002d00…002f00 (1, 0, 4) 01 b9 f6 a5 a6 ad d7 a6 03 69 78 78 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 a5 a6 ┆ ixx ┆
0x002f00…003100 (1, 0, 5) 00 00 06 00 00 00 03 46 41 43 00 00 00 00 2e 02 0e 00 00 00 56 a7 00 00 00 00 06 00 1a 00 02 00 ┆ FAC . V ┆
0x003100…003300 (1, 0, 6) 0d 72 65 77 72 69 74 65 28 64 61 66 69 6c 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 ┆ rewrite(dafil ┆
0x003300…003500 (1, 0, 7) 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 ┆ ┆
0x003500…003700 (1, 0, 8) ad dc a2 83 b3 00 cd 00 13 9e 00 a5 a6 ad d7 a6 07 3a 3d 64 61 66 69 6c 00 cd 00 13 9e 00 a5 a6 ┆ :=dafil ┆
0x003700…003900 (1, 0, 9) 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 ┆ ┆
0x003900…003b00 (1, 0, 10) 0d 9e 00 b9 f0 a5 a6 ad d7 a6 03 6b 65 79 00 cd 00 13 9e 00 a5 a6 ad d9 00 cd 00 0d 9e 00 a5 a6 ┆ key ┆
0x003b00…003d00 (1, 0, 11) 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 ┆ ┆
0x003d00…003f00 (1, 0, 12) ec a5 a6 ad d7 a6 04 65 6e 64 3b 00 cd 00 13 9e 00 a5 a6 ad cd 00 16 9e 00 ad 00 65 1b 00 51 04 ┆ end; e Q ┆
0x003f00…004100 (1, 0, 13) 00 00 00 00 06 00 f0 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004100…004300 (1, 0, 14) ad cd 00 16 9e 00 01 cc 02 a9 81 7b cc 03 d9 da c8 a1 ee a5 81 7c d9 01 0a 88 01 95 a4 83 b8 cc ┆ æ ø ┆
0x004300…004500 (1, 0, 15) a9 aa 9f a5 80 03 00 00 cd 00 0a 93 84 a1 63 a5 80 03 a5 aa 65 50 cd 00 12 9e 00 a5 80 03 cd 00 ┆ c eP ┆
0x004500…004700 (1, 1, 1) 0d 9e 00 a5 a6 ad d7 a6 0a 5d 20 6f 66 20 70 61 69 72 74 00 cd 00 13 9e 00 a5 a6 ad d9 00 cd 00 ┆ Å of pairt ┆
0x004700…004900 (1, 1, 2) c6 05 d9 50 cd 00 17 c6 05 a5 aa 65 c6 80 85 a9 aa 9e 01 cd 00 19 c6 80 85 c7 a0 00 cd 00 17 c6 ┆ P e ┆
0x004900…004b00 (1, 1, 3) 00 00 15 00 76 04 0a 01 c6 2d da aa 50 c6 04 d9 aa 50 c6 04 d7 a6 00 b7 04 a1 e4 a5 a7 da c6 2d ┆ v - P P -┆
0x004b00…004d00 (1, 1, 4) e2 a2 09 af 04 ab aa 9f c6 03 cf 04 c6 03 3a af 04 ab aa 9f e2 a2 01 0f cf 05 df 01 82 cc 08 b9 ┆ : ┆
0x004d00…004f00 (1, 1, 5) 79 73 66 69 6c 2c 27 d7 00 cd 00 13 a5 a6 ad a5 81 6e 00 cd 00 13 a5 a6 ad a6 03 27 29 3b d7 00 ┆ysfil,' n '); ┆
0x004f00…005100 (1, 1, 6) 0b 01 d8 cc 07 cf 02 a6 07 75 6e 69 74 76 6f 6c d7 cf 06 de a2 38 08 cf 05 cf 02 c6 02 cf 04 c6 ┆ unitvol 8 ┆
0x005100…005300 (1, 1, 7) a9 07 cc 05 dc db a2 0a aa 08 dc a2 0c 00 9a dc a2 0b db a3 11 9a dc a2 0a 00 9a dc a2 09 a5 aa ┆ ┆
0x005300…005500 (1, 1, 8) 3f 00 0c 00 04 00 09 00 54 00 0e 01 a5 aa 8e b3 04 cf ff 03 00 00 00 00 00 00 04 a0 10 bd 10 a5 ┆? T ┆
0x005500…005700 (1, 1, 9) 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 ┆ ┆
0x005700…005900 (1, 1, 10) da b9 0a 3e cc 01 b9 10 3c cc 01 b9 0b ac 00 00 01 00 b9 04 11 00 0e 00 ad 01 00 00 06 00 06 00 ┆ > < ┆
0x005900…005b00 (1, 1, 11) 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 ┆ ┆
0x005b00…005d00 (1, 1, 12) 6d 65 29 3b d7 00 cd 00 13 9e 00 a5 a6 ad cd 00 16 9e 00 a5 a6 ad d8 a2 83 b3 00 cd 00 13 9e 00 ┆me); ┆
0x005d00…005f00 (1, 1, 13) 28 2a 24 53 2b 2a 29 0d 40 30 38 0d 69 6e 74 65 72 66 61 63 65 0d 20 20 40 30 34 0d 20 20 74 79 ┆(*$S+*) @08 interface @04 ty┆
0x005f00…006100 (1, 1, 14) 00 cd 00 13 9e 00 a5 a6 ad 3b 00 cd 00 11 9e 00 a5 a6 ad cd 00 16 9e 00 a5 a6 ad a6 0a 70 75 74 ┆ ; put┆
0x006100…006300 (1, 1, 15) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 ┆ fill:integer; ┆
0x006300…006500 (2, 0, 1) 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 70 6c 61 63 65 69 73 71 28 69 73 71 6e 61 6d 65 ┆ procedure replaceisq(isqname┆
0x006500…006700 (2, 0, 2) 20 20 20 20 20 67 65 74 28 73 79 73 66 69 6c 29 3b 0d 20 20 20 20 20 20 20 20 20 20 73 79 73 5b ┆ get(sysfil); sysÆ┆
0x006700…006900 (2, 0, 3) 20 20 69 78 78 70 72 74 2c 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 ┆ ixxprt, ixprt┆
0x006900…006b00 (2, 0, 4) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 6f 70 65 6e 69 73 71 66 69 6c 3b 0d ┆ begin openisqfil; ┆
0x006b00…006d00 (2, 0, 5) 20 20 20 69 73 71 72 65 73 3a 69 73 71 65 72 72 6f 72 73 3b 0d 20 20 20 64 6f 74 72 61 70 3a 62 ┆ isqres:isqerrors; dotrap:b┆
0x006d00…006f00 (2, 0, 6) 69 6c 65 6f 70 65 6e 29 0d 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 ┆ileopen) else ┆
0x006f00…007100 (2, 0, 7) 73 71 5d 20 64 6f 0d 20 20 20 20 20 20 40 31 36 0d 20 20 65 6e 64 20 28 2a 69 78 74 6f 6b 65 79 ┆sqÅ do @16 end (*ixtokey┆
0x007100…007300 (2, 0, 8) 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 69 66 20 28 73 74 61 74 75 73 3c 3e 61 ┆ else if (status<>a┆
0x007300…007500 (2, 0, 9) 20 20 65 6e 64 20 28 2a 62 6c 6f 63 6b 70 72 74 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 73 65 ┆ end (*blockprt*); procedure se┆
0x007500…007700 (2, 0, 10) 75 5b 69 73 71 5d 2e 66 79 73 6e 72 29 3b 0d 20 20 20 20 20 20 20 20 73 79 73 66 69 6c 5e 3a 3d ┆uÆisqÅ.fysnr); sysfil^:=┆
0x007700…007900 (2, 0, 11) 64 20 28 2a 72 65 73 64 61 74 61 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 63 6c 73 64 61 74 61 ┆d (*resdata*); procedure clsdata┆
0x007900…007b00 (2, 0, 12) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 69 66 20 69 78 70 72 74 3c 61 6e 74 ┆ begin if ixprt<ant┆
0x007b00…007d00 (2, 0, 13) 20 20 20 20 20 20 40 33 31 0d 20 20 65 6e 64 20 28 2a 67 65 74 62 6c 6f 63 6b 2a 29 3b 0d 70 72 ┆ @31 end (*getblock*); pr┆
0x007d00…007f00 (2, 0, 14) 20 20 20 20 20 20 6f 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 ┆ outrec; end ┆
0x007f00…008100 (2, 0, 15) 20 20 73 65 65 6b 62 6c 6f 63 6b 28 30 29 3b 0d 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 ┆ seekblock(0); getblock; ┆
0x008100…008300 (2, 1, 1) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 73 65 65 6b 72 65 63 28 72 65 63 70 ┆ begin seekrec(recp┆
0x008300…008500 (2, 1, 2) 20 20 20 20 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 69 6e 62 6c 6f 63 ┆ getblock; inbloc┆
0x008500…008700 (2, 1, 3) 6c 65 65 6d 74 79 29 0d 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆leemty) else error┆
0x008700…008900 (2, 1, 4) 6f 63 6b 3b 0d 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 66 6f 72 20 69 ┆ock; putblock; for i┆
0x008900…008b00 (2, 1, 5) 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 62 6c 6f 63 6b 73 20 3c 6d 61 78 62 6c 6f ┆ if antalblocks <maxblo┆
0x008b00…008d00 (2, 1, 6) 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 65 6e 64 20 28 2a 73 70 6c 69 74 62 6c ┆ end (*with*) end (*splitbl┆
0x008d00…008f00 (2, 1, 7) 0d 20 20 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 6b 6e 75 6d 29 ┆ seekblock(blocknum)┆
0x008f00…009100 (2, 1, 8) 28 27 69 6e 69 74 27 29 3b 0d 20 20 20 20 20 20 20 20 6e 6f 74 69 6e 69 74 20 3a 20 77 72 69 74 ┆('init'); notinit : writ┆
0x009100…009300 (2, 1, 9) 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6f 76 65 72 66 6c 6f 77 29 0d 20 20 20 20 ┆ error(overflow) ┆
0x009300…009500 (2, 1, 10) 20 20 20 20 20 20 64 6f 74 72 61 70 20 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 63 6c 6f 73 ┆ dotrap :=false; clos┆
0x009500…009700 (2, 1, 11) 66 69 6e 64 3b 0d 20 20 20 20 20 20 69 66 20 6d 61 74 63 68 20 74 68 65 6e 0d 20 20 20 20 20 20 ┆find; if match then ┆
0x009700…009900 (2, 1, 12) 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 63 68 61 6e 67 65 74 72 ┆n isq:=isqname; changetr┆
0x009900…009b00 (2, 1, 13) 20 20 20 20 20 20 20 20 20 20 20 69 78 74 6f 6b 65 79 3b 0d 20 20 20 20 20 20 20 20 20 20 20 6b ┆ ixtokey; k┆
0x009b00…009d00 (2, 1, 14) 20 20 20 20 20 20 6c 6f 63 6f 6b 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 77 68 69 6c 65 20 ┆ locok:=false; while ┆
0x009d00…009f00 (2, 1, 15) 66 20 73 79 73 69 6e 69 74 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 69 66 20 73 74 61 74 75 ┆f sysinit then if statu┆
0x009f00…00a100 (3, 0, 1) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 69 66 20 63 6d 70 3d 30 20 74 68 65 ┆ begin if cmp=0 the┆
0x00a100…00a300 (3, 0, 2) 20 20 40 32 39 0d 20 20 65 6e 64 20 28 2a 72 65 77 64 61 74 61 2a 29 3b 0d 70 72 6f 63 65 64 75 ┆ @29 end (*rewdata*); procedu┆
0x00a300…00a500 (3, 0, 3) 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 31 3b 0d ┆ begin ixxprt:=1; ┆
0x00a500…00a700 (3, 0, 4) 20 20 20 20 20 20 40 33 31 0d 20 20 65 6e 64 20 28 2a 67 65 74 62 6c 6f 63 6b 2a 29 3b 0d 70 72 ┆ @31 end (*getblock*); pr┆
0x00a700…00a900 (3, 0, 5) 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 66 69 6c 65 63 6c 6f 73 65 64 29 0d 20 20 20 ┆ error (fileclosed) ┆
0x00a900…00ab00 (3, 0, 6) 20 20 73 65 65 6b 62 6c 6f 63 6b 28 30 29 3b 0d 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 ┆ seekblock(0); getblock; ┆
0x00ab00…00ad00 (3, 0, 7) 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 74 61 3a 3d 62 6c 6f 63 6b 73 69 7a ┆; beta:=blocksiz┆
0x00ad00…00af00 (3, 0, 8) 20 20 20 20 40 34 32 0d 20 20 65 6e 64 20 28 2a 64 65 6c 77 72 6b 66 69 6c 65 2a 29 3b 0d 70 72 ┆ @42 end (*delwrkfile*); pr┆
0x00af00…00b100 (3, 0, 9) 20 20 0d 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 ┆ ┆
0x00b100…00b300 (3, 0, 10) 77 72 69 74 65 28 27 6e 6f 73 70 61 63 65 27 29 3b 0d 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c ┆write('nospace'); overfl┆
0x00b300…00b500 (3, 0, 11) 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 ┆ ┆
0x00b500…00b700 (3, 0, 12) 20 20 20 20 20 20 20 20 65 6f 66 69 6c 65 20 3a 20 77 72 69 74 65 20 28 27 65 6f 66 69 6c 65 27 ┆ eofile : write ('eofile'┆
0x00b700…00b900 (3, 0, 13) 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 ┆ ┆
0x00b900…00bb00 (3, 0, 14) 3a 3d 73 77 69 74 63 68 3b 0d 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 6f 6b 0d 20 ┆:=switch; isqres:=ok ┆
0x00bb00…00bd00 (3, 0, 15) 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 ┆ ┆
0x00bd00…00bf00 (3, 1, 1) 20 20 70 72 6f 63 65 64 75 72 65 20 6c 6f 63 61 74 65 28 73 79 73 6e 61 76 6e 3a 73 74 72 69 6e ┆ procedure locate(sysnavn:strin┆
0x00bf00…00c100 (3, 1, 2) 28 2a 24 53 2b 2a 29 0d 40 30 38 0d 69 6e 74 65 72 66 61 63 65 0d 20 20 40 30 34 0d 20 20 74 79 ┆(*$S+*) @08 interface @04 ty┆
0x00c100…00c300 (3, 1, 3) 72 61 70 3a 3d 74 72 75 65 3b 0d 20 20 20 20 20 20 73 79 73 69 6e 69 74 3a 3d 6c 6f 63 6f 6b 3b ┆rap:=true; sysinit:=locok;┆
0x00c300…00c500 (3, 1, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 ┆ fill:integer; ┆
0x00c500…00c700 (3, 1, 5) 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 66 69 6c 65 6e ┆ else isqres:=filen┆
0x00c700…00c900 (3, 1, 6) 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 69 73 71 28 69 73 71 6e 61 6d 65 3a 69 73 ┆ procedure openisq(isqname:is┆
0x00c900…00cb00 (3, 1, 7) 65 73 3a 3d 6f 6b 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d ┆es:=ok end else ┆
0x00cb00…00cd00 (3, 1, 8) 74 75 74 79 70 65 3d 72 65 63 6f 72 64 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆tutype=record f┆
0x00cd00…00cf00 (3, 1, 9) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 70 75 74 69 78 78 3b 0d 20 20 20 20 ┆ begin putixx; ┆
0x00cf00…00d100 (3, 1, 10) 20 20 20 73 79 73 3a 61 72 72 61 79 20 5b 69 73 71 6e 61 6d 65 73 5d 20 6f 66 20 73 79 73 72 65 ┆ sys:array ÆisqnamesÅ of sysre┆
0x00d100…00d300 (3, 1, 11) 2e 73 74 61 74 75 73 20 6f 66 0d 20 20 20 20 20 20 20 20 20 20 61 66 74 65 72 6f 70 65 6e 20 3a ┆.status of afteropen :┆
0x00d300…00d500 (3, 1, 12) 20 69 78 74 6f 6b 65 79 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 74 68 20 73 69 74 75 5b ┆ ixtokey; begin with situÆ┆
0x00d500…00d700 (3, 1, 13) 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 75 70 64 61 74 65 65 72 72 6f 72 29 0d 20 20 20 20 65 ┆ error(updateerror) e┆
0x00d700…00d900 (3, 1, 14) 20 20 65 6e 64 20 28 2a 73 65 74 62 6c 6f 63 6b 70 72 74 2a 29 3b 0d 66 75 6e 63 74 69 6f 6e 20 ┆ end (*setblockprt*); function ┆
0x00d900…00db00 (3, 1, 15) 78 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 74 72 65 63 70 72 74 28 61 6e 74 61 6c 72 65 63 73 ┆x; setrecprt(antalrecs┆
0x00db00…00dd00 (4, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 69 78 78 70 72 74 2b 31 3b 0d 20 20 ┆ ixxprt:=ixxprt+1; ┆
0x00dd00…00df00 (4, 0, 2) 72 6f 72 20 28 65 6f 66 69 6c 65 29 0d 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 ┆ror (eofile) end; ┆
0x00df00…00e100 (4, 0, 3) 0d 20 20 76 61 72 0d 20 20 20 20 69 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 73 70 61 63 65 3a ┆ var i:integer; space:┆
0x00e100…00e300 (4, 0, 4) 20 20 65 6e 64 20 28 2a 69 73 71 72 65 73 75 6c 74 2a 29 3b 0d 66 75 6e 63 74 69 6f 6e 20 73 79 ┆ end (*isqresult*); function sy┆
0x00e300…00e500 (4, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x00e500…00e700 (4, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 76 61 6c 69 73 71 3a 3d 61 6c 66 61 20 ┆ sysvalisq:=alfa ┆
0x00e700…00e900 (4, 0, 7) 20 70 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 61 63 65 3a 3d ┆ putrec; space:=┆
0x00e900…00eb00 (4, 0, 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 ┆ ┆
0x00eb00…00ed00 (4, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 20 20 ┆ end ┆
0x00ed00…00ef00 (4, 0, 10) 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 ┆ ┆
0x00ef00…00f100 (4, 0, 11) 61 74 75 73 3c 3e 61 66 74 65 72 63 6c 6f 73 65 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 ┆atus<>afterclose then ┆
0x00f100…00f300 (4, 0, 12) 28 2a 24 53 2b 2a 29 0d 40 30 38 0d 69 6e 74 65 72 66 61 63 65 0d 20 20 40 30 34 0d 20 20 74 79 ┆(*$S+*) @08 interface @04 ty┆
0x00f300…00f500 (4, 0, 13) 20 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 20 20 6b 65 ┆ putblock; ke┆
0x00f500…00f700 (4, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 ┆ fill:integer; ┆
0x00f700…00f900 (4, 0, 15) 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 ┆ else error (sysnot┆
0x00f900…00fb00 (4, 1, 1) 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 69 73 71 28 69 73 71 6e 61 6d 65 3a 69 73 ┆ procedure openisq(isqname:is┆
0x00fb00…00fd00 (4, 1, 2) 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 ┆ begin init┆
0x00fd00…00ff00 (4, 1, 3) 6e 61 6d 65 73 3b 65 72 72 6f 72 63 6f 64 65 3a 69 73 71 65 72 72 6f 72 73 29 3b 0d 20 20 20 20 ┆names;errorcode:isqerrors); ┆
0x00ff00…010100 (4, 1, 4) 73 65 71 3b 0d 20 20 76 61 72 0d 20 20 20 20 62 65 66 6f 72 65 2c 20 62 61 64 3a 62 6f 6f 6c 65 ┆seq; var before, bad:boole┆
0x010100…010300 (4, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 72 65 63 3a 69 6e 74 65 67 65 72 ┆ nextrec:integer┆
0x010300…010500 (4, 1, 6) 20 20 20 20 20 20 20 20 20 20 62 61 64 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 20 20 ┆ bad:=false; ┆
0x010500…010700 (4, 1, 7) 20 40 31 31 0d 20 20 65 6e 64 20 28 2a 69 6e 72 65 63 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 ┆ @11 end (*inrec*); procedure ┆
0x010700…010900 (4, 1, 8) 0d 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 69 6e 69 74 29 0d 20 20 20 ┆ error (sysnotinit) ┆
0x010900…010b00 (4, 1, 9) 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 74 68 20 73 69 74 75 5b 69 73 71 5d 20 64 6f 0d 20 20 ┆ begin with situÆisqÅ do ┆
0x010b00…010d00 (4, 1, 10) 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 62 6c 6f 63 6b 73 ┆ for i:=1 to maxblocks┆
0x010d00…010f00 (4, 1, 11) 5d 20 64 6f 0d 20 20 20 20 20 20 40 32 34 0d 20 20 65 6e 64 20 28 2a 73 65 74 72 65 63 70 72 74 ┆Å do @24 end (*setrecprt┆
0x010f00…011100 (4, 1, 12) 20 20 20 20 66 69 6e 69 73 71 28 69 73 71 29 3b 0d 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 ┆ finisq(isq); if i┆
0x011100…011300 (4, 1, 13) 20 20 62 65 67 69 6e 0d 20 20 20 20 40 33 30 0d 20 20 65 6e 64 20 28 2a 63 6c 73 64 61 74 61 2a ┆ begin @30 end (*clsdata*┆
0x011300…011500 (4, 1, 14) 20 20 20 65 6e 64 20 28 2a 72 65 6f 72 67 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 67 ┆ end (*reorgisq*); procedure g┆
0x011500…011700 (4, 1, 15) 75 5b 69 73 71 5d 2e 62 6c 6f 63 6b 6e 75 6d 3a 3d 69 6e 64 65 78 3b 0d 20 20 20 20 40 33 33 0d ┆uÆisqÅ.blocknum:=index; @33 ┆
0x011700…011900 (5, 0, 1) 20 20 65 6e 64 20 28 2a 67 65 74 69 78 78 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 70 75 74 69 ┆ end (*getixx*); procedure puti┆
0x011900…011b00 (5, 0, 2) 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 74 6f 69 78 78 3b 0d 20 20 20 20 20 20 20 20 ┆; keytoixx; ┆
0x011b00…011d00 (5, 0, 3) 65 79 73 29 3b 0d 20 20 20 20 20 20 65 6e 64 6f 66 66 69 6c 65 3a 3d 28 63 6d 70 3e 30 29 3b 0d ┆eys); endoffile:=(cmp>0); ┆
0x011d00…011f00 (5, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ else i┆
0x011f00…012100 (5, 0, 5) 20 20 20 20 20 20 20 20 6d 6f 76 69 78 78 28 69 2b 31 2c 69 29 3b 0d 20 20 20 20 20 20 61 6e 74 ┆ movixx(i+1,i); ant┆
0x012100…012300 (5, 0, 6) 20 20 20 20 20 69 66 20 69 6f 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 ┆ if ioresult=0 then ┆
0x012300…012500 (5, 0, 7) 20 63 6c 73 73 65 71 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 40 34 31 0d 20 20 65 6e 64 20 28 ┆ clsseq; begin @41 end (┆
0x012500…012700 (5, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x012700…012900 (5, 0, 9) 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 20 77 72 69 74 65 28 27 ┆ begin writeln; write('┆
0x012900…012b00 (5, 0, 10) 6f 63 6b 73 3a 3d 30 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 70 ┆ocks:=0; ixp┆
0x012b00…012d00 (5, 0, 11) 72 69 74 65 20 28 27 66 69 6c 65 6f 70 65 6e 27 29 3b 0d 20 20 20 20 20 20 20 20 66 69 6c 65 63 ┆rite ('fileopen'); filec┆
0x012d00…012f00 (5, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ end else┆
0x012f00…013100 (5, 0, 13) 20 20 62 65 67 69 6e 0d 20 20 20 20 69 66 20 73 79 73 69 6e 69 74 20 74 68 65 6e 0d 20 20 20 20 ┆ begin if sysinit then ┆
0x013100…013300 (5, 0, 14) 31 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 61 ┆1 then begin a┆
0x013300…013500 (5, 0, 15) 65 29 0d 20 20 65 6e 64 20 28 2a 74 72 61 70 6f 66 66 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 ┆e) end (*trapoffisq*); procedu┆
0x013500…013700 (5, 1, 1) 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 62 6c 61 6e 6b 65 6e 74 72 ┆ else blankentr┆
0x013700…013900 (5, 1, 2) 20 20 20 20 20 20 20 20 67 65 74 28 73 79 73 66 69 6c 29 0d 20 20 20 20 20 20 65 6e 64 20 3b 0d ┆ get(sysfil) end ; ┆
0x013900…013b00 (5, 1, 3) 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 62 65 66 6f 72 65 3a 3d 64 6f 74 72 61 70 3b ┆ begin before:=dotrap;┆
0x013b00…013d00 (5, 1, 4) 6f 74 66 6f 75 6e 64 0d 20 20 20 20 65 6e 64 0d 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 69 ┆otfound end else i┆
0x013d00…013f00 (5, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 6f 65 72 72 6f 72 29 0d 20 20 20 20 20 ┆ error(ioerror) ┆
0x013f00…014100 (5, 1, 6) 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 6b 70 72 74 29 3b 0d 20 ┆ seekblock(blockprt); ┆
0x014100…014300 (5, 1, 7) 74 72 61 70 3b 20 64 6f 74 72 61 70 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 20 20 69 ┆trap; dotrap:=false; i┆
0x014300…014500 (5, 1, 8) 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 77 69 74 68 20 73 69 74 75 5b 69 73 ┆ isq:=isqname; with situÆis┆
0x014500…014700 (5, 1, 9) 20 20 20 20 20 20 20 20 20 20 64 6f 74 72 61 70 3a 3d 62 65 66 6f 72 65 3b 0d 20 20 20 20 20 20 ┆ dotrap:=before; ┆
0x014700…014900 (5, 1, 10) 20 20 65 6e 64 20 28 2a 63 6c 6f 73 65 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 63 6c ┆ end (*closeisq*); procedure cl┆
0x014900…014b00 (5, 1, 11) 69 6e 0d 20 20 20 20 20 20 20 20 20 62 65 66 6f 72 65 3a 3d 64 6f 74 72 61 70 3b 20 64 6f 74 72 ┆in before:=dotrap; dotr┆
0x014b00…014d00 (5, 1, 12) 20 20 20 20 64 6f 74 72 61 70 3a 3d 62 65 66 6f 72 65 3b 0d 20 20 20 20 20 20 73 79 73 69 6e 69 ┆ dotrap:=before; sysini┆
0x014d00…014f00 (5, 1, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 72 65 63 0d 20 20 20 20 20 20 20 20 20 20 20 65 ┆ putrec e┆
0x014f00…014f20 (5, 1, 14) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 72 65 63 73 ┆ begin if antalrecs┆
0x014f20…014f40 3d 30 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 73 65 71 6f 6b 3a 3d 74 72 75 65 0d 20 20 ┆=0 then seqok:=true ┆
0x014f40…014f60 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 73 65 71 6f 6b 3a 3d 28 28 63 6d ┆ else seqok:=((cm┆
0x014f60…014f80 70 3e 30 29 20 6f 72 20 28 63 6d 70 3e 3d 30 29 20 61 6e 64 20 64 75 70 6c 69 63 61 74 65 29 3b ┆p>0) or (cmp>=0) and duplicate);┆
0x014f80…014fa0 0d 20 20 20 20 20 20 20 20 69 66 20 73 65 71 6f 6b 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 62 ┆ if seqok then b┆
0x014fa0…014fc0 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 72 65 63 74 6f 6b 65 79 3b 0d 20 20 20 20 20 20 20 ┆egin rectokey; ┆
0x014fc0…014fe0 20 20 20 6b 65 79 74 6f 69 78 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 74 72 65 63 70 72 74 28 ┆ keytoix; setrecprt(┆
0x014fe0…015000 61 6e 74 61 6c 72 65 63 73 2b 31 29 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 72 65 63 28 ┆antalrecs+1); seekrec(┆
0x015000…015020 61 6e 74 61 6c 72 65 63 73 2b 31 29 3b 0d 20 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 3b 0d 20 ┆antalrecs+1); inrec; ┆
0x015020…015040 20 20 20 20 20 20 20 20 20 70 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 ┆ putrec; ixprt┆
0x015040…015060 3a 3d 69 78 70 72 74 2b 31 3b 0d 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 72 65 63 73 3a 3d ┆:=ixprt+1; antalrecs:=┆
0x015060…015080 61 6e 74 61 6c 72 65 63 73 2b 31 3b 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 69 78 70 72 74 3e ┆antalrecs+1; if ixprt>┆
0x015080…0150a0 66 69 6c 6c 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 ┆fill then begin ┆
0x0150a0…0150c0 20 20 20 20 20 20 61 6e 74 61 6c 6b 65 79 73 3a 3d 66 69 6c 6c 3b 0d 20 20 20 20 20 20 20 20 20 ┆ antalkeys:=fill; ┆
0x0150c0…0150e0 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 69 78 78 70 72 74 29 3b 0d 20 20 20 20 20 20 20 20 20 20 ┆ seekblock(ixxprt); ┆
0x0150e0…015100 20 20 6f 75 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b ┆ outblock; putblock┆
0x015100…015120 (5, 1, 15) 20 69 66 20 73 74 61 74 75 73 3c 3e 61 66 74 65 72 6f 70 65 6e 20 74 68 65 6e 0d 20 20 20 20 20 ┆ if status<>afteropen then ┆
0x015120…015140 20 20 20 20 20 20 65 72 72 6f 72 28 66 69 6c 65 63 6c 6f 73 65 64 29 0d 20 20 20 20 20 20 20 20 ┆ error(fileclosed) ┆
0x015140…015160 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 73 79 73 6e 6f 74 69 6e 69 ┆ else error(sysnotini┆
0x015160…015180 74 29 0d 20 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 20 65 6e 64 20 28 2a 72 65 ┆t) end (*with*) end (*re┆
0x015180…0151a0 6f 72 67 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 67 65 74 6e 69 73 71 3b 0d 20 20 62 ┆orgisq*); procedure getnisq; b┆
0x0151a0…0151c0 65 67 69 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 77 69 74 68 20 ┆egin isq:=isqname; with ┆
0x0151c0…0151e0 73 69 74 75 5b 69 73 71 5d 2c 20 73 79 73 5b 69 73 71 5d 20 64 6f 0d 20 20 20 20 62 65 67 69 6e ┆situÆisqÅ, sysÆisqÅ do begin┆
0x0151e0…015200 0d 20 20 20 20 20 20 69 66 20 28 73 74 61 74 75 73 3d 61 66 74 65 72 6f 70 65 6e 29 20 61 6e 64 ┆ if (status=afteropen) and┆
0x015200…015220 20 28 61 6e 74 61 6c 72 65 63 73 3e 30 29 20 74 68 65 6e 0d 20 20 20 20 20 20 62 65 67 69 6e 0d ┆ (antalrecs>0) then begin ┆
0x015220…015240 20 20 20 20 20 20 20 20 69 66 20 69 78 70 72 74 3c 61 6e 74 61 6c 6b 65 79 73 20 74 68 65 6e 0d ┆ if ixprt<antalkeys then ┆
0x015240…015260 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 3a 3d 69 ┆ begin ixprt:=i┆
0x015260…015280 78 70 72 74 2b 31 3b 0d 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 6f 6b 0d 20 20 20 ┆xprt+1; isqres:=ok ┆
0x015280…0152a0 20 20 20 20 20 65 6e 64 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ end ┆
0x0152a0…0152c0 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 ┆ ┆
[…0x2…]
0x015300…015320 (6, 0, 1) 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 ┆ else begin ┆
0x015320…015340 20 20 20 20 20 69 78 70 72 74 3a 3d 31 3b 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 69 78 78 70 ┆ ixprt:=1; if ixxp┆
0x015340…015360 72 74 20 3c 61 6e 74 61 6c 62 6c 6f 63 6b 73 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 62 ┆rt <antalblocks then b┆
0x015360…015380 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 69 78 78 70 72 74 2b ┆egin ixxprt:=ixxprt+┆
0x015380…0153a0 31 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 6f 6b 0d 20 20 20 20 20 20 ┆1; isqres:=ok ┆
0x0153a0…0153c0 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x0153c0…0153e0 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 31 3b 0d 20 20 ┆ begin ixxprt:=1; ┆
0x0153e0…015400 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 65 6f 66 69 6c 65 29 0d 20 20 20 20 20 20 20 ┆ error (eofile) ┆
0x015400…015420 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 ┆ end; seekblock(bloc┆
0x015420…015440 6b 70 72 74 29 3b 0d 20 20 20 20 20 20 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 ┆kprt); getblock; ┆
0x015440…015460 20 20 20 20 20 69 6e 62 6c 6f 63 6b 0d 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 ┆ inblock end; ┆
0x015460…015480 20 20 20 20 73 65 65 6b 72 65 63 28 72 65 63 70 72 74 29 3b 0d 20 20 20 20 20 20 20 20 20 20 67 ┆ seekrec(recprt); g┆
0x015480…0154a0 65 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 ┆etrec; outrec; ┆
0x0154a0…0154c0 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 73 ┆ end else if s┆
0x0154c0…0154e0 74 61 74 75 73 3c 3e 61 66 74 65 72 6f 70 65 6e 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 ┆tatus<>afteropen then ┆
0x0154e0…015500 20 20 65 72 72 6f 72 20 28 66 69 6c 65 63 6c 6f 73 65 64 29 0d 20 20 20 20 20 20 20 20 20 20 65 ┆ error (fileclosed) e┆
0x015500…015700 (6, 0, 2) 0x00[0x200]
0x015700…015720 (6, 0, 3) 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 66 69 6c 65 65 6d 74 79 29 ┆lse error (fileemty)┆
0x015720…015740 0d 20 20 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 20 20 65 6e 64 20 28 2a 67 65 ┆ end (*with*) end (*ge┆
0x015740…015760 74 6e 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 67 65 74 69 73 71 3b 0d 20 20 62 65 67 ┆tnisq*); procedure getisq; beg┆
0x015760…015780 69 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 77 69 74 68 20 73 69 ┆in isq:=isqname; with si┆
[…truncated at 200 lines…]