|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 11232 (0x2be0)
Types: TextFile
Notes: Mikados_K
Names: »HENT1.K«
└─⟦510f10af2⟧ Bits:30009011 Apn
└─⟦this⟧ »HENT1.K«
SEGMENT PROCEDURE HENT;
PROCEDURE HENTKOMBI(NR1:INTEGER;VAR PR:APROFILTYP);
TYPE KOMBIZONE=RECORD
H:ISFHEAD;
T:ARRAY(I..MKOMBIZ) OF INTEGER;
END;
KOMBIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
PROFIL TYPE:AR16;
END;
VAR KOMF:ISF;
KOMZ:KOMBIZONE;
KOMBI:KOMBIPOST;
I:INTEGER
BEGIN
WITH KOMBI DO
BEGIN
OWRITE(KOMZ.H,KOMF,1,LÆS);
NR=NR1;
GETREC(KOMZ.H,KOMF,A);
IF IER<>0 THEN IOF(KOMZ.H.FILENAME);
FOR I:=1 TO 6 DO PR(I).NR=PROFILTYPE(I).
ICLOSE(KOMZ.H.KOMF);
END;
END;
PROCEDURE HENTVINDUE(NR1:INTEGER;VAR RAM ARAMMETYP;VAR VKA INTEGER)
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;
I:INTEGER;
BEGIN
WITH VINDUE DO
BEGIN
OWRITE(VINZ.H,VINF,2,LÆS);
NR:=NR1;
GETREC(VINZ.H,VINF,A);
IF IER<>0 THEN IOF(VINZ.H.FILENAME);
VKA:=KARMNR;
FOR I:=1 TO 16 DO RAM(I) NR:=RAMME(I);
ICLOSE(VINZ.H,VINF);
END;
END;
PROCEDURE HENTFARVE(VAR FA:AFARVTYP;OFA:DOBBTAL);
TYPE FARVEZONE=RECORD
H=ISFHEAD;
T:ARRAY(1..MFARVEZ) OF INTEGER;
END;
FARVEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
FARVE:GLASTYP;
TEKST:TEK;
END;
VAR FARF:ISF;
FARZ:FARVEZONE;
FARVX:FARVEPOST;
BEGIN
WITH FARVX DO
BEGIN
OWRITE(FARVZ.H,FARF,4,LÆS);
FARVE.NR:=OFA(1);
GETREC(FARVZ.H,FARF,A);
IF IER<>0 THEN IOF(FARZ.H.FILENAME);
FA(1):=FARVE;
IF OFA(1)<>OFA(2) THEN
BEGIN
FARVE.NR:=OFA(2);
GETREC(FARZ.H,FARF,A);
IF IER<>0 THEN IOF(FARZ.H.FILENAME)
END;
FA(2):=FARVE;
ICLOSE(FARZ.H,FARF);
END;
END;
PROCEDURE HENTGLAS(VAR GL:AGLASTYP;ART:AR13);
TYPE GLASZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MGLASZ) OF INTEGER;
END;
GLASPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
GLAS:GLASTYP;
TEKST:TEK;
END;
VAR GLAF:ISF;
GLAZ:GLASZONE;
GLAX:GLASPOST;
I:INTEGER;
BEGIN
OWRITE(GLAZ.H,GLAF,7,LÆS);
FOR I:=1 TO 3 DO
BEGIN
GL(I).NR:=0,GL(I).KODE:=0;
IF ART(I)<>0 THEN
BEGIN
GLAX.GLAS.NR:=ART(I);
GETREC(GLAZ.H,GLAF,GLAX.A);
IF IER<>0 THEN IOF(GLAZ.H.FILENAME);
GL(I)=GLAX.GLAS;
END;
END;
ICLOSE(GLAZ.H,GLAF);
END;
PROCEDURE HENTKARM(NR1,KFA,KMONT:INTEGER;VAR AKA:AKARMTYP);
TYPE KARMZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MKARMEZ) OF INTEGER;
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MPOSTERZ) OF INTEGER;
END;
KARMPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
ØFORSTÆRK,
NFORSTÆRK
FFORSTÆRK,
BFOSTÆRK:AR13;
TYPE:AR14;
TÆTGUM:INTEGER;
TEKST:TEK;
END;
POSTPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KARMNR,
NR,
VANDLOD,
GÅFRA,
GÅTIL,
PLACE:INTEGER;
FORSTÆRK:AR13;
TYP:INTEGER;
END;
VAR KARF,POSF:ISF;
KARZ:KARMZONE;
POSZ:POSTZONE;
KARM:KARMPOST;
POST:POSTPOST;
REGEL:INTEGER;
I1,I:INTEGER;
BEGIN
REGEL:=3;
IF KMONT=0 THEN
BEGIN
REGEL:=2
IF KFA=0 THEN REGEL:=1;
END;
WITH KARM DO
BEGIN
OWRITE(KARZ.H,KARF,3,LÆS);
NR:=NR1;
GETREC(KARZ.H,KARF,A);
IF IER<>0 THEN IOF(KARZ.H.FILENAME);
FOR I:=1 TO 4 DO
BEGIN
AKA(I).PLACE:=((I+1)MOD 2)*4;
AKA(I).FRA:=0;
AKA(I).TIL:=4;
AKA(I).TYPE:=TYPE(I);
AKA(I).VANDLOD:=I DIV 3;
FOR I1:=1 TO 8 DO AKA(I).BESLAG(I1):=0;
END;
AKA(1).FORSTÆRK:=ØFORSTÆRK(REGEL);
AKA(2).FORSTÆRK:=NFORSTÆRK(REGEL);
AKA(3).FORSTÆRK:=FFORSTÆRK(REGEL);
AKA(4).FORSTÆRK:=BFORSTÆRK(REGEL);
ICLOSE(KARZ.H,KARF);
END;
WITH POST DO
BEGIN
OWRITE(POSZ.H,POSF,11,LÆS);
KARMNR:=NR1;
FOR NR:=1 TO 15 DO
BEGIN
GETREC(POSZ.H,POSF,A);
IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);
IF IER=0 THEN
BEGIN
AKA(NR+4).FORSTÆRK:=FORSTÆRK(REGEL);
AKA(NR+4).PLACE:=PLACE;
AKA(NR+4).FRA:=GÅFRA;
AKA(NR+4).TIL:=GÅTIL;
AKA(NR+4).TYPE:=TYP+2;
AKA(NR+4).VANDLOD:=VANDLOD;
FORI1:=1 TO 8 DO AKA(NR+4).BESLAG(I1):=0;
END
ELSE
BEGIN
AKA(NR+4).TYPE:=0;IER:=0;
END;
END;
ICLOSE(POSZ.H,POSF);
END;
END;
PROCEDURE HENTTILBEHØR(VAR PR:APROFILTYP;GL:AGLASTYP;VAR ATI:
ATILBEHØRTYP);
TYPE TILBEHZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MTIBEHZ) OF INTEGER;
END;
TILBEHPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
GLASKODE,
GLASLIST:INTEGER;
GLASGUMMI,
GLASLISTGUMMI:DOBBTAL;
END;
VAR TILF:ISF;
TILZ:TILBEHZONE;
TILBEHØR:TILBEHPOST;
I1,I:INTEGER;
PROCEDURE HTIL
BEGIN
WITH TILBEHØR DO
BEGIN
FOR I:=1 TO 3 DO
BEGIN
GLASKODE:=GL(I).KODE;
IF GLASKODE<>0 THEN
BEGIN
GETREC(TILZ.H,TILF,A);
IF IER<>0 THEN IOF(TILZ.H.FILENAME);
ATI(I+I1).GLASLIST:=GLASLIST;
ATI(I+I1).GLASGUMMI:=GLASGUMMI;
ATI(I+I1).GLASLISTGUMMI:=GLASLISTGUMMI;
PR(I+I1+6).NR:=GLASLIST;
END
ELSE
BEGIN
ATI(I+I1).GLASLIST:=0;PR(I+I1+6).NR:=0;
END;
END;
END;
END;
BEGIN
OWRITE(TILZ.H,TILF,9,LÆS);
TILBEHØR.NR:=PR(1).NR;I1:=0;
HTIL;
TILBEHØR.NR:=PR(5).NR;I1:=3;
HTIL;
ICLOSE(TILZ.H,TILF);
END;
PROCEDURE HENTPROFIL(VAR PR:APROFILTYP);
TYPE PROFILZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MPROFILZ) OF INTEGER;
END;
PROFILPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
DIM:AR13;
TÆTGUM:DOBBTAL;
FORSTÆRK:ADOBBTAL;
TEKST:TEK;
END;
VAR PROF:ISF;
PROZ:PROFILZONE;
PROFIL:PROFILPOST;
I:INTEGER;
BEGIN
WITH PROFIL DO
BEGIN
OWRITE(PROZ.H,PROF,8,LÆS);
FOR I:=1 TO 12 DO
BEGIN
NR:=PR(I).NR;
IF NR<>0 THEN
BEGIN
GETREC(PROZ.H,PROF,A);
IF IER<>0 THEN IOF(PROZ.H.FILENAME);
PR(I).DIM:=DIM;
PR(I).TÆTGUM:=TÆTGUM;
PR(I).FORSTÆRK:=FORSTÆRK;
END;
END;
ICLOSE(PROZ.H,PROF);
END;
END;
PROCEDURE HENTRAMME(VAR RAM:ARAMMETYP;KA:AKARMTYP;
GLA:AGLASTYP;FA:AFARVTYP;HÆNG:AR14;
MONT:INTEGER;ORAM:AR13);
TYPE RAMMEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MRAMMEZ) OF INTEGER;
END;
RAMMEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
TYPE:INTEGER;
ØFORSTÆRK
NFORSTÆRK
FFORSTÆRK
BFORSTÆRK:AR13;
ØBESLAG,
NBESLAG,
FBESLAG,
BBESLAG:DOBBTAL;
TÆTGUM:INTEGER;
TEKST:TEK;
END;
VAR RAMF:ISF;
RAMZ:RAMMEZONE;
RAMME:RAMMEPOST;
I1,I:INTEGER;
FUNCTION OMK(J,X:INTEGER):INTEGER;
BEGIN
WHILE(RAM(I+J*X).NR=I) AND (J<4) THEN J:=J+1;
IF J<4 THEN
IF RAM(I+J*X).NR=0 THEN J:=4;
OMK:=J;
END;
FUNCTION FPOST:INTEGER;
VAR J,J1:INTEGER;
BEGIN
J:=1;J1:=3-(I1 DIV 3)*2;
WHILE((KA(J).PLACE<>RAM(I).OMKREDS(I1)) OR (KA(J).GÅFRA>
RAM(I).OMKREDS(J1)) OR (KA(J).GÅTIL<RAM(I).
OMKREDS(J1+1))) AND (J<20) DO J:=J+1;
FPOST:=J;
END;
BEGIN
WITH RAMME DO
BEGIN
OWRITE(RAMZ.H,RAMF,10,LÆS);
FOR I:=1 TO 16 DO
BEGIN
NR:=RAM(I).NR;
IF NR>19 THEN
BEGIN
GETREC(TAMZ.H,RAMF,A);
IF IER<>0 THEN IOF(RAMZ.H.FILNAME);
RAM(I).TÆTGUM;=TÆTGUM;
RAM(I).TYPE:=TYPE;
I1:=1;
WHILE (I<>ORAM(I1)) AND (I1<3) DO I1:=I1+1;
RAM(I).GLASKODE:=GLA(I).KODE;
I1:=3;
IF MONT=0 THEN
BEGIN
I1:=2;
IF FA(2).KODE=0 THEN I1:=1;
END;
RAM(I).FORSTÆRK(1):=ØFORSTÆRK(I1);
RAM(I).FORSTÆRK(2):=NFORSTÆRK(I1);
RAM(I).FORSTÆRK(3):=FFORSTÆRK(I1);
RAM(I).FORSTÆRK(4):=BFORSTÆRK(I1);
I1:=HÆNG((I-1) MOD 4+1);
RAM(I).BESLAG(1):=ØBESLAG(I1);
RAM(I).BESLAG(2):=NBESLAG(I1);
RAM(I).BESLAG(3):=FBESLAG(I1);
RAM(I).BESLAG(4):=BBESLAG(I1);
RAM(I).OMKREDS(1):=(I-1) DIV 4;
RAM(I).OMKREDS(2):=OMK((I+3)DIV4,4);
RAM(I).OMKREDS(3):=(I-1) MOD 4;
RAM(I).OMKREDS(4):=OMK((I-1) MOD 4+1,1);
FOR I1:=1 TO 4 DO RAM(I).POST(I1):=FPOST;
END;
END;
ICLOSE(RAMZ.H,RAMF);
END;
END;
BEGIN
HENTKOMBI(OLINIE.VINDUENR DIV 1000,PROFIL);
HENTVINDUE(OLINIE.VINDUENR MOD 1000,RAMME,VKARM);
HENTFARVE(FARVE,OLINIE.FARVE);
HENTGLAS(GLAS,OLINIE.GLASART);
HENTKARM(VKARM,FARVE(1).KODE,OLINIE.MONTER,VKARM);
HENTTILBEHØR(PROFIL,GLAS,TILBEHØR);
HENTPROFIL(PROFIL);
HENTRAMME(RAMME,KARM,GLAS,FARVE,OLINIE.HÆNGSEL,OLINIE.
MONTER,OLINIE.RAMMENR);
END;
0x0000…0019 Line {l1=0x17, l2=»SEGMENT PROCEDURE HENT;«, l3=0x17}
0x0019…001c Line {l1=0x01, l2=» «, l3=0x01}
0x001c…0051 Line {l1=0x33, l2=»PROCEDURE HENTKOMBI(NR1:INTEGER;VAR PR:APROFILTYP);«, l3=0x33}
0x0051…0054 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0057…006e Line {l1=0x15, l2=»TYPE KOMBIZONE=RECORD«, l3=0x15}
0x006e…0089 Line {l1=0x19, l2=» H:ISFHEAD;«, l3=0x19}
0x0089…00b9 Line {l1=0x2e, l2=» T:ARRAY(I..MKOMBIZ) OF INTEGER;«, l3=0x2e}
0x00b9…00bc Line {l1=0x01, l2=» «, l3=0x01}
0x00bc…00c7 Line {l1=0x09, l2=» END;«, l3=0x09}
0x00c7…00ca Line {l1=0x01, l2=» «, l3=0x01}
0x00ca…00e1 Line {l1=0x15, l2=» KOMBIPOST=RECORD«, l3=0x15}
0x00e1…00fa Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x00fa…0110 Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x0110…0129 Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x0129…0145 Line {l1=0x1a, l2=» NR:INTEGER;«, l3=0x1a}
0x0145…0167 Line {l1=0x20, l2=» PROFIL TYPE:AR16;«, l3=0x20}
0x0167…016a Line {l1=0x01, l2=» «, l3=0x01}
0x016a…0175 Line {l1=0x09, l2=» END;«, l3=0x09}
0x0175…0178 Line {l1=0x01, l2=» «, l3=0x01}
0x0178…0187 Line {l1=0x0d, l2=»VAR KOMF:ISF;«, l3=0x0d}
0x0187…019c Line {l1=0x13, l2=» KOMZ:KOMBIZONE;«, l3=0x13}
0x019c…01b2 Line {l1=0x14, l2=» KOMBI:KOMBIPOST;«, l3=0x14}
0x01b2…01c1 Line {l1=0x0d, l2=» I:INTEGER«, l3=0x0d}
0x01c1…01c8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01c8…01d9 Line {l1=0x0f, l2=» WITH KOMBI DO«, l3=0x0f}
0x01d9…01e2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x01e2…0202 Line {l1=0x1e, l2=» OWRITE(KOMZ.H,KOMF,1,LÆS);«, l3=0x1e}
0x0202…020f Line {l1=0x0b, l2=» NR=NR1;«, l3=0x0b}
0x020f…022b Line {l1=0x1a, l2=» GETREC(KOMZ.H,KOMF,A);«, l3=0x1a}
0x022b…0255 Line {l1=0x28, l2=» IF IER<>0 THEN IOF(KOMZ.H.FILENAME);«, l3=0x28}
0x0255…0283 Line {l1=0x2c, l2=» FOR I:=1 TO 6 DO PR(I).NR=PROFILTYPE(I).«, l3=0x2c}
0x0283…029d Line {l1=0x18, l2=» ICLOSE(KOMZ.H.KOMF);«, l3=0x18}
0x029d…02a5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x02a5…02ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x02ab…02ae Line {l1=0x01, l2=» «, l3=0x01}
0x02ae…02f3 Line {l1=0x43, l2=»PROCEDURE HENTVINDUE(NR1:INTEGER;VAR RAM ARAMMETYP;VAR VKA INTEGER)«, l3=0x43}
0x02f3…02f6 Line {l1=0x01, l2=» «, l3=0x01}
0x02f6…030e Line {l1=0x16, l2=»TYPE VINDUEZONE=RECORD«, l3=0x16}
0x030e…032a Line {l1=0x1a, l2=» H:ISFHEAD;«, l3=0x1a}
0x032a…035d Line {l1=0x31, l2=» T:ARRAY (1..MVINDUEZ) OF INTEGER;«, l3=0x31}
0x035d…0360 Line {l1=0x01, l2=» «, l3=0x01}
0x0360…036b Line {l1=0x09, l2=» END;«, l3=0x09}
0x036b…036e Line {l1=0x01, l2=» «, l3=0x01}
0x036e…0386 Line {l1=0x16, l2=» VINDUEPOST=RECORD«, l3=0x16}
0x0386…03a0 Line {l1=0x18, l2=» AA:ARAR;«, l3=0x18}
0x03a0…03b7 Line {l1=0x15, l2=» A:AR;«, l3=0x15}
0x03b7…03d1 Line {l1=0x18, l2=» AAA:RAR;«, l3=0x18}
0x03d1…03e6 Line {l1=0x13, l2=» NR,«, l3=0x13}
0x03e6…03ff Line {l1=0x17, l2=» KARMNR,«, l3=0x17}
0x03ff…0420 Line {l1=0x1f, l2=» MAXMÅL:INTEGER;«, l3=0x1f}
0x0420…043e Line {l1=0x1c, l2=» RAMME:AR116;«, l3=0x1c}
0x043e…045c Line {l1=0x1c, l2=» BESLAG:AR14;«, l3=0x1c}
0x045c…0475 Line {l1=0x17, l2=» BREDDE,«, l3=0x17}
0x0475…0492 Line {l1=0x1b, l2=» HØJDE:AR13;«, l3=0x1b}
0x0492…04ae Line {l1=0x1a, l2=» TEKST:TEK;«, l3=0x1a}
0x04ae…04b1 Line {l1=0x01, l2=» «, l3=0x01}
0x04b1…04bd Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x04bd…04c0 Line {l1=0x01, l2=» «, l3=0x01}
0x04c0…04cf Line {l1=0x0d, l2=»VAR VINF:ISF;«, l3=0x0d}
0x04cf…04e4 Line {l1=0x13, l2=» VINZ:VINDUEZONE«, l3=0x13}
0x04e4…04fc Line {l1=0x16, l2=» VINDUE:VINDUEPOST;«, l3=0x16}
0x04fc…050c Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x050c…0513 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0513…0525 Line {l1=0x10, l2=» WITH VINDUE DO«, l3=0x10}
0x0525…052e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x052e…054e Line {l1=0x1e, l2=» OWRITE(VINZ.H,VINF,2,LÆS);«, l3=0x1e}
0x054e…055c Line {l1=0x0c, l2=» NR:=NR1;«, l3=0x0c}
0x055c…0578 Line {l1=0x1a, l2=» GETREC(VINZ.H,VINF,A);«, l3=0x1a}
0x0578…05a2 Line {l1=0x28, l2=» IF IER<>0 THEN IOF(VINZ.H.FILENAME);«, l3=0x28}
0x05a2…05b4 Line {l1=0x10, l2=» VKA:=KARMNR;«, l3=0x10}
0x05b4…05e0 Line {l1=0x2a, l2=» FOR I:=1 TO 16 DO RAM(I) NR:=RAMME(I);«, l3=0x2a}
0x05e0…05fa Line {l1=0x18, l2=» ICLOSE(VINZ.H,VINF);«, l3=0x18}
0x05fa…0603 Line {l1=0x07, l2=» END; «, l3=0x07}
0x0603…0609 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0609…060c Line {l1=0x01, l2=» «, l3=0x01}
0x060c…063f Line {l1=0x31, l2=»PROCEDURE HENTFARVE(VAR FA:AFARVTYP;OFA:DOBBTAL);«, l3=0x31}
0x063f…0642 Line {l1=0x01, l2=» «, l3=0x01}
0x0642…0659 Line {l1=0x15, l2=»TYPE FARVEZONE=RECORD«, l3=0x15}
0x0659…0674 Line {l1=0x19, l2=» H=ISFHEAD;«, l3=0x19}
0x0674…06a4 Line {l1=0x2e, l2=» T:ARRAY(1..MFARVEZ) OF INTEGER;«, l3=0x2e}
0x06a4…06a7 Line {l1=0x01, l2=» «, l3=0x01}
0x06a7…06b2 Line {l1=0x09, l2=» END;«, l3=0x09}
0x06b2…06b5 Line {l1=0x01, l2=» «, l3=0x01}
0x06b5…06cc Line {l1=0x15, l2=» FARVEPOST=RECORD«, l3=0x15}
0x06cc…06e5 Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x06e5…06fb Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x06fb…0714 Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x0714…0733 Line {l1=0x1d, l2=» FARVE:GLASTYP;«, l3=0x1d}
0x0733…074e Line {l1=0x19, l2=» TEKST:TEK;«, l3=0x19}
0x074e…0751 Line {l1=0x01, l2=» «, l3=0x01}
0x0751…075d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x075d…0760 Line {l1=0x01, l2=» «, l3=0x01}
0x0760…076f Line {l1=0x0d, l2=»VAR FARF:ISF;«, l3=0x0d}
0x076f…0784 Line {l1=0x13, l2=» FARZ:FARVEZONE;«, l3=0x13}
0x0784…079a Line {l1=0x14, l2=» FARVX:FARVEPOST;«, l3=0x14}
0x079a…079d Line {l1=0x01, l2=» «, l3=0x01}
0x079d…07a4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07a4…07b5 Line {l1=0x0f, l2=» WITH FARVX DO«, l3=0x0f}
0x07b5…07be Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x07be…07df Line {l1=0x1f, l2=» OWRITE(FARVZ.H,FARF,4,LÆS);«, l3=0x1f}
0x07df…07f6 Line {l1=0x15, l2=» FARVE.NR:=OFA(1);«, l3=0x15}
0x07f6…0813 Line {l1=0x1b, l2=» GETREC(FARVZ.H,FARF,A);«, l3=0x1b}
0x0813…083d Line {l1=0x28, l2=» IF IER<>0 THEN IOF(FARZ.H.FILENAME);«, l3=0x28}
0x083d…0850 Line {l1=0x11, l2=» FA(1):=FARVE;«, l3=0x11}
0x0850…086c Line {l1=0x1a, l2=» IF OFA(1)<>OFA(2) THEN«, l3=0x1a}
0x086c…0877 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0877…0890 Line {l1=0x17, l2=» FARVE.NR:=OFA(2);«, l3=0x17}
0x0890…08ae Line {l1=0x1c, l2=» GETREC(FARZ.H,FARF,A);«, l3=0x1c}
0x08ae…08d9 Line {l1=0x29, l2=» IF IER<>0 THEN IOF(FARZ.H.FILENAME)«, l3=0x29}
0x08d9…08e3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x08e3…08f6 Line {l1=0x11, l2=» FA(2):=FARVE;«, l3=0x11}
0x08f6…0910 Line {l1=0x18, l2=» ICLOSE(FARZ.H,FARF);«, l3=0x18}
0x0910…0918 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0918…091e Line {l1=0x04, l2=»END;«, l3=0x04}
0x091e…0921 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0924…0953 Line {l1=0x2d, l2=»PROCEDURE HENTGLAS(VAR GL:AGLASTYP;ART:AR13);«, l3=0x2d}
0x0953…0956 Line {l1=0x01, l2=» «, l3=0x01}
0x0956…096c Line {l1=0x14, l2=»TYPE GLASZONE=RECORD«, l3=0x14}
0x096c…0986 Line {l1=0x18, l2=» H:ISFHEAD;«, l3=0x18}
0x0986…09b4 Line {l1=0x2c, l2=» T:ARRAY(1..MGLASZ) OF INTEGER;«, l3=0x2c}
0x09b4…09bf Line {l1=0x09, l2=» END;«, l3=0x09}
0x09bf…09c2 Line {l1=0x01, l2=» «, l3=0x01}
0x09c2…09d8 Line {l1=0x14, l2=» GLASPOST=RECORD«, l3=0x14}
0x09d8…09f0 Line {l1=0x16, l2=» AA:ARAR;«, l3=0x16}
0x09f0…0a05 Line {l1=0x13, l2=» A:AR;«, l3=0x13}
0x0a05…0a1d Line {l1=0x16, l2=» AAA:RAR;«, l3=0x16}
0x0a1d…0a3a Line {l1=0x1b, l2=» GLAS:GLASTYP;«, l3=0x1b}
0x0a3a…0a54 Line {l1=0x18, l2=» TEKST:TEK;«, l3=0x18}
0x0a54…0a60 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0a60…0a63 Line {l1=0x01, l2=» «, l3=0x01}
0x0a63…0a72 Line {l1=0x0d, l2=»VAR GLAF:ISF;«, l3=0x0d}
0x0a72…0a86 Line {l1=0x12, l2=» GLAZ:GLASZONE;«, l3=0x12}
0x0a86…0a9a Line {l1=0x12, l2=» GLAX:GLASPOST;«, l3=0x12}
0x0a9a…0aaa Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x0aaa…0aad Line {l1=0x01, l2=» «, l3=0x01}
0x0aad…0ab4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ab4…0ad2 Line {l1=0x1c, l2=» OWRITE(GLAZ.H,GLAF,7,LÆS);«, l3=0x1c}
0x0ad2…0ae6 Line {l1=0x12, l2=» FOR I:=1 TO 3 DO«, l3=0x12}
0x0ae6…0aef Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0aef…0b0f Line {l1=0x1e, l2=» GL(I).NR:=0,GL(I).KODE:=0;«, l3=0x1e}
0x0b0f…0b26 Line {l1=0x15, l2=» IF ART(I)<>0 THEN«, l3=0x15}
0x0b26…0b31 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b31…0b4e Line {l1=0x1b, l2=» GLAX.GLAS.NR:=ART(I);«, l3=0x1b}
0x0b4e…0b71 Line {l1=0x21, l2=» GETREC(GLAZ.H,GLAF,GLAX.A);«, l3=0x21}
0x0b71…0b9d Line {l1=0x2a, l2=» IF IER<>0 THEN IOF(GLAZ.H.FILENAME);«, l3=0x2a}
0x0b9d…0bb5 Line {l1=0x16, l2=» GL(I)=GLAX.GLAS;«, l3=0x16}
0x0bb5…0bbf Line {l1=0x08, l2=» END;«, l3=0x08}
0x0bbf…0bc7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0bc7…0bdf Line {l1=0x16, l2=» ICLOSE(GLAZ.H,GLAF);«, l3=0x16}
0x0bdf…0be5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0be5…0be8 Line {l1=0x01, l2=» «, l3=0x01}
0x0be8…0c25 Line {l1=0x3b, l2=»PROCEDURE HENTKARM(NR1,KFA,KMONT:INTEGER;VAR AKA:AKARMTYP);«, l3=0x3b}
0x0c25…0c28 Line {l1=0x01, l2=» «, l3=0x01}
0x0c28…0c3e Line {l1=0x14, l2=»TYPE KARMZONE=RECORD«, l3=0x14}
0x0c3e…0c58 Line {l1=0x18, l2=» H:ISFHEAD;«, l3=0x18}
0x0c58…0c87 Line {l1=0x2d, l2=» T:ARRAY(1..MKARMEZ) OF INTEGER;«, l3=0x2d}
0x0c87…0c92 Line {l1=0x09, l2=» END;«, l3=0x09}
0x0c92…0c95 Line {l1=0x01, l2=» «, l3=0x01}
0x0c95…0cab Line {l1=0x14, l2=» POSTZONE=RECORD«, l3=0x14}
0x0cab…0cc5 Line {l1=0x18, l2=» H:ISFHEAD;«, l3=0x18}
0x0cc5…0cf5 Line {l1=0x2e, l2=» T:ARRAY(1..MPOSTERZ) OF INTEGER;«, l3=0x2e}
0x0cf5…0d00 Line {l1=0x09, l2=» END;«, l3=0x09}
0x0d00…0d03 Line {l1=0x01, l2=» «, l3=0x01}
0x0d03…0d19 Line {l1=0x14, l2=» KARMPOST=RECORD«, l3=0x14}
0x0d19…0d31 Line {l1=0x16, l2=» AA:ARAR;«, l3=0x16}
0x0d31…0d46 Line {l1=0x13, l2=» A:AR;«, l3=0x13}
0x0d46…0d5e Line {l1=0x16, l2=» AAA:RAR;«, l3=0x16}
0x0d5e…0d79 Line {l1=0x19, l2=» NR:INTEGER;«, l3=0x19}
0x0d79…0d93 Line {l1=0x18, l2=» ØFORSTÆRK,«, l3=0x18}
0x0d93…0dac Line {l1=0x17, l2=» NFORSTÆRK«, l3=0x17}
0x0dac…0dc6 Line {l1=0x18, l2=» FFORSTÆRK,«, l3=0x18}
0x0dc6…0de4 Line {l1=0x1c, l2=» BFOSTÆRK:AR13;«, l3=0x1c}
0x0de4…0dfe Line {l1=0x18, l2=» TYPE:AR14;«, l3=0x18}
0x0dfe…0e1d Line {l1=0x1d, l2=» TÆTGUM:INTEGER;«, l3=0x1d}
0x0e1d…0e37 Line {l1=0x18, l2=» TEKST:TEK;«, l3=0x18}
0x0e37…0e43 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0e43…0e46 Line {l1=0x01, l2=» «, l3=0x01}
0x0e46…0e5d Line {l1=0x15, l2=» POSTPOST=RECORD«, l3=0x15}
0x0e5d…0e76 Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x0e76…0e8c Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x0e8c…0ea5 Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x0ea5…0ebd Line {l1=0x16, l2=» KARMNR,«, l3=0x16}
0x0ebd…0ed1 Line {l1=0x12, l2=» NR,«, l3=0x12}
0x0ed1…0eea Line {l1=0x17, l2=» VANDLOD,«, l3=0x17}
0x0eea…0f01 Line {l1=0x15, l2=» GÅFRA,«, l3=0x15}
0x0f01…0f18 Line {l1=0x15, l2=» GÅTIL,«, l3=0x15}
0x0f18…0f37 Line {l1=0x1d, l2=» PLACE:INTEGER;«, l3=0x1d}
0x0f37…0f56 Line {l1=0x1d, l2=» FORSTÆRK:AR13;«, l3=0x1d}
0x0f56…0f73 Line {l1=0x1b, l2=» TYP:INTEGER;«, l3=0x1b}
0x0f73…0f7f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0f7f…0f82 Line {l1=0x01, l2=» «, l3=0x01}
0x0f82…0f96 Line {l1=0x12, l2=»VAR KARF,POSF:ISF;«, l3=0x12}
0x0f96…0faa Line {l1=0x12, l2=» KARZ:KARMZONE;«, l3=0x12}
0x0faa…0fbe Line {l1=0x12, l2=» POSZ:POSTZONE;«, l3=0x12}
0x0fbe…0fd2 Line {l1=0x12, l2=» KARM:KARMPOST;«, l3=0x12}
0x0fd2…0fe6 Line {l1=0x12, l2=» POST:POSTPOST;«, l3=0x12}
0x0fe6…0ffa Line {l1=0x12, l2=» REGEL:INTEGER;«, l3=0x12}
0x0ffa…100d Line {l1=0x11, l2=» I1,I:INTEGER;«, l3=0x11}
0x100d…1010 Line {l1=0x01, l2=» «, l3=0x01}
0x1010…1017 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1017…1024 Line {l1=0x0b, l2=» REGEL:=3;«, l3=0x0b}
0x1024…1037 Line {l1=0x11, l2=» IF KMONT=0 THEN«, l3=0x11}
0x1037…1040 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1040…104e Line {l1=0x0c, l2=» REGEL:=2«, l3=0x0c}
0x104e…106b Line {l1=0x1b, l2=» IF KFA=0 THEN REGEL:=1;«, l3=0x1b}
0x106b…1073 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1073…1083 Line {l1=0x0e, l2=» WITH KARM DO«, l3=0x0e}
0x1083…108c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x108c…10ac Line {l1=0x1e, l2=» OWRITE(KARZ.H,KARF,3,LÆS);«, l3=0x1e}
0x10ac…10ba Line {l1=0x0c, l2=» NR:=NR1;«, l3=0x0c}
0x10ba…10d6 Line {l1=0x1a, l2=» GETREC(KARZ.H,KARF,A);«, l3=0x1a}
0x10d6…1100 Line {l1=0x28, l2=» IF IER<>0 THEN IOF(KARZ.H.FILENAME);«, l3=0x28}
0x1100…1116 Line {l1=0x14, l2=» FOR I:=1 TO 4 DO«, l3=0x14}
0x1116…1121 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1121…1146 Line {l1=0x23, l2=» AKA(I).PLACE:=((I+1)MOD 2)*4;«, l3=0x23}
0x1146…115c Line {l1=0x14, l2=» AKA(I).FRA:=0;«, l3=0x14}
0x115c…1172 Line {l1=0x14, l2=» AKA(I).TIL:=4;«, l3=0x14}
0x1172…118f Line {l1=0x1b, l2=» AKA(I).TYPE:=TYPE(I);«, l3=0x1b}
0x118f…11af Line {l1=0x1e, l2=» AKA(I).VANDLOD:=I DIV 3;«, l3=0x1e}
0x11af…11de Line {l1=0x2d, l2=» FOR I1:=1 TO 8 DO AKA(I).BESLAG(I1):=0;«, l3=0x2d}
0x11de…11e8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x11e8…1210 Line {l1=0x26, l2=» AKA(1).FORSTÆRK:=ØFORSTÆRK(REGEL);«, l3=0x26}
0x1210…1238 Line {l1=0x26, l2=» AKA(2).FORSTÆRK:=NFORSTÆRK(REGEL);«, l3=0x26}
0x1238…1260 Line {l1=0x26, l2=» AKA(3).FORSTÆRK:=FFORSTÆRK(REGEL);«, l3=0x26}
0x1260…1288 Line {l1=0x26, l2=» AKA(4).FORSTÆRK:=BFORSTÆRK(REGEL);«, l3=0x26}
0x1288…12a2 Line {l1=0x18, l2=» ICLOSE(KARZ.H,KARF);«, l3=0x18}
0x12a2…12aa Line {l1=0x06, l2=» END;«, l3=0x06}
0x12aa…12ba Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x12ba…12c3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x12c3…12e4 Line {l1=0x1f, l2=» OWRITE(POSZ.H,POSF,11,LÆS);«, l3=0x1f}
0x12e4…12f6 Line {l1=0x10, l2=» KARMNR:=NR1;«, l3=0x10}
0x12f6…130e Line {l1=0x16, l2=» FOR NR:=1 TO 15 DO«, l3=0x16}
0x130e…1319 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1319…1337 Line {l1=0x1c, l2=» GETREC(POSZ.H,POSF,A);«, l3=0x1c}
0x1337…1373 Line {l1=0x3a, l2=» IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);«, l3=0x3a}
0x1373…1388 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1388…1395 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1395…13c3 Line {l1=0x2c, l2=» AKA(NR+4).FORSTÆRK:=FORSTÆRK(REGEL);«, l3=0x2c}
0x13c3…13e4 Line {l1=0x1f, l2=» AKA(NR+4).PLACE:=PLACE;«, l3=0x1f}
0x13e4…1403 Line {l1=0x1d, l2=» AKA(NR+4).FRA:=GÅFRA;«, l3=0x1d}
0x1403…1422 Line {l1=0x1d, l2=» AKA(NR+4).TIL:=GÅTIL;«, l3=0x1d}
0x1422…1442 Line {l1=0x1e, l2=» AKA(NR+4).TYPE:=TYP+2;«, l3=0x1e}
0x1442…1467 Line {l1=0x23, l2=» AKA(NR+4).VANDLOD:=VANDLOD;«, l3=0x23}
0x1467…149a Line {l1=0x31, l2=» FORI1:=1 TO 8 DO AKA(NR+4).BESLAG(I1):=0;«, l3=0x31}
0x149a…14a5 Line {l1=0x09, l2=» END«, l3=0x09}
0x14a5…14b1 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x14b1…14be Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x14be…14e1 Line {l1=0x21, l2=» AKA(NR+4).TYPE:=0;IER:=0;«, l3=0x21}
0x14e1…14ed Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x14ed…14f7 Line {l1=0x08, l2=» END;«, l3=0x08}
0x14f7…1511 Line {l1=0x18, l2=» ICLOSE(POSZ.H,POSF);«, l3=0x18}
0x1511…1519 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1519…151f Line {l1=0x04, l2=»END;«, l3=0x04}
0x151f…1522 Line {l1=0x01, l2=» «, l3=0x01}
0x1522…1561 Line {l1=0x3d, l2=»PROCEDURE HENTTILBEHØR(VAR PR:APROFILTYP;GL:AGLASTYP;VAR ATI:«, l3=0x3d}
0x1561…1588 Line {l1=0x25, l2=» ATILBEHØRTYP);«, l3=0x25}
0x1588…158b Line {l1=0x01, l2=» «, l3=0x01}
0x158b…15a3 Line {l1=0x16, l2=»TYPE TILBEHZONE=RECORD«, l3=0x16}
0x15a3…15bf Line {l1=0x1a, l2=» H:ISFHEAD;«, l3=0x1a}
0x15bf…15f0 Line {l1=0x2f, l2=» T:ARRAY(1..MTIBEHZ) OF INTEGER;«, l3=0x2f}
0x15f0…15fb Line {l1=0x09, l2=» END;«, l3=0x09}
0x15fb…15fe Line {l1=0x01, l2=» «, l3=0x01}
0x15fe…1616 Line {l1=0x16, l2=» TILBEHPOST=RECORD«, l3=0x16}
0x1616…1630 Line {l1=0x18, l2=» AA:ARAR;«, l3=0x18}
0x1630…1647 Line {l1=0x15, l2=» A:AR;«, l3=0x15}
0x1647…1661 Line {l1=0x18, l2=» AAA:RAR;«, l3=0x18}
0x1661…1676 Line {l1=0x13, l2=» NR,«, l3=0x13}
0x1676…1691 Line {l1=0x19, l2=» GLASKODE,«, l3=0x19}
0x1691…16b4 Line {l1=0x21, l2=» GLASLIST:INTEGER;«, l3=0x21}
0x16b4…16d0 Line {l1=0x1a, l2=» GLASGUMMI,«, l3=0x1a}
0x16d0…16f8 Line {l1=0x26, l2=» GLASLISTGUMMI:DOBBTAL;«, l3=0x26}
0x16f8…1704 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1704…1707 Line {l1=0x01, l2=» «, l3=0x01}
0x1707…1717 Line {l1=0x0e, l2=»VAR TILF:ISF;«, l3=0x0e}
0x1717…172e Line {l1=0x15, l2=» TILZ:TILBEHZONE;«, l3=0x15}
0x172e…1749 Line {l1=0x19, l2=» TILBEHØR:TILBEHPOST;«, l3=0x19}
0x1749…175a Line {l1=0x0f, l2=» I1,I:INTEGER;«, l3=0x0f}
0x175a…175d Line {l1=0x01, l2=» «, l3=0x01}
0x175d…176d Line {l1=0x0e, l2=»PROCEDURE HTIL«, l3=0x0e}
0x176d…1770 Line {l1=0x01, l2=» «, l3=0x01}
0x1770…1777 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1777…178b Line {l1=0x12, l2=» WITH TILBEHØR DO«, l3=0x12}
0x178b…1794 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1794…17aa Line {l1=0x14, l2=» FOR I:=1 TO 3 DO«, l3=0x14}
0x17aa…17b5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x17b5…17d2 Line {l1=0x1b, l2=» GLASKODE:=GL(I).KODE;«, l3=0x1b}
0x17d2…17ed Line {l1=0x19, l2=» IF GLASKODE<>0 THEN«, l3=0x19}
0x17ed…17fa Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x17fa…181a Line {l1=0x1e, l2=» GETREC(TILZ.H,TILF,A);«, l3=0x1e}
0x181a…1848 Line {l1=0x2c, l2=» IF IER<>0 THEN IOF(TILZ.H.FILENAME);«, l3=0x2c}
0x1848…186f Line {l1=0x25, l2=» ATI(I+I1).GLASLIST:=GLASLIST;«, l3=0x25}
0x186f…1898 Line {l1=0x27, l2=» ATI(I+I1).GLASGUMMI:=GLASGUMMI;«, l3=0x27}
0x1898…18c9 Line {l1=0x2f, l2=» ATI(I+I1).GLASLISTGUMMI:=GLASLISTGUMMI;«, l3=0x2f}
0x18c9…18eb Line {l1=0x20, l2=» PR(I+I1+6).NR:=GLASLIST;«, l3=0x20}
0x18eb…18f6 Line {l1=0x09, l2=» END«, l3=0x09}
0x18f6…1902 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1902…190f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x190f…1940 Line {l1=0x2f, l2=» ATI(I+I1).GLASLIST:=0;PR(I+I1+6).NR:=0;«, l3=0x2f}
0x1940…194c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x194c…1956 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1956…195e Line {l1=0x06, l2=» END;«, l3=0x06}
0x195e…1964 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1964…196b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x196b…1989 Line {l1=0x1c, l2=» OWRITE(TILZ.H,TILF,9,LÆS);«, l3=0x1c}
0x1989…19a9 Line {l1=0x1e, l2=» TILBEHØR.NR:=PR(1).NR;I1:=0;«, l3=0x1e}
0x19a9…19b2 Line {l1=0x07, l2=» HTIL;«, l3=0x07}
0x19b2…19d2 Line {l1=0x1e, l2=» TILBEHØR.NR:=PR(5).NR;I1:=3;«, l3=0x1e}
0x19d2…19db Line {l1=0x07, l2=» HTIL;«, l3=0x07}
0x19db…19f3 Line {l1=0x16, l2=» ICLOSE(TILZ.H,TILF);«, l3=0x16}
0x19f3…19f9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x19f9…19fc Line {l1=0x01, l2=» «, l3=0x01}
0x19fc…1a26 Line {l1=0x28, l2=»PROCEDURE HENTPROFIL(VAR PR:APROFILTYP);«, l3=0x28}
0x1a26…1a29 Line {l1=0x01, l2=» «, l3=0x01}
0x1a29…1a41 Line {l1=0x16, l2=»TYPE PROFILZONE=RECORD«, l3=0x16}
0x1a41…1a5d Line {l1=0x1a, l2=» H:ISFHEAD;«, l3=0x1a}
0x1a5d…1a8f Line {l1=0x30, l2=» T:ARRAY(1..MPROFILZ) OF INTEGER;«, l3=0x30}
0x1a8f…1a9a Line {l1=0x09, l2=» END;«, l3=0x09}
0x1a9a…1a9d Line {l1=0x01, l2=» «, l3=0x01}
0x1a9d…1ab5 Line {l1=0x16, l2=» PROFILPOST=RECORD«, l3=0x16}
0x1ab5…1acf Line {l1=0x18, l2=» AA:ARAR;«, l3=0x18}
0x1acf…1ae6 Line {l1=0x15, l2=» A:AR;«, l3=0x15}
0x1ae6…1b00 Line {l1=0x18, l2=» AAA:RAR;«, l3=0x18}
0x1b00…1b1d Line {l1=0x1b, l2=» NR:INTEGER;«, l3=0x1b}
0x1b1d…1b38 Line {l1=0x19, l2=» DIM:AR13;«, l3=0x19}
0x1b38…1b59 Line {l1=0x1f, l2=» TÆTGUM:DOBBTAL;«, l3=0x1f}
0x1b59…1b7d Line {l1=0x22, l2=» FORSTÆRK:ADOBBTAL;«, l3=0x22}
0x1b7d…1b99 Line {l1=0x1a, l2=» TEKST:TEK;«, l3=0x1a}
0x1b99…1ba5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1ba5…1ba8 Line {l1=0x01, l2=» «, l3=0x01}
0x1ba8…1bb8 Line {l1=0x0e, l2=»VAR PROF:ISF;«, l3=0x0e}
0x1bb8…1bcf Line {l1=0x15, l2=» PROZ:PROFILZONE;«, l3=0x15}
0x1bcf…1be8 Line {l1=0x17, l2=» PROFIL:PROFILPOST;«, l3=0x17}
0x1be8…1bf9 Line {l1=0x0f, l2=» I:INTEGER;«, l3=0x0f}
0x1bf9…1bfc Line {l1=0x01, l2=» «, l3=0x01}
0x1bfc…1c03 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c03…1c15 Line {l1=0x10, l2=» WITH PROFIL DO«, l3=0x10}
0x1c15…1c1e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c1e…1c3e Line {l1=0x1e, l2=» OWRITE(PROZ.H,PROF,8,LÆS);«, l3=0x1e}
0x1c3e…1c55 Line {l1=0x15, l2=» FOR I:=1 TO 12 DO«, l3=0x15}
0x1c55…1c60 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1c60…1c75 Line {l1=0x13, l2=» NR:=PR(I).NR;«, l3=0x13}
0x1c75…1c8a Line {l1=0x13, l2=» IF NR<>0 THEN«, l3=0x13}
0x1c8a…1c97 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c97…1cb7 Line {l1=0x1e, l2=» GETREC(PROZ.H,PROF,A);«, l3=0x1e}
0x1cb7…1ce5 Line {l1=0x2c, l2=» IF IER<>0 THEN IOF(PROZ.H.FILENAME);«, l3=0x2c}
0x1ce5…1cfe Line {l1=0x17, l2=» PR(I).DIM:=DIM;«, l3=0x17}
0x1cfe…1d1d Line {l1=0x1d, l2=» PR(I).TÆTGUM:=TÆTGUM;«, l3=0x1d}
0x1d1d…1d40 Line {l1=0x21, l2=» PR(I).FORSTÆRK:=FORSTÆRK;«, l3=0x21}
0x1d40…1d4c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1d4c…1d56 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1d56…1d70 Line {l1=0x18, l2=» ICLOSE(PROZ.H,PROF);«, l3=0x18}
0x1d70…1d78 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1d78…1d7e Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d7e…1d81 Line {l1=0x01, l2=» «, l3=0x01}
0x1d81…1db5 Line {l1=0x32, l2=»PROCEDURE HENTRAMME(VAR RAM:ARAMMETYP;KA:AKARMTYP;«, l3=0x32}
0x1db5…1dee Line {l1=0x37, l2=» GLA:AGLASTYP;FA:AFARVTYP;HÆNG:AR14;«, l3=0x37}
0x1dee…1e1c Line {l1=0x2c, l2=» MONT:INTEGER;ORAM:AR13);«, l3=0x2c}
0x1e1c…1e1f Line {l1=0x01, l2=» «, l3=0x01}
0x1e1f…1e36 Line {l1=0x15, l2=»TYPE RAMMEZONE=RECORD«, l3=0x15}
0x1e36…1e51 Line {l1=0x19, l2=» H:ISFHEAD;«, l3=0x19}
0x1e51…1e81 Line {l1=0x2e, l2=» T:ARRAY(1..MRAMMEZ) OF INTEGER;«, l3=0x2e}
0x1e81…1e8c Line {l1=0x09, l2=» END;«, l3=0x09}
0x1e8c…1e8f Line {l1=0x01, l2=» «, l3=0x01}
0x1e8f…1ea6 Line {l1=0x15, l2=» RAMMEPOST=RECORD«, l3=0x15}
0x1ea6…1ebf Line {l1=0x17, l2=» AA:ARAR;«, l3=0x17}
0x1ebf…1ed5 Line {l1=0x14, l2=» A:AR;«, l3=0x14}
0x1ed5…1eee Line {l1=0x17, l2=» AAA:RAR;«, l3=0x17}
0x1eee…1f02 Line {l1=0x12, l2=» NR,«, l3=0x12}
0x1f02…1f20 Line {l1=0x1c, l2=» TYPE:INTEGER;«, l3=0x1c}
0x1f20…1f3a Line {l1=0x18, l2=» ØFORSTÆRK«, l3=0x18}
0x1f3a…1f54 Line {l1=0x18, l2=» NFORSTÆRK«, l3=0x18}
0x1f54…1f6e Line {l1=0x18, l2=» FFORSTÆRK«, l3=0x18}
0x1f6e…1f8e Line {l1=0x1e, l2=» BFORSTÆRK:AR13;«, l3=0x1e}
0x1f8e…1fa7 Line {l1=0x17, l2=» ØBESLAG,«, l3=0x17}
0x1fa7…1fc0 Line {l1=0x17, l2=» NBESLAG,«, l3=0x17}
0x1fc0…1fd9 Line {l1=0x17, l2=» FBESLAG,«, l3=0x17}
0x1fd9…1ffa Line {l1=0x1f, l2=» BBESLAG:DOBBTAL;«, l3=0x1f}
0x1ffa…201a Line {l1=0x1e, l2=» TÆTGUM:INTEGER;«, l3=0x1e}
0x201a…2035 Line {l1=0x19, l2=» TEKST:TEK;«, l3=0x19}
0x2035…2041 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2041…2044 Line {l1=0x01, l2=» «, l3=0x01}
0x2044…2054 Line {l1=0x0e, l2=»VAR RAMF:ISF;«, l3=0x0e}
0x2054…206a Line {l1=0x14, l2=» RAMZ:RAMMEZONE;«, l3=0x14}
0x206a…2081 Line {l1=0x15, l2=» RAMME:RAMMEPOST;«, l3=0x15}
0x2081…2095 Line {l1=0x12, l2=» I1,I:INTEGER;«, l3=0x12}
0x2095…2098 Line {l1=0x01, l2=» «, l3=0x01}
0x2098…20bc Line {l1=0x22, l2=»FUNCTION OMK(J,X:INTEGER):INTEGER;«, l3=0x22}
0x20bc…20bf Line {l1=0x01, l2=» «, l3=0x01}
0x20bf…20c6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20c6…20f7 Line {l1=0x2f, l2=» WHILE(RAM(I+J*X).NR=I) AND (J<4) THEN J:=J+1;«, l3=0x2f}
0x20f7…2106 Line {l1=0x0d, l2=» IF J<4 THEN«, l3=0x0d}
0x2106…2129 Line {l1=0x21, l2=» IF RAM(I+J*X).NR=0 THEN J:=4;«, l3=0x21}
0x2129…2134 Line {l1=0x09, l2=» OMK:=J;«, l3=0x09}
0x2134…213a Line {l1=0x04, l2=»END;«, l3=0x04}
0x213a…2153 Line {l1=0x17, l2=»FUNCTION FPOST:INTEGER;«, l3=0x17}
0x2153…2156 Line {l1=0x01, l2=» «, l3=0x01}
0x2156…2169 Line {l1=0x11, l2=»VAR J,J1:INTEGER;«, l3=0x11}
0x2169…216c Line {l1=0x01, l2=» «, l3=0x01}
0x216c…2173 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2173…218f Line {l1=0x1a, l2=» J:=1;J1:=3-(I1 DIV 3)*2;«, l3=0x1a}
0x218f…21cb Line {l1=0x3a, l2=» WHILE((KA(J).PLACE<>RAM(I).OMKREDS(I1)) OR (KA(J).GÅFRA>«, l3=0x3a}
0x21cb…2200 Line {l1=0x33, l2=» RAM(I).OMKREDS(J1)) OR (KA(J).GÅTIL<RAM(I).«, l3=0x33}
0x2200…222f Line {l1=0x2d, l2=» OMKREDS(J1+1))) AND (J<20) DO J:=J+1;«, l3=0x2d}
0x222f…223c Line {l1=0x0b, l2=» FPOST:=J;«, l3=0x0b}
0x223c…2242 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2242…2249 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2249…225a Line {l1=0x0f, l2=» WITH RAMME DO«, l3=0x0f}
0x225a…2263 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2263…2284 Line {l1=0x1f, l2=» OWRITE(RAMZ.H,RAMF,10,LÆS);«, l3=0x1f}
0x2284…229b Line {l1=0x15, l2=» FOR I:=1 TO 16 DO«, l3=0x15}
0x229b…22a6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x22a6…22bc Line {l1=0x14, l2=» NR:=RAM(I).NR;«, l3=0x14}
0x22bc…22d1 Line {l1=0x13, l2=» IF NR>19 THEN«, l3=0x13}
0x22d1…22de Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x22de…22fe Line {l1=0x1e, l2=» GETREC(TAMZ.H,RAMF,A);«, l3=0x1e}
0x22fe…232b Line {l1=0x2b, l2=» IF IER<>0 THEN IOF(RAMZ.H.FILNAME);«, l3=0x2b}
0x232b…234b Line {l1=0x1e, l2=» RAM(I).TÆTGUM;=TÆTGUM;«, l3=0x1e}
0x234b…2367 Line {l1=0x1a, l2=» RAM(I).TYPE:=TYPE;«, l3=0x1a}
0x2367…2377 Line {l1=0x0e, l2=» I1:=1;«, l3=0x0e}
0x2377…23ac Line {l1=0x33, l2=» WHILE (I<>ORAM(I1)) AND (I1<3) DO I1:=I1+1;«, l3=0x33}
0x23ac…23d3 Line {l1=0x25, l2=» RAM(I).GLASKODE:=GLA(I).KODE;«, l3=0x25}
0x23d3…23e3 Line {l1=0x0e, l2=» I1:=3;«, l3=0x0e}
0x23e3…23fb Line {l1=0x16, l2=» IF MONT=0 THEN«, l3=0x16}
0x23fb…240a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x240a…241c Line {l1=0x10, l2=» I1:=2;«, l3=0x10}
0x241c…2443 Line {l1=0x25, l2=» IF FA(2).KODE=0 THEN I1:=1;«, l3=0x25}
0x2443…2451 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2451…247d Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(1):=ØFORSTÆRK(I1);«, l3=0x2a}
0x247d…24a9 Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(2):=NFORSTÆRK(I1);«, l3=0x2a}
0x24a9…24d5 Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(3):=FFORSTÆRK(I1);«, l3=0x2a}
0x24d5…2501 Line {l1=0x2a, l2=» RAM(I).FORSTÆRK(4):=BFORSTÆRK(I1);«, l3=0x2a}
0x2501…2523 Line {l1=0x20, l2=» I1:=HÆNG((I-1) MOD 4+1);«, l3=0x20}
0x2523…254b Line {l1=0x26, l2=» RAM(I).BESLAG(1):=ØBESLAG(I1);«, l3=0x26}
0x254b…2573 Line {l1=0x26, l2=» RAM(I).BESLAG(2):=NBESLAG(I1);«, l3=0x26}
0x2573…259b Line {l1=0x26, l2=» RAM(I).BESLAG(3):=FBESLAG(I1);«, l3=0x26}
0x259b…25c3 Line {l1=0x26, l2=» RAM(I).BESLAG(4):=BBESLAG(I1);«, l3=0x26}
0x25c3…25ec Line {l1=0x27, l2=» RAM(I).OMKREDS(1):=(I-1) DIV 4;«, l3=0x27}
0x25ec…261a Line {l1=0x2c, l2=» RAM(I).OMKREDS(2):=OMK((I+3)DIV4,4);«, l3=0x2c}
0x261a…2643 Line {l1=0x27, l2=» RAM(I).OMKREDS(3):=(I-1) MOD 4;«, l3=0x27}
0x2643…2675 Line {l1=0x30, l2=» RAM(I).OMKREDS(4):=OMK((I-1) MOD 4+1,1);«, l3=0x30}
0x2675…26a8 Line {l1=0x31, l2=» FOR I1:=1 TO 4 DO RAM(I).POST(I1):=FPOST;«, l3=0x31}
0x26a8…26b4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x26b4…26be Line {l1=0x08, l2=» END;«, l3=0x08}
0x26be…26d8 Line {l1=0x18, l2=» ICLOSE(RAMZ.H,RAMF);«, l3=0x18}
0x26d8…26e0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x26e0…26e6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x26e6…26e9 Line {l1=0x01, l2=» «, l3=0x01}
0x26e9…26f0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26f0…271f Line {l1=0x2d, l2=» HENTKOMBI(OLINIE.VINDUENR DIV 1000,PROFIL);«, l3=0x2d}
0x271f…2754 Line {l1=0x33, l2=» HENTVINDUE(OLINIE.VINDUENR MOD 1000,RAMME,VKARM);«, l3=0x33}
0x2754…2776 Line {l1=0x20, l2=» HENTFARVE(FARVE,OLINIE.FARVE);«, l3=0x20}
0x2776…2798 Line {l1=0x20, l2=» HENTGLAS(GLAS,OLINIE.GLASART);«, l3=0x20}
0x2798…27ce Line {l1=0x34, l2=» HENTKARM(VKARM,FARVE(1).KODE,OLINIE.MONTER,VKARM);«, l3=0x34}
0x27ce…27f5 Line {l1=0x25, l2=» HENTTILBEHØR(PROFIL,GLAS,TILBEHØR);«, l3=0x25}
0x27f5…280c Line {l1=0x15, l2=» HENTPROFIL(PROFIL);«, l3=0x15}
0x280c…2846 Line {l1=0x38, l2=» HENTRAMME(RAMME,KARM,GLAS,FARVE,OLINIE.HÆNGSEL,OLINIE.«, l3=0x38}
0x2846…286b Line {l1=0x23, l2=» MONTER,OLINIE.RAMMENR);«, l3=0x23}
0x286b…2871 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2871…2880 00 00 20 20 20 20 20 20 4d 4f 4e 54 45 52 2c ┆ MONTER,┆
0x2880…28a0 4f 4c 49 4e 49 45 2e 52 41 4d 4d 45 4e 52 29 3b 23 05 20 45 4e 44 3b 05 00 00 3b 05 00 00 00 00 ┆OLINIE.RAMMENR);# END; ; ┆
0x28a0…28c0 00 00 00 00 0d 9d 18 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 20 00 00 00 00 00 ┆ P ┆
0x28c0…28e0 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 28 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 ┆ P ( P ┆
0x28e0…2900 0d 9d 30 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 38 00 00 00 00 00 11 c3 50 00 ┆ 0 P 8 P ┆
0x2900…2920 00 00 00 00 00 00 00 00 0d 9d 40 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 48 00 ┆ @ P H ┆
0x2920…2940 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 50 00 00 00 00 00 11 c3 50 00 00 00 00 00 ┆ P P P ┆
0x2940…2960 00 00 00 00 0d 9d 58 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 60 00 00 00 00 00 ┆ X P ` ┆
0x2960…2980 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 68 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 ┆ P h P ┆
0x2980…29a0 0d 9d 70 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 78 00 00 00 00 00 11 c3 50 00 ┆ p P x P ┆
0x29a0…29c0 00 00 00 00 00 00 00 00 0d 9d 80 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 88 00 ┆ P ┆
0x29c0…29e0 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d 90 00 00 00 00 00 11 c3 50 00 00 00 00 00 ┆ P P ┆
0x29e0…2a00 00 00 00 00 0d 9d 98 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d a0 00 00 00 00 00 ┆ P ┆
0x2a00…2a20 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d a8 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 ┆ P P ┆
0x2a20…2a40 0d 9d b0 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d b8 00 00 00 00 00 11 c3 50 00 ┆ P P ┆
0x2a40…2a60 00 00 00 00 00 00 00 00 0d 9d c0 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d c8 00 ┆ P ┆
0x2a60…2a80 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d d0 00 00 00 00 00 11 c3 50 00 00 00 00 00 ┆ P P ┆
0x2a80…2aa0 00 00 00 00 0d 9d d8 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d e0 00 00 00 00 00 ┆ P ┆
0x2aa0…2ac0 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d e8 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 ┆ P P ┆
0x2ac0…2ae0 0d 9d f0 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9d f8 00 00 00 00 00 11 c3 50 00 ┆ P P ┆
0x2ae0…2b00 00 00 00 00 00 00 00 00 0d 9e 00 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 08 00 ┆ P ┆
0x2b00…2b20 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 10 00 00 00 00 00 11 c3 50 00 00 00 00 00 ┆ P P ┆
0x2b20…2b40 00 00 00 00 0d 9e 18 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 20 00 00 00 00 00 ┆ P ┆
0x2b40…2b60 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 28 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 ┆ P ( P ┆
0x2b60…2b80 0d 9e 30 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 38 00 00 00 00 00 11 c3 50 00 ┆ 0 P 8 P ┆
0x2b80…2ba0 00 00 00 00 00 00 00 00 0d 9e 40 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 48 00 ┆ @ P H ┆
0x2ba0…2bc0 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 50 00 00 00 00 00 11 c3 50 00 00 00 00 00 ┆ P P P ┆
0x2bc0…2be0 00 00 00 00 0d 9e 58 00 00 00 00 00 11 c3 50 00 00 00 00 00 00 00 00 00 0d 9e 60 00 00 00 00 63 ┆ X P ` c┆