|
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 - download
Length: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »IOPEN.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »IOPEN.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »IOPEN.K«
(*$P*)
PROCEDURE OUTHEAD(VAR F:ISF);
VAR I:INTEGER;
BEGIN
WITH FILEHEAD(CURRHEAD) DO
BEGIN
F^(1):=NBUC;
F^(2):=NBLK;
F^(3):=NREC;
F^(4):=BLKPRBUC;
F^(5):=RECPRBUC;
F^(6):=RECPRBLK;
F^(7):=KEYFLDS;
F^(8):=AZSIZE;
F^(9):=BUTSIZE;
F^(10):=BLTSIZE;
F^(11):=BLKSIZE;
F^(12):=RECSIZE;
F^(13):=KEYSIZE;
F^(14):=SEGINFLH;
F^(15):=SEGINBUT;
F^(16):=SEGINBUC;
F^(17):=SEGINBLT;
F^(18):=SEGINBLK;
F^(19):=INITREC;
F^(20):=BUCINUSE;
F^(21):=BLKINUSE;
F^(22):=RECINUSE;
IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0;
IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0;
FOR I:=1 TO 9 DO
BEGIN
F^(22+I*3):=KEYPOS(I);
F^(23+I*3):=KEYLNG(I);
F^(24+I*3):=KEYSGN(I)
END;
SEEK(F,1);
IOC;
PUT(F);
IOC
END
END;
(*$P*)
PROCEDURE IOPEN(VAR F:ISF);
(*F ER ÅBNET FØR KALD; MED REWRITE*)
VAR I,J,NUM,BUC,K,BLKNUM:INTEGER;
BEGIN
WITH FILEHEAD(CURRHEAD) DO
BEGIN
SEEK(F,1);
IOC;
GET(F);
IOC;
NBUC := F^(1);
NBLK := F^(2);
NREC := F^(3);
BLKPRBUC := F^(4);
RECPRBUC := F^(5);
RECPRBLK := F^(6);
KEYFLDS := F^(7);
BUTSIZE := F^(9);
BLTSIZE := F^(10);
BLKSIZE := F^(11);
RECSIZE := F^(12);
KEYSIZE := F^(13);
SEGINFLH := F^(14);
SEGINBUT := F^(15);
SEGINBUC := F^(16);
SEGINBLT := F^(17);
SEGINBLK := F^(18);
INITREC := F^(19);
BUCINUSE := F^(20);
BLKINUSE := F^(21);
RECINUSE := F^(22);
FILEINIT := F^(23)=1;
FILEOPEN := F^(24)=1;
FOR I:=1 TO 9 DO
BEGIN
KEYPOS(I):= F^(22+I*3);
KEYLNG(I):= F^(23+I*3);
KEYSGN(I):= F^(24+I*3)
END;
BUTCHG:=FALSE;
BLTCHG:=FALSE;
BLKCHG:=FALSE;
BUCINZONE:=0;
BLKINZONE:=0;
BLKENTRY:=0;
BUT:=CURRZONE;
AZSIZE:=Z(BUT+1);(*ANVENDT ZONESTØRRELSE*)
BLT:=BUT+BUTSIZE;
BLK:=BLT+BLTSIZE;
KEY1:=BLK+BLKSIZE+RECSIZE;
KEY2:=BLK+BLKSIZE;
ENTRYSIZE:=KEYSIZE+2;
IF Z(BUT)<>BUTSIZE+BLTSIZE+BLKSIZE+RECSIZE+KEYSIZE (*ZONESTØRRELSE*)
THEN
BEGIN
IER:=-4;
EXIT(IOPEN)
(*FILEN ER IKKE ISF*)
END;
IF RECSIZE>MAXRECSIZE THEN BEGIN IER:=-17;EXIT(IOPEN) END;
IF BLTSIZE>HELPBLT THEN BEGIN IER:=-35;EXIT(IOPEN) END;
IF FILEINIT THEN COPSEGS(F,2,BUTSIZE,BUT,LÆS);
IF FILEOPEN THEN
BEGIN
IF NOT FILEINIT THEN
BEGIN
IER:=-19;
INITREC:=0;
BUCINUSE:=0;
BLKINUSE:=0;
RECINUSE:=0
END
ELSE
BEGIN
BUCINUSE:=0;
BLKINUSE:=0;
RECINUSE:=0;
FOR I:=1 TO NBUC DO
BEGIN
BUC:=BUT+(I-1)*ENTRYSIZE+1;
COPSEGS(F,Z(BUC-1),BLTSIZE,BLT,LÆS);
NUM:=0;
FOR J:=1 TO BLKPRBUC DO
BEGIN
BLKNUM:=BLT+1+(J-1)*ENTRYSIZE;
IF Z(BLKNUM)>0 THEN
BEGIN
NUM:=NUM+Z(BLKNUM);
BLKINUSE:=BLKINUSE+1;
K:=BLKNUM
END
END;
IF NUM>0 THEN
BEGIN
RECINUSE:=RECINUSE+NUM;
BUCINUSE:=BUCINUSE+1;
FOR J:=1 TO KEYSIZE DO Z(BUC+J):=Z(K+J)
END;
BUTCHG:=TRUE;
Z(BUC):=NUM
END; (*FOR I*)
IER:=-18;
BUCINZONE:=NBUC
END
END; (*FILEOPEN*)
FILEOPEN:=TRUE;
I:=IER;
OUTHEAD(F);
IER:=I
END
END (*IOPEN*);
0x0000…0008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0008…0034 Line {l1=0x2a, l2=»PROCEDURE OUTHEAD(VAR F:ISF); «, l3=0x2a}
0x0034…0048 Line {l1=0x12, l2=»VAR I:INTEGER;«, l3=0x12}
0x0048…004f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x004f…006d Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x006d…0076 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0076…00ab Line {l1=0x33, l2=» F^(1):=NBUC; «, l3=0x33}
0x00ab…00e0 Line {l1=0x33, l2=» F^(2):=NBLK; «, l3=0x33}
0x00e0…0115 Line {l1=0x33, l2=» F^(3):=NREC; «, l3=0x33}
0x0115…014a Line {l1=0x33, l2=» F^(4):=BLKPRBUC; «, l3=0x33}
0x014a…017f Line {l1=0x33, l2=» F^(5):=RECPRBUC; «, l3=0x33}
0x017f…01b4 Line {l1=0x33, l2=» F^(6):=RECPRBLK; «, l3=0x33}
0x01b4…01e9 Line {l1=0x33, l2=» F^(7):=KEYFLDS; «, l3=0x33}
0x01e9…021d Line {l1=0x32, l2=» F^(8):=AZSIZE; «, l3=0x32}
0x021d…0252 Line {l1=0x33, l2=» F^(9):=BUTSIZE; «, l3=0x33}
0x0252…0287 Line {l1=0x33, l2=» F^(10):=BLTSIZE; «, l3=0x33}
0x0287…02bc Line {l1=0x33, l2=» F^(11):=BLKSIZE; «, l3=0x33}
0x02bc…02f1 Line {l1=0x33, l2=» F^(12):=RECSIZE; «, l3=0x33}
0x02f1…0326 Line {l1=0x33, l2=» F^(13):=KEYSIZE; «, l3=0x33}
0x0326…035b Line {l1=0x33, l2=» F^(14):=SEGINFLH; «, l3=0x33}
0x035b…0390 Line {l1=0x33, l2=» F^(15):=SEGINBUT; «, l3=0x33}
0x0390…03c5 Line {l1=0x33, l2=» F^(16):=SEGINBUC; «, l3=0x33}
0x03c5…03fa Line {l1=0x33, l2=» F^(17):=SEGINBLT; «, l3=0x33}
0x03fa…042f Line {l1=0x33, l2=» F^(18):=SEGINBLK; «, l3=0x33}
0x042f…0464 Line {l1=0x33, l2=» F^(19):=INITREC; «, l3=0x33}
0x0464…0499 Line {l1=0x33, l2=» F^(20):=BUCINUSE; «, l3=0x33}
0x0499…04ce Line {l1=0x33, l2=» F^(21):=BLKINUSE; «, l3=0x33}
0x04ce…0503 Line {l1=0x33, l2=» F^(22):=RECINUSE; «, l3=0x33}
0x0503…0538 Line {l1=0x33, l2=» IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0; «, l3=0x33}
0x0538…056b Line {l1=0x31, l2=» IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0; «, l3=0x31}
0x056b…059e Line {l1=0x31, l2=» FOR I:=1 TO 9 DO «, l3=0x31}
0x059e…05d1 Line {l1=0x31, l2=» BEGIN «, l3=0x31}
0x05d1…0604 Line {l1=0x31, l2=» F^(22+I*3):=KEYPOS(I); «, l3=0x31}
0x0604…0637 Line {l1=0x31, l2=» F^(23+I*3):=KEYLNG(I); «, l3=0x31}
0x0637…066a Line {l1=0x31, l2=» F^(24+I*3):=KEYSGN(I) «, l3=0x31}
0x066a…069d Line {l1=0x31, l2=» END; «, l3=0x31}
0x069d…06d0 Line {l1=0x31, l2=» SEEK(F,1); «, l3=0x31}
0x06d0…06da Line {l1=0x08, l2=» IOC;«, l3=0x08}
0x06da…070d Line {l1=0x31, l2=» PUT(F); «, l3=0x31}
0x070d…0716 Line {l1=0x07, l2=» IOC«, l3=0x07}
0x0716…0749 Line {l1=0x31, l2=» END «, l3=0x31}
0x0749…074f Line {l1=0x04, l2=»END;«, l3=0x04}
0x074f…0757 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0757…0781 Line {l1=0x28, l2=»PROCEDURE IOPEN(VAR F:ISF); «, l3=0x28}
0x0781…07ae Line {l1=0x2b, l2=» (*F ER ÅBNET FØR KALD; MED REWRITE*)«, l3=0x2b}
0x07ae…07d1 Line {l1=0x21, l2=»VAR I,J,NUM,BUC,K,BLKNUM:INTEGER;«, l3=0x21}
0x07d1…07d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07d8…07f6 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x07f6…07ff Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x07ff…080f Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x080f…0819 Line {l1=0x08, l2=» IOC;«, l3=0x08}
0x0819…0826 Line {l1=0x0b, l2=» GET(F);«, l3=0x0b}
0x0826…0830 Line {l1=0x08, l2=» IOC;«, l3=0x08}
0x0830…084a Line {l1=0x18, l2=» NBUC := F^(1);«, l3=0x18}
0x084a…0864 Line {l1=0x18, l2=» NBLK := F^(2);«, l3=0x18}
0x0864…087e Line {l1=0x18, l2=» NREC := F^(3);«, l3=0x18}
0x087e…0898 Line {l1=0x18, l2=» BLKPRBUC := F^(4);«, l3=0x18}
0x0898…08b2 Line {l1=0x18, l2=» RECPRBUC := F^(5);«, l3=0x18}
0x08b2…08cc Line {l1=0x18, l2=» RECPRBLK := F^(6);«, l3=0x18}
0x08cc…08e6 Line {l1=0x18, l2=» KEYFLDS := F^(7);«, l3=0x18}
0x08e6…0900 Line {l1=0x18, l2=» BUTSIZE := F^(9);«, l3=0x18}
0x0900…091b Line {l1=0x19, l2=» BLTSIZE := F^(10);«, l3=0x19}
0x091b…0936 Line {l1=0x19, l2=» BLKSIZE := F^(11);«, l3=0x19}
0x0936…0951 Line {l1=0x19, l2=» RECSIZE := F^(12);«, l3=0x19}
0x0951…096c Line {l1=0x19, l2=» KEYSIZE := F^(13);«, l3=0x19}
0x096c…0987 Line {l1=0x19, l2=» SEGINFLH := F^(14);«, l3=0x19}
0x0987…09a2 Line {l1=0x19, l2=» SEGINBUT := F^(15);«, l3=0x19}
0x09a2…09bd Line {l1=0x19, l2=» SEGINBUC := F^(16);«, l3=0x19}
0x09bd…09d8 Line {l1=0x19, l2=» SEGINBLT := F^(17);«, l3=0x19}
0x09d8…09f3 Line {l1=0x19, l2=» SEGINBLK := F^(18);«, l3=0x19}
0x09f3…0a0e Line {l1=0x19, l2=» INITREC := F^(19);«, l3=0x19}
0x0a0e…0a29 Line {l1=0x19, l2=» BUCINUSE := F^(20);«, l3=0x19}
0x0a29…0a44 Line {l1=0x19, l2=» BLKINUSE := F^(21);«, l3=0x19}
0x0a44…0a5f Line {l1=0x19, l2=» RECINUSE := F^(22);«, l3=0x19}
0x0a5f…0a7c Line {l1=0x1b, l2=» FILEINIT := F^(23)=1;«, l3=0x1b}
0x0a7c…0a99 Line {l1=0x1b, l2=» FILEOPEN := F^(24)=1;«, l3=0x1b}
0x0a99…0aaf Line {l1=0x14, l2=» FOR I:=1 TO 9 DO«, l3=0x14}
0x0aaf…0aba Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0aba…0ada Line {l1=0x1e, l2=» KEYPOS(I):= F^(22+I*3);«, l3=0x1e}
0x0ada…0afa Line {l1=0x1e, l2=» KEYLNG(I):= F^(23+I*3);«, l3=0x1e}
0x0afa…0b19 Line {l1=0x1d, l2=» KEYSGN(I):= F^(24+I*3)«, l3=0x1d}
0x0b19…0b23 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0b23…0b37 Line {l1=0x12, l2=» BUTCHG:=FALSE;«, l3=0x12}
0x0b37…0b4b Line {l1=0x12, l2=» BLTCHG:=FALSE;«, l3=0x12}
0x0b4b…0b5f Line {l1=0x12, l2=» BLKCHG:=FALSE;«, l3=0x12}
0x0b5f…0b72 Line {l1=0x11, l2=» BUCINZONE:=0;«, l3=0x11}
0x0b72…0b85 Line {l1=0x11, l2=» BLKINZONE:=0;«, l3=0x11}
0x0b85…0b97 Line {l1=0x10, l2=» BLKENTRY:=0;«, l3=0x10}
0x0b97…0bc1 Line {l1=0x28, l2=» BUT:=CURRZONE; «, l3=0x28}
0x0bc1…0bf1 Line {l1=0x2e, l2=» AZSIZE:=Z(BUT+1);(*ANVENDT ZONESTØRRELSE*)«, l3=0x2e}
0x0bf1…0c08 Line {l1=0x15, l2=» BLT:=BUT+BUTSIZE;«, l3=0x15}
0x0c08…0c1f Line {l1=0x15, l2=» BLK:=BLT+BLTSIZE;«, l3=0x15}
0x0c1f…0c3f Line {l1=0x1e, l2=» KEY1:=BLK+BLKSIZE+RECSIZE;«, l3=0x1e}
0x0c3f…0c57 Line {l1=0x16, l2=» KEY2:=BLK+BLKSIZE;«, l3=0x16}
0x0c57…0c72 Line {l1=0x19, l2=» ENTRYSIZE:=KEYSIZE+2;«, l3=0x19}
0x0c72…0cbd Line {l1=0x49, l2=» IF Z(BUT)<>BUTSIZE+BLTSIZE+BLKSIZE+RECSIZE+KEYSIZE (*ZONESTØRRELSE*)«, l3=0x49}
0x0cbd…0cc7 Line {l1=0x08, l2=» THEN«, l3=0x08}
0x0cc7…0cd2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0cd2…0ce2 Line {l1=0x0e, l2=» IER:=-4;«, l3=0x0e}
0x0ce2…0cf5 Line {l1=0x11, l2=» EXIT(IOPEN)«, l3=0x11}
0x0cf5…0d12 Line {l1=0x1b, l2=» (*FILEN ER IKKE ISF*)«, l3=0x1b}
0x0d12…0d1c Line {l1=0x08, l2=» END;«, l3=0x08}
0x0d1c…0d5c Line {l1=0x3e, l2=» IF RECSIZE>MAXRECSIZE THEN BEGIN IER:=-17;EXIT(IOPEN) END;«, l3=0x3e}
0x0d5c…0d99 Line {l1=0x3b, l2=» IF BLTSIZE>HELPBLT THEN BEGIN IER:=-35;EXIT(IOPEN) END;«, l3=0x3b}
0x0d99…0dcd Line {l1=0x32, l2=» IF FILEINIT THEN COPSEGS(F,2,BUTSIZE,BUT,LÆS);«, l3=0x32}
0x0dcd…0de3 Line {l1=0x14, l2=» IF FILEOPEN THEN«, l3=0x14}
0x0de3…0dee Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0dee…0e21 Line {l1=0x31, l2=» IF NOT FILEINIT THEN «, l3=0x31}
0x0e21…0e54 Line {l1=0x31, l2=» BEGIN «, l3=0x31}
0x0e54…0e87 Line {l1=0x31, l2=» IER:=-19; «, l3=0x31}
0x0e87…0eba Line {l1=0x31, l2=» INITREC:=0; «, l3=0x31}
0x0eba…0eed Line {l1=0x31, l2=» BUCINUSE:=0; «, l3=0x31}
0x0eed…0f20 Line {l1=0x31, l2=» BLKINUSE:=0; «, l3=0x31}
0x0f20…0f53 Line {l1=0x31, l2=» RECINUSE:=0 «, l3=0x31}
0x0f53…0f86 Line {l1=0x31, l2=» END «, l3=0x31}
0x0f86…0fb9 Line {l1=0x31, l2=» ELSE «, l3=0x31}
0x0fb9…0fec Line {l1=0x31, l2=» BEGIN «, l3=0x31}
0x0fec…101f Line {l1=0x31, l2=» BUCINUSE:=0; «, l3=0x31}
0x101f…1052 Line {l1=0x31, l2=» BLKINUSE:=0; «, l3=0x31}
0x1052…1085 Line {l1=0x31, l2=» RECINUSE:=0; «, l3=0x31}
0x1085…10b8 Line {l1=0x31, l2=» FOR I:=1 TO NBUC DO «, l3=0x31}
0x10b8…10eb Line {l1=0x31, l2=» BEGIN «, l3=0x31}
0x10eb…111e Line {l1=0x31, l2=» BUC:=BUT+(I-1)*ENTRYSIZE+1; «, l3=0x31}
0x111e…114f Line {l1=0x2f, l2=» COPSEGS(F,Z(BUC-1),BLTSIZE,BLT,LÆS); «, l3=0x2f}
0x114f…1182 Line {l1=0x31, l2=» NUM:=0; «, l3=0x31}
0x1182…11b5 Line {l1=0x31, l2=» FOR J:=1 TO BLKPRBUC DO «, l3=0x31}
0x11b5…11e8 Line {l1=0x31, l2=» BEGIN «, l3=0x31}
0x11e8…1215 Line {l1=0x2b, l2=» BLKNUM:=BLT+1+(J-1)*ENTRYSIZE; «, l3=0x2b}
0x1215…1242 Line {l1=0x2b, l2=» IF Z(BLKNUM)>0 THEN «, l3=0x2b}
0x1242…126f Line {l1=0x2b, l2=» BEGIN «, l3=0x2b}
0x126f…129c Line {l1=0x2b, l2=» NUM:=NUM+Z(BLKNUM); «, l3=0x2b}
0x129c…12c9 Line {l1=0x2b, l2=» BLKINUSE:=BLKINUSE+1; «, l3=0x2b}
0x12c9…12f6 Line {l1=0x2b, l2=» K:=BLKNUM «, l3=0x2b}
0x12f6…1323 Line {l1=0x2b, l2=» END «, l3=0x2b}
0x1323…1350 Line {l1=0x2b, l2=» END; «, l3=0x2b}
0x1350…137d Line {l1=0x2b, l2=» IF NUM>0 THEN «, l3=0x2b}
0x137d…13aa Line {l1=0x2b, l2=» BEGIN «, l3=0x2b}
0x13aa…13d7 Line {l1=0x2b, l2=» RECINUSE:=RECINUSE+NUM; «, l3=0x2b}
0x13d7…1404 Line {l1=0x2b, l2=» BUCINUSE:=BUCINUSE+1; «, l3=0x2b}
0x1404…1441 Line {l1=0x3b, l2=» FOR J:=1 TO KEYSIZE DO Z(BUC+J):=Z(K+J) «, l3=0x3b}
0x1441…146e Line {l1=0x2b, l2=» END; «, l3=0x2b}
0x146e…149b Line {l1=0x2b, l2=» BUTCHG:=TRUE; «, l3=0x2b}
0x149b…14c8 Line {l1=0x2b, l2=» Z(BUC):=NUM «, l3=0x2b}
0x14c8…14f5 Line {l1=0x2b, l2=» END; (*FOR I*) «, l3=0x2b}
0x14f5…1526 Line {l1=0x2f, l2=» IER:=-18; «, l3=0x2f}
0x1526…1553 Line {l1=0x2b, l2=» BUCINZONE:=NBUC «, l3=0x2b}
0x1553…1580 Line {l1=0x2b, l2=» END «, l3=0x2b}
0x1580…15ad Line {l1=0x2b, l2=» END; (*FILEOPEN*) «, l3=0x2b}
0x15ad…15c2 Line {l1=0x13, l2=» FILEOPEN:=TRUE;«, l3=0x13}
0x15c2…15cf Line {l1=0x0b, l2=» I:=IER;«, l3=0x0b}
0x15cf…15e0 Line {l1=0x0f, l2=» OUTHEAD(F);«, l3=0x0f}
0x15e0…1613 Line {l1=0x31, l2=» IER:=I «, l3=0x31}
0x1613…161a Line {l1=0x05, l2=» END«, l3=0x05}
0x161a…162b Line {l1=0x0f, l2=»END (*IOPEN*);«, l3=0x0f}
0x162b…1640 00 00 3a 3d 4e 42 55 43 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :=NBUC ┆
0x1640…1660 20 20 20 20 20 20 20 2b 2b 20 20 20 20 20 20 45 4e 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ++ END ┆
0x1660…1680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 2b 20 20 20 20 45 4e 44 3b 20 20 ┆ ++ END; ┆
0x1680…16a0 28 2a 46 49 4c 45 4f 50 45 4e 2a 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(*FILEOPEN*) ┆
0x16a0…16c0 20 2b 13 20 20 20 20 46 49 4c 45 4f 50 45 4e 3a 3d 54 52 55 45 3b 13 0b 20 20 20 20 49 3a 3d 49 ┆ + FILEOPEN:=TRUE; I:=I┆
0x16c0…16e0 45 52 3b 0b 0f 20 20 20 20 4f 55 54 48 45 41 44 28 46 29 3b 0f 1f 20 20 20 20 49 46 20 49 45 52 ┆ER; OUTHEAD(F); IF IER┆
0x16e0…1700 3c 3e 30 20 54 48 45 4e 20 45 58 49 54 28 49 4f 50 45 4e 29 3b 1f 31 20 20 20 20 49 45 52 3a 3d ┆<>0 THEN EXIT(IOPEN); 1 IER:=┆
0x1700…1720 49 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 ┆I ┆
0x1720…1740 20 20 20 20 20 20 20 20 31 05 20 20 45 4e 44 05 0f 45 4e 44 20 20 28 2a 49 4f 50 45 4e 2a 29 3b ┆ 1 END END (*IOPEN*);┆
0x1740…1760 0f 00 00 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 ┆ ccccccccccccccccccccccccccccc┆
0x1760…1780 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┆
[…0x7…]