|
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«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »DELETE.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »DELETE.K«
(*$P*)
PROCEDURE DELETE(VAR F:ISF);
VAR J,K:INTEGER;
BEGIN
IER:=0;
WITH FILEHEAD(CURRHEAD) DO
IF FILEOPEN THEN
IF FILEINIT THEN
BEGIN
FINDPOST(F);
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(UDFØR) 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(F);
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…042 Line {l1=0x38, l2=»PROCEDURE DELETE(VAR F:ISF); «, l3=0x38}
0x042…054 Line {l1=0x10, l2=»VAR J,K:INTEGER;«, l3=0x10}
0x054…05b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05b…066 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x066…084 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x084…098 Line {l1=0x12, l2=» IF FILEOPEN THEN«, l3=0x12}
0x098…0ac Line {l1=0x12, l2=» IF FILEINIT THEN«, l3=0x12}
0x0ac…0b5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0b5…0cf Line {l1=0x18, l2=» FINDPOST(F); «, l3=0x18}
0x0cf…0e2 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x0e2…0ed Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0ed…107 Line {l1=0x18, l2=» IF RECINUSE>1 THEN«, l3=0x18}
0x107…114 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x114…14f Line {l1=0x39, l2=» IF BLKENTRY=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1) THEN«, l3=0x39}
0x14f…15e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x15e…17c Line {l1=0x1c, l2=» IF BLKENTRY=1 THEN«, l3=0x1c}
0x17c…18d Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x18d…1da Line {l1=0x4b, l2=» IF Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)=1 THEN BUCINUSE:=BUCINUSE-1«, l3=0x4b}
0x1da…1ec Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x1ec…235 Line {l1=0x47, l2=» IF COMPARE(KEY1,BUT+(BUCINZONE-1)*ENTRYSIZE+2)=0 THEN «, l3=0x47}
0x235…27e Line {l1=0x47, l2=» BEGIN «, l3=0x47}
0x27e…2c7 Line {l1=0x47, l2=» K:=BLKINZONE-1; «, l3=0x47}
0x2c7…310 Line {l1=0x47, l2=» WHILE (K>0) AND (Z(BLT+(K-1)*ENTRYSIZE+1)=0) DO K:=K-1; «, l3=0x47}
0x310…34c Line {l1=0x3a, l2=» IF K=0 THEN BEGIN IER:=-105;EXIT(UDFØR) END;«, l3=0x3a}
0x34c…395 Line {l1=0x47, l2=» FOR J:=1 TO KEYSIZE DO «, l3=0x47}
0x395…3e5 Line {l1=0x4e, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1+J):=Z(BLT+(K-1)*ENTRYSIZE+1+J)«, l3=0x4e}
0x3e5…42e Line {l1=0x47, l2=» END; «, l3=0x47}
0x42e…450 Line {l1=0x20, l2=» BLKINUSE:=BLKINUSE-1«, l3=0x20}
0x450…45f Line {l1=0x0d, l2=» END«, l3=0x0d}
0x45f…46f Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x46f…48f Line {l1=0x1e, l2=» SÆTKEY(BLKENTRY-1)«, l3=0x1e}
0x48f…49c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x49c…4aa Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x4aa…4ca Line {l1=0x1e, l2=» FSKDIBLK(-BLKENTRY);«, l3=0x1e}
0x4ca…519 Line {l1=0x4d, l2=» Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1):=Z(BLT+(BLKINZONE-1)*ENTRYSIZE+1)-1;«, l3=0x4d}
0x519…568 Line {l1=0x4d, l2=» Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1):=Z(BUT+(BUCINZONE-1)*ENTRYSIZE+1)-1;«, l3=0x4d}
0x568…587 Line {l1=0x1d, l2=» RECINUSE:=RECINUSE-1;«, l3=0x1d}
0x587…5b8 Line {l1=0x2f, l2=» BLKCHG:=TRUE;BLTCHG:=TRUE;BUTCHG:=TRUE;«, l3=0x2f}
0x5b8…5cd Line {l1=0x13, l2=» NEXTREC(F);«, l3=0x13}
0x5cd…5dd Line {l1=0x0e, l2=» IER:=0«, l3=0x0e}
0x5dd…5f5 Line {l1=0x16, l2=» END ELSE IER:=-9«, l3=0x16}
0x5f5…61a Line {l1=0x23, l2=» END ELSE IF IER=-1 THEN IER:=-6«, l3=0x23}
0x61a…63c Line {l1=0x20, l2=» END ELSE IER:=-12 ELSE IER:=-3«, l3=0x20}
0x63c…642 Line {l1=0x04, l2=»END;«, l3=0x04}
0x642…660 00 00 45 20 49 46 20 49 45 52 3d 2d 31 20 54 48 45 4e 20 49 45 52 3a 3d 2d 36 23 20 20 20 ┆ E IF IER=-1 THEN IER:=-6# ┆
0x660…680 45 4e 44 20 45 4c 53 45 20 49 45 52 3a 3d 2d 31 32 20 45 4c 53 45 20 49 45 52 3a 3d 2d 33 20 04 ┆END ELSE IER:=-12 ELSE IER:=-3 ┆
0x680…6a0 45 4e 44 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 ┆END; ┆
0x6a0…6c0 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 ┆ ┆
[…0x17…]
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 63 ┆ c┆