DataMuseum.dk

top - download

    Length: 3744 (0xea0)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTBPROC.K«

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

Mikados K File

 
 
PROCEDURE STÆRKNING(REGELNR:INTEGER;VAR REGEL:AR13);
 
TYPE STÆRKPOST=RECORD
               AA:ARAR;
               A:AR;
               AAA:RAR;
               NR:INTEGER;
               GRÆNSE,
               TYP:AR15;
               FRADRAG,
               KONSTANT,
               AFRUND:INTEGER;
      END;
 
VAR STÆRK:STÆRKPOST;
        I:INTEGER;
 
BEGIN
  WITH STÆRK DO
  BEGIN
    NR:=REGELNR;
    GETREC(FORZ.H,FORF,A);
    IF IER<>0 THEN IOF(FORZ.H.FILENAME);
    I:=1;
    WHILE (GRÆNSE(I)<MÅL) AND (I<5) DO I:=I+1;
    LÆNGDE:=((MÅL - FRADRAG) DIV AFRUND) * AFRUND;
    IF I=1 THEN LÆNGDE:= KONSTANT;
    TYPE1:=REGEL(TYP(I));
  END;
 
 
PROCEDURE GENER(TYP1,TYP2,TYP3,FL,SL,HÆ:INTEGER;VAR GU1,GU2:DOBBTAL);
 
TYPE 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;
 
VAR  OPSPLIT:OPSPLITPOST;
 
BEGIN
  WITH OPSPLIT DO
  BEGIN
    ORDRENR:=OLINIE.ORDRENR;
    POSITION:=OLINIE.POSITION;
    ANTAL:=OLINIE.ANTAL;
    STATUS:=OLINIE.STATUS;
    TYP:=TYP1;
    RAMMENR:=I1;
    TYPENR(1):=TYP2;
    TYPENR(2):=TYP3;
    PLACER:=PLACERING;
    FARVE:=0;
    FTYPE:=NULLER;
    FLÆNGDE:=FL;
    SLÆNGDE:=SL;
    BESLAGNR:=0;
    HÆNGSEL:=HÆ;
    GUMMI1:=GU1;
    GUMMI2:=GU2;
    IF TYP=1 THEN
    BEGIN
      FARVE:=OLINIE.FARVE(FAKODE);
      FTYPE:=TYPE1;
      BESLAGNR:=TYPE2;
    END;
  END;
  INSERT(OPSZ.H,OPSF,OPSPLIT.A);
  IF IER <> 0 THEN IOF(OPSZ.H.FILENAME);
END;
 
PROCEDURE PROFILBEHANDLING(HØJDE:INTEGER;VAR FORSTÆRK:AR14;VAR PROFILSTÆRK:
                                 ADOBTAL;VAR BESLAG1:AR14; VAR PROFIL:
                                 INTEGER;VAR GUM1,GUM2:DOBBTAL);
VAR I:INTEGER;
 
BEGIN
WRITELN('BESLAG1',BESLAG1(1):6,BESLAG1(2):6,BESLAG1(3):6,BESLAG1(4):6);
WRITELN('FORSTÆRK1',FORSTÆRK(1):6,FORSTÆRK(2):6,FORSTÆRK(3):6,FORSTÆRK(4):6);
  FOR PLACERING:=1 TO 4 DO
  BEGIN
    WRITELN('PLACERING',PLACERING:6);
    I:=BESLAG1(PLACERING);
    TYPE1:=NULLER;TYPE2:=0;LÆNGDE:=0;
    IF PLACERING=3 THEN
    BEGIN
      MÅL:=HØJDE;
      STÆRKR:=STÆRKR2;
    END;
WRITELN('FORSTÆRK(PLACERING)',FORSTÆRK(PLACERING):6);
    IF FORSTÆRK(PLACERING)=1 THEN
    BEGIN
      STÆRKNING;
      TYPE1:=PROFILSTÆRK(TYPER);
      GENER2(4,TYPE1,0,LÆNGDE);
    END;
WRITELN('BESLAG1(PLACERING):',BESLAG1(PLACERING):6);
    IF I>0 THEN
    BEGIN
      BESLAGNING(I);
      TYPE3:=NULLER;TYPE3(2):=TYPE2;
      GENER2(5,TYPE3,0,0)
    END;
    GENER1(0,PROFIL,LÆNGDE,MÅL,0,GUM1,GUM2);
  END;
END;