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

⟦7dfb00a36⟧ TextFile

    Length: 11232 (0x2be0)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTPROC.K«

Derivation

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

Mikados K File

PROCEDURE OWRITE(VAR OWZH:ISFHEAD;VAR OWF:ISF;NR1,NR2:INTEGER);
 
BEGIN
  REWRITE(OWF,FILEN(NR1));
  OWZH.FILENAME:=FILER(NR1);
  IOPEN(OWZH,OWF,NR2);
  IF IER<>0 THEN OFEJL(OWZH.FILENAME);
END;
PROCEDURE ÅBEN;
BEGIN
  CLEARSCREEN;
  FNAVN:=':P2:0000:I';
  FILEN(1):=CONCAT('KOMBINAT',FNAVN);
  FILEN(2):=CONCAT('VINDUE',FNAVN);
  FILEN(3):=CONCAT('KARME',FNAVN);
  FILEN(4):=CONCAT('FARVE',FNAVN);
  FILEN(5):=CONCAT('OLINIE',FNAVN);
  FILEN(6):=CONCAT('OPSPLIT',FNAVN);
  FILEN(7):=CONCAT('GLAS',FNAVN);
  FILEN(8):=CONCAT('PROFIL',FNAVN);
  FILEN(9):=CONCAT('TILBEHØR',FNAVN);
  FILEN(10):=CONCAT('RAMME',FNAVN);
  FILEN(11):=CONCAT('POSTER',FNAVN);
  FILEN(12):=CONCAT('FORSTÆRK',FNAVN);
  FILEN(13):=CONCAT('BREGEL',FNAVN);
   
  FILER(1):='KOMBINAT';
  FILER(2):='VINDUE  ';
  FILER(3):='KARME   ';
  FILER(4):='FARVE   ';
  FILER(5):='OLINIE  ';
  FILER(6):='OPSPLIT ';
  FILER(7):='GLAS    ';
  FILER(8):='PROFIL  ';
  FILER(9):='TILBEHØR';
  FILER(10):='RAMME   ';
  FILER(11):='POSTER  ';
  FILER(12):='FORSTÆRK';
  FILER(13):='BREGEL  ';
 
  OWRITE(OLIZ.H,OLIF,5,LÆS);
  OWRITE(OPSZ.H,OPSF,6,SKRIV);
  OWRITE(PROZ.H,PROF,8,LÆS);
  OWRITE(TILZ.H,TILF,9,LÆS);
  OWRITE(RAMZ.H,RAMF,10,LÆS);
  OWRITE(POSZ.H,POSF,11,LÆS);
  OWRITE(FORZ.H,FORF,12,LÆS);
  OWRITE(BREZ.H,BREF,13,LÆS);
END;
 
PROCEDURE CHECKBH (VAR  BH:AR13);
BEGIN
  IF(BH(3)>0)AND((BH(2)=0)OR(BH(1)=0)) THEN FEJL (1);
  IF((BH(2)>0)AND(BH(1)=0)) THEN FEJL (1)
END;
 
 
PROCEDURE INITPOST;
 
BEGIN
WITH OPSPLIT DO
BEGIN
  ORDRENR:=OLINIE.ORDRENR;
  TYP:=0;
  POSITION:=OLINIE.POSITION;
  RAMMENR:=0;
  PLACER:=0;
  ANTAL:=OLINIE.ANTAL;
  TYPENR:=NULLER;
  FARVE:=0;
  FTYPE:=NULLER;
  FLÆNGDE:=0;
  SLÆNGDE:=0;
  BESLAGNR:=0;
  HÆNGSEL:=0;
  GUMMI1:=NULLER;
  GUMMI2:=NULLER;
  STATUS:=OLINIE.STATUS;
END;
END;
 
 
PROCEDURE BESTEMFARVE(VAR FAK,FAN:DOBBTAL;VAR FIL:FILNAVN);
 
TYPE FARVEZONE=RECORD
               H:ISFHEAD;
               T:ARRAY(1..MFARVEZ) OF INTEGER;
     END;
 
     FARVEPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               NR,
               KODE:INTEGER;
               TEKST:TEK;
     END;
VAR  FARF:ISF;
     FARZ:FARVEZONE;
     FARVE:FARVEPOST;
 
BEGIN
  WITH FARVE DO
  BEGIN
    OWRITE(FARZ.H,FARF,4,LÆS);
    NR:=OLINIE.FARVE(1);
    GETREC(FARZ.H,FARF,A);
    IF IER <> 0 THEN IOF(FARZ.H.FILENAME);
    FAK(1):=KODE;FAN(1):=NR;
    IF OLINIE.FARVE(1)<>OLINIE.FARVE(2) THEN
    BEGIN
      NR:=OLINIE.FARVE(2);
      GETREC(FARZ.H,FARF,A);
      IF IER<>0 THEN IOF(FARZ.H.FILENAME)
    END;
    FAK(2):=KODE;FAN(2):=NR;
    ICLOSE(FARZ.H,FARF);
  END;
END;
 
 
PROCEDURE BESTEMFORSTÆRKNING;
 
BEGIN
  REGELNR:=3;
  IF OLINIE.MONTER=0 THEN
  BEGIN
    REGELNR:=2;
    IF FAKODE=0 THEN REGELNR:=1
  END;
END;
 
 
PROCEDURE STÆRKNING;
 
TYPE STÆRKPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               NR:INTEGER;
               GRÆNSE,
               TYP:AR15;
               FRADRAG,
               KONSTANT,
               AFRUND:INTEGER;
               TEKST:TEK;
      END;
 
VAR STÆRK:STÆRKPOST;
        I:INTEGER;
 
BEGIN
WITH STÆRK DO
BEGIN
  NR:=STÆRKR;
  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;
  TYPER:=TYP(I)
END;
END;
 
 
PROCEDURE BESLAGNING (VAR NR1:INTEGER);
 
TYPE BREGELPOST=RECORD
                AA:ARAR;
                A:AR;
                AAA:RAR;
                NR:INTEGER;
                GRÆNSE,
                PAKKE:AR19;
                TEKST:TEK;
     END;
 
VAR  BREGEL:BREGELPOST;
          I:INTEGER;
 
BEGIN
WITH BREGEL DO
BEGIN
  NR:=NR1;
  GETREC(BREZ.H,BREF,A);
  IF IER <> 0 THEN IOF(BREZ.H. FILENAME);
  I:=1;
  WHILE (GRÆNSE(I) <MÅL) AND (I<9) DO I:=I+1;
  TYPE2:=PAKKE(I)
END;
END;
 
 
PROCEDURE BESTEMGLAS(VAR GKODE,GNR:AR13);
 
TYPE GLASZONE=RECORD
              H:ISFHEAD;
              T:ARRAY(1..MGLASZ) OF INTEGER;
     END;
 
     GLASPOST=RECORD
              AA:ARAR;
              A:AR;
              AAA:RAR;
              NR,
              KODE:INTEGER;
              TEKST:TEK;
     END;
 
VAR  GLAF:ISF;
     GLAZ:GLASZONE;
     GLAS:GLASPOST;
     I:INTEGER;
 
BEGIN
  OWRITE(GLAZ.H,GLAF,7,LÆS);
  FOR I:=1 TO 3 DO
  BEGIN
    GKODE(I):=0;GNR(I):=0;
    IF OLINIE.GLASART(I)<>0 THEN
    BEGIN
      GLAS.NR:=OLINIE.GLASART(I);
      GETREC(GLAZ.H,GLAF,GLAS.A);
      IF IER<>0 THEN IOF(GLAZ.H.FILENAME);
      GKODE(I):=GLAS.KODE;GNR(I):=GLAS.NR;
    END;
  END;
