|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »PEXTRACT.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »PEXTRACT.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »PEXTRACT.K«
PROCEDURE PEXTRACT(RESPOS:INTEGER);
(*UDTRÆK NØGLE AF POST , OG GEM I KEY*)
VAR I:INTEGER;
J,KP :POSTADR;
BEGIN
WITH FILEHEAD(CURRHEAD) DO
FOR I:=1 TO KEYFLDS DO
BEGIN
KP:=KEYPOS(I)-1;
FOR J:=1 TO KEYLNG(I) DO
BEGIN
KEY(RESPOS):=REC^(KP+J);
RESPOS:=RESPOS+1
END
END
END;
0x000…025 Line {l1=0x23, l2=»PROCEDURE PEXTRACT(RESPOS:INTEGER);«, l3=0x23}
0x025…04e Line {l1=0x27, l2=»(*UDTRÆK NØGLE AF POST , OG GEM I KEY*)«, l3=0x27}
0x04e…05e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x05e…072 Line {l1=0x12, l2=» J,KP :POSTADR;«, l3=0x12}
0x072…079 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x079…097 Line {l1=0x1c, l2=» WITH FILEHEAD(CURRHEAD) DO«, l3=0x1c}
0x097…0bd Line {l1=0x24, l2=» FOR I:=1 TO KEYFLDS DO «, l3=0x24}
0x0bd…0e3 Line {l1=0x24, l2=» BEGIN «, l3=0x24}
0x0e3…109 Line {l1=0x24, l2=» KP:=KEYPOS(I)-1; «, l3=0x24}
0x109…12f Line {l1=0x24, l2=» FOR J:=1 TO KEYLNG(I) DO «, l3=0x24}
0x12f…155 Line {l1=0x24, l2=» BEGIN «, l3=0x24}
0x155…17d Line {l1=0x26, l2=» KEY(RESPOS):=REC^(KP+J); «, l3=0x26}
0x17d…1a3 Line {l1=0x24, l2=» RESPOS:=RESPOS+1 «, l3=0x24}
0x1a3…1c9 Line {l1=0x24, l2=» END «, l3=0x24}
0x1c9…1ef Line {l1=0x24, l2=» END «, l3=0x24}
0x1ef…1f5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f5…200 00 00 63 63 63 63 63 63 63 63 63 ┆ ccccccccc┆
0x200…220 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┆
[…0xe…]