DataMuseum.dk

top - download

    Length: 6240 (0x1860)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTOP.K«

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTOP.K« 

Mikados K File

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*)