|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »NBTOP.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTOP.K«
PROGRAM KONST;
CONST MPROFILZ=250;
MVINDUEZ=292;
MTILBEHZ=252;
MKARMEZ=273;
MRAMMEZ=281;
MPOSTERZ=265;
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;
PROCEDURE GETREC(VAR A:ISFHEAD;VAR B:ISF;VAR C:AR);
FORWARD;
PROCEDURE INSERT(VAR A:ISFHEAD;VAR B:ISF;VAR C:AR);
FORWARD;
PROCEDURE IOPEN(VAR A:ISFHEAD;VAR B:ISF;C:INTEGER);
FORWARD;
PROCEDURE ICLOSE(VAR A:ISFHEAD;VAR B:ISF);
FORWARD;
(*$INBTLUK*)
(*$INBTFEJL*)
(*$INBTPROC*)
(*$INBTBEREG*)
(*$INBTMAIN*)
(*$INBTHOVED*)
0x0000…0010 Line {l1=0x0e, l2=»PROGRAM KONST;«, l3=0x0e}
0x0010…0025 Line {l1=0x13, l2=»CONST MPROFILZ=250;«, l3=0x13}
0x0025…003a Line {l1=0x13, l2=» MVINDUEZ=292;«, l3=0x13}
0x003a…004f Line {l1=0x13, l2=» MTILBEHZ=252;«, l3=0x13}
0x004f…0063 Line {l1=0x12, l2=» MKARMEZ=273;«, l3=0x12}
0x0063…0077 Line {l1=0x12, l2=» MRAMMEZ=281;«, l3=0x12}
0x0077…008c Line {l1=0x13, l2=» MPOSTERZ=265;«, l3=0x13}
0x008c…00a1 Line {l1=0x13, l2=» MFORSTÆZ=286;«, l3=0x13}
0x00a1…00b6 Line {l1=0x13, l2=» MBREGELZ=266;«, l3=0x13}
0x00b6…00c9 Line {l1=0x11, l2=» MGLASZ=245;«, l3=0x11}
0x00c9…00dd Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x00dd…00f2 Line {l1=0x13, l2=» MOPSPLIZ=385;«, l3=0x13}
0x00f2…0107 Line {l1=0x13, l2=» MOLINIEZ=344;«, l3=0x13}
0x0107…011b Line {l1=0x12, l2=» MKOMBIZ=241;«, l3=0x12}
0x011b…012a Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x012a…013d Line {l1=0x11, l2=»PROFILZONE=RECORD«, l3=0x11}
0x013d…0154 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0154…0181 Line {l1=0x2b, l2=» T:ARRAY(1..MPROFILZ) OF INTEGER;«, l3=0x2b}
0x0181…0187 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0187…018a Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x018d…01a0 Line {l1=0x11, l2=»TILBEHZONE=RECORD«, l3=0x11}
0x01a0…01b7 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x01b7…01e4 Line {l1=0x2b, l2=» T:ARRAY(1..MTILBEHZ) OF INTEGER;«, l3=0x2b}
0x01e4…01ea Line {l1=0x04, l2=»END;«, l3=0x04}
0x01ea…01ed Line {l1=0x01, l2=» «, l3=0x01}
0x01ed…01ff Line {l1=0x10, l2=»RAMMEZONE=RECORD«, l3=0x10}
0x01ff…0215 Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x0215…0240 Line {l1=0x29, l2=» T:ARRAY(1..MRAMMEZ) OF INTEGER;«, l3=0x29}
0x0240…0246 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0246…0249 Line {l1=0x01, l2=» «, l3=0x01}
0x0249…025a Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x025a…026f Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x026f…029a Line {l1=0x29, l2=» T:ARRAY(1..MPOSTERZ) OF INTEGER;«, l3=0x29}
0x029a…02a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02a0…02a3 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x02a6…02b8 Line {l1=0x10, l2=»STÆRKZONE=RECORD«, l3=0x10}
0x02b8…02d1 Line {l1=0x17, l2=» H:ISFHEAD;«, l3=0x17}
0x02d1…0300 Line {l1=0x2d, l2=» T:ARRAY(1..MFORSTÆZ) OF INTEGER;«, l3=0x2d}
0x0300…0306 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0306…0309 Line {l1=0x01, l2=» «, l3=0x01}
0x0309…031c Line {l1=0x11, l2=»BREGELZONE=RECORD«, l3=0x11}
0x031c…0333 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0333…0360 Line {l1=0x2b, l2=» T:ARRAY(1..MBREGELZ) OF INTEGER;«, l3=0x2b}
0x0360…0366 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0366…0369 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x036c…0380 Line {l1=0x12, l2=»OPSPLITZONE=RECORD«, l3=0x12}
0x0380…0398 Line {l1=0x16, l2=» H:ISFHEAD;«, l3=0x16}
0x0398…03c6 Line {l1=0x2c, l2=» T:ARRAY(1..MOPSPLIZ) OF INTEGER;«, l3=0x2c}
0x03c6…03cc Line {l1=0x04, l2=»END;«, l3=0x04}
0x03cc…03cf Line {l1=0x01, l2=» «, l3=0x01}
0x03cf…03e2 Line {l1=0x11, l2=»OLINIEZONE=RECORD«, l3=0x11}
0x03e2…03f9 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x03f9…0426 Line {l1=0x2b, l2=» T:ARRAY(1..MOLINIEZ) OF INTEGER;«, l3=0x2b}
0x0426…042c Line {l1=0x04, l2=»END;«, l3=0x04}
0x042c…042f Line {l1=0x01, l2=» «, l3=0x01}
0x042f…0455 Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x0455…0470 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0470…048e Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x048e…04ac Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x04ac…04ca Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x04ca…04e8 Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x04e8…0508 Line {l1=0x1e, l2=»AR116=ARRAY(1..16) OF INTEGER;«, l3=0x1e}
0x0508…050b Line {l1=0x01, l2=» «, l3=0x01}
0x050b…052c Line {l1=0x1f, l2=»DOBBTAL=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x052c…052f Line {l1=0x01, l2=» «, l3=0x01}
0x052f…0550 Line {l1=0x1f, l2=»ADOBTAL=ARRAY(1..9) OF DOBBTAL;«, l3=0x1f}
0x0550…0553 Line {l1=0x01, l2=» «, l3=0x01}
0x0553…0575 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x0575…0578 Line {l1=0x01, l2=» «, l3=0x01}
0x0578…0597 Line {l1=0x1d, l2=»FILN=ARRAY(1..13) OF FILNAVN;«, l3=0x1d}
0x0597…059a Line {l1=0x01, l2=» «, l3=0x01}
0x059a…05b9 Line {l1=0x1d, l2=»FILN1=ARRAY(1..13) OF STRING;«, l3=0x1d}
0x05b9…05bc Line {l1=0x01, l2=» «, l3=0x01}
0x05bc…05e5 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x05e5…05f8 Line {l1=0x11, l2=»PROFILPOST=RECORD«, l3=0x11}
0x05f8…060d Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x060d…061f Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x061f…0634 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x0634…064c Line {l1=0x16, l2=» NR:INTEGER;«, l3=0x16}
0x064c…0662 Line {l1=0x14, l2=» DIM:AR13;«, l3=0x14}
0x0662…067e Line {l1=0x1a, l2=» TÆTGUM:DOBBTAL;«, l3=0x1a}
0x067e…069b Line {l1=0x1b, l2=» FORSTÆR:ADOBTAL;«, l3=0x1b}
0x069b…06b2 Line {l1=0x15, l2=» TEKST:TEK;«, l3=0x15}
0x06b2…06b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06b8…06bb Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x06be…06d1 Line {l1=0x11, l2=»TILBEHPOST=RECORD«, l3=0x11}
0x06d1…06e8 Line {l1=0x15, l2=» AA:ARAR;«, l3=0x15}
0x06e8…06fc Line {l1=0x12, l2=» A:AR;«, l3=0x12}
0x06fc…0713 Line {l1=0x15, l2=» AAA:RAR;«, l3=0x15}
0x0713…0725 Line {l1=0x10, l2=» NR,«, l3=0x10}
0x0725…073d Line {l1=0x16, l2=» GLASKODE,«, l3=0x16}
0x073d…075d Line {l1=0x1e, l2=» GLASLIST:INTEGER;«, l3=0x1e}
0x075d…0774 Line {l1=0x15, l2=» GLASGUM,«, l3=0x15}
0x0774…0794 Line {l1=0x1e, l2=» GLASLGUM:DOBBTAL;«, l3=0x1e}
0x0794…079a Line {l1=0x04, l2=»END;«, l3=0x04}
0x079a…079d Line {l1=0x01, l2=» «, l3=0x01}
0x079d…07af Line {l1=0x10, l2=»RAMMEPOST=RECORD«, l3=0x10}
0x07af…07c3 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x07c3…07d4 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x07d4…07e8 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x07e8…07f7 Line {l1=0x0d, l2=» NR,«, l3=0x0d}
0x07f7…080f Line {l1=0x16, l2=» TYP:INTEGER;«, l3=0x16}
0x080f…0824 Line {l1=0x13, l2=» FORSTÆRK,«, l3=0x13}
0x0824…083c Line {l1=0x16, l2=» BESLAG:AR14;«, l3=0x16}
0x083c…0857 Line {l1=0x19, l2=» TÆTGUM:INTEGER;«, l3=0x19}
0x0857…086a Line {l1=0x11, l2=» VREGEL,«, l3=0x11}
0x086a…0882 Line {l1=0x16, l2=» LREGEL:AR13;«, l3=0x16}
0x0882…0898 Line {l1=0x14, l2=» TEKST:TEK;«, l3=0x14}
0x0898…089e Line {l1=0x04, l2=»END;«, l3=0x04}
0x089e…08a1 Line {l1=0x01, l2=» «, l3=0x01}
0x08a1…08b2 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x08b2…08c5 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x08c5…08d5 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x08d5…08e8 Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x08e8…08fa Line {l1=0x10, l2=» KARMNR,«, l3=0x10}
0x08fa…0908 Line {l1=0x0c, l2=» NR,«, l3=0x0c}
0x0908…091b Line {l1=0x11, l2=» VANDLOD,«, l3=0x11}
0x091b…092c Line {l1=0x0f, l2=» GÅFRA,«, l3=0x0f}
0x092c…093d Line {l1=0x0f, l2=» GÅTIL,«, l3=0x0f}
0x093d…0956 Line {l1=0x17, l2=» PLACE:INTEGER;«, l3=0x17}
0x0956…096f Line {l1=0x17, l2=» FORSTÆRK:AR13;«, l3=0x17}
0x096f…0986 Line {l1=0x15, l2=» TYP:INTEGER;«, l3=0x15}
0x0986…098c Line {l1=0x04, l2=»END;«, l3=0x04}
0x098c…098f Line {l1=0x01, l2=» «, l3=0x01}
0x098f…09a3 Line {l1=0x12, l2=»OPSPLITPOST=RECORD«, l3=0x12}
0x09a3…09b9 Line {l1=0x14, l2=» AA:ARAR;«, l3=0x14}
0x09b9…09cc Line {l1=0x11, l2=» A:AR;«, l3=0x11}
0x09cc…09e2 Line {l1=0x14, l2=» AAA:RAR;«, l3=0x14}
0x09e2…09f8 Line {l1=0x14, l2=» ORDRENR,«, l3=0x14}
0x09f8…0a0a Line {l1=0x10, l2=» TYP,«, l3=0x10}
0x0a0a…0a21 Line {l1=0x15, l2=» POSITION,«, l3=0x15}
0x0a21…0a37 Line {l1=0x14, l2=» RAMMENR,«, l3=0x14}
0x0a37…0a4c Line {l1=0x13, l2=» PLACER,«, l3=0x13}
0x0a4c…0a68 Line {l1=0x1a, l2=» ANTAL:INTEGER;«, l3=0x1a}
0x0a68…0a85 Line {l1=0x1b, l2=» TYPENR:DOBBTAL;«, l3=0x1b}
0x0a85…0aa1 Line {l1=0x1a, l2=» FARVE:INTEGER;«, l3=0x1a}
0x0aa1…0abd Line {l1=0x1a, l2=» FTYPE:DOBBTAL;«, l3=0x1a}
0x0abd…0ad3 Line {l1=0x14, l2=» FLÆNGDE,«, l3=0x14}
0x0ad3…0ae9 Line {l1=0x14, l2=» SLÆNGDE,«, l3=0x14}
0x0ae9…0b00 Line {l1=0x15, l2=» BESLAGNR,«, l3=0x15}
0x0b00…0b1e Line {l1=0x1c, l2=» HÆNGSEL:INTEGER;«, l3=0x1c}
0x0b1e…0b33 Line {l1=0x13, l2=» GUMMI1,«, l3=0x13}
0x0b33…0b50 Line {l1=0x1b, l2=» GUMMI2:DOBBTAL;«, l3=0x1b}
0x0b50…0b6d Line {l1=0x1b, l2=» STATUS:INTEGER;«, l3=0x1b}
0x0b6d…0b73 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b73…0b76 Line {l1=0x01, l2=» «, l3=0x01}
0x0b76…0b89 Line {l1=0x11, l2=»OLINIEPOST=RECORD«, l3=0x11}
0x0b89…0b9e Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x0b9e…0bb0 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x0bb0…0bc5 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x0bc5…0bdb Line {l1=0x14, l2=» KOSTPRIS,«, l3=0x14}
0x0bdb…0bf1 Line {l1=0x14, l2=» SALGPRIS,«, l3=0x14}
0x0bf1…0c09 Line {l1=0x16, l2=» RABAT:REAL;«, l3=0x16}
0x0c09…0c1e Line {l1=0x13, l2=» ORDRENR,«, l3=0x13}
0x0c1e…0c34 Line {l1=0x14, l2=» POSITION,«, l3=0x14}
0x0c34…0c47 Line {l1=0x11, l2=» ANTAL,«, l3=0x11}
0x0c47…0c65 Line {l1=0x1c, l2=» VINDUENR:INTEGER;«, l3=0x1c}
0x0c65…0c80 Line {l1=0x19, l2=» FARVE:DOBBTAL;«, l3=0x19}
0x0c80…0c95 Line {l1=0x13, l2=» RAMMENR,«, l3=0x13}
0x0c95…0caf Line {l1=0x18, l2=» GLASART:AR13;«, l3=0x18}
0x0caf…0cc5 Line {l1=0x14, l2=» BLAMBRED,«, l3=0x14}
0x0cc5…0ce3 Line {l1=0x1c, l2=» BLAMHØJD:INTEGER;«, l3=0x1c}
0x0ce3…0cfc Line {l1=0x17, l2=» BREDDE:AR13;«, l3=0x17}
0x0cfc…0d14 Line {l1=0x16, l2=» HØJDE:AR13;«, l3=0x16}
0x0d14…0d2e Line {l1=0x18, l2=» HÆNGSEL:AR14;«, l3=0x18}
0x0d2e…0d4a Line {l1=0x1a, l2=» MONTER:INTEGER;«, l3=0x1a}
0x0d4a…0d66 Line {l1=0x1a, l2=» STATUS:INTEGER;«, l3=0x1a}
0x0d66…0d6c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d6c…0d6f Line {l1=0x01, l2=» «, l3=0x01}
0x0d6f…0d98 Line {l1=0x27, l2=»VAR PROF,TILF,RAMF,POSF,FORF,BREF,OPSF,«, l3=0x27}
0x0d98…0da7 Line {l1=0x0d, l2=» OLIF:ISF;«, l3=0x0d}
0x0da7…0dbd Line {l1=0x14, l2=» PROZ:PROFILZONE;«, l3=0x14}
0x0dbd…0dd3 Line {l1=0x14, l2=» TILZ:TILBEHZONE;«, l3=0x14}
0x0dd3…0de8 Line {l1=0x13, l2=» RAMZ:RAMMEZONE;«, l3=0x13}
0x0de8…0dfc Line {l1=0x12, l2=» POSZ:POSTZONE;«, l3=0x12}
0x0dfc…0e11 Line {l1=0x13, l2=» FORZ:STÆRKZONE;«, l3=0x13}
0x0e11…0e27 Line {l1=0x14, l2=» BREZ:BREGELZONE;«, l3=0x14}
0x0e27…0e3e Line {l1=0x15, l2=» OPSZ:OPSPLITZONE;«, l3=0x15}
0x0e3e…0e41 Line {l1=0x01, l2=» «, l3=0x01}
0x0e41…0e57 Line {l1=0x14, l2=» OLIZ:OLINIEZONE;«, l3=0x14}
0x0e57…0e89 Line {l1=0x30, l2=» KPROFIL,KPPROFIL,RPROFIL,GPROFIL:PROFILPOST;«, l3=0x30}
0x0e89…0ea3 Line {l1=0x18, l2=» TILBEHØR:TILBEHPOST;«, l3=0x18}
0x0ea3…0eb9 Line {l1=0x14, l2=» RAMME:RAMMEPOST;«, l3=0x14}
0x0eb9…0ecd Line {l1=0x12, l2=» POST:POSTPOST;«, l3=0x12}
0x0ecd…0ee7 Line {l1=0x18, l2=» OPSPLIT:OPSPLITPOST;«, l3=0x18}
0x0ee7…0eff Line {l1=0x16, l2=» OLINIE:OLINIEPOST;«, l3=0x16}
0x0eff…0f3f Line {l1=0x3e, l2=» (********************************************************)«, l3=0x3e}
0x0f3f…0f58 Line {l1=0x17, l2=» I1,POS,TYPER,TYPE2,«, l3=0x17}
0x0f58…0f76 Line {l1=0x1c, l2=» MÅL,LÆNGDE,HØJDE,BREDDE,«, l3=0x1c}
0x0f76…0f88 Line {l1=0x10, l2=» FAKODE,FANR,«, l3=0x10}
0x0f88…0fad Line {l1=0x23, l2=» REGELNR,STÆRKR1,STÆRKR2,STÆRKR,«, l3=0x23}
0x0fad…0fc4 Line {l1=0x15, l2=» DK,DKP,PLACERING,«, l3=0x15}
0x0fc4…0fdf Line {l1=0x19, l2=» ORDRENUM,IER:INTEGER;«, l3=0x19}
0x0fdf…1007 Line {l1=0x26, l2=» TYPE1,KGUMMI,NULLER,TYPE3:DOBBTAL;«, l3=0x26}
0x1007…1015 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x1015…1026 Line {l1=0x0f, l2=» FILER:FILN;«, l3=0x0f}
0x1026…1038 Line {l1=0x10, l2=» FILEN:FILN1;«, l3=0x10}
0x1038…104b Line {l1=0x11, l2=» FNAVN:STRING;«, l3=0x11}
0x104b…1061 Line {l1=0x14, l2=» PARM:^PARMARRAY;«, l3=0x14}
0x1061…1074 Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x1074…1077 Line {l1=0x01, l2=» «, l3=0x01}
0x1077…10ac Line {l1=0x33, l2=»PROCEDURE GETREC(VAR A:ISFHEAD;VAR B:ISF;VAR C:AR);«, l3=0x33}
0x10ac…10b6 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x10b6…10eb Line {l1=0x33, l2=»PROCEDURE INSERT(VAR A:ISFHEAD;VAR B:ISF;VAR C:AR);«, l3=0x33}
0x10eb…10f5 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x10f5…112a Line {l1=0x33, l2=»PROCEDURE IOPEN(VAR A:ISFHEAD;VAR B:ISF;C:INTEGER);«, l3=0x33}
0x112a…1134 Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x1134…1160 Line {l1=0x2a, l2=»PROCEDURE ICLOSE(VAR A:ISFHEAD;VAR B:ISF);«, l3=0x2a}
0x1160…116a Line {l1=0x08, l2=»FORWARD;«, l3=0x08}
0x116a…1178 Line {l1=0x0c, l2=»(*$INBTLUK*)«, l3=0x0c}
0x1178…1187 Line {l1=0x0d, l2=»(*$INBTFEJL*)«, l3=0x0d}
0x1187…1196 Line {l1=0x0d, l2=»(*$INBTPROC*)«, l3=0x0d}
0x1196…11a6 Line {l1=0x0e, l2=»(*$INBTBEREG*)«, l3=0x0e}
0x11a6…11b5 Line {l1=0x0d, l2=»(*$INBTMAIN*)«, l3=0x0d}
0x11b5…11c5 Line {l1=0x0e, l2=»(*$INBTHOVED*)«, l3=0x0e}
0x11c5…11e0 00 00 24 49 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 3b 56 41 52 20 43 3a 41 52 29 ┆ $INBTHOVED*) ;VAR C:AR)┆
0x11e0…1200 3b 33 08 46 4f 52 57 41 52 44 3b 08 33 50 52 4f 43 45 44 55 52 45 20 49 4f 50 45 4e 28 56 41 52 ┆;3 FORWARD; 3PROCEDURE IOPEN(VAR┆
0x1200…1220 20 41 3a 49 53 46 48 45 41 44 3b 56 41 52 20 42 3a 49 53 46 3b 43 3a 49 4e 54 45 47 45 52 29 3b ┆ A:ISFHEAD;VAR B:ISF;C:INTEGER);┆
0x1220…1240 33 08 46 4f 52 57 41 52 44 3b 08 2a 50 52 4f 43 45 44 55 52 45 20 49 43 4c 4f 53 45 28 56 41 52 ┆3 FORWARD; *PROCEDURE ICLOSE(VAR┆
0x1240…1260 20 41 3a 49 53 46 48 45 41 44 3b 56 41 52 20 42 3a 49 53 46 29 3b 2a 08 46 4f 52 57 41 52 44 3b ┆ A:ISFHEAD;VAR B:ISF);* FORWARD;┆
0x1260…1280 08 0c 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 ┆ (*$INBTLUK*) (*$INBTFEJL*) (┆
0x1280…12a0 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 2a 29 0e 0d 28 2a ┆*$INBTPROC*) (*$INBTBEREG*) (*┆
0x12a0…12c0 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 29 0e 00 00 20 20 ┆$INBTMAIN*) (*$INBTHOVED*) ┆
0x12c0…12e0 46 49 4c 45 52 3a 46 49 4c 4e 3b 0f 01 20 01 0d 28 2a 24 49 4e 42 54 50 52 4f 43 2a 29 0d 0e 28 ┆FILER:FILN; (*$INBTPROC*) (┆
0x12e0…1300 2a 24 49 4e 42 54 42 45 52 45 47 2a 29 0e 0d 28 2a 24 49 4e 42 54 4d 41 49 4e 2a 29 0d 0e 28 2a ┆*$INBTBEREG*) (*$INBTMAIN*) (*┆
0x1300…1320 24 49 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 52 53 4b 59 44 2a 29 0d 0c 28 2a 24 49 50 55 54 47 ┆$INBTHOVED*) RSKYD*) (*$IPUTG┆
0x1320…1340 45 54 2a 29 0c 0c 28 2a 24 49 49 4e 53 45 52 54 2a 29 0c 0d 28 2a 24 49 4e 42 54 50 52 4f 43 2a ┆ET*) (*$IINSERT*) (*$INBTPROC*┆
0x1340…1360 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 54 4d 41 49 4e 2a 29 ┆) (*$INBTBEREG*) (*$INBTMAIN*)┆
0x1360…1380 0d 0e 28 2a 24 49 4e 42 54 48 4f 56 45 44 2a 29 0e 00 00 54 3b 30 16 20 20 20 20 56 49 4e 44 55 ┆ (*$INBTHOVED*) T;0 VINDU┆
0x1380…13a0 45 3a 56 49 4e 44 55 45 50 4f 53 54 3b 16 18 20 20 20 20 54 49 4c 42 45 48 5c 52 3a 54 49 4c 42 ┆E:VINDUEPOST; TILBEHØR:TILB┆
0x13a0…13c0 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 20 20 ┆EHPOST; 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 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 ┆R; (*$INBTPROC*) (*$INBTBER┆
0x15a0…15c0 45 47 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 ┆EG*) (*$INBTMAIN*) (*$INBTHOVE┆
0x15c0…15e0 44 2a 29 0e 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 ┆D*) ┆
0x15e0…1600 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 ┆ ┆
[…0x13…]