DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦5f5562421⟧ TextFile

    Length: 6240 (0x1860)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTMAIN1.K«

Derivation

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTMAIN1.K«

Mikados K File

PROCEDURE MAINTAIN;
 
VAR KARMPROFIL,
    RAMMEPROFIL,
    POST1,
    VKARM:INTEGER;
    RAMME16:AR116;
    VBESLAG:AR14;
    VBREDDE:AR13;
    VHØJDE:AR13;
    KBESLAG,
    KFORSTÆRK:AR14;
    KVREGEL,
    KLREGEL:AR13;
    FAKODE1,
    FAKODE2,
    FANR1,
    FANR2:INTEGER;
 
 
BEGIN
 
ÅBEN;
POS:=1;
REPEAT
BEGIN
  OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;KGUMMI:=NULLER;
  GETREC(OLIZ.H,OLIF,OLINIE.A);
  IF (IER<>0) AND (IER<>-6) THEN IOF (OLIZ.H.FILENAME);
  CLEARSCREEN;
  GOTOXY(15,12);
  WRITELN('Nu behandles ordrenr: ',ORDRENUM:4,' Positionsnr: ',POS:3);
  IF IER=0 THEN
  BEGIN
    IF OLINIE.VINDUENR>0 THEN
      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));
      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(FAKODE1,FAKODE2,FANR1,FANR2,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 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,VBREDDE,
                 RAMME16);
          Z:=(I1+3) DIV 4;I:=4;
          BEREGN(I1,HØJDE,I,Z,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,RAMME16);
          BESTEMGLAS;
          IF RAMME.TYP=3 THEN
          BEGIN
            TILBEHØR.NR:=KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE;
            GETREC(TILZ.H,TILF,TILBEHØR.A);
            IF IER<>0 THEN IOF(TILZ.H.FILENAME);
            FAKODE:=FAKODE1;GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;FANR:=FANR1;
          END
          ELSE
          BEGIN
            TILBEHØR.NR:=RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE;
            GETREC(TILZ.H,TILF,TILBEHØR.A);
            IF IER<>0 THEN IOF(TILZ.H.FILENAME);
            TYPE3:=KPROFIL.TÆTGUM;
 
 (*KARMTÆTNING*)
 
            GENER(6,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
            RPROFIL.NR:=RAMMEPROFIL;
            GETREC(PROZ.H,PROF,RPROFIL.A);
            IF IER<>0 THEN IOF(PROZ.H.FILENAME);
            TYPE3:=RPROFIL.TÆTGUM;
 
 (*RAMMETÆTNING*)
 
            GENER(7,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
            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;
            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;
 
 (*GLASLISTE*)
 
        GENER(1,0,TILBEHØR.GLASLIST,BREDDE,HØJDE,0,TILBEHØR.GLASLGUM,NULLER);
 
          TYPE3:=TILBEHØR.GLASGUM;
 (*GLASGUMMI*)
 
          GENER(9,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
          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);
 
 (*GLASLISTEGUMMI*)
 
          TYPE3:=TILBEHØR.GLASGUM;
          GENER(8,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
 (*GLAS*)
 
          GENER(GLASTYPE,0,GLASNR,BREDDE,HØJDE,0,NULLER,NULLER);
 
        END;
      END;
      I1:=0;FANR:=FANR1;FAKODE:=FAKODE1;
      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);
 
 (*KARMPOSTFORSTÆRKNING*)
 
          GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);
 
 (*KARMPOSTPROFIL*)
 
          GENER(1,0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);
 
        END;
      END;
      POS:=POS+1;
    END;
  END;
  UNTIL (IER=-6) OR (POS=100);
  LUK;
END;

Mikados K File

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…00f9 Line {l1=0x0c, l2=»    FAKODE1,«, l3=0x0c}
0x00f9…0107 Line {l1=0x0c, l2=»    FAKODE2,«, l3=0x0c}
0x0107…0113 Line {l1=0x0a, l2=»    FANR1,«, l3=0x0a}
0x0113…0127 Line {l1=0x12, l2=»    FANR2:INTEGER;«, l3=0x12}
0x0127…012a Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x012d…0134 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0134…0137 Line {l1=0x01, l2=» «, l3=0x01}
0x0137…013e Line {l1=0x05, l2=»ÅBEN;«, l3=0x05}
0x013e…0147 Line {l1=0x07, l2=»POS:=1;«, l3=0x07}
0x0147…014f Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x014f…0156 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0156…0197 Line {l1=0x3f, l2=»  OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;KGUMMI:=NULLER;«, l3=0x3f}
0x0197…01b8 Line {l1=0x1f, l2=»  GETREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x1f}
0x01b8…01f1 Line {l1=0x37, l2=»  IF (IER<>0) AND (IER<>-6) THEN IOF (OLIZ.H.FILENAME);«, l3=0x37}
0x01f1…0201 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x0201…0213 Line {l1=0x10, l2=»  GOTOXY(15,12);«, l3=0x10}
0x0213…025b Line {l1=0x46, l2=»  WRITELN('Nu behandles ordrenr: ',ORDRENUM:4,' Positionsnr: ',POS:3);«, l3=0x46}
0x025b…026c Line {l1=0x0f, l2=»  IF IER=0 THEN«, l3=0x0f}
0x026c…0275 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x0275…0294 Line {l1=0x1d, l2=»    IF OLINIE.VINDUENR>0 THEN«, l3=0x1d}
0x0294…02ca Line {l1=0x34, l2=»      CHECKBH (OLINIE.BREDDE);CHECKBH(OLINIE.HØJDE);«, l3=0x34}
0x02ca…0303 Line {l1=0x37, l2=»      HENTKOMBI(KARMPROFIL,RAMMEPROFIL,POST1,FILER(1));«, l3=0x37}
0x0303…0345 Line {l1=0x40, l2=»      HENTVINDUE(VKARM,RAMME16,VBESLAG,VBREDDE,VHØJDE,FILER(2));«, l3=0x40}
0x0345…0388 Line {l1=0x41, l2=»      HENTKARM(VKARM,KBESLAG,KFORSTÆRK,KVREGEL,KLREGEL,FILER(3));«, l3=0x41}
0x0388…03a7 Line {l1=0x1d, l2=»      KPROFIL.NR:=KARMPROFIL;«, l3=0x1d}
0x03a7…03cd Line {l1=0x24, l2=»      GETREC(PROZ.H,PROF,KPROFIL.A);«, l3=0x24}
0x03cd…03f9 Line {l1=0x2a, l2=»      IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2a}
0x03f9…0414 Line {l1=0x19, l2=»      KPPROFIL.NR:=POST1;«, l3=0x19}
0x0414…043b Line {l1=0x25, l2=»      GETREC(PROZ.H,PROF,KPPROFIL.A);«, l3=0x25}
0x043b…0467 Line {l1=0x2a, l2=»      IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2a}
0x0467…04a1 Line {l1=0x38, l2=»      BESTEMFARVE(FAKODE1,FAKODE2,FANR1,FANR2,FILER(4));«, l3=0x38}
0x04a1…04bb Line {l1=0x18, l2=»      FOR I1:=1 TO 16 DO«, l3=0x18}
0x04bb…04c8 Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x04c8…04e8 Line {l1=0x1e, l2=»        RAMME.NR:=RAMME16(I1);«, l3=0x1e}
0x04e8…0505 Line {l1=0x1b, l2=»        IF RAMME.NR>19 THEN«, l3=0x1b}
0x0505…0514 Line {l1=0x0d, l2=»        BEGIN«, l3=0x0d}
0x0514…053c Line {l1=0x26, l2=»          GETREC(RAMZ.H,RAMF,RAMME.A);«, l3=0x26}
0x053c…056c Line {l1=0x2e, l2=»          IF IER<>0 THEN IOF(RAMZ.H.FILENAME);«, l3=0x2e}
0x056c…0586 Line {l1=0x18, l2=»          GOTOXY(15,14);«, l3=0x18}
0x0586…05aa Line {l1=0x22, l2=»          WRITELN('Rammenr: ',I1);«, l3=0x22}
0x05aa…05df Line {l1=0x33, l2=»          DK:=KPROFIL.DIM(1); DKP:=KPPROFIL.DIM(1);«, l3=0x33}
0x05df…0627 Line {l1=0x46, l2=»          IF RAMME.TYP=3 THEN DK:=KPROFIL.DIM(2);DKP:=KPPROFIL.DIM(2);«, l3=0x46}
0x0627…064a Line {l1=0x21, l2=»          Z:=(I1-1) MOD 4+1;I:=1;«, l3=0x21}
0x064a…0691 Line {l1=0x45, l2=»          BEREGN(I1,BREDDE,I,Z,OLINIE.BLAMBRED,OLINIE.BREDDE,VBREDDE,«, l3=0x45}
0x0691…06ad Line {l1=0x1a, l2=»                 RAMME16);«, l3=0x1a}
0x06ad…06ce Line {l1=0x1f, l2=»          Z:=(I1+3) DIV 4;I:=4;«, l3=0x1f}
0x06ce…071b Line {l1=0x4b, l2=»          BEREGN(I1,HØJDE,I,Z,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,RAMME16);«, l3=0x4b}
0x071b…0732 Line {l1=0x15, l2=»          BESTEMGLAS;«, l3=0x15}
0x0732…0751 Line {l1=0x1d, l2=»          IF RAMME.TYP=3 THEN«, l3=0x1d}
0x0751…0762 Line {l1=0x0f, l2=»          BEGIN«, l3=0x0f}
0x0762…07a4 Line {l1=0x40, l2=»            TILBEHØR.NR:=KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE;«, l3=0x40}
0x07a4…07d1 Line {l1=0x2b, l2=»            GETREC(TILZ.H,TILF,TILBEHØR.A);«, l3=0x2b}
0x07d1…0803 Line {l1=0x30, l2=»            IF IER<>0 THEN IOF(TILZ.H.FILENAME);«, l3=0x30}
0x0803…0852 Line {l1=0x4d, l2=»            FAKODE:=FAKODE1;GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;FANR:=FANR1;«, l3=0x4d}
0x0852…0861 Line {l1=0x0d, l2=»          END«, l3=0x0d}
0x0861…0871 Line {l1=0x0e, l2=»          ELSE«, l3=0x0e}
0x0871…0882 Line {l1=0x0f, l2=»          BEGIN«, l3=0x0f}
0x0882…08c5 Line {l1=0x41, l2=»            TILBEHØR.NR:=RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE;«, l3=0x41}
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…0948 Line {l1=0x22, l2=»            TYPE3:=KPROFIL.TÆTGUM;«, l3=0x22}
0x0948…094b Line {l1=0x01, l2=» «, l3=0x01}
0x094b…095d Line {l1=0x10, l2=» (*KARMTÆTNING*)«, l3=0x10}
0x095d…0960 Line {l1=0x01, l2=» «, l3=0x01}
0x0960…09a6 Line {l1=0x44, l2=»            GENER(6,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x44}
0x09a6…09a9 Line {l1=0x01, l2=» «, l3=0x01}
0x09a9…09cf Line {l1=0x24, l2=»            RPROFIL.NR:=RAMMEPROFIL;«, l3=0x24}
0x09cf…09fb Line {l1=0x2a, l2=»            GETREC(PROZ.H,PROF,RPROFIL.A);«, l3=0x2a}
0x09fb…0a2d Line {l1=0x30, l2=»            IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x30}
0x0a2d…0a51 Line {l1=0x22, l2=»            TYPE3:=RPROFIL.TÆTGUM;«, l3=0x22}
0x0a51…0a54 Line {l1=0x01, l2=» «, l3=0x01}
0x0a54…0a67 Line {l1=0x11, l2=» (*RAMMETÆTNING*)«, l3=0x11}
0x0a67…0a6a Line {l1=0x01, l2=» «, l3=0x01}
0x0a6a…0ab0 Line {l1=0x44, l2=»            GENER(7,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x44}
0x0ab0…0ab3 Line {l1=0x01, l2=» «, l3=0x01}
0x0ab3…0ae9 Line {l1=0x34, l2=»            FAKODE:=FAKODE2;GLASTYPE:=2;FANR:=FANR2;«, l3=0x34}
0x0ae9…0b0a Line {l1=0x1f, l2=»            BESTEMFORSTÆRKNING;«, l3=0x1f}
0x0b0a…0b43 Line {l1=0x37, l2=»            MÅL:=BREDDE;STÆRKR1:=RAMME.VREGEL(REGELNR);«, l3=0x37}
0x0b43…0b80 Line {l1=0x3b, l2=»            STÆRKR2:=RAMME.LREGEL(REGELNR);STÆRKR:=STÆRKR1;«, l3=0x3b}
0x0b80…0bc4 Line {l1=0x42, l2=»            PROFILBEHANDLING(HØJDE,RAMME.FORSTÆRK,RPROFIL.FORSTÆR,«, l3=0x42}
0x0bc4…0c0b Line {l1=0x45, l2=»                             RAMME.BESLAG,RAMMEPROFIL,RPROFIL.TÆTGUM,«, l3=0x45}
0x0c0b…0c4e Line {l1=0x41, l2=»                             TILBEHØR.GLASGUM); (*RAMMEPROFILER*)«, l3=0x41}
0x0c4e…0c9a Line {l1=0x4a, l2=»            BREDDE:=BREDDE-2*RPROFIL.DIM(1);HØJDE:=HØJDE-2*RPROFIL.DIM(1);«, l3=0x4a}
0x0c9a…0caa Line {l1=0x0e, l2=»          END;«, l3=0x0e}
0x0caa…0cc4 Line {l1=0x18, l2=»          PLACERING:=20;«, l3=0x18}
0x0cc4…0cc7 Line {l1=0x01, l2=» «, l3=0x01}
0x0cc7…0cd7 Line {l1=0x0e, l2=» (*GLASLISTE*)«, l3=0x0e}
0x0cd7…0cda Line {l1=0x01, l2=» «, l3=0x01}
0x0cda…0d29 Line {l1=0x4d, l2=»        GENER(1,0,TILBEHØR.GLASLIST,BREDDE,HØJDE,0,TILBEHØR.GLASLGUM,NULLER);«, l3=0x4d}
0x0d29…0d2c Line {l1=0x01, l2=» «, l3=0x01}
0x0d2c…0d50 Line {l1=0x22, l2=»          TYPE3:=TILBEHØR.GLASGUM;«, l3=0x22}
0x0d50…0d60 Line {l1=0x0e, l2=» (*GLASGUMMI*)«, l3=0x0e}
0x0d60…0d63 Line {l1=0x01, l2=» «, l3=0x01}
0x0d63…0da7 Line {l1=0x42, l2=»          GENER(9,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x42}
0x0da7…0daa Line {l1=0x01, l2=» «, l3=0x01}
0x0daa…0dd4 Line {l1=0x28, l2=»          GPROFIL.NR:=TILBEHØR.GLASLIST;«, l3=0x28}
0x0dd4…0dfe Line {l1=0x28, l2=»          GETREC(PROZ.H,PROF,GPROFIL.A);«, l3=0x28}
0x0dfe…0e2e Line {l1=0x2e, l2=»          IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2e}
0x0e2e…0e78 Line {l1=0x48, l2=»          BREDDE:=BREDDE-2*GPROFIL.DIM(1);HØJDE:=HØJDE-2*GPROFIL.DIM(1);«, l3=0x48}
0x0e78…0e7b Line {l1=0x01, l2=» «, l3=0x01}
0x0e7b…0e90 Line {l1=0x13, l2=» (*GLASLISTEGUMMI*)«, l3=0x13}
0x0e90…0e93 Line {l1=0x01, l2=» «, l3=0x01}
0x0e93…0eb7 Line {l1=0x22, l2=»          TYPE3:=TILBEHØR.GLASGUM;«, l3=0x22}
0x0eb7…0efb Line {l1=0x42, l2=»          GENER(8,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x42}
0x0efb…0efe Line {l1=0x01, l2=» «, l3=0x01}
0x0efe…0f09 Line {l1=0x09, l2=» (*GLAS*)«, l3=0x09}
0x0f09…0f0c Line {l1=0x01, l2=» «, l3=0x01}
0x0f0c…0f4e Line {l1=0x40, l2=»          GENER(GLASTYPE,0,GLASNR,BREDDE,HØJDE,0,NULLER,NULLER);«, l3=0x40}
0x0f4e…0f51 Line {l1=0x01, l2=» «, l3=0x01}
0x0f51…0f5f Line {l1=0x0c, l2=»        END;«, l3=0x0c}
0x0f5f…0f6b Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x0f6b…0f95 Line {l1=0x28, l2=»      I1:=0;FANR:=FANR1;FAKODE:=FAKODE1;«, l3=0x28}
0x0f95…0fb0 Line {l1=0x19, l2=»      BESTEMFORSTÆRKNING;«, l3=0x19}
0x0fb0…0fe7 Line {l1=0x35, l2=»      MÅL:=OLINIE.BLAMBRED;STÆRKR1:=KVREGEL(REGELNR);«, l3=0x35}
0x0fe7…1019 Line {l1=0x30, l2=»      STÆRKR2:=KLREGEL(REGELNR);STÆRKR:=STÆRKR1;«, l3=0x30}
0x1019…105c Line {l1=0x41, l2=»      PROFILBEHANDLING(OLINIE.BLAMHØJD,KFORSTÆRK,KPROFIL.FORSTÆR,«, l3=0x41}
0x105c…109f Line {l1=0x41, l2=»                       KBESLAG,KARMPROFIL,KPROFIL.TÆTGUM,KGUMMI);«, l3=0x41}
0x109f…10b1 Line {l1=0x10, l2=»(*KARMPROFILER*)«, l3=0x10}
0x10b1…10cc Line {l1=0x19, l2=»      BESTEMFORSTÆRKNING;«, l3=0x19}
0x10cc…10ed Line {l1=0x1f, l2=»      FOR PLACERING:=5 TO 19 DO«, l3=0x1f}
0x10ed…10fa Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x10fa…111b Line {l1=0x1f, l2=»        TYPE1:=NULLER;TYPE2:=0;«, l3=0x1f}
0x111b…114d Line {l1=0x30, l2=»        POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;«, l3=0x30}
0x114d…1172 Line {l1=0x23, l2=»        GETREC(POSZ.H,POSF,POST.A);«, l3=0x23}
0x1172…11b0 Line {l1=0x3c, l2=»        IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);«, l3=0x3c}
0x11b0…11c7 Line {l1=0x15, l2=»        IF IER=0 THEN«, l3=0x15}
0x11c7…11d6 Line {l1=0x0d, l2=»        BEGIN«, l3=0x0d}
0x11d6…11f8 Line {l1=0x20, l2=»          IF POST.VANDLOD=0 THEN«, l3=0x20}
0x11f8…122f Line {l1=0x35, l2=»            POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)«, l3=0x35}
0x122f…123f Line {l1=0x0e, l2=»          ELSE«, l3=0x0e}
0x123f…1276 Line {l1=0x35, l2=»            POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);«, l3=0x35}
0x1276…12ad Line {l1=0x35, l2=»          MÅL:=LÆNGDE;STÆRKR:=POST.FORSTÆRK(REGELNR);«, l3=0x35}
0x12ad…12c3 Line {l1=0x14, l2=»          STÆRKNING;«, l3=0x14}
0x12c3…12ee Line {l1=0x29, l2=»          TYPE1:=KPPROFIL.FORSTÆR(TYPER);«, l3=0x29}
0x12ee…12f1 Line {l1=0x01, l2=» «, l3=0x01}
0x12f1…130c Line {l1=0x19, l2=» (*KARMPOSTFORSTÆRKNING*)«, l3=0x19}
0x130c…130f Line {l1=0x01, l2=» «, l3=0x01}
0x130f…134f Line {l1=0x3e, l2=»          GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);«, l3=0x3e}
0x134f…1352 Line {l1=0x01, l2=» «, l3=0x01}
0x1352…1367 Line {l1=0x13, l2=» (*KARMPOSTPROFIL*)«, l3=0x13}
0x1367…136a Line {l1=0x01, l2=» «, l3=0x01}
0x136a…13a2 Line {l1=0x36, l2=»          GENER(1,0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);«, l3=0x36}
0x13a2…13a5 Line {l1=0x01, l2=» «, l3=0x01}
0x13a5…13b3 Line {l1=0x0c, l2=»        END;«, l3=0x0c}
0x13b3…13bf Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x13bf…13d2 Line {l1=0x11, l2=»      POS:=POS+1;«, l3=0x11}
0x13d2…13dc Line {l1=0x08, l2=»    END;«, l3=0x08}
0x13dc…13e4 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x13e4…1404 Line {l1=0x1e, l2=»  UNTIL (IER=-6) OR (POS=100);«, l3=0x1e}
0x1404…140c Line {l1=0x06, l2=»  LUK;«, l3=0x06}
0x140c…1412 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1412…1420 00 00 11 10 20 20 20 20 56 48 5c 4a 44 45                                                         ┆        VHØJDE┆
0x1420…1440 3a 41 52 31 33 3b 10 0c 20 20 20 20 4b 42 45 53 4c 41 47 2c 0c 13 20 20 20 20 4b 46 4f 52 53 54   ┆:AR13;      KBESLAG,      KFORST┆
0x1440…1460 5b 52 4b 3a 41 52 31 34 3b 13 0c 20 20 20 20 4b 56 52 45 47 45 4c 2c 0c 11 20 20 20 20 4b 4c 52   ┆ÆRK:AR14;      KVREGEL,      KLR┆
0x1460…1480 e9 a6 0d 4e 4f 54 45 52 20 46 45 4a 4c 45 4e 21 00 d2 13 9e 00 e9 d2 16 9e 00 d5 83 ce e9 a6 2a   ┆   NOTER FEJLEN!               *┆
0x1480…14a0 46 45 4a 4c 45 4e 20 46 55 4e 44 45 54 20 55 4e 44 45 52 20 42 45 48 41 4e 44 4c 49 4e 47 20 41   ┆FEJLEN FUNDET UNDER BEHANDLING A┆
0x14a0…14c0 46 20 4f 52 44 52 45 4e 52 3a 00 d2 13 9e 00 e9 a7 9d 0f 00 d2 0d 9e 00 e9 d2 16 9e 00 d5 83 cf   ┆F ORDRENR:                      ┆
0x14c0…14e0 e9 a6 2a 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   ┆  *                             ┆
0x14e0…1500 20 20 20 20 50 4f 53 49 54 49 4f 4e 3a 00 d2 13 9e 00 e9 a7 9d 10 00 d2 0d 9e 00 e9 d2 16 9e 00   ┆    POSITION:                   ┆
0x1500…1520 d5 83 d0 e9 a6 2a 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   ┆     *                          ┆
0x1520…1540 20 20 20 20 20 20 56 49 4e 44 55 45 53 4e 52 3a 00 d2 13 9e 00 e9 a7 9d 12 00 d2 0d 9e 00 e9 d2   ┆      VINDUESNR:                ┆
0x1540…1560 16 9e 00 d5 83 d1 e9 a6 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆        *                       ┆
0x1560…1580 20 20 20 20 20 20 20 20 20 20 20 52 41 4d 4d 45 4e 52 3a 00 d2 13 9e 00 e9 a7 9d 29 00 d2 0d 9e   ┆           RAMMENR:        )    ┆
0x1580…15a0 00 e9 d2 16 9e 00 d5 83 d2 cf 11 d5 83 d3 e8 d2 15 9e 00 d5 83 d4 e8 a5 9d 4d d2 10 9e 00 d5 83   ┆                         M      ┆
0x15a0…15c0 d5 a6 0a 49 4e 54 52 45 20 20 20 2a 31 a6 05 48 4f 56 45 44 d2 1e d5 83 d6 00 01 9e 04 d5 83 d7   ┆   INTRE   *1  HOVED            ┆
0x15c0…15e0 ad 00 00 00 02 00 06 00 9a 01 14 01 d5 83 dc d8 03 01 95 a4 01 f8 00 c5 d8 02 01 95 a4 01 f8 00   ┆                                ┆
0x15e0…1600 c3 d8 01 01 95 a4 01 f8 00 c3 8d 84 a1 06 d5 83 dc 01 cf 14 d5 83 dd d8 02 01 95 a4 01 f8 00 c5   ┆                                ┆
0x1600…1620 d8 01 01 95 a4 01 f8 00 c3 84 a1 06 d5 83 dd 01 cf 14 ad 00 00 00 02 00 06 00 4e 00 15 01 d5 83   ┆                          N     ┆
0x1620…1640 e4 d5 83 e5 d5 83 e6 a7 9d 0f ab 9c e9 d5 83 e7 00 ab 9c ea d5 83 e8 a7 9d 10 ab 9c eb d5 83 e9   ┆                                ┆
0x1640…1660 00 ab 9c ec d5 83 ea 00 ab 9c ed d5 83 eb a7 9d 11 ab 9c ee d5 83 ec a5 9c ef a5 9d 49 a8 02 d5   ┆                            I   ┆
0x1660…1680 83 ed 00 ab 9c f1 d5 83 ee a5 9c f2 a5 9d 49 a8 02 d5 83 ef 00 ab 9c f4 d5 83 f0 00 ab 9c f5 d5   ┆              I                 ┆
0x1680…16a0 83 f1 00 ab 9c f6 d5 83 f2 00 ab 9c f7 d5 83 f3 a5 9c f8 a5 9d 49 a8 02 d5 83 f4 a5 9c fa a5 9d   ┆                     I          ┆
0x16a0…16c0 49 a8 02 d5 83 f5 a7 9d 28 ab 9c fc d5 83 f6 d5 83 f7 ad 00 00 00 00 00 06 00 9c 00 16 01 d5 84   ┆I       (                       ┆
0x16c0…16e0 07 d5 84 08 d5 84 09 a7 9d 13 cc 07 d5 84 0a a5 9a 44 a5 90 04 c6 02 cf 0f d5 84 0b a7 9d 44 00   ┆                 D            D ┆
0x16e0…1700 cb a1 0b d5 84 0b a5 9d 44 a5 9a 87 cf 13 d5 84 0c df ab 9d 36 d5 84 0c de ab 9d 39 d5 84 0d a7   ┆        D           6      9    ┆
0x1700…1720 9d 13 a7 9d 14 cb a1 2d d5 84 0e d5 84 0f a7 9d 14 cc 07 d5 84 10 a5 9a 44 a5 90 04 c6 02 cf 0f   ┆       -                D       ┆
0x1720…1740 d5 84 11 a7 9d 44 00 cb a1 0b d5 84 11 a5 9d 44 a5 9a 87 cf 13 d5 84 13 df ab 9d 37 d5 84 13 de   ┆     D         D           7    ┆
0x1740…1760 ab 9d 3a d5 84 15 ad 00 2e 00 00 00 06 00 90 00 17 01 d5 84 1b 03 ab 9d 3c d5 84 1c a7 9d 27 00   ┆  :     .               <     ' ┆
0x1760…1780 c3 a1 1b d5 84 1d d5 84 1e 02 ab 9d 3c d5 84 1f a7 9d 38 00 c3 a1 07 d5 84 1f 01 ab 9d 3c d5 84   ┆            <     8          <  ┆
0x1780…17a0 21 ad 00 84 00 00 00 00 07 00 38 00 18 01 d5 84 35 d5 84 36 d5 84 37 a7 9d 3f cc 07 d5 84 38 a5   ┆!         8     5  6  7  ?    8 ┆
0x17a0…17c0 98 aa a5 8a 04 c6 02 cf 0f d5 84 39 a7 9d 44 00 cb a1 0b d5 84 39 a5 9d 44 a5 98 ed cf 13 d5 84   ┆           9  D      9  D       ┆
0x17c0…17e0 3a 01 ab 9d 2a d5 84 3b c6 08 a7 9d 2a 01 95 a4 01 f8 a7 9d 2f c9 a7 9d 2a 05 c9 84 a1 0d d5 84   ┆:   *  ;    *       /   *       ┆
0x17e0…1800 3b a7 9d 2a 01 82 ab 9d 2a b9 f6 d5 84 3c a7 9d 2f ca 12 95 ca 14 86 ca 14 8f ab 9d 30 d5 84 3d   ┆;  *    *    <  /           0  =┆
0x1800…1820 a7 9d 2a 01 c3 a1 08 d5 84 3d ca 13 ab 9d 30 d5 84 3e c6 0d a7 9d 2a 01 95 a4 01 f8 ab 9d 2d d5   ┆  *      =    0  >    *       - ┆
0x1820…1840 84 40 ad 00 5c 00 28 00 00 00 08 00 9e 00 19 01 d5 84 52 d5 84 53 d5 84 54 d8 f8 cc 08 d5 84 55   ┆ @  Ø (           R  S  T      U┆
0x1840…1860 a5 99 47 a5 8c 04 c6 03 cf 0f d5 84 56 a7 9d 44 00 cb a1 0b d5 84 56 a5 9d 44 a5 99 8a cf 13 d5   ┆  G         V  D      V  D      ┆

Reduced view