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

⟦5f9074664⟧ TextFile

    Length: 9984 (0x2700)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTPROC1.K«

Derivation

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTPROC1.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(GLAZ.H,GLAF,7,LÆS);
  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 FAK1,FAK2,FAN1,FAN2:INTEGER;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.FARVE1;
    GETREC(FARZ.H,FARF,A);
    IF IER <> 0 THEN IOF(FARZ.H.FILENAME);
    FAK1:=KODE;FAN1:=NR;
    IF OLINIE.FARVE1<>OLINIE.FARVE2 THEN
    BEGIN
      NR:=OLINIE.FARVE2;
      GETREC(FARZ.H,FARF,A);
      IF IER<>0 THEN IOF(FARZ.H.FILENAME)
    END;
    FAK2:=KODE;FAN2:=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;
      END;
 
VAR STÆRK:STÆRKPOST;
 
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;
 
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;
 
TYPE GLASPOST=RECORD
              AA:ARAR;
              A:AR;
              AAA:RAR;
              NR,
              KODE:INTEGER;
              TEKST:TEK;
     END;
 
VAR  GLAS:GLASPOST;
 
BEGIN
WITH OLINIE DO
BEGIN
  IF I1=RAMMENR1 THEN
    GLASNR:=GLASART1
  ELSE
    IF I1=RAMMENR2 THEN
      GLASNR:=GLASART2
    ELSE
      GLASNR:=GLASART3;
  GLAS.NR:=GLASNR;
  GETREC(GLAZ.H,GLAF,GLAS.A);
  IF IER=0 THEN
    GLASKODE:=GLAS.KODE
  ELSE
    IOF(GLAZ.H.FILENAME)
END;
END;
 
 
PROCEDURE GENER(TYP1,TYP2,TYP3,FL,SL,HÆ:INTEGER;VAR GU1,GU2:DOBBTAL);
 
TYPE OPSPLITZONE=RECORD
                 H:ISFHEAD;
                 T:ARRAY(1..MOPSPLIZ) OF INTEGER;
     END;
    
     OPSPLITPOST=RECORD
                 AA:ARAR;
                 A:AR;
                 AAA:RAR;
                 ORDRENR,
                 TYP,
                 POSITION,
                 RAMMENR,
                 PLACER,
                 ANTAL:INTEGER;
                 TYPENR:DOBBTAL;
                 FARVE:INTEGER;
                 FTYPE:DOBBTAL;
                 FLÆNGDE,
                 SLÆNGDE,
                 BESLAGNR,
                 HÆNGSEL:INTEGER;
                 GUMMI1,
                 GUMMI2:DOBBTAL;
                 STATUS:INTEGER;
     END;
 
VAR  OPSF:ISF;
     OPSZ:OPSPLITZONE;
     OPSPLIT:OPSPLITPOST;
 
BEGIN
  WITH OPSPLIT DO
  BEGIN
    ORDRENR:=OLINIE.ORDRENR;
    TYP:=TYP1;
    RAMMENR:=I1;
    TYPENR(1):=TYP2;
    TYPENR(2):=TYP3;
    POSITION:=OLINIE.POSITION;
    PLACER:=PLACERING;
    ANTAL:=OLINIE.ANTAL;
    FARVE:=0;
    FTYPE:=NULLER;
    FLÆNGDE:=FL;
    SLÆNGDE:=SL;
    BESLAGNR:=0;
    HÆNGSEL:=HÆ;
    GUMMI1:=GU1;
    GUMMI2:=GU2;
    STATUS:=OLINIE.STATUS;
    IF TYP1=1 THEN
    BEGIN
      FARVE:=FANR;
      FTYPE:=TYPE1;
      BESLAGNR:=TYPE2;
    END;
    OWRITE(OPSZ.H,OPSF,6,SKRIV);
    INSERT(OPSZ.H,OPSF,A);
    IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);
    ICLOSE(OPSZ.H,OPSF);
    IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);
  END;
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 BESLAG:AR14; VAR PROFIL:
                                 INTEGER;VAR GUM1:DOBBTAL;VAR GUM2:DOBBTAL);
 
