|
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: 15264 (0x3ba0)
Types: TextFile
Notes: Mikados_K
Names: »ORDSPØRG.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »ORDSPØRG.K«
PROGRAM ORDSPØRG;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
VAR PARM:^PARMARRAY;
QUQ:^INTEGER;
FNAVN:STRING;
(*$P*)
PROCEDURE REGVEDL;
CONST MORDREZ=295;
MOPLINZ=370;
MOPERAZ=257;
MREGLIZ=583;
(*$IISFHEAD*)
ORDREZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MORDREZ) OF INTEGER
END;
REGLIZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MREGLIZ) OF INTEGER
END;
OPLINZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOPLINZ) OF INTEGER
END;
OPERAZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOPERAZ) OF INTEGER
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
REGLIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
LØN :REAL;
ORDRENR,
PRODUKT1NR,
PRODUKT2NR,
OPERATIONSNR,
MEDARBEJDERNR,
DAT1,DAT2,
CENTIMER,
ENHEDER :INTEGER
END;
ORDREPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ANTALBESTILT,
MATERIALEPRIS,
SALGSPRIS,
FAKTOR :REAL;
ORDRENR,
PRODUKT1NR,
PRODUKT2NR :INTEGER
END;
OPLINPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
MINUTFAKTOR :REAL;
ORDRENR,
PRODUKT1NR,
PRODUKT2NR,
OPERATIONSNR,
CENTIMER :INTEGER
END;
OPERAPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
OPERATIONSNR,
GRUPPE :INTEGER;
BETEGNELSE :PACKED ARRAY (1..30) OF CHAR
END;
SYSPOST=RECORD
MINUTFAKTOR:ARRAY (1..5) OF REAL;
DAT1,DAT2:INTEGER
END;
SYSFILE=FILE OF SYSPOST;
VAR SF:SYSFILE;
IER,I,J:INTEGER;
RGF,ORF,OPF,OAF:ISF;
ORZ:ORDREZONE;
OPZ:OPLINZONE;
OAZ:OPERAZONE;
RGZ:REGLIZONE;
ORPOST:ORDREPOST;
OPPOST:OPLINPOST;
OAPOST:OPERAPOST;
RGPOST:REGLIPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$L+*)
(*$P*)
PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(ORZ.H,ORF);
ICLOSE(OPZ.H,OPF);
ICLOSE(OAZ.H,OAF);
ICLOSE(RGZ.H,RGF);
EXIT(REGVEDL)
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;
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:STRING(1);
R,SUM1,SUM2,SUM3,SUM4:REAL;
KCENT,RCENT,RENHED,KLØN,RLØN:ARRAY (1..6) OF REAL;
FUNCTION RUND(R:REAL):REAL;
VAR R1:REAL;
BEGIN
R1:=TRUNC(R/10000.0);
R1:=R1*10000.0;
RUND:=ROUND(R-R1)+R1
END;
(*$P*)
PROCEDURE DOIT;
BEGIN
NEXTREC(RGZ.H,RGF,RGPOST.A);
IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME)
ELSE IER:=0;
WHILE (OPPOST.ORDRENR=ORPOST.ORDRENR) AND
(OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND
(OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) AND (IER=0) DO
BEGIN
IF (OPPOST.OPERATIONSNR<>RGPOST.OPERATIONSNR) OR
(OPPOST.ORDRENR<>RGPOST.ORDRENR) OR
(OPPOST.PRODUKT1NR<>RGPOST.PRODUKT1NR) OR
(OPPOST.PRODUKT2NR<>RGPOST.PRODUKT2NR) THEN
BEGIN
IF (OPPOST.OPERATIONSNR<>0) AND (CH='N') THEN
BEGIN
WRITELN(LIST,'----------------------------------------',
'----------------------------------');
IF ORPOST.ANTALBESTILT=0 THEN R:=1 ELSE R:=ORPOST.ANTALBESTILT;
WRITELN(LIST,OPPOST.OPERATIONSNR:4,' ':11,'REALISERET',
RCENT(1):12:-2,RCENT(1)/R:8:1,
RLØN(1):14:2,
RENHED(1):15:-2);
WRITELN(LIST,' ':15,'KALKULERET',KCENT(1):12:-2,
OPPOST.CENTIMER:8,
KLØN(1):14:2);
SUM1:=SUM1+KCENT(1);
SUM2:=SUM2+RCENT(1);
SUM3:=SUM3+KLØN(1);
SUM4:=SUM4+RLØN(1);
WRITE(LIST,' ':19,'%');
IF KCENT(1)=0.0 THEN
WRITE(LIST,'----------')
ELSE
WRITE(LIST,100.0*RCENT(1)/KCENT(1):10:2);
WRITE(LIST,' ':12);
IF KLØN(1)=0.0 THEN
WRITE(LIST,'----------')
ELSE
WRITE(LIST,100.0*RLØN(1)/KLØN(1):10:2);
WRITE(LIST,' ':12);
IF ORPOST.ANTALBESTILT=0.0 THEN
WRITELN(LIST,'----------')
ELSE
WRITELN(LIST,100.0*RENHED(1)/ORPOST.ANTALBESTILT:10:2);
WRITELN(LIST);
RENHED(1):=0.0;KCENT(1):=0.0;KLØN(1):=0.0;
RCENT(1):=0.0;
RLØN(1):=0.0
END;
NEXTREC(OPZ.H,OPF,OPPOST.A);
IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN
ERROR(OPZ.H.FILENAME) ELSE IER:=0;
IF (OPPOST.ORDRENR=ORPOST.ORDRENR) AND
(OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND
(OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) THEN
BEGIN
OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;
GETREC(OAZ.H,OAF,OAPOST.A);
IF IER<>0 THEN ERROR(OAZ.H.FILENAME);
IF CH='N' THEN
BEGIN
WRITELN(LIST,OAPOST.BETEGNELSE);
OAPOST.GRUPPE:=1
END;
KCENT(OAPOST.GRUPPE):=KCENT(OAPOST.GRUPPE)+OPPOST.CENTIMER*
ORPOST.ANTALBESTILT;
KLØN(OAPOST.GRUPPE):=KLØN(OAPOST.GRUPPE)+
ORPOST.ANTALBESTILT*OPPOST.CENTIMER*
OPPOST.MINUTFAKTOR
END
END
ELSE
BEGIN
IF RGPOST.ENHEDER=0 THEN IER:=1 ELSE IER:=RGPOST.ENHEDER;
IF CH='N' THEN WRITELN(LIST,RGPOST.MEDARBEJDERNR:10,RGPOST.DAT1*10000.0+
RGPOST.DAT2:11:-2,RGPOST.CENTIMER:16,
1.0*RGPOST.CENTIMER/IER:8:1,
RGPOST.LØN:14:2,RGPOST.ENHEDER:15);
RCENT(OAPOST.GRUPPE):=RCENT(OAPOST.GRUPPE)+RGPOST.CENTIMER;
RLØN(OAPOST.GRUPPE):=RLØN(OAPOST.GRUPPE)+RGPOST.LØN;
RENHED(OAPOST.GRUPPE):=RENHED(OAPOST.GRUPPE)+RGPOST.ENHEDER;
NEXTREC(RGZ.H,RGF,RGPOST.A)
END
END;
IF (IER<>0) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0;
END;
PROCEDURE DOTWO;
BEGIN
FOR I:=1 TO 6 DO
IF (KCENT(I)<>0.0) OR (RCENT(I)<>0.0) OR (KLØN(I)<>0.0) OR
(RLØN(I)<>0.0) THEN
BEGIN
WRITELN(LIST,I:4,' ':11,KCENT(I):12:-2,RCENT(I):10:-2,
KLØN(I):12:2,RLØN(I):10:2);
WRITE(LIST,' ':20);
IF KCENT(I)=0.0 THEN
WRITE(LIST,'----------')
ELSE WRITE(LIST,100.0*RCENT(I)/KCENT(I):10:2);
WRITE(LIST,' ':12);
IF KLØN(I)=0.0 THEN WRITELN(LIST,'----------')
ELSE WRITELN(LIST,100.0*RLØN(I)/KLØN(I):10:2);
WRITELN(LIST);
SUM1:=SUM1+KCENT(I);
SUM2:=SUM2+RCENT(I);
SUM3:=SUM3+KLØN(I);
SUM4:=SUM4+RLØN(I)
END;
END;
(*$P*)
BEGIN
REPEAT
CLEARSCREEN;
REPEAT
GOTOXY(1,5);
WRITELN('Ordrenummer');
GOTOXY(13,5);
READLN;READ(ORPOST.ORDRENR)
UNTIL IORESULT=0;
REPEAT
GOTOXY(1,6);
WRITELN('Produktnummer');
GOTOXY(15,6);
READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<=999999.0);
ORPOST.PRODUKT1NR:=TRUNC(R/10000.0);
ORPOST.PRODUKT2NR:=TRUNC(R-ORPOST.PRODUKT1NR*10000.0);
GETREC(ORZ.H,ORF,ORPOST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(ORZ.H.FILENAME);
IF IER=0 THEN
BEGIN
REPEAT
GOTOXY(1,7);
CH:='N';
WRITELN('Gruppeopdelt J/N');
GOTOXY(18,7);EDIT(CH)
UNTIL (CH='N') OR (CH='J');
WRITELN(LIST,'ORDRESTATUS',' ':7,'ORDRENR',ORPOST.ORDRENR:6,
' ':3,'PRODUKTNR',ORPOST.PRODUKT1NR*10000.0+
ORPOST.PRODUKT2NR:8:-2,' ':11,'Dato',
SF^.DAT1*10000.0+SF^.DAT2:8:-2);
WRITELN(LIST,'MATERIALEPRIS',' ':5,'SALGSPRIS',' ':7,
'KALKULATIONSFAKTOR',' ':6,
'KALKULERET ANTAL');
WRITELN(LIST,ORPOST.MATERIALEPRIS:13:2,ORPOST.SALGSPRIS:14:2,
ORPOST.FAKTOR:25:2,ORPOST.ANTALBESTILT:22:-2);
WRITELN(LIST);
IF CH='J' THEN
BEGIN
WRITELN(LIST,'GRUPPENR ',
' ':8,'ANTAL 1/100 TIMER',' ':19,'LØN');
WRITELN(LIST,' ':22,'KALKU REALI',' ':7,'KALKU REALI');
WRITELN(LIST,' ':22,'LERET % SERET',' ':7,'LERET % SERET');
WRITELN(LIST)
END
ELSE
BEGIN
WRITELN(LIST,'MEDARBEJDERNR',' ':4,'Dato',' ':5,
'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');
WRITELN(LIST)
END;
FOR I:=1 TO 6 DO
BEGIN
KCENT(I):=0.0;
RCENT(I):=0.0;
KLØN(I):=0.0;
RLØN(I):=0.0;
RENHED(I):=0.0
END;
SUM1:=0.0;SUM2:=0.0;SUM3:=0.0;SUM4:=0.0;
OPPOST.ORDRENR:=ORPOST.ORDRENR;
OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;
OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;
OPPOST.OPERATIONSNR:=0;
RGPOST.ORDRENR:=ORPOST.ORDRENR;
RGPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;
RGPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;
RGPOST.OPERATIONSNR:=0;
DOIT;
IF CH='J' THEN
BEGIN
DOTWO;
WRITELN(LIST,'SUM',' ':12,SUM1:12:-2,SUM2:10:-2,SUM3:12:2,SUM4:10:2);
WRITE(LIST,' ':20);
IF SUM1=0.0 THEN WRITE(LIST,'----------')
ELSE WRITE(LIST,100.0*SUM2/SUM1:10:2);
WRITE(LIST,' ':12);
IF SUM3=0.0 THEN WRITELN(LIST,'----------')
ELSE WRITELN(LIST,100.0*SUM4/SUM3:10:2);
END;
PAGE(LIST)
END;
CH:='J';
GOTOXY(1,8);
WRITELN('Flere ordrer');
GOTOXY(14,8);EDIT(CH)
UNTIL CH='N'
END;
(*$P*)
BEGIN
CLEARSCREEN;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SF,FNAVN);
SEEK(SF,1);
GET(SF);
ORZ.H.FILENAME:='ORDREREG';
FNAVN:='ORDREREG:P2:0000:I';
REWRITE(ORF,FNAVN);
IOPEN(ORZ.H,ORF,LÆS);IF IER<>0 THEN OFEJL(ORZ.H.FILENAME);
OPZ.H.FILENAME:='OPLINREG';
FNAVN:='OPLINREG:P2:0000:I';
REWRITE(OPF,FNAVN);
IOPEN(OPZ.H,OPF,LÆS);IF IER<>0 THEN OFEJL(OPZ.H.FILENAME);
OAZ.H.FILENAME:='OPERAREG';
FNAVN:='OPERAREG:P2:0000:I';
REWRITE(OAF,FNAVN);
IOPEN(OAZ.H,OAF,LÆS);IF IER<>0 THEN OFEJL(OAZ.H.FILENAME);
RGZ.H.FILENAME:='REGLIREG';
FNAVN:='REGLIREG:P2:0000:I';
REWRITE(RGF,FNAVN);
IOPEN(RGZ.H,RGF,LÆS);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);
MAINTAIN;
ICLOSE(ORZ.H,ORF);
ICLOSE(OPZ.H,OPF);
ICLOSE(OAZ.H,OAF);
ICLOSE(RGZ.H,RGF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM ORDSPØRG;«, l3=0x11}
0x0013…0019 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0019…0042 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0042…005b Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x005b…0071 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0071…0087 Line {l1=0x14, l2=» FNAVN:STRING;«, l3=0x14}
0x0087…008f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008f…00a3 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x00a3…00b7 Line {l1=0x12, l2=»CONST MORDREZ=295;«, l3=0x12}
0x00b7…00cb Line {l1=0x12, l2=» MOPLINZ=370;«, l3=0x12}
0x00cb…00df Line {l1=0x12, l2=» MOPERAZ=257;«, l3=0x12}
0x00df…00f3 Line {l1=0x12, l2=» MREGLIZ=583;«, l3=0x12}
0x00f3…0102 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0102…0114 Line {l1=0x10, l2=»ORDREZONE=RECORD«, l3=0x10}
0x0114…0128 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0128…0150 Line {l1=0x26, l2=» T:ARRAY(1..MORDREZ) OF INTEGER«, l3=0x26}
0x0150…0156 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0156…0168 Line {l1=0x10, l2=»REGLIZONE=RECORD«, l3=0x10}
0x0168…017c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x017c…01a4 Line {l1=0x26, l2=» T:ARRAY(1..MREGLIZ) OF INTEGER«, l3=0x26}
0x01a4…01aa Line {l1=0x04, l2=»END;«, l3=0x04}
0x01aa…01bc Line {l1=0x10, l2=»OPLINZONE=RECORD«, l3=0x10}
0x01bc…01d0 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x01d0…01f8 Line {l1=0x26, l2=» T:ARRAY(1..MOPLINZ) OF INTEGER«, l3=0x26}
0x01f8…01fe Line {l1=0x04, l2=»END;«, l3=0x04}
0x01fe…0210 Line {l1=0x10, l2=»OPERAZONE=RECORD«, l3=0x10}
0x0210…0224 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0224…024c Line {l1=0x26, l2=» T:ARRAY(1..MOPERAZ) OF INTEGER«, l3=0x26}
0x024c…0252 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0252…0279 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0279…0294 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0294…02a6 Line {l1=0x10, l2=»REGLIPOST=RECORD«, l3=0x10}
0x02a6…02b6 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x02b6…02c3 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x02c3…02d3 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x02d3…02ef Line {l1=0x1a, l2=» LØN :REAL;«, l3=0x1a}
0x02ef…02ff Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x02ff…0312 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0312…0325 Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x0325…033a Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x033a…0350 Line {l1=0x14, l2=» MEDARBEJDERNR,«, l3=0x14}
0x0350…0362 Line {l1=0x10, l2=» DAT1,DAT2,«, l3=0x10}
0x0362…0373 Line {l1=0x0f, l2=» CENTIMER,«, l3=0x0f}
0x0373…0391 Line {l1=0x1c, l2=» ENHEDER :INTEGER«, l3=0x1c}
0x0391…0397 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0397…03a9 Line {l1=0x10, l2=»ORDREPOST=RECORD«, l3=0x10}
0x03a9…03b9 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x03b9…03c6 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x03c6…03d6 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x03d6…03eb Line {l1=0x13, l2=» ANTALBESTILT,«, l3=0x13}
0x03eb…0401 Line {l1=0x14, l2=» MATERIALEPRIS,«, l3=0x14}
0x0401…0413 Line {l1=0x10, l2=» SALGSPRIS,«, l3=0x10}
0x0413…042f Line {l1=0x1a, l2=» FAKTOR :REAL;«, l3=0x1a}
0x042f…043f Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x043f…0452 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0452…0470 Line {l1=0x1c, l2=» PRODUKT2NR :INTEGER«, l3=0x1c}
0x0470…0476 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0476…0488 Line {l1=0x10, l2=»OPLINPOST=RECORD«, l3=0x10}
0x0488…0498 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0498…04a5 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x04a5…04b5 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x04b5…04d1 Line {l1=0x1a, l2=» MINUTFAKTOR :REAL;«, l3=0x1a}
0x04d1…04e1 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x04e1…04f4 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x04f4…0507 Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x0507…051c Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x051c…053a Line {l1=0x1c, l2=» CENTIMER :INTEGER«, l3=0x1c}
0x053a…0540 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0540…0552 Line {l1=0x10, l2=»OPERAPOST=RECORD«, l3=0x10}
0x0552…0562 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0562…056f Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x056f…057f Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x057f…0594 Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x0594…05b3 Line {l1=0x1d, l2=» GRUPPE :INTEGER;«, l3=0x1d}
0x05b3…05e6 Line {l1=0x31, l2=» BETEGNELSE :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x05e6…05ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x05ec…05fc Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x05fc…0625 Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x0625…063e Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x063e…0644 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0644…065e Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x065e…066f Line {l1=0x0f, l2=»VAR SF:SYSFILE;«, l3=0x0f}
0x066f…0685 Line {l1=0x14, l2=» IER,I,J:INTEGER;«, l3=0x14}
0x0685…069f Line {l1=0x18, l2=» RGF,ORF,OPF,OAF:ISF;«, l3=0x18}
0x069f…06b3 Line {l1=0x12, l2=» ORZ:ORDREZONE;«, l3=0x12}
0x06b3…06c7 Line {l1=0x12, l2=» OPZ:OPLINZONE;«, l3=0x12}
0x06c7…06db Line {l1=0x12, l2=» OAZ:OPERAZONE;«, l3=0x12}
0x06db…06ef Line {l1=0x12, l2=» RGZ:REGLIZONE;«, l3=0x12}
0x06ef…0706 Line {l1=0x15, l2=» ORPOST:ORDREPOST;«, l3=0x15}
0x0706…071d Line {l1=0x15, l2=» OPPOST:OPLINPOST;«, l3=0x15}
0x071d…0734 Line {l1=0x15, l2=» OAPOST:OPERAPOST;«, l3=0x15}
0x0734…074b Line {l1=0x15, l2=» RGPOST:REGLIPOST;«, l3=0x15}
0x074b…0754 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0754…0767 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0767…0774 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0774…0784 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0784…0794 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0794…07a2 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x07a2…07b0 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x07b0…07bf Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x07bf…07c8 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x07c8…07d0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07d0…07f3 Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x07f3…07fa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07fa…082f Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x082f…0845 Line {l1=0x14, l2=» ICLOSE(ORZ.H,ORF);«, l3=0x14}
0x0845…085b Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x085b…0871 Line {l1=0x14, l2=» ICLOSE(OAZ.H,OAF);«, l3=0x14}
0x0871…0887 Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x0887…0898 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0898…089e Line {l1=0x04, l2=»END;«, l3=0x04}
0x089e…08c1 Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x08c1…08d1 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x08d1…08d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08d8…08e9 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x08e9…0938 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0938…0968 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0968…09a1 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x09a1…09bd Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x09bd…09cc Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x09cc…09d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09d2…09da Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09da…09ef Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x09ef…0a02 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0a02…0a23 Line {l1=0x1f, l2=» R,SUM1,SUM2,SUM3,SUM4:REAL;«, l3=0x1f}
0x0a23…0a5b Line {l1=0x36, l2=» KCENT,RCENT,RENHED,KLØN,RLØN:ARRAY (1..6) OF REAL;«, l3=0x36}
0x0a5b…0a78 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x0a78…0a86 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x0a86…0a8d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a8d…0aa6 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x0aa6…0ab9 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x0ab9…0ad1 Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x0ad1…0ad7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ad7…0adf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0adf…0af0 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0af0…0af7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0af7…0b1b Line {l1=0x22, l2=» NEXTREC(RGZ.H,RGF,RGPOST.A);«, l3=0x22}
0x0b1b…0b66 Line {l1=0x49, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME)«, l3=0x49}
0x0b66…0ba3 Line {l1=0x3b, l2=» ELSE IER:=0;«, l3=0x3b}
0x0ba3…0bd4 Line {l1=0x2f, l2=» WHILE (OPPOST.ORDRENR=ORPOST.ORDRENR) AND«, l3=0x2f}
0x0bd4…0c0b Line {l1=0x35, l2=» (OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND«, l3=0x35}
0x0c0b…0c4d Line {l1=0x40, l2=» (OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) AND (IER=0) DO«, l3=0x40}
0x0c4d…0c5a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c5a…0c94 Line {l1=0x38, l2=» IF (OPPOST.OPERATIONSNR<>RGPOST.OPERATIONSNR) OR«, l3=0x38}
0x0c94…0cc4 Line {l1=0x2e, l2=» (OPPOST.ORDRENR<>RGPOST.ORDRENR) OR«, l3=0x2e}
0x0cc4…0cfa Line {l1=0x34, l2=» (OPPOST.PRODUKT1NR<>RGPOST.PRODUKT1NR) OR«, l3=0x34}
0x0cfa…0d32 Line {l1=0x36, l2=» (OPPOST.PRODUKT2NR<>RGPOST.PRODUKT2NR) THEN«, l3=0x36}
0x0d32…0d41 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0d41…0d7a Line {l1=0x37, l2=» IF (OPPOST.OPERATIONSNR<>0) AND (CH='N') THEN«, l3=0x37}
0x0d7a…0d8b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0d8b…0dd1 Line {l1=0x44, l2=» WRITELN(LIST,'----------------------------------------',«, l3=0x44}
0x0dd1…0e12 Line {l1=0x3f, l2=» '----------------------------------');«, l3=0x3f}
0x0e12…0e5f Line {l1=0x4b, l2=» IF ORPOST.ANTALBESTILT=0 THEN R:=1 ELSE R:=ORPOST.ANTALBESTILT;«, l3=0x4b}
0x0e5f…0ea4 Line {l1=0x43, l2=» WRITELN(LIST,OPPOST.OPERATIONSNR:4,' ':11,'REALISERET',«, l3=0x43}
0x0ea4…0edd Line {l1=0x37, l2=» RCENT(1):12:-2,RCENT(1)/R:8:1,«, l3=0x37}
0x0edd…0f05 Line {l1=0x26, l2=» RLØN(1):14:2,«, l3=0x26}
0x0f05…0f31 Line {l1=0x2a, l2=» RENHED(1):15:-2);«, l3=0x2a}
0x0f31…0f70 Line {l1=0x3d, l2=» WRITELN(LIST,' ':15,'KALKULERET',KCENT(1):12:-2,«, l3=0x3d}
0x0f70…0fb2 Line {l1=0x40, l2=» OPPOST.CENTIMER:8,«, l3=0x40}
0x0fb2…0ff0 Line {l1=0x3c, l2=» KLØN(1):14:2);«, l3=0x3c}
0x0ff0…1012 Line {l1=0x20, l2=» SUM1:=SUM1+KCENT(1);«, l3=0x20}
0x1012…1034 Line {l1=0x20, l2=» SUM2:=SUM2+RCENT(1);«, l3=0x20}
0x1034…1055 Line {l1=0x1f, l2=» SUM3:=SUM3+KLØN(1);«, l3=0x1f}
0x1055…1076 Line {l1=0x1f, l2=» SUM4:=SUM4+RLØN(1);«, l3=0x1f}
0x1076…109b Line {l1=0x23, l2=» WRITE(LIST,' ':19,'%');«, l3=0x23}
0x109b…10bd Line {l1=0x20, l2=» IF KCENT(1)=0.0 THEN«, l3=0x20}
0x10bd…10e5 Line {l1=0x26, l2=» WRITE(LIST,'----------')«, l3=0x26}
0x10e5…10f7 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x10f7…1130 Line {l1=0x37, l2=» WRITE(LIST,100.0*RCENT(1)/KCENT(1):10:2);«, l3=0x37}
0x1130…1151 Line {l1=0x1f, l2=» WRITE(LIST,' ':12);«, l3=0x1f}
0x1151…1172 Line {l1=0x1f, l2=» IF KLØN(1)=0.0 THEN«, l3=0x1f}
0x1172…119a Line {l1=0x26, l2=» WRITE(LIST,'----------')«, l3=0x26}
0x119a…11ac Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x11ac…11e3 Line {l1=0x35, l2=» WRITE(LIST,100.0*RLØN(1)/KLØN(1):10:2);«, l3=0x35}
0x11e3…1204 Line {l1=0x1f, l2=» WRITE(LIST,' ':12);«, l3=0x1f}
0x1204…1231 Line {l1=0x2b, l2=» IF ORPOST.ANTALBESTILT=0.0 THEN«, l3=0x2b}
0x1231…125b Line {l1=0x28, l2=» WRITELN(LIST,'----------')«, l3=0x28}
0x125b…126d Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x126d…12b4 Line {l1=0x45, l2=» WRITELN(LIST,100.0*RENHED(1)/ORPOST.ANTALBESTILT:10:2);«, l3=0x45}
0x12b4…12d0 Line {l1=0x1a, l2=» WRITELN(LIST);«, l3=0x1a}
0x12d0…1308 Line {l1=0x36, l2=» RENHED(1):=0.0;KCENT(1):=0.0;KLØN(1):=0.0;«, l3=0x36}
0x1308…1324 Line {l1=0x1a, l2=» RCENT(1):=0.0;«, l3=0x1a}
0x1324…133e Line {l1=0x18, l2=» RLØN(1):=0.0«, l3=0x18}
0x133e…134e Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x134e…1376 Line {l1=0x26, l2=» NEXTREC(OPZ.H,OPF,OPPOST.A);«, l3=0x26}
0x1376…13bc Line {l1=0x44, l2=» IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x44}
0x13bc…13ed Line {l1=0x2f, l2=» ERROR(OPZ.H.FILENAME) ELSE IER:=0;«, l3=0x2f}
0x13ed…141f Line {l1=0x30, l2=» IF (OPPOST.ORDRENR=ORPOST.ORDRENR) AND«, l3=0x30}
0x141f…1457 Line {l1=0x36, l2=» (OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND«, l3=0x36}
0x1457…1490 Line {l1=0x37, l2=» (OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) THEN«, l3=0x37}
0x1490…14a1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x14a1…14e0 Line {l1=0x3d, l2=» OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;«, l3=0x3d}
0x14e0…1509 Line {l1=0x27, l2=» GETREC(OAZ.H,OAF,OAPOST.A);«, l3=0x27}
0x1509…153c Line {l1=0x31, l2=» IF IER<>0 THEN ERROR(OAZ.H.FILENAME);«, l3=0x31}
0x153c…1558 Line {l1=0x1a, l2=» IF CH='N' THEN«, l3=0x1a}
0x1558…156b Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x156b…159b Line {l1=0x2e, l2=» WRITELN(LIST,OAPOST.BETEGNELSE);«, l3=0x2e}
0x159b…15bb Line {l1=0x1e, l2=» OAPOST.GRUPPE:=1«, l3=0x1e}
0x15bb…15cd Line {l1=0x10, l2=» END;«, l3=0x10}
0x15cd…1616 Line {l1=0x47, l2=» KCENT(OAPOST.GRUPPE):=KCENT(OAPOST.GRUPPE)+OPPOST.CENTIMER*«, l3=0x47}
0x1616…1663 Line {l1=0x4b, l2=» ORPOST.ANTALBESTILT;«, l3=0x4b}
0x1663…169a Line {l1=0x35, l2=» KLØN(OAPOST.GRUPPE):=KLØN(OAPOST.GRUPPE)+«, l3=0x35}
0x169a…16d3 Line {l1=0x37, l2=» ORPOST.ANTALBESTILT*OPPOST.CENTIMER*«, l3=0x37}
0x16d3…16fa Line {l1=0x25, l2=» OPPOST.MINUTFAKTOR«, l3=0x25}
0x16fa…1709 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1709…1716 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1716…1724 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1724…1733 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1733…1778 Line {l1=0x43, l2=» IF RGPOST.ENHEDER=0 THEN IER:=1 ELSE IER:=RGPOST.ENHEDER;«, l3=0x43}
0x1778…17c7 Line {l1=0x4d, l2=» IF CH='N' THEN WRITELN(LIST,RGPOST.MEDARBEJDERNR:10,RGPOST.DAT1*10000.0+«, l3=0x4d}
0x17c7…1805 Line {l1=0x3c, l2=» RGPOST.DAT2:11:-2,RGPOST.CENTIMER:16,«, l3=0x3c}
0x1805…183a Line {l1=0x33, l2=» 1.0*RGPOST.CENTIMER/IER:8:1,«, l3=0x33}
0x183a…1876 Line {l1=0x3a, l2=» RGPOST.LØN:14:2,RGPOST.ENHEDER:15);«, l3=0x3a}
0x1876…18bd Line {l1=0x45, l2=» RCENT(OAPOST.GRUPPE):=RCENT(OAPOST.GRUPPE)+RGPOST.CENTIMER;«, l3=0x45}
0x18bd…18fd Line {l1=0x3e, l2=» RLØN(OAPOST.GRUPPE):=RLØN(OAPOST.GRUPPE)+RGPOST.LØN;«, l3=0x3e}
0x18fd…1945 Line {l1=0x46, l2=» RENHED(OAPOST.GRUPPE):=RENHED(OAPOST.GRUPPE)+RGPOST.ENHEDER;«, l3=0x46}
0x1945…196c Line {l1=0x25, l2=» NEXTREC(RGZ.H,RGF,RGPOST.A)«, l3=0x25}
0x196c…1979 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1979…1985 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1985…19ce Line {l1=0x47, l2=» IF (IER<>0) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0;«, l3=0x47}
0x19ce…19d4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x19d4…19e6 Line {l1=0x10, l2=»PROCEDURE DOTWO;«, l3=0x10}
0x19e6…19ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x19ed…1a05 Line {l1=0x16, l2=» FOR I:=1 TO 6 DO«, l3=0x16}
0x1a05…1a47 Line {l1=0x40, l2=» IF (KCENT(I)<>0.0) OR (RCENT(I)<>0.0) OR (KLØN(I)<>0.0) OR«, l3=0x40}
0x1a47…1a65 Line {l1=0x1c, l2=» (RLØN(I)<>0.0) THEN«, l3=0x1c}
0x1a65…1a72 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1a72…1ab2 Line {l1=0x3e, l2=» WRITELN(LIST,I:4,' ':11,KCENT(I):12:-2,RCENT(I):10:-2,«, l3=0x3e}
0x1ab2…1ae4 Line {l1=0x30, l2=» KLØN(I):12:2,RLØN(I):10:2);«, l3=0x30}
0x1ae4…1b01 Line {l1=0x1b, l2=» WRITE(LIST,' ':20);«, l3=0x1b}
0x1b01…1b1f Line {l1=0x1c, l2=» IF KCENT(I)=0.0 THEN«, l3=0x1c}
0x1b1f…1b43 Line {l1=0x22, l2=» WRITE(LIST,'----------')«, l3=0x22}
0x1b43…1b7b Line {l1=0x36, l2=» ELSE WRITE(LIST,100.0*RCENT(I)/KCENT(I):10:2);«, l3=0x36}
0x1b7b…1b98 Line {l1=0x1b, l2=» WRITE(LIST,' ':12);«, l3=0x1b}
0x1b98…1bd0 Line {l1=0x36, l2=» IF KLØN(I)=0.0 THEN WRITELN(LIST,'----------')«, l3=0x36}
0x1bd0…1c08 Line {l1=0x36, l2=» ELSE WRITELN(LIST,100.0*RLØN(I)/KLØN(I):10:2);«, l3=0x36}
0x1c08…1c20 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x1c20…1c3e Line {l1=0x1c, l2=» SUM1:=SUM1+KCENT(I);«, l3=0x1c}
0x1c3e…1c5c Line {l1=0x1c, l2=» SUM2:=SUM2+RCENT(I);«, l3=0x1c}
0x1c5c…1c79 Line {l1=0x1b, l2=» SUM3:=SUM3+KLØN(I);«, l3=0x1b}
0x1c79…1c95 Line {l1=0x1a, l2=» SUM4:=SUM4+RLØN(I)«, l3=0x1a}
0x1c95…1ca1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1ca1…1ca7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ca7…1caf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1caf…1cb6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1cb6…1cc0 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1cc0…1cd2 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1cd2…1cde Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1cde…1cf2 Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x1cf2…1d11 Line {l1=0x1d, l2=» WRITELN('Ordrenummer');«, l3=0x1d}
0x1d11…1d26 Line {l1=0x13, l2=» GOTOXY(13,5);«, l3=0x13}
0x1d26…1d49 Line {l1=0x21, l2=» READLN;READ(ORPOST.ORDRENR)«, l3=0x21}
0x1d49…1d60 Line {l1=0x15, l2=» UNTIL IORESULT=0;«, l3=0x15}
0x1d60…1d6c Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1d6c…1d80 Line {l1=0x12, l2=» GOTOXY(1,6);«, l3=0x12}
0x1d80…1da1 Line {l1=0x1f, l2=» WRITELN('Produktnummer');«, l3=0x1f}
0x1da1…1db6 Line {l1=0x13, l2=» GOTOXY(15,6);«, l3=0x13}
0x1db6…1dcc Line {l1=0x14, l2=» READLN;READ(R)«, l3=0x14}
0x1dcc…1e04 Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<=999999.0);«, l3=0x36}
0x1e04…1e2e Line {l1=0x28, l2=» ORPOST.PRODUKT1NR:=TRUNC(R/10000.0);«, l3=0x28}
0x1e2e…1e6a Line {l1=0x3a, l2=» ORPOST.PRODUKT2NR:=TRUNC(R-ORPOST.PRODUKT1NR*10000.0);«, l3=0x3a}
0x1e6a…1e8b Line {l1=0x1f, l2=» GETREC(ORZ.H,ORF,ORPOST.A);«, l3=0x1f}
0x1e8b…1ec6 Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(ORZ.H.FILENAME);«, l3=0x39}
0x1ec6…1ed9 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x1ed9…1ee4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1ee4…1ef2 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1ef2…1f08 Line {l1=0x14, l2=» GOTOXY(1,7);«, l3=0x14}
0x1f08…1f1a Line {l1=0x10, l2=» CH:='N';«, l3=0x10}
0x1f1a…1f40 Line {l1=0x24, l2=» WRITELN('Gruppeopdelt J/N');«, l3=0x24}
0x1f40…1f5f Line {l1=0x1d, l2=» GOTOXY(18,7);EDIT(CH)«, l3=0x1d}
0x1f5f…1f82 Line {l1=0x21, l2=» UNTIL (CH='N') OR (CH='J');«, l3=0x21}
0x1f82…1fc6 Line {l1=0x42, l2=» WRITELN(LIST,'ORDRESTATUS',' ':7,'ORDRENR',ORPOST.ORDRENR:6,«, l3=0x42}
0x1fc6…2007 Line {l1=0x3f, l2=» ' ':3,'PRODUKTNR',ORPOST.PRODUKT1NR*10000.0+«, l3=0x3f}
0x2007…2041 Line {l1=0x38, l2=» ORPOST.PRODUKT2NR:8:-2,' ':11,'Dato',«, l3=0x38}
0x2041…2076 Line {l1=0x33, l2=» SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x33}
0x2076…20b3 Line {l1=0x3b, l2=» WRITELN(LIST,'MATERIALEPRIS',' ':5,'SALGSPRIS',' ':7,«, l3=0x3b}
0x20b3…20e3 Line {l1=0x2e, l2=» 'KALKULATIONSFAKTOR',' ':6,«, l3=0x2e}
0x20e3…210c Line {l1=0x27, l2=» 'KALKULERET ANTAL');«, l3=0x27}
0x210c…2151 Line {l1=0x43, l2=» WRITELN(LIST,ORPOST.MATERIALEPRIS:13:2,ORPOST.SALGSPRIS:14:2,«, l3=0x43}
0x2151…2194 Line {l1=0x41, l2=» ORPOST.FAKTOR:25:2,ORPOST.ANTALBESTILT:22:-2);«, l3=0x41}
0x2194…21aa Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x21aa…21c0 Line {l1=0x14, l2=» IF CH='J' THEN«, l3=0x14}
0x21c0…21cd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x21cd…21f3 Line {l1=0x24, l2=» WRITELN(LIST,'GRUPPENR ',«, l3=0x24}
0x21f3…2232 Line {l1=0x3d, l2=» ' ':8,'ANTAL 1/100 TIMER',' ':19,'LØN');«, l3=0x3d}
0x2232…2279 Line {l1=0x45, l2=» WRITELN(LIST,' ':22,'KALKU REALI',' ':7,'KALKU REALI');«, l3=0x45}
0x2279…22c0 Line {l1=0x45, l2=» WRITELN(LIST,' ':22,'LERET % SERET',' ':7,'LERET % SERET');«, l3=0x45}
0x22c0…22d5 Line {l1=0x13, l2=» WRITELN(LIST)«, l3=0x13}
0x22d5…22e0 Line {l1=0x09, l2=» END«, l3=0x09}
0x22e0…22ec Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x22ec…22f9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x22f9…2331 Line {l1=0x36, l2=» WRITELN(LIST,'MEDARBEJDERNR',' ':4,'Dato',' ':5,«, l3=0x36}
0x2331…235f Line {l1=0x2c, l2=» '1/100 TIMER',' ':19,'LØN',«, l3=0x2c}
0x235f…2385 Line {l1=0x24, l2=» ' ':8,'ENHEDER');«, l3=0x24}
0x2385…23c4 Line {l1=0x3d, l2=» WRITELN(LIST,' ':32,'REALI',' ':3,'PR.',' ':11,'REALI',«, l3=0x3d}
0x23c4…23ed Line {l1=0x27, l2=» ' ':5,'REALISERET');«, l3=0x27}
0x23ed…242e Line {l1=0x3f, l2=» WRITELN(LIST,' ':32,'SERET',' ':3,'ENHED',' ':9,'SERET');«, l3=0x3f}
0x242e…2443 Line {l1=0x13, l2=» WRITELN(LIST)«, l3=0x13}
0x2443…244f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x244f…2467 Line {l1=0x16, l2=» FOR I:=1 TO 6 DO«, l3=0x16}
0x2467…2474 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2474…248c Line {l1=0x16, l2=» KCENT(I):=0.0;«, l3=0x16}
0x248c…24a4 Line {l1=0x16, l2=» RCENT(I):=0.0;«, l3=0x16}
0x24a4…24bb Line {l1=0x15, l2=» KLØN(I):=0.0;«, l3=0x15}
0x24bb…24d2 Line {l1=0x15, l2=» RLØN(I):=0.0;«, l3=0x15}
0x24d2…24ea Line {l1=0x16, l2=» RENHED(I):=0.0«, l3=0x16}
0x24ea…24f6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x24f6…2526 Line {l1=0x2e, l2=» SUM1:=0.0;SUM2:=0.0;SUM3:=0.0;SUM4:=0.0;«, l3=0x2e}
0x2526…254d Line {l1=0x25, l2=» OPPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x25}
0x254d…257a Line {l1=0x2b, l2=» OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x2b}
0x257a…25a7 Line {l1=0x2b, l2=» OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x2b}
0x25a7…25c6 Line {l1=0x1d, l2=» OPPOST.OPERATIONSNR:=0;«, l3=0x1d}
0x25c6…25ed Line {l1=0x25, l2=» RGPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x25}
0x25ed…261a Line {l1=0x2b, l2=» RGPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x2b}
0x261a…2647 Line {l1=0x2b, l2=» RGPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x2b}
0x2647…2666 Line {l1=0x1d, l2=» RGPOST.OPERATIONSNR:=0;«, l3=0x1d}
0x2666…2673 Line {l1=0x0b, l2=» DOIT;«, l3=0x0b}
0x2673…2689 Line {l1=0x14, l2=» IF CH='J' THEN«, l3=0x14}
0x2689…2696 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2696…26a6 Line {l1=0x0e, l2=» DOTWO;«, l3=0x0e}
0x26a6…26f3 Line {l1=0x4b, l2=» WRITELN(LIST,'SUM',' ':12,SUM1:12:-2,SUM2:10:-2,SUM3:12:2,SUM4:10:2);«, l3=0x4b}
0x26f3…270e Line {l1=0x19, l2=» WRITE(LIST,' ':20);«, l3=0x19}
0x270e…273f Line {l1=0x2f, l2=» IF SUM1=0.0 THEN WRITE(LIST,'----------')«, l3=0x2f}
0x273f…276d Line {l1=0x2c, l2=» ELSE WRITE(LIST,100.0*SUM2/SUM1:10:2);«, l3=0x2c}
0x276d…2788 Line {l1=0x19, l2=» WRITE(LIST,' ':12);«, l3=0x19}
0x2788…27bb Line {l1=0x31, l2=» IF SUM3=0.0 THEN WRITELN(LIST,'----------')«, l3=0x31}
0x27bb…27eb Line {l1=0x2e, l2=» ELSE WRITELN(LIST,100.0*SUM4/SUM3:10:2);«, l3=0x2e}
0x27eb…27f7 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x27f7…2809 Line {l1=0x10, l2=» PAGE(LIST)«, l3=0x10}
0x2809…2813 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2813…2821 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x2821…2833 Line {l1=0x10, l2=» GOTOXY(1,8);«, l3=0x10}
0x2833…2851 Line {l1=0x1c, l2=» WRITELN('Flere ordrer');«, l3=0x1c}
0x2851…286c Line {l1=0x19, l2=» GOTOXY(14,8);EDIT(CH)«, l3=0x19}
0x286c…287c Line {l1=0x0e, l2=» UNTIL CH='N'«, l3=0x0e}
0x287c…2882 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2882…288a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x288a…2891 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2891…28a1 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x28a1…28a4 Line {l1=0x01, l2=» «, l3=0x01}
0x28a4…28bf Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x28bf…28d5 Line {l1=0x14, l2=» REWRITE(SF,FNAVN);«, l3=0x14}
0x28d5…28e4 Line {l1=0x0d, l2=» SEEK(SF,1);«, l3=0x0d}
0x28e4…28f0 Line {l1=0x0a, l2=» GET(SF);«, l3=0x0a}
0x28f0…290f Line {l1=0x1d, l2=» ORZ.H.FILENAME:='ORDREREG';«, l3=0x1d}
0x290f…292f Line {l1=0x1e, l2=» FNAVN:='ORDREREG:P2:0000:I';«, l3=0x1e}
0x292f…2946 Line {l1=0x15, l2=» REWRITE(ORF,FNAVN);«, l3=0x15}
0x2946…2984 Line {l1=0x3c, l2=» IOPEN(ORZ.H,ORF,LÆS);IF IER<>0 THEN OFEJL(ORZ.H.FILENAME);«, l3=0x3c}
0x2984…29a3 Line {l1=0x1d, l2=» OPZ.H.FILENAME:='OPLINREG';«, l3=0x1d}
0x29a3…29c3 Line {l1=0x1e, l2=» FNAVN:='OPLINREG:P2:0000:I';«, l3=0x1e}
0x29c3…29da Line {l1=0x15, l2=» REWRITE(OPF,FNAVN);«, l3=0x15}
0x29da…2a18 Line {l1=0x3c, l2=» IOPEN(OPZ.H,OPF,LÆS);IF IER<>0 THEN OFEJL(OPZ.H.FILENAME);«, l3=0x3c}
0x2a18…2a37 Line {l1=0x1d, l2=» OAZ.H.FILENAME:='OPERAREG';«, l3=0x1d}
0x2a37…2a57 Line {l1=0x1e, l2=» FNAVN:='OPERAREG:P2:0000:I';«, l3=0x1e}
0x2a57…2a6e Line {l1=0x15, l2=» REWRITE(OAF,FNAVN);«, l3=0x15}
0x2a6e…2aac Line {l1=0x3c, l2=» IOPEN(OAZ.H,OAF,LÆS);IF IER<>0 THEN OFEJL(OAZ.H.FILENAME);«, l3=0x3c}
0x2aac…2acb Line {l1=0x1d, l2=» RGZ.H.FILENAME:='REGLIREG';«, l3=0x1d}
0x2acb…2aeb Line {l1=0x1e, l2=» FNAVN:='REGLIREG:P2:0000:I';«, l3=0x1e}
0x2aeb…2b02 Line {l1=0x15, l2=» REWRITE(RGF,FNAVN);«, l3=0x15}
0x2b02…2b40 Line {l1=0x3c, l2=» IOPEN(RGZ.H,RGF,LÆS);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);«, l3=0x3c}
0x2b40…2b4d Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x2b4d…2b63 Line {l1=0x14, l2=» ICLOSE(ORZ.H,ORF);«, l3=0x14}
0x2b63…2b79 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x2b79…2b8f Line {l1=0x14, l2=» ICLOSE(OAZ.H,OAF);«, l3=0x14}
0x2b8f…2ba5 Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x2ba5…2bbf Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x2bbf…2bc5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2bc5…2bcd Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2bcd…2bd4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2bd4…2be0 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x2be0…2bef Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x2bef…2c06 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x2c06…2c3c Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x2c3c…2c71 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x2c71…2c77 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2c77…2c80 00 00 04 45 4e 44 2e 04 00 ┆ END. ┆
0x2c80…2ca0 00 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 ┆ ccccccccccccccccccccccccccccccc┆
0x2ca0…2cc0 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┆
[…0x76…]
0x3b80…3ba0 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 00 ┆ccccccccccccccccccccccccccccccc ┆