|
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: »RLÆSDESC.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »RLÆSDESC.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »RLÆ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;
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;
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;
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;
0x000…014 Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x014…01a Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x01a…03c Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x03c…041 Line {l1=0x03, l2=»VAR«, l3=0x03}
0x041…050 Line {l1=0x0d, l2=»FFIL:FELTFIL;«, l3=0x0d}
0x050…05c Line {l1=0x0a, l2=»I:INTEGER;«, l3=0x0a}
0x05c…063 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x063…07c Line {l1=0x17, l2=» RESET(FFIL,DESCNAVN);«, l3=0x17}
0x07c…08c Line {l1=0x0e, l2=» I:=IORESULT;«, l3=0x0e}
0x08c…0a6 Line {l1=0x18, l2=» IF I<>0 THEN BAD(7,I);«, l3=0x18}
0x0a6…0b4 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x0b4…0bd Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x0bd…0da Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x0da…0e3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0e3…0f0 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x0f0…10c Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x10c…135 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x135…16f Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x16f…179 Line {l1=0x08, l2=» END;«, l3=0x08}
0x179…190 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x190…1a9 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x1a9…1b4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1b4…1cf Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x1cf…1f0 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x1f0…211 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x211…230 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x230…24f Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x24f…276 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x276…29d Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x29d…2c0 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x2c0…2e5 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x2e5…308 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x308…329 Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x329…346 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x346…363 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x363…37e Line {l1=0x19, l2=» HÆGTE:=FFIL^.HÆGTE;«, l3=0x19}
0x37e…39b Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x39b…3c8 Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x3c8…3ec Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x3ec…3f9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3f9…40d Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x40d…424 Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x424…44a Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x44a…465 Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x465…49e Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x49e…4cf Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x4cf…4ff Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x4ff…519 Line {l1=0x18, l2=» END;«, l3=0x18}
0x519…534 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x534…56d Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x56d…5bb Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x5bb…608 Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x608…622 Line {l1=0x18, l2=» END;«, l3=0x18}
0x622…63d Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x63d…676 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x676…6a9 Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x6a9…6db Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x6db…6f5 Line {l1=0x18, l2=» END;«, l3=0x18}
0x6f5…725 Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x725…733 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x733…752 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x752…775 Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x775…7a9 Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x7a9…7b5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x7b5…7d0 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x7d0…7da Line {l1=0x08, l2=» END;«, l3=0x08}
0x7da…7e9 Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x7e9…7f1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x7f1…801 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x801…813 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x813…819 Line {l1=0x04, l2=»END;«, l3=0x04}
0x819…820 00 00 29 20 54 48 45 ┆ ) THE┆
0x820…840 4e 22 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 1c 20 20 20 20 20 20 20 20 53 45 45 4b 28 50 52 4f ┆N" BEGIN SEEK(PRO┆
0x840…860 47 53 2c 49 2d 32 29 3b 49 4f 43 3b 1c 17 20 20 20 20 20 20 20 20 47 45 54 28 50 52 4f 47 53 29 ┆GS,I-2);IOC; GET(PROGS)┆
0x860…880 3b 49 4f 43 3b 17 2d 20 20 20 20 20 20 20 20 49 46 20 50 52 4f 47 53 5e 2e 50 52 4f 47 4e 49 56 ┆;IOC; - IF PROGS^.PROGNIV┆
0x880…8a0 45 41 55 3c 3d 55 53 45 52 4e 49 56 45 41 55 20 54 48 45 4e 2d 0d 20 20 20 20 20 20 20 20 42 45 ┆EAU<=USERNIVEAU THEN- BE┆
0x8a0…8c0 47 49 4e 0d 10 20 20 20 20 20 20 20 20 20 20 46 3a 3d 27 27 3b 10 13 20 20 20 20 20 20 20 20 20 ┆GIN F:=''; ┆
0x8c0…8e0 20 53 43 48 3a 3d 27 20 27 3b 13 0f 20 20 20 20 20 20 20 20 20 20 4a 3a 3d 30 3b 0f 17 20 20 20 ┆ SCH:=' '; J:=0; ┆
0x8e0…900 20 20 20 20 20 20 20 57 48 49 4c 45 20 4a 3c 31 38 20 44 4f 17 0f 20 20 20 20 20 20 20 20 20 20 ┆ WHILE J<18 DO ┆
0x900…920 42 45 47 49 4e 0f 13 20 20 20 20 20 20 20 20 20 20 20 20 4a 3a 3d 4a 2b 31 3b 13 2a 20 20 20 20 ┆BEGIN J:=J+1; * ┆
0x920…940 20 20 20 20 20 20 20 20 49 46 20 50 52 4f 47 53 5e 2e 50 52 4f 47 46 49 4c 28 4a 29 3c 3e 27 20 ┆ IF PROGS^.PROGFIL(J)<>' ┆
0x940…960 27 20 54 48 45 4e 2a 11 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 28 20 20 20 20 20 ┆' THEN* BEGIN ( ┆
0x960…980 20 20 20 20 20 20 20 20 20 53 43 48 28 31 29 3a 3d 50 52 4f 47 53 5e 2e 50 52 4f 47 46 49 4c 28 ┆ SCH(1):=PROGS^.PROGFIL(┆
0x980…9a0 4a 29 3b 28 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 3a 3d 43 4f 4e 43 41 54 28 46 2c 53 ┆J);( F:=CONCAT(F,S┆
0x9a0…9c0 43 48 29 1e 0f 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0f 16 20 20 20 20 20 20 20 20 20 20 ┆CH) END ┆
0x9c0…9e0 20 20 45 4c 53 45 20 4a 3a 3d 31 38 16 0d 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0b 20 20 63 ┆ ELSE J:=18 END c┆