|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »NBTBPROC.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTBPROC.K«
PROCEDURE STÆRKNING(REGELNR:INTEGER;VAR REGEL:AR13);
TYPE STÆRKPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
GRÆNSE,
TYP:AR15;
FRADRAG,
KONSTANT,
AFRUND:INTEGER;
END;
VAR STÆRK:STÆRKPOST;
I:INTEGER;
BEGIN
WITH STÆRK DO
BEGIN
NR:=REGELNR;
GETREC(FORZ.H,FORF,A);
IF IER<>0 THEN IOF(FORZ.H.FILENAME);
I:=1;
WHILE (GRÆNSE(I)<MÅL) AND (I<5) DO I:=I+1;
LÆNGDE:=((MÅL - FRADRAG) DIV AFRUND) * AFRUND;
IF I=1 THEN LÆNGDE:= KONSTANT;
TYPE1:=REGEL(TYP(I));
END;
PROCEDURE GENER(TYP1,TYP2,TYP3,FL,SL,HÆ:INTEGER;VAR GU1,GU2:DOBBTAL);
TYPE OPSPLITPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ORDRENR,
TYP,
POSITION,
RAMMENR,
PLACER,
ANTAL:INTEGER;
TYPENR:DOBBTAL;
FARVE:INTEGER;
FTYPE:DOBBTAL;
FLÆNGDE,
SLÆNGDE,
BESLAGNR,
HÆNGSEL:INTEGER;
GUMMI1,
GUMMI2:DOBBTAL;
STATUS:INTEGER;
END;
VAR OPSPLIT:OPSPLITPOST;
BEGIN
WITH OPSPLIT DO
BEGIN
ORDRENR:=OLINIE.ORDRENR;
POSITION:=OLINIE.POSITION;
ANTAL:=OLINIE.ANTAL;
STATUS:=OLINIE.STATUS;
TYP:=TYP1;
RAMMENR:=I1;
TYPENR(1):=TYP2;
TYPENR(2):=TYP3;
PLACER:=PLACERING;
FARVE:=0;
FTYPE:=NULLER;
FLÆNGDE:=FL;
SLÆNGDE:=SL;
BESLAGNR:=0;
HÆNGSEL:=HÆ;
GUMMI1:=GU1;
GUMMI2:=GU2;
IF TYP=1 THEN
BEGIN
FARVE:=OLINIE.FARVE(FAKODE);
FTYPE:=TYPE1;
BESLAGNR:=TYPE2;
END;
END;
INSERT(OPSZ.H,OPSF,OPSPLIT.A);
IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);
END;
PROCEDURE PROFILBEHANDLING(HØJDE:INTEGER;VAR FORSTÆRK:AR14;VAR PROFILSTÆRK:
ADOBTAL;VAR BESLAG1:AR14; VAR PROFIL:
INTEGER;VAR GUM1,GUM2:DOBBTAL);
VAR I:INTEGER;
BEGIN
WRITELN('BESLAG1',BESLAG1(1):6,BESLAG1(2):6,BESLAG1(3):6,BESLAG1(4):6);
WRITELN('FORSTÆRK1',FORSTÆRK(1):6,FORSTÆRK(2):6,FORSTÆRK(3):6,FORSTÆRK(4):6);
FOR PLACERING:=1 TO 4 DO
BEGIN
WRITELN('PLACERING',PLACERING:6);
I:=BESLAG1(PLACERING);
TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;
IF PLACERING=3 THEN
BEGIN
MÅL:=HØJDE;
STÆRKR:=STÆRKR2;
END;
WRITELN('FORSTÆRK(PLACERING)',FORSTÆRK(PLACERING):6);
IF FORSTÆRK(PLACERING)=1 THEN
BEGIN
STÆRKNING;
TYPE1:=PROFILSTÆRK(TYPER);
GENER2(4,TYPE1,0,LÆNGDE);
END;
WRITELN('BESLAG1(PLACERING):',BESLAG1(PLACERING):6);
IF I>0 THEN
BEGIN
BESLAGNING(I);
TYPE3:=NULLER;TYPE3(2):=TYPE2;
GENER2(5,TYPE3,0,0)
END;
GENER1(0,PROFIL,LÆNGDE,MÅL,0,GUM1,GUM2);
END;
END;
0x000…003 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x006…03c Line {l1=0x34, l2=»PROCEDURE STÆRKNING(REGELNR:INTEGER;VAR REGEL:AR13);«, l3=0x34}
0x03c…03f Line {l1=0x01, l2=» «, l3=0x01}
0x03f…056 Line {l1=0x15, l2=»TYPE STÆRKPOST=RECORD«, l3=0x15}
0x056…06f Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x06f…085 Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x085…09e Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x09e…0ba Line {l1=0x1a, l2=» NR:INTEGER;«, l3=0x1a}
0x0ba…0d2 Line {l1=0x16, l2=» GRÆNSE,«, l3=0x16}
0x0d2…0ec Line {l1=0x18, l2=» TYP:AR15;«, l3=0x18}
0x0ec…105 Line {l1=0x17, l2=» FRADRAG,«, l3=0x17}
0x105…11f Line {l1=0x18, l2=» KONSTANT,«, l3=0x18}
0x11f…13f Line {l1=0x1e, l2=» AFRUND:INTEGER;«, l3=0x1e}
0x13f…14b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x14b…14e Line {l1=0x01, l2=» «, l3=0x01}
0x14e…164 Line {l1=0x14, l2=»VAR STÆRK:STÆRKPOST;«, l3=0x14}
0x164…178 Line {l1=0x12, l2=» I:INTEGER;«, l3=0x12}
0x178…17b Line {l1=0x01, l2=» «, l3=0x01}
0x17b…182 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x182…193 Line {l1=0x0f, l2=» WITH STÆRK DO«, l3=0x0f}
0x193…19c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x19c…1ae Line {l1=0x10, l2=» NR:=REGELNR;«, l3=0x10}
0x1ae…1ca Line {l1=0x1a, l2=» GETREC(FORZ.H,FORF,A);«, l3=0x1a}
0x1ca…1f4 Line {l1=0x28, l2=» IF IER<>0 THEN IOF(FORZ.H.FILENAME);«, l3=0x28}
0x1f4…1ff Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x1ff…22f Line {l1=0x2e, l2=» WHILE (GRÆNSE(I)<MÅL) AND (I<5) DO I:=I+1;«, l3=0x2e}
0x22f…263 Line {l1=0x32, l2=» LÆNGDE:=((MÅL - FRADRAG) DIV AFRUND) * AFRUND;«, l3=0x32}
0x263…287 Line {l1=0x22, l2=» IF I=1 THEN LÆNGDE:= KONSTANT;«, l3=0x22}
0x287…2a2 Line {l1=0x19, l2=» TYPE1:=REGEL(TYP(I));«, l3=0x19}
0x2a2…2aa Line {l1=0x06, l2=» END;«, l3=0x06}
0x2aa…2ad Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x2b0…2f7 Line {l1=0x45, l2=»PROCEDURE GENER(TYP1,TYP2,TYP3,FL,SL,HÆ:INTEGER;VAR GU1,GU2:DOBBTAL);«, l3=0x45}
0x2f7…2fa Line {l1=0x01, l2=» «, l3=0x01}
0x2fa…313 Line {l1=0x17, l2=»TYPE OPSPLITPOST=RECORD«, l3=0x17}
0x313…32e Line {l1=0x19, l2=» AA:ARAR;«, l3=0x19}
0x32e…346 Line {l1=0x16, l2=» A:AR;«, l3=0x16}
0x346…361 Line {l1=0x19, l2=» AAA:RAR;«, l3=0x19}
0x361…37c Line {l1=0x19, l2=» ORDRENR,«, l3=0x19}
0x37c…393 Line {l1=0x15, l2=» TYP,«, l3=0x15}
0x393…3af Line {l1=0x1a, l2=» POSITION,«, l3=0x1a}
0x3af…3ca Line {l1=0x19, l2=» RAMMENR,«, l3=0x19}
0x3ca…3e4 Line {l1=0x18, l2=» PLACER,«, l3=0x18}
0x3e4…405 Line {l1=0x1f, l2=» ANTAL:INTEGER;«, l3=0x1f}
0x405…427 Line {l1=0x20, l2=» TYPENR:DOBBTAL;«, l3=0x20}
0x427…448 Line {l1=0x1f, l2=» FARVE:INTEGER;«, l3=0x1f}
0x448…469 Line {l1=0x1f, l2=» FTYPE:DOBBTAL;«, l3=0x1f}
0x469…484 Line {l1=0x19, l2=» FLÆNGDE,«, l3=0x19}
0x484…49f Line {l1=0x19, l2=» SLÆNGDE,«, l3=0x19}
0x49f…4bb Line {l1=0x1a, l2=» BESLAGNR,«, l3=0x1a}
0x4bb…4de Line {l1=0x21, l2=» HÆNGSEL:INTEGER;«, l3=0x21}
0x4de…4f8 Line {l1=0x18, l2=» GUMMI1,«, l3=0x18}
0x4f8…51a Line {l1=0x20, l2=» GUMMI2:DOBBTAL;«, l3=0x20}
0x51a…53c Line {l1=0x20, l2=» STATUS:INTEGER;«, l3=0x20}
0x53c…547 Line {l1=0x09, l2=» END;«, l3=0x09}
0x547…54a Line {l1=0x01, l2=» «, l3=0x01}
0x54a…565 Line {l1=0x19, l2=»VAR OPSPLIT:OPSPLITPOST;«, l3=0x19}
0x565…568 Line {l1=0x01, l2=» «, l3=0x01}
0x568…56f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x56f…582 Line {l1=0x11, l2=» WITH OPSPLIT DO«, l3=0x11}
0x582…58b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x58b…5a9 Line {l1=0x1c, l2=» ORDRENR:=OLINIE.ORDRENR;«, l3=0x1c}
0x5a9…5c9 Line {l1=0x1e, l2=» POSITION:=OLINIE.POSITION;«, l3=0x1e}
0x5c9…5e3 Line {l1=0x18, l2=» ANTAL:=OLINIE.ANTAL;«, l3=0x18}
0x5e3…5ff Line {l1=0x1a, l2=» STATUS:=OLINIE.STATUS;«, l3=0x1a}
0x5ff…60f Line {l1=0x0e, l2=» TYP:=TYP1;«, l3=0x0e}
0x60f…621 Line {l1=0x10, l2=» RAMMENR:=I1;«, l3=0x10}
0x621…637 Line {l1=0x14, l2=» TYPENR(1):=TYP2;«, l3=0x14}
0x637…64d Line {l1=0x14, l2=» TYPENR(2):=TYP3;«, l3=0x14}
0x64d…665 Line {l1=0x16, l2=» PLACER:=PLACERING;«, l3=0x16}
0x665…674 Line {l1=0x0d, l2=» FARVE:=0;«, l3=0x0d}
0x674…688 Line {l1=0x12, l2=» FTYPE:=NULLER;«, l3=0x12}
0x688…69a Line {l1=0x10, l2=» FLÆNGDE:=FL;«, l3=0x10}
0x69a…6ac Line {l1=0x10, l2=» SLÆNGDE:=SL;«, l3=0x10}
0x6ac…6be Line {l1=0x10, l2=» BESLAGNR:=0;«, l3=0x10}
0x6be…6d0 Line {l1=0x10, l2=» HÆNGSEL:=HÆ;«, l3=0x10}
0x6d0…6e2 Line {l1=0x10, l2=» GUMMI1:=GU1;«, l3=0x10}
0x6e2…6f4 Line {l1=0x10, l2=» GUMMI2:=GU2;«, l3=0x10}
0x6f4…707 Line {l1=0x11, l2=» IF TYP=1 THEN«, l3=0x11}
0x707…712 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x712…736 Line {l1=0x22, l2=» FARVE:=OLINIE.FARVE(FAKODE);«, l3=0x22}
0x736…74b Line {l1=0x13, l2=» FTYPE:=TYPE1;«, l3=0x13}
0x74b…763 Line {l1=0x16, l2=» BESLAGNR:=TYPE2;«, l3=0x16}
0x763…76d Line {l1=0x08, l2=» END;«, l3=0x08}
0x76d…775 Line {l1=0x06, l2=» END;«, l3=0x06}
0x775…797 Line {l1=0x20, l2=» INSERT(OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x20}
0x797…7c1 Line {l1=0x28, l2=» IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);«, l3=0x28}
0x7c1…7c7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x7c7…7ca Line {l1=0x01, l2=» «, l3=0x01}
0x7ca…817 Line {l1=0x4b, l2=»PROCEDURE PROFILBEHANDLING(HØJDE:INTEGER;VAR FORSTÆRK:AR14;VAR PROFILSTÆRK:«, l3=0x4b}
0x817…85f Line {l1=0x46, l2=» ADOBTAL;VAR BESLAG1:AR14; VAR PROFIL:«, l3=0x46}
0x85f…8a1 Line {l1=0x40, l2=» INTEGER;VAR GUM1,GUM2:DOBBTAL);«, l3=0x40}
0x8a1…8b1 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x8b1…8b4 Line {l1=0x01, l2=» «, l3=0x01}
0x8b4…8bb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8bb…904 Line {l1=0x47, l2=»WRITELN('BESLAG1',BESLAG1(1):6,BESLAG1(2):6,BESLAG1(3):6,BESLAG1(4):6);«, l3=0x47}
0x904…953 Line {l1=0x4d, l2=»WRITELN('FORSTÆRK1',FORSTÆRK(1):6,FORSTÆRK(2):6,FORSTÆRK(3):6,FORSTÆRK(4):6);«, l3=0x4d}
0x953…96f Line {l1=0x1a, l2=» FOR PLACERING:=1 TO 4 DO«, l3=0x1a}
0x96f…978 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x978…99f Line {l1=0x25, l2=» WRITELN('PLACERING',PLACERING:6);«, l3=0x25}
0x99f…9bb Line {l1=0x1a, l2=» I:=BESLAG1(PLACERING);«, l3=0x1a}
0x9bb…9e2 Line {l1=0x25, l2=» TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;«, l3=0x25}
0x9e2…9fb Line {l1=0x17, l2=» IF PLACERING=3 THEN«, l3=0x17}
0x9fb…a06 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0xa06…a19 Line {l1=0x11, l2=» MÅL:=HØJDE;«, l3=0x11}
0xa19…a31 Line {l1=0x16, l2=» STÆRKR:=STÆRKR2;«, l3=0x16}
0xa31…a3b Line {l1=0x08, l2=» END;«, l3=0x08}
0xa3b…a72 Line {l1=0x35, l2=»WRITELN('FORSTÆRK(PLACERING)',FORSTÆRK(PLACERING):6);«, l3=0x35}
0xa72…a95 Line {l1=0x21, l2=» IF FORSTÆRK(PLACERING)=1 THEN«, l3=0x21}
0xa95…aa0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0xaa0…ab2 Line {l1=0x10, l2=» STÆRKNING;«, l3=0x10}
0xab2…ad4 Line {l1=0x20, l2=» TYPE1:=PROFILSTÆRK(TYPER);«, l3=0x20}
0xad4…af5 Line {l1=0x1f, l2=» GENER2(4,TYPE1,0,LÆNGDE);«, l3=0x1f}
0xaf5…aff Line {l1=0x08, l2=» END;«, l3=0x08}
0xaff…b35 Line {l1=0x34, l2=»WRITELN('BESLAG1(PLACERING):',BESLAG1(PLACERING):6);«, l3=0x34}
0xb35…b46 Line {l1=0x0f, l2=» IF I>0 THEN«, l3=0x0f}
0xb46…b51 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0xb51…b67 Line {l1=0x14, l2=» BESLAGNING(I);«, l3=0x14}
0xb67…b8d Line {l1=0x24, l2=» TYPE3:=NULLER;TYPE3(2):=TYPE2;«, l3=0x24}
0xb8d…ba8 Line {l1=0x19, l2=» GENER2(5,TYPE3,0,0)«, l3=0x19}
0xba8…bb2 Line {l1=0x08, l2=» END;«, l3=0x08}
0xbb2…be0 Line {l1=0x2c, l2=» GENER1(0,PROFIL,LÆNGDE,MÅL,0,GUM1,GUM2);«, l3=0x2c}
0xbe0…be8 Line {l1=0x06, l2=» END;«, l3=0x06}
0xbe8…bee Line {l1=0x04, l2=»END;«, l3=0x04}
0xbee…c00 00 00 32 20 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ 2 : ┆
0xc00…c20 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0xc20…c40 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 14 28 30 3a 68 7c 6a 72 65 2c 20 31 ┆ (0:højre, 1┆
0xc40…c60 3a 76 65 6e 73 74 72 65 29 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆:venstre) ┆
0xc60…c80 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 17 8b 08 48 ┆ H┆
0xc80…ca0 5b 4e 47 53 45 4c 32 ff 00 00 01 00 17 00 1e 00 12 00 00 00 00 00 01 00 10 48 7b 6e 67 73 65 6c ┆ÆNGSEL2 Hængsel┆
0xca0…cc0 73 73 69 64 65 20 32 20 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆sside 2 : ┆
0xcc0…ce0 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0xce0…d00 00 ff 00 ff 00 ff 00 ff 00 ff 14 28 30 3a 68 7c 6a 72 65 2c 20 31 3a 76 65 6e 73 74 72 65 29 ff ┆ (0:højre, 1:venstre) ┆
0xd00…d20 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0xd20…d40 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 22 00 01 00 ┆ " ┆
0xd40…d60 00 00 00 00 01 00 01 00 00 ff 00 ff 00 ff 00 ff 00 ff 01 00 00 00 00 00 01 00 f3 8b 08 48 5b 4e ┆ HÆN┆
0xd60…d80 47 53 45 4c 33 ff 00 00 01 00 17 00 01 00 13 00 00 00 00 00 01 00 10 48 7b 6e 67 73 65 6c 73 73 ┆GSEL3 Hængselss┆
0xd80…da0 69 64 65 20 33 20 3a ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ide 3 : ┆
0xda0…dc0 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0xdc0…de0 00 ff 00 ff 00 ff 00 ff 14 28 30 3a 68 7c 6a 72 65 2c 20 31 3a 76 65 6e 73 74 72 65 29 ff 00 ff ┆ (0:højre, 1:venstre) ┆
0xde0…e00 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0xe00…e20 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff f3 8b 08 48 5b 4e 47 53 45 4c 33 ff 00 00 01 00 ┆ HÆNGSEL3 ┆
0xe20…e40 17 00 01 00 13 00 00 00 00 00 01 00 10 48 7b 6e 67 73 65 6c 73 73 69 64 65 20 33 20 3a ff 00 ff ┆ Hængselsside 3 : ┆
0xe40…e60 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆ ┆
0xe60…e80 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 14 28 ┆ (┆
0xe80…ea0 30 3a 68 7c 6a 72 65 2c 20 31 3a 76 65 6e 73 74 72 65 29 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff ┆0:højre, 1:venstre) ┆