|
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: 20352 (0x4f80)
Types: TextFile
Notes: Mikados_K
Names: »FORKALK.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »FORKALK.K«
PROGRAM FORKALK;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
VAR PARM:^PARMARRAY;
USERNIVEAU:NIVEAU;
QUQ:^INTEGER;
I:INTEGER;
FNAVN,DESCNAVN:STRING;
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
MORDREZ=295;
MOPLINZ=370;
MOPERAZ=257;
(*$IISFHEAD*)
ORDREZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MORDREZ) 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;
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS:INTEGER;
LÆNGDE:INTEGER;
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
FELTFIL=FILE OF FELTBESKRIVELSE;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
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 FELT:NFELT;
SF:SYSFILE;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
DAT1,DAT2,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;
CH:STRING(1);
LINE:STRING;
FFIL:FELTFIL;
ORF,OPF,OAF:ISF;
ORZ:ORDREZONE;
OPZ:OPLINZONE;
OAZ:OPERAZONE;
ORPOST:ORDREPOST;
OPPOST:OPLINPOST;
OAPOST:OPERAPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$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);
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 LÆSDESC;
BEGIN
REWRITE(FFIL,DESCNAVN);
GET(FFIL);
I:=0;
WHILE FFIL^.INDPOS.X>0 DO
BEGIN
I:=I+1;
CASE FFIL^.FELTTYPE OF
REEL:NEW(PICTURE(I),FELTDESC,REEL);
HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)
END;
FELT:=PICTURE(I);
WITH PICTURE(I)^ DO
BEGIN
DESCTYPE:=FELTDESC;
INDPOS.X:=FFIL^.INDPOS.X;
INDPOS.Y:=FFIL^.INDPOS.Y;
UDPOS.X:=FFIL^.UDPOS.X;
UDPOS.Y:=FFIL^.UDPOS.Y;
KIKKENIVEAU:=FFIL^.KIKKENIVEAU;
ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;
LEDETEKST:=FFIL^.LEDETEKST;
FØLGETEKST:=FFIL^.FØLGETEKST;
EDITERING:=FFIL^.EDITERING;
FELTTYPE:=FFIL^.FELTTYPE;
INDEKS:=FFIL^.INDEKS;
LÆNGDE:=FFIL^.LÆNGDE;
FORAN0:=FFIL^.FORAN0;
IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;
WHILE FFIL^.NÆSTEVAL<>NIL DO
BEGIN
GET(FFIL);
WITH FELT^ DO
CASE FFIL^.VALIDITETSTYPE OF
HINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,HINTERVAL);
NÆSTEVAL^.MIN:=FFIL^.MIN;
NÆSTEVAL^.MAX:=FFIL^.MAX
END;
DINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,DINTERVAL);
NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;
NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2
END;
RINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,RINTERVAL);
NÆSTEVAL^.RMIN:=FFIL^.RMIN;
NÆSTEVAL^.RMAX:=FFIL^.RMAX
END;
DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)
END;
FELT:=FELT^.NÆSTEVAL;
FELT^.DESCTYPE:=VALIDESC;
FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE
END;
FELT^.NÆSTEVAL:=NIL
END;
GET(FFIL)
END;
CLOSE(FFIL);
ANTALFELTER:=I
END;
(*$P*)
PROCEDURE LÆSFELT(VAR F:NFELT);
VAR I,TAL,TAL1:INTEGER;
VAL:NFELT;
RESULT:REAL;
BUMMED:BOOLEAN;
(*$P*)
PROCEDURE LÆSLINIE;
VAR OK:BOOLEAN;
DECS,I,FORTEGN:INTEGER;
DM:REAL;
BEGIN
REPEAT
OK:=FALSE;
RESULT:=0.0;
TAL:=0;
TAL1:=0;
GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);
WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);
GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);
LINE:='0';
EDIT(LINE:F^.LÆNGDE);
WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);
CASE F^.FELTTYPE OF
TEKST:
IF LENGTH(LINE)<=F^.LÆNGDE THEN
BEGIN
OK:=TRUE;
WHILE LENGTH(LINE)<F^.LÆNGDE DO
IF F^.FORAN0=0 THEN
LINE:=CONCAT(LINE,' ')
ELSE
LINE:=CONCAT(' ',LINE)
END;
HELTAL,DOBBTAL:
IF LENGTH(LINE)>0 THEN
BEGIN
I:=0;
FORTEGN:=1;
IF LINE(1)='-' THEN
BEGIN
FORTEGN:=-1;
I:=1
END;
WHILE LENGTH(LINE)>I DO
BEGIN
OK:=TRUE;
I:=I+1;
IF NOT (LINE(I) IN (.'0'..'9'.)) THEN
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END;
RESULT:=10*RESULT+ORD(LINE(I))-48
END;
RESULT:=RESULT*FORTEGN;
IF OK THEN
CASE F^.FELTTYPE OF
HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;
DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN
BEGIN
TAL:=TRUNC(RESULT/10000.0);
TAL1:=TRUNC(RESULT-10000.0*TAL)
END
ELSE OK:=FALSE
END
END ELSE OK:=TRUE;
REEL:
IF LENGTH(LINE)>0 THEN
BEGIN
I:=0;
FORTEGN:=1;
DECS:=-1;
IF LINE(1)='-' THEN
BEGIN
FORTEGN:=-1;
I:=1
END;
WHILE (LENGTH(LINE)>I) AND (DECS<0) DO
BEGIN
OK:=TRUE;
I:=I+1;
IF LINE(I) IN (.'0'..'9'.) THEN
RESULT:=10*RESULT+ORD(LINE(I))-48
ELSE
IF (LINE(I)='.') OR (LINE(I)=',') THEN
DECS:=0
ELSE
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END
END;
DM:=1.0;
WHILE LENGTH(LINE)>I DO
BEGIN
I:=I+1;
DM:=DM/10.0;
IF LINE(I) IN (.'0'..'9'.) THEN
BEGIN
RESULT:=RESULT+DM*(ORD(LINE(I))-48);
DECS:=DECS+1
END
ELSE
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END
END;
RESULT:=FORTEGN*RESULT;
IF DECS>F^.DEC THEN OK:=FALSE
END
ELSE OK:=TRUE
END
UNTIL OK
END;
(*$P*)
PROCEDURE CHECKVAL;
VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;
CPN:ARRAY (1..10) OF INTEGER;
BEGIN
CASE VAL^.VALIDITETSTYPE OF
HINTERVAL:
BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));
DINTERVAL:
BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR
(TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));
RINTERVAL:
BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));
DATO:
IF LENGTH(LINE)=6 THEN
BEGIN
ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;
MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;
DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;
IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;
IF NOT BUMMED THEN
CASE MÅNED OF
4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;
2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE;
CPR:
IF LENGTH(LINE)=10 THEN
BEGIN
FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;
DAT0:=CPN(1)*10+CPN(2);
MÅNED:=CPN(3)*10+CPN(4);
ÅR:=CPN(5)*10+CPN(6);
IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;
IF NOT BUMMED THEN
CASE MÅNED OF
4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;
2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE
END;
IF NOT BUMMED THEN
BEGIN
MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+
CPN(8)*3+CPN(9)*2+CPN(10);
IF MODULC MOD 11<>0 THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE;
END
END;
(*$P*)
(*PROCEDURE LÆSFELT*)
BEGIN
REPEAT
LÆSLINIE;
VAL:=F^.NÆSTEVAL;
BUMMED:=FALSE;
WHILE (VAL<>NIL) AND (NOT BUMMED) DO
BEGIN
CHECKVAL;
VAL:=VAL^.NÆSTEVAL
END;
IF NOT BUMMED THEN
CASE FELTNR OF
7:IF TAL<>0 THEN
BEGIN
OAPOST.OPERATIONSNR:=TAL MOD 100;
GETREC(OAZ.H,OAF,OAPOST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(OAZ.H.FILENAME);
BUMMED:=(IER=-6)
END
END
UNTIL NOT BUMMED;
CASE FELTNR OF
3,4,5,6:ORPOST.AAA(F^.INDEKS):=RESULT;
1 :ORPOST.A(F^.INDEKS):=TAL;
2 :BEGIN
ORPOST.A(F^.INDEKS):=TAL;
ORPOST.A(F^.INDEKS+1):=TAL1
END;
7,8 :OPPOST.A(F^.INDEKS):=TAL;
9 :OPPOST.MINUTFAKTOR:=SF^.MINUTFAKTOR(TAL);
10 :BEGIN
DAT1:=TAL;
DAT2:=TAL1
END
END
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:STRING(1);
LØN,LØNSUM:REAL;
PROCEDURE KALKULATION;
BEGIN
WRITELN(LIST,'OPERATION',' ':31,'1/100 TIMER MINUT-',' ':12,'LØN');
WRITELN(LIST,'NUMMER BETEGNELSE',' ':20,'PR.ENHED IA FAKTOR');
LØNSUM:=0.0;
OPPOST.ORDRENR:=ORPOST.ORDRENR;
OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;
OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;
OPPOST.OPERATIONSNR:=0;
NEXTREC(OPZ.H,OPF,OPPOST.A);
IF (IER<>-1) AND (IER<>-2) THEN ERROR(OPZ.H.FILENAME) ELSE IER:=0;
WHILE (IER=0) AND (OPPOST.ORDRENR=ORPOST.ORDRENR) AND
(OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND
(OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) DO
BEGIN
OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;
GETREC(OAZ.H,OAF,OAPOST.A); IF IER<>0 THEN ERROR(OAZ.H.FILENAME);
LØN:=OPPOST.CENTIMER*OPPOST.MINUTFAKTOR;
LØNSUM:=LØNSUM+LØN;
WRITELN(LIST,OPPOST.OPERATIONSNR:5,' ':5,OAPOST.BETEGNELSE,
OPPOST.CENTIMER:4,
ORPOST.ANTALBESTILT*OPPOST.CENTIMER:7:-2,
OPPOST.MINUTFAKTOR:8:2,LØN:15:2);
NEXTREC(OPZ.H,OPF,OPPOST.A)
END;
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(OPZ.H.FILENAME);
WRITELN(LIST);
WRITELN(LIST,'LØN I ALT',' ':50,LØNSUM:15:2);
WRITELN(LIST,'SAMLET PRIS PR. ENHED',' ':39,(ORPOST.MATERIALEPRIS+
LØNSUM)*ORPOST.FAKTOR:14:2);
PAGE(LIST)
END;
(*$P*)
BEGIN
REPEAT
CLEARSCREEN;
FOR FELTNR:=1 TO 2 DO LÆSFELT(PICTURE(FELTNR));
INSERT(ORZ.H,ORF,ORPOST.A);
IF (IER<>0) AND (IER<>-7) THEN ERROR(ORZ.H.FILENAME);
IF IER=-7 THEN
BEGIN
CH:='N';
GOTOXY(1,22);
WRITELN('ORDRE-PRODUKTNR KOMBINATIONEN FINDES ALLEREDE');
WRITELN('Ønskes: Nyt nr : N, nyindtastning af Gl.nr : G,',
' Tilføjelse til gl.nr : T');
GOTOXY(76,23);EDIT(CH)
END
ELSE CH:='G'
UNTIL (CH='G') OR (CH='T');
GOTOXY(1,22);WRITELN(' ':77);WRITELN(' ':77);
IF CH='G' THEN
BEGIN
FOR FELTNR:=3 TO 6 DO LÆSFELT(PICTURE(FELTNR));
PUTREC(ORZ.H,ORF,ORPOST.A);
IF IER<>0 THEN ERROR(OAZ.H.FILENAME)
END
ELSE
BEGIN
GETREC(ORZ.H,ORF,ORPOST.A); IF IER<>0 THEN ERROR(ORZ.H.FILENAME)
END;
FELTNR:=10;LÆSFELT(PICTURE(FELTNR));
WRITELN(LIST);WRITELN(LIST);
WRITELN(LIST,'FORKALKULATION',' ':20,'Leveringsdato',DAT1*10000.0+
DAT2:8:-2,' ':7,
'Dato',
SF^.DAT1*10000.0+SF^.DAT2:8:-2);
WRITELN(LIST);
WRITELN(LIST,'ORDRE- PRODUKT ANTAL MATERIALEPRIS ',
' KALKULATIONS');
WRITELN(LIST,'NUMMER -NUMMER BESTILT',' ':37,'-FAKTOR');
WRITELN(LIST,ORPOST.ORDRENR:6,
ORPOST.PRODUKT1NR*10000.0+ORPOST.PRODUKT2NR:10:-2,
ORPOST.ANTALBESTILT:14:-2,
ORPOST.MATERIALEPRIS:15:2,
ORPOST.FAKTOR:29:2);
WRITELN(LIST);
REPEAT
FELTNR:=7;
LÆSFELT(PICTURE(FELTNR));
IF OPPOST.OPERATIONSNR<>0 THEN
BEGIN
OPPOST.ORDRENR:=ORPOST.ORDRENR;
OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;
OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;
INSERT(OPZ.H,OPF,OPPOST.A);
IF (IER<>0) AND (IER<>-7) THEN ERROR(OPZ.H.FILENAME);
IF IER=-7 THEN
BEGIN
CH:='N';
GOTOXY(1,22);
WRITELN('ORDRE-PRODUKT-OPERATION-NR KOMBINATIONEN FINDES ALLEREDE');
WRITELN('Ønskes: Nyt operationsnr: N, nyindtastning af Gl.',
' operationsnr : G');
GOTOXY(68,23);EDIT(CH);GOTOXY(1,22);WRITELN(' ':77);WRITELN(' ':77)
END
ELSE CH:='G';
IF CH='G' THEN
BEGIN
GOTOXY(30,5);
WRITELN(OAPOST.BETEGNELSE);
FOR FELTNR:=8 TO 9 DO LÆSFELT(PICTURE(FELTNR));
PUTREC(OPZ.H,OPF,OPPOST.A);
IF IER<>0 THEN ERROR(OPZ.H.FILENAME);
END
END;
GOTOXY(1,5);WRITELN(' ':77);WRITELN(' ':77);WRITELN(' ':77)
UNTIL OPPOST.OPERATIONSNR=0;
WRITELN(LIST);
KALKULATION
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);
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
DESCNAVN:='FORKDESC:P2:0:J';
LÆSDESC;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
REPEAT
CH:='J';
GOTOXY(1,23);
WRITELN('Flere forkalkulationer J/N');
GOTOXY(28,23);EDIT(CH);
IF CH='J' THEN MAINTAIN
UNTIL CH='N';
ICLOSE(ORZ.H,ORF);
ICLOSE(OPZ.H,OPF);
ICLOSE(OAZ.H,OAF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END;
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0012 Line {l1=0x10, l2=»PROGRAM FORKALK;«, l3=0x10}
0x0012…0018 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0018…0041 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x0041…008c Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x008c…00a5 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x00a5…00c0 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x00c0…00d6 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x00d6…00e9 Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x00e9…0108 Line {l1=0x1d, l2=» FNAVN,DESCNAVN:STRING;«, l3=0x1d}
0x0108…0110 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0110…0124 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0124…0139 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0139…014d Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x014d…0161 Line {l1=0x12, l2=» MORDREZ=295;«, l3=0x12}
0x0161…0175 Line {l1=0x12, l2=» MOPLINZ=370;«, l3=0x12}
0x0175…0189 Line {l1=0x12, l2=» MOPERAZ=257;«, l3=0x12}
0x0189…0198 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0198…01aa Line {l1=0x10, l2=»ORDREZONE=RECORD«, l3=0x10}
0x01aa…01be Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x01be…01e6 Line {l1=0x26, l2=» T:ARRAY(1..MORDREZ) OF INTEGER«, l3=0x26}
0x01e6…01ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x01ec…01fe Line {l1=0x10, l2=»OPLINZONE=RECORD«, l3=0x10}
0x01fe…0212 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0212…023a Line {l1=0x26, l2=» T:ARRAY(1..MOPLINZ) OF INTEGER«, l3=0x26}
0x023a…0240 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0240…0252 Line {l1=0x10, l2=»OPERAZONE=RECORD«, l3=0x10}
0x0252…0266 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0266…028e Line {l1=0x26, l2=» T:ARRAY(1..MOPERAZ) OF INTEGER«, l3=0x26}
0x028e…0294 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0294…02ad Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x02ad…02be Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x02be…02ce Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x02ce…02d4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02d4…02f8 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x02f8…0329 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0329…0350 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0350…0368 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0368…037c Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x037c…03a2 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x03a2…03b0 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x03b0…03cb Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x03cb…03ef Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x03ef…0406 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0406…0427 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0427…043b Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x043b…044f Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x044f…0463 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0463…047e Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x047e…0496 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0496…04b4 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x04b4…04c2 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x04c2…04e3 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x04e3…0507 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0507…0537 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0537…055a Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x055a…056e Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x056e…0574 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0574…0596 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x0596…05bd Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x05bd…05d8 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x05d8…05ea Line {l1=0x10, l2=»ORDREPOST=RECORD«, l3=0x10}
0x05ea…05fa Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x05fa…0607 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0607…0617 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0617…062c Line {l1=0x13, l2=» ANTALBESTILT,«, l3=0x13}
0x062c…0642 Line {l1=0x14, l2=» MATERIALEPRIS,«, l3=0x14}
0x0642…0654 Line {l1=0x10, l2=» SALGSPRIS,«, l3=0x10}
0x0654…0670 Line {l1=0x1a, l2=» FAKTOR :REAL;«, l3=0x1a}
0x0670…0680 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0680…0693 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0693…06b1 Line {l1=0x1c, l2=» PRODUKT2NR :INTEGER«, l3=0x1c}
0x06b1…06b7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06b7…06c9 Line {l1=0x10, l2=»OPLINPOST=RECORD«, l3=0x10}
0x06c9…06d9 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x06d9…06e6 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x06e6…06f6 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x06f6…0712 Line {l1=0x1a, l2=» MINUTFAKTOR :REAL;«, l3=0x1a}
0x0712…0722 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0722…0735 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0735…0748 Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x0748…075d Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x075d…077b Line {l1=0x1c, l2=» CENTIMER :INTEGER«, l3=0x1c}
0x077b…0781 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0781…0793 Line {l1=0x10, l2=»OPERAPOST=RECORD«, l3=0x10}
0x0793…07a3 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x07a3…07b0 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x07b0…07c0 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x07c0…07d5 Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x07d5…07f4 Line {l1=0x1d, l2=» GRUPPE :INTEGER;«, l3=0x1d}
0x07f4…0827 Line {l1=0x31, l2=» BETEGNELSE :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x0827…082d Line {l1=0x04, l2=»END;«, l3=0x04}
0x082d…083d Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x083d…0866 Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x0866…087f Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x087f…0885 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0885…089f Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x089f…08b0 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x08b0…08c1 Line {l1=0x0f, l2=» SF:SYSFILE;«, l3=0x0f}
0x08c1…08d6 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x08d6…0902 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0902…093c Line {l1=0x38, l2=» DAT1,DAT2,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;«, l3=0x38}
0x093c…094f Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x094f…0961 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x0961…0974 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x0974…098a Line {l1=0x14, l2=» ORF,OPF,OAF:ISF;«, l3=0x14}
0x098a…099e Line {l1=0x12, l2=» ORZ:ORDREZONE;«, l3=0x12}
0x099e…09b2 Line {l1=0x12, l2=» OPZ:OPLINZONE;«, l3=0x12}
0x09b2…09c6 Line {l1=0x12, l2=» OAZ:OPERAZONE;«, l3=0x12}
0x09c6…09dd Line {l1=0x15, l2=» ORPOST:ORDREPOST;«, l3=0x15}
0x09dd…09f4 Line {l1=0x15, l2=» OPPOST:OPLINPOST;«, l3=0x15}
0x09f4…0a0b Line {l1=0x15, l2=» OAPOST:OPERAPOST;«, l3=0x15}
0x0a0b…0a14 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0a14…0a27 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0a27…0a34 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0a34…0a41 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0a41…0a51 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0a51…0a61 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0a61…0a70 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0a70…0a7e Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0a7e…0a8c Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0a8c…0a9a Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0a9a…0aa9 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0aa9…0ab2 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0ab2…0aba Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0aba…0add Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x0add…0ae4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ae4…0b19 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0b19…0b2f Line {l1=0x14, l2=» ICLOSE(ORZ.H,ORF);«, l3=0x14}
0x0b2f…0b45 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x0b45…0b5b Line {l1=0x14, l2=» ICLOSE(OAZ.H,OAF);«, l3=0x14}
0x0b5b…0b6c Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0b6c…0b72 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b72…0b95 Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x0b95…0ba5 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0ba5…0bac Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0bac…0bbd Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0bbd…0c0c Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0c0c…0c3c Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0c3c…0c75 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0c75…0c91 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x0c91…0ca0 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0ca0…0ca6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ca6…0cae Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0cae…0cc2 Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x0cc2…0cc9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0cc9…0ce4 Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x0ce4…0ce7 Line {l1=0x01, l2=» «, l3=0x01}
0x0ce7…0cf5 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x0cf5…0cfe Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x0cfe…0d1b Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x0d1b…0d24 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d24…0d31 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x0d31…0d4d Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x0d4d…0d76 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x0d76…0db0 Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x0db0…0dba Line {l1=0x08, l2=» END;«, l3=0x08}
0x0dba…0dd1 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x0dd1…0dea Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x0dea…0df5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0df5…0e10 Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x0e10…0e31 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x0e31…0e52 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x0e52…0e71 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x0e71…0e90 Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x0e90…0eb7 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x0eb7…0ede Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x0ede…0f01 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x0f01…0f26 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x0f26…0f49 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x0f49…0f6a Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x0f6a…0f87 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x0f87…0fa4 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x0fa4…0fc1 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x0fc1…0fee Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x0fee…1012 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1012…101f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x101f…1033 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x1033…104a Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x104a…1070 Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x1070…108b Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x108b…10c4 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x10c4…10f5 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x10f5…1125 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x1125…113f Line {l1=0x18, l2=» END;«, l3=0x18}
0x113f…115a Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x115a…1193 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x1193…11e1 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x11e1…122e Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x122e…1248 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1248…1263 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x1263…129c Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x129c…12cf Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x12cf…1301 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x1301…131b Line {l1=0x18, l2=» END;«, l3=0x18}
0x131b…134b Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x134b…1359 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1359…1378 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x1378…139b Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x139b…13cf Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x13cf…13db Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x13db…13f6 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x13f6…1400 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1400…140f Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x140f…1417 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1417…1427 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x1427…1439 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x1439…143f Line {l1=0x04, l2=»END;«, l3=0x04}
0x143f…1447 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1447…1468 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x1468…1481 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x1481…1491 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x1491…14a3 Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x14a3…14b8 Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x14b8…14bb Line {l1=0x01, l2=» «, l3=0x01}
0x14bb…14c3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x14c3…14d8 Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x14d8…14e9 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x14e9…1506 Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x1506…1514 Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x1514…1517 Line {l1=0x01, l2=» «, l3=0x01}
0x1517…151e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x151e…1528 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1528…1538 Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x1538…154a Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x154a…1557 Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x1557…1565 Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x1565…158b Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x158b…15c5 Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x15c5…1602 Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x1602…1612 Line {l1=0x0e, l2=» LINE:='0';«, l3=0x0e}
0x1612…162d Line {l1=0x19, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x19}
0x162d…1670 Line {l1=0x41, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);«, l3=0x41}
0x1670…1689 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x1689…1691 Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x1691…16b6 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x16b6…16c1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x16c1…16d2 Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x16d2…16f9 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x16f9…1716 Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x1716…1738 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x1738…1746 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1746…1768 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x1768…1772 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1772…1783 Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x1783…179f Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x179f…17aa Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x17aa…17b7 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x17b7…17ca Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x17ca…17e5 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x17e5…17f2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x17f2…1808 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x1808…1816 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x1816…1822 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1822…1841 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x1841…184e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x184e…1861 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x1861…1872 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1872…18a1 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x18a1…18b0 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x18b0…18c6 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x18c6…18e1 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x18e1…18ef Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x18ef…191a Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x191a…1926 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1926…1945 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x1945…1957 Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x1957…1972 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x1972…19be Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x19be…19ee Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x19ee…1a03 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x1a03…1a30 Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x1a30…1a61 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x1a61…1a74 Line {l1=0x11, l2=» END«, l3=0x11}
0x1a74…1a92 Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x1a92…1a9d Line {l1=0x09, l2=» END«, l3=0x09}
0x1a9d…1ab5 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x1ab5…1abc Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x1abc…1ad8 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x1ad8…1ae3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1ae3…1af0 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x1af0…1b03 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x1b03…1b14 Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x1b14…1b2f Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x1b2f…1b3c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1b3c…1b52 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x1b52…1b60 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x1b60…1b6c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1b6c…1b9a Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x1b9a…1ba7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1ba7…1bba Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x1bba…1bcb Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1bcb…1bf4 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x1bf4…1c21 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x1c21…1c2f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1c2f…1c5f Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x1c5f…1c72 Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x1c72…1c80 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1c80…1c8f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1c8f…1ca5 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1ca5…1cc0 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1cc0…1ccd Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1ccd…1cd9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1cd9…1ce9 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x1ce9…1d08 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x1d08…1d15 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1d15…1d26 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1d26…1d3c Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x1d3c…1d65 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x1d65…1d74 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1d74…1da4 Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x1da4…1dbc Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x1dbc…1dc9 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1dc9…1dd7 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1dd7…1de6 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1de6…1dfc Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1dfc…1e17 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1e17…1e24 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1e24…1e30 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1e30…1e4f Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x1e4f…1e74 Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x1e74…1e7d Line {l1=0x07, l2=» END«, l3=0x07}
0x1e7d…1e90 Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x1e90…1e99 Line {l1=0x07, l2=» END«, l3=0x07}
0x1e99…1ea5 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x1ea5…1eab Line {l1=0x04, l2=»END;«, l3=0x04}
0x1eab…1eb3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1eb3…1ec8 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x1ec8…1eed Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x1eed…1f10 Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x1f10…1f17 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f17…1f36 Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x1f36…1f44 Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x1f44…1f75 Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x1f75…1f83 Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x1f83…1fc3 Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x1fc3…2002 Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x2002…2010 Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x2010…2049 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x2049…2052 Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x2052…206e Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x206e…2079 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2079…20aa Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x20aa…20de Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x20de…2111 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x2111…215f Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x215f…2179 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x2179…218e Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x218e…21bd Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x21bd…2208 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x2208…2213 Line {l1=0x09, l2=» END«, l3=0x09}
0x2213…221c Line {l1=0x07, l2=» END«, l3=0x07}
0x221c…2234 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x2234…223c Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x223c…2259 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x2259…2264 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2264…2296 Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x2296…22b5 Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x22b5…22d5 Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x22d5…22f2 Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x22f2…2340 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x2340…235a Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x235a…236f Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x236f…239e Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x239e…23e8 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x23e8…23f4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x23f4…240e Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x240e…241b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x241b…246a Line {l1=0x4d, l2=» MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+«, l3=0x4d}
0x246a…2494 Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x2494…24c3 Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x24c3…24ce Line {l1=0x09, l2=» END«, l3=0x09}
0x24ce…24d7 Line {l1=0x07, l2=» END«, l3=0x07}
0x24d7…24ef Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x24ef…24f6 Line {l1=0x05, l2=» END«, l3=0x05}
0x24f6…24fc Line {l1=0x04, l2=»END;«, l3=0x04}
0x24fc…2504 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2504…251b Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x251b…2522 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2522…252c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x252c…253b Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x253b…2552 Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x2552…2566 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x2566…2590 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x2590…259b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x259b…25ac Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x25ac…25c6 Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x25c6…25d0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x25d0…25e8 Line {l1=0x16, l2=» IF NOT BUMMED THEN«, l3=0x16}
0x25e8…25fc Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x25fc…2612 Line {l1=0x14, l2=» 7:IF TAL<>0 THEN«, l3=0x14}
0x2612…261f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x261f…264a Line {l1=0x29, l2=» OAPOST.OPERATIONSNR:=TAL MOD 100;«, l3=0x29}
0x264a…266f Line {l1=0x23, l2=» GETREC(OAZ.H,OAF,OAPOST.A);«, l3=0x23}
0x266f…26ae Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(OAZ.H.FILENAME);«, l3=0x3d}
0x26ae…26c8 Line {l1=0x18, l2=» BUMMED:=(IER=-6)«, l3=0x18}
0x26c8…26d3 Line {l1=0x09, l2=» END«, l3=0x09}
0x26d3…26dc Line {l1=0x07, l2=» END«, l3=0x07}
0x26dc…26f1 Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x26f1…2703 Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x2703…272d Line {l1=0x28, l2=» 3,4,5,6:ORPOST.AAA(F^.INDEKS):=RESULT;«, l3=0x28}
0x272d…2752 Line {l1=0x23, l2=» 1 :ORPOST.A(F^.INDEKS):=TAL;«, l3=0x23}
0x2752…2763 Line {l1=0x0f, l2=» 2 :BEGIN«, l3=0x0f}
0x2763…278a Line {l1=0x25, l2=» ORPOST.A(F^.INDEKS):=TAL;«, l3=0x25}
0x278a…27b3 Line {l1=0x27, l2=» ORPOST.A(F^.INDEKS+1):=TAL1«, l3=0x27}
0x27b3…27c3 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x27c3…27e8 Line {l1=0x23, l2=» 7,8 :OPPOST.A(F^.INDEKS):=TAL;«, l3=0x23}
0x27e8…281d Line {l1=0x33, l2=» 9 :OPPOST.MINUTFAKTOR:=SF^.MINUTFAKTOR(TAL);«, l3=0x33}
0x281d…282e Line {l1=0x0f, l2=» 10 :BEGIN«, l3=0x0f}
0x282e…2846 Line {l1=0x16, l2=» DAT1:=TAL;«, l3=0x16}
0x2846…285e Line {l1=0x16, l2=» DAT2:=TAL1«, l3=0x16}
0x285e…286d Line {l1=0x0d, l2=» END«, l3=0x0d}
0x286d…2874 Line {l1=0x05, l2=» END«, l3=0x05}
0x2874…287a Line {l1=0x04, l2=»END;«, l3=0x04}
0x287a…2882 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2882…2897 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x2897…28aa Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x28aa…28c0 Line {l1=0x14, l2=» LØN,LØNSUM:REAL;«, l3=0x14}
0x28c0…28d8 Line {l1=0x16, l2=»PROCEDURE KALKULATION;«, l3=0x16}
0x28d8…28df Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x28df…2927 Line {l1=0x46, l2=» WRITELN(LIST,'OPERATION',' ':31,'1/100 TIMER MINUT-',' ':12,'LØN');«, l3=0x46}
0x2927…296d Line {l1=0x44, l2=» WRITELN(LIST,'NUMMER BETEGNELSE',' ':20,'PR.ENHED IA FAKTOR');«, l3=0x44}
0x296d…297d Line {l1=0x0e, l2=» LØNSUM:=0.0;«, l3=0x0e}
0x297d…29a0 Line {l1=0x21, l2=» OPPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x21}
0x29a0…29c9 Line {l1=0x27, l2=» OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x27}
0x29c9…29f2 Line {l1=0x27, l2=» OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x27}
0x29f2…2a0d Line {l1=0x19, l2=» OPPOST.OPERATIONSNR:=0;«, l3=0x19}
0x2a0d…2a2d Line {l1=0x1e, l2=» NEXTREC(OPZ.H,OPF,OPPOST.A);«, l3=0x1e}
0x2a2d…2a73 Line {l1=0x44, l2=» IF (IER<>-1) AND (IER<>-2) THEN ERROR(OPZ.H.FILENAME) ELSE IER:=0;«, l3=0x44}
0x2a73…2aac Line {l1=0x37, l2=» WHILE (IER=0) AND (OPPOST.ORDRENR=ORPOST.ORDRENR) AND«, l3=0x37}
0x2aac…2adf Line {l1=0x31, l2=» (OPPOST.PRODUKT1NR=ORPOST.PRODUKT1NR) AND«, l3=0x31}
0x2adf…2b11 Line {l1=0x30, l2=» (OPPOST.PRODUKT2NR=ORPOST.PRODUKT2NR) DO«, l3=0x30}
0x2b11…2b1a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b1a…2b51 Line {l1=0x35, l2=» OAPOST.OPERATIONSNR:=OPPOST.OPERATIONSNR MOD 100;«, l3=0x35}
0x2b51…2b98 Line {l1=0x45, l2=» GETREC(OAZ.H,OAF,OAPOST.A); IF IER<>0 THEN ERROR(OAZ.H.FILENAME);«, l3=0x45}
0x2b98…2bc6 Line {l1=0x2c, l2=» LØN:=OPPOST.CENTIMER*OPPOST.MINUTFAKTOR;«, l3=0x2c}
0x2bc6…2bdf Line {l1=0x17, l2=» LØNSUM:=LØNSUM+LØN;«, l3=0x17}
0x2bdf…2c20 Line {l1=0x3f, l2=» WRITELN(LIST,OPPOST.OPERATIONSNR:5,' ':5,OAPOST.BETEGNELSE,«, l3=0x3f}
0x2c20…2c49 Line {l1=0x27, l2=» OPPOST.CENTIMER:4,«, l3=0x27}
0x2c49…2c89 Line {l1=0x3e, l2=» ORPOST.ANTALBESTILT*OPPOST.CENTIMER:7:-2,«, l3=0x3e}
0x2c89…2cc1 Line {l1=0x36, l2=» OPPOST.MINUTFAKTOR:8:2,LØN:15:2);«, l3=0x36}
0x2cc1…2ce2 Line {l1=0x1f, l2=» NEXTREC(OPZ.H,OPF,OPPOST.A)«, l3=0x1f}
0x2ce2…2cea Line {l1=0x06, l2=» END;«, l3=0x06}
0x2cea…2d31 Line {l1=0x45, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(OPZ.H.FILENAME);«, l3=0x45}
0x2d31…2d43 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2d43…2d74 Line {l1=0x2f, l2=» WRITELN(LIST,'LØN I ALT',' ':50,LØNSUM:15:2);«, l3=0x2f}
0x2d74…2dba Line {l1=0x44, l2=» WRITELN(LIST,'SAMLET PRIS PR. ENHED',' ':39,(ORPOST.MATERIALEPRIS+«, l3=0x44}
0x2dba…2de7 Line {l1=0x2b, l2=» LØNSUM)*ORPOST.FAKTOR:14:2);«, l3=0x2b}
0x2de7…2df5 Line {l1=0x0c, l2=» PAGE(LIST)«, l3=0x0c}
0x2df5…2dfb Line {l1=0x04, l2=»END;«, l3=0x04}
0x2dfb…2e03 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2e03…2e0a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2e0a…2e14 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2e14…2e26 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2e26…2e5b Line {l1=0x33, l2=» FOR FELTNR:=1 TO 2 DO LÆSFELT(PICTURE(FELTNR));«, l3=0x33}
0x2e5b…2e7c Line {l1=0x1f, l2=» INSERT(ORZ.H,ORF,ORPOST.A);«, l3=0x1f}
0x2e7c…2eb7 Line {l1=0x39, l2=» IF (IER<>0) AND (IER<>-7) THEN ERROR(ORZ.H.FILENAME);«, l3=0x39}
0x2eb7…2ecb Line {l1=0x12, l2=» IF IER=-7 THEN«, l3=0x12}
0x2ecb…2ed6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2ed6…2ee6 Line {l1=0x0e, l2=» CH:='N';«, l3=0x0e}
0x2ee6…2efb Line {l1=0x13, l2=» GOTOXY(1,22);«, l3=0x13}
0x2efb…2f3c Line {l1=0x3f, l2=» WRITELN('ORDRE-PRODUKTNR KOMBINATIONEN FINDES ALLEREDE');«, l3=0x3f}
0x2f3c…2f7e Line {l1=0x40, l2=» WRITELN('Ønskes: Nyt nr : N, nyindtastning af Gl.nr : G,',«, l3=0x40}
0x2f7e…2fab Line {l1=0x2b, l2=» ' Tilføjelse til gl.nr : T');«, l3=0x2b}
0x2fab…2fc9 Line {l1=0x1c, l2=» GOTOXY(76,23);EDIT(CH)«, l3=0x1c}
0x2fc9…2fd2 Line {l1=0x07, l2=» END«, l3=0x07}
0x2fd2…2fe4 Line {l1=0x10, l2=» ELSE CH:='G'«, l3=0x10}
0x2fe4…3003 Line {l1=0x1d, l2=» UNTIL (CH='G') OR (CH='T');«, l3=0x1d}
0x3003…3034 Line {l1=0x2f, l2=» GOTOXY(1,22);WRITELN(' ':77);WRITELN(' ':77);«, l3=0x2f}
0x3034…3046 Line {l1=0x10, l2=» IF CH='G' THEN«, l3=0x10}
0x3046…304f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x304f…3084 Line {l1=0x33, l2=» FOR FELTNR:=3 TO 6 DO LÆSFELT(PICTURE(FELTNR));«, l3=0x33}
0x3084…30a5 Line {l1=0x1f, l2=» PUTREC(ORZ.H,ORF,ORPOST.A);«, l3=0x1f}
0x30a5…30cf Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(OAZ.H.FILENAME)«, l3=0x28}
0x30cf…30d6 Line {l1=0x05, l2=» END«, l3=0x05}
0x30d6…30de Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x30de…30e7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x30e7…312d Line {l1=0x44, l2=» GETREC(ORZ.H,ORF,ORPOST.A); IF IER<>0 THEN ERROR(ORZ.H.FILENAME)«, l3=0x44}
0x312d…3135 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3135…315d Line {l1=0x26, l2=» FELTNR:=10;LÆSFELT(PICTURE(FELTNR));«, l3=0x26}
0x315d…317d Line {l1=0x1e, l2=» WRITELN(LIST);WRITELN(LIST);«, l3=0x1e}
0x317d…31c3 Line {l1=0x44, l2=» WRITELN(LIST,'FORKALKULATION',' ':20,'Leveringsdato',DAT1*10000.0+«, l3=0x44}
0x31c3…320c Line {l1=0x47, l2=» DAT2:8:-2,' ':7,«, l3=0x47}
0x320c…3224 Line {l1=0x16, l2=» 'Dato',«, l3=0x16}
0x3224…3256 Line {l1=0x30, l2=» SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x30}
0x3256…3268 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x3268…32ae Line {l1=0x44, l2=» WRITELN(LIST,'ORDRE- PRODUKT ANTAL MATERIALEPRIS ',«, l3=0x44}
0x32ae…32db Line {l1=0x2b, l2=» ' KALKULATIONS');«, l3=0x2b}
0x32db…331f Line {l1=0x42, l2=» WRITELN(LIST,'NUMMER -NUMMER BESTILT',' ':37,'-FAKTOR');«, l3=0x42}
0x331f…3341 Line {l1=0x20, l2=» WRITELN(LIST,ORPOST.ORDRENR:6,«, l3=0x20}
0x3341…3384 Line {l1=0x41, l2=» ORPOST.PRODUKT1NR*10000.0+ORPOST.PRODUKT2NR:10:-2,«, l3=0x41}
0x3384…33af Line {l1=0x29, l2=» ORPOST.ANTALBESTILT:14:-2,«, l3=0x29}
0x33af…33da Line {l1=0x29, l2=» ORPOST.MATERIALEPRIS:15:2,«, l3=0x29}
0x33da…33ff Line {l1=0x23, l2=» ORPOST.FAKTOR:29:2);«, l3=0x23}
0x33ff…3411 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x3411…341b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x341b…342b Line {l1=0x0e, l2=» FELTNR:=7;«, l3=0x0e}
0x342b…344a Line {l1=0x1d, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1d}
0x344a…346e Line {l1=0x22, l2=» IF OPPOST.OPERATIONSNR<>0 THEN«, l3=0x22}
0x346e…3479 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3479…34a0 Line {l1=0x25, l2=» OPPOST.ORDRENR:=ORPOST.ORDRENR;«, l3=0x25}
0x34a0…34cd Line {l1=0x2b, l2=» OPPOST.PRODUKT1NR:=ORPOST.PRODUKT1NR;«, l3=0x2b}
0x34cd…34fa Line {l1=0x2b, l2=» OPPOST.PRODUKT2NR:=ORPOST.PRODUKT2NR;«, l3=0x2b}
0x34fa…351d Line {l1=0x21, l2=» INSERT(OPZ.H,OPF,OPPOST.A);«, l3=0x21}
0x351d…355a Line {l1=0x3b, l2=» IF (IER<>0) AND (IER<>-7) THEN ERROR(OPZ.H.FILENAME);«, l3=0x3b}
0x355a…3570 Line {l1=0x14, l2=» IF IER=-7 THEN«, l3=0x14}
0x3570…357d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x357d…358f Line {l1=0x10, l2=» CH:='N';«, l3=0x10}
0x358f…35a6 Line {l1=0x15, l2=» GOTOXY(1,22);«, l3=0x15}
0x35a6…35f4 Line {l1=0x4c, l2=» WRITELN('ORDRE-PRODUKT-OPERATION-NR KOMBINATIONEN FINDES ALLEREDE');«, l3=0x4c}
0x35f4…363a Line {l1=0x44, l2=» WRITELN('Ønskes: Nyt operationsnr: N, nyindtastning af Gl.',«, l3=0x44}
0x363a…3661 Line {l1=0x25, l2=» ' operationsnr : G');«, l3=0x25}
0x3661…36ae Line {l1=0x4b, l2=» GOTOXY(68,23);EDIT(CH);GOTOXY(1,22);WRITELN(' ':77);WRITELN(' ':77)«, l3=0x4b}
0x36ae…36b9 Line {l1=0x09, l2=» END«, l3=0x09}
0x36b9…36ce Line {l1=0x13, l2=» ELSE CH:='G';«, l3=0x13}
0x36ce…36e4 Line {l1=0x14, l2=» IF CH='G' THEN«, l3=0x14}
0x36e4…36f1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x36f1…3708 Line {l1=0x15, l2=» GOTOXY(30,5);«, l3=0x15}
0x3708…372d Line {l1=0x23, l2=» WRITELN(OAPOST.BETEGNELSE);«, l3=0x23}
0x372d…3766 Line {l1=0x37, l2=» FOR FELTNR:=8 TO 9 DO LÆSFELT(PICTURE(FELTNR));«, l3=0x37}
0x3766…378b Line {l1=0x23, l2=» PUTREC(OPZ.H,OPF,OPPOST.A);«, l3=0x23}
0x378b…37ba Line {l1=0x2d, l2=» IF IER<>0 THEN ERROR(OPZ.H.FILENAME);«, l3=0x2d}
0x37ba…37c5 Line {l1=0x09, l2=» END«, l3=0x09}
0x37c5…37cf Line {l1=0x08, l2=» END;«, l3=0x08}
0x37cf…3810 Line {l1=0x3f, l2=» GOTOXY(1,5);WRITELN(' ':77);WRITELN(' ':77);WRITELN(' ':77)«, l3=0x3f}
0x3810…3830 Line {l1=0x1e, l2=» UNTIL OPPOST.OPERATIONSNR=0;«, l3=0x1e}
0x3830…3842 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x3842…3851 Line {l1=0x0d, l2=» KALKULATION«, l3=0x0d}
0x3851…3857 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3857…385f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x385f…3866 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3866…3876 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3876…3879 Line {l1=0x01, l2=» «, l3=0x01}
0x3879…3894 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x3894…38aa Line {l1=0x14, l2=» REWRITE(SF,FNAVN);«, l3=0x14}
0x38aa…38b9 Line {l1=0x0d, l2=» SEEK(SF,1);«, l3=0x0d}
0x38b9…38c5 Line {l1=0x0a, l2=» GET(SF);«, l3=0x0a}
0x38c5…38e4 Line {l1=0x1d, l2=» ORZ.H.FILENAME:='ORDREREG';«, l3=0x1d}
0x38e4…3904 Line {l1=0x1e, l2=» FNAVN:='ORDREREG:P2:0000:I';«, l3=0x1e}
0x3904…391b Line {l1=0x15, l2=» REWRITE(ORF,FNAVN);«, l3=0x15}
0x391b…395b Line {l1=0x3e, l2=» IOPEN(ORZ.H,ORF,SKRIV);IF IER<>0 THEN OFEJL(ORZ.H.FILENAME);«, l3=0x3e}
0x395b…397a Line {l1=0x1d, l2=» OPZ.H.FILENAME:='OPLINREG';«, l3=0x1d}
0x397a…399a Line {l1=0x1e, l2=» FNAVN:='OPLINREG:P2:0000:I';«, l3=0x1e}
0x399a…39b1 Line {l1=0x15, l2=» REWRITE(OPF,FNAVN);«, l3=0x15}
0x39b1…39f1 Line {l1=0x3e, l2=» IOPEN(OPZ.H,OPF,SKRIV);IF IER<>0 THEN OFEJL(OPZ.H.FILENAME);«, l3=0x3e}
0x39f1…3a10 Line {l1=0x1d, l2=» OAZ.H.FILENAME:='OPERAREG';«, l3=0x1d}
0x3a10…3a30 Line {l1=0x1e, l2=» FNAVN:='OPERAREG:P2:0000:I';«, l3=0x1e}
0x3a30…3a47 Line {l1=0x15, l2=» REWRITE(OAF,FNAVN);«, l3=0x15}
0x3a47…3a85 Line {l1=0x3c, l2=» IOPEN(OAZ.H,OAF,LÆS);IF IER<>0 THEN OFEJL(OAZ.H.FILENAME);«, l3=0x3c}
0x3a85…3ab5 Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x3ab5…3ad5 Line {l1=0x1e, l2=» DESCNAVN:='FORKDESC:P2:0:J';«, l3=0x1e}
0x3ad5…3ae1 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x3ae1…3b18 Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x3b18…3b22 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3b22…3b30 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x3b30…3b43 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x3b43…3b6f Line {l1=0x2a, l2=» WRITELN('Flere forkalkulationer J/N');«, l3=0x2a}
0x3b6f…3b8c Line {l1=0x1b, l2=» GOTOXY(28,23);EDIT(CH);«, l3=0x1b}
0x3b8c…3ba9 Line {l1=0x1b, l2=» IF CH='J' THEN MAINTAIN«, l3=0x1b}
0x3ba9…3bba Line {l1=0x0f, l2=» UNTIL CH='N';«, l3=0x0f}
0x3bba…3bd0 Line {l1=0x14, l2=» ICLOSE(ORZ.H,ORF);«, l3=0x14}
0x3bd0…3be6 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x3be6…3bfc Line {l1=0x14, l2=» ICLOSE(OAZ.H,OAF);«, l3=0x14}
0x3bfc…3c16 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x3c16…3c1c Line {l1=0x04, l2=»END;«, l3=0x04}
0x3c1c…3c24 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3c24…3c2b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3c2b…3c43 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x3c43…3c59 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x3c59…3c69 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x3c69…3c72 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3c72…3c95 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x3c95…3ca1 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x3ca1…3ca9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3ca9…3cb5 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x3cb5…3cc4 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x3cc4…3cdb Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x3cdb…3d11 Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x3d11…3d46 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x3d46…3d4c Line {l1=0x04, l2=»END.«, l3=0x04}
0x3d4c…3d60 00 00 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 2c 43 4f ┆ IN('L *1',CO┆
0x3d60…3d80 4e 43 41 54 28 27 48 4f 56 45 44 3a 50 32 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 3b 34 33 20 ┆NCAT('HOVED:P2,',FNAVN),QUQ);43 ┆
0x3d80…3da0 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f ┆ IF IORESULT<>0 THEN WRITELN('IO┆
0x3da0…3dc0 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 46 4e 41 56 4e ┆RESULT ',IORESULT)3 END. FNAVN┆
0x3dc0…3de0 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┆
0x3de0…3e00 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┆
0x3e00…3e20 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┆
0x3e20…3e40 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┆
[…0x89…]
0x4f60…4f80 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 49 ┆cccccccccccccccccccccccccccccccI┆