DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦fb1e46113⟧ TextFile

    Length: 4992 (0x1380)
    Types: TextFile
    Notes: Mikados_K
    Names: »PIP.K«

Derivation

└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
    └─⟦this⟧ »PIP.K«

Mikados K File

PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
  WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
  ICLOSE(RGZ.H,RGF);
  ICLOSE(RGZ1.H,RGF);
  EXIT(REGREORG)
END;
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
  GOTOXY(1,20);
  WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');
  WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
  REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
  IF I<>0 THEN ERROR(FIL);
  CLEARSCREEN
END;

TextFile

!PROCEDURE ERROR(VAR FIL:FILNAVN);!▶05◀BEGIN▶05◀3  WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);3▶14◀  ICLOSE(RGZ.H,RGF);▶14◀▶15◀  ICLOSE(RGZ1.H,RGF);▶15◀▶10◀  EXIT(REGREORG)▶10◀▶04◀END;▶04◀!PROCEDURE OFEJL(VAR FIL:FILNAVN);!▶0e◀VAR I:INTEGER;▶0e◀▶05◀BEGIN▶05◀▶0f◀  GOTOXY(1,20);▶0f◀M  WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');M.  WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');.7  REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;7▶1a◀  IF I<>0 THEN ERROR(FIL);▶1a◀\r  CLEARSCREEN\r▶04◀END;▶04◀▶00◀▶00◀L(RGZ.H.FILENAME);>▶00◀▶00◀     (OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND10        (OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) DO0▶07◀  BEGIN▶07◀5    OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;5E    GETREC(OAZ.H,OAF,OAPOST.A); IF IER<>0 THEN ERROR(OAZ.H.FILENAME);E,    LØN:=OPPOST.CENTIMER*OPPOST.MINUTFAKTOR;,▶17◀    LØNSUM:=LØNSUM+LØN;▶17◀?    WRITELN(LIST,OPPOST.OPERATIONSNR:5,' ':5,OAPOST.BETEGNELSE,?'                     OPPOST.CENTIMER:4,'>                     ORPOST.ANTALBESTILT*OPPOST.CENTIMER:7:-2,>6                     OPPOST.MINUTFAKTOR:8:2,LØN:15:2);6▶1f◀    NEXTREC(OPZ.H,OPF,OPPOST.A)▶1f◀▶06◀  END;▶06◀D  IF (IER<>0) AND (IER<-2) AND (IER<>-9) THEN ERROR(OPZ.H.FILENAME);D▶10◀  WRITELN(LIST);▶10◀/  WRITELN(LIST,'LØN I ALT',' ':50,LØNSUM:15:2);/D  WRITELN(LIST,'SAMLET PRIS PR. ENHED',' ':39,(ORPOST.MATERIALEPRIS+D+               LØNSUM)*ORPOST.FAKTOR:14:2);+\f

  PAGE(LIST)\f

▶04◀END;▶04◀▶06◀(*$P*)▶06◀▶00◀▶00◀/IER:8:1,3:                       RGPOST.LØN:14:2,RGPOST.ENHEDER:15);:▶01◀?▶01◀6      WRITELN(LIST,'MEDARBEJDERNR',' ':4,'Dato',' ':5,6,                 '1/100 TIMER',' ':19,'LØN',,$                   ' ':8,'ENHEDER');$=      WRITELN(LIST,' ':32,'REALI',' ':3,'PR.',' ':11,'REALI',='                   ' ':5,'REALISERET');'?      WRITELN(LIST,' ':32,'SERET',' ':3,'ENHED',' ':9,'SERET');?▶14◀      WRITELN(LIST);▶14◀▶00◀▶00◀    END;▶0e◀&          NEXTREC(OPZ.H,OPF,OPPOST.A);&D          IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEND/             ERROR(OPZ.H.FILENAME) ELSE IER:=0;/▶18◀          IF CH='J' THEN▶18◀▶0f◀          BEGIN▶0f◀=            OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;='            GETREC(OAZ.H,OAF,OAPOST.A);'0            IF IER<>0 THEN ERROR(OAZ.H.FILENAME)0\r          END\r           ELSE OAPOST.GRUPPE:=1; E          KCENT(OAPOST.GRUPPE):=KCENT(OAPOST.GRUPPE)+OPPOST.CENTIMER;E3          KLØN(OAPOST.GRUPPE):=KLØN(OAPOST.GRUPPE)+35            RUND(ORPOST.ANTALBESTILT*OPPOST.CENTIMER*5+                 OPPOST.MINUTFAKTOR*60)/100+▶0b◀        END▶0b◀\f

        ELSE\f

\r        BEGIN\rE          RCENT(OAPOST.GRUPPE):=RCENT(OAPOST.GRUPPE)+RGPOST.CENTIMER;E>          RLØN(OAPOST.GRUPPE):=RLØN(OAPOST.GRUPPE)+RGPOST.LØN;>F          RENHED(OAPOST.GRUPPE):=RENHED(OAPOST.GRUPPE)+RGPOST.ENHEDER;F%          NEXTREC(RGZ.H,RGF,RGPOST.A)%▶0b◀        END▶0b◀
      END;
G      IF (IER<>0) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0;G▶14◀      IF CH='J' THEN▶14◀▶16◀      FOR I:=1 TO 6 DO▶16◀▶0b◀      BEGIN▶0b◀8        WRITELN(LIST,I:4,' ':11,KCENT(I):12,RCENT(I):10,8=                     KLØN(I):12:2,RLØN(I):10:2,RENHED(I):12);=▶1b◀        WRITE(LIST,' ':20);▶1b◀▶1a◀        IF KCENT(I)=0 THEN▶1a◀"          WRITE(LIST,'----------')"6        ELSE WRITE(LIST,100.0*RCENT(I)/KCENT(I):10:2);6▶1b◀        WRITE(LIST,' ':12);▶1b◀4        IF KLØN(I)=0.0 THEN WRITE(LIST,'----------')44        ELSE WRITE(LIST,100.0*RLØN(I)/KLØN(I):10:2);4▶1b◀        WRITE(LIST,' ':12);▶1b◀@        IF ORPOST.ANTALBESTILT=0 THEN WRITELN(LIST,'----------')@D        ELSE WRITELN(LIST,100.0*RENHED(I)/ORPOST.ANTALBESTILT:10:2);D▶16◀        WRITELN(LIST);▶16◀▶1c◀        SUM1:=SUM1+KCENT(I);▶1c◀▶1c◀        SUM2:=SUM2+RCENT(I);▶1c◀▶1b◀        SUM3:=SUM3+KLØN(I);▶1b◀▶1a◀        SUM4:=SUM4+RLØN(I)▶1a◀
      END;
E      WRITELN(LIST,'SUM',' ':12,SUM1:12,SUM2:10,SUM3:12:2,SUM4:10:2);E▶19◀      WRITE(LIST,' ':20);▶19◀-      IF SUM1=0 THEN WRITE(LIST,'----------')-,      ELSE WRITE(LIST,100.0*SUM2/SUM1:10:2);,▶19◀      WRITE(LIST,' ':12);▶19◀1      IF SUM3=0.0 THEN WRITELN(LIST,'----------')1.      ELSE WRITELN(LIST,100.0*SUM4/SUM3:10:2);.▶10◀      PAGE(LIST)▶10◀▶04◀END;▶04◀▶00◀▶00◀LSE IER:=0;;/      WHILE (OPPOST.ORDRENR=ORPOST.ORDRENR) AND/5  ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc▶d0◀

Full view