BEGIN
  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 FORSTÆRK(PLACERING)=1 THEN
    BEGIN
      STÆRKNING;
      TYPE1:=PROFILSTÆRK(TYPER);
      GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);
    END;
    IF BESLAG(PLACERING)>0 THEN
    BEGIN
      BESLAGNING(BESLAG(PLACERING));
      GENER(5,0,TYPE2,0,0,0,NULLER,NULLER)
    END;
    GENER(1,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;

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…047f Line {l1=0x1c, l2=»  OWRITE(GLAZ.H,GLAF,7,LÆS);«, l3=0x1c}
0x047f…049d Line {l1=0x1c, l2=»  OWRITE(PROZ.H,PROF,8,LÆS);«, l3=0x1c}
0x049d…04bb Line {l1=0x1c, l2=»  OWRITE(TILZ.H,TILF,9,LÆS);«, l3=0x1c}
0x04bb…04da Line {l1=0x1d, l2=»  OWRITE(RAMZ.H,RAMF,10,LÆS);«, l3=0x1d}
0x04da…04f9 Line {l1=0x1d, l2=»  OWRITE(POSZ.H,POSF,11,LÆS);«, l3=0x1d}
0x04f9…0518 Line {l1=0x1d, l2=»  OWRITE(FORZ.H,FORF,12,LÆS);«, l3=0x1d}
0x0518…0537 Line {l1=0x1d, l2=»  OWRITE(BREZ.H,BREF,13,LÆS);«, l3=0x1d}
0x0537…053d Line {l1=0x04, l2=»END;«, l3=0x04}
0x053d…0540 Line {l1=0x01, l2=» «, l3=0x01}
0x0540…0563 Line {l1=0x21, l2=»PROCEDURE CHECKBH (VAR  BH:AR13);«, l3=0x21}
0x0563…056a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x056a…05a1 Line {l1=0x35, l2=»  IF(BH(3)>0)AND((BH(2)=0)OR(BH(1)=0)) THEN FEJL (1);«, l3=0x35}
0x05a1…05cc Line {l1=0x29, l2=»  IF((BH(2)>0)AND(BH(1)=0)) THEN FEJL (1)«, l3=0x29}
0x05cc…05d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05d2…05d5 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x05d8…05ed Line {l1=0x13, l2=»PROCEDURE INITPOST;«, l3=0x13}
0x05ed…05f0 Line {l1=0x01, l2=» «, l3=0x01}
0x05f0…05f7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05f7…0608 Line {l1=0x0f, l2=»WITH OPSPLIT DO«, l3=0x0f}
0x0608…060f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x060f…062b Line {l1=0x1a, l2=»  ORDRENR:=OLINIE.ORDRENR;«, l3=0x1a}
0x062b…0636 Line {l1=0x09, l2=»  TYP:=0;«, l3=0x09}
0x0636…0654 Line {l1=0x1c, l2=»  POSITION:=OLINIE.POSITION;«, l3=0x1c}
0x0654…0663 Line {l1=0x0d, l2=»  RAMMENR:=0;«, l3=0x0d}
0x0663…0671 Line {l1=0x0c, l2=»  PLACER:=0;«, l3=0x0c}
0x0671…0689 Line {l1=0x16, l2=»  ANTAL:=OLINIE.ANTAL;«, l3=0x16}
0x0689…069c Line {l1=0x11, l2=»  TYPENR:=NULLER;«, l3=0x11}
0x069c…06a9 Line {l1=0x0b, l2=»  FARVE:=0;«, l3=0x0b}
0x06a9…06bb Line {l1=0x10, l2=»  FTYPE:=NULLER;«, l3=0x10}
0x06bb…06ca Line {l1=0x0d, l2=»  FLÆNGDE:=0;«, l3=0x0d}
0x06ca…06d9 Line {l1=0x0d, l2=»  SLÆNGDE:=0;«, l3=0x0d}
0x06d9…06e9 Line {l1=0x0e, l2=»  BESLAGNR:=0;«, l3=0x0e}
0x06e9…06f8 Line {l1=0x0d, l2=»  HÆNGSEL:=0;«, l3=0x0d}
0x06f8…070b Line {l1=0x11, l2=»  GUMMI1:=NULLER;«, l3=0x11}
0x070b…071e Line {l1=0x11, l2=»  GUMMI2:=NULLER;«, l3=0x11}
0x071e…0738 Line {l1=0x18, l2=»  STATUS:=OLINIE.STATUS;«, l3=0x18}
0x0738…073e Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x0744…0747 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x074a…0793 Line {l1=0x47, l2=»PROCEDURE BESTEMFARVE(VAR FAK1,FAK2,FAN1,FAN2:INTEGER;VAR FIL:FILNAVN);«, l3=0x47}
0x0793…0796 Line {l1=0x01, l2=» «, l3=0x01}
0x0796…07ad Line {l1=0x15, l2=»TYPE FARVEZONE=RECORD«, l3=0x15}
0x07ad…07c8 Line {l1=0x19, l2=»               H:ISFHEAD;«, l3=0x19}
0x07c8…07f8 Line {l1=0x2e, l2=»               T:ARRAY(1..MFARVEZ) OF INTEGER;«, l3=0x2e}
0x07f8…0803 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0803…0806 Line {l1=0x01, l2=» «, l3=0x01}
0x0806…081d Line {l1=0x15, l2=»     FARVEPOST=RECORD«, l3=0x15}
0x081d…0836 Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x0836…084c Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x084c…0865 Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x0865…0879 Line {l1=0x12, l2=»               NR,«, l3=0x12}
0x0879…0897 Line {l1=0x1c, l2=»               KODE:INTEGER;«, l3=0x1c}
0x0897…08b2 Line {l1=0x19, l2=»               TEKST:TEK;«, l3=0x19}
0x08b2…08bd Line {l1=0x09, l2=»     END;«, l3=0x09}
0x08bd…08cd Line {l1=0x0e, l2=»VAR  FARF:ISF;«, l3=0x0e}
0x08cd…08e3 Line {l1=0x14, l2=»     FARZ:FARVEZONE;«, l3=0x14}
0x08e3…08fa Line {l1=0x15, l2=»     FARVE:FARVEPOST;«, l3=0x15}
0x08fa…08fd Line {l1=0x01, l2=» «, l3=0x01}
0x08fd…0904 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0904…0915 Line {l1=0x0f, l2=»  WITH FARVE DO«, l3=0x0f}
0x0915…091e Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x091e…093e Line {l1=0x1e, l2=»    OWRITE(FARZ.H,FARF,4,LÆS);«, l3=0x1e}
0x093e…0956 Line {l1=0x16, l2=»    NR:=OLINIE.FARVE1;«, l3=0x16}
0x0956…0972 Line {l1=0x1a, l2=»    GETREC(FARZ.H,FARF,A);«, l3=0x1a}
0x0972…099e Line {l1=0x2a, l2=»    IF IER <> 0 THEN IOF(FARZ.H.FILENAME);«, l3=0x2a}
0x099e…09b8 Line {l1=0x18, l2=»    FAK1:=KODE;FAN1:=NR;«, l3=0x18}
0x09b8…09e2 Line {l1=0x28, l2=»    IF OLINIE.FARVE1<>OLINIE.FARVE2 THEN«, l3=0x28}
0x09e2…09ed Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x09ed…0a07 Line {l1=0x18, l2=»      NR:=OLINIE.FARVE2;«, l3=0x18}
0x0a07…0a25 Line {l1=0x1c, l2=»      GETREC(FARZ.H,FARF,A);«, l3=0x1c}
0x0a25…0a50 Line {l1=0x29, l2=»      IF IER<>0 THEN IOF(FARZ.H.FILENAME)«, l3=0x29}
0x0a50…0a5a Line {l1=0x08, l2=»    END;«, l3=0x08}
0x0a5a…0a74 Line {l1=0x18, l2=»    FAK2:=KODE;FAN2:=NR;«, l3=0x18}
0x0a74…0a8e Line {l1=0x18, l2=»    ICLOSE(FARZ.H,FARF);«, l3=0x18}
0x0a8e…0a96 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x0a96…0a9c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a9c…0a9f Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0aa2…0ac1 Line {l1=0x1d, l2=»PROCEDURE BESTEMFORSTÆRKNING;«, l3=0x1d}
0x0ac1…0ac4 Line {l1=0x01, l2=» «, l3=0x01}
0x0ac4…0acb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0acb…0ada Line {l1=0x0d, l2=»  REGELNR:=3;«, l3=0x0d}
0x0ada…0af5 Line {l1=0x19, l2=»  IF OLINIE.MONTER=0 THEN«, l3=0x19}
0x0af5…0afe Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x0afe…0b0f Line {l1=0x0f, l2=»    REGELNR:=2;«, l3=0x0f}
0x0b0f…0b30 Line {l1=0x1f, l2=»    IF FAKODE=0 THEN REGELNR:=1«, l3=0x1f}
0x0b30…0b38 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x0b38…0b3e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b3e…0b41 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0b44…0b5a Line {l1=0x14, l2=»PROCEDURE STÆRKNING;«, l3=0x14}
0x0b5a…0b5d Line {l1=0x01, l2=» «, l3=0x01}
0x0b5d…0b74 Line {l1=0x15, l2=»TYPE STÆRKPOST=RECORD«, l3=0x15}
0x0b74…0b8d Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x0b8d…0ba3 Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x0ba3…0bbc Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x0bbc…0bd8 Line {l1=0x1a, l2=»               NR:INTEGER;«, l3=0x1a}
0x0bd8…0bf0 Line {l1=0x16, l2=»               GRÆNSE,«, l3=0x16}
0x0bf0…0c0a Line {l1=0x18, l2=»               TYP:AR15;«, l3=0x18}
0x0c0a…0c23 Line {l1=0x17, l2=»               FRADRAG,«, l3=0x17}
0x0c23…0c3d Line {l1=0x18, l2=»               KONSTANT,«, l3=0x18}
0x0c3d…0c5d Line {l1=0x1e, l2=»               AFRUND:INTEGER;«, l3=0x1e}
0x0c5d…0c69 Line {l1=0x0a, l2=»      END;«, l3=0x0a}
0x0c69…0c6c Line {l1=0x01, l2=» «, l3=0x01}
0x0c6c…0c82 Line {l1=0x14, l2=»VAR STÆRK:STÆRKPOST;«, l3=0x14}
0x0c82…0c85 Line {l1=0x01, l2=» «, l3=0x01}
0x0c85…0c8c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c8c…0c9b Line {l1=0x0d, l2=»WITH STÆRK DO«, l3=0x0d}
0x0c9b…0ca2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ca2…0cb1 Line {l1=0x0d, l2=»  NR:=STÆRKR;«, l3=0x0d}
0x0cb1…0ccb Line {l1=0x18, l2=»  GETREC(FORZ.H,FORF,A);«, l3=0x18}
0x0ccb…0cf3 Line {l1=0x26, l2=»  IF IER<>0 THEN IOF(FORZ.H.FILENAME);«, l3=0x26}
0x0cf3…0cfc Line {l1=0x07, l2=»  I:=1;«, l3=0x07}
0x0cfc…0d2a Line {l1=0x2c, l2=»  WHILE (GRÆNSE(I)<MÅL) AND (I<5) DO I:=I+1;«, l3=0x2c}
0x0d2a…0d5c Line {l1=0x30, l2=»  LÆNGDE:=((MÅL - FRADRAG) DIV AFRUND) * AFRUND;«, l3=0x30}
0x0d5c…0d7e Line {l1=0x20, l2=»  IF I=1 THEN LÆNGDE:= KONSTANT;«, l3=0x20}
0x0d7e…0d8f Line {l1=0x0f, l2=»  TYPER:=TYP(I)«, l3=0x0f}
0x0d8f…0d95 Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x0d9b…0d9e Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0da1…0dca Line {l1=0x27, l2=»PROCEDURE BESLAGNING (VAR NR1:INTEGER);«, l3=0x27}
0x0dca…0dcd Line {l1=0x01, l2=» «, l3=0x01}
0x0dcd…0de5 Line {l1=0x16, l2=»TYPE BREGELPOST=RECORD«, l3=0x16}
0x0de5…0dff Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x0dff…0e16 Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x0e16…0e30 Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x0e30…0e4d Line {l1=0x1b, l2=»                NR:INTEGER;«, l3=0x1b}
0x0e4d…0e66 Line {l1=0x17, l2=»                GRÆNSE,«, l3=0x17}
0x0e66…0e83 Line {l1=0x1b, l2=»                PAKKE:AR19;«, l3=0x1b}
0x0e83…0e9f Line {l1=0x1a, l2=»                TEKST:TEK;«, l3=0x1a}
0x0e9f…0eaa Line {l1=0x09, l2=»     END;«, l3=0x09}
0x0eaa…0ead Line {l1=0x01, l2=» «, l3=0x01}
0x0ead…0ec6 Line {l1=0x17, l2=»VAR  BREGEL:BREGELPOST;«, l3=0x17}
0x0ec6…0ec9 Line {l1=0x01, l2=» «, l3=0x01}
0x0ec9…0ed0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ed0…0ee0 Line {l1=0x0e, l2=»WITH BREGEL DO«, l3=0x0e}
0x0ee0…0ee7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ee7…0ef3 Line {l1=0x0a, l2=»  NR:=NR1;«, l3=0x0a}
0x0ef3…0f0d Line {l1=0x18, l2=»  GETREC(BREZ.H,BREF,A);«, l3=0x18}
0x0f0d…0f38 Line {l1=0x29, l2=»  IF IER <> 0 THEN IOF(BREZ.H. FILENAME);«, l3=0x29}
0x0f38…0f41 Line {l1=0x07, l2=»  I:=1;«, l3=0x07}
0x0f41…0f70 Line {l1=0x2d, l2=»  WHILE (GRÆNSE(I) <MÅL) AND (I<9) DO I:=I+1;«, l3=0x2d}
0x0f70…0f83 Line {l1=0x11, l2=»  TYPE2:=PAKKE(I)«, l3=0x11}
0x0f83…0f89 Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x0f8f…0f92 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x0f95…0fac Line {l1=0x15, l2=»PROCEDURE BESTEMGLAS;«, l3=0x15}
0x0fac…0faf Line {l1=0x01, l2=» «, l3=0x01}
0x0faf…0fc5 Line {l1=0x14, l2=»TYPE GLASPOST=RECORD«, l3=0x14}
0x0fc5…0fdd Line {l1=0x16, l2=»              AA:ARAR;«, l3=0x16}
0x0fdd…0ff2 Line {l1=0x13, l2=»              A:AR;«, l3=0x13}
0x0ff2…100a Line {l1=0x16, l2=»              AAA:RAR;«, l3=0x16}
0x100a…101d Line {l1=0x11, l2=»              NR,«, l3=0x11}
0x101d…103a Line {l1=0x1b, l2=»              KODE:INTEGER;«, l3=0x1b}
0x103a…1054 Line {l1=0x18, l2=»              TEKST:TEK;«, l3=0x18}
0x1054…105f Line {l1=0x09, l2=»     END;«, l3=0x09}
0x105f…1062 Line {l1=0x01, l2=» «, l3=0x01}
0x1062…1077 Line {l1=0x13, l2=»VAR  GLAS:GLASPOST;«, l3=0x13}
0x1077…107a Line {l1=0x01, l2=» «, l3=0x01}
0x107a…1081 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1081…1091 Line {l1=0x0e, l2=»WITH OLINIE DO«, l3=0x0e}
0x1091…1098 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1098…10af Line {l1=0x15, l2=»  IF I1=RAMMENR1 THEN«, l3=0x15}
0x10af…10c5 Line {l1=0x14, l2=»    GLASNR:=GLASART1«, l3=0x14}
0x10c5…10cd Line {l1=0x06, l2=»  ELSE«, l3=0x06}
0x10cd…10e6 Line {l1=0x17, l2=»    IF I1=RAMMENR2 THEN«, l3=0x17}
0x10e6…10fe Line {l1=0x16, l2=»      GLASNR:=GLASART2«, l3=0x16}
0x10fe…1108 Line {l1=0x08, l2=»    ELSE«, l3=0x08}
0x1108…1121 Line {l1=0x17, l2=»      GLASNR:=GLASART3;«, l3=0x17}
0x1121…1135 Line {l1=0x12, l2=»  GLAS.NR:=GLASNR;«, l3=0x12}
0x1135…1154 Line {l1=0x1d, l2=»  GETREC(GLAZ.H,GLAF,GLAS.A);«, l3=0x1d}
0x1154…1165 Line {l1=0x0f, l2=»  IF IER=0 THEN«, l3=0x0f}
0x1165…117e Line {l1=0x17, l2=»    GLASKODE:=GLAS.KODE«, l3=0x17}
0x117e…1186 Line {l1=0x06, l2=»  ELSE«, l3=0x06}
0x1186…11a0 Line {l1=0x18, l2=»    IOF(GLAZ.H.FILENAME)«, l3=0x18}
0x11a0…11a6 Line {l1=0x04, l2=»END;«, l3=0x04}
            […0x1…]
0x11ac…11af Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x11b2…11f9 Line {l1=0x45, l2=»PROCEDURE GENER(TYP1,TYP2,TYP3,FL,SL,HÆ:INTEGER;VAR GU1,GU2:DOBBTAL);«, l3=0x45}
0x11f9…11fc Line {l1=0x01, l2=» «, l3=0x01}
0x11fc…1215 Line {l1=0x17, l2=»TYPE OPSPLITZONE=RECORD«, l3=0x17}
0x1215…1232 Line {l1=0x1b, l2=»                 H:ISFHEAD;«, l3=0x1b}
0x1232…1265 Line {l1=0x31, l2=»                 T:ARRAY(1..MOPSPLIZ) OF INTEGER;«, l3=0x31}
0x1265…1270 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x1270…1276 Line {l1=0x04, l2=»    «, l3=0x04}
0x1276…128f Line {l1=0x17, l2=»     OPSPLITPOST=RECORD«, l3=0x17}
0x128f…12aa Line {l1=0x19, l2=»                 AA:ARAR;«, l3=0x19}
0x12aa…12c2 Line {l1=0x16, l2=»                 A:AR;«, l3=0x16}
0x12c2…12dd Line {l1=0x19, l2=»                 AAA:RAR;«, l3=0x19}
0x12dd…12f8 Line {l1=0x19, l2=»                 ORDRENR,«, l3=0x19}
0x12f8…130f Line {l1=0x15, l2=»                 TYP,«, l3=0x15}
0x130f…132b Line {l1=0x1a, l2=»                 POSITION,«, l3=0x1a}
0x132b…1346 Line {l1=0x19, l2=»                 RAMMENR,«, l3=0x19}
0x1346…1360 Line {l1=0x18, l2=»                 PLACER,«, l3=0x18}
0x1360…1381 Line {l1=0x1f, l2=»                 ANTAL:INTEGER;«, l3=0x1f}
0x1381…13a3 Line {l1=0x20, l2=»                 TYPENR:DOBBTAL;«, l3=0x20}
0x13a3…13c4 Line {l1=0x1f, l2=»                 FARVE:INTEGER;«, l3=0x1f}
0x13c4…13e5 Line {l1=0x1f, l2=»                 FTYPE:DOBBTAL;«, l3=0x1f}
0x13e5…1400 Line {l1=0x19, l2=»                 FLÆNGDE,«, l3=0x19}
0x1400…141b Line {l1=0x19, l2=»                 SLÆNGDE,«, l3=0x19}
0x141b…1437 Line {l1=0x1a, l2=»                 BESLAGNR,«, l3=0x1a}
0x1437…145a Line {l1=0x21, l2=»                 HÆNGSEL:INTEGER;«, l3=0x21}
0x145a…1474 Line {l1=0x18, l2=»                 GUMMI1,«, l3=0x18}
0x1474…1496 Line {l1=0x20, l2=»                 GUMMI2:DOBBTAL;«, l3=0x20}
0x1496…14b8 Line {l1=0x20, l2=»                 STATUS:INTEGER;«, l3=0x20}
0x14b8…14c3 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x14c3…14c6 Line {l1=0x01, l2=» «, l3=0x01}
0x14c6…14d6 Line {l1=0x0e, l2=»VAR  OPSF:ISF;«, l3=0x0e}
0x14d6…14ee Line {l1=0x16, l2=»     OPSZ:OPSPLITZONE;«, l3=0x16}
0x14ee…1509 Line {l1=0x19, l2=»     OPSPLIT:OPSPLITPOST;«, l3=0x19}
0x1509…150c Line {l1=0x01, l2=» «, l3=0x01}
0x150c…1513 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1513…1526 Line {l1=0x11, l2=»  WITH OPSPLIT DO«, l3=0x11}
0x1526…152f Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x152f…154d Line {l1=0x1c, l2=»    ORDRENR:=OLINIE.ORDRENR;«, l3=0x1c}
0x154d…155d Line {l1=0x0e, l2=»    TYP:=TYP1;«, l3=0x0e}
0x155d…156f Line {l1=0x10, l2=»    RAMMENR:=I1;«, l3=0x10}
0x156f…1585 Line {l1=0x14, l2=»    TYPENR(1):=TYP2;«, l3=0x14}
0x1585…159b Line {l1=0x14, l2=»    TYPENR(2):=TYP3;«, l3=0x14}
0x159b…15bb Line {l1=0x1e, l2=»    POSITION:=OLINIE.POSITION;«, l3=0x1e}
0x15bb…15d3 Line {l1=0x16, l2=»    PLACER:=PLACERING;«, l3=0x16}
0x15d3…15ed Line {l1=0x18, l2=»    ANTAL:=OLINIE.ANTAL;«, l3=0x18}
0x15ed…15fc Line {l1=0x0d, l2=»    FARVE:=0;«, l3=0x0d}
0x15fc…1610 Line {l1=0x12, l2=»    FTYPE:=NULLER;«, l3=0x12}
0x1610…1622 Line {l1=0x10, l2=»    FLÆNGDE:=FL;«, l3=0x10}
0x1622…1634 Line {l1=0x10, l2=»    SLÆNGDE:=SL;«, l3=0x10}
0x1634…1646 Line {l1=0x10, l2=»    BESLAGNR:=0;«, l3=0x10}
0x1646…1658 Line {l1=0x10, l2=»    HÆNGSEL:=HÆ;«, l3=0x10}
0x1658…166a Line {l1=0x10, l2=»    GUMMI1:=GU1;«, l3=0x10}
0x166a…167c Line {l1=0x10, l2=»    GUMMI2:=GU2;«, l3=0x10}
0x167c…1698 Line {l1=0x1a, l2=»    STATUS:=OLINIE.STATUS;«, l3=0x1a}
0x1698…16ac Line {l1=0x12, l2=»    IF TYP1=1 THEN«, l3=0x12}
0x16ac…16b7 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x16b7…16cb Line {l1=0x12, l2=»      FARVE:=FANR;«, l3=0x12}
0x16cb…16e0 Line {l1=0x13, l2=»      FTYPE:=TYPE1;«, l3=0x13}
0x16e0…16f8 Line {l1=0x16, l2=»      BESLAGNR:=TYPE2;«, l3=0x16}
0x16f8…1702 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x1702…1724 Line {l1=0x20, l2=»    OWRITE(OPSZ.H,OPSF,6,SKRIV);«, l3=0x20}
0x1724…1740 Line {l1=0x1a, l2=»    INSERT(OPSZ.H,OPSF,A);«, l3=0x1a}
0x1740…176c Line {l1=0x2a, l2=»    IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);«, l3=0x2a}
0x176c…1786 Line {l1=0x18, l2=»    ICLOSE(OPSZ.H,OPSF);«, l3=0x18}
0x1786…17b2 Line {l1=0x2a, l2=»    IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);«, l3=0x2a}
0x17b2…17ba Line {l1=0x06, l2=»  END;«, l3=0x06}
0x17ba…17c0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x17c0…17c3 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x17c6…180c Line {l1=0x44, l2=»PROCEDURE HENTKOMBI(VAR KKA:INTEGER;VAR KRA:INTEGER;VAR KPO:INTEGER;«, l3=0x44}
0x180c…1833 Line {l1=0x25, l2=»                    VAR FIL:FILNAVN);«, l3=0x25}
0x1833…1836 Line {l1=0x01, l2=» «, l3=0x01}
0x1836…184d Line {l1=0x15, l2=»TYPE KOMBIZONE=RECORD«, l3=0x15}
0x184d…1868 Line {l1=0x19, l2=»               H:ISFHEAD;«, l3=0x19}
0x1868…1898 Line {l1=0x2e, l2=»               T:ARRAY(1..MKOMBIZ) OF INTEGER;«, l3=0x2e}
0x1898…18a3 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x18a3…18a6 Line {l1=0x01, l2=» «, l3=0x01}
0x18a6…18bd Line {l1=0x15, l2=»     KOMBIPOST=RECORD«, l3=0x15}
0x18bd…18d6 Line {l1=0x17, l2=»               AA:ARAR;«, l3=0x17}
0x18d6…18ec Line {l1=0x14, l2=»               A:AR;«, l3=0x14}
0x18ec…1905 Line {l1=0x17, l2=»               AAA:RAR;«, l3=0x17}
0x1905…1919 Line {l1=0x12, l2=»               NR,«, l3=0x12}
0x1919…1935 Line {l1=0x1a, l2=»               KARMPROFIL,«, l3=0x1a}
0x1935…194c Line {l1=0x15, l2=»               POST1,«, l3=0x15}
0x194c…1963 Line {l1=0x15, l2=»               POST2,«, l3=0x15}
0x1963…1980 Line {l1=0x1b, l2=»               RAMMEPROFIL,«, l3=0x1b}
0x1980…19a2 Line {l1=0x20, l2=»               F3PROFIL:INTEGER;«, l3=0x20}
0x19a2…19ad Line {l1=0x09, l2=»     END;«, l3=0x09}
0x19ad…19b0 Line {l1=0x01, l2=» «, l3=0x01}
0x19b0…19c0 Line {l1=0x0e, l2=»VAR  KOMF:ISF;«, l3=0x0e}
0x19c0…19d6 Line {l1=0x14, l2=»     KOMZ:KOMBIZONE;«, l3=0x14}
0x19d6…19ed Line {l1=0x15, l2=»     KOMBI:KOMBIPOST;«, l3=0x15}
0x19ed…19f0 Line {l1=0x01, l2=» «, l3=0x01}
0x19f0…19f7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x19f7…1a08 Line {l1=0x0f, l2=»  WITH KOMBI DO«, l3=0x0f}
0x1a08…1a11 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1a11…1a34 Line {l1=0x21, l2=»    NR:=OLINIE.VINDUENR DIV 1000;«, l3=0x21}
0x1a34…1a54 Line {l1=0x1e, l2=»    OWRITE(KOMZ.H,KOMF,1,LÆS);«, l3=0x1e}
0x1a54…1a70 Line {l1=0x1a, l2=»    GETREC(KOMZ.H,KOMF,A);«, l3=0x1a}
0x1a70…1a9a Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(KOMZ.H.FILENAME);«, l3=0x28}
0x1a9a…1acc Line {l1=0x30, l2=»    KKA:=KARMPROFIL;KRA:=RAMMEPROFIL;KPO:=POST1;«, l3=0x30}
0x1acc…1ae6 Line {l1=0x18, l2=»    ICLOSE(KOMZ.H,KOMF);«, l3=0x18}
0x1ae6…1aee Line {l1=0x06, l2=»  END;«, l3=0x06}
0x1aee…1af4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1af4…1af7 Line {l1=0x01, l2=» «, l3=0x01}
            […0x1…]
