|
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: 7488 (0x1d40)
Types: TextFile
Notes: Mikados_K
Names: »NBTOPSPL.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTOPSPL.K«
PROGRAM OPSPLIT;
CONST MPROFILZ=250;
MVINDUEZ=292;
MTILBEHZ=252;
MKARMEZ=273;
MRAMMEZ=281;
MPOSTERZ=274;
MFORSTÆZ=286;
MBREGELZ=266;
MGLASZ=245;
MFARVEZ=245;
MOPSPLIZ=385;
MOLINIEZ=344;
MKOMBIZ=241;
(*$IISFHEAD*)
PROFILZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MPROFILZ) OF INTEGER;
END;
TILBEHZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MTILBEHZ) OF INTEGER;
END;
RAMMEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MRAMMEZ) OF INTEGER;
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MPOSTERZ) OF INTEGER;
END;
STÆRKZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MFORSTÆZ) OF INTEGER;
END;
BREGELZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MBREGELZ) OF INTEGER;
END;
OPSPLITZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOPSPLIZ) OF INTEGER;
END;
OLINIEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOLINIEZ) OF INTEGER;
END;
ARAR=PACKED ARRAY(-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
AR13=ARRAY(1..3) OF INTEGER;
AR14=ARRAY(1..4) OF INTEGER;
AR15=ARRAY(1..5) OF INTEGER;
AR19=ARRAY(1..9) OF INTEGER;
AR116=ARRAY(1..16) OF INTEGER;
DOBBTAL=ARRAY(1..2) OF INTEGER;
ADOBTAL=ARRAY(1..9) OF DOBBTAL;
TEK=PACKED ARRAY(1..30) OF CHAR;
FILN=ARRAY(1..13) OF FILNAVN;
FILN1=ARRAY(1..13) OF STRING;
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
PROFILPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
DIM:AR13;
TÆTGUM:DOBBTAL;
FORSTÆR:ADOBTAL;
TEKST:TEK;
END;
TILBEHPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
GLASKODE,
GLASLIST:INTEGER;
GLASGUM,
GLASLGUM:DOBBTAL;
END;
RAMMEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
TYP:INTEGER;
FORSTÆRK,
BESLAG:AR14;
TÆTGUM:INTEGER;
VREGEL,
LREGEL:AR13;
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;
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;
OLINIEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KOSTPRIS,
SALGPRIS,
RABAT:REAL;
ORDRENR,
POSITION,
ANTAL,
VINDUENR:INTEGER;
FARVE:DOBBTAL;
RAMMENR,
GLASART:AR13;
BLAMBRED,
BLAMHØJD:INTEGER;
BREDDE:AR13;
HØJDE:AR13;
HÆNGSEL:AR14;
MONTER:INTEGER;
STATUS:INTEGER;
END;
VAR PROF,TILF,RAMF,POSF,FORF,BREF,OPSF,
OLIF:ISF;
PROZ:PROFILZONE;
TILZ:TILBEHZONE;
RAMZ:RAMMEZONE;
POSZ:POSTZONE;
FORZ:STÆRKZONE;
BREZ:BREGELZONE;
OPSZ:OPSPLITZONE;
OLIZ:OLINIEZONE;
KPROFIL,KPPROFIL,RPROFIL,GPROFIL:PROFILPOST;
TILBEHØR:TILBEHPOST;
RAMME:RAMMEPOST;
POST:POSTPOST;
OPSPLIT:OPSPLITPOST;
OLINIE:OLINIEPOST;
(********************************************************)
I1,POS,TYPER,TYPE2,
MÅL,LÆNGDE,HØJDE,BREDDE,
FAKODE,FANR,
REGELNR,STÆRKR1,STÆRKR2,STÆRKR,
DK,DKP,PLACERING,
ORDRENUM,IER:INTEGER;
TYPE1,KGUMMI,NULLER,TYPE3:DOBBTAL;
CH:CHAR;
FILER:FILN;
FILEN:FILN1;
FNAVN:STRING;
PARM:^PARMARRAY;
QUQ:^INTEGER;
(*$R-,IFORWARD*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INBTLUK*)
(*$INBTFEJL*)
(*$INBTPROC*)
(*$INBTBEREG*)
(*$INBTMAIN*)
(*$INBTHOVED*)
0x0000…0012 Line {l1=0x10, l2=»PROGRAM OPSPLIT;«, l3=0x10}
0x0012…0027 Line {l1=0x13, l2=»CONST MPROFILZ=250;«, l3=0x13}
0x0027…003c Line {l1=0x13, l2=» MVINDUEZ=292;«, l3=0x13}
0x003c…0051 Line {l1=0x13, l2=» MTILBEHZ=252;«, l3=0x13}
0x0051…0065 Line {l1=0x12, l2=» MKARMEZ=273;«, l3=0x12}
0x0065…0079 Line {l1=0x12, l2=» MRAMMEZ=281;«, l3=0x12}
0x0079…008e Line {l1=0x13, l2=» MPOSTERZ=274;«, l3=0x13}
0x008e…00a3 Line {l1=0x13, l2=» MFORSTÆZ=286;«, l3=0x13}
0x00a3…00b8 Line {l1=0x13, l2=» MBREGELZ=266;«, l3=0x13}
0x00b8…00cb Line {l1=0x11, l2=» MGLASZ=245;«, l3=0x11}
0x00cb…00df Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x00df…00f4 Line {l1=0x13, l2=» MOPSPLIZ=385;«, l3=0x13}
0x00f4…0109 Line {l1=0x13, l2=» MOLINIEZ=344;«, l3=0x13}
0x0109…011d Line {l1=0x12, l2=» MKOMBIZ=241;«, l3=0x12}
0x011d…012c Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x012c…013f Line {l1=0x11, l2=»PROFILZONE=RECORD«, l3=0x11}
0x013f…0156 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0156…0183 Line {l1=0x2b, l2=» T:ARRAY(1..MPROFILZ) OF INTEGER;«, l3=0x2b}
0x0183…0189 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0189…018c Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x018f…01a2 Line {l1=0x11, l2=»TILBEHZONE=RECORD«, l3=0x11}
0x01a2…01b9 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x01b9…01e6 Line {l1=0x2b, l2=» T:ARRAY(1..MTILBEHZ) OF INTEGER;«, l3=0x2b}
0x01e6…01ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x01ec…01ef Line {l1=0x01, l2=» «, l3=0x01}
0x01ef…0201 Line {l1=0x10, l2=»RAMMEZONE=RECORD«, l3=0x10}
0x0201…0217 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x0217…0242 Line {l1=0x29, l2=» T:ARRAY(1..MRAMMEZ) OF INTEGER;«, l3=0x29}
0x0242…0248 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0248…024b Line {l1=0x01, l2=» «, l3=0x01}
0x024b…025c Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x025c…0271 Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x0271…029c Line {l1=0x29, l2=» T:ARRAY(1..MPOSTERZ) OF INTEGER;«, l3=0x29}
0x029c…02a2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02a2…02a5 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x02a8…02ba Line {l1=0x10, l2=»STÆRKZONE=RECORD«, l3=0x10}
0x02ba…02d3 Line {l1=0x17, l2=» H:ISFHEAD;«, l3=0x17}
0x02d3…0302 Line {l1=0x2d, l2=» T:ARRAY(1..MFORSTÆZ) OF INTEGER;«, l3=0x2d}
0x0302…0308 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0308…030b Line {l1=0x01, l2=» «, l3=0x01}
0x030b…031e Line {l1=0x11, l2=»BREGELZONE=RECORD«, l3=0x11}
0x031e…0335 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0335…0362 Line {l1=0x2b, l2=» T:ARRAY(1..MBREGELZ) OF INTEGER;«, l3=0x2b}
0x0362…0368 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0368…036b Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x036e…0382 Line {l1=0x12, l2=»OPSPLITZONE=RECORD«, l3=0x12}
0x0382…039a Line {l1=0x16, l2=» H:ISFHEAD;«, l3=0x16}
0x039a…03c8 Line {l1=0x2c, l2=» T:ARRAY(1..MOPSPLIZ) OF INTEGER;«, l3=0x2c}
0x03c8…03ce Line {l1=0x04, l2=»END;«, l3=0x04}
0x03ce…03d1 Line {l1=0x01, l2=» «, l3=0x01}
0x03d1…03e4 Line {l1=0x11, l2=»OLINIEZONE=RECORD«, l3=0x11}
0x03e4…03fb Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x03fb…0428 Line {l1=0x2b, l2=» T:ARRAY(1..MOLINIEZ) OF INTEGER;«, l3=0x2b}
0x0428…042e Line {l1=0x04, l2=»END;«, l3=0x04}
0x042e…0431 Line {l1=0x01, l2=» «, l3=0x01}
0x0431…0457 Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x0457…0472 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0472…0490 Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x0490…04ae Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x04ae…04cc Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x04cc…04ea Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x04ea…050a Line {l1=0x1e, l2=»AR116=ARRAY(1..16) OF INTEGER;«, l3=0x1e}
0x050a…050d Line {l1=0x01, l2=» «, l3=0x01}
0x050d…052e Line {l1=0x1f, l2=»DOBBTAL=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x052e…0531 Line {l1=0x01, l2=» «, l3=0x01}
0x0531…0552 Line {l1=0x1f, l2=»ADOBTAL=ARRAY(1..9) OF DOBBTAL;«, l3=0x1f}
0x0552…0555 Line {l1=0x01, l2=» «, l3=0x01}
0x0555…0577 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x0577…057a Line {l1=0x01, l2=» «, l3=0x01}
0x057a…0599 Line {l1=0x1d, l2=»FILN=ARRAY(1..13) OF FILNAVN;«, l3=0x1d}
0x0599…059c Line {l1=0x01, l2=» «, l3=0x01}
0x059c…05bb Line {l1=0x1d, l2=»FILN1=ARRAY(1..13) OF STRING;«, l3=0x1d}
0x05bb…05be Line {l1=0x01, l2=» «, l3=0x01}
0x05be…05e7 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x05e7…05fa Line {l1=0x11, l2=»PROFILPOST=RECORD«, l3=0x11}
0x05fa…060f Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x060f…0621 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x0621…0636 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x0636…064e Line {l1=0x16, l2=» NR:INTEGER;«, l3=0x16}
0x064e…0664 Line {l1=0x14, l2=» DIM:AR13;«, l3=0x14}
0x0664…0680 Line {l1=0x1a, l2=» TÆTGUM:DOBBTAL;«, l3=0x1a}
0x0680…069d Line {l1=0x1b, l2=» FORSTÆR:ADOBTAL;«, l3=0x1b}
0x069d…06b4 Line {l1=0x15, l2=» TEKST:TEK;«, l3=0x15}
0x06b4…06ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x06ba…06bd Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x06c0…06d3 Line {l1=0x11, l2=»TILBEHPOST=RECORD«, l3=0x11}
0x06d3…06ea Line {l1=0x15, l2=» AA:ARAR;«, l3=0x15}
0x06ea…06fe Line {l1=0x12, l2=» A:AR;«, l3=0x12}
0x06fe…0715 Line {l1=0x15, l2=» AAA:RAR;«, l3=0x15}
0x0715…0727 Line {l1=0x10, l2=» NR,«, l3=0x10}
0x0727…073f Line {l1=0x16, l2=» GLASKODE,«, l3=0x16}
0x073f…075f Line {l1=0x1e, l2=» GLASLIST:INTEGER;«, l3=0x1e}
0x075f…0776 Line {l1=0x15, l2=» GLASGUM,«, l3=0x15}
0x0776…0796 Line {l1=0x1e, l2=» GLASLGUM:DOBBTAL;«, l3=0x1e}
0x0796…079c Line {l1=0x04, l2=»END;«, l3=0x04}
0x079c…079f Line {l1=0x01, l2=» «, l3=0x01}
0x079f…07b1 Line {l1=0x10, l2=»RAMMEPOST=RECORD«, l3=0x10}
0x07b1…07c5 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x07c5…07d6 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x07d6…07ea Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x07ea…07f9 Line {l1=0x0d, l2=» NR,«, l3=0x0d}
0x07f9…0811 Line {l1=0x16, l2=» TYP:INTEGER;«, l3=0x16}
0x0811…0826 Line {l1=0x13, l2=» FORSTÆRK,«, l3=0x13}
0x0826…083e Line {l1=0x16, l2=» BESLAG:AR14;«, l3=0x16}
0x083e…0859 Line {l1=0x19, l2=» TÆTGUM:INTEGER;«, l3=0x19}
0x0859…086c Line {l1=0x11, l2=» VREGEL,«, l3=0x11}
0x086c…0884 Line {l1=0x16, l2=» LREGEL:AR13;«, l3=0x16}
0x0884…089a Line {l1=0x14, l2=» TEKST:TEK;«, l3=0x14}
0x089a…08a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08a0…08a3 Line {l1=0x01, l2=» «, l3=0x01}
0x08a3…08b4 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x08b4…08c7 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x08c7…08d7 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x08d7…08ea Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x08ea…08fc Line {l1=0x10, l2=» KARMNR,«, l3=0x10}
0x08fc…090a Line {l1=0x0c, l2=» NR,«, l3=0x0c}
0x090a…091d Line {l1=0x11, l2=» VANDLOD,«, l3=0x11}
0x091d…092e Line {l1=0x0f, l2=» GÅFRA,«, l3=0x0f}
0x092e…093f Line {l1=0x0f, l2=» GÅTIL,«, l3=0x0f}
0x093f…0958 Line {l1=0x17, l2=» PLACE:INTEGER;«, l3=0x17}
0x0958…0971 Line {l1=0x17, l2=» FORSTÆRK:AR13;«, l3=0x17}
0x0971…0988 Line {l1=0x15, l2=» TYP:INTEGER;«, l3=0x15}
0x0988…098e Line {l1=0x04, l2=»END;«, l3=0x04}
0x098e…0991 Line {l1=0x01, l2=» «, l3=0x01}
0x0991…09a5 Line {l1=0x12, l2=»OPSPLITPOST=RECORD«, l3=0x12}
0x09a5…09bb Line {l1=0x14, l2=» AA:ARAR;«, l3=0x14}
0x09bb…09ce Line {l1=0x11, l2=» A:AR;«, l3=0x11}
0x09ce…09e4 Line {l1=0x14, l2=» AAA:RAR;«, l3=0x14}
0x09e4…09fa Line {l1=0x14, l2=» ORDRENR,«, l3=0x14}
0x09fa…0a0c Line {l1=0x10, l2=» TYP,«, l3=0x10}
0x0a0c…0a23 Line {l1=0x15, l2=» POSITION,«, l3=0x15}
0x0a23…0a39 Line {l1=0x14, l2=» RAMMENR,«, l3=0x14}
0x0a39…0a4e Line {l1=0x13, l2=» PLACER,«, l3=0x13}
0x0a4e…0a6a Line {l1=0x1a, l2=» ANTAL:INTEGER;«, l3=0x1a}
0x0a6a…0a87 Line {l1=0x1b, l2=» TYPENR:DOBBTAL;«, l3=0x1b}
0x0a87…0aa3 Line {l1=0x1a, l2=» FARVE:INTEGER;«, l3=0x1a}
0x0aa3…0abf Line {l1=0x1a, l2=» FTYPE:DOBBTAL;«, l3=0x1a}
0x0abf…0ad5 Line {l1=0x14, l2=» FLÆNGDE,«, l3=0x14}
0x0ad5…0aeb Line {l1=0x14, l2=» SLÆNGDE,«, l3=0x14}
0x0aeb…0b02 Line {l1=0x15, l2=» BESLAGNR,«, l3=0x15}
0x0b02…0b20 Line {l1=0x1c, l2=» HÆNGSEL:INTEGER;«, l3=0x1c}
0x0b20…0b35 Line {l1=0x13, l2=» GUMMI1,«, l3=0x13}
0x0b35…0b52 Line {l1=0x1b, l2=» GUMMI2:DOBBTAL;«, l3=0x1b}
0x0b52…0b6f Line {l1=0x1b, l2=» STATUS:INTEGER;«, l3=0x1b}
0x0b6f…0b75 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b75…0b78 Line {l1=0x01, l2=» «, l3=0x01}
0x0b78…0b8b Line {l1=0x11, l2=»OLINIEPOST=RECORD«, l3=0x11}
0x0b8b…0ba0 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x0ba0…0bb2 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x0bb2…0bc7 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x0bc7…0bdd Line {l1=0x14, l2=» KOSTPRIS,«, l3=0x14}
0x0bdd…0bf3 Line {l1=0x14, l2=» SALGPRIS,«, l3=0x14}
0x0bf3…0c0b Line {l1=0x16, l2=» RABAT:REAL;«, l3=0x16}
0x0c0b…0c20 Line {l1=0x13, l2=» ORDRENR,«, l3=0x13}
0x0c20…0c36 Line {l1=0x14, l2=» POSITION,«, l3=0x14}
0x0c36…0c49 Line {l1=0x11, l2=» ANTAL,«, l3=0x11}
0x0c49…0c67 Line {l1=0x1c, l2=» VINDUENR:INTEGER;«, l3=0x1c}
0x0c67…0c82 Line {l1=0x19, l2=» FARVE:DOBBTAL;«, l3=0x19}
0x0c82…0c97 Line {l1=0x13, l2=» RAMMENR,«, l3=0x13}
0x0c97…0cb1 Line {l1=0x18, l2=» GLASART:AR13;«, l3=0x18}
0x0cb1…0cc7 Line {l1=0x14, l2=» BLAMBRED,«, l3=0x14}
0x0cc7…0ce5 Line {l1=0x1c, l2=» BLAMHØJD:INTEGER;«, l3=0x1c}
0x0ce5…0cfe Line {l1=0x17, l2=» BREDDE:AR13;«, l3=0x17}
0x0cfe…0d16 Line {l1=0x16, l2=» HØJDE:AR13;«, l3=0x16}
0x0d16…0d30 Line {l1=0x18, l2=» HÆNGSEL:AR14;«, l3=0x18}
0x0d30…0d4c Line {l1=0x1a, l2=» MONTER:INTEGER;«, l3=0x1a}
0x0d4c…0d68 Line {l1=0x1a, l2=» STATUS:INTEGER;«, l3=0x1a}
0x0d68…0d6e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d6e…0d71 Line {l1=0x01, l2=» «, l3=0x01}
0x0d71…0d9a Line {l1=0x27, l2=»VAR PROF,TILF,RAMF,POSF,FORF,BREF,OPSF,«, l3=0x27}
0x0d9a…0da9 Line {l1=0x0d, l2=» OLIF:ISF;«, l3=0x0d}
0x0da9…0dbf Line {l1=0x14, l2=» PROZ:PROFILZONE;«, l3=0x14}
0x0dbf…0dd5 Line {l1=0x14, l2=» TILZ:TILBEHZONE;«, l3=0x14}
0x0dd5…0dea Line {l1=0x13, l2=» RAMZ:RAMMEZONE;«, l3=0x13}
0x0dea…0dfe Line {l1=0x12, l2=» POSZ:POSTZONE;«, l3=0x12}
0x0dfe…0e13 Line {l1=0x13, l2=» FORZ:STÆRKZONE;«, l3=0x13}
0x0e13…0e29 Line {l1=0x14, l2=» BREZ:BREGELZONE;«, l3=0x14}
0x0e29…0e40 Line {l1=0x15, l2=» OPSZ:OPSPLITZONE;«, l3=0x15}
0x0e40…0e56 Line {l1=0x14, l2=» OLIZ:OLINIEZONE;«, l3=0x14}
0x0e56…0e88 Line {l1=0x30, l2=» KPROFIL,KPPROFIL,RPROFIL,GPROFIL:PROFILPOST;«, l3=0x30}
0x0e88…0ea2 Line {l1=0x18, l2=» TILBEHØR:TILBEHPOST;«, l3=0x18}
0x0ea2…0eb8 Line {l1=0x14, l2=» RAMME:RAMMEPOST;«, l3=0x14}
0x0eb8…0ecc Line {l1=0x12, l2=» POST:POSTPOST;«, l3=0x12}
0x0ecc…0ee6 Line {l1=0x18, l2=» OPSPLIT:OPSPLITPOST;«, l3=0x18}
0x0ee6…0efe Line {l1=0x16, l2=» OLINIE:OLINIEPOST;«, l3=0x16}
0x0efe…0f3e Line {l1=0x3e, l2=» (********************************************************)«, l3=0x3e}
0x0f3e…0f57 Line {l1=0x17, l2=» I1,POS,TYPER,TYPE2,«, l3=0x17}
0x0f57…0f75 Line {l1=0x1c, l2=» MÅL,LÆNGDE,HØJDE,BREDDE,«, l3=0x1c}
0x0f75…0f87 Line {l1=0x10, l2=» FAKODE,FANR,«, l3=0x10}
0x0f87…0fac Line {l1=0x23, l2=» REGELNR,STÆRKR1,STÆRKR2,STÆRKR,«, l3=0x23}
0x0fac…0fc3 Line {l1=0x15, l2=» DK,DKP,PLACERING,«, l3=0x15}
0x0fc3…0fde Line {l1=0x19, l2=» ORDRENUM,IER:INTEGER;«, l3=0x19}
0x0fde…1006 Line {l1=0x26, l2=» TYPE1,KGUMMI,NULLER,TYPE3:DOBBTAL;«, l3=0x26}
0x1006…1014 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x1014…1025 Line {l1=0x0f, l2=» FILER:FILN;«, l3=0x0f}
0x1025…1037 Line {l1=0x10, l2=» FILEN:FILN1;«, l3=0x10}
0x1037…104a Line {l1=0x11, l2=» FNAVN:STRING;«, l3=0x11}
0x104a…1060 Line {l1=0x14, l2=» PARM:^PARMARRAY;«, l3=0x14}
0x1060…1073 Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x1073…1076 Line {l1=0x01, l2=» «, l3=0x01}
0x1076…1088 Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x1088…1095 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x1095…10a3 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x10a3…10b3 Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x10b3…10c0 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x10c0…10d0 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x10d0…10e0 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x10e0…10ef Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x10ef…10fd Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x10fd…110b Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x110b…1119 Line {l1=0x0c, l2=»(*$INBTLUK*)«, l3=0x0c}
0x1119…1128 Line {l1=0x0d, l2=»(*$INBTFEJL*)«, l3=0x0d}
0x1128…1137 Line {l1=0x0d, l2=»(*$INBTPROC*)«, l3=0x0d}
0x1137…1147 Line {l1=0x0e, l2=»(*$INBTBEREG*)«, l3=0x0e}
0x1147…1156 Line {l1=0x0d, l2=»(*$INBTMAIN*)«, l3=0x0d}
0x1156…1166 Line {l1=0x0e, l2=»(*$INBTHOVED*)«, l3=0x0e}
0x1166…1180 00 00 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 57 41 52 44 2a 29 10 0b 28 2a 24 ┆ NBTHOVED*) WARD*) (*$┆
0x1180…11a0 49 49 4f 50 45 4e 2a 29 0b 0c 28 2a 24 49 49 43 4c 4f 53 45 2a 29 0c 0e 28 2a 24 49 45 58 43 4f ┆IIOPEN*) (*$IICLOSE*) (*$IEXCO┆
0x11a0…11c0 4d 43 4f 50 2a 29 0e 0b 28 2a 24 49 53 5b 54 5c 47 2a 29 0b 0e 28 2a 24 49 52 45 41 44 50 52 4f ┆MCOP*) (*$ISÆTØG*) (*$IREADPRO┆
0x11c0…11e0 43 2a 29 0e 0e 28 2a 24 49 46 49 4e 44 50 4f 53 54 2a 29 0e 0d 28 2a 24 49 46 4f 52 53 4b 59 44 ┆C*) (*$IFINDPOST*) (*$IFORSKYD┆
0x11e0…1200 2a 29 0d 0c 28 2a 24 49 50 55 54 47 45 54 2a 29 0c 0c 28 2a 24 49 49 4e 53 45 52 54 2a 29 0c 0c ┆*) (*$IPUTGET*) (*$IINSERT*) ┆
0x1200…1220 28 2a 24 49 4e 42 54 4c 55 4b 2a 29 0c 0d 28 2a 24 49 4e 42 54 46 45 4a 4c 2a 29 0d 0d 28 2a 24 ┆(*$INBTLUK*) (*$INBTFEJL*) (*$┆
0x1220…1240 49 4e 42 54 50 52 4f 43 2a 29 0d 0e 28 2a 24 49 4e 42 54 42 45 52 45 47 2a 29 0e 0d 28 2a 24 49 ┆INBTPROC*) (*$INBTBEREG*) (*$I┆
0x1240…1260 4e 42 54 4d 41 49 4e 2a 29 0d 0e 28 2a 24 49 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 29 0e 00 00 ┆NBTMAIN*) (*$INBTHOVED*) ) ┆
0x1260…1280 4c 41 43 45 52 49 4e 47 2c 15 19 20 20 20 20 4f 52 44 52 45 4e 55 4d 2c 49 45 52 3a 49 4e 54 45 ┆LACERING, ORDRENUM,IER:INTE┆
0x1280…12a0 47 45 52 3b 19 26 20 20 20 20 54 59 50 45 31 2c 4b 47 55 4d 4d 49 2c 4e 55 4c 4c 45 52 2c 54 59 ┆GER; & TYPE1,KGUMMI,NULLER,TY┆
0x12a0…12c0 50 45 33 3a 44 4f 42 42 54 41 4c 3b 26 0c 20 20 20 20 43 48 3a 43 48 41 52 3b 0c 0f 20 20 20 20 ┆PE3:DOBBTAL;& CH:CHAR; ┆
0x12c0…12e0 46 49 4c 45 52 3a 46 49 4c 4e 3b 0f 01 20 01 10 28 2a 24 52 2d 2c 49 46 4f 52 57 41 52 44 2a 29 ┆FILER:FILN; (*$R-,IFORWARD*)┆
0x12e0…1300 10 0b 28 2a 24 49 49 4f 50 45 4e 2a 29 0b 0c 28 2a 24 49 49 43 4c 4f 53 45 2a 29 0c 0e 28 2a 24 ┆ (*$IIOPEN*) (*$IICLOSE*) (*$┆
0x1300…1320 49 45 58 43 4f 4d 43 4f 50 2a 29 0e 0b 28 2a 24 49 53 5b 54 5c 47 2a 29 0b 0e 28 2a 24 49 52 45 ┆IEXCOMCOP*) (*$ISÆTØG*) (*$IRE┆
0x1320…1340 41 44 50 52 4f 43 2a 29 0e 0e 28 2a 24 49 46 49 4e 44 50 4f 53 54 2a 29 0e 0d 28 2a 24 49 46 4f ┆ADPROC*) (*$IFINDPOST*) (*$IFO┆
0x1340…1360 52 53 4b 59 44 2a 29 0d 0c 28 2a 24 49 50 55 54 47 45 54 2a 29 0c 0c 28 2a 24 49 49 4e 53 45 52 ┆RSKYD*) (*$IPUTGET*) (*$IINSER┆
0x1360…1380 54 2a 29 0c 0d 28 2a 24 49 4e 42 54 50 52 4f 43 2a 29 0d 0e 28 2a 24 49 4e 42 54 42 45 52 45 47 ┆T*) (*$INBTPROC*) (*$INBTBEREG┆
0x1380…13a0 2a 29 0e 0d 28 2a 24 49 4e 42 54 4d 41 49 4e 2a 29 0d 0e 28 2a 24 49 4e 42 54 48 4f 56 45 44 2a ┆*) (*$INBTMAIN*) (*$INBTHOVED*┆
0x13a0…13c0 29 0e 00 00 53 54 3b 18 12 20 20 20 20 4b 41 52 4d 3a 4b 41 52 4d 50 4f 53 54 3b 12 14 20 20 20 ┆) ST; KARM:KARMPOST; ┆
0x13c0…13e0 20 52 41 4d 4d 45 3a 52 41 4d 4d 45 50 4f 53 54 3b 14 12 20 20 20 20 50 4f 53 54 3a 50 4f 53 54 ┆ RAMME:RAMMEPOST; POST:POST┆
0x13e0…1400 50 4f 53 54 3b 12 18 20 20 20 20 4f 50 53 50 4c 49 54 3a 4f 50 53 50 4c 49 54 50 4f 53 54 3b 18 ┆POST; OPSPLIT:OPSPLITPOST; ┆
0x1400…1420 16 20 20 20 20 4f 4c 49 4e 49 45 3a 4f 4c 49 4e 49 45 50 4f 53 54 3b 16 14 20 20 20 20 4b 4f 4d ┆ OLINIE:OLINIEPOST; KOM┆
0x1420…1440 42 49 3a 4b 4f 4d 42 49 50 4f 53 54 3b 14 3e 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆BI:KOMBIPOST; > (************┆
0x1440…1460 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x1460…1480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 3e 1b 20 20 20 20 49 31 2c 49 2c 5a 2c 50 4f 53 2c 54 59 ┆************)> I1,I,Z,POS,TY┆
0x1480…14a0 50 45 52 2c 54 59 50 45 32 2c 1b 1c 20 20 20 20 4d 5d 4c 2c 4c 5b 4e 47 44 45 2c 48 5c 4a 44 45 ┆PER,TYPE2, MÅL,LÆNGDE,HØJDE┆
0x14a0…14c0 2c 42 52 45 44 44 45 2c 1c 1d 20 20 20 20 47 4c 41 53 4e 52 2c 47 4c 41 53 4b 4f 44 45 2c 47 4c ┆,BREDDE, GLASNR,GLASKODE,GL┆
0x14c0…14e0 41 53 54 59 50 45 2c 1d 2c 20 20 20 20 46 41 4b 4f 44 45 31 2c 46 41 4b 4f 44 45 32 2c 46 41 4b ┆ASTYPE, , FAKODE1,FAKODE2,FAK┆
0x14e0…1500 4f 44 45 2c 46 41 4e 52 31 2c 46 41 4e 52 32 2c 46 41 4e 52 2c 2c 23 20 20 20 20 52 45 47 45 4c ┆ODE,FANR1,FANR2,FANR,,# REGEL┆
0x1500…1520 4e 52 2c 53 54 5b 52 4b 52 31 2c 53 54 5b 52 4b 52 32 2c 53 54 5b 52 4b 52 2c 23 15 20 20 20 20 ┆NR,STÆRKR1,STÆRKR2,STÆRKR,# ┆
0x1520…1540 44 4b 2c 44 4b 50 2c 50 4c 41 43 45 52 49 4e 47 2c 15 19 20 20 20 20 4f 52 44 52 45 4e 55 4d 2c ┆DK,DKP,PLACERING, ORDRENUM,┆
0x1540…1560 49 45 52 3a 49 4e 54 45 47 45 52 3b 19 26 20 20 20 20 54 59 50 45 31 2c 4b 47 55 4d 4d 49 2c 4e ┆IER:INTEGER; & TYPE1,KGUMMI,N┆
0x1560…1580 55 4c 4c 45 52 2c 54 59 50 45 33 3a 44 4f 42 42 54 41 4c 3b 26 0c 20 20 20 20 43 48 3a 43 48 41 ┆ULLER,TYPE3:DOBBTAL;& CH:CHA┆
0x1580…15a0 52 3b 0c 01 20 01 10 28 2a 24 52 2d 2c 49 46 4f 52 57 41 52 44 2a 29 10 0b 28 2a 24 49 49 4f 50 ┆R; (*$R-,IFORWARD*) (*$IIOP┆
0x15a0…15c0 45 4e 2a 29 0b 0c 28 2a 24 49 49 43 4c 4f 53 45 2a 29 0c 0e 28 2a 24 49 45 58 43 4f 4d 43 4f 50 ┆EN*) (*$IICLOSE*) (*$IEXCOMCOP┆
0x15c0…15e0 2a 29 0e 0b 28 2a 24 49 53 5b 54 5c 47 2a 29 0b 0e 28 2a 24 49 52 45 41 44 50 52 4f 43 2a 29 0e ┆*) (*$ISÆTØG*) (*$IREADPROC*) ┆
0x15e0…1600 0e 28 2a 24 49 46 49 4e 44 50 4f 53 54 2a 29 0e 0d 28 2a 24 49 46 4f 52 53 4b 59 44 2a 29 0d 0c ┆ (*$IFINDPOST*) (*$IFORSKYD*) ┆
0x1600…1620 28 2a 24 49 50 55 54 47 45 54 2a 29 0c 0c 28 2a 24 49 49 4e 53 45 52 54 2a 29 0c 0d 28 2a 24 49 ┆(*$IPUTGET*) (*$IINSERT*) (*$I┆
0x1620…1640 4e 42 54 50 52 4f 43 2a 29 0d 0e 28 2a 24 49 4e 42 54 42 45 52 45 47 2a 29 0e 0d 28 2a 24 49 4e ┆NBTPROC*) (*$INBTBEREG*) (*$IN┆
0x1640…1660 42 54 4d 41 49 4e 2a 29 0d 0e 28 2a 24 49 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 5c 52 3a 54 49 ┆BTMAIN*) (*$INBTHOVED*) ØR:TI┆
0x1660…1680 4c 42 45 48 50 4f 53 54 3b 18 12 20 20 20 20 4b 41 52 4d 3a 4b 41 52 4d 50 4f 53 54 3b 12 14 20 ┆LBEHPOST; KARM:KARMPOST; ┆
0x1680…16a0 20 20 20 52 41 4d 4d 45 3a 52 41 4d 4d 45 50 4f 53 54 3b 14 12 20 20 20 20 50 4f 53 54 3a 50 4f ┆ RAMME:RAMMEPOST; POST:PO┆
0x16a0…16c0 53 54 50 4f 53 54 3b 12 14 20 20 20 20 53 54 5b 52 4b 3a 53 54 5b 52 4b 50 4f 53 54 3b 14 16 20 ┆STPOST; STÆRK:STÆRKPOST; ┆
0x16c0…16e0 20 20 20 42 52 45 47 45 4c 3a 42 52 45 47 45 4c 50 4f 53 54 3b 16 12 20 20 20 20 47 4c 41 53 3a ┆ BREGEL:BREGELPOST; GLAS:┆
0x16e0…1700 47 4c 41 53 50 4f 53 54 3b 12 14 20 20 20 20 46 41 52 56 45 3a 46 41 52 56 45 50 4f 53 54 3b 14 ┆GLASPOST; FARVE:FARVEPOST; ┆
0x1700…1720 18 20 20 20 20 4f 50 53 50 4c 49 54 3a 4f 50 53 50 4c 49 54 50 4f 53 54 3b 18 16 20 20 20 20 4f ┆ OPSPLIT:OPSPLITPOST; O┆
0x1720…1740 4c 49 4e 49 45 3a 4f 4c 49 4e 49 45 50 4f 53 54 3b 16 14 20 20 20 20 4b 4f 4d 42 49 3a 4b 4f 4d ┆LINIE:OLINIEPOST; KOMBI:KOM┆
0x1740…1760 42 49 50 4f 53 54 3b 14 3e 20 20 20 20 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆BIPOST; > (******************┆
0x1760…1780 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x1780…17a0 2a 2a 2a 2a 2a 2a 29 3e 1b 20 20 20 20 49 31 2c 49 2c 5a 2c 50 4f 53 2c 54 59 50 45 52 2c 54 59 ┆******)> I1,I,Z,POS,TYPER,TY┆
0x17a0…17c0 50 45 32 2c 1b 1c 20 20 20 20 4d 5d 4c 2c 4c 5b 4e 47 44 45 2c 48 5c 4a 44 45 2c 42 52 45 44 44 ┆PE2, MÅL,LÆNGDE,HØJDE,BREDD┆
0x17c0…17e0 45 2c 1c 1d 20 20 20 20 47 4c 41 53 4e 52 2c 47 4c 41 53 4b 4f 44 45 2c 47 4c 41 53 54 59 50 45 ┆E, GLASNR,GLASKODE,GLASTYPE┆
0x17e0…1800 2c 1d 2c 20 20 20 20 46 41 4b 4f 44 45 31 2c 46 41 4b 4f 44 45 32 2c 46 41 4b 4f 44 45 2c 46 41 ┆, , FAKODE1,FAKODE2,FAKODE,FA┆
0x1800…1820 4e 52 31 2c 46 41 4e 52 32 2c 46 41 4e 52 2c 2c 23 20 20 20 20 52 45 47 45 4c 4e 52 2c 53 54 5b ┆NR1,FANR2,FANR,,# REGELNR,STÆ┆
0x1820…1840 52 4b 52 31 2c 53 54 5b 52 4b 52 32 2c 53 54 5b 52 4b 52 2c 23 15 20 20 20 20 44 4b 2c 44 4b 50 ┆RKR1,STÆRKR2,STÆRKR,# DK,DKP┆
0x1840…1860 2c 50 4c 41 43 45 52 49 4e 47 2c 15 19 20 20 20 20 4f 52 44 52 45 4e 55 4d 2c 49 45 52 3a 49 4e ┆,PLACERING, ORDRENUM,IER:IN┆
0x1860…1880 54 45 47 45 52 3b 19 20 20 20 20 20 54 59 50 45 31 2c 4b 47 55 4d 4d 49 2c 4e 55 4c 4c 45 52 3a ┆TEGER; TYPE1,KGUMMI,NULLER:┆
0x1880…18a0 44 4f 42 42 54 41 4c 3b 20 0c 20 20 20 20 43 48 3a 43 48 41 52 3b 0c 01 20 01 0d 28 2a 24 49 4e ┆DOBBTAL; CH:CHAR; (*$IN┆
0x18a0…18c0 42 54 50 52 4f 43 2a 29 0d 0e 28 2a 24 49 4e 42 54 42 45 52 45 47 2a 29 0e 0d 28 2a 24 49 4e 42 ┆BTPROC*) (*$INBTBEREG*) (*$INB┆
0x18c0…18e0 54 4d 41 49 4e 2a 29 0d 0e 28 2a 24 49 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 54 48 4f 56 45 44 ┆TMAIN*) (*$INBTHOVED*) THOVED┆
0x18e0…1900 2a 29 0e 00 00 5a 3d 32 36 35 3b 13 13 20 20 20 20 20 20 4d 46 4f 52 53 54 5b 5a 3d 32 38 36 3b ┆*) Z=265; MFORSTÆZ=286;┆
0x1900…1920 13 13 20 20 20 20 20 20 4d 42 52 45 47 45 4c 5a 3d 32 36 36 3b 13 11 20 20 20 20 20 20 4d 47 4c ┆ MBREGELZ=266; MGL┆
0x1920…1940 41 53 5a 3d 32 34 35 3b 11 12 20 20 20 20 20 20 4d 46 41 52 56 45 5a 3d 32 34 35 3b 12 13 20 20 ┆ASZ=245; MFARVEZ=245; ┆
0x1940…1960 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 ┆ ┆
[…0x1f…]