|
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: 8736 (0x2220)
Types: TextFile
Notes: Mikados_K
Names: »NBTKON.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTKON.K«
PROGRAM KONST;
CONST MPROFILZ=250;
MVINDUEZ=292;
MTILBEHZ=254;
MKARMEZ=273;
MRAMMEZ=281;
MPOSTERZ=265;
MMAXMÅLZ=259;
MFORSTÆZ=286;
MBREGELZ=266;
MGLASZ=245;
MBESLAGZ=273;
MRÅVAREZ=406;
MFARVEZ=245;
MOPSPLIZ=385;
MOLINIEZ=344;
MORDREHZ=331;
MKOMBIZ=241;
(*$IISFHEAD*)
PROFILZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MPROFILZ) OF INTEGER;
END;
VINDUEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MVINDUEZ) OF INTEGER;
END;
TILBEHZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MTILBEHZ) OF INTEGER;
END;
KARMZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MKARMEZ) 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;
MAXMÅLZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MMAXMÅLZ) 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;
GLASZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MGLASZ) OF INTEGER;
END;
BESLAGZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MBESLAGZ) OF INTEGER;
END;
RÅVAREZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MRÅVAREZ) OF INTEGER;
END;
FARVEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MFARVEZ) 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;
HOVEDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MORDREHZ) OF INTEGER;
END;
KOMBIZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MKOMBIZ) 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;
TEK=PACKED ARRAY(1..30) OF CHAR;
PROFILPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
DIM:AR13;
TÆTGUM:DOBBTAL;
FORSTÆR:ARRAY(1..9) OF DOBBTAL;
TEKST:TEK;
END;
VINDUEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
KARMNR,
MAXMÅL:INTEGER;
RAMME:ARRAY(1..16) OF INTEGER;
BESLAG:AR14;
BREDDE,
HØJDE:AR13;
TEKST:TEK;
END;
TILBEHPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
GLASKODE,
GLASLIST:INTEGER
GLASGUM,
GLASLGUM:DOBBTAL;
END;
KARMPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
FORSTÆRK,
BESLAG:AR14;
VREGEL,
LREGEL:AR13;
TEKST:TEK;
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;
MAXMÅLPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
AREAL,
BHFORHOL:REAL;
NR,
BREDDE,
HØJDE:INTEGER;
TEKST:TEK;
END;
STÆRKPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
GRÆNSE,
TYP:AR15;
FRADRAG,
KONSTANT,
AFRUND:INTEGER;
END;
BREGELPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
GRÆNSE,
PAKKE:AR19;
TEKST:TEK;
END;
GLASPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
KODE:INTEGER;
TEKST:TEK;
END;
BESLAGPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
VARENR:ARRAY(1..5) OF DOBBTAL;
ANTAL:AR15;
TEKST:TEK;
END;
RÅVAREPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
PRIS,
KOSTPRIS,
LAGER,
RESERVERET,
IORDRELEV,
TILGANG,
AFGANG,
MINIMUM,
PRIMO,
OMSKR,
DBKR,
SBMÆNGDE,
KOSTUVAL,
OMSSÅRKR,
DBSÅKR,
OMSSÅMGD,
OMSHAST:REAL;
NR,
BESTDATO,
LEVERNR:DOBBTAL;
TEKST:TEK;
ENHED:PACKED ARRAY(1..4) OF CHAR;
LEVBETEG:TEK;
MØNTENH:PACKED ARRAY(1..4) OF CHAR;
END;
FARVEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
KODE:INTEGER;
TEKST:TEK;
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,
FARVE1,
FARVE2,
RAMMENR1,
GLASART1,
RAMMENR2,
GLASART2,
RAMMENR3,
GLASART3,
BLAMBRED,
BLAMHØJD:INTEGER;
BREDDE:AR13;
HØJDE:AR13;
HÆNGSEL:AR14;
MONTER:INTEGER;
STATUS:INTEGER;
END;
HOVEDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR:INTEGER;
DATO:DOBBTAL;
TILBUDNR:INTEGER;
TLBUDDATO:DOBBTAL;
SAGSNR:INTEGER;
KUNDENR,
POSTNR:DOBBTAL;
LEVTERM,
STATUS:INTEGER;
KUNDENAVN,
GADE,
BY,
KONTAKT:TEK;
TELEFON:PACKED ARRAY(1..10) OF CHAR;
LEVSTED:TEK;
INITIAL:PACKED ARRAY(1..4) OF CHAR;
END;
KOMBIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
KARMPROFIL,
POST1,
POST2,
RAMMEPROFIL,
F3PROFIL:INTEGER;
END;
VAR PROF,VINF,TILF,KARF,RAMF,POSF,MAXF,FORF,BREF,GLAF,BESF,RÅVF,FARF,OPSF,
OLIF,HOVF,KOMF:ISF;
PROZ:PROFILZONE;
VINZ:VINDUEZONE;
TILZ:TILBEHZONE;
KARZ:KARMZONE;
RAMZ:RAMMEZONE;
POSZ:POSTZONE;
MAXZ:MAXMÅLZONE;
FORZ:STÆRKZONE;
BREZ:BREGELZONE;
GLAZ:GLASZONE;
BESZ:BESLAGZONE;
RÅVZ:RÅVAREZONE;
FARZ:FARVEZONE;
OPSZ:OPSPLITZONE;
OLIZ:OLINIEZONE;
HOVZ:HOVEDZONE;
KOMZ:KOMBIZONE;
PROFIL:PROFILPOST;
VINDUE:VINDUEPOST;
TILBEHØR:TILBEHPOST;
KARM:KARMPOST;
RAMME:RAMMEPOST;
POST:POSTPOST;
MAXMÅL:MAXMÅLPOST;
STÆRK:STÆRKPOST;
BREGEL:BREGELPOST;
GLAS:GLASPOST;
BESLAG:BESLAGPOST;
RÅVARE:RÅVAREPOST;
FARVE:FARVEPOST;
OPSPLIT:OPSPLITPOST;
OLINIE:OLINIEPOST;
HOVED:HOVEDPOST;
KOMBI:KOMBIPOST;
(*$INBTPROC*)
(*$INBTBEREG*)