|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »PIP.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »PIP.K«
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;
0x0000…0023 Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x0023…002a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x002a…005f Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x005f…0075 Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x0075…008c Line {l1=0x15, l2=» ICLOSE(RGZ1.H,RGF);«, l3=0x15}
0x008c…009e Line {l1=0x10, l2=» EXIT(REGREORG)«, l3=0x10}
0x009e…00a4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00a4…00c7 Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x00c7…00d7 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x00d7…00de Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00de…00ef Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x00ef…013e Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x013e…016e Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x016e…01a7 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x01a7…01c3 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x01c3…01d2 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x01d2…01d8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01d8…01e0 00 00 4c 28 52 47 5a 2e ┆ L(RGZ.┆
0x01e0…0200 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3e 00 00 20 20 20 20 20 28 4f 50 50 4f 53 54 2e 50 52 4f 44 ┆H.FILENAME);> (OPPOST.PROD┆
0x0200…0220 55 4b 54 31 4e 52 3d 4f 52 50 4f 53 54 2e 50 52 4f 44 55 4b 54 31 4e 52 29 20 41 4e 44 31 30 20 ┆UKT1NR=ORPOST.PRODUKT1NR) AND10 ┆
0x0220…0240 20 20 20 20 20 20 20 28 4f 50 50 4f 53 54 2e 50 52 4f 44 55 4b 54 32 4e 52 3d 4f 52 50 4f 53 54 ┆ (OPPOST.PRODUKT2NR=ORPOST┆
0x0240…0260 2e 50 52 4f 44 55 4b 54 32 4e 52 29 20 44 4f 30 07 20 20 42 45 47 49 4e 07 35 20 20 20 20 4f 41 ┆.PRODUKT2NR) DO0 BEGIN 5 OA┆
0x0260…0280 50 4f 53 54 2e 4f 50 45 52 41 54 49 4f 4e 53 4e 52 3a 3d 4f 50 50 4f 53 54 2e 4f 50 45 52 41 54 ┆POST.OPERATIONSNR:=OPPOST.OPERAT┆
0x0280…02a0 49 4f 4e 53 4e 52 20 4d 4f 44 20 31 30 30 3b 35 45 20 20 20 20 47 45 54 52 45 43 28 4f 41 5a 2e ┆IONSNR MOD 100;5E GETREC(OAZ.┆
0x02a0…02c0 48 2c 4f 41 46 2c 4f 41 50 4f 53 54 2e 41 29 3b 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 ┆H,OAF,OAPOST.A); IF IER<>0 THEN ┆
0x02c0…02e0 45 52 52 4f 52 28 4f 41 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 45 2c 20 20 20 20 4c 5c 4e 3a ┆ERROR(OAZ.H.FILENAME);E, LØN:┆
0x02e0…0300 3d 4f 50 50 4f 53 54 2e 43 45 4e 54 49 4d 45 52 2a 4f 50 50 4f 53 54 2e 4d 49 4e 55 54 46 41 4b ┆=OPPOST.CENTIMER*OPPOST.MINUTFAK┆
0x0300…0320 54 4f 52 3b 2c 17 20 20 20 20 4c 5c 4e 53 55 4d 3a 3d 4c 5c 4e 53 55 4d 2b 4c 5c 4e 3b 17 3f 20 ┆TOR;, LØNSUM:=LØNSUM+LØN; ? ┆
0x0320…0340 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 4f 50 50 4f 53 54 2e 4f 50 45 52 41 54 49 4f 4e ┆ WRITELN(LIST,OPPOST.OPERATION┆
0x0340…0360 53 4e 52 3a 35 2c 27 20 27 3a 35 2c 4f 41 50 4f 53 54 2e 42 45 54 45 47 4e 45 4c 53 45 2c 3f 27 ┆SNR:5,' ':5,OAPOST.BETEGNELSE,?'┆
0x0360…0380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 50 4f 53 54 2e 43 45 4e 54 ┆ OPPOST.CENT┆
0x0380…03a0 49 4d 45 52 3a 34 2c 27 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 52 ┆IMER:4,'> OR┆
0x03a0…03c0 50 4f 53 54 2e 41 4e 54 41 4c 42 45 53 54 49 4c 54 2a 4f 50 50 4f 53 54 2e 43 45 4e 54 49 4d 45 ┆POST.ANTALBESTILT*OPPOST.CENTIME┆
0x03c0…03e0 52 3a 37 3a 2d 32 2c 3e 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 ┆R:7:-2,>6 OP┆
0x03e0…0400 50 4f 53 54 2e 4d 49 4e 55 54 46 41 4b 54 4f 52 3a 38 3a 32 2c 4c 5c 4e 3a 31 35 3a 32 29 3b 36 ┆POST.MINUTFAKTOR:8:2,LØN:15:2);6┆
0x0400…0420 1f 20 20 20 20 4e 45 58 54 52 45 43 28 4f 50 5a 2e 48 2c 4f 50 46 2c 4f 50 50 4f 53 54 2e 41 29 ┆ NEXTREC(OPZ.H,OPF,OPPOST.A)┆
0x0420…0440 1f 06 20 20 45 4e 44 3b 06 44 20 20 49 46 20 28 49 45 52 3c 3e 30 29 20 41 4e 44 20 28 49 45 52 ┆ END; D IF (IER<>0) AND (IER┆
0x0440…0460 3c 2d 32 29 20 41 4e 44 20 28 49 45 52 3c 3e 2d 39 29 20 54 48 45 4e 20 45 52 52 4f 52 28 4f 50 ┆<-2) AND (IER<>-9) THEN ERROR(OP┆
0x0460…0480 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 44 10 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b ┆Z.H.FILENAME);D WRITELN(LIST);┆
0x0480…04a0 10 2f 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 4c 5c 4e 20 49 20 41 4c 54 27 2c 27 20 27 ┆ / WRITELN(LIST,'LØN I ALT',' '┆
0x04a0…04c0 3a 35 30 2c 4c 5c 4e 53 55 4d 3a 31 35 3a 32 29 3b 2f 44 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 ┆:50,LØNSUM:15:2);/D WRITELN(LIS┆
0x04c0…04e0 54 2c 27 53 41 4d 4c 45 54 20 50 52 49 53 20 50 52 2e 20 45 4e 48 45 44 27 2c 27 20 27 3a 33 39 ┆T,'SAMLET PRIS PR. ENHED',' ':39┆
0x04e0…0500 2c 28 4f 52 50 4f 53 54 2e 4d 41 54 45 52 49 41 4c 45 50 52 49 53 2b 44 2b 20 20 20 20 20 20 20 ┆,(ORPOST.MATERIALEPRIS+D+ ┆
0x0500…0520 20 20 20 20 20 20 20 20 4c 5c 4e 53 55 4d 29 2a 4f 52 50 4f 53 54 2e 46 41 4b 54 4f 52 3a 31 34 ┆ LØNSUM)*ORPOST.FAKTOR:14┆
0x0520…0540 3a 32 29 3b 2b 0c 20 20 50 41 47 45 28 4c 49 53 54 29 0c 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 ┆:2);+ PAGE(LIST) END; (*$P*)┆
0x0540…0560 06 00 00 2f 49 45 52 3a 38 3a 31 2c 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ /IER:8:1,3: ┆
0x0560…0580 20 20 20 20 20 52 47 50 4f 53 54 2e 4c 5c 4e 3a 31 34 3a 32 2c 52 47 50 4f 53 54 2e 45 4e 48 45 ┆ RGPOST.LØN:14:2,RGPOST.ENHE┆
0x0580…05a0 44 45 52 3a 31 35 29 3b 3a 01 3f 01 36 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c ┆DER:15);: ? 6 WRITELN(LIST,┆
0x05a0…05c0 27 4d 45 44 41 52 42 45 4a 44 45 52 4e 52 27 2c 27 20 27 3a 34 2c 27 44 61 74 6f 27 2c 27 20 27 ┆'MEDARBEJDERNR',' ':4,'Dato',' '┆
0x05c0…05e0 3a 35 2c 36 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 31 2f 31 30 30 20 54 49 4d ┆:5,6, '1/100 TIM┆
0x05e0…0600 45 52 27 2c 27 20 27 3a 31 39 2c 27 4c 5c 4e 27 2c 2c 24 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ER',' ':19,'LØN',,$ ┆
0x0600…0620 20 20 20 20 20 20 27 20 27 3a 38 2c 27 45 4e 48 45 44 45 52 27 29 3b 24 3d 20 20 20 20 20 20 57 ┆ ' ':8,'ENHEDER');$= W┆
0x0620…0640 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 20 27 3a 33 32 2c 27 52 45 41 4c 49 27 2c 27 20 27 3a 33 ┆RITELN(LIST,' ':32,'REALI',' ':3┆
0x0640…0660 2c 27 50 52 2e 27 2c 27 20 27 3a 31 31 2c 27 52 45 41 4c 49 27 2c 3d 27 20 20 20 20 20 20 20 20 ┆,'PR.',' ':11,'REALI',=' ┆
0x0660…0680 20 20 20 20 20 20 20 20 20 20 20 27 20 27 3a 35 2c 27 52 45 41 4c 49 53 45 52 45 54 27 29 3b 27 ┆ ' ':5,'REALISERET');'┆
0x0680…06a0 3f 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 20 27 3a 33 32 2c 27 53 45 52 45 ┆? WRITELN(LIST,' ':32,'SERE┆
0x06a0…06c0 54 27 2c 27 20 27 3a 33 2c 27 45 4e 48 45 44 27 2c 27 20 27 3a 39 2c 27 53 45 52 45 54 27 29 3b ┆T',' ':3,'ENHED',' ':9,'SERET');┆
0x06c0…06e0 3f 14 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 14 00 00 20 20 20 20 45 4e 44 ┆? WRITELN(LIST); END┆
0x06e0…0700 3b 0e 26 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 4f 50 5a 2e 48 2c 4f 50 46 2c 4f ┆; & NEXTREC(OPZ.H,OPF,O┆
0x0700…0720 50 50 4f 53 54 2e 41 29 3b 26 44 20 20 20 20 20 20 20 20 20 20 49 46 20 28 49 45 52 3c 3e 30 29 ┆PPOST.A);&D IF (IER<>0)┆
0x0720…0740 20 41 4e 44 20 28 49 45 52 3c 3e 2d 31 29 20 41 4e 44 20 28 49 45 52 3c 3e 2d 32 29 20 41 4e 44 ┆ AND (IER<>-1) AND (IER<>-2) AND┆
0x0740…0760 20 28 49 45 52 3c 3e 2d 39 29 20 54 48 45 4e 44 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 ┆ (IER<>-9) THEND/ ER┆
0x0760…0780 52 4f 52 28 4f 50 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 20 45 4c 53 45 20 49 45 52 3a 3d 30 3b ┆ROR(OPZ.H.FILENAME) ELSE IER:=0;┆
0x0780…07a0 2f 18 20 20 20 20 20 20 20 20 20 20 49 46 20 43 48 3d 27 4a 27 20 54 48 45 4e 18 0f 20 20 20 20 ┆/ IF CH='J' THEN ┆
0x07a0…07c0 20 20 20 20 20 20 42 45 47 49 4e 0f 3d 20 20 20 20 20 20 20 20 20 20 20 20 4f 41 50 4f 53 54 2e ┆ BEGIN = OAPOST.┆
0x07c0…07e0 4f 50 45 52 41 54 49 4f 4e 53 4e 52 3a 3d 4f 50 50 4f 53 54 2e 4f 50 45 52 41 54 49 4f 4e 53 4e ┆OPERATIONSNR:=OPPOST.OPERATIONSN┆
0x07e0…0800 52 20 4d 4f 44 20 31 30 30 3b 3d 27 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 4f ┆R MOD 100;=' GETREC(O┆
0x0800…0820 41 5a 2e 48 2c 4f 41 46 2c 4f 41 50 4f 53 54 2e 41 29 3b 27 30 20 20 20 20 20 20 20 20 20 20 20 ┆AZ.H,OAF,OAPOST.A);'0 ┆
0x0820…0840 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 28 4f 41 5a 2e 48 2e 46 49 4c 45 ┆ IF IER<>0 THEN ERROR(OAZ.H.FILE┆
0x0840…0860 4e 41 4d 45 29 30 0d 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 20 20 20 20 20 20 20 20 20 20 20 ┆NAME)0 END ┆
0x0860…0880 45 4c 53 45 20 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 3a 3d 31 3b 20 45 20 20 20 20 20 20 20 20 ┆ELSE OAPOST.GRUPPE:=1; E ┆
0x0880…08a0 20 20 4b 43 45 4e 54 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 3a 3d 4b 43 45 4e 54 28 4f 41 ┆ KCENT(OAPOST.GRUPPE):=KCENT(OA┆
0x08a0…08c0 50 4f 53 54 2e 47 52 55 50 50 45 29 2b 4f 50 50 4f 53 54 2e 43 45 4e 54 49 4d 45 52 3b 45 33 20 ┆POST.GRUPPE)+OPPOST.CENTIMER;E3 ┆
0x08c0…08e0 20 20 20 20 20 20 20 20 20 4b 4c 5c 4e 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 3a 3d 4b 4c ┆ KLØN(OAPOST.GRUPPE):=KL┆
0x08e0…0900 5c 4e 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 2b 33 35 20 20 20 20 20 20 20 20 20 20 20 20 ┆ØN(OAPOST.GRUPPE)+35 ┆
0x0900…0920 52 55 4e 44 28 4f 52 50 4f 53 54 2e 41 4e 54 41 4c 42 45 53 54 49 4c 54 2a 4f 50 50 4f 53 54 2e ┆RUND(ORPOST.ANTALBESTILT*OPPOST.┆
0x0920…0940 43 45 4e 54 49 4d 45 52 2a 35 2b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 50 50 4f ┆CENTIMER*5+ OPPO┆
0x0940…0960 53 54 2e 4d 49 4e 55 54 46 41 4b 54 4f 52 2a 36 30 29 2f 31 30 30 2b 0b 20 20 20 20 20 20 20 20 ┆ST.MINUTFAKTOR*60)/100+ ┆
0x0960…0980 45 4e 44 0b 0c 20 20 20 20 20 20 20 20 45 4c 53 45 0c 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆END ELSE BEGIN┆
0x0980…09a0 0d 45 20 20 20 20 20 20 20 20 20 20 52 43 45 4e 54 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 ┆ E RCENT(OAPOST.GRUPPE)┆
0x09a0…09c0 3a 3d 52 43 45 4e 54 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 2b 52 47 50 4f 53 54 2e 43 45 ┆:=RCENT(OAPOST.GRUPPE)+RGPOST.CE┆
0x09c0…09e0 4e 54 49 4d 45 52 3b 45 3e 20 20 20 20 20 20 20 20 20 20 52 4c 5c 4e 28 4f 41 50 4f 53 54 2e 47 ┆NTIMER;E> RLØN(OAPOST.G┆
0x09e0…0a00 52 55 50 50 45 29 3a 3d 52 4c 5c 4e 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 2b 52 47 50 4f ┆RUPPE):=RLØN(OAPOST.GRUPPE)+RGPO┆
0x0a00…0a20 53 54 2e 4c 5c 4e 3b 3e 46 20 20 20 20 20 20 20 20 20 20 52 45 4e 48 45 44 28 4f 41 50 4f 53 54 ┆ST.LØN;>F RENHED(OAPOST┆
0x0a20…0a40 2e 47 52 55 50 50 45 29 3a 3d 52 45 4e 48 45 44 28 4f 41 50 4f 53 54 2e 47 52 55 50 50 45 29 2b ┆.GRUPPE):=RENHED(OAPOST.GRUPPE)+┆
0x0a40…0a60 52 47 50 4f 53 54 2e 45 4e 48 45 44 45 52 3b 46 25 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 52 ┆RGPOST.ENHEDER;F% NEXTR┆
0x0a60…0a80 45 43 28 52 47 5a 2e 48 2c 52 47 46 2c 52 47 50 4f 53 54 2e 41 29 25 0b 20 20 20 20 20 20 20 20 ┆EC(RGZ.H,RGF,RGPOST.A)% ┆
0x0a80…0aa0 45 4e 44 0b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 47 20 20 20 20 20 20 49 46 20 28 49 45 52 3c 3e ┆END END; G IF (IER<>┆
0x0aa0…0ac0 30 29 20 41 4e 44 20 28 49 45 52 3c 3e 2d 39 29 20 54 48 45 4e 20 45 52 52 4f 52 28 52 47 5a 2e ┆0) AND (IER<>-9) THEN ERROR(RGZ.┆
0x0ac0…0ae0 48 2e 46 49 4c 45 4e 41 4d 45 29 20 45 4c 53 45 20 49 45 52 3a 3d 30 3b 47 14 20 20 20 20 20 20 ┆H.FILENAME) ELSE IER:=0;G ┆
0x0ae0…0b00 49 46 20 43 48 3d 27 4a 27 20 54 48 45 4e 14 16 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 ┆IF CH='J' THEN FOR I:=1 T┆
0x0b00…0b20 4f 20 36 20 44 4f 16 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 38 20 20 20 20 20 20 20 20 57 52 49 ┆O 6 DO BEGIN 8 WRI┆
0x0b20…0b40 54 45 4c 4e 28 4c 49 53 54 2c 49 3a 34 2c 27 20 27 3a 31 31 2c 4b 43 45 4e 54 28 49 29 3a 31 32 ┆TELN(LIST,I:4,' ':11,KCENT(I):12┆
0x0b40…0b60 2c 52 43 45 4e 54 28 49 29 3a 31 30 2c 38 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,RCENT(I):10,8= ┆
0x0b60…0b80 20 20 20 20 4b 4c 5c 4e 28 49 29 3a 31 32 3a 32 2c 52 4c 5c 4e 28 49 29 3a 31 30 3a 32 2c 52 45 ┆ KLØN(I):12:2,RLØN(I):10:2,RE┆
0x0b80…0ba0 4e 48 45 44 28 49 29 3a 31 32 29 3b 3d 1b 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 ┆NHED(I):12);= WRITE(LIST┆
0x0ba0…0bc0 2c 27 20 27 3a 32 30 29 3b 1b 1a 20 20 20 20 20 20 20 20 49 46 20 4b 43 45 4e 54 28 49 29 3d 30 ┆,' ':20); IF KCENT(I)=0┆
0x0bc0…0be0 20 54 48 45 4e 1a 22 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 2d 2d 2d ┆ THEN " WRITE(LIST,'---┆
0x0be0…0c00 2d 2d 2d 2d 2d 2d 2d 27 29 22 36 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 28 4c 49 ┆-------')"6 ELSE WRITE(LI┆
0x0c00…0c20 53 54 2c 31 30 30 2e 30 2a 52 43 45 4e 54 28 49 29 2f 4b 43 45 4e 54 28 49 29 3a 31 30 3a 32 29 ┆ST,100.0*RCENT(I)/KCENT(I):10:2)┆
0x0c20…0c40 3b 36 1b 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 31 32 29 3b 1b 34 ┆;6 WRITE(LIST,' ':12); 4┆
0x0c40…0c60 20 20 20 20 20 20 20 20 49 46 20 4b 4c 5c 4e 28 49 29 3d 30 2e 30 20 54 48 45 4e 20 57 52 49 54 ┆ IF KLØN(I)=0.0 THEN WRIT┆
0x0c60…0c80 45 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 34 34 20 20 20 20 20 20 20 20 45 4c ┆E(LIST,'----------')44 EL┆
0x0c80…0ca0 53 45 20 57 52 49 54 45 28 4c 49 53 54 2c 31 30 30 2e 30 2a 52 4c 5c 4e 28 49 29 2f 4b 4c 5c 4e ┆SE WRITE(LIST,100.0*RLØN(I)/KLØN┆
0x0ca0…0cc0 28 49 29 3a 31 30 3a 32 29 3b 34 1b 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 ┆(I):10:2);4 WRITE(LIST,'┆
0x0cc0…0ce0 20 27 3a 31 32 29 3b 1b 40 20 20 20 20 20 20 20 20 49 46 20 4f 52 50 4f 53 54 2e 41 4e 54 41 4c ┆ ':12); @ IF ORPOST.ANTAL┆
0x0ce0…0d00 42 45 53 54 49 4c 54 3d 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 2d 2d 2d ┆BESTILT=0 THEN WRITELN(LIST,'---┆
0x0d00…0d20 2d 2d 2d 2d 2d 2d 2d 27 29 40 44 20 20 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 ┆-------')@D ELSE WRITELN(┆
0x0d20…0d40 4c 49 53 54 2c 31 30 30 2e 30 2a 52 45 4e 48 45 44 28 49 29 2f 4f 52 50 4f 53 54 2e 41 4e 54 41 ┆LIST,100.0*RENHED(I)/ORPOST.ANTA┆
0x0d40…0d60 4c 42 45 53 54 49 4c 54 3a 31 30 3a 32 29 3b 44 16 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e ┆LBESTILT:10:2);D WRITELN┆
0x0d60…0d80 28 4c 49 53 54 29 3b 16 1c 20 20 20 20 20 20 20 20 53 55 4d 31 3a 3d 53 55 4d 31 2b 4b 43 45 4e ┆(LIST); SUM1:=SUM1+KCEN┆
0x0d80…0da0 54 28 49 29 3b 1c 1c 20 20 20 20 20 20 20 20 53 55 4d 32 3a 3d 53 55 4d 32 2b 52 43 45 4e 54 28 ┆T(I); SUM2:=SUM2+RCENT(┆
0x0da0…0dc0 49 29 3b 1c 1b 20 20 20 20 20 20 20 20 53 55 4d 33 3a 3d 53 55 4d 33 2b 4b 4c 5c 4e 28 49 29 3b ┆I); SUM3:=SUM3+KLØN(I);┆
0x0dc0…0de0 1b 1a 20 20 20 20 20 20 20 20 53 55 4d 34 3a 3d 53 55 4d 34 2b 52 4c 5c 4e 28 49 29 1a 0a 20 20 ┆ SUM4:=SUM4+RLØN(I) ┆
0x0de0…0e00 20 20 20 20 45 4e 44 3b 0a 45 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 53 55 ┆ END; E WRITELN(LIST,'SU┆
0x0e00…0e20 4d 27 2c 27 20 27 3a 31 32 2c 53 55 4d 31 3a 31 32 2c 53 55 4d 32 3a 31 30 2c 53 55 4d 33 3a 31 ┆M',' ':12,SUM1:12,SUM2:10,SUM3:1┆
0x0e20…0e40 32 3a 32 2c 53 55 4d 34 3a 31 30 3a 32 29 3b 45 19 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 ┆2:2,SUM4:10:2);E WRITE(LIS┆
0x0e40…0e60 54 2c 27 20 27 3a 32 30 29 3b 19 2d 20 20 20 20 20 20 49 46 20 53 55 4d 31 3d 30 20 54 48 45 4e ┆T,' ':20); - IF SUM1=0 THEN┆
0x0e60…0e80 20 57 52 49 54 45 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 2d 2c 20 20 20 20 20 ┆ WRITE(LIST,'----------')-, ┆
0x0e80…0ea0 20 45 4c 53 45 20 57 52 49 54 45 28 4c 49 53 54 2c 31 30 30 2e 30 2a 53 55 4d 32 2f 53 55 4d 31 ┆ ELSE WRITE(LIST,100.0*SUM2/SUM1┆
0x0ea0…0ec0 3a 31 30 3a 32 29 3b 2c 19 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 31 32 ┆:10:2);, WRITE(LIST,' ':12┆
0x0ec0…0ee0 29 3b 19 31 20 20 20 20 20 20 49 46 20 53 55 4d 33 3d 30 2e 30 20 54 48 45 4e 20 57 52 49 54 45 ┆); 1 IF SUM3=0.0 THEN WRITE┆
0x0ee0…0f00 4c 4e 28 4c 49 53 54 2c 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 31 2e 20 20 20 20 20 20 45 4c 53 ┆LN(LIST,'----------')1. ELS┆
0x0f00…0f20 45 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 31 30 30 2e 30 2a 53 55 4d 34 2f 53 55 4d 33 3a 31 ┆E WRITELN(LIST,100.0*SUM4/SUM3:1┆
0x0f20…0f40 30 3a 32 29 3b 2e 10 20 20 20 20 20 20 50 41 47 45 28 4c 49 53 54 29 10 04 45 4e 44 3b 04 00 00 ┆0:2);. PAGE(LIST) END; ┆
0x0f40…0f60 4c 53 45 20 49 45 52 3a 3d 30 3b 3b 2f 20 20 20 20 20 20 57 48 49 4c 45 20 28 4f 50 50 4f 53 54 ┆LSE IER:=0;;/ WHILE (OPPOST┆
0x0f60…0f80 2e 4f 52 44 52 45 4e 52 3d 4f 52 50 4f 53 54 2e 4f 52 44 52 45 4e 52 29 20 41 4e 44 2f 35 20 20 ┆.ORDRENR=ORPOST.ORDRENR) AND/5 ┆
0x0f80…0fa0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1e…]
0x1360…1380 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 d0 ┆ccccccccccccccccccccccccccccccc ┆
!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◀