|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »IOPEN.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »IOPEN.K«
SEGMENT PROCEDURE IOPEN(VAR ZO:ISFHEAD;VAR F:ISF;MODE:INTEGER);
(*F ER ÅBNET FØR KALD; MED REWRITE*)
VAR I,J,NUM,BUC,K,BLKNUM:INTEGER;
BEGIN
WITH ZO DO
BEGIN
SEEK(F,1);
IER:=IORESULT;
IF IER<>0 THEN EXIT(IOPEN);
GET(F);
IER:=IORESULT;
IF IER<>0 THEN EXIT (IOPEN);
NBUC := F^(1);
NBLK := F^(2);
NREC := F^(3);
BLKPRBUC := F^(4);
RECPRBUC := F^(5);
RECPRBLK := F^(6);
KEYFLDS := F^(7);
FLHSIZE := F^(8);
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;
UPSTAT:=MODE;
BUT:=1;
BLT:=BUT+BUTSIZE;
BLK:=BLT+BLTSIZE;
KEY1:=BLK+BLKSIZE+RECSIZE;
KEY2:=BLK+BLKSIZE;
ENTRYSIZE:=KEYSIZE+2;
IF RECPRBUC<>RECPRBLK*BLKPRBUC THEN
BEGIN
IER:=-4;
EXIT (IOPEN)
(*FILEN ER IKKE ISF*)
END;
IF FILEINIT THEN COPSEGS(Z,F,2,BUTSIZE,BUT,LÆS);
IF IER<>0 THEN EXIT (IOPEN);
IF FILEOPEN THEN
BEGIN
IER:=-18;
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(Z,F,Z(BUC-1),BLTSIZE,BLT,LÆS);
IF IER<>0 THEN EXIT (IOPEN);
IER:=-18;
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*)
BUCINZONE:=NBUC
END
END; (*FILEOPEN*)
FILEOPEN:=TRUE;
IF UPSTAT=SKRIV THEN
BEGIN
F^(1):=NBUC;
F^(2):=NBLK;
F^(3):=NREC;
F^(4):=BLKPRBUC;
F^(5):=RECPRBUC;
F^(6):=RECPRBLK;
F^(7):=KEYFLDS;
F^(8):=FLHSIZE;
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);
I:=IER;
IER:=IORESULT;
IF IER<>0 THEN EXIT(IOPEN);
PUT(F);
IER:=IORESULT;
IF IER<>0 THEN EXIT(IOPEN);
IER:=I
END
END
END (*IOPEN*);
0x0000…0041 Line {l1=0x3f, l2=»SEGMENT PROCEDURE IOPEN(VAR ZO:ISFHEAD;VAR F:ISF;MODE:INTEGER);«, l3=0x3f}
0x0041…006e Line {l1=0x2b, l2=» (*F ER ÅBNET FØR KALD; MED REWRITE*)«, l3=0x2b}
0x006e…0091 Line {l1=0x21, l2=»VAR I,J,NUM,BUC,K,BLKNUM:INTEGER;«, l3=0x21}
0x0091…0098 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0098…00a6 Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x00a6…00af Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x00af…00bf Line {l1=0x0e, l2=» SEEK(F,1);«, l3=0x0e}
0x00bf…00d3 Line {l1=0x12, l2=» IER:=IORESULT;«, l3=0x12}
0x00d3…00f4 Line {l1=0x1f, l2=» IF IER<>0 THEN EXIT(IOPEN);«, l3=0x1f}
0x00f4…0101 Line {l1=0x0b, l2=» GET(F);«, l3=0x0b}
0x0101…0115 Line {l1=0x12, l2=» IER:=IORESULT;«, l3=0x12}
0x0115…0137 Line {l1=0x20, l2=» IF IER<>0 THEN EXIT (IOPEN);«, l3=0x20}
0x0137…0151 Line {l1=0x18, l2=» NBUC := F^(1);«, l3=0x18}
0x0151…016b Line {l1=0x18, l2=» NBLK := F^(2);«, l3=0x18}
0x016b…0185 Line {l1=0x18, l2=» NREC := F^(3);«, l3=0x18}
0x0185…019f Line {l1=0x18, l2=» BLKPRBUC := F^(4);«, l3=0x18}
0x019f…01b9 Line {l1=0x18, l2=» RECPRBUC := F^(5);«, l3=0x18}
0x01b9…01d3 Line {l1=0x18, l2=» RECPRBLK := F^(6);«, l3=0x18}
0x01d3…01ed Line {l1=0x18, l2=» KEYFLDS := F^(7);«, l3=0x18}
0x01ed…0207 Line {l1=0x18, l2=» FLHSIZE := F^(8);«, l3=0x18}
0x0207…0221 Line {l1=0x18, l2=» BUTSIZE := F^(9);«, l3=0x18}
0x0221…023c Line {l1=0x19, l2=» BLTSIZE := F^(10);«, l3=0x19}
0x023c…0257 Line {l1=0x19, l2=» BLKSIZE := F^(11);«, l3=0x19}
0x0257…0272 Line {l1=0x19, l2=» RECSIZE := F^(12);«, l3=0x19}
0x0272…028d Line {l1=0x19, l2=» KEYSIZE := F^(13);«, l3=0x19}
0x028d…02a8 Line {l1=0x19, l2=» SEGINFLH := F^(14);«, l3=0x19}
0x02a8…02c3 Line {l1=0x19, l2=» SEGINBUT := F^(15);«, l3=0x19}
0x02c3…02de Line {l1=0x19, l2=» SEGINBUC := F^(16);«, l3=0x19}
0x02de…02f9 Line {l1=0x19, l2=» SEGINBLT := F^(17);«, l3=0x19}
0x02f9…0314 Line {l1=0x19, l2=» SEGINBLK := F^(18);«, l3=0x19}
0x0314…032f Line {l1=0x19, l2=» INITREC := F^(19);«, l3=0x19}
0x032f…034a Line {l1=0x19, l2=» BUCINUSE := F^(20);«, l3=0x19}
0x034a…0365 Line {l1=0x19, l2=» BLKINUSE := F^(21);«, l3=0x19}
0x0365…0380 Line {l1=0x19, l2=» RECINUSE := F^(22);«, l3=0x19}
0x0380…039d Line {l1=0x1b, l2=» FILEINIT := F^(23)=1;«, l3=0x1b}
0x039d…03ba Line {l1=0x1b, l2=» FILEOPEN := F^(24)=1;«, l3=0x1b}
0x03ba…03d0 Line {l1=0x14, l2=» FOR I:=1 TO 9 DO«, l3=0x14}
0x03d0…03db Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03db…03fb Line {l1=0x1e, l2=» KEYPOS(I):= F^(22+I*3);«, l3=0x1e}
0x03fb…041b Line {l1=0x1e, l2=» KEYLNG(I):= F^(23+I*3);«, l3=0x1e}
0x041b…043a Line {l1=0x1d, l2=» KEYSGN(I):= F^(24+I*3)«, l3=0x1d}
0x043a…0444 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0444…0458 Line {l1=0x12, l2=» BUTCHG:=FALSE;«, l3=0x12}
0x0458…046c Line {l1=0x12, l2=» BLTCHG:=FALSE;«, l3=0x12}
0x046c…0480 Line {l1=0x12, l2=» BLKCHG:=FALSE;«, l3=0x12}
0x0480…0493 Line {l1=0x11, l2=» BUCINZONE:=0;«, l3=0x11}
0x0493…04a6 Line {l1=0x11, l2=» BLKINZONE:=0;«, l3=0x11}
0x04a6…04b8 Line {l1=0x10, l2=» BLKENTRY:=0;«, l3=0x10}
0x04b8…04cb Line {l1=0x11, l2=» UPSTAT:=MODE;«, l3=0x11}
0x04cb…04d8 Line {l1=0x0b, l2=» BUT:=1;«, l3=0x0b}
0x04d8…04ef Line {l1=0x15, l2=» BLT:=BUT+BUTSIZE;«, l3=0x15}
0x04ef…0506 Line {l1=0x15, l2=» BLK:=BLT+BLTSIZE;«, l3=0x15}
0x0506…0526 Line {l1=0x1e, l2=» KEY1:=BLK+BLKSIZE+RECSIZE;«, l3=0x1e}
0x0526…053e Line {l1=0x16, l2=» KEY2:=BLK+BLKSIZE;«, l3=0x16}
0x053e…0559 Line {l1=0x19, l2=» ENTRYSIZE:=KEYSIZE+2;«, l3=0x19}
0x0559…0582 Line {l1=0x27, l2=» IF RECPRBUC<>RECPRBLK*BLKPRBUC THEN«, l3=0x27}
0x0582…058d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x058d…059e Line {l1=0x0f, l2=» IER:=-4;«, l3=0x0f}
0x059e…05b3 Line {l1=0x13, l2=» EXIT (IOPEN)«, l3=0x13}
0x05b3…05d1 Line {l1=0x1c, l2=» (*FILEN ER IKKE ISF*)«, l3=0x1c}
0x05d1…05db Line {l1=0x08, l2=» END;«, l3=0x08}
0x05db…0611 Line {l1=0x34, l2=» IF FILEINIT THEN COPSEGS(Z,F,2,BUTSIZE,BUT,LÆS);«, l3=0x34}
0x0611…0633 Line {l1=0x20, l2=» IF IER<>0 THEN EXIT (IOPEN);«, l3=0x20}
0x0633…0649 Line {l1=0x14, l2=» IF FILEOPEN THEN«, l3=0x14}
0x0649…0654 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0654…0666 Line {l1=0x10, l2=» IER:=-18;«, l3=0x10}
0x0666…0683 Line {l1=0x1b, l2=» IF NOT FILEINIT THEN«, l3=0x1b}
0x0683…0691 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0691…06a5 Line {l1=0x12, l2=» IER:=-19;«, l3=0x12}
0x06a5…06bb Line {l1=0x14, l2=» INITREC:=0;«, l3=0x14}
0x06bb…06d2 Line {l1=0x15, l2=» BUCINUSE:=0;«, l3=0x15}
0x06d2…06e9 Line {l1=0x15, l2=» BLKINUSE:=0;«, l3=0x15}
0x06e9…06ff Line {l1=0x14, l2=» RECINUSE:=0«, l3=0x14}
0x06ff…070b Line {l1=0x0a, l2=» END«, l3=0x0a}
0x070b…0718 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x0718…0726 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0726…073d Line {l1=0x15, l2=» BUCINUSE:=0;«, l3=0x15}
0x073d…0754 Line {l1=0x15, l2=» BLKINUSE:=0;«, l3=0x15}
0x0754…076b Line {l1=0x15, l2=» RECINUSE:=0;«, l3=0x15}
0x076b…0789 Line {l1=0x1c, l2=» FOR I:=1 TO NBUC DO«, l3=0x1c}
0x0789…0799 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x0799…07c1 Line {l1=0x26, l2=» BUC:=BUT+(I-1)*ENTRYSIZE+1;«, l3=0x26}
0x07c1…07f4 Line {l1=0x31, l2=» COPSEGS(Z,F,Z(BUC-1),BLTSIZE,BLT,LÆS);«, l3=0x31}
0x07f4…081d Line {l1=0x27, l2=» IF IER<>0 THEN EXIT (IOPEN);«, l3=0x27}
0x081d…0833 Line {l1=0x14, l2=» IER:=-18;«, l3=0x14}
0x0833…0847 Line {l1=0x12, l2=» NUM:=0;«, l3=0x12}
0x0847…086b Line {l1=0x22, l2=» FOR J:=1 TO BLKPRBUC DO«, l3=0x22}
0x086b…087d Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x087d…08aa Line {l1=0x2b, l2=» BLKNUM:=BLT+1+(J-1)*ENTRYSIZE;«, l3=0x2b}
0x08aa…08cc Line {l1=0x20, l2=» IF Z(BLKNUM)>0 THEN«, l3=0x20}
0x08cc…08e0 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x08e0…0904 Line {l1=0x22, l2=» NUM:=NUM+Z(BLKNUM);«, l3=0x22}
0x0904…092a Line {l1=0x24, l2=» BLKINUSE:=BLKINUSE+1;«, l3=0x24}
0x092a…0944 Line {l1=0x18, l2=» K:=BLKNUM«, l3=0x18}
0x0944…0956 Line {l1=0x10, l2=» END«, l3=0x10}
0x0956…0967 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x0967…0981 Line {l1=0x18, l2=» IF NUM>0 THEN«, l3=0x18}
0x0981…0993 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x0993…09b9 Line {l1=0x24, l2=» RECINUSE:=RECINUSE+NUM;«, l3=0x24}
0x09b9…09dd Line {l1=0x22, l2=» BUCINUSE:=BUCINUSE+1;«, l3=0x22}
0x09dd…0a02 Line {l1=0x23, l2=» FOR J:=1 TO KEYSIZE DO«, l3=0x23}
0x0a02…0a23 Line {l1=0x1f, l2=» Z(BUC+J):=Z(K+J)«, l3=0x1f}
0x0a23…0a34 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x0a34…0a4e Line {l1=0x18, l2=» BUTCHG:=TRUE;«, l3=0x18}
0x0a4e…0a66 Line {l1=0x16, l2=» Z(BUC):=NUM«, l3=0x16}
0x0a66…0a81 Line {l1=0x19, l2=» END; (*FOR I*)«, l3=0x19}
0x0a81…0a9b Line {l1=0x18, l2=» BUCINZONE:=NBUC«, l3=0x18}
0x0a9b…0aa7 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x0aa7…0ac0 Line {l1=0x17, l2=» END; (*FILEOPEN*)«, l3=0x17}
0x0ac0…0ad6 Line {l1=0x14, l2=» FILEOPEN:=TRUE;«, l3=0x14}
0x0ad6…0af1 Line {l1=0x19, l2=» IF UPSTAT=SKRIV THEN«, l3=0x19}
0x0af1…0afd Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x0afd…0b12 Line {l1=0x13, l2=» F^(1):=NBUC;«, l3=0x13}
0x0b12…0b27 Line {l1=0x13, l2=» F^(2):=NBLK;«, l3=0x13}
0x0b27…0b3c Line {l1=0x13, l2=» F^(3):=NREC;«, l3=0x13}
0x0b3c…0b55 Line {l1=0x17, l2=» F^(4):=BLKPRBUC;«, l3=0x17}
0x0b55…0b6e Line {l1=0x17, l2=» F^(5):=RECPRBUC;«, l3=0x17}
0x0b6e…0b87 Line {l1=0x17, l2=» F^(6):=RECPRBLK;«, l3=0x17}
0x0b87…0b9f Line {l1=0x16, l2=» F^(7):=KEYFLDS;«, l3=0x16}
0x0b9f…0bb7 Line {l1=0x16, l2=» F^(8):=FLHSIZE;«, l3=0x16}
0x0bb7…0bcf Line {l1=0x16, l2=» F^(9):=BUTSIZE;«, l3=0x16}
0x0bcf…0be8 Line {l1=0x17, l2=» F^(10):=BLTSIZE;«, l3=0x17}
0x0be8…0c01 Line {l1=0x17, l2=» F^(11):=BLKSIZE;«, l3=0x17}
0x0c01…0c1a Line {l1=0x17, l2=» F^(12):=RECSIZE;«, l3=0x17}
0x0c1a…0c33 Line {l1=0x17, l2=» F^(13):=KEYSIZE;«, l3=0x17}
0x0c33…0c4d Line {l1=0x18, l2=» F^(14):=SEGINFLH;«, l3=0x18}
0x0c4d…0c67 Line {l1=0x18, l2=» F^(15):=SEGINBUT;«, l3=0x18}
0x0c67…0c81 Line {l1=0x18, l2=» F^(16):=SEGINBUC;«, l3=0x18}
0x0c81…0c9b Line {l1=0x18, l2=» F^(17):=SEGINBLT;«, l3=0x18}
0x0c9b…0cb5 Line {l1=0x18, l2=» F^(18):=SEGINBLK;«, l3=0x18}
0x0cb5…0cce Line {l1=0x17, l2=» F^(19):=INITREC;«, l3=0x17}
0x0cce…0ce8 Line {l1=0x18, l2=» F^(20):=BUCINUSE;«, l3=0x18}
0x0ce8…0d02 Line {l1=0x18, l2=» F^(21):=BLKINUSE;«, l3=0x18}
0x0d02…0d1c Line {l1=0x18, l2=» F^(22):=RECINUSE;«, l3=0x18}
0x0d1c…0d4f Line {l1=0x31, l2=» IF FILEINIT THEN F^(23):=1 ELSE F^(23):=0;«, l3=0x31}
0x0d4f…0d82 Line {l1=0x31, l2=» IF FILEOPEN THEN F^(24):=1 ELSE F^(24):=0;«, l3=0x31}
0x0d82…0d9b Line {l1=0x17, l2=» FOR I:=1 TO 9 DO«, l3=0x17}
0x0d9b…0da9 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0da9…0dca Line {l1=0x1f, l2=» F^(22+I*3):=KEYPOS(I);«, l3=0x1f}
0x0dca…0deb Line {l1=0x1f, l2=» F^(23+I*3):=KEYLNG(I);«, l3=0x1f}
0x0deb…0e0b Line {l1=0x1e, l2=» F^(24+I*3):=KEYSGN(I)«, l3=0x1e}
0x0e0b…0e18 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x0e18…0e2b Line {l1=0x11, l2=» SEEK(F,1);«, l3=0x11}
0x0e2b…0e3b Line {l1=0x0e, l2=» I:=IER;«, l3=0x0e}
0x0e3b…0e52 Line {l1=0x15, l2=» IER:=IORESULT;«, l3=0x15}
0x0e52…0e76 Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(IOPEN);«, l3=0x22}
0x0e76…0e86 Line {l1=0x0e, l2=» PUT(F);«, l3=0x0e}
0x0e86…0e9d Line {l1=0x15, l2=» IER:=IORESULT;«, l3=0x15}
0x0e9d…0ec1 Line {l1=0x22, l2=» IF IER<>0 THEN EXIT(IOPEN);«, l3=0x22}
0x0ec1…0ed0 Line {l1=0x0d, l2=» IER:=I«, l3=0x0d}
0x0ed0…0eda Line {l1=0x08, l2=» END«, l3=0x08}
0x0eda…0ee2 Line {l1=0x06, l2=» END«, l3=0x06}
0x0ee2…0ef3 Line {l1=0x0f, l2=»END (*IOPEN*);«, l3=0x0f}
0x0ef3…0f00 00 00 3d 4b 45 59 53 47 4e 28 49 29 1e ┆ =KEYSGN(I) ┆
0x0f00…0f20 0b 20 20 20 20 20 20 20 45 4e 44 3b 0b 11 20 20 20 20 20 20 20 53 45 45 4b 28 46 2c 31 29 3b 11 ┆ END; SEEK(F,1); ┆
0x0f20…0f40 0e 20 20 20 20 20 20 20 49 3a 3d 49 45 52 3b 0e 15 20 20 20 20 20 20 20 49 45 52 3a 3d 49 4f 52 ┆ I:=IER; IER:=IOR┆
0x0f40…0f60 45 53 55 4c 54 3b 15 22 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 58 ┆ESULT; " IF IER<>0 THEN EX┆
0x0f60…0f80 49 54 28 49 4f 50 45 4e 29 3b 22 0e 20 20 20 20 20 20 20 50 55 54 28 46 29 3b 0e 15 20 20 20 20 ┆IT(IOPEN);" PUT(F); ┆
0x0f80…0fa0 20 20 20 49 45 52 3a 3d 49 4f 52 45 53 55 4c 54 3b 15 22 20 20 20 20 20 20 20 49 46 20 49 45 52 ┆ IER:=IORESULT; " IF IER┆
0x0fa0…0fc0 3c 3e 30 20 54 48 45 4e 20 45 58 49 54 28 49 4f 50 45 4e 29 3b 22 0d 20 20 20 20 20 20 20 49 45 ┆<>0 THEN EXIT(IOPEN);" IE┆
0x0fc0…0fe0 52 3a 3d 49 0d 08 20 20 20 20 20 45 4e 44 08 06 20 20 20 45 4e 44 06 0f 45 4e 44 20 20 28 2a 49 ┆R:=I END END END (*I┆
0x0fe0…1000 4f 50 45 4e 2a 29 3b 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆OPEN*); ┆
0x1000…1020 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 ┆ ┆
[…0x1b…]