0x1afa…1b49 Line {l1=0x4d, l2=»PROCEDURE HENTVINDUE(VAR VKA:INTEGER;VAR RAM:AR116;VAR VBE:AR14;VAR VBR:AR13;«, l3=0x4d}
0x1b49…1b7e Line {l1=0x33, l2=»                     VAR VHØ:AR13;VAR FIL:FILNAVN);«, l3=0x33}
0x1b7e…1b81 Line {l1=0x01, l2=» «, l3=0x01}
0x1b81…1b99 Line {l1=0x16, l2=»TYPE VINDUEZONE=RECORD«, l3=0x16}
0x1b99…1bb5 Line {l1=0x1a, l2=»                H:ISFHEAD;«, l3=0x1a}
0x1bb5…1be7 Line {l1=0x30, l2=»                T:ARRAY(1..MVINDUEZ) OF INTEGER;«, l3=0x30}
0x1be7…1bf2 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x1bf2…1bf5 Line {l1=0x01, l2=» «, l3=0x01}
0x1bf5…1c0d Line {l1=0x16, l2=»     VINDUEPOST=RECORD«, l3=0x16}
0x1c0d…1c27 Line {l1=0x18, l2=»                AA:ARAR;«, l3=0x18}
0x1c27…1c3e Line {l1=0x15, l2=»                A:AR;«, l3=0x15}
0x1c3e…1c58 Line {l1=0x18, l2=»                AAA:RAR;«, l3=0x18}
0x1c58…1c6d Line {l1=0x13, l2=»                NR,«, l3=0x13}
0x1c6d…1c86 Line {l1=0x17, l2=»                KARMNR,«, l3=0x17}
0x1c86…1ca7 Line {l1=0x1f, l2=»                MAXMÅL:INTEGER;«, l3=0x1f}
0x1ca7…1cc5 Line {l1=0x1c, l2=»                RAMME:AR116;«, l3=0x1c}
0x1cc5…1ce3 Line {l1=0x1c, l2=»                BESLAG:AR14;«, l3=0x1c}
0x1ce3…1cfc Line {l1=0x17, l2=»                BREDDE,«, l3=0x17}
0x1cfc…1d19 Line {l1=0x1b, l2=»                HØJDE:AR13;«, l3=0x1b}
0x1d19…1d35 Line {l1=0x1a, l2=»                TEKST:TEK;«, l3=0x1a}
0x1d35…1d40 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x1d40…1d43 Line {l1=0x01, l2=» «, l3=0x01}
0x1d43…1d53 Line {l1=0x0e, l2=»VAR  VINF:ISF;«, l3=0x0e}
0x1d53…1d6a Line {l1=0x15, l2=»     VINZ:VINDUEZONE;«, l3=0x15}
0x1d6a…1d83 Line {l1=0x17, l2=»     VINDUE:VINDUEPOST;«, l3=0x17}
0x1d83…1d86 Line {l1=0x01, l2=» «, l3=0x01}
0x1d86…1d8d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d8d…1d9f Line {l1=0x10, l2=»  WITH VINDUE DO«, l3=0x10}
0x1d9f…1da8 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1da8…1dcb Line {l1=0x21, l2=»    NR:=OLINIE.VINDUENR MOD 1000;«, l3=0x21}
0x1dcb…1deb Line {l1=0x1e, l2=»    OWRITE(VINZ.H,VINF,2,LÆS);«, l3=0x1e}
0x1deb…1e07 Line {l1=0x1a, l2=»    GETREC(VINZ.H,VINF,A);«, l3=0x1a}
0x1e07…1e31 Line {l1=0x28, l2=»    IF IER<>0 THEN IOF(VINZ.H.FILENAME);«, l3=0x28}
0x1e31…1e71 Line {l1=0x3e, l2=»    VKA:=KARMNR;RAM:=RAMME;VBE:=BESLAG;VBR:=BREDDE;VHØ:=HØJDE;«, l3=0x3e}
0x1e71…1e8b Line {l1=0x18, l2=»    ICLOSE(VINZ.H,VINF);«, l3=0x18}
0x1e8b…1e93 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x1e93…1e99 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e99…1e9c Line {l1=0x01, l2=» «, l3=0x01}
0x1e9c…1ee9 Line {l1=0x4b, l2=»PROCEDURE PROFILBEHANDLING(HØJDE:INTEGER;VAR FORSTÆRK:AR14;VAR PROFILSTÆRK:«, l3=0x4b}
0x1ee9…1f30 Line {l1=0x45, l2=»                                 ADOBTAL;VAR BESLAG:AR14; VAR PROFIL:«, l3=0x45}
0x1f30…1f7e Line {l1=0x4c, l2=»                                 INTEGER;VAR GUM1:DOBBTAL;VAR GUM2:DOBBTAL);«, l3=0x4c}
0x1f7e…1f81 Line {l1=0x01, l2=» «, l3=0x01}
0x1f81…1f88 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f88…1fa4 Line {l1=0x1a, l2=»  FOR PLACERING:=1 TO 4 DO«, l3=0x1a}
0x1fa4…1fad Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x1fad…1fd4 Line {l1=0x25, l2=»    TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;«, l3=0x25}
0x1fd4…1fed Line {l1=0x17, l2=»    IF PLACERING=3 THEN«, l3=0x17}
0x1fed…1ff8 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x1ff8…200b Line {l1=0x11, l2=»      MÅL:=HØJDE;«, l3=0x11}
0x200b…2023 Line {l1=0x16, l2=»      STÆRKR:=STÆRKR2;«, l3=0x16}
0x2023…202d Line {l1=0x08, l2=»    END;«, l3=0x08}
0x202d…2050 Line {l1=0x21, l2=»    IF FORSTÆRK(PLACERING)=1 THEN«, l3=0x21}
0x2050…205b Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x205b…206d Line {l1=0x10, l2=»      STÆRKNING;«, l3=0x10}
0x206d…208f Line {l1=0x20, l2=»      TYPE1:=PROFILSTÆRK(TYPER);«, l3=0x20}
0x208f…20cb Line {l1=0x3a, l2=»      GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);«, l3=0x3a}
0x20cb…20d5 Line {l1=0x08, l2=»    END;«, l3=0x08}
0x20d5…20f6 Line {l1=0x1f, l2=»    IF BESLAG(PLACERING)>0 THEN«, l3=0x1f}
0x20f6…2101 Line {l1=0x09, l2=»    BEGIN«, l3=0x09}
0x2101…2127 Line {l1=0x24, l2=»      BESLAGNING(BESLAG(PLACERING));«, l3=0x24}
0x2127…2153 Line {l1=0x2a, l2=»      GENER(5,0,TYPE2,0,0,0,NULLER,NULLER)«, l3=0x2a}
0x2153…215d Line {l1=0x08, l2=»    END;«, l3=0x08}
0x215d…218c Line {l1=0x2d, l2=»    GENER(1,0,PROFIL,LÆNGDE,MÅL,0,GUM1,GUM2);«, l3=0x2d}
0x218c…2194 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x2194…219a Line {l1=0x04, l2=»END;«, l3=0x04}
0x219a…21e5 Line {l1=0x49, l2=»PROCEDURE HENTKARM(NR1:INTEGER;VAR KBE,KFO:AR14;VAR KVR,KLR:AR13;VAR FIL:«, l3=0x49}
0x21e5…2231 Line {l1=0x4a, l2=»                                                                 FILNAVN);«, l3=0x4a}
0x2231…2234 Line {l1=0x01, l2=» «, l3=0x01}
0x2234…224a Line {l1=0x14, l2=»TYPE KARMZONE=RECORD«, l3=0x14}
0x224a…2264 Line {l1=0x18, l2=»              H:ISFHEAD;«, l3=0x18}
0x2264…2293 Line {l1=0x2d, l2=»              T:ARRAY(1..MKARMEZ) OF INTEGER;«, l3=0x2d}
0x2293…229e Line {l1=0x09, l2=»     END;«, l3=0x09}
0x229e…22a1 Line {l1=0x01, l2=» «, l3=0x01}
0x22a1…22b7 Line {l1=0x14, l2=»     KARMPOST=RECORD«, l3=0x14}
0x22b7…22cf Line {l1=0x16, l2=»              AA:ARAR;«, l3=0x16}
0x22cf…22e4 Line {l1=0x13, l2=»              A:AR;«, l3=0x13}
0x22e4…22fc Line {l1=0x16, l2=»              AAA:RAR;«, l3=0x16}
0x22fc…2317 Line {l1=0x19, l2=»              NR:INTEGER;«, l3=0x19}
0x2317…2330 Line {l1=0x17, l2=»              FORSTÆRK,«, l3=0x17}
0x2330…234c Line {l1=0x1a, l2=»              BESLAG:AR14;«, l3=0x1a}
0x234c…236b Line {l1=0x1d, l2=»              TÆTGUM:INTEGER;«, l3=0x1d}
0x236b…2382 Line {l1=0x15, l2=»              VREGEL,«, l3=0x15}
0x2382…239e Line {l1=0x1a, l2=»              LREGEL:AR13;«, l3=0x1a}
0x239e…23b8 Line {l1=0x18, l2=»              TEKST:TEK;«, l3=0x18}
0x23b8…23c3 Line {l1=0x09, l2=»     END;«, l3=0x09}
0x23c3…23c6 Line {l1=0x01, l2=» «, l3=0x01}
0x23c6…23d6 Line {l1=0x0e, l2=»VAR  KARF:ISF;«, l3=0x0e}
0x23d6…23eb Line {l1=0x13, l2=»     KARZ:KARMZONE;«, l3=0x13}
0x23eb…2400 Line {l1=0x13, l2=»     KARM:KARMPOST;«, l3=0x13}
0x2400…2403 Line {l1=0x01, l2=» «, l3=0x01}
0x2403…240a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x240a…241a Line {l1=0x0e, l2=»  WITH KARM DO«, l3=0x0e}
0x241a…2423 Line {l1=0x07, l2=»  BEGIN«, l3=0x07}
0x2423…2443 Line {l1=0x1e, l2=»    OWRITE(KARZ.H,KARF,3,LÆS);«, l3=0x1e}
0x2443…2451 Line {l1=0x0c, l2=»    NR:=NR1;«, l3=0x0c}
0x2451…246d Line {l1=0x1a, l2=»    GETREC(KARZ.H,KARF,A);«, l3=0x1a}
0x246d…248b Line {l1=0x1c, l2=»    IF IER<>0 THEN IOF(FIL);«, l3=0x1c}
0x248b…24c3 Line {l1=0x36, l2=»    KBE:=BESLAG;KFO:=FORSTÆRK;KVR:=VREGEL;KLR:=LREGEL;«, l3=0x36}
0x24c3…24dd Line {l1=0x18, l2=»    ICLOSE(KARZ.H,KARF);«, l3=0x18}
0x24dd…24e5 Line {l1=0x06, l2=»  END;«, l3=0x06}
0x24e5…24eb Line {l1=0x04, l2=»END;«, l3=0x04}
0x24eb…24ee Line {l1=0x01, l2=» «, l3=0x01}
0x24ee…2500 00 00 54 59 50 33 3b 0e 10 20 20 20 20 52 41 4d 4d 45                                             ┆  TYP3;      RAMME┆
0x2500…2520 4e 52 3a 3d 49 31 3b 10 16 20 20 20 20 50 4c 41 43 45 52 3a 3d 50 4c 41 43 45 52 49 4e 47 3b 16   ┆NR:=I1;      PLACER:=PLACERING; ┆
0x2520…2540 10 20 20 20 20 46 4c 5b 4e 47 44 45 3a 3d 46 4c 3b 10 10 20 20 20 20 53 4c 5b 4e 47 44 45 3a 3d   ┆     FLÆNGDE:=FL;      SLÆNGDE:=┆
0x2540…2560 53 4c 3b 10 11 20 20 20 20 54 59 50 45 4e 52 3a 3d 54 59 50 31 3b 11 06 20 20 45 4e 44 3b 06 21   ┆SL;      TYPENR:=TYP1;    END; !┆
0x2560…2580 20 20 49 4e 53 45 52 54 20 28 4f 50 53 5a 2e 48 2c 4f 50 53 46 2c 4f 50 53 50 4c 49 54 2e 41 29   ┆  INSERT (OPSZ.H,OPSF,OPSPLIT.A)┆
0x2580…25a0 3b 21 28 20 20 49 46 20 49 45 52 20 3c 3e 20 30 20 54 48 45 4e 20 49 4f 46 28 4f 50 53 5a 2e 48   ┆;!(  IF IER <> 0 THEN IOF(OPSZ.H┆
0x25a0…25c0 2e 46 49 4c 45 4e 41 4d 45 29 3b 28 04 45 4e 44 3b 04 01 20 01 44 50 52 4f 43 45 44 55 52 45 20   ┆.FILENAME);( END;    DPROCEDURE ┆
0x25c0…25e0 48 45 4e 54 4b 4f 4d 42 49 28 56 41 52 20 4b 4b 41 3a 49 4e 54 45 47 45 52 3b 56 41 52 20 4b 52   ┆HENTKOMBI(VAR KKA:INTEGER;VAR KR┆
0x25e0…2600 41 3a 49 4e 54 45 47 45 52 3b 56 41 52 20 4b 50 4f 3a 49 4e 54 45 47 45 52 3b 44 25 20 20 20 20   ┆A:INTEGER;VAR KPO:INTEGER;D%    ┆
0x2600…2620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 46 49 4c 3a 46 49 4c 4e 41 56 4e 29   ┆                VAR FIL:FILNAVN)┆
0x2620…2640 3b 25 01 20 01 15 54 59 50 45 20 4b 4f 4d 42 49 5a 4f 4e 45 3d 52 45 43 4f 52 44 15 19 20 20 20   ┆;%    TYPE KOMBIZONE=RECORD     ┆
0x2640…2660 20 20 20 20 20 20 20 20 20 20 20 20 48 3a 49 53 46 48 45 41 44 3b 19 2e 20 20 20 20 20 20 20 20   ┆            H:ISFHEAD; .        ┆
0x2660…2680 20 20 20 20 20 20 20 54 3a 41 52 52 41 59 28 31 2e 2e 4d 4b 4f 4d 42 49 5a 29 20 4f 46 20 49 4e   ┆       T:ARRAY(1..MKOMBIZ) OF IN┆
0x2680…26a0 54 45 47 45 52 3b 2e 09 20 20 20 20 20 45 4e 44 3b 09 01 20 01 15 20 20 20 20 20 4b 4f 4d 42 49   ┆TEGER;.      END;          KOMBI┆
0x26a0…26c0 50 4f 53 54 3d 52 45 43 4f 52 44 15 17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 41 3a 41   ┆POST=RECORD                 AA:A┆
0x26c0…26e0 52 41 52 3b 17 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 3a 41 52 3b 14 17 20 20 20 20   ┆RAR;                 A:AR;      ┆
0x26e0…2700 20 20 20 20 20 20 20 20 20 20 20 41 41 41 3a 52 41 52 3b 17 12 20 20 20 20 20 20 20 20 20 20 20   ┆           AAA:RAR;             ┆

Reduced view