|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »NBTMAINI.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTMAINI.K«
PROCEDURE MAINTAIN;
BEGIN
POS:=1;KGUMMI:=NULLER;
REPEAT
BEGIN
OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;
GETREC(OLIZ.H,OLIF,OLINIE.A);
IF (IER<>0) AND (IER<>-6) THEN IOF (IER,OLIZ.H.FILENAME);
IF IER=0 THEN
BEGIN
IF OLINIE.VINDUENR>0 THEN
CHECKBH (OLINIE.BREDDE);CHECKBH(OLINIE.HØJDE);
KOMBI.NR:=OLINIE.VINDUENR DIV 1000;
GETREC(KOMZ.H,KOMF,KOMBI.A);
IF IER<>0 THEN IOF(IER,KOMZ.H.FILENAME);
VINDUE.NR:=OLINIE.VINDUENR MOD 1000;
GETREC(VINZ.H,VINF,VINDUE.A);
IF IER<>0 THEN IOF(IER,VINZ.H.FILENAME);
KPROFIL.NR:=KOMBI.KARMPROFIL;
GETREC(PROZ.H,PROF,KPROFIL.A);
IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);
KPPROFIL.NR:=KOMBI.POST1;
GETREC(PROZ.H,PROF,KPPROFIL.A);
IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);
BESTEMFARVE;
FOR I1:=1 TO 16 DO
BEGIN
RAMME.NR:=VINDUE.RAMME(I1);
IF RAMME.NR>19 THEN
BEGIN
GETREC(RAMZ.H,RAMF,RAMME.A);
IF IER<>0 THEN IOF(IER,RAMZ.H.FILENAME);
DK:=KPROFIL.DIM(1); DKP:=KPPROFIL.DIM(1);
IF RAMME.TYP=3 THEN DK:=KPROFIL.DIM(2);DKP:=KPPROFIL.DIM(2);
Z:=(I1-1) MOD 4+1;I:=1;
BEREGN(I1,BREDDE,I,Z,OLINIE.BLAMBRED,OLINIE.BREDDE,VINDUE.BREDDE,
VINDUE.RAMME);
Z:=(I1+3) DIV 4;I:=4;
BEREGN(I1,HØJDE,I,Z,OLINIE.BLAMHØJD,OLINIE.HØJDE,VINDUE.HØJDE,
VINDUE.RAMME);
BESTEMGLAS;
IF RAMME.TYP=3 THEN
BEGIN
TILBEHØR.NR:=KOMBI.KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE;
GETREC(TILZ.H,TILF,TILBEHØR.A);
IF IER<>0 THEN IOF(IER,TILZ.H.FILENAME);
FAKODE:=FAKODE1;GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;FANR:=FANR1;
END
ELSE
BEGIN
TILBEHØR.NR:=KOMBI.RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE;
GETREC(TILZ.H,TILF,TILBEHØR.A);
IF IER<>0 THEN IOF(IER,TILZ.H.FILENAME);
GENER2(6,KPROFIL.TÆTGUM,BREDDE,HØJDE); (*KARMTÆTNING*)
RPROFIL.NR:=KOMBI.RAMMEPROFIL;
GETREC(PROZ.H,PROF,RPROFIL.A);
IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);
GENER2(7,RPROFIL.TÆTGUM,BREDDE,HØJDE); (*RAMMETÆTNING*)
FAKODE:=FAKODE2;GLASTYPE:=2;FANR:=FANR2;
BESTEMFORSTÆRKNING;
MÅL:=BREDDE;STÆRKR1:=RAMME.VREGEL(REGELNR);
STÆRKR2:=RAMME.LREGEL(REGELNR);STÆRKR:=STÆRKR1;
FOR PLACERING:=1 TO 4 DO
BEGIN
TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;
IF PLACERING=3 THEN
BEGIN
MÅL:=HØJDE;
STÆRKR:=STÆRKR2;
END;
IF RAMME.FORSTÆRK(PLACERING)=1 THEN
BEGIN
STÆRKNING;
TYPE1:=RPROFIL.FORSTÆR(TYPER);
GENER2(4,TYPE1,0,LÆNGDE); (*FORSTÆRKNING*)
END;
IF RAMME.BESLAG(PLACERING)>0 THEN
BEGIN
BESLAGNING(RAMME.BESLAG(PLACERING));
TYPE3:=NULLER;TYPE3(2):=TYPE2;
GENER2(5,TYPE3,0,0) (*BESLAG*)
END;
GENER1(0,KOMBI.RAMMEPROFIL,LÆNGDE,MÅL,0,RPROFIL.TÆTGUM,
TILBEHØR.GLASGUM) (*RAMMEPROFIL*)
END;
BREDDE:=BREDDE-2*RPROFIL.DIM(1);HØJDE:=HØJDE-2*RPROFIL.DIM(1);
END;
PLACERING:=20;
GENER1(0,TILBEHØR.GLASLIST,BREDDE,HØJDE,0,TILBEHØR.GLASLGUM,NULLER)
; (*GLASLISTE*)
GENER2(9,TILBEHØR.GLASGUM,BREDDE,HØJDE); (*GLASGUMMI*)
GPROFIL.NR:=TILBEHØR.GLASLIST;
GETREC(PROZ.H,PROF,GPROFIL.A);
IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);
BREDDE:=BREDDE-2*GPROFIL.DIM(1);HØJDE:=HØJDE-2*GPROFIL.DIM(1);
TYPE1(1):=0;TYPE1(2):=GLASNR;
GENER2(8,TILBEHØR.GLASGUM,BREDDE,HØJDE); (*GLASLISTEGUMMI*)
GENER2(GLASTYPE,TYPE1,BREDDE,HØJDE);
END;
END;
KARM.NR:=VINDUE.KARMNR;
GETREC(KARZ.H,KARF,KARM.A);
IF IER<>0 THEN IOF(IER,KARZ.H.FILENAME);
I1:=0;FANR:=FANR1;FAKODE:=FAKODE1;
BESTEMFORSTÆRKNING;
MÅL:=OLINIE.BLAMBRED;STÆRKR1:=KARM.VREGEL(REGELNR);
STÆRKR2:=KARM.LREGEL(REGELNR);STÆRKR:=STÆRKR1;
FOR PLACERING:=1 TO 4 DO
BEGIN
TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;
IF PLACERING=3 THEN
BEGIN
MÅL:=OLINIE.BLAMHØJD;
STÆRKR:=STÆRKR2;
END;
IF KARM.FORSTÆRK(PLACERING)=1 THEN
BEGIN
STÆRKNING;
TYPE1:=KPROFIL.FORSTÆR(TYPER);
GENER2(4,TYPE1,0,LÆNGDE); (*FORSTÆRKNING*)
END;
IF KARM.BESLAG(PLACERING)>0 THEN
BEGIN
BESLAGNING;
TYPE3:=NULLER;TYPE3(2):=TYPE2;
GENER2(5,TYPE3,0,0); (*BESLAG*)
END;
GENER1(0,KOMBI.KARMPROFIL,LÆNGDE,MÅL,0,KPROFIL.TÆTGUM,KGUMMI);
(*KARMPROFIL*)
END;
BESTEMFORSTÆRKNING;
FOR PLACERING:=5 TO 19 DO
BEGIN
TYPE1:=NULLER;TYPE2:=0;
POST.KARM:=KARM.NR;POST.NR:=PLACERING-4;
GETREC(POSZ.H,POSF,POST.A);
IF (IER<>0) AND (IER<>-6) THEN IOF(IER,POSZ.H.FILENAME);
IF IER=0 THEN
BEGIN
IF POST.VANDLOD=0 THEN
POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)
ELSE
POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);
MÅL:=LÆNGDE;STÆRKR:=POST.FORSTÆRK(REGELNR);
STÆRKNING;
TYPE1:=KPROFIL.FORSTÆR(TYPER);
GENER2(4,TYPE1,0,LÆNGDE) (*FORSTÆRKNING*)
GENER1(0,KOMBI.POST1,LÆNGDE,MÅL,O,NULLER,NULLER);
(*POSTPROFIL*)
END;
END;
POS:=POS+1;
END;
END;
UNTIL (IER=-6) OR (POS=100);
END;
END;
0x0000…0015 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x0015…001c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x001c…001f Line {l1=0x01, l2=» «, l3=0x01}
0x001f…0037 Line {l1=0x16, l2=»POS:=1;KGUMMI:=NULLER;«, l3=0x16}
0x0037…003f Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x003f…0046 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0046…0078 Line {l1=0x30, l2=» OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;«, l3=0x30}
0x0078…0099 Line {l1=0x1f, l2=» GETREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x1f}
0x0099…00d6 Line {l1=0x3b, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF (IER,OLIZ.H.FILENAME);«, l3=0x3b}
0x00d6…00e7 Line {l1=0x0f, l2=» IF IER=0 THEN«, l3=0x0f}
0x00e7…00f0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x00f0…010f Line {l1=0x1d, l2=» IF OLINIE.VINDUENR>0 THEN«, l3=0x1d}
0x010f…0145 Line {l1=0x34, l2=» CHECKBH (OLINIE.BREDDE);CHECKBH(OLINIE.HØJDE);«, l3=0x34}
0x0145…0170 Line {l1=0x29, l2=» KOMBI.NR:=OLINIE.VINDUENR DIV 1000;«, l3=0x29}
0x0170…0194 Line {l1=0x22, l2=» GETREC(KOMZ.H,KOMF,KOMBI.A);«, l3=0x22}
0x0194…01c4 Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(IER,KOMZ.H.FILENAME);«, l3=0x2e}
0x01c4…01f0 Line {l1=0x2a, l2=» VINDUE.NR:=OLINIE.VINDUENR MOD 1000;«, l3=0x2a}
0x01f0…0215 Line {l1=0x23, l2=» GETREC(VINZ.H,VINF,VINDUE.A);«, l3=0x23}
0x0215…0245 Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(IER,VINZ.H.FILENAME);«, l3=0x2e}
0x0245…026a Line {l1=0x23, l2=» KPROFIL.NR:=KOMBI.KARMPROFIL;«, l3=0x23}
0x026a…0290 Line {l1=0x24, l2=» GETREC(PROZ.H,PROF,KPROFIL.A);«, l3=0x24}
0x0290…02c0 Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);«, l3=0x2e}
0x02c0…02e1 Line {l1=0x1f, l2=» KPPROFIL.NR:=KOMBI.POST1;«, l3=0x1f}
0x02e1…0308 Line {l1=0x25, l2=» GETREC(PROZ.H,PROF,KPPROFIL.A);«, l3=0x25}
0x0308…0338 Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);«, l3=0x2e}
0x0338…034c Line {l1=0x12, l2=» BESTEMFARVE;«, l3=0x12}
0x034c…0366 Line {l1=0x18, l2=» FOR I1:=1 TO 16 DO«, l3=0x18}
0x0366…0373 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0373…0398 Line {l1=0x23, l2=» RAMME.NR:=VINDUE.RAMME(I1);«, l3=0x23}
0x0398…03b5 Line {l1=0x1b, l2=» IF RAMME.NR>19 THEN«, l3=0x1b}
0x03b5…03c4 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x03c4…03ec Line {l1=0x26, l2=» GETREC(RAMZ.H,RAMF,RAMME.A);«, l3=0x26}
0x03ec…0420 Line {l1=0x32, l2=» IF IER<>0 THEN IOF(IER,RAMZ.H.FILENAME);«, l3=0x32}
0x0420…0455 Line {l1=0x33, l2=» DK:=KPROFIL.DIM(1); DKP:=KPPROFIL.DIM(1);«, l3=0x33}
0x0455…049d Line {l1=0x46, l2=» IF RAMME.TYP=3 THEN DK:=KPROFIL.DIM(2);DKP:=KPPROFIL.DIM(2);«, l3=0x46}
0x049d…04c0 Line {l1=0x21, l2=» Z:=(I1-1) MOD 4+1;I:=1;«, l3=0x21}
0x04c0…050d Line {l1=0x4b, l2=» BEREGN(I1,BREDDE,I,Z,OLINIE.BLAMBRED,OLINIE.BREDDE,VINDUE.BREDDE,«, l3=0x4b}
0x050d…052e Line {l1=0x1f, l2=» VINDUE.RAMME);«, l3=0x1f}
0x052e…054f Line {l1=0x1f, l2=» Z:=(I1+3) DIV 4;I:=4;«, l3=0x1f}
0x054f…0599 Line {l1=0x48, l2=» BEREGN(I1,HØJDE,I,Z,OLINIE.BLAMHØJD,OLINIE.HØJDE,VINDUE.HØJDE,«, l3=0x48}
0x0599…05ba Line {l1=0x1f, l2=» VINDUE.RAMME);«, l3=0x1f}
0x05ba…05d1 Line {l1=0x15, l2=» BESTEMGLAS;«, l3=0x15}
0x05d1…05f0 Line {l1=0x1d, l2=» IF RAMME.TYP=3 THEN«, l3=0x1d}
0x05f0…0601 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0601…0649 Line {l1=0x46, l2=» TILBEHØR.NR:=KOMBI.KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE;«, l3=0x46}
0x0649…0676 Line {l1=0x2b, l2=» GETREC(TILZ.H,TILF,TILBEHØR.A);«, l3=0x2b}
0x0676…06ac Line {l1=0x34, l2=» IF IER<>0 THEN IOF(IER,TILZ.H.FILENAME);«, l3=0x34}
0x06ac…06fb Line {l1=0x4d, l2=» FAKODE:=FAKODE1;GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;FANR:=FANR1;«, l3=0x4d}
0x06fb…070a Line {l1=0x0d, l2=» END«, l3=0x0d}
0x070a…071a Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x071a…072b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x072b…0774 Line {l1=0x47, l2=» TILBEHØR.NR:=KOMBI.RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE;«, l3=0x47}
0x0774…07a1 Line {l1=0x2b, l2=» GETREC(TILZ.H,TILF,TILBEHØR.A);«, l3=0x2b}
0x07a1…07d7 Line {l1=0x34, l2=» IF IER<>0 THEN IOF(IER,TILZ.H.FILENAME);«, l3=0x34}
0x07d7…081b Line {l1=0x42, l2=» GENER2(6,KPROFIL.TÆTGUM,BREDDE,HØJDE); (*KARMTÆTNING*)«, l3=0x42}
0x081b…0847 Line {l1=0x2a, l2=» RPROFIL.NR:=KOMBI.RAMMEPROFIL;«, l3=0x2a}
0x0847…0873 Line {l1=0x2a, l2=» GETREC(PROZ.H,PROF,RPROFIL.A);«, l3=0x2a}
0x0873…08a9 Line {l1=0x34, l2=» IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);«, l3=0x34}
0x08a9…08ee Line {l1=0x43, l2=» GENER2(7,RPROFIL.TÆTGUM,BREDDE,HØJDE); (*RAMMETÆTNING*)«, l3=0x43}
0x08ee…0924 Line {l1=0x34, l2=» FAKODE:=FAKODE2;GLASTYPE:=2;FANR:=FANR2;«, l3=0x34}
0x0924…0945 Line {l1=0x1f, l2=» BESTEMFORSTÆRKNING;«, l3=0x1f}
0x0945…097e Line {l1=0x37, l2=» MÅL:=BREDDE;STÆRKR1:=RAMME.VREGEL(REGELNR);«, l3=0x37}
0x097e…09bb Line {l1=0x3b, l2=» STÆRKR2:=RAMME.LREGEL(REGELNR);STÆRKR:=STÆRKR1;«, l3=0x3b}
0x09bb…09e1 Line {l1=0x24, l2=» FOR PLACERING:=1 TO 4 DO«, l3=0x24}
0x09e1…09f4 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x09f4…0a25 Line {l1=0x2f, l2=» TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;«, l3=0x2f}
0x0a25…0a48 Line {l1=0x21, l2=» IF PLACERING=3 THEN«, l3=0x21}
0x0a48…0a5d Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x0a5d…0a7a Line {l1=0x1b, l2=» MÅL:=HØJDE;«, l3=0x1b}
0x0a7a…0a9c Line {l1=0x20, l2=» STÆRKR:=STÆRKR2;«, l3=0x20}
0x0a9c…0ab0 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0ab0…0ae3 Line {l1=0x31, l2=» IF RAMME.FORSTÆRK(PLACERING)=1 THEN«, l3=0x31}
0x0ae3…0af8 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x0af8…0b14 Line {l1=0x1a, l2=» STÆRKNING;«, l3=0x1a}
0x0b14…0b44 Line {l1=0x2e, l2=» TYPE1:=RPROFIL.FORSTÆR(TYPER);«, l3=0x2e}
0x0b44…0b8b Line {l1=0x45, l2=» GENER2(4,TYPE1,0,LÆNGDE); (*FORSTÆRKNING*)«, l3=0x45}
0x0b8b…0b9f Line {l1=0x12, l2=» END;«, l3=0x12}
0x0b9f…0bd0 Line {l1=0x2f, l2=» IF RAMME.BESLAG(PLACERING)>0 THEN«, l3=0x2f}
0x0bd0…0be5 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x0be5…0c1b Line {l1=0x34, l2=» BESLAGNING(RAMME.BESLAG(PLACERING));«, l3=0x34}
0x0c1b…0c4b Line {l1=0x2e, l2=» TYPE3:=NULLER;TYPE3(2):=TYPE2;«, l3=0x2e}
0x0c4b…0c8c Line {l1=0x3f, l2=» GENER2(5,TYPE3,0,0) (*BESLAG*)«, l3=0x3f}
0x0c8c…0ca0 Line {l1=0x12, l2=» END;«, l3=0x12}
0x0ca0…0ce7 Line {l1=0x45, l2=» GENER1(0,KOMBI.RAMMEPROFIL,LÆNGDE,MÅL,0,RPROFIL.TÆTGUM,«, l3=0x45}
0x0ce7…0d2d Line {l1=0x44, l2=» TILBEHØR.GLASGUM) (*RAMMEPROFIL*)«, l3=0x44}
0x0d2d…0d3f Line {l1=0x10, l2=» END;«, l3=0x10}
0x0d3f…0d8b Line {l1=0x4a, l2=» BREDDE:=BREDDE-2*RPROFIL.DIM(1);HØJDE:=HØJDE-2*RPROFIL.DIM(1);«, l3=0x4a}
0x0d8b…0d9b Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0d9b…0db5 Line {l1=0x18, l2=» PLACERING:=20;«, l3=0x18}
0x0db5…0e04 Line {l1=0x4d, l2=» GENER1(0,TILBEHØR.GLASLIST,BREDDE,HØJDE,0,TILBEHØR.GLASLGUM,NULLER)«, l3=0x4d}
0x0e04…0e48 Line {l1=0x42, l2=» ; (*GLASLISTE*)«, l3=0x42}
0x0e48…0e8c Line {l1=0x42, l2=» GENER2(9,TILBEHØR.GLASGUM,BREDDE,HØJDE); (*GLASGUMMI*)«, l3=0x42}
0x0e8c…0eb6 Line {l1=0x28, l2=» GPROFIL.NR:=TILBEHØR.GLASLIST;«, l3=0x28}
0x0eb6…0ee0 Line {l1=0x28, l2=» GETREC(PROZ.H,PROF,GPROFIL.A);«, l3=0x28}
0x0ee0…0f14 Line {l1=0x32, l2=» IF IER<>0 THEN IOF(IER,PROZ.H.FILENAME);«, l3=0x32}
0x0f14…0f5e Line {l1=0x48, l2=» BREDDE:=BREDDE-2*GPROFIL.DIM(1);HØJDE:=HØJDE-2*GPROFIL.DIM(1);«, l3=0x48}
0x0f5e…0f87 Line {l1=0x27, l2=» TYPE1(1):=0;TYPE1(2):=GLASNR;«, l3=0x27}
0x0f87…0fd0 Line {l1=0x47, l2=» GENER2(8,TILBEHØR.GLASGUM,BREDDE,HØJDE); (*GLASLISTEGUMMI*)«, l3=0x47}
0x0fd0…1000 Line {l1=0x2e, l2=» GENER2(GLASTYPE,TYPE1,BREDDE,HØJDE);«, l3=0x2e}
0x1000…100e Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x100e…101a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x101a…1039 Line {l1=0x1d, l2=» KARM.NR:=VINDUE.KARMNR;«, l3=0x1d}
0x1039…105c Line {l1=0x21, l2=» GETREC(KARZ.H,KARF,KARM.A);«, l3=0x21}
0x105c…108c Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(IER,KARZ.H.FILENAME);«, l3=0x2e}
0x108c…10b6 Line {l1=0x28, l2=» I1:=0;FANR:=FANR1;FAKODE:=FAKODE1;«, l3=0x28}
0x10b6…10d1 Line {l1=0x19, l2=» BESTEMFORSTÆRKNING;«, l3=0x19}
0x10d1…110c Line {l1=0x39, l2=» MÅL:=OLINIE.BLAMBRED;STÆRKR1:=KARM.VREGEL(REGELNR);«, l3=0x39}
0x110c…1142 Line {l1=0x34, l2=» STÆRKR2:=KARM.LREGEL(REGELNR);STÆRKR:=STÆRKR1;«, l3=0x34}
0x1142…1162 Line {l1=0x1e, l2=» FOR PLACERING:=1 TO 4 DO«, l3=0x1e}
0x1162…116f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x116f…119a Line {l1=0x29, l2=» TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;«, l3=0x29}
0x119a…11b7 Line {l1=0x1b, l2=» IF PLACERING=3 THEN«, l3=0x1b}
0x11b7…11c6 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x11c6…11e7 Line {l1=0x1f, l2=» MÅL:=OLINIE.BLAMHØJD;«, l3=0x1f}
0x11e7…1203 Line {l1=0x1a, l2=» STÆRKR:=STÆRKR2;«, l3=0x1a}
0x1203…1211 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1211…123d Line {l1=0x2a, l2=» IF KARM.FORSTÆRK(PLACERING)=1 THEN«, l3=0x2a}
0x123d…124c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x124c…1262 Line {l1=0x14, l2=» STÆRKNING;«, l3=0x14}
0x1262…128c Line {l1=0x28, l2=» TYPE1:=KPROFIL.FORSTÆR(TYPER);«, l3=0x28}
0x128c…12c5 Line {l1=0x37, l2=» GENER2(4,TYPE1,0,LÆNGDE); (*FORSTÆRKNING*)«, l3=0x37}
0x12c5…12d3 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x12d3…12fd Line {l1=0x28, l2=» IF KARM.BESLAG(PLACERING)>0 THEN«, l3=0x28}
0x12fd…130c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x130c…1323 Line {l1=0x15, l2=» BESLAGNING;«, l3=0x15}
0x1323…134d Line {l1=0x28, l2=» TYPE3:=NULLER;TYPE3(2):=TYPE2;«, l3=0x28}
0x134d…1380 Line {l1=0x31, l2=» GENER2(5,TYPE3,0,0); (*BESLAG*)«, l3=0x31}
0x1380…138e Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x138e…13d6 Line {l1=0x46, l2=» GENER1(0,KOMBI.KARMPROFIL,LÆNGDE,MÅL,0,KPROFIL.TÆTGUM,KGUMMI);«, l3=0x46}
0x13d6…140d Line {l1=0x35, l2=» (*KARMPROFIL*)«, l3=0x35}
0x140d…1419 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1419…1434 Line {l1=0x19, l2=» BESTEMFORSTÆRKNING;«, l3=0x19}
0x1434…1455 Line {l1=0x1f, l2=» FOR PLACERING:=5 TO 19 DO«, l3=0x1f}
0x1455…1462 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1462…1483 Line {l1=0x1f, l2=» TYPE1:=NULLER;TYPE2:=0;«, l3=0x1f}
0x1483…14b5 Line {l1=0x30, l2=» POST.KARM:=KARM.NR;POST.NR:=PLACERING-4;«, l3=0x30}
0x14b5…14da Line {l1=0x23, l2=» GETREC(POSZ.H,POSF,POST.A);«, l3=0x23}
0x14da…151c Line {l1=0x40, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF(IER,POSZ.H.FILENAME);«, l3=0x40}
0x151c…1533 Line {l1=0x15, l2=» IF IER=0 THEN«, l3=0x15}
0x1533…1542 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1542…1564 Line {l1=0x20, l2=» IF POST.VANDLOD=0 THEN«, l3=0x20}
0x1564…159b Line {l1=0x35, l2=» POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)«, l3=0x35}
0x159b…15ab Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x15ab…15e2 Line {l1=0x35, l2=» POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);«, l3=0x35}
0x15e2…1619 Line {l1=0x35, l2=» MÅL:=LÆNGDE;STÆRKR:=POST.FORSTÆRK(REGELNR);«, l3=0x35}
0x1619…162f Line {l1=0x14, l2=» STÆRKNING;«, l3=0x14}
0x162f…1659 Line {l1=0x28, l2=» TYPE1:=KPROFIL.FORSTÆR(TYPER);«, l3=0x28}
0x1659…1692 Line {l1=0x37, l2=» GENER2(4,TYPE1,0,LÆNGDE) (*FORSTÆRKNING*)«, l3=0x37}
0x1692…16cf Line {l1=0x3b, l2=» GENER1(0,KOMBI.POST1,LÆNGDE,MÅL,O,NULLER,NULLER);«, l3=0x3b}
0x16cf…1706 Line {l1=0x35, l2=» (*POSTPROFIL*)«, l3=0x35}
0x1706…1714 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1714…1720 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1720…1733 Line {l1=0x11, l2=» POS:=POS+1;«, l3=0x11}
0x1733…173d Line {l1=0x08, l2=» END;«, l3=0x08}
0x173d…1745 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1745…1765 Line {l1=0x1e, l2=» UNTIL (IER=-6) OR (POS=100);«, l3=0x1e}
0x1765…176b Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x1…]
0x1771…1780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1780…17a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x6…]