|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »DELETE.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »DELETE.K«
PROCEDURE DELETE(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);
VAR J,K:INTEGER;
BEGIN
IER:=0;
WITH ZO DO
IF FILEOPEN THEN
IF FILEINIT THEN
BEGIN
FINDPOST(ZO,F,REC);
IF IER=0 THEN
BEGIN
IF RECINUSE>1 THEN
BEGIN
IF BLKENTRY=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1) THEN
BEGIN
IF BLKENTRY=1 THEN
BEGIN
IF Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)=1 THEN BUCINUSE:=BUCINUSE-1
ELSE
IF COMPARE(ZO,Z,Z,KEY1,BUT+(BUCINZONE-1)*ENTRYSIZE+2)=0 THEN
BEGIN
K:=BLKINZONE-1;
WHILE (K>0) AND (Z(BLT+(K-1)*ENTRYSIZE+1)=0) DO K:=K-1;
IF K=0 THEN BEGIN WRITE('TABELFEJL 3');K:=K DIV 0 END;
FOR J:=1 TO KEYSIZE DO
Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1+J):=
Z(BLT+(K-1)*ENTRYSIZE+1+J)
END;
BLKINUSE:=BLKINUSE-1
END
ELSE
SÆTKEY(ZO,BLKENTRY-1)
END
ELSE
FSKDIBLK(ZO,-BLKENTRY);
Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1):=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)-1;
Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-1;
RECINUSE:=RECINUSE-1;
BLKCHG:=TRUE;BLTCHG:=TRUE;BUTCHG:=TRUE;
NEXTREC(ZO,F,REC);
IF IER>0 THEN EXIT(DELETE);
IER:=0
END ELSE IER:=-9
END ELSE IF IER=-1 THEN IER:=-6
END ELSE IER:=-12 ELSE IER:=-3
END;
0x000…038 Line {l1=0x36, l2=»PROCEDURE DELETE(VAR ZO:ISFHEAD;VAR F:ISF;VAR REC:AR);«, l3=0x36}
0x038…04a Line {l1=0x10, l2=»VAR J,K:INTEGER;«, l3=0x10}
0x04a…051 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x051…05c Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x05c…06a Line {l1=0x0c, l2=» WITH ZO DO«, l3=0x0c}
0x06a…07e Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x07e…092 Line {l1=0x12, l2=» IF FILEINIT THEN«, l3=0x12}
0x092…09b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x09b…0b4 Line {l1=0x17, l2=» FINDPOST(ZO,F,REC);«, l3=0x17}
0x0b4…0c7 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x0c7…0d2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0d2…0ec Line {l1=0x18, l2=» IF RECINUSE>1 THEN«, l3=0x18}
0x0ec…0f9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0f9…134 Line {l1=0x39, l2=» IF BLKENTRY=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1) THEN«, l3=0x39}
0x134…143 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x143…161 Line {l1=0x1c, l2=» IF BLKENTRY=1 THEN«, l3=0x1c}
0x161…172 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x172…1bf Line {l1=0x4b, l2=» IF Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)=1 THEN BUCINUSE:=BUCINUSE-1«, l3=0x4b}
0x1bf…1d1 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x1d1…21d Line {l1=0x4a, l2=» IF COMPARE(ZO,Z,Z,KEY1,BUT+(BUCINZONE-1)*ENTRYSIZE+2)=0 THEN«, l3=0x4a}
0x21d…232 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x232…253 Line {l1=0x1f, l2=» K:=BLKINZONE-1;«, l3=0x1f}
0x253…29c Line {l1=0x47, l2=» WHILE (K>0) AND (Z(BLT+(K-1)*ENTRYSIZE+1)=0) DO K:=K-1;«, l3=0x47}
0x29c…2e4 Line {l1=0x46, l2=» IF K=0 THEN BEGIN WRITE('TABELFEJL 3');K:=K DIV 0 END;«, l3=0x46}
0x2e4…30c Line {l1=0x26, l2=» FOR J:=1 TO KEYSIZE DO«, l3=0x26}
0x30c…346 Line {l1=0x38, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1+J):=«, l3=0x38}
0x346…37e Line {l1=0x36, l2=» Z(BLT+(K-1)*ENTRYSIZE+1+J)«, l3=0x36}
0x37e…392 Line {l1=0x12, l2=» END;«, l3=0x12}
0x392…3b4 Line {l1=0x20, l2=» BLKINUSE:=BLKINUSE-1«, l3=0x20}
0x3b4…3c3 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x3c3…3d3 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x3d3…3f4 Line {l1=0x1f, l2=» SÆTKEY(ZO,BLKENTRY-1)«, l3=0x1f}
0x3f4…401 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x401…40f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x40f…432 Line {l1=0x21, l2=» FSKDIBLK(ZO,-BLKENTRY);«, l3=0x21}
0x432…481 Line {l1=0x4d, l2=» Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1):=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)-1;«, l3=0x4d}
0x481…4d0 Line {l1=0x4d, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-1;«, l3=0x4d}
0x4d0…4ef Line {l1=0x1d, l2=» RECINUSE:=RECINUSE-1;«, l3=0x1d}
0x4ef…520 Line {l1=0x2f, l2=» BLKCHG:=TRUE;BLTCHG:=TRUE;BUTCHG:=TRUE;«, l3=0x2f}
0x520…53c Line {l1=0x1a, l2=» NEXTREC(ZO,F,REC);«, l3=0x1a}
0x53c…561 Line {l1=0x23, l2=» IF IER>0 THEN EXIT(DELETE);«, l3=0x23}
0x561…571 Line {l1=0x0e, l2=» IER:=0«, l3=0x0e}
0x571…589 Line {l1=0x16, l2=» END ELSE IER:=-9«, l3=0x16}
0x589…5ae Line {l1=0x23, l2=» END ELSE IF IER=-1 THEN IER:=-6«, l3=0x23}
0x5ae…5d0 Line {l1=0x20, l2=» END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x5d0…5d6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5d6…5e0 00 00 20 45 4c 53 45 20 49 45 ┆ ELSE IE┆
0x5e0…600 52 3a 3d 2d 31 32 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 20 04 45 4e 44 3b 04 00 00 04 45 4e 44 ┆R:=-12 ELSE IER:=-3 END; END┆
0x600…620 3b 04 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 ┆; ┆
0x620…640 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…]
0x9a0…9c0 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 ea ┆ ┆