END;
 
 
PROCEDURE GENER1(TYP1:INTEGER;VAR TYP2:INTEGER;FL,SL,HÆ:INTEGER;VAR GU1:
                 DOBBTAL;VAR GU2:DOBBTAL);
 
BEGIN
  INITPOST;
  WITH OPSPLIT DO
  BEGIN
   TYP:=1;
    RAMMENR:=I1;
    TYPENR(1):=TYP1;
    TYPENR(2):=TYP2;
    PLACER:=PLACERING;
    FARVE:=FANR;
    FTYPE:=TYPE1;
    FLÆNGDE:=FL;
    SLÆNGDE:=SL;
    BESLAGNR:=TYPE2;
    HÆNGSEL:=HÆ;
    GUMMI1:=GU1;
    GUMMI2:=GU2;
  END;
  INSERT(OPSZ.H,OPSF,OPSPLIT.A);
  IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);
END;
 
 
PROCEDURE GENER2 (TYP3:INTEGER;VAR TYP1:DOBBTAL;FL,SL:INTEGER);
 
BEGIN
  INITPOST;
  WITH OPSPLIT DO
  BEGIN
    TYP:=TYP3;
    RAMMENR:=I1;
    PLACER:=PLACERING;
    FLÆNGDE:=FL;
    SLÆNGDE:=SL;
    TYPENR:=TYP1;
  END;
  INSERT (OPSZ.H,OPSF,OPSPLIT.A);
  IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);
END;
 
PROCEDURE HENTKOMBI(VAR KKA:INTEGER;VAR KRA:INTEGER;VAR KPO:INTEGER;
                    VAR FIL:FILNAVN);
 
TYPE KOMBIZONE=RECORD
               H:ISFHEAD;
               T:ARRAY(1..MKOMBIZ) OF INTEGER;
     END;
 
     KOMBIPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               NR,
               KARMPROFIL,
               POST1,
               POST2,
               RAMMEPROFIL,
               F3PROFIL:INTEGER;
     END;
 
VAR  KOMF:ISF;
     KOMZ:KOMBIZONE;
     KOMBI:KOMBIPOST;
 
BEGIN
  WITH KOMBI DO
  BEGIN
    NR:=OLINIE.VINDUENR DIV 1000;
    OWRITE(KOMZ.H,KOMF,1,LÆS);
    GETREC(KOMZ.H,KOMF,A);
    IF IER<>0 THEN IOF(KOMZ.H.FILENAME);
    KKA:=KARMPROFIL;KRA:=RAMMEPROFIL;KPO:=POST1;
    ICLOSE(KOMZ.H,KOMF);
  END;
END;
 
 
PROCEDURE HENTVINDUE(VAR VKA:INTEGER;VAR RAM:AR116;VAR VBE:AR14;VAR VBR:AR13;
                     VAR VHØ:AR13;VAR FIL:FILNAVN);
 
TYPE VINDUEZONE=RECORD
                H:ISFHEAD;
                T:ARRAY(1..MVINDUEZ) OF INTEGER;
     END;
 
     VINDUEPOST=RECORD
                AA:ARAR;
                A:AR;
                AAA:RAR;
                NR,
                KARMNR,
                MAXMÅL:INTEGER;
                RAMME:AR116;
                BESLAG:AR14;
                BREDDE,
                HØJDE:AR13;
                TEKST:TEK;
     END;
 
VAR  VINF:ISF;
     VINZ:VINDUEZONE;
     VINDUE:VINDUEPOST;
 
BEGIN
  WITH VINDUE DO
  BEGIN
    NR:=OLINIE.VINDUENR MOD 1000;
    OWRITE(VINZ.H,VINF,2,LÆS);
    GETREC(VINZ.H,VINF,A);
    IF IER<>0 THEN IOF(VINZ.H.FILENAME);
    VKA:=KARMNR;RAM:=RAMME;VBE:=BESLAG;VBR:=BREDDE;VHØ:=HØJDE;
    ICLOSE(VINZ.H,VINF);
  END;
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;
      IF TYPER>0 THEN
      BEGIN
        TYPE1:=PROFILSTÆRK(TYPER);
        GENER2(4,TYPE1,0,LÆNGDE);
      END;
    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;
PROCEDURE HENTKARM(NR1:INTEGER;VAR KBE,KFO:AR14;VAR KVR,KLR:AR13;VAR FIL:
                                                                 FILNAVN);
 
TYPE KARMZONE=RECORD
              H:ISFHEAD;
              T:ARRAY(1..MKARMEZ) OF INTEGER;
     END;
 
     KARMPOST=RECORD
              AA:ARAR;
              A:AR;
              AAA:RAR;
              NR:INTEGER;
              FORSTÆRK,
              BESLAG:AR14;
              TÆTGUM:INTEGER;
              VREGEL,
              LREGEL:AR13;
              TEKST:TEK;
     END;
 
VAR  KARF:ISF;
     KARZ:KARMZONE;
     KARM:KARMPOST;
 
BEGIN
  WITH KARM DO
  BEGIN
    OWRITE(KARZ.H,KARF,3,LÆS);
    NR:=NR1;
    GETREC(KARZ.H,KARF,A);
    IF IER<>0 THEN IOF(FIL);
    KBE:=BESLAG;KFO:=FORSTÆRK;KVR:=VREGEL;KLR:=LREGEL;
    ICLOSE(KARZ.H,KARF);
  END;
END;
 
PROCEDURE UDSKRIV(NR1,NR2:INTEGER);
BEGIN
  CASE NR1 OF
 
  1: WRITELN('BESLAG',NR2:6,RAMME.BESLAG(1):6,RAMME.BESLAG(2):6,
                            RAMME.BESLAG(3):6,RAMME.BESLAG(4):6);
 
  2: WRITELN('GLAS  ',NR2:6,OLINIE.GLASART(1):6,OLINIE.GLASART(2):6,
                            OLINIE.GLASART(3):6);
 
  3: WRITELN('RAMMER',NR2:6,OLINIE.RAMMENR(1):6,OLINIE.RAMMENR(2):6,
                            OLINIE.RAMMENR(3):6);
 
  4: WRITELN('FORSTÆRK',NR2:6,RAMME.FORSTÆRK(1):6,RAMME.FORSTÆRK(2):6,
                              RAMME.FORSTÆRK(3):6,RAMME.FORSTÆRK(4):6);
 
  5: WRITELN('FORSTÆR',NR2:6,RPROFIL.FORSTÆR(1,1):6,RPROFIL.FORSTÆR(1,2):6,
                             RPROFIL.FORSTÆR(2,1):6,RPROFIL.FORSTÆR(2,2):6,
                             RPROFIL.FORSTÆR(3,1):6,RPROFIL.FORSTÆR(3,2):6,
                             RPROFIL.FORSTÆR(4,1):6,RPROFIL.FORSTÆR(4,2):6,
                             RPROFIL.FORSTÆR(5,1):6,RPROFIL.FORSTÆR(5,2):6);
 
  6: WRITELN('TÆTGUM',NR2:6,RPROFIL.TÆTGUM(1):6,RPROFIL.TÆTGUM(2):6);
 
  7: WRITELN('RAMMEPROFIL',NR2:6);
 
  8: WRITELN('GLASGUM',NR2:6,TILBEHØR.GLASGUM(1):6,TILBEHØR.GLASGUM(2):6);
 
  END;
END;

Mikados K File

