|
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: »NBTMAIN.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTMAIN.K«
PROCEDURE MAINTAIN;
VAR KARMPROFIL,
RAMMEPROFIL,
POST1,
VKARM:INTEGER;
RAMME16:AR116;
VBESLAG:AR14;
VBREDDE:AR13;
VHØJDE:AR13;
KBESLAG,
KFORSTÆRK:AR14;
KVREGEL,
KLREGEL:AR13;
FARVEKODE,
FARVENR:DOBBTAL;
GLASKODE,
GLASNR:AR13;
GLASTYPE:INTEGER;
J:INTEGER;
BEGIN
ÅBEN;
POS:=1;NULLER(1):=0;NULLER(2):=0;
REPEAT
BEGIN
OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;KGUMMI:=NULLER;PLACERING:=0;
GETREC(OLIZ.H,OLIF,OLINIE.A);
IF (IER<>0) AND (IER<>-6) THEN IOF (OLIZ.H.FILENAME);
IF IER=0 THEN
BEGIN
CLEARSCREEN;
GOTOXY(15,12);
WRITELN('Nu behandles ordrenr: ',ORDRENUM:4,' Positionsnr: ',POS:3);
IF OLINIE.VINDUENR>0 THEN
BEGIN
CHECKBH (OLINIE.BREDDE);CHECKBH(OLINIE.HØJDE);
HENTKOMBI(KARMPROFIL,RAMMEPROFIL,POST1,FILER(1));
HENTVINDUE(VKARM,RAMME16,VBESLAG,VBREDDE,VHØJDE,FILER(2));
HENTKARM(VKARM,KBESLAG,KFORSTÆRK,KVREGEL,KLREGEL,FILER(3));
BESTEMGLAS(GLASKODE,GLASNR);
KPROFIL.NR:=KARMPROFIL;
GETREC(PROZ.H,PROF,KPROFIL.A);
IF IER<>0 THEN IOF(PROZ.H.FILENAME);
KPPROFIL.NR:=POST1;
GETREC(PROZ.H,PROF,KPPROFIL.A);
IF IER<>0 THEN IOF(PROZ.H.FILENAME);
BESTEMFARVE(FARVEKODE,FARVENR,FILER(4));
FOR I1:=1 TO 16 DO
BEGIN
RAMME.NR:=RAMME16(I1);
IF RAMME.NR>19 THEN
BEGIN
GETREC(RAMZ.H,RAMF,RAMME.A);
IF IER<>0 THEN IOF(RAMZ.H.FILENAME);
GOTOXY(15,14);
WRITELN('Rammenr: ',I1);
DK:=KPROFIL.DIM(1); DKP:=KPPROFIL.DIM(1);
IF RAMME.TYP=3 THEN
BEGIN
DK:=KPROFIL.DIM(2);
DKP:=KPPROFIL.DIM(2);
END;
UDSKRIV(7,BREDDE);
UDSKRIV(7,DK);
UDSKRIV(7,DKP);
REGN(BREDDE,I1,1,(I1-1)MOD 4+1,OLINIE.BLAMBRED,OLINIE.BREDDE,
VBREDDE,RAMME16);
UDSKRIV(7,BREDDE);
REGN(HØJDE,I1,4,(I1+3)DIV 4,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,
RAMME16);
J:=1;
WHILE (I1<>OLINIE.RAMMENR(J)) AND (J<3) DO J:=J+1;
IF RAMME.TYP=3 THEN
BEGIN
TILBEHØR.NR:=KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE(J);
GETREC(TILZ.H,TILF,TILBEHØR.A);
IF IER<>0 THEN IOF(TILZ.H.FILENAME);
FAKODE:=FARVEKODE(1);GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;
FANR:=FARVENR(1);
END
ELSE
BEGIN
TILBEHØR.NR:=RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE(J);
GETREC(TILZ.H,TILF,TILBEHØR.A);
IF IER<>0 THEN IOF(TILZ.H.FILENAME);
GENER2(6,KPROFIL.TÆTGUM,BREDDE,HØJDE); (*KARMTÆTNING*)
RPROFIL.NR:=RAMMEPROFIL;
GETREC(PROZ.H,PROF,RPROFIL.A);
IF IER<>0 THEN IOF(PROZ.H.FILENAME);
GENER2(7,RPROFIL.TÆTGUM,BREDDE,HØJDE); (*RAMMETÆTNING*)
FAKODE:=FARVEKODE(2);GLASTYPE:=2;FANR:=FARVENR(2);
BESTEMFORSTÆRKNING;
MÅL:=BREDDE;STÆRKR1:=RAMME.VREGEL(REGELNR);
STÆRKR2:=RAMME.LREGEL(REGELNR);STÆRKR:=STÆRKR1;
PROFILBEHANDLING(HØJDE,RAMME.FORSTÆRK,RPROFIL.FORSTÆR,
RAMME.BESLAG,RAMMEPROFIL,RPROFIL.TÆTGUM,
TILBEHØR.GLASGUM); (*RAMMEPROFILER*)
BREDDE:=BREDDE-2*RPROFIL.DIM(1);HØJDE:=HØJDE-2*RPROFIL.DIM(1);
END;
PLACERING:=20;TYPE1:=NULLER;TYPE2:=0;
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(PROZ.H.FILENAME);
BREDDE:=BREDDE-2*GPROFIL.DIM(1);HØJDE:=HØJDE-2*GPROFIL.DIM(1);
TYPE1(1):=0;TYPE1(2):=GLASNR(J);
GENER2(8,TILBEHØR.GLASLGUM,BREDDE,HØJDE); (*GLASLISTEGUMMI*)
GENER2(GLASTYPE,TYPE1,BREDDE,HØJDE);
END;
END;
I1:=0;FANR:=FARVENR(1);FAKODE:=FARVEKODE(1);
BESTEMFORSTÆRKNING;
MÅL:=OLINIE.BLAMBRED;STÆRKR1:=KVREGEL(REGELNR);
STÆRKR2:=KLREGEL(REGELNR);STÆRKR:=STÆRKR1;
PROFILBEHANDLING(OLINIE.BLAMHØJD,KFORSTÆRK,KPROFIL.FORSTÆR,
KBESLAG,KARMPROFIL,KPROFIL.TÆTGUM,KGUMMI);
(*KARMPROFILER*)
BESTEMFORSTÆRKNING;
FOR PLACERING:=5 TO 19 DO
BEGIN
TYPE1:=NULLER;TYPE2:=0;
POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;
GETREC(POSZ.H,POSF,POST.A);
IF (IER<>0) AND (IER<>-6) THEN IOF(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:=KPPROFIL.FORSTÆR(TYPER);
GENER2(4,TYPE1,0,LÆNGDE); (*FORSTÆRKNING*)
GENER1(0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);
(*POSTPROFIL*)
END
ELSE
IER:=0;
END;
POS:=POS+1;
END;
END;
END;
UNTIL (IER=-6) OR (POS=100);
LUK;
END;
0x0000…0015 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x0015…0018 Line {l1=0x01, l2=» «, l3=0x01}
0x0018…0029 Line {l1=0x0f, l2=»VAR KARMPROFIL,«, l3=0x0f}
0x0029…003b Line {l1=0x10, l2=» RAMMEPROFIL,«, l3=0x10}
0x003b…0047 Line {l1=0x0a, l2=» POST1,«, l3=0x0a}
0x0047…005b Line {l1=0x12, l2=» VKARM:INTEGER;«, l3=0x12}
0x005b…006f Line {l1=0x12, l2=» RAMME16:AR116;«, l3=0x12}
0x006f…0082 Line {l1=0x11, l2=» VBESLAG:AR14;«, l3=0x11}
0x0082…0095 Line {l1=0x11, l2=» VBREDDE:AR13;«, l3=0x11}
0x0095…00a7 Line {l1=0x10, l2=» VHØJDE:AR13;«, l3=0x10}
0x00a7…00b5 Line {l1=0x0c, l2=» KBESLAG,«, l3=0x0c}
0x00b5…00ca Line {l1=0x13, l2=» KFORSTÆRK:AR14;«, l3=0x13}
0x00ca…00d8 Line {l1=0x0c, l2=» KVREGEL,«, l3=0x0c}
0x00d8…00eb Line {l1=0x11, l2=» KLREGEL:AR13;«, l3=0x11}
0x00eb…00fb Line {l1=0x0e, l2=» FARVEKODE,«, l3=0x0e}
0x00fb…0111 Line {l1=0x14, l2=» FARVENR:DOBBTAL;«, l3=0x14}
0x0111…0120 Line {l1=0x0d, l2=» GLASKODE,«, l3=0x0d}
0x0120…0132 Line {l1=0x10, l2=» GLASNR:AR13;«, l3=0x10}
0x0132…0149 Line {l1=0x15, l2=» GLASTYPE:INTEGER;«, l3=0x15}
0x0149…0159 Line {l1=0x0e, l2=» J:INTEGER;«, l3=0x0e}
0x0159…015c Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x015f…0166 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0166…0169 Line {l1=0x01, l2=» «, l3=0x01}
0x0169…0170 Line {l1=0x05, l2=»ÅBEN;«, l3=0x05}
0x0170…0193 Line {l1=0x21, l2=»POS:=1;NULLER(1):=0;NULLER(2):=0;«, l3=0x21}
0x0193…019b Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x019b…01a2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01a2…01f0 Line {l1=0x4c, l2=» OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;KGUMMI:=NULLER;PLACERING:=0;«, l3=0x4c}
0x01f0…0211 Line {l1=0x1f, l2=» GETREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x1f}
0x0211…024a Line {l1=0x37, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF (OLIZ.H.FILENAME);«, l3=0x37}
0x024a…025b Line {l1=0x0f, l2=» IF IER=0 THEN«, l3=0x0f}
0x025b…0264 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0264…0276 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0276…028a Line {l1=0x12, l2=» GOTOXY(15,12);«, l3=0x12}
0x028a…02d4 Line {l1=0x48, l2=» WRITELN('Nu behandles ordrenr: ',ORDRENUM:4,' Positionsnr: ',POS:3);«, l3=0x48}
0x02d4…02f3 Line {l1=0x1d, l2=» IF OLINIE.VINDUENR>0 THEN«, l3=0x1d}
0x02f3…02fe Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02fe…0334 Line {l1=0x34, l2=» CHECKBH (OLINIE.BREDDE);CHECKBH(OLINIE.HØJDE);«, l3=0x34}
0x0334…036d Line {l1=0x37, l2=» HENTKOMBI(KARMPROFIL,RAMMEPROFIL,POST1,FILER(1));«, l3=0x37}
0x036d…03af Line {l1=0x40, l2=» HENTVINDUE(VKARM,RAMME16,VBESLAG,VBREDDE,VHØJDE,FILER(2));«, l3=0x40}
0x03af…03f2 Line {l1=0x41, l2=» HENTKARM(VKARM,KBESLAG,KFORSTÆRK,KVREGEL,KLREGEL,FILER(3));«, l3=0x41}
0x03f2…0416 Line {l1=0x22, l2=» BESTEMGLAS(GLASKODE,GLASNR);«, l3=0x22}
0x0416…0435 Line {l1=0x1d, l2=» KPROFIL.NR:=KARMPROFIL;«, l3=0x1d}
0x0435…045b Line {l1=0x24, l2=» GETREC(PROZ.H,PROF,KPROFIL.A);«, l3=0x24}
0x045b…0487 Line {l1=0x2a, l2=» IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2a}
0x0487…04a2 Line {l1=0x19, l2=» KPPROFIL.NR:=POST1;«, l3=0x19}
0x04a2…04c9 Line {l1=0x25, l2=» GETREC(PROZ.H,PROF,KPPROFIL.A);«, l3=0x25}
0x04c9…04f5 Line {l1=0x2a, l2=» IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2a}
0x04f5…0525 Line {l1=0x2e, l2=» BESTEMFARVE(FARVEKODE,FARVENR,FILER(4));«, l3=0x2e}
0x0525…053f Line {l1=0x18, l2=» FOR I1:=1 TO 16 DO«, l3=0x18}
0x053f…054c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x054c…056c Line {l1=0x1e, l2=» RAMME.NR:=RAMME16(I1);«, l3=0x1e}
0x056c…0589 Line {l1=0x1b, l2=» IF RAMME.NR>19 THEN«, l3=0x1b}
0x0589…0598 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0598…05c0 Line {l1=0x26, l2=» GETREC(RAMZ.H,RAMF,RAMME.A);«, l3=0x26}
0x05c0…05f0 Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(RAMZ.H.FILENAME);«, l3=0x2e}
0x05f0…060a Line {l1=0x18, l2=» GOTOXY(15,14);«, l3=0x18}
0x060a…062e Line {l1=0x22, l2=» WRITELN('Rammenr: ',I1);«, l3=0x22}
0x062e…0663 Line {l1=0x33, l2=» DK:=KPROFIL.DIM(1); DKP:=KPPROFIL.DIM(1);«, l3=0x33}
0x0663…0682 Line {l1=0x1d, l2=» IF RAMME.TYP=3 THEN«, l3=0x1d}
0x0682…0693 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0693…06b4 Line {l1=0x1f, l2=» DK:=KPROFIL.DIM(2);«, l3=0x1f}
0x06b4…06d7 Line {l1=0x21, l2=» DKP:=KPPROFIL.DIM(2);«, l3=0x21}
0x06d7…06e7 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x06e7…06fb Line {l1=0x12, l2=»UDSKRIV(7,BREDDE);«, l3=0x12}
0x06fb…070b Line {l1=0x0e, l2=»UDSKRIV(7,DK);«, l3=0x0e}
0x070b…071c Line {l1=0x0f, l2=»UDSKRIV(7,DKP);«, l3=0x0f}
0x071c…0765 Line {l1=0x47, l2=» REGN(BREDDE,I1,1,(I1-1)MOD 4+1,OLINIE.BLAMBRED,OLINIE.BREDDE,«, l3=0x47}
0x0765…0787 Line {l1=0x20, l2=» VBREDDE,RAMME16);«, l3=0x20}
0x0787…079b Line {l1=0x12, l2=»UDSKRIV(7,BREDDE);«, l3=0x12}
0x079b…07e7 Line {l1=0x4a, l2=» REGN(HØJDE,I1,4,(I1+3)DIV 4,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,«, l3=0x4a}
0x07e7…0801 Line {l1=0x18, l2=» RAMME16);«, l3=0x18}
0x0801…0812 Line {l1=0x0f, l2=» J:=1;«, l3=0x0f}
0x0812…0850 Line {l1=0x3c, l2=» WHILE (I1<>OLINIE.RAMMENR(J)) AND (J<3) DO J:=J+1;«, l3=0x3c}
0x0850…086f Line {l1=0x1d, l2=» IF RAMME.TYP=3 THEN«, l3=0x1d}
0x086f…0880 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0880…08c5 Line {l1=0x43, l2=» TILBEHØR.NR:=KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE(J);«, l3=0x43}
0x08c5…08f2 Line {l1=0x2b, l2=» GETREC(TILZ.H,TILF,TILBEHØR.A);«, l3=0x2b}
0x08f2…0924 Line {l1=0x30, l2=» IF IER<>0 THEN IOF(TILZ.H.FILENAME);«, l3=0x30}
0x0924…096c Line {l1=0x46, l2=» FAKODE:=FARVEKODE(1);GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;«, l3=0x46}
0x096c…098b Line {l1=0x1d, l2=» FANR:=FARVENR(1);«, l3=0x1d}
0x098b…099a Line {l1=0x0d, l2=» END«, l3=0x0d}
0x099a…09aa Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x09aa…09bb Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x09bb…0a01 Line {l1=0x44, l2=» TILBEHØR.NR:=RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE(J);«, l3=0x44}
0x0a01…0a2e Line {l1=0x2b, l2=» GETREC(TILZ.H,TILF,TILBEHØR.A);«, l3=0x2b}
0x0a2e…0a60 Line {l1=0x30, l2=» IF IER<>0 THEN IOF(TILZ.H.FILENAME);«, l3=0x30}
0x0a60…0aa4 Line {l1=0x42, l2=» GENER2(6,KPROFIL.TÆTGUM,BREDDE,HØJDE); (*KARMTÆTNING*)«, l3=0x42}
0x0aa4…0aca Line {l1=0x24, l2=» RPROFIL.NR:=RAMMEPROFIL;«, l3=0x24}
0x0aca…0af6 Line {l1=0x2a, l2=» GETREC(PROZ.H,PROF,RPROFIL.A);«, l3=0x2a}
0x0af6…0b28 Line {l1=0x30, l2=» IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x30}
0x0b28…0b6d Line {l1=0x43, l2=» GENER2(7,RPROFIL.TÆTGUM,BREDDE,HØJDE); (*RAMMETÆTNING*)«, l3=0x43}
0x0b6d…0bad Line {l1=0x3e, l2=» FAKODE:=FARVEKODE(2);GLASTYPE:=2;FANR:=FARVENR(2);«, l3=0x3e}
0x0bad…0bce Line {l1=0x1f, l2=» BESTEMFORSTÆRKNING;«, l3=0x1f}
0x0bce…0c07 Line {l1=0x37, l2=» MÅL:=BREDDE;STÆRKR1:=RAMME.VREGEL(REGELNR);«, l3=0x37}
0x0c07…0c44 Line {l1=0x3b, l2=» STÆRKR2:=RAMME.LREGEL(REGELNR);STÆRKR:=STÆRKR1;«, l3=0x3b}
0x0c44…0c88 Line {l1=0x42, l2=» PROFILBEHANDLING(HØJDE,RAMME.FORSTÆRK,RPROFIL.FORSTÆR,«, l3=0x42}
0x0c88…0ccf Line {l1=0x45, l2=» RAMME.BESLAG,RAMMEPROFIL,RPROFIL.TÆTGUM,«, l3=0x45}
0x0ccf…0d12 Line {l1=0x41, l2=» TILBEHØR.GLASGUM); (*RAMMEPROFILER*)«, l3=0x41}
0x0d12…0d5e Line {l1=0x4a, l2=» BREDDE:=BREDDE-2*RPROFIL.DIM(1);HØJDE:=HØJDE-2*RPROFIL.DIM(1);«, l3=0x4a}
0x0d5e…0d6e Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x0d6e…0d9f Line {l1=0x2f, l2=» PLACERING:=20;TYPE1:=NULLER;TYPE2:=0;«, l3=0x2f}
0x0d9f…0dee Line {l1=0x4d, l2=» GENER1(0,TILBEHØR.GLASLIST,BREDDE,HØJDE,0,TILBEHØR.GLASLGUM,NULLER)«, l3=0x4d}
0x0dee…0e32 Line {l1=0x42, l2=» ; (*GLASLISTE*)«, l3=0x42}
0x0e32…0e76 Line {l1=0x42, l2=» GENER2(9,TILBEHØR.GLASGUM,BREDDE,HØJDE); (*GLASGUMMI*)«, l3=0x42}
0x0e76…0ea0 Line {l1=0x28, l2=» GPROFIL.NR:=TILBEHØR.GLASLIST;«, l3=0x28}
0x0ea0…0eca Line {l1=0x28, l2=» GETREC(PROZ.H,PROF,GPROFIL.A);«, l3=0x28}
0x0eca…0efa Line {l1=0x2e, l2=» IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2e}
0x0efa…0f44 Line {l1=0x48, l2=» BREDDE:=BREDDE-2*GPROFIL.DIM(1);HØJDE:=HØJDE-2*GPROFIL.DIM(1);«, l3=0x48}
0x0f44…0f70 Line {l1=0x2a, l2=» TYPE1(1):=0;TYPE1(2):=GLASNR(J);«, l3=0x2a}
0x0f70…0fba Line {l1=0x48, l2=» GENER2(8,TILBEHØR.GLASLGUM,BREDDE,HØJDE); (*GLASLISTEGUMMI*)«, l3=0x48}
0x0fba…0fea Line {l1=0x2e, l2=» GENER2(GLASTYPE,TYPE1,BREDDE,HØJDE);«, l3=0x2e}
0x0fea…0ff8 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0ff8…1004 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1004…1038 Line {l1=0x32, l2=» I1:=0;FANR:=FARVENR(1);FAKODE:=FARVEKODE(1);«, l3=0x32}
0x1038…1053 Line {l1=0x19, l2=» BESTEMFORSTÆRKNING;«, l3=0x19}
0x1053…108a Line {l1=0x35, l2=» MÅL:=OLINIE.BLAMBRED;STÆRKR1:=KVREGEL(REGELNR);«, l3=0x35}
0x108a…10bc Line {l1=0x30, l2=» STÆRKR2:=KLREGEL(REGELNR);STÆRKR:=STÆRKR1;«, l3=0x30}
0x10bc…10ff Line {l1=0x41, l2=» PROFILBEHANDLING(OLINIE.BLAMHØJD,KFORSTÆRK,KPROFIL.FORSTÆR,«, l3=0x41}
0x10ff…1142 Line {l1=0x41, l2=» KBESLAG,KARMPROFIL,KPROFIL.TÆTGUM,KGUMMI);«, l3=0x41}
0x1142…116b Line {l1=0x27, l2=» (*KARMPROFILER*)«, l3=0x27}
0x116b…1186 Line {l1=0x19, l2=» BESTEMFORSTÆRKNING;«, l3=0x19}
0x1186…11a7 Line {l1=0x1f, l2=» FOR PLACERING:=5 TO 19 DO«, l3=0x1f}
0x11a7…11b4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x11b4…11d5 Line {l1=0x1f, l2=» TYPE1:=NULLER;TYPE2:=0;«, l3=0x1f}
0x11d5…1207 Line {l1=0x30, l2=» POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;«, l3=0x30}
0x1207…122c Line {l1=0x23, l2=» GETREC(POSZ.H,POSF,POST.A);«, l3=0x23}
0x122c…126a Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);«, l3=0x3c}
0x126a…1281 Line {l1=0x15, l2=» IF IER=0 THEN«, l3=0x15}
0x1281…1290 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1290…12b2 Line {l1=0x20, l2=» IF POST.VANDLOD=0 THEN«, l3=0x20}
0x12b2…12e9 Line {l1=0x35, l2=» POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)«, l3=0x35}
0x12e9…12f9 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x12f9…1330 Line {l1=0x35, l2=» POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);«, l3=0x35}
0x1330…1367 Line {l1=0x35, l2=» MÅL:=LÆNGDE;STÆRKR:=POST.FORSTÆRK(REGELNR);«, l3=0x35}
0x1367…137d Line {l1=0x14, l2=» STÆRKNING;«, l3=0x14}
0x137d…13a8 Line {l1=0x29, l2=» TYPE1:=KPPROFIL.FORSTÆR(TYPER);«, l3=0x29}
0x13a8…13e1 Line {l1=0x37, l2=» GENER2(4,TYPE1,0,LÆNGDE); (*FORSTÆRKNING*)«, l3=0x37}
0x13e1…1418 Line {l1=0x35, l2=» GENER1(0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);«, l3=0x35}
0x1418…144f Line {l1=0x35, l2=» (*POSTPROFIL*)«, l3=0x35}
0x144f…145c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x145c…146a Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x146a…147d Line {l1=0x11, l2=» IER:=0;«, l3=0x11}
0x147d…1489 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1489…149c Line {l1=0x11, l2=» POS:=POS+1;«, l3=0x11}
0x149c…14a6 Line {l1=0x08, l2=» END;«, l3=0x08}
[…0x1…]
0x14b0…14b8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x14b8…14d8 Line {l1=0x1e, l2=» UNTIL (IER=-6) OR (POS=100);«, l3=0x1e}
0x14d8…14e0 Line {l1=0x06, l2=» LUK;«, l3=0x06}
0x14e0…14e6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14e6…1500 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 50 4f ┆ (*PO┆
0x1500…1520 53 54 50 52 4f 46 49 4c 2a 29 35 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0a 20 20 20 20 20 20 ┆STPROFIL*)5 END; ┆
0x1520…1540 45 4e 44 3b 0a 11 20 20 20 20 20 20 50 4f 53 3a 3d 50 4f 53 2b 31 3b 11 08 20 20 20 20 45 4e 44 ┆END; POS:=POS+1; END┆
0x1540…1560 3b 08 06 20 20 45 4e 44 3b 06 1e 20 20 55 4e 54 49 4c 20 28 49 45 52 3d 2d 36 29 20 4f 52 20 28 ┆; END; UNTIL (IER=-6) OR (┆
0x1560…1580 50 4f 53 3d 31 30 30 29 3b 1e 06 20 20 4c 55 4b 3b 06 04 45 4e 44 3b 04 00 00 20 20 20 20 20 20 ┆POS=100); LUK; END; ┆
0x1580…15a0 20 20 20 20 20 50 4f 53 54 42 45 52 45 47 4e 28 4f 4c 49 4e 49 45 2e 48 5c 4a 44 45 2c 4f 4c 49 ┆ POSTBEREGN(OLINIE.HØJDE,OLI┆
0x15a0…15c0 4e 49 45 2e 42 4c 41 4d 48 5c 4a 44 29 3b 35 35 20 20 20 20 20 20 20 20 20 20 4d 5d 4c 3a 3d 4c ┆NIE.BLAMHØJD);55 MÅL:=L┆
0x15c0…15e0 5b 4e 47 44 45 3b 53 54 5b 52 4b 52 3a 3d 50 4f 53 54 2e 46 4f 52 53 54 5b 52 4b 28 52 45 47 45 ┆ÆNGDE;STÆRKR:=POST.FORSTÆRK(REGE┆
0x15e0…1600 4c 4e 52 29 3b 35 14 20 20 20 20 20 20 20 20 20 20 53 54 5b 52 4b 4e 49 4e 47 3b 14 28 20 20 20 ┆LNR);5 STÆRKNING; ( ┆
0x1600…1620 20 20 20 20 20 20 20 54 59 50 45 31 3a 3d 4b 50 52 4f 46 49 4c 2e 46 4f 52 53 54 5b 52 28 54 59 ┆ TYPE1:=KPROFIL.FORSTÆR(TY┆
0x1620…1640 50 45 52 29 3b 28 37 20 20 20 20 20 20 20 20 20 20 47 45 4e 45 52 32 28 34 2c 54 59 50 45 31 2c ┆PER);(7 GENER2(4,TYPE1,┆
0x1640…1660 30 2c 4c 5b 4e 47 44 45 29 3b 20 20 20 20 28 2a 46 4f 52 53 54 5b 52 4b 4e 49 4e 47 2a 29 37 35 ┆0,LÆNGDE); (*FORSTÆRKNING*)75┆
0x1660…1680 20 20 20 20 20 20 20 20 20 20 47 45 4e 45 52 31 28 30 2c 50 4f 53 54 31 2c 4c 5b 4e 47 44 45 2c ┆ GENER1(0,POST1,LÆNGDE,┆
0x1680…16a0 4d 5d 4c 2c 30 2c 4e 55 4c 4c 45 52 2c 4e 55 4c 4c 45 52 29 3b 35 35 20 20 20 20 20 20 20 20 20 ┆MÅL,0,NULLER,NULLER);55 ┆
0x16a0…16c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a ┆ (*┆
0x16c0…16e0 50 4f 53 54 50 52 4f 46 49 4c 2a 29 35 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0a 20 20 20 20 ┆POSTPROFIL*)5 END; ┆
0x16e0…1700 20 20 45 4e 44 3b 0a 11 20 20 20 20 20 20 50 4f 53 3a 3d 50 4f 53 2b 31 3b 11 08 20 20 20 20 45 ┆ END; POS:=POS+1; E┆
0x1700…1720 4e 44 3b 08 06 20 20 45 4e 44 3b 06 1e 20 20 55 4e 54 49 4c 20 28 49 45 52 3d 2d 36 29 20 4f 52 ┆ND; END; UNTIL (IER=-6) OR┆
0x1720…1740 20 28 50 4f 53 3d 31 30 30 29 3b 1e 04 45 4e 44 3b 04 04 45 4e 44 3b 04 00 00 11 20 20 20 20 20 ┆ (POS=100); END; END; ┆
0x1740…1760 20 50 4f 53 3a 3d 50 4f 53 2b 31 3b 11 08 20 20 20 20 45 4e 44 3b 08 06 20 20 45 4e 44 3b 06 1e ┆ POS:=POS+1; END; END; ┆
0x1760…1780 20 20 55 4e 54 49 4c 20 28 49 45 52 3d 2d 36 29 20 4f 52 20 28 50 4f 53 3d 31 30 30 29 3b 1e 04 ┆ UNTIL (IER=-6) OR (POS=100); ┆
0x1780…17a0 45 4e 44 3b 04 04 45 4e 44 3b 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆END; END; ┆
0x17a0…17c0 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 ┆ ┆
[…0x5…]