DataMuseum.dk

top - download

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

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

Mikados K File

PROCEDURE MAINTAIN;
 
VAR KARMPROFIL,
    RAMMEPROFIL,
    POST1,
    VKARM:INTEGER;
    RAMME16:AR116;
    VBESLAG:AR14;
    VBREDDE:AR13;
    VHØJDE:AR13;
    KBESLAG,
    KFORSTÆRK:AR14;
    KVREGEL,
    KLREGEL:AR13;
    FAKODE1,
    FAKODE2,
    FANR1,
    FANR2:INTEGER;
 
 
BEGIN
 
ÅBEN;
POS:=1;
REPEAT
BEGIN
  OLINIE.ORDRENR:=ORDRENUM;OLINIE.POSITION:=POS;KGUMMI:=NULLER;
  GETREC(OLIZ.H,OLIF,OLINIE.A);
  IF (IER<>0) AND (IER<>-6) THEN IOF (OLIZ.H.FILENAME);
  CLEARSCREEN;
  GOTOXY(15,12);
  WRITELN('Nu behandles ordrenr: ',ORDRENUM:4,' Positionsnr: ',POS:3);
  IF IER=0 THEN
  BEGIN
    IF OLINIE.VINDUENR>0 THEN
      CHECKBH (OLINIE.BREDDE);CHECKBH(OLINIE.HØJDE);
      HENTKOMBI(KARMPROFIL,RAMMEPROFIL,POST1,FILER(1));
      HENTVINDUE(VKARM,RAMME16,VBESLAG,VBREDDE,VHØJDE,FILER(2));
      HENTKARM(VKARM,KBESLAG,KFORSTÆRK,KVREGEL,KLREGEL,FILER(3));
      KPROFIL.NR:=KARMPROFIL;
      GETREC(PROZ.H,PROF,KPROFIL.A);
      IF IER<>0 THEN IOF(PROZ.H.FILENAME);
      KPPROFIL.NR:=POST1;
      GETREC(PROZ.H,PROF,KPPROFIL.A);
      IF IER<>0 THEN IOF(PROZ.H.FILENAME);
      BESTEMFARVE(FAKODE1,FAKODE2,FANR1,FANR2,FILER(4));
      FOR I1:=1 TO 16 DO
      BEGIN
        RAMME.NR:=RAMME16(I1);
        IF RAMME.NR>19 THEN
        BEGIN
          GETREC(RAMZ.H,RAMF,RAMME.A);
          IF IER<>0 THEN IOF(RAMZ.H.FILENAME);
          GOTOXY(15,14);
          WRITELN('Rammenr: ',I1);
          DK:=KPROFIL.DIM(1); DKP:=KPPROFIL.DIM(1);
          IF RAMME.TYP=3 THEN DK:=KPROFIL.DIM(2);DKP:=KPPROFIL.DIM(2);
          Z:=(I1-1) MOD 4+1;I:=1;
          BEREGN(I1,BREDDE,I,Z,OLINIE.BLAMBRED,OLINIE.BREDDE,VBREDDE,
                 RAMME16);
          Z:=(I1+3) DIV 4;I:=4;
          BEREGN(I1,HØJDE,I,Z,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,RAMME16);
          BESTEMGLAS;
          IF RAMME.TYP=3 THEN
          BEGIN
            TILBEHØR.NR:=KARMPROFIL;TILBEHØR.GLASKODE:=GLASKODE;
            GETREC(TILZ.H,TILF,TILBEHØR.A);
            IF IER<>0 THEN IOF(TILZ.H.FILENAME);
            FAKODE:=FAKODE1;GLASTYPE:=3;KGUMMI:=TILBEHØR.GLASGUM;FANR:=FANR1;
          END
          ELSE
          BEGIN
            TILBEHØR.NR:=RAMMEPROFIL;TILBEHØR.GLASKODE:=GLASKODE;
            GETREC(TILZ.H,TILF,TILBEHØR.A);
            IF IER<>0 THEN IOF(TILZ.H.FILENAME);
            TYPE3:=KPROFIL.TÆTGUM;
 
 (*KARMTÆTNING*)
 
            GENER(6,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
            RPROFIL.NR:=RAMMEPROFIL;
            GETREC(PROZ.H,PROF,RPROFIL.A);
            IF IER<>0 THEN IOF(PROZ.H.FILENAME);
            TYPE3:=RPROFIL.TÆTGUM;
 
 (*RAMMETÆTNING*)
 
            GENER(7,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
            FAKODE:=FAKODE2;GLASTYPE:=2;FANR:=FANR2;
            BESTEMFORSTÆRKNING;
            MÅL:=BREDDE;STÆRKR1:=RAMME.VREGEL(REGELNR);
            STÆRKR2:=RAMME.LREGEL(REGELNR);STÆRKR:=STÆRKR1;
            PROFILBEHANDLING(HØJDE,RAMME.FORSTÆRK,RPROFIL.FORSTÆR,
                             RAMME.BESLAG,RAMMEPROFIL,RPROFIL.TÆTGUM,
                             TILBEHØR.GLASGUM); (*RAMMEPROFILER*)
            BREDDE:=BREDDE-2*RPROFIL.DIM(1);HØJDE:=HØJDE-2*RPROFIL.DIM(1);
          END;
          PLACERING:=20;
 
 (*GLASLISTE*)
 
        GENER(1,0,TILBEHØR.GLASLIST,BREDDE,HØJDE,0,TILBEHØR.GLASLGUM,NULLER);
 
          TYPE3:=TILBEHØR.GLASGUM;
 (*GLASGUMMI*)
 
          GENER(9,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
          GPROFIL.NR:=TILBEHØR.GLASLIST;
          GETREC(PROZ.H,PROF,GPROFIL.A);
          IF IER<>0 THEN IOF(PROZ.H.FILENAME);
          BREDDE:=BREDDE-2*GPROFIL.DIM(1);HØJDE:=HØJDE-2*GPROFIL.DIM(1);
 
 (*GLASLISTEGUMMI*)
 
          TYPE3:=TILBEHØR.GLASGUM;
          GENER(8,TYPE3(1),TYPE3(2),BREDDE,HØJDE,0,NULLER,NULLER);
 
 (*GLAS*)
 
          GENER(GLASTYPE,0,GLASNR,BREDDE,HØJDE,0,NULLER,NULLER);
 
        END;
      END;
      I1:=0;FANR:=FANR1;FAKODE:=FAKODE1;
      BESTEMFORSTÆRKNING;
      MÅL:=OLINIE.BLAMBRED;STÆRKR1:=KVREGEL(REGELNR);
      STÆRKR2:=KLREGEL(REGELNR);STÆRKR:=STÆRKR1;
      PROFILBEHANDLING(OLINIE.BLAMHØJD,KFORSTÆRK,KPROFIL.FORSTÆR,
                       KBESLAG,KARMPROFIL,KPROFIL.TÆTGUM,KGUMMI);
(*KARMPROFILER*)
      BESTEMFORSTÆRKNING;
      FOR PLACERING:=5 TO 19 DO
      BEGIN
        TYPE1:=NULLER;TYPE2:=0;
        POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;
        GETREC(POSZ.H,POSF,POST.A);
        IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);
        IF IER=0 THEN
        BEGIN
          IF POST.VANDLOD=0 THEN
            POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)
          ELSE
            POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);
          MÅL:=LÆNGDE;STÆRKR:=POST.FORSTÆRK(REGELNR);
          STÆRKNING;
          TYPE1:=KPPROFIL.FORSTÆR(TYPER);
 
 (*KARMPOSTFORSTÆRKNING*)
 
          GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);
 
 (*KARMPOSTPROFIL*)
 
          GENER(1,0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);
 
        END;
      END;
      POS:=POS+1;
    END;
  END;
  UNTIL (IER=-6) OR (POS=100);
  LUK;
END;