0x0000…0041 Line {l1=0x3f, l2=»PROCEDURE OWRITE(VAR OWZH:ISFHEAD;VAR OWF:ISF;NR1,NR2:INTEGER);«, l3=0x3f}
0x0041…0044 Line {l1=0x01, l2=» «, l3=0x01}
0x0044…004b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x004b…0067 Line {l1=0x1a, l2=»  REWRITE(OWF,FILEN(NR1));«, l3=0x1a}
0x0067…0085 Line {l1=0x1c, l2=»  OWZH.FILENAME:=FILER(NR1);«, l3=0x1c}
0x0085…009d Line {l1=0x16, l2=»  IOPEN(OWZH,OWF,NR2);«, l3=0x16}
0x009d…00c5 Line {l1=0x26, l2=»  IF IER<>0 THEN OFEJL(OWZH.FILENAME);«, l3=0x26}
0x00c5…00cb Line {l1=0x04, l2=»END;«, l3=0x04}
0x00cb…00dc Line {l1=0x0f, l2=»PROCEDURE ÅBEN;«, l3=0x0f}
0x00dc…00e3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00e3…00f3 Line {l1=0x0e, l2=»  CLEARSCREEN;«, l3=0x0e}
0x00f3…010b Line {l1=0x16, l2=»  FNAVN:=':P2:0000:I';«, l3=0x16}
0x010b…0132 Line {l1=0x25, l2=»  FILEN(1):=CONCAT('KOMBINAT',FNAVN);«, l3=0x25}
0x0132…0157 Line {l1=0x23, l2=»  FILEN(2):=CONCAT('VINDUE',FNAVN);«, l3=0x23}
0x0157…017b Line {l1=0x22, l2=»  FILEN(3):=CONCAT('KARME',FNAVN);«, l3=0x22}
0x017b…019f Line {l1=0x22, l2=»  FILEN(4):=CONCAT('FARVE',FNAVN);«, l3=0x22}
0x019f…01c4 Line {l1=0x23, l2=»  FILEN(5):=CONCAT('OLINIE',FNAVN);«, l3=0x23}
0x01c4…01ea Line {l1=0x24, l2=»  FILEN(6):=CONCAT('OPSPLIT',FNAVN);«, l3=0x24}
0x01ea…020d Line {l1=0x21, l2=»  FILEN(7):=CONCAT('GLAS',FNAVN);«, l3=0x21}
0x020d…0232 Line {l1=0x23, l2=»  FILEN(8):=CONCAT('PROFIL',FNAVN);«, l3=0x23}
0x0232…0259 Line {l1=0x25, l2=»  FILEN(9):=CONCAT('TILBEHØR',FNAVN);«, l3=0x25}
0x0259…027e Line {l1=0x23, l2=»  FILEN(10):=CONCAT('RAMME',FNAVN);«, l3=0x23}
0x027e…02a4 Line {l1=0x24, l2=»  FILEN(11):=CONCAT('POSTER',FNAVN);«, l3=0x24}
0x02a4…02cc Line {l1=0x26, l2=»  FILEN(12):=CONCAT('FORSTÆRK',FNAVN);«, l3=0x26}
0x02cc…02f2 Line {l1=0x24, l2=»  FILEN(13):=CONCAT('BREGEL',FNAVN);«, l3=0x24}
0x02f2…02f7 Line {l1=0x03, l2=»   «, l3=0x03}
0x02f7…0310 Line {l1=0x17, l2=»  FILER(1):='KOMBINAT';«, l3=0x17}
0x0310…0329 Line {l1=0x17, l2=»  FILER(2):='VINDUE  ';«, l3=0x17}
0x0329…0342 Line {l1=0x17, l2=»  FILER(3):='KARME   ';«, l3=0x17}
0x0342…035b Line {l1=0x17, l2=»  FILER(4):='FARVE   ';«, l3=0x17}
0x035b…0374 Line {l1=0x17, l2=»  FILER(5):='OLINIE  ';«, l3=0x17}
0x0374…038d Line {l1=0x17, l2=»  FILER(6):='OPSPLIT ';«, l3=0x17}
0x038d…03a6 Line {l1=0x17, l2=»  FILER(7):='GLAS    ';«, l3=0x17}
0x03a6…03bf Line {l1=0x17, l2=»  FILER(8):='PROFIL  ';«, l3=0x17}
0x03bf…03d8 Line {l1=0x17, l2=»  FILER(9):='TILBEHØR';«, l3=0x17}
0x03d8…03f2 Line {l1=0x18, l2=»  FILER(10):='RAMME   ';«, l3=0x18}
0x03f2…040c Line {l1=0x18, l2=»  FILER(11):='POSTER  ';«, l3=0x18}
0x040c…0426 Line {l1=0x18, l2=»  FILER(12):='FORSTÆRK';«, l3=0x18}
0x0426…0440 Line {l1=0x18, l2=»  FILER(13):='BREGEL  ';«, l3=0x18}
0x0440…0443 Line {l1=0x01, l2=» «, l3=0x01}
0x0443…0461 Line {l1=0x1c, l2=»  OWRITE(OLIZ.H,OLIF,5,LÆS);«, l3=0x1c}
0x0461…0481 Line {l1=0x1e, l2=»  OWRITE(OPSZ.H,OPSF,6,SKRIV);«, l3=0x1e}
0x0481…049f Line {l1=0x1c, l2=»  OWRITE(PROZ.H,PROF,8,LÆS);«, l3=0x1c}
0x049f…04bd Line {l1=0x1c, l2=»  OWRITE(TILZ.H,TILF,9,LÆS);«, l3=0x1c}
0x04bd…04dc Line {l1=0x1d, l2=»  OWRITE(RAMZ.H,RAMF,10,LÆS);«, l3=0x1d}
0x04dc…04fb Line {l1=0x1d, l2=»  OWRITE(POSZ.H,POSF,11,LÆS);«, l3=0x1d}
0x04fb…051a Line {l1=0x1d, l2=»  OWRITE(FORZ.H,FORF,12,LÆS);«, l3=0x1d}
0x051a…0539 Line {l1=0x1d, l2=»  OWRITE(BREZ.H,BREF,13,LÆS);«, l3=0x1d}
0x0539…053f Line {l1=0x04, l2=»END;«, l3=0x04}
0x053f…0542 Line {l1=0x01, l2=» «, l3=0x01}
0x0542…0565 Line {l1=0x21, l2=»PROCEDURE CHECKBH (VAR  BH:AR13);«, l3=0x21}
0x0565…056c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x056c…05a3 Line {l1=0x35, l2=»  IF(BH(3)>0)AND((BH(2)=0)OR(BH(1)=0)) THEN FEJL (1);«, l3=0x35}
0x05a3…05ce Line {l1=0x29, l2=»  IF((BH(2)>0)AND(BH(1)=0)) THEN FEJL (1)«, l3=0x29}
0x05ce…05d4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05d4…05d7 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x05da…05ef Line {l1=0x13, l2=»PROCEDURE INITPOST;«, l3=0x13}
0x05ef…05f2 Line {l1=0x01, l2=» «, l3=0x01}
0x05f2…05f9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05f9…060a Line {l1=0x0f, l2=»WITH OPSPLIT DO«, l3=0x0f}
0x060a…0611 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0611…062d Line {l1=0x1a, l2=»  ORDRENR:=OLINIE.ORDRENR;«, l3=0x1a}
0x062d…0638 Line {l1=0x09, l2=»  TYP:=0;«, l3=0x09}
0x0638…0656 Line {l1=0x1c, l2=»  POSITION:=OLINIE.POSITION;«, l3=0x1c}
0x0656…0665 Line {l1=0x0d, l2=»  RAMMENR:=0;«, l3=0x0d}
0x0665…0673 Line {l1=0x0c, l2=»  PLACER:=0;«, l3=0x0c}
0x0673…068b Line {l1=0x16, l2=»  ANTAL:=OLINIE.ANTAL;«, l3=0x16}
0x068b…069e Line {l1=0x11, l2=»  TYPENR:=NULLER;«, l3=0x11}
0x069e…06ab Line {l1=0x0b, l2=»  FARVE:=0;«, l3=0x0b}
0x06ab…06bd Line {l1=0x10, l2=»  FTYPE:=NULLER;«, l3=0x10}
0x06bd…06cc Line {l1=0x0d, l2=»  FLÆNGDE:=0;«, l3=0x0d}
0x06cc…06db Line {l1=0x0d, l2=»  SLÆNGDE:=0;«, l3=0x0d}
0x06db…06eb Line {l1=0x0e, l2=»  BESLAGNR:=0;«, l3=0x0e}
0x06eb…06fa Line {l1=0x0d, l2=»  HÆNGSEL:=0;«, l3=0x0d}
0x06fa…070d Line {l1=0x11, l2=»  GUMMI1:=NULLER;«, l3=0x11}
0x070d…0720 Line {l1=0x11, l2=»  GUMMI2:=NULLER;«, l3=0x11}
0x0720…073a Line {l1=0x18, l2=»  STATUS:=OLINIE.STATUS;«, l3=0x18}
0x073a…0740 Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x0746…0749 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x074c…0789 Line {l1=0x3b, l2=»PROCEDURE BESTEMFARVE(VAR FAK,FAN:DOBBTAL;VAR FIL:FILNAVN);«, l3=0x3b}
0x0789…078c Line {l1=0x01, l2=» «, l3=0x01}
0x078c…07a3 Line {l1=0x15, l2=»TYPE FARVEZONE=RECORD«, l3=0x15}
0x07a3…07be Line {l1=0x19, l2=»               H:ISFHEAD;«, l3=0x19}
0x07be…07ee Line {l1=0x2e, l2=»               T:ARRAY(1..MFARVEZ) OF INTEGER;«, l3=0x2e}
0x07ee…07f9 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x07f9…07fc Line {l1=0x01, l2=» «, l3=0x01}
0x07fc…0813 Line {l1=0x15, l2=»     FARVEPOST=RECORD«, l3=0x15}
0x0813…082c Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x082c…0842 Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x0842…085b Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x085b…086f Line {l1=0x12, l2=»               NR,«, l3=0x12}
0x086f…088d Line {l1=0x1c, l2=»               KODE:INTEGER;«, l3=0x1c}
0x088d…08a8 Line {l1=0x19, l2=»               TEKST:TEK;«, l3=0x19}
0x08a8…08b3 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x08b3…08c3 Line {l1=0x0e, l2=»VAR  FARF:ISF;«, l3=0x0e}
0x08c3…08d9 Line {l1=0x14, l2=»     FARZ:FARVEZONE;«, l3=0x14}
0x08d9…08f0 Line {l1=0x15, l2=»     FARVE:FARVEPOST;«, l3=0x15}
0x08f0…08f3 Line {l1=0x01, l2=» «, l3=0x01}
0x08f3…08fa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08fa…090b Line {l1=0x0f, l2=»  WITH FARVE DO«, l3=0x0f}
0x090b…0914 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x0914…0934 Line {l1=0x1e, l2=»    OWRITE(FARZ.H,FARF,4,LÆS);«, l3=0x1e}
0x0934…094e Line {l1=0x18, l2=»    NR:=OLINIE.FARVE(1);«, l3=0x18}
0x094e…096a Line {l1=0x1a, l2=»    GETREC(FARZ.H,FARF,A);«, l3=0x1a}
0x096a…0996 Line {l1=0x2a, l2=»    IF IER <> 0 THEN IOF(FARZ.H.FILENAME);«, l3=0x2a}
0x0996…09b4 Line {l1=0x1c, l2=»    FAK(1):=KODE;FAN(1):=NR;«, l3=0x1c}
0x09b4…09e2 Line {l1=0x2c, l2=»    IF OLINIE.FARVE(1)<>OLINIE.FARVE(2) THEN«, l3=0x2c}
0x09e2…09ed Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x09ed…0a09 Line {l1=0x1a, l2=»      NR:=OLINIE.FARVE(2);«, l3=0x1a}
0x0a09…0a27 Line {l1=0x1c, l2=»      GETREC(FARZ.H,FARF,A);«, l3=0x1c}
0x0a27…0a52 Line {l1=0x29, l2=»      IF IER<>0 THEN IOF(FARZ.H.FILENAME)«, l3=0x29}
0x0a52…0a5c Line {l1=0x08, l2=»    END;«, l3=0x08}
0x0a5c…0a7a Line {l1=0x1c, l2=»    FAK(2):=KODE;FAN(2):=NR;«, l3=0x1c}
0x0a7a…0a94 Line {l1=0x18, l2=»    ICLOSE(FARZ.H,FARF);«, l3=0x18}
0x0a94…0a9c Line {l1=0x06, l2=»  END;«, l3=0x06}
0x0a9c…0aa2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0aa2…0aa5 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0aa8…0ac7 Line {l1=0x1d, l2=»PROCEDURE BESTEMFORSTÆRKNING;«, l3=0x1d}
0x0ac7…0aca Line {l1=0x01, l2=» «, l3=0x01}
0x0aca…0ad1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ad1…0ae0 Line {l1=0x0d, l2=»  REGELNR:=3;«, l3=0x0d}
0x0ae0…0afb Line {l1=0x19, l2=»  IF OLINIE.MONTER=0 THEN«, l3=0x19}
0x0afb…0b04 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x0b04…0b15 Line {l1=0x0f, l2=»    REGELNR:=2;«, l3=0x0f}
0x0b15…0b36 Line {l1=0x1f, l2=»    IF FAKODE=0 THEN REGELNR:=1«, l3=0x1f}
0x0b36…0b3e Line {l1=0x06, l2=»  END;«, l3=0x06}
0x0b3e…0b44 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b44…0b47 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0b4a…0b60 Line {l1=0x14, l2=»PROCEDURE STÆRKNING;«, l3=0x14}
0x0b60…0b63 Line {l1=0x01, l2=» «, l3=0x01}
0x0b63…0b7a Line {l1=0x15, l2=»TYPE STÆRKPOST=RECORD«, l3=0x15}
0x0b7a…0b93 Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x0b93…0ba9 Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x0ba9…0bc2 Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x0bc2…0bde Line {l1=0x1a, l2=»               NR:INTEGER;«, l3=0x1a}
0x0bde…0bf6 Line {l1=0x16, l2=»               GRÆNSE,«, l3=0x16}
0x0bf6…0c10 Line {l1=0x18, l2=»               TYP:AR15;«, l3=0x18}
0x0c10…0c29 Line {l1=0x17, l2=»               FRADRAG,«, l3=0x17}
0x0c29…0c43 Line {l1=0x18, l2=»               KONSTANT,«, l3=0x18}
0x0c43…0c63 Line {l1=0x1e, l2=»               AFRUND:INTEGER;«, l3=0x1e}
0x0c63…0c7e Line {l1=0x19, l2=»               TEKST:TEK;«, l3=0x19}
0x0c7e…0c8a Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x0c8a…0c8d Line {l1=0x01, l2=» «, l3=0x01}
0x0c8d…0ca3 Line {l1=0x14, l2=»VAR STÆRK:STÆRKPOST;«, l3=0x14}
0x0ca3…0cb7 Line {l1=0x12, l2=»        I:INTEGER;«, l3=0x12}
0x0cb7…0cba Line {l1=0x01, l2=» «, l3=0x01}
0x0cba…0cc1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0cc1…0cd0 Line {l1=0x0d, l2=»WITH STÆRK DO«, l3=0x0d}
0x0cd0…0cd7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0cd7…0ce6 Line {l1=0x0d, l2=»  NR:=STÆRKR;«, l3=0x0d}
0x0ce6…0d00 Line {l1=0x18, l2=»  GETREC(FORZ.H,FORF,A);«, l3=0x18}
0x0d00…0d28 Line {l1=0x26, l2=»  IF IER<>0 THEN IOF(FORZ.H.FILENAME);«, l3=0x26}
0x0d28…0d31 Line {l1=0x07, l2=»  I:=1;«, l3=0x07}
0x0d31…0d5f Line {l1=0x2c, l2=»  WHILE (GRÆNSE(I)<MÅL) AND (I<5) DO I:=I+1;«, l3=0x2c}
0x0d5f…0d91 Line {l1=0x30, l2=»  LÆNGDE:=((MÅL - FRADRAG) DIV AFRUND) * AFRUND;«, l3=0x30}
0x0d91…0db3 Line {l1=0x20, l2=»  IF I=1 THEN LÆNGDE:= KONSTANT;«, l3=0x20}
0x0db3…0dc4 Line {l1=0x0f, l2=»  TYPER:=TYP(I)«, l3=0x0f}
0x0dc4…0dca Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x0dd0…0dd3 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0dd6…0dff Line {l1=0x27, l2=»PROCEDURE BESLAGNING (VAR NR1:INTEGER);«, l3=0x27}
0x0dff…0e02 Line {l1=0x01, l2=» «, l3=0x01}
0x0e02…0e1a Line {l1=0x16, l2=»TYPE BREGELPOST=RECORD«, l3=0x16}
0x0e1a…0e34 Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x0e34…0e4b Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x0e4b…0e65 Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x0e65…0e82 Line {l1=0x1b, l2=»                NR:INTEGER;«, l3=0x1b}
0x0e82…0e9b Line {l1=0x17, l2=»                GRÆNSE,«, l3=0x17}
0x0e9b…0eb8 Line {l1=0x1b, l2=»                PAKKE:AR19;«, l3=0x1b}
0x0eb8…0ed4 Line {l1=0x1a, l2=»                TEKST:TEK;«, l3=0x1a}
0x0ed4…0edf Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0edf…0ee2 Line {l1=0x01, l2=» «, l3=0x01}
0x0ee2…0efb Line {l1=0x17, l2=»VAR  BREGEL:BREGELPOST;«, l3=0x17}
0x0efb…0f11 Line {l1=0x14, l2=»          I:INTEGER;«, l3=0x14}
0x0f11…0f14 Line {l1=0x01, l2=» «, l3=0x01}
0x0f14…0f1b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f1b…0f2b Line {l1=0x0e, l2=»WITH BREGEL DO«, l3=0x0e}
0x0f2b…0f32 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f32…0f3e Line {l1=0x0a, l2=»  NR:=NR1;«, l3=0x0a}
0x0f3e…0f58 Line {l1=0x18, l2=»  GETREC(BREZ.H,BREF,A);«, l3=0x18}
0x0f58…0f83 Line {l1=0x29, l2=»  IF IER <> 0 THEN IOF(BREZ.H. FILENAME);«, l3=0x29}
0x0f83…0f8c Line {l1=0x07, l2=»  I:=1;«, l3=0x07}
0x0f8c…0fbb Line {l1=0x2d, l2=»  WHILE (GRÆNSE(I) <MÅL) AND (I<9) DO I:=I+1;«, l3=0x2d}
0x0fbb…0fce Line {l1=0x11, l2=»  TYPE2:=PAKKE(I)«, l3=0x11}
0x0fce…0fd4 Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x0fda…0fdd Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0fe0…100b Line {l1=0x29, l2=»PROCEDURE BESTEMGLAS(VAR GKODE,GNR:AR13);«, l3=0x29}
0x100b…100e Line {l1=0x01, l2=» «, l3=0x01}
0x100e…1024 Line {l1=0x14, l2=»TYPE GLASZONE=RECORD«, l3=0x14}
0x1024…103e Line {l1=0x18, l2=»              H:ISFHEAD;«, l3=0x18}
0x103e…106c Line {l1=0x2c, l2=»              T:ARRAY(1..MGLASZ) OF INTEGER;«, l3=0x2c}
0x106c…1077 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x1077…107a Line {l1=0x01, l2=» «, l3=0x01}
0x107a…1090 Line {l1=0x14, l2=»     GLASPOST=RECORD«, l3=0x14}
0x1090…10a8 Line {l1=0x16, l2=»              AA:ARAR;«, l3=0x16}
0x10a8…10bd Line {l1=0x13, l2=»              A:AR;«, l3=0x13}
0x10bd…10d5 Line {l1=0x16, l2=»              AAA:RAR;«, l3=0x16}
0x10d5…10e8 Line {l1=0x11, l2=»              NR,«, l3=0x11}
0x10e8…1105 Line {l1=0x1b, l2=»              KODE:INTEGER;«, l3=0x1b}
0x1105…111f Line {l1=0x18, l2=»              TEKST:TEK;«, l3=0x18}
0x111f…112a Line {l1=0x09, l2=»     END;«, l3=0x09}
0x112a…112d Line {l1=0x01, l2=» «, l3=0x01}
0x112d…113d Line {l1=0x0e, l2=»VAR  GLAF:ISF;«, l3=0x0e}
0x113d…1152 Line {l1=0x13, l2=»     GLAZ:GLASZONE;«, l3=0x13}
0x1152…1167 Line {l1=0x13, l2=»     GLAS:GLASPOST;«, l3=0x13}
0x1167…1178 Line {l1=0x0f, l2=»     I:INTEGER;«, l3=0x0f}
0x1178…117b Line {l1=0x01, l2=» «, l3=0x01}
0x117b…1182 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1182…11a0 Line {l1=0x1c, l2=»  OWRITE(GLAZ.H,GLAF,7,LÆS);«, l3=0x1c}
0x11a0…11b4 Line {l1=0x12, l2=»  FOR I:=1 TO 3 DO«, l3=0x12}
0x11b4…11bd Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x11bd…11d9 Line {l1=0x1a, l2=»    GKODE(I):=0;GNR(I):=0;«, l3=0x1a}
0x11d9…11fb Line {l1=0x20, l2=»    IF OLINIE.GLASART(I)<>0 THEN«, l3=0x20}
0x11fb…1206 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x1206…1229 Line {l1=0x21, l2=»      GLAS.NR:=OLINIE.GLASART(I);«, l3=0x21}
0x1229…124c Line {l1=0x21, l2=»      GETREC(GLAZ.H,GLAF,GLAS.A);«, l3=0x21}
0x124c…1278 Line {l1=0x2a, l2=»      IF IER<>0 THEN IOF(GLAZ.H.FILENAME);«, l3=0x2a}
0x1278…12a4 Line {l1=0x2a, l2=»      GKODE(I):=GLAS.KODE;GNR(I):=GLAS.NR;«, l3=0x2a}
0x12a4…12ae Line {l1=0x08, l2=»    END;«, l3=0x08}
0x12ae…12b6 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x12b6…12bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x12bc…12bf Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x12c2…130c Line {l1=0x48, l2=»PROCEDURE GENER1(TYP1:INTEGER;VAR TYP2:INTEGER;FL,SL,HÆ:INTEGER;VAR GU1:«, l3=0x48}
0x130c…1338 Line {l1=0x2a, l2=»                 DOBBTAL;VAR GU2:DOBBTAL);«, l3=0x2a}
0x1338…133b Line {l1=0x01, l2=» «, l3=0x01}
0x133b…1342 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1342…134f Line {l1=0x0b, l2=»  INITPOST;«, l3=0x0b}
0x134f…1362 Line {l1=0x11, l2=»  WITH OPSPLIT DO«, l3=0x11}
0x1362…136b Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x136b…1377 Line {l1=0x0a, l2=»   TYP:=1;«, l3=0x0a}
0x1377…1389 Line {l1=0x10, l2=»    RAMMENR:=I1;«, l3=0x10}
0x1389…139f Line {l1=0x14, l2=»    TYPENR(1):=TYP1;«, l3=0x14}
0x139f…13b5 Line {l1=0x14, l2=»    TYPENR(2):=TYP2;«, l3=0x14}
0x13b5…13cd Line {l1=0x16, l2=»    PLACER:=PLACERING;«, l3=0x16}
0x13cd…13df Line {l1=0x10, l2=»    FARVE:=FANR;«, l3=0x10}
0x13df…13f2 Line {l1=0x11, l2=»    FTYPE:=TYPE1;«, l3=0x11}
0x13f2…1404 Line {l1=0x10, l2=»    FLÆNGDE:=FL;«, l3=0x10}
0x1404…1416 Line {l1=0x10, l2=»    SLÆNGDE:=SL;«, l3=0x10}
0x1416…142c Line {l1=0x14, l2=»    BESLAGNR:=TYPE2;«, l3=0x14}
0x142c…143e Line {l1=0x10, l2=»    HÆNGSEL:=HÆ;«, l3=0x10}
0x143e…1450 Line {l1=0x10, l2=»    GUMMI1:=GU1;«, l3=0x10}
0x1450…1462 Line {l1=0x10, l2=»    GUMMI2:=GU2;«, l3=0x10}
0x1462…146a Line {l1=0x06, l2=»  END;«, l3=0x06}
0x146a…148c Line {l1=0x20, l2=»  INSERT(OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x20}
0x148c…14b6 Line {l1=0x28, l2=»  IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);«, l3=0x28}
0x14b6…14bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x14bc…14bf Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x14c2…1503 Line {l1=0x3f, l2=»PROCEDURE GENER2 (TYP3:INTEGER;VAR TYP1:DOBBTAL;FL,SL:INTEGER);«, l3=0x3f}
0x1503…1506 Line {l1=0x01, l2=» «, l3=0x01}
0x1506…150d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x150d…151a Line {l1=0x0b, l2=»  INITPOST;«, l3=0x0b}
0x151a…152d Line {l1=0x11, l2=»  WITH OPSPLIT DO«, l3=0x11}
0x152d…1536 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1536…1546 Line {l1=0x0e, l2=»    TYP:=TYP3;«, l3=0x0e}
0x1546…1558 Line {l1=0x10, l2=»    RAMMENR:=I1;«, l3=0x10}
0x1558…1570 Line {l1=0x16, l2=»    PLACER:=PLACERING;«, l3=0x16}
0x1570…1582 Line {l1=0x10, l2=»    FLÆNGDE:=FL;«, l3=0x10}
0x1582…1594 Line {l1=0x10, l2=»    SLÆNGDE:=SL;«, l3=0x10}
0x1594…15a7 Line {l1=0x11, l2=»    TYPENR:=TYP1;«, l3=0x11}
0x15a7…15af Line {l1=0x06, l2=»  END;«, l3=0x06}
0x15af…15d2 Line {l1=0x21, l2=»  INSERT (OPSZ.H,OPSF,OPSPLIT.A);«, l3=0x21}
0x15d2…15fc Line {l1=0x28, l2=»  IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);«, l3=0x28}
0x15fc…1602 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1602…1605 Line {l1=0x01, l2=» «, l3=0x01}
0x1605…164b Line {l1=0x44, l2=»PROCEDURE HENTKOMBI(VAR KKA:INTEGER;VAR KRA:INTEGER;VAR KPO:INTEGER;«, l3=0x44}
0x164b…1672 Line {l1=0x25, l2=»                    VAR FIL:FILNAVN);«, l3=0x25}
0x1672…1675 Line {l1=0x01, l2=» «, l3=0x01}
0x1675…168c Line {l1=0x15, l2=»TYPE KOMBIZONE=RECORD«, l3=0x15}
0x168c…16a7 Line {l1=0x19, l2=»               H:ISFHEAD;«, l3=0x19}
0x16a7…16d7 Line {l1=0x2e, l2=»               T:ARRAY(1..MKOMBIZ) OF INTEGER;«, l3=0x2e}
0x16d7…16e2 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x16e2…16e5 Line {l1=0x01, l2=» «, l3=0x01}
0x16e5…16fc Line {l1=0x15, l2=»     KOMBIPOST=RECORD«, l3=0x15}
0x16fc…1715 Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x1715…172b Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x172b…1744 Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x1744…1758 Line {l1=0x12, l2=»               NR,«, l3=0x12}
0x1758…1774 Line {l1=0x1a, l2=»               KARMPROFIL,«, l3=0x1a}
0x1774…178b Line {l1=0x15, l2=»               POST1,«, l3=0x15}
0x178b…17a2 Line {l1=0x15, l2=»               POST2,«, l3=0x15}
0x17a2…17bf Line {l1=0x1b, l2=»               RAMMEPROFIL,«, l3=0x1b}
0x17bf…17e1 Line {l1=0x20, l2=»               F3PROFIL:INTEGER;«, l3=0x20}
0x17e1…17ec Line {l1=0x09, l2=»     END;«, l3=0x09}
0x17ec…17ef Line {l1=0x01, l2=» «, l3=0x01}
0x17ef…17ff Line {l1=0x0e, l2=»VAR  KOMF:ISF;«, l3=0x0e}
0x17ff…1815 Line {l1=0x14, l2=»     KOMZ:KOMBIZONE;«, l3=0x14}
0x1815…182c Line {l1=0x15, l2=»     KOMBI:KOMBIPOST;«, l3=0x15}
0x182c…182f Line {l1=0x01, l2=» «, l3=0x01}
0x182f…1836 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1836…1847 Line {l1=0x0f, l2=»  WITH KOMBI DO«, l3=0x0f}
0x1847…1850 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1850…1873 Line {l1=0x21, l2=»    NR:=OLINIE.VINDUENR DIV 1000;«, l3=0x21}
0x1873…1893 Line {l1=0x1e, l2=»    OWRITE(KOMZ.H,KOMF,1,LÆS);«, l3=0x1e}
0x1893…18af Line {l1=0x1a, l2=»    GETREC(KOMZ.H,KOMF,A);«, l3=0x1a}
0x18af…18d9 Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(KOMZ.H.FILENAME);«, l3=0x28}
0x18d9…190b Line {l1=0x30, l2=»    KKA:=KARMPROFIL;KRA:=RAMMEPROFIL;KPO:=POST1;«, l3=0x30}
0x190b…1925 Line {l1=0x18, l2=»    ICLOSE(KOMZ.H,KOMF);«, l3=0x18}
0x1925…192d Line {l1=0x06, l2=»  END;«, l3=0x06}
0x192d…1933 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1933…1936 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x1939…1988 Line {l1=0x4d, l2=»PROCEDURE HENTVINDUE(VAR VKA:INTEGER;VAR RAM:AR116;VAR VBE:AR14;VAR VBR:AR13;«, l3=0x4d}
0x1988…19bd Line {l1=0x33, l2=»                     VAR VHØ:AR13;VAR FIL:FILNAVN);«, l3=0x33}
0x19bd…19c0 Line {l1=0x01, l2=» «, l3=0x01}
0x19c0…19d8 Line {l1=0x16, l2=»TYPE VINDUEZONE=RECORD«, l3=0x16}
0x19d8…19f4 Line {l1=0x1a, l2=»                H:ISFHEAD;«, l3=0x1a}
0x19f4…1a26 Line {l1=0x30, l2=»                T:ARRAY(1..MVINDUEZ) OF INTEGER;«, l3=0x30}
0x1a26…1a31 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x1a31…1a34 Line {l1=0x01, l2=» «, l3=0x01}
0x1a34…1a4c Line {l1=0x16, l2=»     VINDUEPOST=RECORD«, l3=0x16}
0x1a4c…1a66 Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x1a66…1a7d Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x1a7d…1a97 Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x1a97…1aac Line {l1=0x13, l2=»                NR,«, l3=0x13}
0x1aac…1ac5 Line {l1=0x17, l2=»                KARMNR,«, l3=0x17}
0x1ac5…1ae6 Line {l1=0x1f, l2=»                MAXMÅL:INTEGER;«, l3=0x1f}
0x1ae6…1b04 Line {l1=0x1c, l2=»                RAMME:AR116;«, l3=0x1c}
0x1b04…1b22 Line {l1=0x1c, l2=»                BESLAG:AR14;«, l3=0x1c}
0x1b22…1b3b Line {l1=0x17, l2=»                BREDDE,«, l3=0x17}
0x1b3b…1b58 Line {l1=0x1b, l2=»                HØJDE:AR13;«, l3=0x1b}
0x1b58…1b74 Line {l1=0x1a, l2=»                TEKST:TEK;«, l3=0x1a}
0x1b74…1b7f Line {l1=0x09, l2=»     END;«, l3=0x09}
0x1b7f…1b82 Line {l1=0x01, l2=» «, l3=0x01}
0x1b82…1b92 Line {l1=0x0e, l2=»VAR  VINF:ISF;«, l3=0x0e}
0x1b92…1ba9 Line {l1=0x15, l2=»     VINZ:VINDUEZONE;«, l3=0x15}
0x1ba9…1bc2 Line {l1=0x17, l2=»     VINDUE:VINDUEPOST;«, l3=0x17}
0x1bc2…1bc5 Line {l1=0x01, l2=» «, l3=0x01}
0x1bc5…1bcc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1bcc…1bde Line {l1=0x10, l2=»  WITH VINDUE DO«, l3=0x10}
0x1bde…1be7 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1be7…1c0a Line {l1=0x21, l2=»    NR:=OLINIE.VINDUENR MOD 1000;«, l3=0x21}
0x1c0a…1c2a Line {l1=0x1e, l2=»    OWRITE(VINZ.H,VINF,2,LÆS);«, l3=0x1e}
0x1c2a…1c46 Line {l1=0x1a, l2=»    GETREC(VINZ.H,VINF,A);«, l3=0x1a}
0x1c46…1c70 Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(VINZ.H.FILENAME);«, l3=0x28}
0x1c70…1cb0 Line {l1=0x3e, l2=»    VKA:=KARMNR;RAM:=RAMME;VBE:=BESLAG;VBR:=BREDDE;VHØ:=HØJDE;«, l3=0x3e}
0x1cb0…1cca Line {l1=0x18, l2=»    ICLOSE(VINZ.H,VINF);«, l3=0x18}
0x1cca…1cd2 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x1cd2…1cd8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1cd8…1cdb Line {l1=0x01, l2=» «, l3=0x01}
0x1cdb…1d28 Line {l1=0x4b, l2=»PROCEDURE PROFILBEHANDLING(HØJDE:INTEGER;VAR FORSTÆRK:AR14;VAR PROFILSTÆRK:«, l3=0x4b}
0x1d28…1d70 Line {l1=0x46, l2=»                                 ADOBTAL;VAR BESLAG1:AR14; VAR PROFIL:«, l3=0x46}
0x1d70…1db2 Line {l1=0x40, l2=»                                 INTEGER;VAR GUM1,GUM2:DOBBTAL);«, l3=0x40}
0x1db2…1dc2 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1dc2…1dc5 Line {l1=0x01, l2=» «, l3=0x01}
0x1dc5…1dcc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1dcc…1e15 Line {l1=0x47, l2=»WRITELN('BESLAG1',BESLAG1(1):6,BESLAG1(2):6,BESLAG1(3):6,BESLAG1(4):6);«, l3=0x47}
0x1e15…1e64 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}
0x1e64…1e80 Line {l1=0x1a, l2=»  FOR PLACERING:=1 TO 4 DO«, l3=0x1a}
0x1e80…1e89 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1e89…1eb0 Line {l1=0x25, l2=»    WRITELN('PLACERING',PLACERING:6);«, l3=0x25}
0x1eb0…1ecc Line {l1=0x1a, l2=»    I:=BESLAG1(PLACERING);«, l3=0x1a}
0x1ecc…1ef3 Line {l1=0x25, l2=»    TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;«, l3=0x25}
0x1ef3…1f0c Line {l1=0x17, l2=»    IF PLACERING=3 THEN«, l3=0x17}
0x1f0c…1f17 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x1f17…1f2a Line {l1=0x11, l2=»      MÅL:=HØJDE;«, l3=0x11}
0x1f2a…1f42 Line {l1=0x16, l2=»      STÆRKR:=STÆRKR2;«, l3=0x16}
0x1f42…1f4c Line {l1=0x08, l2=»    END;«, l3=0x08}
0x1f4c…1f83 Line {l1=0x35, l2=»WRITELN('FORSTÆRK(PLACERING)',FORSTÆRK(PLACERING):6);«, l3=0x35}
0x1f83…1fa6 Line {l1=0x21, l2=»    IF FORSTÆRK(PLACERING)=1 THEN«, l3=0x21}
0x1fa6…1fb1 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x1fb1…1fc3 Line {l1=0x10, l2=»      STÆRKNING;«, l3=0x10}
0x1fc3…1fda Line {l1=0x15, l2=»      IF TYPER>0 THEN«, l3=0x15}
0x1fda…1fe7 Line {l1=0x0b, l2=»      BEGIN«, l3=0x0b}
0x1fe7…200b Line {l1=0x22, l2=»        TYPE1:=PROFILSTÆRK(TYPER);«, l3=0x22}
0x200b…202e Line {l1=0x21, l2=»        GENER2(4,TYPE1,0,LÆNGDE);«, l3=0x21}
0x202e…203a Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x203a…2044 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x2044…207a Line {l1=0x34, l2=»WRITELN('BESLAG1(PLACERING):',BESLAG1(PLACERING):6);«, l3=0x34}
0x207a…208b Line {l1=0x0f, l2=»    IF I>0 THEN«, l3=0x0f}
0x208b…2096 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x2096…20ac Line {l1=0x14, l2=»      BESLAGNING(I);«, l3=0x14}
0x20ac…20d2 Line {l1=0x24, l2=»      TYPE3:=NULLER;TYPE3(2):=TYPE2;«, l3=0x24}
0x20d2…20ed Line {l1=0x19, l2=»      GENER2(5,TYPE3,0,0)«, l3=0x19}
0x20ed…20f7 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x20f7…2125 Line {l1=0x2c, l2=»    GENER1(0,PROFIL,LÆNGDE,MÅL,0,GUM1,GUM2);«, l3=0x2c}
0x2125…212d Line {l1=0x06, l2=»  END;«, l3=0x06}
0x212d…2133 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2133…217e Line {l1=0x49, l2=»PROCEDURE HENTKARM(NR1:INTEGER;VAR KBE,KFO:AR14;VAR KVR,KLR:AR13;VAR FIL:«, l3=0x49}
0x217e…21ca Line {l1=0x4a, l2=»                                                                 FILNAVN);«, l3=0x4a}
0x21ca…21cd Line {l1=0x01, l2=» «, l3=0x01}
0x21cd…21e3 Line {l1=0x14, l2=»TYPE KARMZONE=RECORD«, l3=0x14}
0x21e3…21fd Line {l1=0x18, l2=»              H:ISFHEAD;«, l3=0x18}
0x21fd…222c Line {l1=0x2d, l2=»              T:ARRAY(1..MKARMEZ) OF INTEGER;«, l3=0x2d}
0x222c…2237 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x2237…223a Line {l1=0x01, l2=» «, l3=0x01}
0x223a…2250 Line {l1=0x14, l2=»     KARMPOST=RECORD«, l3=0x14}
0x2250…2268 Line {l1=0x16, l2=»              AA:ARAR;«, l3=0x16}
0x2268…227d Line {l1=0x13, l2=»              A:AR;«, l3=0x13}
0x227d…2295 Line {l1=0x16, l2=»              AAA:RAR;«, l3=0x16}
0x2295…22b0 Line {l1=0x19, l2=»              NR:INTEGER;«, l3=0x19}
0x22b0…22c9 Line {l1=0x17, l2=»              FORSTÆRK,«, l3=0x17}
0x22c9…22e5 Line {l1=0x1a, l2=»              BESLAG:AR14;«, l3=0x1a}
0x22e5…2304 Line {l1=0x1d, l2=»              TÆTGUM:INTEGER;«, l3=0x1d}
0x2304…231b Line {l1=0x15, l2=»              VREGEL,«, l3=0x15}
0x231b…2337 Line {l1=0x1a, l2=»              LREGEL:AR13;«, l3=0x1a}
0x2337…2351 Line {l1=0x18, l2=»              TEKST:TEK;«, l3=0x18}
0x2351…235c Line {l1=0x09, l2=»     END;«, l3=0x09}
0x235c…235f Line {l1=0x01, l2=» «, l3=0x01}
0x235f…236f Line {l1=0x0e, l2=»VAR  KARF:ISF;«, l3=0x0e}
0x236f…2384 Line {l1=0x13, l2=»     KARZ:KARMZONE;«, l3=0x13}
0x2384…2399 Line {l1=0x13, l2=»     KARM:KARMPOST;«, l3=0x13}
0x2399…239c Line {l1=0x01, l2=» «, l3=0x01}
0x239c…23a3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x23a3…23b3 Line {l1=0x0e, l2=»  WITH KARM DO«, l3=0x0e}
0x23b3…23bc Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x23bc…23dc Line {l1=0x1e, l2=»    OWRITE(KARZ.H,KARF,3,LÆS);«, l3=0x1e}
0x23dc…23ea Line {l1=0x0c, l2=»    NR:=NR1;«, l3=0x0c}
0x23ea…2406 Line {l1=0x1a, l2=»    GETREC(KARZ.H,KARF,A);«, l3=0x1a}
0x2406…2424 Line {l1=0x1c, l2=»    IF IER<>0 THEN IOF(FIL);«, l3=0x1c}
0x2424…245c Line {l1=0x36, l2=»    KBE:=BESLAG;KFO:=FORSTÆRK;KVR:=VREGEL;KLR:=LREGEL;«, l3=0x36}
0x245c…2476 Line {l1=0x18, l2=»    ICLOSE(KARZ.H,KARF);«, l3=0x18}
0x2476…247e Line {l1=0x06, l2=»  END;«, l3=0x06}
0x247e…2484 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2484…2487 Line {l1=0x01, l2=» «, l3=0x01}
0x2487…24ac Line {l1=0x23, l2=»PROCEDURE UDSKRIV(NR1,NR2:INTEGER);«, l3=0x23}
0x24ac…24b3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x24b3…24c2 Line {l1=0x0d, l2=»  CASE NR1 OF«, l3=0x0d}
0x24c2…24c5 Line {l1=0x01, l2=» «, l3=0x01}
0x24c5…2507 Line {l1=0x40, l2=»  1: WRITELN('BESLAG',NR2:6,RAMME.BESLAG(1):6,RAMME.BESLAG(2):6,«, l3=0x40}
0x2507…254a Line {l1=0x41, l2=»                            RAMME.BESLAG(3):6,RAMME.BESLAG(4):6);«, l3=0x41}
0x254a…254d Line {l1=0x01, l2=» «, l3=0x01}
0x254d…2593 Line {l1=0x44, l2=»  2: WRITELN('GLAS  ',NR2:6,OLINIE.GLASART(1):6,OLINIE.GLASART(2):6,«, l3=0x44}
0x2593…25c6 Line {l1=0x31, l2=»                            OLINIE.GLASART(3):6);«, l3=0x31}
0x25c6…25c9 Line {l1=0x01, l2=» «, l3=0x01}
0x25c9…260f Line {l1=0x44, l2=»  3: WRITELN('RAMMER',NR2:6,OLINIE.RAMMENR(1):6,OLINIE.RAMMENR(2):6,«, l3=0x44}
0x260f…2642 Line {l1=0x31, l2=»                            OLINIE.RAMMENR(3):6);«, l3=0x31}
0x2642…2645 Line {l1=0x01, l2=» «, l3=0x01}
0x2645…268d Line {l1=0x46, l2=»  4: WRITELN('FORSTÆRK',NR2:6,RAMME.FORSTÆRK(1):6,RAMME.FORSTÆRK(2):6,«, l3=0x46}
0x268d…26d6 Line {l1=0x47, l2=»                              RAMME.FORSTÆRK(3):6,RAMME.FORSTÆRK(4):6);«, l3=0x47}
0x26d6…26d9 Line {l1=0x01, l2=» «, l3=0x01}
0x26d9…2726 Line {l1=0x4b, l2=»  5: WRITELN('FORSTÆR',NR2:6,RPROFIL.FORSTÆR(1,1):6,RPROFIL.FORSTÆR(1,2):6,«, l3=0x4b}
0x2726…2773 Line {l1=0x4b, l2=»                             RPROFIL.FORSTÆR(2,1):6,RPROFIL.FORSTÆR(2,2):6,«, l3=0x4b}
0x2773…27c0 Line {l1=0x4b, l2=»                             RPROFIL.FORSTÆR(3,1):6,RPROFIL.FORSTÆR(3,2):6,«, l3=0x4b}
0x27c0…280d Line {l1=0x4b, l2=»                             RPROFIL.FORSTÆR(4,1):6,RPROFIL.FORSTÆR(4,2):6,«, l3=0x4b}
0x280d…285b Line {l1=0x4c, l2=»                             RPROFIL.FORSTÆR(5,1):6,RPROFIL.FORSTÆR(5,2):6);«, l3=0x4c}
0x285b…285e Line {l1=0x01, l2=» «, l3=0x01}
0x285e…28a5 Line {l1=0x45, l2=»  6: WRITELN('TÆTGUM',NR2:6,RPROFIL.TÆTGUM(1):6,RPROFIL.TÆTGUM(2):6);«, l3=0x45}
0x28a5…28a8 Line {l1=0x01, l2=» «, l3=0x01}
0x28a8…28cc Line {l1=0x22, l2=»  7: WRITELN('RAMMEPROFIL',NR2:6);«, l3=0x22}
0x28cc…28cf Line {l1=0x01, l2=» «, l3=0x01}
0x28cf…291b Line {l1=0x4a, l2=»  8: WRITELN('GLASGUM',NR2:6,TILBEHØR.GLASGUM(1):6,TILBEHØR.GLASGUM(2):6);«, l3=0x4a}
0x291b…291e Line {l1=0x01, l2=» «, l3=0x01}
0x291e…2926 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x2926…292c Line {l1=0x04, l2=»END;«, l3=0x04}
0x292c…2940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                       ┆                    ┆
0x2940…2960 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   ┆                                ┆
            […0x14…]

Reduced view