|
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: »HENTKARM.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »HENTKARM.K«
PROCEDURE HENTKARM(NR1,KFA,KMONT:INTEGER;VAR AKA:AKARMTYP);
TYPE KARMZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MKARMEZ) OF INTEGER;
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MPOSTERZ) OF INTEGER;
END;
KARMPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
ØFORSTÆRK,
NFORSTÆRK
FFORSTÆRK,
BFOSTÆRK:AR13;
TYPE:AR14;
TÆTGUM:INTEGER;
TEKST:TEK;
END;
POSTPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KARMNR,
NR,
VANDLOD,
GÅFRA,
GÅTIL,
PLACE:INTEGER;
FORSTÆRK:AR13;
TYP:INTEGER;
END;
VAR KARF,POSF:ISF;
KARZ:KARMZONE;
POSZ:POSTZONE;
KARM:KARMPOST;
POST:POSTPOST;
REGEL:INTEGER;
I1,I:INTEGER;
BEGIN
REGEL:=3;
IF KMONT=0 THEN
BEGIN
REGEL:=2
IF KFA=0 THEN REGEL:=1;
END;
WITH KARM DO
BEGIN
OWRITE(KARZ.H,KARF,3,LÆS);
NR:=NR1;
GETREC(KARZ.H,KARF,A);
IF IER<>0 THEN IOF(KARZ.H.FILENAME);
FOR I:=1 TO 4 DO
BEGIN
AKA(I).PLACE:=((I+1)MOD 2)*4;
AKA(I).FRA:=0;
AKA(I).TIL:=4;
AKA(I).TYPE:=TYPE(I);
AKA(I).VANDLOD:=I DIV 3;
FOR I1:=1 TO 8 DO AKA(I).BESLAG(I1):=0;
END;
AKA(1).FORSTÆRK:=ØFORSTÆRK(REGEL);
AKA(2).FORSTÆRK:=NFORSTÆRK(REGEL);
AKA(3).FORSTÆRK:=FFORSTÆRK(REGEL);
AKA(4).FORSTÆRK:=BFORSTÆRK(REGEL);
ICLOSE(KARZ.H,KARF);
END;
WITH POST DO
BEGIN
OWRITE(POSZ.H,POSF,11,LÆS);
KARMNR:=NR1;
FOR NR:=1 TO 15 DO
BEGIN
GETREC(POSZ.H,POSF,A);
IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);
IF IER=0 THEN
BEGIN
AKA(NR+4).FORSTÆRK:=FORSTÆRK(REGEL);
AKA(NR+4).PLACE:=PLACE;
AKA(NR+4).FRA:=GÅFRA;
AKA(NR+4).TIL:=GÅTIL;
AKA(NR+4).TYPE:=TYP+2;
AKA(NR+4).VANDLOD:=VANDLOD;
FORI1:=1 TO 8 DO AKA(NR+4).BESLAG(I1):=0;
END
ELSE
BEGIN
AKA(NR+4).TYPE:=0;IER:=0;
END;
END;
ICLOSE(POSZ.H,POSF);
END;
END;
0x000…03d Line {l1=0x3b, l2=»PROCEDURE HENTKARM(NR1,KFA,KMONT:INTEGER;VAR AKA:AKARMTYP);«, l3=0x3b}
0x03d…040 Line {l1=0x01, l2=» «, l3=0x01}
0x040…056 Line {l1=0x14, l2=»TYPE KARMZONE=RECORD«, l3=0x14}
0x056…070 Line {l1=0x18, l2=» H:ISFHEAD;«, l3=0x18}
0x070…09f Line {l1=0x2d, l2=» T:ARRAY(1..MKARMEZ) OF INTEGER;«, l3=0x2d}
0x09f…0aa Line {l1=0x09, l2=» END;«, l3=0x09}
0x0aa…0ad Line {l1=0x01, l2=» «, l3=0x01}
0x0ad…0c3 Line {l1=0x14, l2=» POSTZONE=RECORD«, l3=0x14}
0x0c3…0dd Line {l1=0x18, l2=» H:ISFHEAD;«, l3=0x18}
0x0dd…10d Line {l1=0x2e, l2=» T:ARRAY(1..MPOSTERZ) OF INTEGER;«, l3=0x2e}
0x10d…118 Line {l1=0x09, l2=» END;«, l3=0x09}
0x118…11b Line {l1=0x01, l2=» «, l3=0x01}
0x11b…131 Line {l1=0x14, l2=» KARMPOST=RECORD«, l3=0x14}
0x131…149 Line {l1=0x16, l2=» AA:ARAR;«, l3=0x16}
0x149…15e Line {l1=0x13, l2=» A:AR;«, l3=0x13}
0x15e…176 Line {l1=0x16, l2=» AAA:RAR;«, l3=0x16}
0x176…191 Line {l1=0x19, l2=» NR:INTEGER;«, l3=0x19}
0x191…1ab Line {l1=0x18, l2=» ØFORSTÆRK,«, l3=0x18}
0x1ab…1c4 Line {l1=0x17, l2=» NFORSTÆRK«, l3=0x17}
0x1c4…1de Line {l1=0x18, l2=» FFORSTÆRK,«, l3=0x18}
0x1de…1fc Line {l1=0x1c, l2=» BFOSTÆRK:AR13;«, l3=0x1c}
0x1fc…216 Line {l1=0x18, l2=» TYPE:AR14;«, l3=0x18}
0x216…235 Line {l1=0x1d, l2=» TÆTGUM:INTEGER;«, l3=0x1d}
0x235…24f Line {l1=0x18, l2=» TEKST:TEK;«, l3=0x18}
0x24f…25b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x25b…25e Line {l1=0x01, l2=» «, l3=0x01}
0x25e…275 Line {l1=0x15, l2=» POSTPOST=RECORD«, l3=0x15}
0x275…28e Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x28e…2a4 Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x2a4…2bd Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x2bd…2d5 Line {l1=0x16, l2=» KARMNR,«, l3=0x16}
0x2d5…2e9 Line {l1=0x12, l2=» NR,«, l3=0x12}
0x2e9…302 Line {l1=0x17, l2=» VANDLOD,«, l3=0x17}
0x302…319 Line {l1=0x15, l2=» GÅFRA,«, l3=0x15}
0x319…330 Line {l1=0x15, l2=» GÅTIL,«, l3=0x15}
0x330…34f Line {l1=0x1d, l2=» PLACE:INTEGER;«, l3=0x1d}
0x34f…36e Line {l1=0x1d, l2=» FORSTÆRK:AR13;«, l3=0x1d}
0x36e…38b Line {l1=0x1b, l2=» TYP:INTEGER;«, l3=0x1b}
0x38b…397 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x397…39a Line {l1=0x01, l2=» «, l3=0x01}
0x39a…3ae Line {l1=0x12, l2=»VAR KARF,POSF:ISF;«, l3=0x12}
0x3ae…3c2 Line {l1=0x12, l2=» KARZ:KARMZONE;«, l3=0x12}
0x3c2…3d6 Line {l1=0x12, l2=» POSZ:POSTZONE;«, l3=0x12}
0x3d6…3ea Line {l1=0x12, l2=» KARM:KARMPOST;«, l3=0x12}
0x3ea…3fe Line {l1=0x12, l2=» POST:POSTPOST;«, l3=0x12}
0x3fe…412 Line {l1=0x12, l2=» REGEL:INTEGER;«, l3=0x12}
0x412…425 Line {l1=0x11, l2=» I1,I:INTEGER;«, l3=0x11}
0x425…428 Line {l1=0x01, l2=» «, l3=0x01}
0x428…42f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x42f…43c Line {l1=0x0b, l2=» REGEL:=3;«, l3=0x0b}
0x43c…44f Line {l1=0x11, l2=» IF KMONT=0 THEN«, l3=0x11}
0x44f…458 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x458…466 Line {l1=0x0c, l2=» REGEL:=2«, l3=0x0c}
0x466…483 Line {l1=0x1b, l2=» IF KFA=0 THEN REGEL:=1;«, l3=0x1b}
0x483…48b Line {l1=0x06, l2=» END;«, l3=0x06}
0x48b…49b Line {l1=0x0e, l2=» WITH KARM DO«, l3=0x0e}
0x49b…4a4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4a4…4c4 Line {l1=0x1e, l2=» OWRITE(KARZ.H,KARF,3,LÆS);«, l3=0x1e}
0x4c4…4d2 Line {l1=0x0c, l2=» NR:=NR1;«, l3=0x0c}
0x4d2…4ee Line {l1=0x1a, l2=» GETREC(KARZ.H,KARF,A);«, l3=0x1a}
0x4ee…518 Line {l1=0x28, l2=» IF IER<>0 THEN IOF(KARZ.H.FILENAME);«, l3=0x28}
0x518…52e Line {l1=0x14, l2=» FOR I:=1 TO 4 DO«, l3=0x14}
0x52e…539 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x539…55e Line {l1=0x23, l2=» AKA(I).PLACE:=((I+1)MOD 2)*4;«, l3=0x23}
0x55e…574 Line {l1=0x14, l2=» AKA(I).FRA:=0;«, l3=0x14}
0x574…58a Line {l1=0x14, l2=» AKA(I).TIL:=4;«, l3=0x14}
0x58a…5a7 Line {l1=0x1b, l2=» AKA(I).TYPE:=TYPE(I);«, l3=0x1b}
0x5a7…5c7 Line {l1=0x1e, l2=» AKA(I).VANDLOD:=I DIV 3;«, l3=0x1e}
0x5c7…5f6 Line {l1=0x2d, l2=» FOR I1:=1 TO 8 DO AKA(I).BESLAG(I1):=0;«, l3=0x2d}
0x5f6…600 Line {l1=0x08, l2=» END;«, l3=0x08}
0x600…628 Line {l1=0x26, l2=» AKA(1).FORSTÆRK:=ØFORSTÆRK(REGEL);«, l3=0x26}
0x628…650 Line {l1=0x26, l2=» AKA(2).FORSTÆRK:=NFORSTÆRK(REGEL);«, l3=0x26}
0x650…678 Line {l1=0x26, l2=» AKA(3).FORSTÆRK:=FFORSTÆRK(REGEL);«, l3=0x26}
0x678…6a0 Line {l1=0x26, l2=» AKA(4).FORSTÆRK:=BFORSTÆRK(REGEL);«, l3=0x26}
0x6a0…6ba Line {l1=0x18, l2=» ICLOSE(KARZ.H,KARF);«, l3=0x18}
0x6ba…6c2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6c2…6d2 Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x6d2…6db Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6db…6fc Line {l1=0x1f, l2=» OWRITE(POSZ.H,POSF,11,LÆS);«, l3=0x1f}
0x6fc…70e Line {l1=0x10, l2=» KARMNR:=NR1;«, l3=0x10}
0x70e…726 Line {l1=0x16, l2=» FOR NR:=1 TO 15 DO«, l3=0x16}
0x726…731 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x731…74f Line {l1=0x1c, l2=» GETREC(POSZ.H,POSF,A);«, l3=0x1c}
0x74f…78b Line {l1=0x3a, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);«, l3=0x3a}
0x78b…7a0 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x7a0…7ad Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7ad…7db Line {l1=0x2c, l2=» AKA(NR+4).FORSTÆRK:=FORSTÆRK(REGEL);«, l3=0x2c}
0x7db…7fc Line {l1=0x1f, l2=» AKA(NR+4).PLACE:=PLACE;«, l3=0x1f}
0x7fc…81b Line {l1=0x1d, l2=» AKA(NR+4).FRA:=GÅFRA;«, l3=0x1d}
0x81b…83a Line {l1=0x1d, l2=» AKA(NR+4).TIL:=GÅTIL;«, l3=0x1d}
0x83a…85a Line {l1=0x1e, l2=» AKA(NR+4).TYPE:=TYP+2;«, l3=0x1e}
0x85a…87f Line {l1=0x23, l2=» AKA(NR+4).VANDLOD:=VANDLOD;«, l3=0x23}
0x87f…8b2 Line {l1=0x31, l2=» FORI1:=1 TO 8 DO AKA(NR+4).BESLAG(I1):=0;«, l3=0x31}
0x8b2…8bd Line {l1=0x09, l2=» END«, l3=0x09}
0x8bd…8c9 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x8c9…8d6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x8d6…8f9 Line {l1=0x21, l2=» AKA(NR+4).TYPE:=0;IER:=0;«, l3=0x21}
0x8f9…905 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x905…90f Line {l1=0x08, l2=» END;«, l3=0x08}
0x90f…929 Line {l1=0x18, l2=» ICLOSE(POSZ.H,POSF);«, l3=0x18}
0x929…931 Line {l1=0x06, l2=» END;«, l3=0x06}
0x931…937 Line {l1=0x04, l2=»END;«, l3=0x04}
0x937…940 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆
0x940…960 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┆
[…0x4…]