|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »HLÆSDESC.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »HLÆSDESC.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »HLÆSDESC.K«
PROCEDURE LÆSDESC;
TYPE
FELTFIL=FILE OF FELTBESKRIVELSE;
VAR
FFIL:FELTFIL;
I:INTEGER;
BEGIN
RESET(FFIL,DESCNAVN);
I:=IORESULT;
IF I<>0 THEN BAD(7,I);
GET(FFIL);
I:=0;
ANTALNØGLER:=0;
ANTALHÆGTER:=0;
ANTALIDENT:=0;
WHILE FFIL^.INDPOS.X>0 DO
BEGIN
I:=I+1;
CASE FFIL^.FELTTYPE OF
REEL:NEW(PICTURE(I),FELTDESC,REEL);
HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)
END;
FELT:=PICTURE(I);
WITH PICTURE(I)^ DO
BEGIN
DESCTYPE:=FELTDESC;
INDPOS.X:=FFIL^.INDPOS.X;
INDPOS.Y:=FFIL^.INDPOS.Y;
UDPOS.X:=FFIL^.UDPOS.X;
UDPOS.Y:=FFIL^.UDPOS.Y;
KIKKENIVEAU:=FFIL^.KIKKENIVEAU;
ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;
IF ÆNDRENIVEAU=UMULIUS THEN
BEGIN
ANTALNØGLER:=ANTALNØGLER+1;
NØGLER(ANTALNØGLER):=PICTURE(I)
END;
LEDETEKST:=FFIL^.LEDETEKST;
FØLGETEKST:=FFIL^.FØLGETEKST;
EDITERING:=FFIL^.EDITERING;
FELTTYPE:=FFIL^.FELTTYPE;
INDEKS:=FFIL^.INDEKS;
LÆNGDE:=FFIL^.LÆNGDE;
HÆGTE:=FFIL^.HÆGTE;
IF HÆGTE>0 THEN
BEGIN
ANTALHÆGTER:=ANTALHÆGTER+1;
HÆGTER(ANTALHÆGTER):=PICTURE(I); (*$R-*)
HÆGTEREC(ANTALHÆGTER).A(-4):=0;
HÆGTEREC(ANTALHÆGTER).A(-3):=HÆGTE (*$R+*)
END
ELSE
IF HÆGTE<0 THEN
BEGIN
ANTALIDENT:=ANTALIDENT+1;
IDENT(ANTALIDENT):=PICTURE(I)
END;
FORAN0:=FFIL^.FORAN0;
IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;
WHILE FFIL^.NÆSTEVAL<>NIL DO
BEGIN
GET(FFIL);
WITH FELT^ DO
CASE FFIL^.VALIDITETSTYPE OF
HINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,HINTERVAL);
NÆSTEVAL^.MIN:=FFIL^.MIN;
NÆSTEVAL^.MAX:=FFIL^.MAX
END;
DINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,DINTERVAL);
NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;
NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2
END;
RINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,RINTERVAL);
NÆSTEVAL^.RMIN:=FFIL^.RMIN;
NÆSTEVAL^.RMAX:=FFIL^.RMAX
END;
DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)
END;
FELT:=FELT^.NÆSTEVAL;
FELT^.DESCTYPE:=VALIDESC;
FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE
END;
FELT^.NÆSTEVAL:=NIL
END;
GET(FFIL)
END;
CLOSE(FFIL);
ANTALFELTER:=I
END;
0x0000…0014 Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x0014…001a Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x001a…003c Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x003c…0041 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x0041…0050 Line {l1=0x0d, l2=»FFIL:FELTFIL;«, l3=0x0d}
0x0050…005c Line {l1=0x0a, l2=»I:INTEGER;«, l3=0x0a}
0x005c…0063 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0063…007c Line {l1=0x17, l2=» RESET(FFIL,DESCNAVN);«, l3=0x17}
0x007c…008c Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x008c…00a6 Line {l1=0x18, l2=» IF I<>0 THEN BAD(7,I);«, l3=0x18}
0x00a6…00b4 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x00b4…00bd Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x00bd…00d0 Line {l1=0x11, l2=» ANTALNØGLER:=0;«, l3=0x11}
0x00d0…00e3 Line {l1=0x11, l2=» ANTALHÆGTER:=0;«, l3=0x11}
0x00e3…00f5 Line {l1=0x10, l2=» ANTALIDENT:=0;«, l3=0x10}
0x00f5…0112 Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x0112…011b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x011b…0128 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x0128…0144 Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x0144…016d Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x016d…01a7 Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x01a7…01b1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x01b1…01c8 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x01c8…01e1 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x01e1…01ec Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x01ec…0207 Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x0207…0228 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x0228…0249 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x0249…0268 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x0268…0287 Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x0287…02ae Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x02ae…02d5 Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x02d5…02f8 Line {l1=0x21, l2=» IF ÆNDRENIVEAU=UMULIUS THEN«, l3=0x21}
0x02f8…0305 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0305…032a Line {l1=0x23, l2=» ANTALNØGLER:=ANTALNØGLER+1;«, l3=0x23}
0x032a…0353 Line {l1=0x27, l2=» NØGLER(ANTALNØGLER):=PICTURE(I)«, l3=0x27}
0x0353…035f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x035f…0382 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x0382…03a7 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x03a7…03ca Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x03ca…03eb Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x03eb…0408 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x0408…0425 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x0425…0440 Line {l1=0x19, l2=» HÆGTE:=FFIL^.HÆGTE;«, l3=0x19}
0x0440…0457 Line {l1=0x15, l2=» IF HÆGTE>0 THEN«, l3=0x15}
0x0457…0464 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0464…0489 Line {l1=0x23, l2=» ANTALHÆGTER:=ANTALHÆGTER+1;«, l3=0x23}
0x0489…04c1 Line {l1=0x36, l2=» HÆGTER(ANTALHÆGTER):=PICTURE(I); (*$R-*)«, l3=0x36}
0x04c1…04ea Line {l1=0x27, l2=» HÆGTEREC(ANTALHÆGTER).A(-4):=0;«, l3=0x27}
0x04ea…0522 Line {l1=0x36, l2=» HÆGTEREC(ANTALHÆGTER).A(-3):=HÆGTE (*$R+*)«, l3=0x36}
0x0522…052e Line {l1=0x0a, l2=» END «, l3=0x0a}
0x052e…053a Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x053a…0551 Line {l1=0x15, l2=» IF HÆGTE<0 THEN«, l3=0x15}
0x0551…055e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x055e…0581 Line {l1=0x21, l2=» ANTALIDENT:=ANTALIDENT+1;«, l3=0x21}
0x0581…05a8 Line {l1=0x25, l2=» IDENT(ANTALIDENT):=PICTURE(I)«, l3=0x25}
0x05a8…05b4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x05b4…05d1 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x05d1…05fe Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x05fe…0622 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x0622…062f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x062f…0643 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x0643…065a Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x065a…0680 Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x0680…069b Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x069b…06d4 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x06d4…0705 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x0705…0735 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x0735…074f Line {l1=0x18, l2=» END;«, l3=0x18}
0x074f…076a Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x076a…07a3 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x07a3…07f1 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x07f1…083e Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x083e…0858 Line {l1=0x18, l2=» END;«, l3=0x18}
0x0858…0873 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x0873…08ac Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x08ac…08df Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x08df…0911 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x0911…092b Line {l1=0x18, l2=» END;«, l3=0x18}
0x092b…095b Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x095b…0969 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0969…0988 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x0988…09ab Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x09ab…09df Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x09df…09eb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09eb…0a06 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x0a06…0a10 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0a10…0a1f Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x0a1f…0a27 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0a27…0a37 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x0a37…0a49 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x0a49…0a4f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a4f…0a60 00 00 44 45 53 43 4e 41 56 4e 29 3b 17 0e 20 20 49 ┆ DESCNAVN); I┆
0x0a60…0a80 3a 3d 49 4f 52 45 53 55 4c 54 3b 0e 18 20 20 49 46 20 49 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 ┆:=IORESULT; IF I<>0 THEN BAD(┆
0x0a80…0aa0 37 2c 49 29 3b 18 0c 20 20 47 45 54 28 46 46 49 4c 29 3b 0c 07 20 20 49 3a 3d 30 3b 07 11 20 20 ┆7,I); GET(FFIL); I:=0; ┆
0x0aa0…0ac0 41 4e 54 41 4c 4e 5c 47 4c 45 52 3a 3d 30 3b 11 11 20 20 41 4e 54 41 4c 48 5b 47 54 45 52 3a 3d ┆ANTALNØGLER:=0; ANTALHÆGTER:=┆
0x0ac0…0ae0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x0ae0…0b00 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┆
[…0x6…]
0x0bc0…0be0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x0be0…0c00 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┆
[…0x6…]
0x0cc0…0ce0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x0ce0…0d00 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┆
[…0x6…]
0x0dc0…0de0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x0de0…0e00 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┆
[…0x6…]
0x0ec0…0ee0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x0ee0…0f00 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┆
[…0x6…]
0x0fc0…0fe0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x0fe0…1000 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┆
[…0x6…]
0x10c0…10e0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x10e0…1100 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┆
[…0x6…]
0x11c0…11e0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x11e0…1200 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┆
[…0x6…]
0x12c0…12e0 8a 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 ┆ ccccccccccccccccccccccccccccccc┆
0x12e0…1300 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┆
[…0x6…]