|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »DELET1.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »DELET1.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »DELET1.K«
(*$P*)
PROCEDURE DELETE;
VAR J,K:INTEGER;
BEGIN
IER:=0;
WITH FILEHEAD DO
IF FILEOPEN THEN
IF FILEINIT THEN
BEGIN
FINDPOST;
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(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 IER:=-105;EXIT(OBEY) 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(BLKENTRY-1)
END
ELSE
FSKDIBLK(-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;
IER:=0
END ELSE IER:=-9
END ELSE IF IER=-1 THEN IER:=-6
END ELSE IER:=-12 ELSE IER:=-3
END;
0x000…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…01b Line {l1=0x11, l2=»PROCEDURE DELETE;«, l3=0x11}
0x01b…02d Line {l1=0x10, l2=»VAR J,K:INTEGER;«, l3=0x10}
0x02d…034 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x034…03f Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x03f…053 Line {l1=0x12, l2=» WITH FILEHEAD DO«, l3=0x12}
0x053…067 Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x067…07b Line {l1=0x12, l2=» IF FILEINIT THEN«, l3=0x12}
0x07b…084 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x084…093 Line {l1=0x0d, l2=» FINDPOST;«, l3=0x0d}
0x093…0a6 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x0a6…0b1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b1…0cb Line {l1=0x18, l2=» IF RECINUSE>1 THEN«, l3=0x18}
0x0cb…0d8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d8…113 Line {l1=0x39, l2=» IF BLKENTRY=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1) THEN«, l3=0x39}
0x113…122 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x122…140 Line {l1=0x1c, l2=» IF BLKENTRY=1 THEN«, l3=0x1c}
0x140…151 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x151…19e Line {l1=0x4b, l2=» IF Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)=1 THEN BUCINUSE:=BUCINUSE-1«, l3=0x4b}
0x19e…1b0 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x1b0…1f9 Line {l1=0x47, l2=» IF COMPARE(KEY1,BUT+(BUCINZONE-1)*ENTRYSIZE+2)=0 THEN «, l3=0x47}
0x1f9…242 Line {l1=0x47, l2=» BEGIN «, l3=0x47}
0x242…28b Line {l1=0x47, l2=» K:=BLKINZONE-1; «, l3=0x47}
0x28b…2d4 Line {l1=0x47, l2=» WHILE (K>0) AND (Z(BLT+(K-1)*ENTRYSIZE+1)=0) DO K:=K-1; «, l3=0x47}
0x2d4…30f Line {l1=0x39, l2=» IF K=0 THEN BEGIN IER:=-105;EXIT(OBEY) END;«, l3=0x39}
0x30f…358 Line {l1=0x47, l2=» FOR J:=1 TO KEYSIZE DO «, l3=0x47}
0x358…3a8 Line {l1=0x4e, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1+J):=Z(BLT+(K-1)*ENTRYSIZE+1+J)«, l3=0x4e}
0x3a8…3f1 Line {l1=0x47, l2=» END; «, l3=0x47}
0x3f1…413 Line {l1=0x20, l2=» BLKINUSE:=BLKINUSE-1«, l3=0x20}
0x413…422 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x422…432 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x432…452 Line {l1=0x1e, l2=» SÆTKEY(BLKENTRY-1)«, l3=0x1e}
0x452…45f Line {l1=0x0b, l2=» END«, l3=0x0b}
0x45f…46d Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x46d…48d Line {l1=0x1e, l2=» FSKDIBLK(-BLKENTRY);«, l3=0x1e}
0x48d…4dc Line {l1=0x4d, l2=» Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1):=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)-1;«, l3=0x4d}
0x4dc…52b Line {l1=0x4d, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-1;«, l3=0x4d}
0x52b…54a Line {l1=0x1d, l2=» RECINUSE:=RECINUSE-1;«, l3=0x1d}
0x54a…57b Line {l1=0x2f, l2=» BLKCHG:=TRUE;BLTCHG:=TRUE;BUTCHG:=TRUE;«, l3=0x2f}
0x57b…58d Line {l1=0x10, l2=» NEXTREC;«, l3=0x10}
0x58d…59d Line {l1=0x0e, l2=» IER:=0«, l3=0x0e}
0x59d…5b5 Line {l1=0x16, l2=» END ELSE IER:=-9«, l3=0x16}
0x5b5…5da Line {l1=0x23, l2=» END ELSE IF IER=-1 THEN IER:=-6«, l3=0x23}
0x5da…5fc Line {l1=0x20, l2=» END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x5fc…602 Line {l1=0x04, l2=»END;«, l3=0x04}
0x602…620 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 ┆ cccccccccccccccccccccccccccc┆
0x620…640 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┆
[…0x1d…]