|
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: »TIDSFORB.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »TIDSFORB.K«
PROGRAM TIDSFORB;
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;
MREGLIZ=583;
MOPLINZ=370;
MMEDARZ=281;
(*$IISFHEAD*)
REGLIZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MREGLIZ) OF INTEGER
END;
OPLINZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOPLINZ) OF INTEGER
END;
MEDARZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MMEDARZ) 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;
REGLIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
LØN :REAL;
ORDRENR,
PRODUKT1NR,
PRODUKT2NR,
OPERATIONSNR,
MEDARBEJDERNR,
DAT1,DAT2,
CENTIMER,
ENHEDER :INTEGER
END;
OPLINPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
MINUTFAKTOR :REAL;
ORDRENR,
PRODUKT1NR,
PRODUKT2NR,
OPERATIONSNR,
CENTIMER :INTEGER
END;
MEDARPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TTIMER,
PTIMER :REAL;
MEDARBEJDERNR,
TAIJP :INTEGER;
NAVN :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;
LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;
CH:STRING(1);
LINE:STRING;
FFIL:FELTFIL;
RGF,OPF,MAF:ISF;
RGZ:REGLIZONE;
OPZ:OPLINZONE;
MAZ:MEDARZONE;
RGPOST:REGLIPOST;
OPPOST:OPLINPOST;
MAPOST:MEDARPOST;
RESULT:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$L+*)
(*$P*)
PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(RGZ.H,RGF);
ICLOSE(OPZ.H,OPF);
ICLOSE(MAZ.H,MAF);
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;
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
1:BEGIN
MAPOST.MEDARBEJDERNR:=TAL;
GETREC(MAZ.H,MAF,MAPOST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(MAZ.H.FILENAME);
BUMMED:=(IER=-6)
END
END
UNTIL NOT BUMMED;
CASE FELTNR OF
1,3,5,6,7:BEGIN
RGPOST.A(F^.INDEKS):=TAL;
IF FELTNR=6 THEN MAPOST.PTIMER:=MAPOST.PTIMER+TAL/100;
IF (FELTNR=3) AND (TAL=0) THEN FELTNR:=5
END;
2 :MAPOST.TTIMER:=MAPOST.TTIMER+RESULT;
4 :BEGIN
RGPOST.A(F^.INDEKS):=TAL;
RGPOST.A(F^.INDEKS+1):=TAL1
END
END
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:STRING(1);
ENHEDER,CENTIMER:INTEGER;
LØN: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;
BEGIN
CLEARSCREEN;
FOR FELTNR:=1 TO 2 DO LÆSFELT(PICTURE(FELTNR));
IF LINES=72 THEN
BEGIN
WRITELN(LIST);
WRITELN(LIST,'REGISTRERING AF ARBEJDSSEDLER',' ':33,'Dato',
SF^.DAT1*10000.0+SF^.DAT2:8:-2);
LINES:=2
END;
WRITELN(LIST);
WRITELN(LIST,'MEDARBEJDER',' ':53,'TOTALTIMER');
WRITELN(LIST,RGPOST.MEDARBEJDERNR:6,' ':10,
MAPOST.NAVN,' ':18,RESULT:10:2);
WRITELN(LIST);
WRITELN(LIST,'ORDRE- PRODUKT OPERATIONS- 1/100 ENHEDER',
' LØN PR. ENHED');
WRITELN(LIST,'NUMMER -NUMMER NUMMER TIMER',' ':23,
'KALK REAL');
LINES:=LINES+6;
REPEAT
FOR FELTNR:=3 TO 5 DO LÆSFELT(PICTURE(FELTNR));
IF RGPOST.ORDRENR<>0 THEN
BEGIN
OPPOST.ORDRENR:=RGPOST.ORDRENR;
OPPOST.PRODUKT1NR:=RGPOST.PRODUKT1NR;
OPPOST.PRODUKT2NR:=RGPOST.PRODUKT2NR;
OPPOST.OPERATIONSNR:=RGPOST.OPERATIONSNR;
GETREC(OPZ.H,OPF,OPPOST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(OPZ.H.FILENAME);
IF IER=0 THEN
BEGIN
RGPOST.DAT1:=SF^.DAT1;
RGPOST.DAT2:=SF^.DAT2;
INSERT(RGZ.H,RGF,RGPOST.A);
IF (IER<>0) AND (IER<>-7) THEN ERROR(RGZ.H.FILENAME);
IF IER=-7 THEN
BEGIN
CH:='N';
GOTOXY(1,22);
WRITELN(
'ORDRE-PRODUKT-OPERATION-DATO KOMBINATIONEN FINDES ALLEREDE');
WRITELN('Ønskes: Nyindtastning: N, Addition til eksisterende: A',
' Sletning: S');
GOTOXY(68,23);EDIT(CH);
GOTOXY(1,22);WRITELN(' ':77);WRITELN(' ':77);
IF CH='A' THEN
BEGIN
GETREC(RGZ.H,RGF,RGPOST.A);
IF IER<>0 THEN ERROR(RGZ.H.FILENAME);
CENTIMER:=RGPOST.CENTIMER;
ENHEDER:=RGPOST.ENHEDER
END
ELSE
IF CH='S' THEN
BEGIN
DELETE(RGZ.H,RGF,RGPOST.A);
IF (IER<>0) AND (IER<>-2) THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0
END
END
ELSE
BEGIN CH:='A';CENTIMER:=0;ENHEDER:=0;RGPOST.LØN:=0.0 END;
IF CH='A' THEN
BEGIN
GOTOXY(30,5);
FOR FELTNR:=6 TO 7 DO LÆSFELT(PICTURE(FELTNR));
LØN:=RGPOST.CENTIMER*SF^.MINUTFAKTOR(MAPOST.TAIJP);
LINES:=LINES+1;
WRITE(LIST,RGPOST.ORDRENR:6,RGPOST.PRODUKT1NR*10000.0+
RGPOST.PRODUKT2NR:11:-2,
RGPOST.OPERATIONSNR:14,
RGPOST.CENTIMER:9,
RGPOST.ENHEDER:10,
LØN:10:2,OPPOST.CENTIMER:7);
IF RGPOST.ENHEDER=0 THEN WRITELN(LIST,' -----')
ELSE WRITELN(LIST,RGPOST.CENTIMER/RGPOST.ENHEDER:7:1);
RGPOST.CENTIMER:=RGPOST.CENTIMER+CENTIMER;
RGPOST.ENHEDER:=RGPOST.ENHEDER+ENHEDER;
RGPOST.LØN:=RGPOST.LØN+LØN;
PUTREC(RGZ.H,RGF,RGPOST.A);
IF IER<>0 THEN ERROR(RGZ.H.FILENAME);
END
END
END;
GOTOXY(1,5);WRITELN(' ':77);WRITELN(' ':77);WRITELN(' ':77)
UNTIL RGPOST.ORDRENR=0;
WHILE (LINES-2) MOD 10<>0 DO
BEGIN
WRITELN(LIST);
LINES:=LINES+1
END;
PUTREC(MAZ.H,MAF,MAPOST.A);
IF IER<>0 THEN ERROR(MAZ.H.FILENAME)
END;
(*$P*)
BEGIN
CLEARSCREEN;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SF,FNAVN);
SEEK(SF,1);
GET(SF);
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);
OPZ.H.FILENAME:='OPLINREG';
FNAVN:='OPLINREG:P2:0000:I';
REWRITE(OPF,FNAVN);
IOPEN(OPZ.H,OPF,LÆS);IF IER<>0 THEN OFEJL(OPZ.H.FILENAME);
MAZ.H.FILENAME:='MEDARREG';
FNAVN:='MEDARREG:P2:0000:I';
REWRITE(MAF,FNAVN);
IOPEN(MAZ.H,MAF,SKRIV);IF IER<>0 THEN OFEJL(MAZ.H.FILENAME);
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)
DESCNAVN:='TIDSDESC:P2:0:J';
LÆSDESC;
(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)
LINES:=72;
REPEAT
CH:='J';
GOTOXY(1,23);
WRITELN('Flere arbejdssedler J/N');
GOTOXY(28,23);EDIT(CH);
IF CH='J' THEN MAINTAIN
UNTIL CH='N';
PAGE(LIST);
ICLOSE(RGZ.H,RGF);
ICLOSE(OPZ.H,OPF);
ICLOSE(MAZ.H,MAF);
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…0013 Line {l1=0x11, l2=»PROGRAM TIDSFORB;«, 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…008d Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x008d…00a6 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x00a6…00c1 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x00c1…00d7 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x00d7…00ea Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x00ea…0109 Line {l1=0x1d, l2=» FNAVN,DESCNAVN:STRING;«, l3=0x1d}
0x0109…0111 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0111…0125 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0125…013a Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x013a…014e Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x014e…0162 Line {l1=0x12, l2=» MREGLIZ=583;«, l3=0x12}
0x0162…0176 Line {l1=0x12, l2=» MOPLINZ=370;«, l3=0x12}
0x0176…018a Line {l1=0x12, l2=» MMEDARZ=281;«, l3=0x12}
0x018a…0199 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0199…01ab Line {l1=0x10, l2=»REGLIZONE=RECORD«, l3=0x10}
0x01ab…01bf Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x01bf…01e7 Line {l1=0x26, l2=» T:ARRAY(1..MREGLIZ) OF INTEGER«, l3=0x26}
0x01e7…01ed Line {l1=0x04, l2=»END;«, l3=0x04}
0x01ed…01ff Line {l1=0x10, l2=»OPLINZONE=RECORD«, l3=0x10}
0x01ff…0213 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0213…023b Line {l1=0x26, l2=» T:ARRAY(1..MOPLINZ) OF INTEGER«, l3=0x26}
0x023b…0241 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0241…0253 Line {l1=0x10, l2=»MEDARZONE=RECORD«, l3=0x10}
0x0253…0267 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0267…028f Line {l1=0x26, l2=» T:ARRAY(1..MMEDARZ) OF INTEGER«, l3=0x26}
0x028f…0295 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0295…02ae Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x02ae…02bf Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x02bf…02cf Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x02cf…02d5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02d5…02f9 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x02f9…032a Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x032a…0351 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0351…0369 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0369…037d Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x037d…03a3 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x03a3…03b1 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x03b1…03cc Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x03cc…03f0 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x03f0…0407 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0407…0428 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0428…043c Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x043c…0450 Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x0450…0464 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0464…047f Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x047f…0497 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0497…04b5 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x04b5…04c3 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x04c3…04e4 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x04e4…0508 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0508…0538 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0538…055b Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x055b…056f Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x056f…0575 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0575…0597 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x0597…05be Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x05be…05d9 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x05d9…05eb Line {l1=0x10, l2=»REGLIPOST=RECORD«, l3=0x10}
0x05eb…05fb Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x05fb…0608 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0608…0618 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0618…0634 Line {l1=0x1a, l2=» LØN :REAL;«, l3=0x1a}
0x0634…0644 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0644…0657 Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x0657…066a Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x066a…067f Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x067f…0695 Line {l1=0x14, l2=» MEDARBEJDERNR,«, l3=0x14}
0x0695…06a7 Line {l1=0x10, l2=» DAT1,DAT2,«, l3=0x10}
0x06a7…06b8 Line {l1=0x0f, l2=» CENTIMER,«, l3=0x0f}
0x06b8…06d6 Line {l1=0x1c, l2=» ENHEDER :INTEGER«, l3=0x1c}
0x06d6…06dc Line {l1=0x04, l2=»END;«, l3=0x04}
0x06dc…06ee Line {l1=0x10, l2=»OPLINPOST=RECORD«, l3=0x10}
0x06ee…06fe Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x06fe…070b Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x070b…071b Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x071b…0737 Line {l1=0x1a, l2=» MINUTFAKTOR :REAL;«, l3=0x1a}
0x0737…0747 Line {l1=0x0e, l2=» ORDRENR,«, l3=0x0e}
0x0747…075a Line {l1=0x11, l2=» PRODUKT1NR,«, l3=0x11}
0x075a…076d Line {l1=0x11, l2=» PRODUKT2NR,«, l3=0x11}
0x076d…0782 Line {l1=0x13, l2=» OPERATIONSNR,«, l3=0x13}
0x0782…07a0 Line {l1=0x1c, l2=» CENTIMER :INTEGER«, l3=0x1c}
0x07a0…07a6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07a6…07b8 Line {l1=0x10, l2=»MEDARPOST=RECORD«, l3=0x10}
0x07b8…07c8 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x07c8…07d5 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x07d5…07e5 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x07e5…07f4 Line {l1=0x0d, l2=» TTIMER,«, l3=0x0d}
0x07f4…0810 Line {l1=0x1a, l2=» PTIMER :REAL;«, l3=0x1a}
0x0810…0826 Line {l1=0x14, l2=» MEDARBEJDERNR,«, l3=0x14}
0x0826…0845 Line {l1=0x1d, l2=» TAIJP :INTEGER;«, l3=0x1d}
0x0845…0878 Line {l1=0x31, l2=» NAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x0878…087e Line {l1=0x04, l2=»END;«, l3=0x04}
0x087e…088e Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x088e…08b7 Line {l1=0x27, l2=» MINUTFAKTOR:ARRAY (1..5) OF REAL;«, l3=0x27}
0x08b7…08d0 Line {l1=0x17, l2=» DAT1,DAT2:INTEGER«, l3=0x17}
0x08d0…08d6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08d6…08f0 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x08f0…0901 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x0901…0912 Line {l1=0x0f, l2=» SF:SYSFILE;«, l3=0x0f}
0x0912…0927 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x0927…0953 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0953…0989 Line {l1=0x34, l2=» LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;«, l3=0x34}
0x0989…099c Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x099c…09ae Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x09ae…09c1 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x09c1…09d7 Line {l1=0x14, l2=» RGF,OPF,MAF:ISF;«, l3=0x14}
0x09d7…09eb Line {l1=0x12, l2=» RGZ:REGLIZONE;«, l3=0x12}
0x09eb…09ff Line {l1=0x12, l2=» OPZ:OPLINZONE;«, l3=0x12}
0x09ff…0a13 Line {l1=0x12, l2=» MAZ:MEDARZONE;«, l3=0x12}
0x0a13…0a2a Line {l1=0x15, l2=» RGPOST:REGLIPOST;«, l3=0x15}
0x0a2a…0a41 Line {l1=0x15, l2=» OPPOST:OPLINPOST;«, l3=0x15}
0x0a41…0a58 Line {l1=0x15, l2=» MAPOST:MEDARPOST;«, l3=0x15}
0x0a58…0a6a Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x0a6a…0a73 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0a73…0a86 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0a86…0a93 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0a93…0aa0 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0aa0…0ab0 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0ab0…0ac0 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0ac0…0acf Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0acf…0add Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0add…0aeb Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0aeb…0af9 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0af9…0b08 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0b08…0b16 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0b16…0b1f Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0b1f…0b27 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0b27…0b4a Line {l1=0x21, l2=»PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x21}
0x0b4a…0b51 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b51…0b86 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x0b86…0b9c Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x0b9c…0bb2 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x0bb2…0bc8 Line {l1=0x14, l2=» ICLOSE(MAZ.H,MAF);«, l3=0x14}
0x0bc8…0bd9 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x0bd9…0bdf Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bdf…0c02 Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x0c02…0c12 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0c12…0c19 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c19…0c2a Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0c2a…0c79 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x0c79…0ca9 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0ca9…0ce2 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0ce2…0cfe Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x0cfe…0d0d Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0d0d…0d13 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d13…0d1b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0d1b…0d2f Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x0d2f…0d36 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d36…0d51 Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x0d51…0d54 Line {l1=0x01, l2=» «, l3=0x01}
0x0d54…0d62 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x0d62…0d6b Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x0d6b…0d88 Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x0d88…0d91 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d91…0d9e Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x0d9e…0dba Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x0dba…0de3 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x0de3…0e1d Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x0e1d…0e27 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0e27…0e3e Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x0e3e…0e57 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x0e57…0e62 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0e62…0e7d Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x0e7d…0e9e Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x0e9e…0ebf Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x0ebf…0ede Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x0ede…0efd Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x0efd…0f24 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x0f24…0f4b Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x0f4b…0f6e Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x0f6e…0f93 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x0f93…0fb6 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x0fb6…0fd7 Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x0fd7…0ff4 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x0ff4…1011 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x1011…102e Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x102e…105b Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x105b…107f Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x107f…108c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x108c…10a0 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x10a0…10b7 Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x10b7…10dd Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x10dd…10f8 Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x10f8…1131 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x1131…1162 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x1162…1192 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x1192…11ac Line {l1=0x18, l2=» END;«, l3=0x18}
0x11ac…11c7 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x11c7…1200 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x1200…124e Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x124e…129b Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x129b…12b5 Line {l1=0x18, l2=» END;«, l3=0x18}
0x12b5…12d0 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x12d0…1309 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x1309…133c Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x133c…136e Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x136e…1388 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1388…13b8 Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x13b8…13c6 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x13c6…13e5 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x13e5…1408 Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x1408…143c Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x143c…1448 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1448…1463 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x1463…146d Line {l1=0x08, l2=» END;«, l3=0x08}
0x146d…147c Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x147c…1484 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1484…1494 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x1494…14a6 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x14a6…14ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x14ac…14b4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x14b4…14d5 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x14d5…14ee Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x14ee…14fe Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x14fe…1513 Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x1513…1516 Line {l1=0x01, l2=» «, l3=0x01}
0x1516…151e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x151e…1533 Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x1533…1544 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x1544…1561 Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x1561…156f Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x156f…1572 Line {l1=0x01, l2=» «, l3=0x01}
0x1572…1579 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1579…1583 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1583…1593 Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x1593…15a5 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x15a5…15b2 Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x15b2…15c0 Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x15c0…15e6 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x15e6…1620 Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x1620…165d Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x165d…166d Line {l1=0x0e, l2=» LINE:='0';«, l3=0x0e}
0x166d…1688 Line {l1=0x19, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x19}
0x1688…16cb Line {l1=0x41, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);«, l3=0x41}
0x16cb…16e4 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x16e4…16ec Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x16ec…1711 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x1711…171c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x171c…172d Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x172d…1754 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x1754…1771 Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x1771…1793 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x1793…17a1 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x17a1…17c3 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x17c3…17cd Line {l1=0x08, l2=» END;«, l3=0x08}
0x17cd…17de Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x17de…17fa Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x17fa…1805 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1805…1812 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x1812…1825 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x1825…1840 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x1840…184d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x184d…1863 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x1863…1871 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x1871…187d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x187d…189c Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x189c…18a9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x18a9…18bc Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x18bc…18cd Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x18cd…18fc Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x18fc…190b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x190b…1921 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1921…193c Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x193c…194a Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x194a…1975 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x1975…1981 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1981…19a0 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x19a0…19b2 Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x19b2…19cd Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x19cd…1a19 Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x1a19…1a49 Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x1a49…1a5e Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x1a5e…1a8b Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x1a8b…1abc Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x1abc…1acf Line {l1=0x11, l2=» END«, l3=0x11}
0x1acf…1aed Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x1aed…1af8 Line {l1=0x09, l2=» END«, l3=0x09}
0x1af8…1b10 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x1b10…1b17 Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x1b17…1b33 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x1b33…1b3e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1b3e…1b4b Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x1b4b…1b5e Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x1b5e…1b6f Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x1b6f…1b8a Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x1b8a…1b97 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1b97…1bad Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x1bad…1bbb Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x1bbb…1bc7 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1bc7…1bf5 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x1bf5…1c02 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c02…1c15 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x1c15…1c26 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1c26…1c4f Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x1c4f…1c7c Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x1c7c…1c8a Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1c8a…1cba Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x1cba…1ccd Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x1ccd…1cdb Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1cdb…1cea Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1cea…1d00 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1d00…1d1b Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1d1b…1d28 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1d28…1d34 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1d34…1d44 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x1d44…1d63 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x1d63…1d70 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1d70…1d81 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1d81…1d97 Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x1d97…1dc0 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x1dc0…1dcf Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1dcf…1dff Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x1dff…1e17 Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x1e17…1e24 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1e24…1e32 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1e32…1e41 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1e41…1e57 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1e57…1e72 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1e72…1e7f Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1e7f…1e8b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1e8b…1eaa Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x1eaa…1ecf Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x1ecf…1ed8 Line {l1=0x07, l2=» END«, l3=0x07}
0x1ed8…1eeb Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x1eeb…1ef4 Line {l1=0x07, l2=» END«, l3=0x07}
0x1ef4…1f00 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x1f00…1f06 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f06…1f0e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1f0e…1f23 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x1f23…1f48 Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x1f48…1f6b Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x1f6b…1f72 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f72…1f91 Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x1f91…1f9f Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x1f9f…1fd0 Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x1fd0…1fde Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x1fde…201e Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x201e…205d Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x205d…206b Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x206b…20a4 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x20a4…20ad Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x20ad…20c9 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x20c9…20d4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x20d4…2105 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x2105…2139 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x2139…216c Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x216c…21ba Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x21ba…21d4 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x21d4…21e9 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x21e9…2218 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x2218…2263 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x2263…226e Line {l1=0x09, l2=» END«, l3=0x09}
0x226e…2277 Line {l1=0x07, l2=» END«, l3=0x07}
0x2277…228f Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x228f…2297 Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x2297…22b4 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x22b4…22bf Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x22bf…22f1 Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x22f1…2310 Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x2310…2330 Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x2330…234d Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x234d…239b Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x239b…23b5 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x23b5…23ca Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x23ca…23f9 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x23f9…2443 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x2443…244f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x244f…2469 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x2469…2476 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2476…24c5 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}
0x24c5…24ef Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x24ef…251e Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x251e…2529 Line {l1=0x09, l2=» END«, l3=0x09}
0x2529…2532 Line {l1=0x07, l2=» END«, l3=0x07}
0x2532…254a Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x254a…2551 Line {l1=0x05, l2=» END«, l3=0x05}
0x2551…2557 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2557…255f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x255f…2576 Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x2576…257d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x257d…2587 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2587…2596 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x2596…25ad Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x25ad…25c1 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x25c1…25eb Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x25eb…25f6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x25f6…2607 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x2607…2621 Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x2621…262b Line {l1=0x08, l2=» END;«, l3=0x08}
0x262b…2643 Line {l1=0x16, l2=» IF NOT BUMMED THEN«, l3=0x16}
0x2643…2657 Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x2657…2664 Line {l1=0x0b, l2=» 1:BEGIN«, l3=0x0b}
0x2664…2688 Line {l1=0x22, l2=» MAPOST.MEDARBEJDERNR:=TAL;«, l3=0x22}
0x2688…26ad Line {l1=0x23, l2=» GETREC(MAZ.H,MAF,MAPOST.A);«, l3=0x23}
0x26ad…26ec Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(MAZ.H.FILENAME);«, l3=0x3d}
0x26ec…2706 Line {l1=0x18, l2=» BUMMED:=(IER=-6)«, l3=0x18}
0x2706…2711 Line {l1=0x09, l2=» END«, l3=0x09}
0x2711…271a Line {l1=0x07, l2=» END«, l3=0x07}
0x271a…272f Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x272f…2741 Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x2741…2754 Line {l1=0x11, l2=» 1,3,5,6,7:BEGIN«, l3=0x11}
0x2754…277d Line {l1=0x27, l2=» RGPOST.A(F^.INDEKS):=TAL;«, l3=0x27}
0x277d…27c3 Line {l1=0x44, l2=» IF FELTNR=6 THEN MAPOST.PTIMER:=MAPOST.PTIMER+TAL/100;«, l3=0x44}
0x27c3…27fb Line {l1=0x36, l2=» IF (FELTNR=3) AND (TAL=0) THEN FELTNR:=5«, l3=0x36}
0x27fb…280d Line {l1=0x10, l2=» END;«, l3=0x10}
0x280d…283f Line {l1=0x30, l2=» 2 :MAPOST.TTIMER:=MAPOST.TTIMER+RESULT;«, l3=0x30}
0x283f…2850 Line {l1=0x0f, l2=» 4 :BEGIN«, l3=0x0f}
0x2850…2877 Line {l1=0x25, l2=» RGPOST.A(F^.INDEKS):=TAL;«, l3=0x25}
0x2877…28a0 Line {l1=0x27, l2=» RGPOST.A(F^.INDEKS+1):=TAL1«, l3=0x27}
0x28a0…28af Line {l1=0x0d, l2=» END«, l3=0x0d}
0x28af…28b6 Line {l1=0x05, l2=» END«, l3=0x05}
0x28b6…28bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x28bc…28c4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x28c4…28d9 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x28d9…28ec Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x28ec…290b Line {l1=0x1d, l2=» ENHEDER,CENTIMER:INTEGER;«, l3=0x1d}
0x290b…291a Line {l1=0x0d, l2=» LØN:REAL;«, l3=0x0d}
0x291a…2937 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x2937…2945 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x2945…294c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x294c…2965 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x2965…2978 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x2978…2990 Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x2990…2996 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2996…299d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x299d…29ad Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x29ad…29e0 Line {l1=0x31, l2=» FOR FELTNR:=1 TO 2 DO LÆSFELT(PICTURE(FELTNR));«, l3=0x31}
0x29e0…29f4 Line {l1=0x12, l2=» IF LINES=72 THEN«, l3=0x12}
0x29f4…29fd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x29fd…2a0f Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2a0f…2a4e Line {l1=0x3d, l2=» WRITELN(LIST,'REGISTRERING AF ARBEJDSSEDLER',' ':33,'Dato',«, l3=0x3d}
0x2a4e…2a80 Line {l1=0x30, l2=» SF^.DAT1*10000.0+SF^.DAT2:8:-2);«, l3=0x30}
0x2a80…2a8c Line {l1=0x0a, l2=» LINES:=2«, l3=0x0a}
0x2a8c…2a94 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2a94…2aa6 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2aa6…2ada Line {l1=0x32, l2=» WRITELN(LIST,'MEDARBEJDER',' ':53,'TOTALTIMER');«, l3=0x32}
0x2ada…2b09 Line {l1=0x2d, l2=» WRITELN(LIST,RGPOST.MEDARBEJDERNR:6,' ':10,«, l3=0x2d}
0x2b09…2b3a Line {l1=0x2f, l2=» MAPOST.NAVN,' ':18,RESULT:10:2);«, l3=0x2f}
0x2b3a…2b4c Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2b4c…2b92 Line {l1=0x44, l2=» WRITELN(LIST,'ORDRE- PRODUKT OPERATIONS- 1/100 ENHEDER',«, l3=0x44}
0x2b92…2bbd Line {l1=0x29, l2=» ' LØN PR. ENHED');«, l3=0x29}
0x2bbd…2c00 Line {l1=0x41, l2=» WRITELN(LIST,'NUMMER -NUMMER NUMMER TIMER',' ':23,«, l3=0x41}
0x2c00…2c44 Line {l1=0x42, l2=» 'KALK REAL');«, l3=0x42}
0x2c44…2c57 Line {l1=0x11, l2=» LINES:=LINES+6;«, l3=0x11}
0x2c57…2c61 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2c61…2c96 Line {l1=0x33, l2=» FOR FELTNR:=3 TO 5 DO LÆSFELT(PICTURE(FELTNR));«, l3=0x33}
0x2c96…2cb5 Line {l1=0x1d, l2=» IF RGPOST.ORDRENR<>0 THEN«, l3=0x1d}
0x2cb5…2cc0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2cc0…2ce7 Line {l1=0x25, l2=» OPPOST.ORDRENR:=RGPOST.ORDRENR;«, l3=0x25}
0x2ce7…2d14 Line {l1=0x2b, l2=» OPPOST.PRODUKT1NR:=RGPOST.PRODUKT1NR;«, l3=0x2b}
0x2d14…2d41 Line {l1=0x2b, l2=» OPPOST.PRODUKT2NR:=RGPOST.PRODUKT2NR;«, l3=0x2b}
0x2d41…2d72 Line {l1=0x2f, l2=» OPPOST.OPERATIONSNR:=RGPOST.OPERATIONSNR;«, l3=0x2f}
0x2d72…2d95 Line {l1=0x21, l2=» GETREC(OPZ.H,OPF,OPPOST.A);«, l3=0x21}
0x2d95…2dd2 Line {l1=0x3b, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(OPZ.H.FILENAME);«, l3=0x3b}
0x2dd2…2de7 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x2de7…2df4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2df4…2e14 Line {l1=0x1e, l2=» RGPOST.DAT1:=SF^.DAT1;«, l3=0x1e}
0x2e14…2e34 Line {l1=0x1e, l2=» RGPOST.DAT2:=SF^.DAT2;«, l3=0x1e}
0x2e34…2e59 Line {l1=0x23, l2=» INSERT(RGZ.H,RGF,RGPOST.A);«, l3=0x23}
0x2e59…2e98 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-7) THEN ERROR(RGZ.H.FILENAME);«, l3=0x3d}
0x2e98…2eb0 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x2eb0…2ebf Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2ebf…2ed3 Line {l1=0x12, l2=» CH:='N';«, l3=0x12}
0x2ed3…2eec Line {l1=0x17, l2=» GOTOXY(1,22);«, l3=0x17}
0x2eec…2f00 Line {l1=0x12, l2=» WRITELN(«, l3=0x12}
0x2f00…2f4e Line {l1=0x4c, l2=» 'ORDRE-PRODUKT-OPERATION-DATO KOMBINATIONEN FINDES ALLEREDE');«, l3=0x4c}
0x2f4e…2f9b Line {l1=0x4b, l2=» WRITELN('Ønskes: Nyindtastning: N, Addition til eksisterende: A',«, l3=0x4b}
0x2f9b…2fbf Line {l1=0x22, l2=» ' Sletning: S');«, l3=0x22}
0x2fbf…2fe2 Line {l1=0x21, l2=» GOTOXY(68,23);EDIT(CH);«, l3=0x21}
0x2fe2…301b Line {l1=0x37, l2=» GOTOXY(1,22);WRITELN(' ':77);WRITELN(' ':77);«, l3=0x37}
0x301b…3035 Line {l1=0x18, l2=» IF CH='A' THEN«, l3=0x18}
0x3035…3046 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3046…306f Line {l1=0x27, l2=» GETREC(RGZ.H,RGF,RGPOST.A);«, l3=0x27}
0x306f…30a2 Line {l1=0x31, l2=» IF IER<>0 THEN ERROR(RGZ.H.FILENAME);«, l3=0x31}
0x30a2…30ca Line {l1=0x26, l2=» CENTIMER:=RGPOST.CENTIMER;«, l3=0x26}
0x30ca…30ef Line {l1=0x23, l2=» ENHEDER:=RGPOST.ENHEDER«, l3=0x23}
0x30ef…30fe Line {l1=0x0d, l2=» END«, l3=0x0d}
0x30fe…310e Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x310e…3128 Line {l1=0x18, l2=» IF CH='S' THEN«, l3=0x18}
0x3128…3139 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3139…3162 Line {l1=0x27, l2=» DELETE(RGZ.H,RGF,RGPOST.A);«, l3=0x27}
0x3162…31b0 Line {l1=0x4c, l2=» IF (IER<>0) AND (IER<>-2) THEN ERROR(RGZ.H.FILENAME) ELSE IER:=0«, l3=0x4c}
0x31b0…31bf Line {l1=0x0d, l2=» END«, l3=0x0d}
0x31bf…31cc Line {l1=0x0b, l2=» END«, l3=0x0b}
0x31cc…31da Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x31da…321d Line {l1=0x41, l2=» BEGIN CH:='A';CENTIMER:=0;ENHEDER:=0;RGPOST.LØN:=0.0 END;«, l3=0x41}
0x321d…3235 Line {l1=0x16, l2=» IF CH='A' THEN«, l3=0x16}
0x3235…3244 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3244…325d Line {l1=0x17, l2=» GOTOXY(30,5);«, l3=0x17}
0x325d…3298 Line {l1=0x39, l2=» FOR FELTNR:=6 TO 7 DO LÆSFELT(PICTURE(FELTNR));«, l3=0x39}
0x3298…32d7 Line {l1=0x3d, l2=» LØN:=RGPOST.CENTIMER*SF^.MINUTFAKTOR(MAPOST.TAIJP);«, l3=0x3d}
0x32d7…32f2 Line {l1=0x19, l2=» LINES:=LINES+1;«, l3=0x19}
0x32f2…3334 Line {l1=0x40, l2=» WRITE(LIST,RGPOST.ORDRENR:6,RGPOST.PRODUKT1NR*10000.0+«, l3=0x40}
0x3334…3365 Line {l1=0x2f, l2=» RGPOST.PRODUKT2NR:11:-2,«, l3=0x2f}
0x3365…3395 Line {l1=0x2e, l2=» RGPOST.OPERATIONSNR:14,«, l3=0x2e}
0x3395…33c0 Line {l1=0x29, l2=» RGPOST.CENTIMER:9,«, l3=0x29}
0x33c0…33eb Line {l1=0x29, l2=» RGPOST.ENHEDER:10,«, l3=0x29}
0x33eb…3420 Line {l1=0x33, l2=» LØN:10:2,OPPOST.CENTIMER:7);«, l3=0x33}
0x3420…345d Line {l1=0x3b, l2=» IF RGPOST.ENHEDER=0 THEN WRITELN(LIST,' -----')«, l3=0x3b}
0x345d…34a0 Line {l1=0x41, l2=» ELSE WRITELN(LIST,RGPOST.CENTIMER/RGPOST.ENHEDER:7:1);«, l3=0x41}
0x34a0…34d6 Line {l1=0x34, l2=» RGPOST.CENTIMER:=RGPOST.CENTIMER+CENTIMER;«, l3=0x34}
0x34d6…3509 Line {l1=0x31, l2=» RGPOST.ENHEDER:=RGPOST.ENHEDER+ENHEDER;«, l3=0x31}
0x3509…3530 Line {l1=0x25, l2=» RGPOST.LØN:=RGPOST.LØN+LØN;«, l3=0x25}
0x3530…3557 Line {l1=0x25, l2=» PUTREC(RGZ.H,RGF,RGPOST.A);«, l3=0x25}
0x3557…3588 Line {l1=0x2f, l2=» IF IER<>0 THEN ERROR(RGZ.H.FILENAME);«, l3=0x2f}
0x3588…3595 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3595…35a0 Line {l1=0x09, l2=» END«, l3=0x09}
0x35a0…35aa Line {l1=0x08, l2=» END;«, l3=0x08}
0x35aa…35eb Line {l1=0x3f, l2=» GOTOXY(1,5);WRITELN(' ':77);WRITELN(' ':77);WRITELN(' ':77)«, l3=0x3f}
0x35eb…3606 Line {l1=0x19, l2=» UNTIL RGPOST.ORDRENR=0;«, l3=0x19}
0x3606…3626 Line {l1=0x1e, l2=» WHILE (LINES-2) MOD 10<>0 DO«, l3=0x1e}
0x3626…362f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x362f…3643 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3643…3657 Line {l1=0x12, l2=» LINES:=LINES+1«, l3=0x12}
0x3657…365f Line {l1=0x06, l2=» END;«, l3=0x06}
0x365f…367e Line {l1=0x1d, l2=» PUTREC(MAZ.H,MAF,MAPOST.A);«, l3=0x1d}
0x367e…36a6 Line {l1=0x26, l2=» IF IER<>0 THEN ERROR(MAZ.H.FILENAME)«, l3=0x26}
0x36a6…36ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x36ac…36b4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x36b4…36bb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x36bb…36cb Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x36cb…36ce Line {l1=0x01, l2=» «, l3=0x01}
0x36ce…36e9 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x36e9…36ff Line {l1=0x14, l2=» REWRITE(SF,FNAVN);«, l3=0x14}
0x36ff…370e Line {l1=0x0d, l2=» SEEK(SF,1);«, l3=0x0d}
0x370e…371a Line {l1=0x0a, l2=» GET(SF);«, l3=0x0a}
0x371a…3739 Line {l1=0x1d, l2=» RGZ.H.FILENAME:='REGLIREG';«, l3=0x1d}
0x3739…3759 Line {l1=0x1e, l2=» FNAVN:='REGLIREG:P2:0000:I';«, l3=0x1e}
0x3759…3770 Line {l1=0x15, l2=» REWRITE(RGF,FNAVN);«, l3=0x15}
0x3770…37b0 Line {l1=0x3e, l2=» IOPEN(RGZ.H,RGF,SKRIV);IF IER<>0 THEN OFEJL(RGZ.H.FILENAME);«, l3=0x3e}
0x37b0…37cf Line {l1=0x1d, l2=» OPZ.H.FILENAME:='OPLINREG';«, l3=0x1d}
0x37cf…37ef Line {l1=0x1e, l2=» FNAVN:='OPLINREG:P2:0000:I';«, l3=0x1e}
0x37ef…3806 Line {l1=0x15, l2=» REWRITE(OPF,FNAVN);«, l3=0x15}
0x3806…3844 Line {l1=0x3c, l2=» IOPEN(OPZ.H,OPF,LÆS);IF IER<>0 THEN OFEJL(OPZ.H.FILENAME);«, l3=0x3c}
0x3844…3863 Line {l1=0x1d, l2=» MAZ.H.FILENAME:='MEDARREG';«, l3=0x1d}
0x3863…3883 Line {l1=0x1e, l2=» FNAVN:='MEDARREG:P2:0000:I';«, l3=0x1e}
0x3883…389a Line {l1=0x15, l2=» REWRITE(MAF,FNAVN);«, l3=0x15}
0x389a…38da Line {l1=0x3e, l2=» IOPEN(MAZ.H,MAF,SKRIV);IF IER<>0 THEN OFEJL(MAZ.H.FILENAME);«, l3=0x3e}
0x38da…390a Line {l1=0x2e, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL); (*$X-*)«, l3=0x2e}
0x390a…392a Line {l1=0x1e, l2=» DESCNAVN:='TIDSDESC:P2:0:J';«, l3=0x1e}
0x392a…3936 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x3936…396d Line {l1=0x35, l2=»(*$XT*) WRITELN('MEMAVAIL ',MEMAVAIL);READLN; (*$X-*)«, l3=0x35}
0x396d…397b Line {l1=0x0c, l2=» LINES:=72;«, l3=0x0c}
0x397b…3985 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3985…3993 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x3993…39a6 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x39a6…39cf Line {l1=0x27, l2=» WRITELN('Flere arbejdssedler J/N');«, l3=0x27}
0x39cf…39ec Line {l1=0x1b, l2=» GOTOXY(28,23);EDIT(CH);«, l3=0x1b}
0x39ec…3a09 Line {l1=0x1b, l2=» IF CH='J' THEN MAINTAIN«, l3=0x1b}
0x3a09…3a1a Line {l1=0x0f, l2=» UNTIL CH='N';«, l3=0x0f}
0x3a1a…3a29 Line {l1=0x0d, l2=» PAGE(LIST);«, l3=0x0d}
0x3a29…3a3f Line {l1=0x14, l2=» ICLOSE(RGZ.H,RGF);«, l3=0x14}
0x3a3f…3a55 Line {l1=0x14, l2=» ICLOSE(OPZ.H,OPF);«, l3=0x14}
0x3a55…3a6b Line {l1=0x14, l2=» ICLOSE(MAZ.H,MAF);«, l3=0x14}
0x3a6b…3a85 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x3a85…3a8b Line {l1=0x04, l2=»END;«, l3=0x04}
0x3a8b…3a93 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3a93…3a9a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3a9a…3ab2 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x3ab2…3ac8 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x3ac8…3ad8 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x3ad8…3ae1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3ae1…3b04 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x3b04…3b10 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x3b10…3b18 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3b18…3b24 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x3b24…3b33 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x3b33…3b4a Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x3b4a…3b80 Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x3b80…3bb5 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x3bb5…3bbb Line {l1=0x04, l2=»END.«, l3=0x04}
0x3bbb…3bc0 00 00 4d 41 52 ┆ MAR┆
0x3bc0…3be0 52 41 59 3d 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 39 29 20 4f 46 20 43 48 41 52 ┆RAY=PACKED ARRAY (1..39) OF CHAR┆
0x3be0…3c00 3b 27 49 4e 49 56 45 41 55 3d 28 4d 45 4e 49 47 2c 53 45 52 47 45 4e 54 2c 4c 5c 4a 54 4e 41 4e ┆;'INIVEAU=(MENIG,SERGENT,LØJTNAN┆
0x3c00…3c20 54 2c 4b 41 50 54 41 4a 4e 2c 4d 41 4a 4f 52 2c 4f 42 45 52 53 54 2c 47 45 4e 45 52 41 4c 2c 48 ┆T,KAPTAJN,MAJOR,OBERST,GENERAL,H┆
0x3c20…3c40 53 4d 2c 55 4d 55 4c 49 55 53 29 3b 49 17 56 41 52 20 20 20 20 50 41 52 4d 3a 5e 50 41 52 4d 41 ┆SM,UMULIUS);I VAR PARM:^PARMA┆
0x3c40…3c60 52 52 41 59 3b 17 19 20 20 20 20 20 20 20 55 53 45 52 4e 49 56 45 41 55 3a 4e 49 56 45 41 55 3b ┆RRAY; USERNIVEAU:NIVEAU;┆
0x3c60…3c80 19 14 20 20 20 20 20 20 20 51 55 51 3a 5e 49 4e 54 45 47 45 52 3b 14 11 20 20 20 20 20 20 20 49 ┆ QUQ:^INTEGER; I┆
0x3c80…3ca0 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┆
[…0x96…]
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 80 ┆ccccccccccccccccccccccccccccccc ┆