|
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: »ORDAFSLT.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »ORDAFSLT.K«
PROGRAM ORDAFSLT;
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;
MHISTOZ=647;
(*$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;
HISTOZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MHISTOZ) 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;
HISTOPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
MATERIALER,
LØN,
MPLGFAKT,
SALGSPRIS,
AFVIGELSE,
ANTALBESTILT,
ANTALLEVERET :REAL;
PRODUKT1NR,
PRODUKT2NR,
DAT1,
DAT2,
ORDRENR :INTEGER
END;
SYSPOST=RECORD
MINUTFAKTOR:ARRAY (1..5) OF REAL;
DAT1,DAT2:INTEGER
END;
SYSFILE=FILE OF SYSPOST;
VAR SF:SYSFILE;
IER,I,J:INTEGER;
HIF,RGF,ORF,OPF,OAF:ISF;
ORZ:ORDREZONE;
OPZ:OPLINZONE;
OAZ:OPERAZONE;
RGZ:REGLIZONE;
HIZ:HISTOZONE;
ORPOST:ORDREPOST;
OPPOST:OPLINPOST;
OAPOST:OPERAPOST;
RGPOST:REGLIPOST;
HIPOST:HISTOPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IREADPROC*)
(*$ISÆTØG*)
(*$IFORSKYD*)
(*$IIOPEN*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IINSERT*)
(*$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);
ICLOSE(HIZ.H,HIF);
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 (0..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) THEN
BEGIN
WRITELN(LIST,'----------------------------------------',
'----------------------------------');
IF HIPOST.ANTALBESTILT=0 THEN R:=1 ELSE R:=HIPOST.ANTALBESTILT;
WRITELN(LIST,OPPOST.OPERATIONSNR:4,' ':11,'REALISERET',
RCENT(0):12:-2,RCENT(0)/R:8:1,
RLØN(0):14:2,
RENHED(0):15:-2);
WRITELN(LIST,' ':15,'KALKULERET',KCENT(0):12:-2,
OPPOST.CENTIMER:8,
KLØN(0):14:2);
KCENT(OAPOST.GRUPPE):=KCENT(OAPOST.GRUPPE)+KCENT(0);
RCENT(OAPOST.GRUPPE):=RCENT(OAPOST.GRUPPE)+RCENT(0);
KLØN(OAPOST.GRUPPE):=KLØN(OAPOST.GRUPPE)+KLØN(0);
RLØN(OAPOST.GRUPPE):=RLØN(OAPOST.GRUPPE)+RLØN(0);
WRITE(LIST,' ':19,'%');
IF KCENT(0)=0.0 THEN
WRITE(LIST,'----------')
ELSE
WRITE(LIST,100.0*RCENT(0)/KCENT(0):10:2);
WRITE(LIST,' ':12);
IF KLØN(0)=0.0 THEN
WRITE(LIST,'----------')
ELSE
WRITE(LIST,100.0*RLØN(0)/KLØN(0):10:2);
WRITE(LIST,' ':12);
IF ORPOST.ANTALBESTILT=0.0 THEN
WRITELN(LIST,'----------')
ELSE
WRITELN(LIST,100.0*RENHED(0)/ORPOST.ANTALBESTILT:10:2);
WRITELN(LIST);
RENHED(0):=0.0;KCENT(0):=0.0;KLØN(0):=0.0;
RCENT(0):=0.0;
RLØN(0):=0.0;
DELETE(OPZ.H,OPF,OPPOST.A)
END ELSE 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);
WRITELN(LIST,OAPOST.BETEGNELSE);
KCENT(0):=KCENT(0)+OPPOST.CENTIMER*ORPOST.ANTALBESTILT;
KLØN(0):=KLØN(0)+ORPOST.ANTALBESTILT*OPPOST.CENTIMER*
OPPOST.MINUTFAKTOR
END
END
ELSE
BEGIN
IF RGPOST.ENHEDER=0 THEN IER:=1 ELSE IER:=RGPOST.ENHEDER;
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(0):=RCENT(0)+RGPOST.CENTIMER;
RLØN(0):=RLØN(0)+RGPOST.LØN;
RENHED(0):=RENHED(0)+RGPOST.ENHEDER;
DELETE(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
SUM1:=SUM1+KCENT(I);
SUM2:=SUM2+RCENT(I);
SUM3:=SUM3+KLØN(I);
SUM4:=SUM4+RLØN(I)
END;
IF HIPOST.ANTALBESTILT=0 THEN R:=1 ELSE R:=HIPOST.ANTALBESTILT;
HIPOST.LØN:=SUM4/R;
HIPOST.MPLGFAKT:=(HIPOST.MATERIALER+HIPOST.LØN)*ORPOST.FAKTOR;
HIPOST.AFVIGELSE:=(ORPOST.MATERIALER+SUM3/R)*
ORPOST.FAKTOR-HIPOST.MPLGFAKT;
WRITELN(LIST,'REALISERET LØN PR. STK. KALKULERET LØN PR. STK.');
WRITELN(LIST,HIPOST.LØN:22:2,SUM3/HIPOST.ANTALBESTILT:32:2);
WRITELN(LIST,'(MATERIALER+LØN)*FAKTOR',HIPOST.MPLGFAKT:15:2);
PAGE(LIST);
INSERT(HIZ.H,HIF,HIPOST.A);IF IER<>0 THEN ERROR(HIZ.H.FILENAME);
DELETE(ORZ.H,ORF,ORPOST.A);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(ORZ.H.FILENAME)
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('Ønskes afslutning J/N');
GOTOXY(23,7);EDIT(CH)
UNTIL (CH='N') OR (CH='J');
IF CH='J' THEN
BEGIN
HIPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;
HIPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;
HIPOST.DAT1:=SF^.DAT1;
HIPOST.DAT2:=SF^.DAT2;
HIPOST.ORDRENR:=ORPOST.ORDRENR;
HIPOST.ANTALBESTILT:=ORPOST.ANTALBESTILT;
HIPOST.SALGSPRIS:=ORPOST.SALGSPRIS;
REPEAT
GOTOXY(1,8);
WRITELN('Realiseret materialepris');
GOTOXY(26,8);
READLN;READ(HIPOST.MATERIALEPRIS)
UNTIL (IORESULT=0) AND (HIPOST.MATERIALEPRIS>=0.0) AND
(HIPOST.MATERIALEPRIS<=10000000.0);
REPEAT
GOTOXY(1,9);
WRITELN('Leveret antal');
GOTOXY(15,9);
READLN;READ(HIPOST.ANTALLEVERET)
UNTIL (IORESULT=0) AND (HIPOST.ANTALLEVERET>=0.0) AND
(HIPOST.ANTALLEVERET<=10000000.0);
WRITELN(LIST,' ':30,'ORDREAFSLUTNING');
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,'REALISERET MATERIALEPRIS',' ':34,'REALISERET ANTAL');
WRITELN(LIST,HIPOST.MATERIALEPRIS:13:2,' ':48,HIPOST.ANTALLEVERET:13:-2);
WRITELN(LIST);
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);
FOR I:=0 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;
WRITELN(LIST);WRITELN(LIST);WRITELN(LIST);WRITELN(LIST);
DOTWO;
END
END;
CH:='J';
GOTOXY(1,10);
WRITELN('Flere ordrer');
GOTOXY(14,10);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,SKRIV);IF IER<>0 THEN OFEJL(ORZ.H.FILENAME);
OPZ.H.FILENAME:='OPLINREG';
FNAVN:='OPLINREG:P2:0000:I';
REWRITE(OPF,FNAVN);
IOPEN(OPZ.H,OPF,SKRIV);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,SKRIV);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);
HIZ.H.FILENAME:='HISTOREG';
FNAVN:='HISTOREG:P2:0000:I';
REWRITE(HIF,FNAVN);
IOPEN(HIZ.H,HIF,SKRIV);IF IER<>0 THEN OFEJL(HIZ.H.FILENAME);
MAINTAIN;
ICLOSE(ORZ.H,ORF);
ICLOSE(OPZ.H,OPF);
ICLOSE(OAZ.H,OAF);
ICLOSE(RGZ.H,RGF);
ICLOSE(HIZ.H,HIF);
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 ORDAFSLT;«, 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…0107 Line {l1=0x12, l2=» MHISTOZ=647;«, l3=0x12}
0x0107…0116 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0116…0128 Line {l1=0x10, l2=»ORDREZONE=RECORD«, l3=0x10}
0x0128…013c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x013c…0164 Line {l1=0x26, l2=» T:ARRAY(1..MORDREZ) OF INTEGER«, l3=0x26}
0x0164…016a Line {l1=0x04, l2=»END;«, l3=0x04}
0x016a…017c Line {l1=0x10, l2=»REGLIZONE=RECORD«, l3=0x10}
0x017c…0190 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0190…01b8 Line {l1=0x26, l2=» T:ARRAY(1..MREGLIZ) OF INTEGER«, l3=0x26}
0x01b8…01be Line {l1=0x04, l2=»END;«, l3=0x04}
0x01be…01d0 Line {l1=0x10, l2=»OPLINZONE=RECORD«, l3=0x10}
0x01d0…01e4 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x01e4…020c Line {l1=0x26, l2=» T:ARRAY(1..MOPLINZ) OF INTEGER«, l3=0x26}
0x020c…0212 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0212…0224 Line {l1=0x10, l2=»OPERAZONE=RECORD«, l3=0x10}
0x0224…0238 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0238…0260 Line {l1=0x26, l2=» T:ARRAY(1..MOPERAZ) OF INTEGER«, l3=0x26}
0x0260…0266 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0266…0278 Line {l1=0x10, l2=»HISTOZONE=RECORD«, l3=0x10}
0x0278…028c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x028c…02b4 Line {l1=0x26, l2=» T:ARRAY(1..MHISTOZ) OF INTEGER«, l3=0x26}
0x02b4…02ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x02ba…02e1 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x02e1…02fc Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x02fc…030e Line {l1=0x10, l2=»REGLIPOST=RECORD«, l3=0x10}
0x030e…031e Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x031e…032b Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x032b…033b Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x033b…0357 Line {l1=0x1a, l2=» LØN :REAL;«, l3=0x1a}
0x0357…0367 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0367…037a Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x037a…038d Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x038d…03a2 Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x03a2…03b8 Line {l1=0x14, l2=» MEDARBEJDERNR,«, l3=0x14}
0x03b8…03ca Line {l1=0x10, l2=» DAT1,DAT2,«, l3=0x10}
0x03ca…03db Line {l1=0x0f, l2=» CENTIMER,«, l3=0x0f}
0x03db…03f9 Line {l1=0x1c, l2=» ENHEDER :INTEGER«, l3=0x1c}
0x03f9…03ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x03ff…0411 Line {l1=0x10, l2=»ORDREPOST=RECORD«, l3=0x10}
0x0411…0421 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0421…042e Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x042e…043e Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x043e…0453 Line {l1=0x13, l2=» ANTALBESTILT,«, l3=0x13}
0x0453…0469 Line {l1=0x14, l2=» MATERIALEPRIS,«, l3=0x14}
0x0469…047b Line {l1=0x10, l2=» SALGSPRIS,«, l3=0x10}
0x047b…0497 Line {l1=0x1a, l2=» FAKTOR :REAL;«, l3=0x1a}
0x0497…04a7 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x04a7…04ba Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x04ba…04d8 Line {l1=0x1c, l2=» PRODUKT2NR :INTEGER«, l3=0x1c}
0x04d8…04de Line {l1=0x04, l2=»END;«, l3=0x04}
0x04de…04f0 Line {l1=0x10, l2=»OPLINPOST=RECORD«, l3=0x10}
0x04f0…0500 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0500…050d Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x050d…051d Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x051d…0539 Line {l1=0x1a, l2=» MINUTFAKTOR :REAL;«, l3=0x1a}
0x0539…0549 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0549…055c Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x055c…056f Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x056f…0584 Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x0584…05a2 Line {l1=0x1c, l2=» CENTIMER :INTEGER«, l3=0x1c}
0x05a2…05a8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05a8…05ba Line {l1=0x10, l2=»OPERAPOST=RECORD«, l3=0x10}
0x05ba…05ca Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x05ca…05d7 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x05d7…05e7 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x05e7…05fc Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x05fc…061b Line {l1=0x1d, l2=» GRUPPE :INTEGER;«, l3=0x1d}
0x061b…064e Line {l1=0x31, l2=» BETEGNELSE :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x064e…0654 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0654…0666 Line {l1=0x10, l2=»HISTOPOST=RECORD«, l3=0x10}
0x0666…0676 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0676…0683 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0683…0693 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0693…06a6 Line {l1=0x11, l2=» MATERIALER,«, l3=0x11}
0x06a6…06b2 Line {l1=0x0a, l2=» LØN,«, l3=0x0a}
0x06b2…06c3 Line {l1=0x0f, l2=» MPLGFAKT,«, l3=0x0f}
0x06c3…06d5 Line {l1=0x10, l2=» SALGSPRIS,«, l3=0x10}
0x06d5…06e7 Line {l1=0x10, l2=» AFVIGELSE,«, l3=0x10}
0x06e7…06fc Line {l1=0x13, l2=» ANTALBESTILT,«, l3=0x13}
0x06fc…0718 Line {l1=0x1a, l2=» ANTALLEVERET :REAL;«, l3=0x1a}
0x0718…072b Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x072b…073e Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x073e…074b Line {l1=0x0b, l2=» DAT1,«, l3=0x0b}
0x074b…0758 Line {l1=0x0b, l2=» DAT2,«, l3=0x0b}
0x0758…0776 Line {l1=0x1c, l2=» ORDRENR :INTEGER«, l3=0x1c}
0x0776…077c Line {l1=0x04, l2=»END;«, l3=0x04}
0x077c…078c Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x078c…07b5 Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x07b5…07ce Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x07ce…07d4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07d4…07ee Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x07ee…07ff Line {l1=0x0f, l2=»VAR SF:SYSFILE;«, l3=0x0f}
0x07ff…0815 Line {l1=0x14, l2=» IER,I,J:INTEGER;«, l3=0x14}
0x0815…0833 Line {l1=0x1c, l2=» HIF,RGF,ORF,OPF,OAF:ISF;«, l3=0x1c}
0x0833…0847 Line {l1=0x12, l2=» ORZ:ORDREZONE;«, l3=0x12}
0x0847…085b Line {l1=0x12, l2=» OPZ:OPLINZONE;«, l3=0x12}
0x085b…086f Line {l1=0x12, l2=» OAZ:OPERAZONE;«, l3=0x12}
0x086f…0883 Line {l1=0x12, l2=» RGZ:REGLIZONE;«, l3=0x12}
0x0883…0897 Line {l1=0x12, l2=» HIZ:HISTOZONE;«, l3=0x12}
0x0897…08ae Line {l1=0x15, l2=» ORPOST:ORDREPOST;«, l3=0x15}
0x08ae…08c5 Line {l1=0x15, l2=» OPPOST:OPLINPOST;«, l3=0x15}
0x08c5…08dc Line {l1=0x15, l2=» OAPOST:OPERAPOST;«, l3=0x15}
0x08dc…08f3 Line {l1=0x15, l2=» RGPOST:REGLIPOST;«, l3=0x15}
0x08f3…090a Line {l1=0x15, l2=» HIPOST:HISTOPOST;«, l3=0x15}
0x090a…0913 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0913…0926 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0926…0936 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0936…0943 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0943…0952 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0952…095f Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x095f…096f Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x096f…097d Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x097d…098b Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x098b…099a Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x099a…09a8 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x09a8…09b6 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x09b6…09bf Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x09bf…09c7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x09c7…09ea Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x09ea…09f1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09f1…0a26 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0a26…0a3c Line {l1=0x14, l2=» ICLOSE(ORZ.H,ORF);«, l3=0x14}
0x0a3c…0a52 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x0a52…0a68 Line {l1=0x14, l2=» ICLOSE(OAZ.H,OAF);«, l3=0x14}
0x0a68…0a7e Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x0a7e…0a94 Line {l1=0x14, l2=» ICLOSE(HIZ.H,HIF);«, l3=0x14}
0x0a94…0aa5 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0aa5…0aab Line {l1=0x04, l2=»END;«, l3=0x04}
0x0aab…0ace Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x0ace…0ade Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0ade…0ae5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ae5…0af6 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0af6…0b45 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0b45…0b75 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0b75…0bae Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0bae…0bca Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x0bca…0bd9 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0bd9…0bdf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bdf…0be7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0be7…0bfc Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x0bfc…0c0f Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0c0f…0c30 Line {l1=0x1f, l2=» R,SUM1,SUM2,SUM3,SUM4:REAL;«, l3=0x1f}
0x0c30…0c68 Line {l1=0x36, l2=» KCENT,RCENT,RENHED,KLØN,RLØN:ARRAY (0..6) OF REAL;«, l3=0x36}
0x0c68…0c85 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x0c85…0c93 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x0c93…0c9a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c9a…0cb3 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x0cb3…0cc6 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x0cc6…0cde Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x0cde…0ce4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ce4…0cec Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0cec…0cfd Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0cfd…0d04 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d04…0d28 Line {l1=0x22, l2=» NEXTREC(RGZ.H,RGF,RGPOST.A);«, l3=0x22}
0x0d28…0d73 Line {l1=0x49, l2=» IF (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME)«, l3=0x49}
0x0d73…0db0 Line {l1=0x3b, l2=» ELSE IER:=0;«, l3=0x3b}
0x0db0…0de1 Line {l1=0x2f, l2=» WHILE (OPPOST.ORDRENR=ORPOST.ORDRENR) AND«, l3=0x2f}
0x0de1…0e18 Line {l1=0x35, l2=» (OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND«, l3=0x35}
0x0e18…0e5a Line {l1=0x40, l2=» (OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) AND (IER=0) DO«, l3=0x40}
0x0e5a…0e67 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0e67…0ea1 Line {l1=0x38, l2=» IF (OPPOST.OPERATIONSNR<>RGPOST.OPERATIONSNR) OR«, l3=0x38}
0x0ea1…0ed1 Line {l1=0x2e, l2=» (OPPOST.ORDRENR<>RGPOST.ORDRENR) OR«, l3=0x2e}
0x0ed1…0f07 Line {l1=0x34, l2=» (OPPOST.PRODUKT1NR<>RGPOST.PRODUKT1NR) OR«, l3=0x34}
0x0f07…0f3f Line {l1=0x36, l2=» (OPPOST.PRODUKT2NR<>RGPOST.PRODUKT2NR) THEN«, l3=0x36}
0x0f3f…0f4e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0f4e…0f7a Line {l1=0x2a, l2=» IF (OPPOST.OPERATIONSNR<>0) THEN«, l3=0x2a}
0x0f7a…0f8b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0f8b…0fd1 Line {l1=0x44, l2=» WRITELN(LIST,'----------------------------------------',«, l3=0x44}
0x0fd1…1012 Line {l1=0x3f, l2=» '----------------------------------');«, l3=0x3f}
0x1012…105f Line {l1=0x4b, l2=» IF HIPOST.ANTALBESTILT=0 THEN R:=1 ELSE R:=HIPOST.ANTALBESTILT;«, l3=0x4b}
0x105f…10a4 Line {l1=0x43, l2=» WRITELN(LIST,OPPOST.OPERATIONSNR:4,' ':11,'REALISERET',«, l3=0x43}
0x10a4…10dd Line {l1=0x37, l2=» RCENT(0):12:-2,RCENT(0)/R:8:1,«, l3=0x37}
0x10dd…1105 Line {l1=0x26, l2=» RLØN(0):14:2,«, l3=0x26}
0x1105…1131 Line {l1=0x2a, l2=» RENHED(0):15:-2);«, l3=0x2a}
0x1131…1170 Line {l1=0x3d, l2=» WRITELN(LIST,' ':15,'KALKULERET',KCENT(0):12:-2,«, l3=0x3d}
0x1170…11b2 Line {l1=0x40, l2=» OPPOST.CENTIMER:8,«, l3=0x40}
0x11b2…11f0 Line {l1=0x3c, l2=» KLØN(0):14:2);«, l3=0x3c}
0x11f0…1232 Line {l1=0x40, l2=» KCENT(OAPOST.GRUPPE):=KCENT(OAPOST.GRUPPE)+KCENT(0);«, l3=0x40}
0x1232…1274 Line {l1=0x40, l2=» RCENT(OAPOST.GRUPPE):=RCENT(OAPOST.GRUPPE)+RCENT(0);«, l3=0x40}
0x1274…12b3 Line {l1=0x3d, l2=» KLØN(OAPOST.GRUPPE):=KLØN(OAPOST.GRUPPE)+KLØN(0);«, l3=0x3d}
0x12b3…12f2 Line {l1=0x3d, l2=» RLØN(OAPOST.GRUPPE):=RLØN(OAPOST.GRUPPE)+RLØN(0);«, l3=0x3d}
0x12f2…1317 Line {l1=0x23, l2=» WRITE(LIST,' ':19,'%');«, l3=0x23}
0x1317…1339 Line {l1=0x20, l2=» IF KCENT(0)=0.0 THEN«, l3=0x20}
0x1339…1361 Line {l1=0x26, l2=» WRITE(LIST,'----------')«, l3=0x26}
0x1361…1373 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x1373…13ac Line {l1=0x37, l2=» WRITE(LIST,100.0*RCENT(0)/KCENT(0):10:2);«, l3=0x37}
0x13ac…13cd Line {l1=0x1f, l2=» WRITE(LIST,' ':12);«, l3=0x1f}
0x13cd…13ee Line {l1=0x1f, l2=» IF KLØN(0)=0.0 THEN«, l3=0x1f}
0x13ee…1416 Line {l1=0x26, l2=» WRITE(LIST,'----------')«, l3=0x26}
0x1416…1428 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x1428…145f Line {l1=0x35, l2=» WRITE(LIST,100.0*RLØN(0)/KLØN(0):10:2);«, l3=0x35}
0x145f…1480 Line {l1=0x1f, l2=» WRITE(LIST,' ':12);«, l3=0x1f}
0x1480…14ad Line {l1=0x2b, l2=» IF ORPOST.ANTALBESTILT=0.0 THEN«, l3=0x2b}
0x14ad…14d7 Line {l1=0x28, l2=» WRITELN(LIST,'----------')«, l3=0x28}
0x14d7…14e9 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x14e9…1530 Line {l1=0x45, l2=» WRITELN(LIST,100.0*RENHED(0)/ORPOST.ANTALBESTILT:10:2);«, l3=0x45}
0x1530…154c Line {l1=0x1a, l2=» WRITELN(LIST);«, l3=0x1a}
0x154c…1584 Line {l1=0x36, l2=» RENHED(0):=0.0;KCENT(0):=0.0;KLØN(0):=0.0;«, l3=0x36}
0x1584…15a0 Line {l1=0x1a, l2=» RCENT(0):=0.0;«, l3=0x1a}
0x15a0…15bb Line {l1=0x19, l2=» RLØN(0):=0.0;«, l3=0x19}
0x15bb…15e3 Line {l1=0x26, l2=» DELETE(OPZ.H,OPF,OPPOST.A)«, l3=0x26}
0x15e3…1614 Line {l1=0x2f, l2=» END ELSE NEXTREC(OPZ.H,OPF,OPPOST.A);«, l3=0x2f}
0x1614…165a Line {l1=0x44, l2=» IF (IER<>0) AND (IER<>-1) AND (IER<>-2) AND (IER<>-9) THEN«, l3=0x44}
0x165a…168b Line {l1=0x2f, l2=» ERROR(OPZ.H.FILENAME) ELSE IER:=0;«, l3=0x2f}
0x168b…16bd Line {l1=0x30, l2=» IF (OPPOST.ORDRENR=ORPOST.ORDRENR) AND«, l3=0x30}
0x16bd…16f5 Line {l1=0x36, l2=» (OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND«, l3=0x36}
0x16f5…172e Line {l1=0x37, l2=» (OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) THEN«, l3=0x37}
0x172e…173f Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x173f…177e Line {l1=0x3d, l2=» OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;«, l3=0x3d}
0x177e…17a7 Line {l1=0x27, l2=» GETREC(OAZ.H,OAF,OAPOST.A);«, l3=0x27}
0x17a7…17da Line {l1=0x31, l2=» IF IER<>0 THEN ERROR(OAZ.H.FILENAME);«, l3=0x31}
0x17da…1808 Line {l1=0x2c, l2=» WRITELN(LIST,OAPOST.BETEGNELSE);«, l3=0x2c}
0x1808…184d Line {l1=0x43, l2=» KCENT(0):=KCENT(0)+OPPOST.CENTIMER*ORPOST.ANTALBESTILT;«, l3=0x43}
0x184d…1890 Line {l1=0x41, l2=» KLØN(0):=KLØN(0)+ORPOST.ANTALBESTILT*OPPOST.CENTIMER*«, l3=0x41}
0x1890…18cf Line {l1=0x3d, l2=» OPPOST.MINUTFAKTOR«, l3=0x3d}
0x18cf…18de Line {l1=0x0d, l2=» END«, l3=0x0d}
0x18de…18eb Line {l1=0x0b, l2=» END«, l3=0x0b}
0x18eb…18f9 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x18f9…1908 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1908…194d Line {l1=0x43, l2=» IF RGPOST.ENHEDER=0 THEN IER:=1 ELSE IER:=RGPOST.ENHEDER;«, l3=0x43}
0x194d…1992 Line {l1=0x43, l2=» WRITELN(LIST,RGPOST.MEDARBEJDERNR:10,RGPOST.DAT1*10000.0+«, l3=0x43}
0x1992…19d0 Line {l1=0x3c, l2=» RGPOST.DAT2:11:-2,RGPOST.CENTIMER:16,«, l3=0x3c}
0x19d0…1a05 Line {l1=0x33, l2=» 1.0*RGPOST.CENTIMER/IER:8:1,«, l3=0x33}
0x1a05…1a41 Line {l1=0x3a, l2=» RGPOST.LØN:14:2,RGPOST.ENHEDER:15);«, l3=0x3a}
0x1a41…1a70 Line {l1=0x2d, l2=» RCENT(0):=RCENT(0)+RGPOST.CENTIMER;«, l3=0x2d}
0x1a70…1a98 Line {l1=0x26, l2=» RLØN(0):=RLØN(0)+RGPOST.LØN;«, l3=0x26}
0x1a98…1ac8 Line {l1=0x2e, l2=» RENHED(0):=RENHED(0)+RGPOST.ENHEDER;«, l3=0x2e}
0x1ac8…1aee Line {l1=0x24, l2=» DELETE(RGZ.H,RGF,RGPOST.A)«, l3=0x24}
0x1aee…1afb Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1afb…1b07 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1b07…1b50 Line {l1=0x47, l2=» IF (IER<>0) AND (IER<>-9) THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0;«, l3=0x47}
0x1b50…1b56 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b56…1b68 Line {l1=0x10, l2=»PROCEDURE DOTWO;«, l3=0x10}
0x1b68…1b6f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b6f…1b87 Line {l1=0x16, l2=» FOR I:=1 TO 6 DO«, l3=0x16}
0x1b87…1bc9 Line {l1=0x40, l2=» IF (KCENT(I)<>0.0) OR (RCENT(I)<>0.0) OR (KLØN(I)<>0.0) OR«, l3=0x40}
0x1bc9…1be7 Line {l1=0x1c, l2=» (RLØN(I)<>0.0) THEN«, l3=0x1c}
0x1be7…1bf4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1bf4…1c12 Line {l1=0x1c, l2=» SUM1:=SUM1+KCENT(I);«, l3=0x1c}
0x1c12…1c30 Line {l1=0x1c, l2=» SUM2:=SUM2+RCENT(I);«, l3=0x1c}
0x1c30…1c4d Line {l1=0x1b, l2=» SUM3:=SUM3+KLØN(I);«, l3=0x1b}
0x1c4d…1c69 Line {l1=0x1a, l2=» SUM4:=SUM4+RLØN(I)«, l3=0x1a}
0x1c69…1c75 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1c75…1cbc Line {l1=0x45, l2=» IF HIPOST.ANTALBESTILT=0 THEN R:=1 ELSE R:=HIPOST.ANTALBESTILT;«, l3=0x45}
0x1cbc…1cd7 Line {l1=0x19, l2=» HIPOST.LØN:=SUM4/R;«, l3=0x19}
0x1cd7…1d1d Line {l1=0x44, l2=» HIPOST.MPLGFAKT:=(HIPOST.MATERIALER+HIPOST.LØN)*ORPOST.FAKTOR;«, l3=0x44}
0x1d1d…1d52 Line {l1=0x33, l2=» HIPOST.AFVIGELSE:=(ORPOST.MATERIALER+SUM3/R)*«, l3=0x33}
0x1d52…1d8a Line {l1=0x36, l2=» ORPOST.FAKTOR-HIPOST.MPLGFAKT;«, l3=0x36}
0x1d8a…1dd9 Line {l1=0x4d, l2=» WRITELN(LIST,'REALISERET LØN PR. STK. KALKULERET LØN PR. STK.');«, l3=0x4d}
0x1dd9…1e1c Line {l1=0x41, l2=» WRITELN(LIST,HIPOST.LØN:22:2,SUM3/HIPOST.ANTALBESTILT:32:2);«, l3=0x41}
0x1e1c…1e60 Line {l1=0x42, l2=» WRITELN(LIST,'(MATERIALER+LØN)*FAKTOR',HIPOST.MPLGFAKT:15:2);«, l3=0x42}
0x1e60…1e72 Line {l1=0x10, l2=» PAGE(LIST);«, l3=0x10}
0x1e72…1eba Line {l1=0x46, l2=» INSERT(HIZ.H,HIF,HIPOST.A);IF IER<>0 THEN ERROR(HIZ.H.FILENAME);«, l3=0x46}
0x1eba…1edd Line {l1=0x21, l2=» DELETE(ORZ.H,ORF,ORPOST.A);«, l3=0x21}
0x1edd…1f27 Line {l1=0x48, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(ORZ.H.FILENAME)«, l3=0x48}
0x1f27…1f2d Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f2d…1f35 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1f35…1f3c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f3c…1f46 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1f46…1f58 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1f58…1f64 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1f64…1f78 Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x1f78…1f97 Line {l1=0x1d, l2=» WRITELN('Ordrenummer');«, l3=0x1d}
0x1f97…1fac Line {l1=0x13, l2=» GOTOXY(13,5);«, l3=0x13}
0x1fac…1fcf Line {l1=0x21, l2=» READLN;READ(ORPOST.ORDRENR)«, l3=0x21}
0x1fcf…1fe6 Line {l1=0x15, l2=» UNTIL IORESULT=0;«, l3=0x15}
0x1fe6…1ff2 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1ff2…2006 Line {l1=0x12, l2=» GOTOXY(1,6);«, l3=0x12}
0x2006…2027 Line {l1=0x1f, l2=» WRITELN('Produktnummer');«, l3=0x1f}
0x2027…203c Line {l1=0x13, l2=» GOTOXY(15,6);«, l3=0x13}
0x203c…2052 Line {l1=0x14, l2=» READLN;READ(R)«, l3=0x14}
0x2052…208a Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<=999999.0);«, l3=0x36}
0x208a…20b4 Line {l1=0x28, l2=» ORPOST.PRODUKT1NR:=TRUNC(R/10000.0);«, l3=0x28}
0x20b4…20f0 Line {l1=0x3a, l2=» ORPOST.PRODUKT2NR:=TRUNC(R-ORPOST.PRODUKT1NR*10000.0);«, l3=0x3a}
0x20f0…2111 Line {l1=0x1f, l2=» GETREC(ORZ.H,ORF,ORPOST.A);«, l3=0x1f}
0x2111…214c Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(ORZ.H.FILENAME);«, l3=0x39}
0x214c…215f Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x215f…216a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x216a…2178 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2178…218e Line {l1=0x14, l2=» GOTOXY(1,7);«, l3=0x14}
0x218e…21a0 Line {l1=0x10, l2=» CH:='N';«, l3=0x10}
0x21a0…21cb Line {l1=0x29, l2=» WRITELN('Ønskes afslutning J/N');«, l3=0x29}
0x21cb…21ea Line {l1=0x1d, l2=» GOTOXY(23,7);EDIT(CH)«, l3=0x1d}
0x21ea…220d Line {l1=0x21, l2=» UNTIL (CH='N') OR (CH='J');«, l3=0x21}
0x220d…2223 Line {l1=0x14, l2=» IF CH='J' THEN«, l3=0x14}
0x2223…2230 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2230…225f Line {l1=0x2d, l2=» HIPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x2d}
0x225f…228e Line {l1=0x2d, l2=» HIPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x2d}
0x228e…22ae Line {l1=0x1e, l2=» HIPOST.DAT1:=SF^.DAT1;«, l3=0x1e}
0x22ae…22ce Line {l1=0x1e, l2=» HIPOST.DAT2:=SF^.DAT2;«, l3=0x1e}
0x22ce…22f7 Line {l1=0x27, l2=» HIPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x27}
0x22f7…232a Line {l1=0x31, l2=» HIPOST.ANTALBESTILT:=ORPOST.ANTALBESTILT;«, l3=0x31}
0x232a…2357 Line {l1=0x2b, l2=» HIPOST.SALGSPRIS:=ORPOST.SALGSPRIS;«, l3=0x2b}
0x2357…2367 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x2367…237f Line {l1=0x16, l2=» GOTOXY(1,8);«, l3=0x16}
0x237f…23af Line {l1=0x2e, l2=» WRITELN('Realiseret materialepris');«, l3=0x2e}
0x23af…23c8 Line {l1=0x17, l2=» GOTOXY(26,8);«, l3=0x17}
0x23c8…23f5 Line {l1=0x2b, l2=» READLN;READ(HIPOST.MATERIALEPRIS)«, l3=0x2b}
0x23f5…2435 Line {l1=0x3e, l2=» UNTIL (IORESULT=0) AND (HIPOST.MATERIALEPRIS>=0.0) AND«, l3=0x3e}
0x2435…2479 Line {l1=0x42, l2=» (HIPOST.MATERIALEPRIS<=10000000.0);«, l3=0x42}
0x2479…2489 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x2489…24a1 Line {l1=0x16, l2=» GOTOXY(1,9);«, l3=0x16}
0x24a1…24c6 Line {l1=0x23, l2=» WRITELN('Leveret antal');«, l3=0x23}
0x24c6…24df Line {l1=0x17, l2=» GOTOXY(15,9);«, l3=0x17}
0x24df…250b Line {l1=0x2a, l2=» READLN;READ(HIPOST.ANTALLEVERET)«, l3=0x2a}
0x250b…254a Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND (HIPOST.ANTALLEVERET>=0.0) AND«, l3=0x3d}
0x254a…258d Line {l1=0x41, l2=» (HIPOST.ANTALLEVERET<=10000000.0);«, l3=0x41}
0x258d…25be Line {l1=0x2f, l2=» WRITELN(LIST,' ':30,'ORDREAFSLUTNING');«, l3=0x2f}
0x25be…2602 Line {l1=0x42, l2=» WRITELN(LIST,'ORDRESTATUS',' ':7,'ORDRENR',ORPOST.ORDRENR:6,«, l3=0x42}
0x2602…2643 Line {l1=0x3f, l2=» ' ':3,'PRODUKTNR',ORPOST.PRODUKT1NR*10000.0+«, l3=0x3f}
0x2643…267d Line {l1=0x38, l2=» ORPOST.PRODUKT2NR:8:-2,' ':11,'Dato',«, l3=0x38}
0x267d…26b2 Line {l1=0x33, l2=» SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x33}
0x26b2…26ef Line {l1=0x3b, l2=» WRITELN(LIST,'MATERIALEPRIS',' ':5,'SALGSPRIS',' ':7,«, l3=0x3b}
0x26ef…271f Line {l1=0x2e, l2=» 'KALKULATIONSFAKTOR',' ':6,«, l3=0x2e}
0x271f…2748 Line {l1=0x27, l2=» 'KALKULERET ANTAL');«, l3=0x27}
0x2748…278d Line {l1=0x43, l2=» WRITELN(LIST,ORPOST.MATERIALEPRIS:13:2,ORPOST.SALGSPRIS:14:2,«, l3=0x43}
0x278d…27d0 Line {l1=0x41, l2=» ORPOST.FAKTOR:25:2,ORPOST.ANTALBESTILT:22:-2);«, l3=0x41}
0x27d0…281b Line {l1=0x49, l2=» WRITELN(LIST,'REALISERET MATERIALEPRIS',' ':34,'REALISERET ANTAL');«, l3=0x49}
0x281b…286a Line {l1=0x4d, l2=» WRITELN(LIST,HIPOST.MATERIALEPRIS:13:2,' ':48,HIPOST.ANTALLEVERET:13:-2);«, l3=0x4d}
0x286a…2880 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x2880…28b8 Line {l1=0x36, l2=» WRITELN(LIST,'MEDARBEJDERNR',' ':4,'Dato',' ':5,«, l3=0x36}
0x28b8…28e6 Line {l1=0x2c, l2=» '1/100 TIMER',' ':19,'LØN',«, l3=0x2c}
0x28e6…290c Line {l1=0x24, l2=» ' ':8,'ENHEDER');«, l3=0x24}
0x290c…294b Line {l1=0x3d, l2=» WRITELN(LIST,' ':32,'REALI',' ':3,'PR.',' ':11,'REALI',«, l3=0x3d}
0x294b…2974 Line {l1=0x27, l2=» ' ':5,'REALISERET');«, l3=0x27}
0x2974…29b5 Line {l1=0x3f, l2=» WRITELN(LIST,' ':32,'SERET',' ':3,'ENHED',' ':9,'SERET');«, l3=0x3f}
0x29b5…29cb Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x29cb…29e3 Line {l1=0x16, l2=» FOR I:=0 TO 6 DO«, l3=0x16}
0x29e3…29f0 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x29f0…2a08 Line {l1=0x16, l2=» KCENT(I):=0.0;«, l3=0x16}
0x2a08…2a20 Line {l1=0x16, l2=» RCENT(I):=0.0;«, l3=0x16}
0x2a20…2a37 Line {l1=0x15, l2=» KLØN(I):=0.0;«, l3=0x15}
0x2a37…2a4e Line {l1=0x15, l2=» RLØN(I):=0.0;«, l3=0x15}
0x2a4e…2a66 Line {l1=0x16, l2=» RENHED(I):=0.0«, l3=0x16}
0x2a66…2a72 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2a72…2aa2 Line {l1=0x2e, l2=» SUM1:=0.0;SUM2:=0.0;SUM3:=0.0;SUM4:=0.0;«, l3=0x2e}
0x2aa2…2ac9 Line {l1=0x25, l2=» OPPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x25}
0x2ac9…2af6 Line {l1=0x2b, l2=» OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x2b}
0x2af6…2b23 Line {l1=0x2b, l2=» OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x2b}
0x2b23…2b42 Line {l1=0x1d, l2=» OPPOST.OPERATIONSNR:=0;«, l3=0x1d}
0x2b42…2b69 Line {l1=0x25, l2=» RGPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x25}
0x2b69…2b96 Line {l1=0x2b, l2=» RGPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x2b}
0x2b96…2bc3 Line {l1=0x2b, l2=» RGPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x2b}
0x2bc3…2be2 Line {l1=0x1d, l2=» RGPOST.OPERATIONSNR:=0;«, l3=0x1d}
0x2be2…2bef Line {l1=0x0b, l2=» DOIT;«, l3=0x0b}
0x2bef…2c2f Line {l1=0x3e, l2=» WRITELN(LIST);WRITELN(LIST);WRITELN(LIST);WRITELN(LIST);«, l3=0x3e}
0x2c2f…2c3d Line {l1=0x0c, l2=» DOTWO;«, l3=0x0c}
0x2c3d…2c48 Line {l1=0x09, l2=» END«, l3=0x09}
0x2c48…2c52 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2c52…2c60 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x2c60…2c73 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x2c73…2c91 Line {l1=0x1c, l2=» WRITELN('Flere ordrer');«, l3=0x1c}
0x2c91…2cad Line {l1=0x1a, l2=» GOTOXY(14,10);EDIT(CH)«, l3=0x1a}
0x2cad…2cbd Line {l1=0x0e, l2=» UNTIL CH='N'«, l3=0x0e}
0x2cbd…2cc3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2cc3…2ccb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2ccb…2cd2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2cd2…2ce2 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2ce2…2ce5 Line {l1=0x01, l2=» «, l3=0x01}
0x2ce5…2d00 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x2d00…2d16 Line {l1=0x14, l2=» REWRITE(SF,FNAVN);«, l3=0x14}
0x2d16…2d25 Line {l1=0x0d, l2=» SEEK(SF,1);«, l3=0x0d}
0x2d25…2d31 Line {l1=0x0a, l2=» GET(SF);«, l3=0x0a}
0x2d31…2d50 Line {l1=0x1d, l2=» ORZ.H.FILENAME:='ORDREREG';«, l3=0x1d}
0x2d50…2d70 Line {l1=0x1e, l2=» FNAVN:='ORDREREG:P2:0000:I';«, l3=0x1e}
0x2d70…2d87 Line {l1=0x15, l2=» REWRITE(ORF,FNAVN);«, l3=0x15}
0x2d87…2dc7 Line {l1=0x3e, l2=» IOPEN(ORZ.H,ORF,SKRIV);IF IER<>0 THEN OFEJL(ORZ.H.FILENAME);«, l3=0x3e}
0x2dc7…2de6 Line {l1=0x1d, l2=» OPZ.H.FILENAME:='OPLINREG';«, l3=0x1d}
0x2de6…2e06 Line {l1=0x1e, l2=» FNAVN:='OPLINREG:P2:0000:I';«, l3=0x1e}
0x2e06…2e1d Line {l1=0x15, l2=» REWRITE(OPF,FNAVN);«, l3=0x15}
0x2e1d…2e5d Line {l1=0x3e, l2=» IOPEN(OPZ.H,OPF,SKRIV);IF IER<>0 THEN OFEJL(OPZ.H.FILENAME);«, l3=0x3e}
0x2e5d…2e7c Line {l1=0x1d, l2=» OAZ.H.FILENAME:='OPERAREG';«, l3=0x1d}
0x2e7c…2e9c Line {l1=0x1e, l2=» FNAVN:='OPERAREG:P2:0000:I';«, l3=0x1e}
0x2e9c…2eb3 Line {l1=0x15, l2=» REWRITE(OAF,FNAVN);«, l3=0x15}
0x2eb3…2ef1 Line {l1=0x3c, l2=» IOPEN(OAZ.H,OAF,LÆS);IF IER<>0 THEN OFEJL(OAZ.H.FILENAME);«, l3=0x3c}
0x2ef1…2f10 Line {l1=0x1d, l2=» RGZ.H.FILENAME:='REGLIREG';«, l3=0x1d}
0x2f10…2f30 Line {l1=0x1e, l2=» FNAVN:='REGLIREG:P2:0000:I';«, l3=0x1e}
0x2f30…2f47 Line {l1=0x15, l2=» REWRITE(RGF,FNAVN);«, l3=0x15}
0x2f47…2f87 Line {l1=0x3e, l2=» IOPEN(RGZ.H,RGF,SKRIV);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);«, l3=0x3e}
0x2f87…2fa6 Line {l1=0x1d, l2=» HIZ.H.FILENAME:='HISTOREG';«, l3=0x1d}
0x2fa6…2fc6 Line {l1=0x1e, l2=» FNAVN:='HISTOREG:P2:0000:I';«, l3=0x1e}
0x2fc6…2fdd Line {l1=0x15, l2=» REWRITE(HIF,FNAVN);«, l3=0x15}
0x2fdd…301d Line {l1=0x3e, l2=» IOPEN(HIZ.H,HIF,SKRIV);IF IER<>0 THEN OFEJL(HIZ.H.FILENAME);«, l3=0x3e}
0x301d…302a Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x302a…3040 Line {l1=0x14, l2=» ICLOSE(ORZ.H,ORF);«, l3=0x14}
0x3040…3056 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x3056…306c Line {l1=0x14, l2=» ICLOSE(OAZ.H,OAF);«, l3=0x14}
0x306c…3082 Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x3082…3098 Line {l1=0x14, l2=» ICLOSE(HIZ.H,HIF);«, l3=0x14}
0x3098…30b2 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x30b2…30b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x30b8…30c0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x30c0…30c7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x30c7…30d3 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x30d3…30e2 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x30e2…30f9 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x30f9…312f Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x312f…3164 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x3164…316a Line {l1=0x04, l2=»END.«, l3=0x04}
0x316a…3180 00 00 20 20 20 44 4f 49 54 3b 0b 11 20 20 20 20 20 20 50 41 47 45 ┆ DOIT; PAGE┆
0x3180…31a0 28 4c 49 53 54 29 3b 11 0c 20 20 20 20 20 20 44 4f 54 57 4f 3b 0c 09 20 20 20 20 20 20 45 4e 44 ┆(LIST); DOTWO; END┆
0x31a0…31c0 09 08 20 20 20 20 45 4e 44 3b 08 0c 20 20 20 20 43 48 3a 3d 27 4a 27 3b 0c 11 20 20 20 20 47 4f ┆ END; CH:='J'; GO┆
0x31c0…31e0 54 4f 58 59 28 31 2c 31 30 29 3b 11 1c 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 6c 65 72 65 20 ┆TOXY(1,10); WRITELN('Flere ┆
0x31e0…3200 6f 72 64 72 65 72 27 29 3b 1c 1a 20 20 20 20 47 4f 54 4f 58 59 28 31 34 2c 31 30 29 3b 45 44 49 ┆ordrer'); GOTOXY(14,10);EDI┆
0x3200…3220 54 28 43 48 29 1a 0e 20 20 55 4e 54 49 4c 20 43 48 3d 27 4e 27 0e 04 45 4e 44 3b 04 06 28 2a 24 ┆T(CH) UNTIL CH='N' END; (*$┆
0x3220…3240 50 2a 29 06 05 42 45 47 49 4e 05 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 01 20 01 19 20 ┆P*) BEGIN CLEARSCREEN; ┆
0x3240…3260 20 46 4e 41 56 4e 3a 3d 27 53 59 53 52 45 47 3a 50 32 3a 31 3a 49 27 3b 19 14 20 20 52 45 57 52 ┆ FNAVN:='SYSREG:P2:1:I'; REWR┆
0x3260…3280 49 54 45 28 53 46 2c 46 4e 41 56 4e 29 3b 14 0d 20 20 53 45 45 4b 28 53 46 2c 31 29 3b 0d 0a 20 ┆ITE(SF,FNAVN); SEEK(SF,1); ┆
0x3280…32a0 20 47 45 54 28 53 46 29 3b 0a 1d 20 20 4f 52 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 3a 3d 27 4f 52 ┆ GET(SF); ORZ.H.FILENAME:='OR┆
0x32a0…32c0 44 52 45 52 45 47 27 3b 1d 1e 20 20 46 4e 41 56 4e 3a 3d 27 4f 52 44 52 45 52 45 47 3a 50 32 3a ┆DREREG'; FNAVN:='ORDREREG:P2:┆
0x32c0…32e0 30 30 30 30 3a 49 27 3b 1e 15 20 20 52 45 57 52 49 54 45 28 4f 52 46 2c 46 4e 41 56 4e 29 3b 15 ┆0000:I'; REWRITE(ORF,FNAVN); ┆
0x32e0…3300 3e 20 20 49 4f 50 45 4e 28 4f 52 5a 2e 48 2c 4f 52 46 2c 53 4b 52 49 56 29 3b 49 46 20 49 45 52 ┆> IOPEN(ORZ.H,ORF,SKRIV);IF IER┆
0x3300…3320 3c 3e 30 20 54 48 45 4e 20 4f 46 45 4a 4c 28 4f 52 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3e ┆<>0 THEN OFEJL(ORZ.H.FILENAME);>┆
0x3320…3340 1d 20 20 4f 50 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 3a 3d 27 4f 50 4c 49 4e 52 45 47 27 3b 1d 1e ┆ OPZ.H.FILENAME:='OPLINREG'; ┆
0x3340…3360 20 20 46 4e 41 56 4e 3a 3d 27 4f 50 4c 49 4e 52 45 47 3a 50 32 3a 30 30 30 30 3a 49 27 3b 1e 15 ┆ FNAVN:='OPLINREG:P2:0000:I'; ┆
0x3360…3380 20 20 52 45 57 52 49 54 45 28 4f 50 46 2c 46 4e 41 56 4e 29 3b 15 3e 20 20 49 4f 50 45 4e 28 4f ┆ REWRITE(OPF,FNAVN); > IOPEN(O┆
0x3380…33a0 50 5a 2e 48 2c 4f 50 46 2c 53 4b 52 49 56 29 3b 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 4f ┆PZ.H,OPF,SKRIV);IF IER<>0 THEN O┆
0x33a0…33c0 46 45 4a 4c 28 4f 50 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3e 1d 20 20 4f 41 5a 2e 48 2e 46 ┆FEJL(OPZ.H.FILENAME);> OAZ.H.F┆
0x33c0…33e0 49 4c 45 4e 41 4d 45 3a 3d 27 4f 50 45 52 41 52 45 47 27 3b 1d 1e 20 20 46 4e 41 56 4e 3a 3d 27 ┆ILENAME:='OPERAREG'; FNAVN:='┆
0x33e0…3400 4f 50 45 52 41 52 45 47 3a 50 32 3a 30 30 30 30 3a 49 27 3b 1e 15 20 20 52 45 57 52 49 54 45 28 ┆OPERAREG:P2:0000:I'; REWRITE(┆
0x3400…3420 4f 41 46 2c 46 4e 41 56 4e 29 3b 15 3c 20 20 49 4f 50 45 4e 28 4f 41 5a 2e 48 2c 4f 41 46 2c 4c ┆OAF,FNAVN); < IOPEN(OAZ.H,OAF,L┆
0x3420…3440 5b 53 29 3b 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 4f 46 45 4a 4c 28 4f 41 5a 2e 48 2e 46 ┆ÆS);IF IER<>0 THEN OFEJL(OAZ.H.F┆
0x3440…3460 49 4c 45 4e 41 4d 45 29 3b 3c 1d 20 20 52 47 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 3a 3d 27 52 45 ┆ILENAME);< RGZ.H.FILENAME:='RE┆
0x3460…3480 47 4c 49 52 45 47 27 3b 1d 1e 20 20 46 4e 41 56 4e 3a 3d 27 52 45 47 4c 49 52 45 47 3a 50 32 3a ┆GLIREG'; FNAVN:='REGLIREG:P2:┆
0x3480…34a0 30 30 30 30 3a 49 27 3b 1e 15 20 20 52 45 57 52 49 54 45 28 52 47 46 2c 46 4e 41 56 4e 29 3b 15 ┆0000:I'; REWRITE(RGF,FNAVN); ┆
0x34a0…34c0 3e 20 20 49 4f 50 45 4e 28 52 47 5a 2e 48 2c 52 47 46 2c 53 4b 52 49 56 29 3b 49 46 20 49 45 52 ┆> IOPEN(RGZ.H,RGF,SKRIV);IF IER┆
0x34c0…34e0 3c 3e 30 20 54 48 45 4e 20 4f 46 45 4a 4c 28 52 47 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3e ┆<>0 THEN OFEJL(RGZ.H.FILENAME);>┆
0x34e0…3500 1d 20 20 48 49 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 3a 3d 27 48 49 53 54 4f 52 45 47 27 3b 1d 1e ┆ HIZ.H.FILENAME:='HISTOREG'; ┆
0x3500…3520 20 20 46 4e 41 56 4e 3a 3d 27 48 49 53 54 4f 52 45 47 3a 50 32 3a 30 30 30 30 3a 49 27 3b 1e 15 ┆ FNAVN:='HISTOREG:P2:0000:I'; ┆
0x3520…3540 20 20 52 45 57 52 49 54 45 28 48 49 46 2c 46 4e 41 56 4e 29 3b 15 3e 20 20 49 4f 50 45 4e 28 48 ┆ REWRITE(HIF,FNAVN); > IOPEN(H┆
0x3540…3560 49 5a 2e 48 2c 48 49 46 2c 53 4b 52 49 56 29 3b 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 4f ┆IZ.H,HIF,SKRIV);IF IER<>0 THEN O┆
0x3560…3580 46 45 4a 4c 28 48 49 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 3e 0b 20 20 4d 41 49 4e 54 41 49 ┆FEJL(HIZ.H.FILENAME);> MAINTAI┆
0x3580…35a0 4e 3b 0b 14 20 20 49 43 4c 4f 53 45 28 4f 52 5a 2e 48 2c 4f 52 46 29 3b 14 14 20 20 49 43 4c 4f ┆N; ICLOSE(ORZ.H,ORF); ICLO┆
0x35a0…35c0 53 45 28 4f 50 5a 2e 48 2c 4f 50 46 29 3b 14 14 20 20 49 43 4c 4f 53 45 28 4f 41 5a 2e 48 2c 4f ┆SE(OPZ.H,OPF); ICLOSE(OAZ.H,O┆
0x35c0…35e0 41 46 29 3b 14 14 20 20 49 43 4c 4f 53 45 28 52 47 5a 2e 48 2c 52 47 46 29 3b 14 14 20 20 49 43 ┆AF); ICLOSE(RGZ.H,RGF); IC┆
0x35e0…3600 4c 4f 53 45 28 48 49 5a 2e 48 2c 48 49 46 29 3b 14 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c ┆LOSE(HIZ.H,HIF); WRITELN('ICL┆
0x3600…3620 4f 53 45 20 27 2c 49 45 52 29 18 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 ┆OSE ',IER) END; (*$P*) BEGIN ┆
0x3620…3640 0a 20 20 52 45 47 56 45 44 4c 3b 0a 0d 20 20 46 4e 41 56 4e 3a 3d 27 20 27 3b 0d 15 20 20 46 4e ┆ REGVEDL; FNAVN:=' '; FN┆
0x3640…3660 41 56 4e 28 31 29 3a 3d 50 41 52 4d 5e 28 31 29 3b 15 34 20 20 43 48 41 49 4e 28 27 4c 20 20 20 ┆AVN(1):=PARM^(1); 4 CHAIN('L ┆
0x3660…3680 20 20 20 20 2a 31 27 2c 43 4f 4e 43 41 54 28 27 48 4f 56 45 44 3a 50 32 2c 27 2c 46 4e 41 56 4e ┆ *1',CONCAT('HOVED:P2,',FNAVN┆
0x3680…36a0 29 2c 51 55 51 29 3b 34 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 ┆),QUQ);43 IF IORESULT<>0 THEN W┆
0x36a0…36c0 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e ┆RITELN('IORESULT ',IORESULT)3 EN┆
0x36c0…36e0 44 2e 04 00 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 ┆D. ccccccccccccccccccccccccccc┆
0x36e0…3700 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┆
[…0x24…]
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 de ┆ccccccccccccccccccccccccccccccc ┆