|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »LIMTIDSF.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMTIDSF.K«
PROGRAM LIMTIDSF;
(*REGISTRERING AF TIDSFORBRUG*)
(*$L-*)
CONST MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=6;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
POSTADR=0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
POINTREC=^COMMBUF;
NAME =STRING(10);
PCB =^INTEGER;
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
AR=ARRAY (-4..-4) OF INTEGER;
VAR PARM:^PARMARRAY;
USERNIVEAU:NIVEAU;
F:STRING(18);
QUQ:^INTEGER;
IER,IREC,STATUSER,MODE,REMUSERS,
FILNR,I:INTEGER;
FNAVN,REGNAVN,DESCNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
(*$L-*)
PROCEDURE D(FRA,NR:INTEGER);
VAR I:INTEGER;
BEGIN
GOTOXY(1,FRA);
FOR I:=1 TO NR DO WRITELN(' ':79);
GOTOXY(1,FRA)
END;
PROCEDURE NONEXIST(S:STRING);
BEGIN
D(23,1);
WRITE(S,' findes ikke, RETURN ');
READLN;D(23,1)
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D(23,1);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$IRESPRINT*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
(*@@*)
TYPE
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;
FELTNAVN:STRING(8);
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS,
LÆNGDE,
HÆGTE,
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;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
LONGINT = ARRAY (1..2) OF INTEGER;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
(*$P*)
(*$L+*)
MEDAPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TIMESATS,
PERSTIME,
TOTTIMLØ,
PRODTIME,
AKKORDLØ,
AKKORDAR :REAL;
NR,
AFDELING :INTEGER;
NAVN :PACKED ARRAY (1..30) OF CHAR
END;
PRODPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)
REAANTAL :REAL;
ORDRENR,
SEKVENSN,
OPERANR,
STARTTID,
OPERAFSL,
STKH,
RESS1,
RESS2,
RESS3,
RESS4,
RESS5,
EMNENR,
VARIGHED :INTEGER
END;
OMVPPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ORDRENR,
SEKVENSN,
OPERANR,
EMNENR :INTEGER
END;
ORDRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ANTALBES,
SALGSPRI,
MATOMK,
LØNOMK,
MASKINOM,
SMEOMK,
MATFORB :REAL;
NR :INTEGER;
KUNDENR :LONGINT;
EMNENR :INTEGER;
REGDATO :LONGINT;
ØNSKLEV,
BEKRÆLEV :INTEGER;
KUNDORDR :PACKED ARRAY (1..16) OF CHAR;
INITIALE :PACKED ARRAY (1..4) OF CHAR
END;
REGLPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TID,
MÆNGDE,
LØN :REAL;
ORDRENR,
EMNENR,
OPERANR,
MEDARBNR :INTEGER;
DATO :LONGINT;
RTYPE :INTEGER
END;
OMVRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
MEDARBNR,
ORDRENR,
EMNENR,
OPERANR :INTEGER;
DATO :LONGINT
END;
SYSRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
AKKTIME :ARRAY (1..9) OF REAL;
NR :INTEGER;
DAGSDATO,
PERSTDAT :LONGINT;
ARBTIMDA,
ORDRENR :INTEGER
END;
(*$P*)
VAR FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
OPTION,LINES,
I,J,ANTALFELTER:INTEGER;
LINE:STRING;
MEDARB:MEDAPOST;
PROD:PRODPOST;
OMVPROD:OMVPPOST;
ORDRE:ORDRPOST;
POST:REGLPOST;
OMVRREGL:OMVRPOST;
SYSTEM:SYSRPOST;
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
(*$P*)
(*$L-*)
FUNCTION QJN(S:STRING):CHAR;
VAR CH:STRING(1);
BEGIN
REPEAT
D(23,1);
WRITE(S,' J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
QJN:=CH(1);
D(23,1)
END;
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D(23,1);
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
ICLOSE(MEDARB.A);
ICLOSE(POST.A);
ICLOSE(OMVPROD.A);
ICLOSE(SYSTEM.A);
ICLOSE(ORDRE.A);
ICLOSE(OMVRREGL.A);
ICLOSE(PROD.A);
EXIT(REGVEDL)
END;
PROCEDURE CHECK0(VAR REC:AR);
BEGIN
IF IER<>0 THEN ERROR(REC)
END;
(*$P*)
(*$L-*)
(*$IRLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR CH:CHAR;
C:STRING(1);
POSTFOUND,
PRODFOUND:BOOLEAN;
LINIER:INTEGER;
PROCEDURE SUMTID;
VAR SUM:REAL;
BEGIN
SUM:=0.0;
POST.MEDARBNR:=0;
POST.DATO:=LONGNUL;
REPEAT
NEXTRECX(POST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST.A);
SUM:=SUM+POST.TID
UNTIL POST.DATO(1)>99;
POST.TID:=SUM
END;
PROCEDURE FINDTOTAL;
VAR TOTAL:REAL;
BEGIN
TOTAL:=0.0;
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
REPEAT
NEXTRECX(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);IER:=0;
IF (PROD.SEKVENSN<>OMVPROD.SEKVENSN) OR (PROD.OPERANR<>POST.OPERANR) THEN
TOTAL:=PROD.REAANTAL
UNTIL (PROD.SEKVENSN=OMVPROD.SEKVENSN) AND (PROD.OPERANR=POST.OPERANR);
POST.MÆNGDE:=TOTAL
END;
(*$P*)
PROCEDURE REGLINIE;
VAR HTID,HMÆNGDE,HLØN:REAL;
HDATO1,HTYPE:INTEGER;
PROCEDURE AFSLUTNING;
BEGIN
WITH POST DO
BEGIN
LØN:=0.0;
LÆSFELT(PICTURE(12));
TID:=TID/100.0;
IF TID=0.0 THEN SUMTID;
GOTOXY(55,LINIER+3);
WRITE(TID:8:2,' Afslutning');
D(15,5);
WRITELN(' Total mængde beregnes efter');
WRITELN('1 Hidtil realiserede tal');
WRITELN('2 Indtastet antal');
WRITELN('3 Ordreantal');
WRITELN('4 Forrige operations total');
REPEAT
D(20,1);
WRITE('Vælg 1-4 ');
READLN;READ(OPTION);
IF NOT PRODFOUND AND (OPTION IN (.1,4.)) THEN OPTION:=0
UNTIL (IORESULT=0) AND (OPTION IN (.1..4.));
D(15,6);
CASE OPTION OF
1:MÆNGDE:=PROD.REAANTAL;
2:BEGIN
LÆSFELT(PICTURE(11))
END;
3:MÆNGDE:=ORDRE.ANTALBES;
4:MÆNGDE:=-1.0
END;
IF OPTION=4 THEN FINDTOTAL;
GOTOXY(32,LINIER+3);WRITE(MÆNGDE:6:-2);
IF QJN('Skal linien accepteres') IN NEJ THEN
BEGIN
D(LINIER+3,1);
IF NOT POSTFOUND THEN
BEGIN
GETRECX(A);CHECK0(A);
DELETE(A);IF NOT (-IER IN (.0,2.)) THEN ERROR(A)
END;
EXIT(REGLINIE)
END;
PROD.REAANTAL:=MÆNGDE;
PROD.OPERAFSL:=1;
HTID:=TID;
HMÆNGDE:=MÆNGDE;
GETRECX(A);CHECK0(A);
TID:=HTID;
MÆNGDE:=HMÆNGDE;
LØN:=0.0;
RTYPE:=0;
PUTREC(A);
CHECK0(A);
D(LINIER+3,1)
END
END;
(*$P*)
PROCEDURE SLETLINIE;
VAR CH:CHAR;
BEGIN
CH:='N';
IF PRODFOUND AND (PROD.OPERAFSL=1) THEN
BEGIN
POST.DATO(1):=POST.DATO(1)+100;
GETRECX(POST.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(POST.A);
IF IER=0 THEN
CH:=QJN('Ønskes afslutningsregistreringen slettet')
ELSE
POST.DATO(1):=POST.DATO(1)-100
END;
IF CH IN JA THEN
BEGIN
PROD.OPERAFSL:=0;
PROD.REAANTAL:=0;
D(LINIER+3,1)
END
ELSE
BEGIN
GETRECX(POST.A);CHECK0(POST.A);
IF POST.RTYPE>0 THEN
PROD.REAANTAL:=PROD.REAANTAL-POST.MÆNGDE;
IF ABS(POST.RTYPE)=1 THEN
MEDARB.PRODTIME:=MEDARB.PRODTIME-POST.TID
ELSE
IF ABS(POST.RTYPE)=2 THEN
BEGIN
MEDARB.AKKORDAR:=MEDARB.AKKORDAR-POST.TID;
IF PROD.STKH>0 THEN
MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ-POST.MÆNGDE/PROD.STKH
ELSE
MEDARB.AKKORDLØ:=
MEDARB.AKKORDLØ-POST.MÆNGDE/ORDRE.ANTALBES*PROD.STKH/100.0
END
ELSE
BEGIN
MEDARB.AKKORDAR:=MEDARB.AKKORDAR-POST.TID;
MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ-POST.TID
END
END;
PUTREC(PROD.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(PROD.A);
WITH OMVRREGL DO
BEGIN
MEDARBNR:=POST.MEDARBNR;
ORDRENR:=POST.ORDRENR;
EMNENR:=POST.EMNENR;
OPERANR:=POST.OPERANR;
DATO:=POST.DATO;
GETRECX(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);
IF IER=0 THEN
BEGIN
DELETE(A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)
END
END;
DELETE(POST.A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(POST.A)
END;
(*$P*)
PROCEDURE AFLØN;
BEGIN
WITH POST DO
BEGIN
D(16,4);
WRITELN(' Aflønning efter');
WRITELN('1 Medarbejders timesats');
WRITELN('2 Indtastet timesats');
WRITELN('3 Indtastet akkordnr');
WRITELN('4 Indtastet kr pr stk');
REPEAT
D(21,1);
WRITE('Vælg 1-4 ');
READLN;READ(OPTION);
IF NOT PRODFOUND AND (OPTION=3) THEN OPTION:=0
UNTIL (IORESULT=0) AND (OPTION IN (.1..4.));
D(16,6);
CASE OPTION OF
1: LØN:=(MEDARB.TIMESATS+MEDARB.PERSTIME)*TID;
2:BEGIN
LÆSFELT(PICTURE(9));
LØN:=(LØN+MEDARB.PERSTIME)*TID
END;
3:BEGIN
RTYPE:=RTYPE*2;
LÆSFELT(PICTURE(10));
IF PROD.STKH>0.0 THEN
LØN:=TID*MEDARB.PERSTIME+
MÆNGDE/PROD.STKH*SYSTEM.AKKTIME(DATO(1))
ELSE
LØN:=TID*MEDARB.PERSTIME-
MÆNGDE/ORDRE.ANTALBES*PROD.STKH/100.0*SYSTEM.AKKTIME(DATO(1))
END;
4:BEGIN
RTYPE:=RTYPE*3;
LÆSFELT(PICTURE(13));
LØN:=TID*MEDARB.PERSTIME+MÆNGDE*LØN;
END
END;
GOTOXY(40,LINIER+3);WRITE(LØN:10:2)
END
END;
(*$P*)
BEGIN (*REGLINIE*)
WITH POST DO
BEGIN
LÆSFELT(PICTURE(6));
HDATO1:=DATO(1);
DATO:=SYSTEM.DAGSDATO;
IF HDATO1=0 THEN BEGIN DATO(1):=DATO(1)+100;MEDARBNR:=10000 END;
TID:=0.0;
RTYPE:=0;
MÆNGDE:=0.0;
LØN:=0.0;
C:='A';
INSERT(A);IF NOT (-IER IN (.0,7.)) THEN ERROR(A);
IF IER=-7 THEN
BEGIN
POSTFOUND:=TRUE;
GOTOXY(1,21);
WRITELN('ORDRE-EMNE-OPERATION-MEDARBEJDER-DATO ',
'KOMBINATIONEN FINDES ALLEREDE');
WRITELN('Ønskes: Nyindtastning: N, Addition til ',
'eksisterende: A , Sletning: S');
REPEAT
D(23,1);
WRITE('Vælg N/A/S ');
C:='N';
EDIT(C)
UNTIL C(1) IN (.'N','n','a','A','S','s'.);
D(21,3)
END ELSE POSTFOUND:=FALSE;
IF C(1) IN (.'N','n'.) THEN EXIT(REGLINIE);
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.OPERANR:=OPERANR;
PROD.SEKVENSN:=OMVPROD.SEKVENSN;
GETRECX(PROD.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(PROD.A);
IF C(1) IN (.'A','a'.) THEN
BEGIN
IF HDATO1>0 THEN
BEGIN
DATO(1):=HDATO1;
LÆSFELT(PICTURE(7));
IF DATO(2)>0 THEN
TID:=(DATO(2)-DATO(1))/100.0
ELSE
TID:=DATO(1)/100.0;
GOTOXY(55,LINIER+3);
WRITE(TID:8:2);
REPEAT
LÆSFELT(PICTURE(8))
UNTIL PRODFOUND OR (LENGTH(LINE)>0);
RTYPE:=-1;
IF LENGTH(LINE)>0 THEN
BEGIN
RTYPE:=1;
PROD.REAANTAL:=PROD.REAANTAL+MÆNGDE
END
ELSE
IF PROD.STKH>=0 THEN
MÆNGDE:=PROD.STKH*TID
ELSE
MÆNGDE:=-TID*ORDRE.ANTALBES/PROD.STKH*100.0;
GOTOXY(32,LINIER+3);WRITE(MÆNGDE:6:-2);
AFLØN;
HTYPE:=RTYPE;
HLØN:=LØN;
HTID:=TID;
HMÆNGDE:=MÆNGDE;
DATO:=SYSTEM.DAGSDATO;
IF QJN('Skal linien accepteres') IN NEJ THEN
BEGIN
D(LINIER+3,1);
IF NOT POSTFOUND THEN
BEGIN
GETRECX(A);CHECK0(A);
DELETE(A);IF NOT (-IER IN (.0,2.)) THEN ERROR(A)
END;
EXIT(REGLINIE)
END;
LINIER:=LINIER+1;
CASE ABS(RTYPE) OF
1:MEDARB.PRODTIME:=MEDARB.PRODTIME+TID;
2:BEGIN
IF PROD.STKH>0.0 THEN
MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ+MÆNGDE/PROD.STKH
ELSE
MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ-
MÆNGDE/ORDRE.ANTALBES*PROD.STKH/100.0;
MEDARB.AKKORDAR:=MEDARB.AKKORDAR+TID
END;
3:BEGIN
MEDARB.AKKORDAR:=MEDARB.AKKORDAR+TID;
MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ+TID
END
END;
GETRECX(A);CHECK0(A);
RTYPE:=HTYPE;
LØN:=LØN+HLØN;
TID:=TID+HTID;
MÆNGDE:=MÆNGDE+HMÆNGDE;
PUTREC(A);CHECK0(A)
END
ELSE
AFSLUTNING
END
ELSE
BEGIN
SLETLINIE;
EXIT(REGLINIE)
END;
OMVRREGL.MEDARBNR:=MEDARBNR;
OMVRREGL.ORDRENR:=ORDRENR;
OMVRREGL.EMNENR:=EMNENR;
OMVRREGL.OPERANR:=OPERANR;
OMVRREGL.DATO:=DATO;
INSERT(OMVRREGL.A);IF NOT (-IER IN (.0,7.)) THEN ERROR(OMVRREGL.A);
PUTREC(PROD.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(PROD.A)
END
END;
(*$P*)
BEGIN (*MAINTAIN*)
WITH POST DO
REPEAT
NULPOST;
CLEARSCREEN;
WRITELN('REGISTRERING AF TIMESEDLER');
LINIER:=0;
WRITELN('ORDRE EMNE OPERATION',
' MÆNGDE LØN TID');
LÆSFELT(PICTURE(1));
IF MEDARBNR>0 THEN
BEGIN
SKRIVFELT(PICTURE(1));
MEDARB.NR:=MEDARBNR;
GETRECX(MEDARB.A);
IF IER=-6 THEN
NONEXIST('Medarbejder')
ELSE
BEGIN
CHECK0(MEDARB.A);
LÆSFELT(PICTURE(2));TID:=TID/100.0;SKRIVFELT(PICTURE(2));
DATO:=SYSTEM.DAGSDATO;
LÆSFELT(PICTURE(14));
SYSTEM.DAGSDATO:=DATO;
MEDARB.TOTTIMLØ:=MEDARB.TOTTIMLØ+TID;
REPEAT
MEDARBNR:=MEDARB.NR;
IF LINIER>12 THEN BEGIN D(3,12);LINIER:=0 END;
LÆSFELT(PICTURE(3));
IF ORDRENR>0 THEN
BEGIN
GOTOXY(1,LINIER+3);WRITE(ORDRENR:5);
LÆSFELT(PICTURE(4));
GOTOXY(10,LINIER+3);WRITE(EMNENR:5);
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=EMNENR;
GETREC(ORDRE.A);
IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);
IF IER=-6 THEN
NONEXIST('Ordren')
ELSE
BEGIN
LÆSFELT(PICTURE(5));
GOTOXY(20,LINIER+3);WRITE(OPERANR:10);
OMVPROD.ORDRENR:=ORDRENR;
OMVPROD.EMNENR:=EMNENR;
OMVPROD.OPERANR:=OPERANR;
OMVPROD.SEKVENSN:=0;
NEXTREC(OMVPROD.A);
IF NOT (-IER IN (.1,2,9.)) THEN ERROR(OMVPROD.A);
CH:='J';
PRODFOUND:=TRUE;
IF OMVPROD.OPERANR<>OPERANR THEN
BEGIN
PRODFOUND:=FALSE;
D(22,1);
WRITELN('Operationen findes ikke på forkalkulationen');
CH:=QJN('Ønskes registreringen fortsat');
D(22,1)
END;
IF CH IN JA THEN REGLINIE
END
END
UNTIL ORDRENR=0;
PUTREC(MEDARB.A);CHECK0(MEDARB.A)
END
END
UNTIL MEDARBNR=0
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
CLEARSCREEN;
LÆSDESC;
MODE:=3;(*SKRIV*)
(*$R-*)
MEDARB.A(-4):=0;
POST.A(-4):=0;
SYSTEM.A(-4):=0;
PROD.A(-4):=0;
OMVPROD.A(-4):=0;
OMVRREGL.A(-4):=0;
ORDRE.A(-4):=0;
MEDARB.A(-3):=7;
POST.A(-3):=16;(*REGL*)
SYSTEM.A(-3):=9;
PROD.A(-3):=14;
ORDRE.A(-3):=10;
OMVPROD.A(-3):=13;
OMVRREGL.A(-3):=23;
(*$R+*)
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
IOPEN(SYSTEM.A); CHECK0(SYSTEM.A);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);CHECK0(SYSTEM.A);
ICLOSE(SYSTEM.A);
IOPEN(MEDARB.A); CHECK0(MEDARB.A);
IOPEN(POST.A); CHECK0(POST.A);
IOPEN(PROD.A); CHECK0(PROD.A);
IOPEN(OMVPROD.A); CHECK0(OMVPROD.A);
IOPEN(ORDRE.A); CHECK0(ORDRE.A);
IOPEN(OMVRREGL.A); CHECK0(OMVRREGL.A);
MAINTAIN;
ICLOSE(MEDARB.A);
ICLOSE(POST.A);
ICLOSE(ORDRE.A);
ICLOSE(PROD.A);
ICLOSE(OMVPROD.A);
ICLOSE(OMVRREGL.A);
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN
END;
(*$P*)
BEGIN
SEMAFOR:='ALLOCOMBUF';
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END; (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
(*@@TILPASSES*)
DESCNAVN:='TIDSPESC:P2:05:J';
REGVEDL;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('HOVED *1',FNAVN,QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LIMTIDSF;«, l3=0x11}
0x0013…0034 Line {l1=0x1f, l2=»(*REGISTRERING AF TIDSFORBRUG*)«, l3=0x1f}
0x0034…003d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x003d…0055 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x0055…005d Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x005d…0071 Line {l1=0x12, l2=» PROGRAMNR=6;«, l3=0x12}
0x0071…0077 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0077…00a0 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00a0…00eb Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x00eb…0103 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x0103…014e Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x014e…0162 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0162…0178 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0178…018c Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x018c…01d5 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01d5…0225 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x0225…026f Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x026f…0280 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0280…02a2 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02a2…02c1 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02c1…02d0 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02d0…02ef Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x02ef…0308 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0308…0323 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x0323…0339 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0339…034f Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x034f…0378 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0378…0391 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x0391…03bc Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x03bc…03d2 Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03d2…03ec Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x03ec…03fd Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x03fd…0410 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x0410…0429 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0429…0441 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0441…0449 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0449…0452 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0452…0470 Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x0470…0480 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0480…0487 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0487…0499 Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x0499…04bf Line {l1=0x24, l2=» FOR I:=1 TO NR DO WRITELN(' ':79);«, l3=0x24}
0x04bf…04d0 Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x04d0…04d6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04d6…04f5 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x04f5…04fc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04fc…0508 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0508…052d Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x052d…0540 Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x0540…0546 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0546…056c Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x056c…0573 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0573…057f Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x057f…05a1 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x05a1…05ab Line {l1=0x08, l2=» READLN«, l3=0x08}
0x05ab…05b1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05b1…05b9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05b9…05f0 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x05f0…0617 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0617…0622 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0622…065a Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x065a…0665 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0665…0699 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x0699…06ce Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x06ce…06d9 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06d9…0710 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0710…0737 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0737…0742 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0742…077a Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x077a…07a1 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x07a1…07ac Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07ac…07e1 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x07e1…07ec Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07ec…07fc Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x07fc…0804 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0804…0811 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0811…0821 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0821…0829 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0829…083d Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x083d…0852 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0852…085a Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x085a…0860 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0860…0879 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0879…088a Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x088a…089a Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x089a…08a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08a0…08c4 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x08c4…08f5 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x08f5…091c Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x091c…0934 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0934…0948 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0948…0960 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0960…0986 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0986…0994 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0994…09af Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x09af…09d3 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x09d3…09ea Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x09ea…0a0b Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0a0b…0a17 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0a17…0a23 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a23…0a2e Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a2e…0a42 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a42…0a5d Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0a5d…0a75 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0a75…0a93 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0a93…0aa1 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0aa1…0ac2 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0ac2…0ae6 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0ae6…0b16 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0b16…0b39 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b39…0b4d Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b4d…0b53 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b53…0b7a Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0b7a…0b95 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0b95…0bb9 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0bb9…0be6 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0be6…0bee Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0bee…0bf7 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0bf7…0c08 Line {l1=0x0f, l2=»MEDAPOST=RECORD«, l3=0x0f}
0x0c08…0c14 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0c14…0c1d Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0c1d…0c29 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0c29…0c36 Line {l1=0x0b, l2=» TIMESATS,«, l3=0x0b}
0x0c36…0c43 Line {l1=0x0b, l2=» PERSTIME,«, l3=0x0b}
0x0c43…0c50 Line {l1=0x0b, l2=» TOTTIMLØ,«, l3=0x0b}
0x0c50…0c5d Line {l1=0x0b, l2=» PRODTIME,«, l3=0x0b}
0x0c5d…0c6a Line {l1=0x0b, l2=» AKKORDLØ,«, l3=0x0b}
0x0c6a…0c86 Line {l1=0x1a, l2=» AKKORDAR :REAL;«, l3=0x1a}
0x0c86…0c8d Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0c8d…0cac Line {l1=0x1d, l2=» AFDELING :INTEGER;«, l3=0x1d}
0x0cac…0cdf Line {l1=0x31, l2=» NAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x0cdf…0ce5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ce5…0cf6 Line {l1=0x0f, l2=»PRODPOST=RECORD«, l3=0x0f}
0x0cf6…0d02 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0d02…0d0b Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0d0b…0d17 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0d17…0d4c Line {l1=0x33, l2=» KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)«, l3=0x33}
0x0d4c…0d68 Line {l1=0x1a, l2=» REAANTAL :REAL;«, l3=0x1a}
0x0d68…0d74 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x0d74…0d81 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x0d81…0d8d Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x0d8d…0d9a Line {l1=0x0b, l2=» STARTTID,«, l3=0x0b}
0x0d9a…0da7 Line {l1=0x0b, l2=» OPERAFSL,«, l3=0x0b}
0x0da7…0db0 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x0db0…0dba Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x0dba…0dc4 Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x0dc4…0dce Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x0dce…0dd8 Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x0dd8…0de2 Line {l1=0x08, l2=» RESS5,«, l3=0x08}
0x0de2…0ded Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x0ded…0e0c Line {l1=0x1d, l2=» VARIGHED :INTEGER «, l3=0x1d}
0x0e0c…0e12 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e12…0e23 Line {l1=0x0f, l2=»OMVPPOST=RECORD«, l3=0x0f}
0x0e23…0e2f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0e2f…0e38 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0e38…0e44 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0e44…0e50 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x0e50…0e5d Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x0e5d…0e69 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x0e69…0e88 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x0e88…0e8e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e8e…0e9f Line {l1=0x0f, l2=»ORDRPOST=RECORD«, l3=0x0f}
0x0e9f…0eab Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0eab…0eb4 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0eb4…0ec0 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0ec0…0ecd Line {l1=0x0b, l2=» ANTALBES,«, l3=0x0b}
0x0ecd…0eda Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x0eda…0ee5 Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x0ee5…0ef0 Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x0ef0…0efd Line {l1=0x0b, l2=» MASKINOM,«, l3=0x0b}
0x0efd…0f08 Line {l1=0x09, l2=» SMEOMK,«, l3=0x09}
0x0f08…0f24 Line {l1=0x1a, l2=» MATFORB :REAL;«, l3=0x1a}
0x0f24…0f43 Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x0f43…0f62 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x0f62…0f81 Line {l1=0x1d, l2=» EMNENR :INTEGER;«, l3=0x1d}
0x0f81…0fa0 Line {l1=0x1d, l2=» REGDATO :LONGINT;«, l3=0x1d}
0x0fa0…0fac Line {l1=0x0a, l2=» ØNSKLEV,«, l3=0x0a}
0x0fac…0fcb Line {l1=0x1d, l2=» BEKRÆLEV :INTEGER;«, l3=0x1d}
0x0fcb…0fff Line {l1=0x32, l2=» KUNDORDR :PACKED ARRAY (1..16) OF CHAR;«, l3=0x32}
0x0fff…1032 Line {l1=0x31, l2=» INITIALE :PACKED ARRAY (1..4) OF CHAR «, l3=0x31}
0x1032…1038 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1038…1049 Line {l1=0x0f, l2=»REGLPOST=RECORD«, l3=0x0f}
0x1049…1055 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1055…105e Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x105e…106a Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x106a…1072 Line {l1=0x06, l2=» TID,«, l3=0x06}
0x1072…107d Line {l1=0x09, l2=» MÆNGDE,«, l3=0x09}
0x107d…1098 Line {l1=0x19, l2=» LØN :REAL;«, l3=0x19}
0x1098…10a4 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x10a4…10af Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x10af…10bb Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x10bb…10d9 Line {l1=0x1c, l2=» MEDARBNR :INTEGER;«, l3=0x1c}
0x10d9…10f7 Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x10f7…1114 Line {l1=0x1b, l2=» RTYPE :INTEGER«, l3=0x1b}
0x1114…111a Line {l1=0x04, l2=»END;«, l3=0x04}
0x111a…112b Line {l1=0x0f, l2=»OMVRPOST=RECORD«, l3=0x0f}
0x112b…1137 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1137…1140 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1140…114c Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x114c…1159 Line {l1=0x0b, l2=» MEDARBNR,«, l3=0x0b}
0x1159…1165 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1165…1170 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x1170…118e Line {l1=0x1c, l2=» OPERANR :INTEGER;«, l3=0x1c}
0x118e…11ac Line {l1=0x1c, l2=» DATO :LONGINT «, l3=0x1c}
0x11ac…11b2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x11b2…11c3 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x11c3…11cf Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x11cf…11d8 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x11d8…11e4 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x11e4…120f Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x120f…122d Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x122d…124b Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x124b…1269 Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x1269…127f Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x127f…129d Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x129d…12a3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x12a3…12ab Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x12ab…12bc Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x12bc…12d1 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x12d1…12fd Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x12fd…1310 Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x1310…132e Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x132e…1340 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1340…1356 Line {l1=0x14, l2=» MEDARB:MEDAPOST;«, l3=0x14}
0x1356…136a Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x136a…1381 Line {l1=0x15, l2=» OMVPROD:OMVPPOST;«, l3=0x15}
0x1381…1396 Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x1396…13aa Line {l1=0x12, l2=» POST:REGLPOST;«, l3=0x12}
0x13aa…13c2 Line {l1=0x16, l2=» OMVRREGL:OMVRPOST;«, l3=0x16}
0x13c2…13d8 Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x13d8…13ee Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x13ee…13fc Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x13fc…141d Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x141d…1425 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1425…142e Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x142e…144c Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x144c…145f Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x145f…1466 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1466…1470 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1470…147e Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x147e…1495 Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x1495…14a3 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x14a3…14b1 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x14b1…14cc Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x14cc…14db Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x14db…14e7 Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x14e7…14ed Line {l1=0x04, l2=»END;«, l3=0x04}
0x14ed…150b Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x150b…151e Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x151e…152e Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x152e…1535 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1535…1541 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x1541…158f Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x158f…15dd Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x15dd…15f2 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x15f2…1622 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x1622…1639 Line {l1=0x15, l2=» ICLOSE(MEDARB.A); «, l3=0x15}
0x1639…164d Line {l1=0x12, l2=» ICLOSE(POST.A); «, l3=0x12}
0x164d…1664 Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x1664…1679 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x1679…168d Line {l1=0x12, l2=» ICLOSE(ORDRE.A);«, l3=0x12}
0x168d…16a4 Line {l1=0x15, l2=» ICLOSE(OMVRREGL.A);«, l3=0x15}
0x16a4…16b8 Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x16b8…16c9 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x16c9…16cf Line {l1=0x04, l2=»END;«, l3=0x04}
0x16cf…16ee Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x16ee…16f5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x16f5…1712 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x1712…1718 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1718…1720 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1720…1729 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1729…1739 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x1739…1741 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1741…1751 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x1751…1759 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1759…1762 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1762…1777 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1777…1785 Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x1785…1797 Line {l1=0x10, l2=» C:STRING(1);«, l3=0x10}
0x1797…17a7 Line {l1=0x0e, l2=» POSTFOUND,«, l3=0x0e}
0x17a7…17bf Line {l1=0x16, l2=» PRODFOUND:BOOLEAN;«, l3=0x16}
0x17bf…17d4 Line {l1=0x13, l2=» LINIER:INTEGER;«, l3=0x13}
0x17d4…17d7 Line {l1=0x01, l2=» «, l3=0x01}
0x17d7…17ea Line {l1=0x11, l2=»PROCEDURE SUMTID;«, l3=0x11}
0x17ea…17f9 Line {l1=0x0d, l2=»VAR SUM:REAL;«, l3=0x0d}
0x17f9…1800 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1800…180d Line {l1=0x0b, l2=» SUM:=0.0;«, l3=0x0b}
0x180d…1822 Line {l1=0x13, l2=» POST.MEDARBNR:=0;«, l3=0x13}
0x1822…1839 Line {l1=0x15, l2=» POST.DATO:=LONGNUL;«, l3=0x15}
0x1839…1843 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1843…1889 Line {l1=0x44, l2=» NEXTRECX(POST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST.A);«, l3=0x44}
0x1889…18a1 Line {l1=0x16, l2=» SUM:=SUM+POST.TID «, l3=0x16}
0x18a1…18bb Line {l1=0x18, l2=» UNTIL POST.DATO(1)>99;«, l3=0x18}
0x18bb…18cc Line {l1=0x0f, l2=» POST.TID:=SUM«, l3=0x0f}
0x18cc…18d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x18d2…18d5 Line {l1=0x01, l2=» «, l3=0x01}
0x18d5…18eb Line {l1=0x14, l2=»PROCEDURE FINDTOTAL;«, l3=0x14}
0x18eb…18fc Line {l1=0x0f, l2=»VAR TOTAL:REAL;«, l3=0x0f}
0x18fc…1903 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1903…1912 Line {l1=0x0d, l2=» TOTAL:=0.0;«, l3=0x0d}
0x1912…1927 Line {l1=0x13, l2=» PROD.SEKVENSN:=0;«, l3=0x13}
0x1927…193b Line {l1=0x12, l2=» PROD.OPERANR:=0;«, l3=0x12}
0x193b…1945 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1945…1992 Line {l1=0x4b, l2=» NEXTRECX(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);IER:=0;«, l3=0x4b}
0x1992…19e1 Line {l1=0x4d, l2=» IF (PROD.SEKVENSN<>OMVPROD.SEKVENSN) OR (PROD.OPERANR<>POST.OPERANR) THEN«, l3=0x4d}
0x19e1…19fd Line {l1=0x1a, l2=» TOTAL:=PROD.REAANTAL«, l3=0x1a}
0x19fd…1a48 Line {l1=0x49, l2=» UNTIL (PROD.SEKVENSN=OMVPROD.SEKVENSN) AND (PROD.OPERANR=POST.OPERANR);«, l3=0x49}
0x1a48…1a5e Line {l1=0x14, l2=» POST.MÆNGDE:=TOTAL«, l3=0x14}
0x1a5e…1a64 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a64…1a6c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1a6c…1a81 Line {l1=0x13, l2=»PROCEDURE REGLINIE;«, l3=0x13}
0x1a81…1a9e Line {l1=0x1b, l2=»VAR HTID,HMÆNGDE,HLØN:REAL;«, l3=0x1b}
0x1a9e…1ab9 Line {l1=0x19, l2=» HDATO1,HTYPE:INTEGER;«, l3=0x19}
0x1ab9…1abc Line {l1=0x01, l2=» «, l3=0x01}
0x1abc…1ad3 Line {l1=0x15, l2=»PROCEDURE AFSLUTNING;«, l3=0x15}
0x1ad3…1ada Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ada…1aea Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x1aea…1af3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1af3…1b04 Line {l1=0x0f, l2=» LØN:=0.0;«, l3=0x0f}
0x1b04…1b21 Line {l1=0x1b, l2=» LÆSFELT(PICTURE(12));«, l3=0x1b}
0x1b21…1b38 Line {l1=0x15, l2=» TID:=TID/100.0;«, l3=0x15}
0x1b38…1b57 Line {l1=0x1d, l2=» IF TID=0.0 THEN SUMTID;«, l3=0x1d}
0x1b57…1b73 Line {l1=0x1a, l2=» GOTOXY(55,LINIER+3);«, l3=0x1a}
0x1b73…1b99 Line {l1=0x24, l2=» WRITE(TID:8:2,' Afslutning');«, l3=0x24}
0x1b99…1ba9 Line {l1=0x0e, l2=» D(15,5);«, l3=0x0e}
0x1ba9…1bda Line {l1=0x2f, l2=» WRITELN(' Total mængde beregnes efter');«, l3=0x2f}
0x1bda…1c06 Line {l1=0x2a, l2=» WRITELN('1 Hidtil realiserede tal');«, l3=0x2a}
0x1c06…1c2b Line {l1=0x23, l2=» WRITELN('2 Indtastet antal');«, l3=0x23}
0x1c2b…1c4b Line {l1=0x1e, l2=» WRITELN('3 Ordreantal');«, l3=0x1e}
0x1c4b…1c79 Line {l1=0x2c, l2=» WRITELN('4 Forrige operations total');«, l3=0x2c}
0x1c79…1c87 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1c87…1c99 Line {l1=0x10, l2=» D(20,1);«, l3=0x10}
0x1c99…1cb6 Line {l1=0x1b, l2=» WRITE('Vælg 1-4 ');«, l3=0x1b}
0x1cb6…1cd4 Line {l1=0x1c, l2=» READLN;READ(OPTION);«, l3=0x1c}
0x1cd4…1d15 Line {l1=0x3f, l2=» IF NOT PRODFOUND AND (OPTION IN (.1,4.)) THEN OPTION:=0«, l3=0x3f}
0x1d15…1d49 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.1..4.));«, l3=0x32}
0x1d49…1d59 Line {l1=0x0e, l2=» D(15,6);«, l3=0x0e}
0x1d59…1d6f Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x1d6f…1d8f Line {l1=0x1e, l2=» 1:MÆNGDE:=PROD.REAANTAL;«, l3=0x1e}
0x1d8f…1d9e Line {l1=0x0d, l2=» 2:BEGIN«, l3=0x0d}
0x1d9e…1dbf Line {l1=0x1f, l2=» LÆSFELT(PICTURE(11)) «, l3=0x1f}
0x1dbf…1dcd Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1dcd…1dee Line {l1=0x1f, l2=» 3:MÆNGDE:=ORDRE.ANTALBES;«, l3=0x1f}
0x1dee…1e04 Line {l1=0x14, l2=» 4:MÆNGDE:=-1.0«, l3=0x14}
0x1e04…1e10 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1e10…1e33 Line {l1=0x21, l2=» IF OPTION=4 THEN FINDTOTAL;«, l3=0x21}
0x1e33…1e62 Line {l1=0x2d, l2=» GOTOXY(32,LINIER+3);WRITE(MÆNGDE:6:-2);«, l3=0x2d}
0x1e62…1e96 Line {l1=0x32, l2=» IF QJN('Skal linien accepteres') IN NEJ THEN«, l3=0x32}
0x1e96…1ea3 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1ea3…1ebb Line {l1=0x16, l2=» D(LINIER+3,1);«, l3=0x16}
0x1ebb…1eda Line {l1=0x1d, l2=» IF NOT POSTFOUND THEN«, l3=0x1d}
0x1eda…1ee9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1ee9…1f0a Line {l1=0x1f, l2=» GETRECX(A);CHECK0(A);«, l3=0x1f}
0x1f0a…1f46 Line {l1=0x3a, l2=» DELETE(A);IF NOT (-IER IN (.0,2.)) THEN ERROR(A)«, l3=0x3a}
0x1f46…1f54 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1f54…1f6c Line {l1=0x16, l2=» EXIT(REGLINIE)«, l3=0x16}
0x1f6c…1f78 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1f78…1f96 Line {l1=0x1c, l2=» PROD.REAANTAL:=MÆNGDE;«, l3=0x1c}
0x1f96…1faf Line {l1=0x17, l2=» PROD.OPERAFSL:=1;«, l3=0x17}
0x1faf…1fc1 Line {l1=0x10, l2=» HTID:=TID;«, l3=0x10}
0x1fc1…1fd9 Line {l1=0x16, l2=» HMÆNGDE:=MÆNGDE;«, l3=0x16}
0x1fd9…1ff6 Line {l1=0x1b, l2=» GETRECX(A);CHECK0(A);«, l3=0x1b}
0x1ff6…2008 Line {l1=0x10, l2=» TID:=HTID;«, l3=0x10}
0x2008…2020 Line {l1=0x16, l2=» MÆNGDE:=HMÆNGDE;«, l3=0x16}
0x2020…2031 Line {l1=0x0f, l2=» LØN:=0.0;«, l3=0x0f}
0x2031…2042 Line {l1=0x0f, l2=» RTYPE:=0;«, l3=0x0f}
0x2042…2054 Line {l1=0x10, l2=» PUTREC(A);«, l3=0x10}
0x2054…2066 Line {l1=0x10, l2=» CHECK0(A);«, l3=0x10}
0x2066…207b Line {l1=0x13, l2=» D(LINIER+3,1)«, l3=0x13}
0x207b…2082 Line {l1=0x05, l2=» END«, l3=0x05}
0x2082…2088 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2088…2090 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2090…20a6 Line {l1=0x14, l2=»PROCEDURE SLETLINIE;«, l3=0x14}
0x20a6…20b4 Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x20b4…20bb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20bb…20c7 Line {l1=0x0a, l2=» CH:='N';«, l3=0x0a}
0x20c7…20f2 Line {l1=0x29, l2=» IF PRODFOUND AND (PROD.OPERAFSL=1) THEN«, l3=0x29}
0x20f2…20fb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x20fb…2120 Line {l1=0x23, l2=» POST.DATO(1):=POST.DATO(1)+100;«, l3=0x23}
0x2120…2162 Line {l1=0x40, l2=» GETRECX(POST.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(POST.A);«, l3=0x40}
0x2162…2175 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x2175…21b0 Line {l1=0x39, l2=» CH:=QJN('Ønskes afslutningsregistreringen slettet')«, l3=0x39}
0x21b0…21ba Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x21ba…21e1 Line {l1=0x25, l2=» POST.DATO(1):=POST.DATO(1)-100 «, l3=0x25}
0x21e1…21e9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x21e9…21fd Line {l1=0x12, l2=» IF CH IN JA THEN«, l3=0x12}
0x21fd…2206 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2206…221d Line {l1=0x15, l2=» PROD.OPERAFSL:=0;«, l3=0x15}
0x221d…2234 Line {l1=0x15, l2=» PROD.REAANTAL:=0;«, l3=0x15}
0x2234…2247 Line {l1=0x11, l2=» D(LINIER+3,1)«, l3=0x11}
0x2247…224e Line {l1=0x05, l2=» END«, l3=0x05}
0x224e…2256 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x2256…225f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x225f…2284 Line {l1=0x23, l2=» GETRECX(POST.A);CHECK0(POST.A);«, l3=0x23}
0x2284…229e Line {l1=0x18, l2=» IF POST.RTYPE>0 THEN«, l3=0x18}
0x229e…22cf Line {l1=0x2f, l2=» PROD.REAANTAL:=PROD.REAANTAL-POST.MÆNGDE;«, l3=0x2f}
0x22cf…22ee Line {l1=0x1d, l2=» IF ABS(POST.RTYPE)=1 THEN«, l3=0x1d}
0x22ee…231f Line {l1=0x2f, l2=» MEDARB.PRODTIME:=MEDARB.PRODTIME-POST.TID«, l3=0x2f}
0x231f…2329 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2329…2348 Line {l1=0x1d, l2=» IF ABS(POST.RTYPE)=2 THEN«, l3=0x1d}
0x2348…2353 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2353…2385 Line {l1=0x30, l2=» MEDARB.AKKORDAR:=MEDARB.AKKORDAR-POST.TID;«, l3=0x30}
0x2385…23a2 Line {l1=0x1b, l2=» IF PROD.STKH>0 THEN «, l3=0x1b}
0x23a2…23e2 Line {l1=0x3e, l2=» MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ-POST.MÆNGDE/PROD.STKH«, l3=0x3e}
0x23e2…23ee Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x23ee…2409 Line {l1=0x19, l2=» MEDARB.AKKORDLØ:=«, l3=0x19}
0x2409…244d Line {l1=0x42, l2=» MEDARB.AKKORDLØ-POST.MÆNGDE/ORDRE.ANTALBES*PROD.STKH/100.0«, l3=0x42}
0x244d…2456 Line {l1=0x07, l2=» END«, l3=0x07}
0x2456…2460 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2460…246b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x246b…249d Line {l1=0x30, l2=» MEDARB.AKKORDAR:=MEDARB.AKKORDAR-POST.TID;«, l3=0x30}
0x249d…24cf Line {l1=0x30, l2=» MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ-POST.TID «, l3=0x30}
0x24cf…24d8 Line {l1=0x07, l2=» END«, l3=0x07}
0x24d8…24e0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x24e0…251f Line {l1=0x3d, l2=» PUTREC(PROD.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(PROD.A);«, l3=0x3d}
0x251f…2533 Line {l1=0x12, l2=» WITH OMVRREGL DO«, l3=0x12}
0x2533…253c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x253c…255a Line {l1=0x1c, l2=» MEDARBNR:=POST.MEDARBNR;«, l3=0x1c}
0x255a…2576 Line {l1=0x1a, l2=» ORDRENR:=POST.ORDRENR;«, l3=0x1a}
0x2576…2590 Line {l1=0x18, l2=» EMNENR:=POST.EMNENR;«, l3=0x18}
0x2590…25ac Line {l1=0x1a, l2=» OPERANR:=POST.OPERANR;«, l3=0x1a}
0x25ac…25c2 Line {l1=0x14, l2=» DATO:=POST.DATO;«, l3=0x14}
0x25c2…25fa Line {l1=0x36, l2=» GETRECX(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x36}
0x25fa…260d Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x260d…2618 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2618…2652 Line {l1=0x38, l2=» DELETE(A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)«, l3=0x38}
0x2652…265b Line {l1=0x07, l2=» END«, l3=0x07}
0x265b…2663 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2663…26a4 Line {l1=0x3f, l2=» DELETE(POST.A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(POST.A) «, l3=0x3f}
0x26a4…26aa Line {l1=0x04, l2=»END;«, l3=0x04}
0x26aa…26b2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x26b2…26c4 Line {l1=0x10, l2=»PROCEDURE AFLØN;«, l3=0x10}
0x26c4…26cb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26cb…26dd Line {l1=0x10, l2=» WITH POST DO«, l3=0x10}
0x26dd…26e8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x26e8…26f8 Line {l1=0x0e, l2=» D(16,4);«, l3=0x0e}
0x26f8…271d Line {l1=0x23, l2=» WRITELN(' Aflønning efter');«, l3=0x23}
0x271d…2748 Line {l1=0x29, l2=» WRITELN('1 Medarbejders timesats');«, l3=0x29}
0x2748…2770 Line {l1=0x26, l2=» WRITELN('2 Indtastet timesats');«, l3=0x26}
0x2770…2798 Line {l1=0x26, l2=» WRITELN('3 Indtastet akkordnr');«, l3=0x26}
0x2798…27c1 Line {l1=0x27, l2=» WRITELN('4 Indtastet kr pr stk');«, l3=0x27}
0x27c1…27cf Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x27cf…27e1 Line {l1=0x10, l2=» D(21,1);«, l3=0x10}
0x27e1…27fe Line {l1=0x1b, l2=» WRITE('Vælg 1-4 ');«, l3=0x1b}
0x27fe…281c Line {l1=0x1c, l2=» READLN;READ(OPTION);«, l3=0x1c}
0x281c…2854 Line {l1=0x36, l2=» IF NOT PRODFOUND AND (OPTION=3) THEN OPTION:=0«, l3=0x36}
0x2854…2888 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.1..4.));«, l3=0x32}
0x2888…2898 Line {l1=0x0e, l2=» D(16,6);«, l3=0x0e}
0x2898…28ae Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x28ae…28e5 Line {l1=0x35, l2=» 1: LØN:=(MEDARB.TIMESATS+MEDARB.PERSTIME)*TID;«, l3=0x35}
0x28e5…28f4 Line {l1=0x0d, l2=» 2:BEGIN«, l3=0x0d}
0x28f4…2915 Line {l1=0x1f, l2=» LÆSFELT(PICTURE(9)); «, l3=0x1f}
0x2915…2940 Line {l1=0x29, l2=» LØN:=(LØN+MEDARB.PERSTIME)*TID «, l3=0x29}
0x2940…294e Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x294e…295d Line {l1=0x0d, l2=» 3:BEGIN«, l3=0x0d}
0x295d…2978 Line {l1=0x19, l2=» RTYPE:=RTYPE*2;«, l3=0x19}
0x2978…2999 Line {l1=0x1f, l2=» LÆSFELT(PICTURE(10));«, l3=0x1f}
0x2999…29ba Line {l1=0x1f, l2=» IF PROD.STKH>0.0 THEN«, l3=0x1f}
0x29ba…29e1 Line {l1=0x25, l2=» LØN:=TID*MEDARB.PERSTIME+«, l3=0x25}
0x29e1…2a1d Line {l1=0x3a, l2=» MÆNGDE/PROD.STKH*SYSTEM.AKKTIME(DATO(1)) «, l3=0x3a}
0x2a1d…2a2d Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2a2d…2a54 Line {l1=0x25, l2=» LØN:=TID*MEDARB.PERSTIME-«, l3=0x25}
0x2a54…2aa3 Line {l1=0x4d, l2=» MÆNGDE/ORDRE.ANTALBES*PROD.STKH/100.0*SYSTEM.AKKTIME(DATO(1)) «, l3=0x4d}
0x2aa3…2ab1 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2ab1…2ac0 Line {l1=0x0d, l2=» 4:BEGIN«, l3=0x0d}
0x2ac0…2adb Line {l1=0x19, l2=» RTYPE:=RTYPE*3;«, l3=0x19}
0x2adb…2afc Line {l1=0x1f, l2=» LÆSFELT(PICTURE(13));«, l3=0x1f}
0x2afc…2b2c Line {l1=0x2e, l2=» LØN:=TID*MEDARB.PERSTIME+MÆNGDE*LØN;«, l3=0x2e}
0x2b2c…2b39 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2b39…2b46 Line {l1=0x0b, l2=» END; «, l3=0x0b}
0x2b46…2b72 Line {l1=0x2a, l2=» GOTOXY(40,LINIER+3);WRITE(LØN:10:2) «, l3=0x2a}
0x2b72…2b7b Line {l1=0x07, l2=» END«, l3=0x07}
0x2b7b…2b81 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b81…2b89 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2b89…2b9d Line {l1=0x12, l2=»BEGIN (*REGLINIE*)«, l3=0x12}
0x2b9d…2bad Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x2bad…2bb6 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2bb6…2bd0 Line {l1=0x18, l2=» LÆSFELT(PICTURE(6));«, l3=0x18}
0x2bd0…2bd3 Line {l1=0x01, l2=» «, l3=0x01}
0x2bd3…2be9 Line {l1=0x14, l2=» HDATO1:=DATO(1);«, l3=0x14}
0x2be9…2c05 Line {l1=0x1a, l2=» DATO:=SYSTEM.DAGSDATO;«, l3=0x1a}
0x2c05…2c4b Line {l1=0x44, l2=» IF HDATO1=0 THEN BEGIN DATO(1):=DATO(1)+100;MEDARBNR:=10000 END;«, l3=0x44}
0x2c4b…2c5a Line {l1=0x0d, l2=» TID:=0.0;«, l3=0x0d}
0x2c5a…2c69 Line {l1=0x0d, l2=» RTYPE:=0;«, l3=0x0d}
0x2c69…2c7b Line {l1=0x10, l2=» MÆNGDE:=0.0;«, l3=0x10}
0x2c7b…2c8a Line {l1=0x0d, l2=» LØN:=0.0;«, l3=0x0d}
0x2c8a…2c97 Line {l1=0x0b, l2=» C:='A';«, l3=0x0b}
0x2c97…2cce Line {l1=0x35, l2=» INSERT(A);IF NOT (-IER IN (.0,7.)) THEN ERROR(A);«, l3=0x35}
0x2cce…2ce2 Line {l1=0x12, l2=» IF IER=-7 THEN«, l3=0x12}
0x2ce2…2ced Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2ced…2d05 Line {l1=0x16, l2=» POSTFOUND:=TRUE;«, l3=0x16}
0x2d05…2d1a Line {l1=0x13, l2=» GOTOXY(1,21);«, l3=0x13}
0x2d1a…2d53 Line {l1=0x37, l2=» WRITELN('ORDRE-EMNE-OPERATION-MEDARBEJDER-DATO ',«, l3=0x37}
0x2d53…2d84 Line {l1=0x2f, l2=» 'KOMBINATIONEN FINDES ALLEREDE');«, l3=0x2f}
0x2d84…2dbe Line {l1=0x38, l2=» WRITELN('Ønskes: Nyindtastning: N, Addition til ',«, l3=0x38}
0x2dbe…2def Line {l1=0x2f, l2=» 'eksisterende: A , Sletning: S');«, l3=0x2f}
0x2def…2dfd Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2dfd…2e0f Line {l1=0x10, l2=» D(23,1);«, l3=0x10}
0x2e0f…2e2e Line {l1=0x1d, l2=» WRITE('Vælg N/A/S ');«, l3=0x1d}
0x2e2e…2e3f Line {l1=0x0f, l2=» C:='N';«, l3=0x0f}
0x2e3f…2e51 Line {l1=0x10, l2=» EDIT(C) «, l3=0x10}
0x2e51…2e83 Line {l1=0x30, l2=» UNTIL C(1) IN (.'N','n','a','A','S','s'.);«, l3=0x30}
0x2e83…2e93 Line {l1=0x0e, l2=» D(21,3) «, l3=0x0e}
0x2e93…2eb3 Line {l1=0x1e, l2=» END ELSE POSTFOUND:=FALSE;«, l3=0x1e}
0x2eb3…2ee4 Line {l1=0x2f, l2=» IF C(1) IN (.'N','n'.) THEN EXIT(REGLINIE);«, l3=0x2f}
0x2ee4…2f00 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x2f00…2f1a Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x2f1a…2f36 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x2f36…2f5c Line {l1=0x24, l2=» PROD.SEKVENSN:=OMVPROD.SEKVENSN;«, l3=0x24}
0x2f5c…2f9e Line {l1=0x40, l2=» GETRECX(PROD.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(PROD.A);«, l3=0x40}
0x2f9e…2fbf Line {l1=0x1f, l2=» IF C(1) IN (.'A','a'.) THEN«, l3=0x1f}
0x2fbf…2fca Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2fca…2fe2 Line {l1=0x16, l2=» IF HDATO1>0 THEN«, l3=0x16}
0x2fe2…2fef Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2fef…3009 Line {l1=0x18, l2=» DATO(1):=HDATO1;«, l3=0x18}
0x3009…3027 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(7));«, l3=0x1c}
0x3027…3042 Line {l1=0x19, l2=» IF DATO(2)>0 THEN«, l3=0x19}
0x3042…306a Line {l1=0x26, l2=» TID:=(DATO(2)-DATO(1))/100.0«, l3=0x26}
0x306a…3078 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3078…3097 Line {l1=0x1d, l2=» TID:=DATO(1)/100.0;«, l3=0x1d}
0x3097…30b5 Line {l1=0x1c, l2=» GOTOXY(55,LINIER+3);«, l3=0x1c}
0x30b5…30ce Line {l1=0x17, l2=» WRITE(TID:8:2);«, l3=0x17}
0x30ce…30de Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x30de…30fd Line {l1=0x1d, l2=» LÆSFELT(PICTURE(8))«, l3=0x1d}
0x30fd…312b Line {l1=0x2c, l2=» UNTIL PRODFOUND OR (LENGTH(LINE)>0);«, l3=0x2c}
0x312b…313f Line {l1=0x12, l2=» RTYPE:=-1;«, l3=0x12}
0x313f…315f Line {l1=0x1e, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1e}
0x315f…316e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x316e…3183 Line {l1=0x13, l2=» RTYPE:=1;«, l3=0x13}
0x3183…31b2 Line {l1=0x2d, l2=» PROD.REAANTAL:=PROD.REAANTAL+MÆNGDE«, l3=0x2d}
0x31b2…31bf Line {l1=0x0b, l2=» END«, l3=0x0b}
0x31bf…31cd Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x31cd…31eb Line {l1=0x1c, l2=» IF PROD.STKH>=0 THEN«, l3=0x1c}
0x31eb…320c Line {l1=0x1f, l2=» MÆNGDE:=PROD.STKH*TID«, l3=0x1f}
0x320c…321a Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x321a…3252 Line {l1=0x36, l2=» MÆNGDE:=-TID*ORDRE.ANTALBES/PROD.STKH*100.0;«, l3=0x36}
0x3252…3283 Line {l1=0x2f, l2=» GOTOXY(32,LINIER+3);WRITE(MÆNGDE:6:-2);«, l3=0x2f}
0x3283…3293 Line {l1=0x0e, l2=» AFLØN;«, l3=0x0e}
0x3293…32aa Line {l1=0x15, l2=» HTYPE:=RTYPE;«, l3=0x15}
0x32aa…32be Line {l1=0x12, l2=» HLØN:=LØN;«, l3=0x12}
0x32be…32d2 Line {l1=0x12, l2=» HTID:=TID;«, l3=0x12}
0x32d2…32ec Line {l1=0x18, l2=» HMÆNGDE:=MÆNGDE;«, l3=0x18}
0x32ec…330c Line {l1=0x1e, l2=» DATO:=SYSTEM.DAGSDATO;«, l3=0x1e}
0x330c…3342 Line {l1=0x34, l2=» IF QJN('Skal linien accepteres') IN NEJ THEN«, l3=0x34}
0x3342…3351 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3351…336b Line {l1=0x18, l2=» D(LINIER+3,1);«, l3=0x18}
0x336b…338c Line {l1=0x1f, l2=» IF NOT POSTFOUND THEN«, l3=0x1f}
0x338c…339d Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x339d…33c0 Line {l1=0x21, l2=» GETRECX(A);CHECK0(A);«, l3=0x21}
0x33c0…33fe Line {l1=0x3c, l2=» DELETE(A);IF NOT (-IER IN (.0,2.)) THEN ERROR(A)«, l3=0x3c}
0x33fe…340e Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x340e…3428 Line {l1=0x18, l2=» EXIT(REGLINIE)«, l3=0x18}
0x3428…3436 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3436…3451 Line {l1=0x19, l2=» LINIER:=LINIER+1;«, l3=0x19}
0x3451…346d Line {l1=0x1a, l2=» CASE ABS(RTYPE) OF«, l3=0x1a}
0x346d…349e Line {l1=0x2f, l2=» 1:MEDARB.PRODTIME:=MEDARB.PRODTIME+TID;«, l3=0x2f}
0x349e…34af Line {l1=0x0f, l2=» 2:BEGIN«, l3=0x0f}
0x34af…34d2 Line {l1=0x21, l2=» IF PROD.STKH>0.0 THEN«, l3=0x21}
0x34d2…3513 Line {l1=0x3f, l2=» MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ+MÆNGDE/PROD.STKH«, l3=0x3f}
0x3513…3525 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x3525…3556 Line {l1=0x2f, l2=» MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ-«, l3=0x2f}
0x3556…358f Line {l1=0x37, l2=» MÆNGDE/ORDRE.ANTALBES*PROD.STKH/100.0;«, l3=0x37}
0x358f…35c2 Line {l1=0x31, l2=» MEDARB.AKKORDAR:=MEDARB.AKKORDAR+TID «, l3=0x31}
0x35c2…35d2 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x35d2…35e3 Line {l1=0x0f, l2=» 3:BEGIN«, l3=0x0f}
0x35e3…3616 Line {l1=0x31, l2=» MEDARB.AKKORDAR:=MEDARB.AKKORDAR+TID;«, l3=0x31}
0x3616…3649 Line {l1=0x31, l2=» MEDARB.AKKORDLØ:=MEDARB.AKKORDLØ+TID «, l3=0x31}
0x3649…3658 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x3658…3666 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3666…3685 Line {l1=0x1d, l2=» GETRECX(A);CHECK0(A);«, l3=0x1d}
0x3685…369c Line {l1=0x15, l2=» RTYPE:=HTYPE;«, l3=0x15}
0x369c…36b4 Line {l1=0x16, l2=» LØN:=LØN+HLØN;«, l3=0x16}
0x36b4…36cc Line {l1=0x16, l2=» TID:=TID+HTID;«, l3=0x16}
0x36cc…36ed Line {l1=0x1f, l2=» MÆNGDE:=MÆNGDE+HMÆNGDE;«, l3=0x1f}
0x36ed…370b Line {l1=0x1c, l2=» PUTREC(A);CHECK0(A) «, l3=0x1c}
0x370b…3716 Line {l1=0x09, l2=» END«, l3=0x09}
0x3716…3722 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x3722…3738 Line {l1=0x14, l2=» AFSLUTNING «, l3=0x14}
0x3738…3741 Line {l1=0x07, l2=» END«, l3=0x07}
0x3741…374b Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x374b…3756 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3756…3768 Line {l1=0x10, l2=» SLETLINIE;«, l3=0x10}
0x3768…377e Line {l1=0x14, l2=» EXIT(REGLINIE)«, l3=0x14}
0x377e…3788 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3788…37aa Line {l1=0x20, l2=» OMVRREGL.MEDARBNR:=MEDARBNR;«, l3=0x20}
0x37aa…37ca Line {l1=0x1e, l2=» OMVRREGL.ORDRENR:=ORDRENR;«, l3=0x1e}
0x37ca…37e8 Line {l1=0x1c, l2=» OMVRREGL.EMNENR:=EMNENR;«, l3=0x1c}
0x37e8…3808 Line {l1=0x1e, l2=» OMVRREGL.OPERANR:=OPERANR;«, l3=0x1e}
0x3808…3822 Line {l1=0x18, l2=» OMVRREGL.DATO:=DATO;«, l3=0x18}
0x3822…386b Line {l1=0x47, l2=» INSERT(OMVRREGL.A);IF NOT (-IER IN (.0,7.)) THEN ERROR(OMVRREGL.A);«, l3=0x47}
0x386b…38ab Line {l1=0x3e, l2=» PUTREC(PROD.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(PROD.A)«, l3=0x3e}
0x38ab…38b2 Line {l1=0x05, l2=» END«, l3=0x05}
0x38b2…38b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x38b8…38c0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x38c0…38d4 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x38d4…38e4 Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x38e4…38ee Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x38ee…38fc Line {l1=0x0c, l2=» NULPOST;«, l3=0x0c}
0x38fc…390e Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x390e…393a Line {l1=0x2a, l2=» WRITELN('REGISTRERING AF TIMESEDLER');«, l3=0x2a}
0x393a…394a Line {l1=0x0e, l2=» LINIER:=0;«, l3=0x0e}
0x394a…3978 Line {l1=0x2c, l2=» WRITELN('ORDRE EMNE OPERATION',«, l3=0x2c}
0x3978…39ab Line {l1=0x31, l2=» ' MÆNGDE LØN TID');«, l3=0x31}
0x39ab…39c5 Line {l1=0x18, l2=» LÆSFELT(PICTURE(1));«, l3=0x18}
0x39c5…39dd Line {l1=0x16, l2=» IF MEDARBNR>0 THEN«, l3=0x16}
0x39dd…39e8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x39e8…3a06 Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1c}
0x3a06…3a22 Line {l1=0x1a, l2=» MEDARB.NR:=MEDARBNR;«, l3=0x1a}
0x3a22…3a3c Line {l1=0x18, l2=» GETRECX(MEDARB.A);«, l3=0x18}
0x3a3c…3a52 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x3a52…3a73 Line {l1=0x1f, l2=» NONEXIST('Medarbejder')«, l3=0x1f}
0x3a73…3a7f Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x3a7f…3a8c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3a8c…3aa7 Line {l1=0x19, l2=» CHECK0(MEDARB.A);«, l3=0x19}
0x3aa7…3aea Line {l1=0x41, l2=» LÆSFELT(PICTURE(2));TID:=TID/100.0;SKRIVFELT(PICTURE(2));«, l3=0x41}
0x3aea…3b0a Line {l1=0x1e, l2=» DATO:=SYSTEM.DAGSDATO;«, l3=0x1e}
0x3b0a…3b29 Line {l1=0x1d, l2=» LÆSFELT(PICTURE(14));«, l3=0x1d}
0x3b29…3b49 Line {l1=0x1e, l2=» SYSTEM.DAGSDATO:=DATO;«, l3=0x1e}
0x3b49…3b78 Line {l1=0x2d, l2=» MEDARB.TOTTIMLØ:=MEDARB.TOTTIMLØ+TID;«, l3=0x2d}
0x3b78…3b88 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x3b88…3ba8 Line {l1=0x1e, l2=» MEDARBNR:=MEDARB.NR;«, l3=0x1e}
0x3ba8…3be2 Line {l1=0x38, l2=» IF LINIER>12 THEN BEGIN D(3,12);LINIER:=0 END;«, l3=0x38}
0x3be2…3c02 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(3));«, l3=0x1e}
0x3c02…3c20 Line {l1=0x1c, l2=» IF ORDRENR>0 THEN «, l3=0x1c}
0x3c20…3c31 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3c31…3c63 Line {l1=0x30, l2=» GOTOXY(1,LINIER+3);WRITE(ORDRENR:5);«, l3=0x30}
0x3c63…3c85 Line {l1=0x20, l2=» LÆSFELT(PICTURE(4));«, l3=0x20}
0x3c85…3cb7 Line {l1=0x30, l2=» GOTOXY(10,LINIER+3);WRITE(EMNENR:5);«, l3=0x30}
0x3cb7…3cd7 Line {l1=0x1e, l2=» ORDRE.NR:=ORDRENR;«, l3=0x1e}
0x3cd7…3cfa Line {l1=0x21, l2=» ORDRE.EMNENR:=EMNENR;«, l3=0x21}
0x3cfa…3d18 Line {l1=0x1c, l2=» GETREC(ORDRE.A);«, l3=0x1c}
0x3d18…3d53 Line {l1=0x39, l2=» IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);«, l3=0x39}
0x3d53…3d6f Line {l1=0x1a, l2=» IF IER=-6 THEN«, l3=0x1a}
0x3d6f…3d91 Line {l1=0x20, l2=» NONEXIST('Ordren')«, l3=0x20}
0x3d91…3da3 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x3da3…3db6 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x3db6…3dda Line {l1=0x22, l2=» LÆSFELT(PICTURE(5));«, l3=0x22}
0x3dda…3e10 Line {l1=0x34, l2=» GOTOXY(20,LINIER+3);WRITE(OPERANR:10);«, l3=0x34}
0x3e10…3e39 Line {l1=0x27, l2=» OMVPROD.ORDRENR:=ORDRENR;«, l3=0x27}
0x3e39…3e60 Line {l1=0x25, l2=» OMVPROD.EMNENR:=EMNENR;«, l3=0x25}
0x3e60…3e89 Line {l1=0x27, l2=» OMVPROD.OPERANR:=OPERANR;«, l3=0x27}
0x3e89…3ead Line {l1=0x22, l2=» OMVPROD.SEKVENSN:=0;«, l3=0x22}
0x3ead…3ed0 Line {l1=0x21, l2=» NEXTREC(OMVPROD.A);«, l3=0x21}
0x3ed0…3f11 Line {l1=0x3f, l2=» IF NOT (-IER IN (.1,2,9.)) THEN ERROR(OMVPROD.A);«, l3=0x3f}
0x3f11…3f29 Line {l1=0x16, l2=» CH:='J';«, l3=0x16}
0x3f29…3f49 Line {l1=0x1e, l2=» PRODFOUND:=TRUE;«, l3=0x1e}
0x3f49…3f79 Line {l1=0x2e, l2=» IF OMVPROD.OPERANR<>OPERANR THEN«, l3=0x2e}
0x3f79…3f8e Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x3f8e…3fb1 Line {l1=0x21, l2=» PRODFOUND:=FALSE;«, l3=0x21}
0x3fb1…3fcb Line {l1=0x18, l2=» D(22,1);«, l3=0x18}
0x3fcb…4014 Line {l1=0x47, l2=» WRITELN('Operationen findes ikke på forkalkulationen');«, l3=0x47}
0x4014…404f Line {l1=0x39, l2=» CH:=QJN('Ønskes registreringen fortsat');«, l3=0x39}
0x404f…4068 Line {l1=0x17, l2=» D(22,1)«, l3=0x17}
0x4068…407c Line {l1=0x12, l2=» END;«, l3=0x12}
0x407c…40a5 Line {l1=0x27, l2=» IF CH IN JA THEN REGLINIE«, l3=0x27}
0x40a5…40b7 Line {l1=0x10, l2=» END «, l3=0x10}
0x40b7…40c6 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x40c6…40e0 Line {l1=0x18, l2=» UNTIL ORDRENR=0;«, l3=0x18}
0x40e0…410b Line {l1=0x29, l2=» PUTREC(MEDARB.A);CHECK0(MEDARB.A)«, l3=0x29}
0x410b…4116 Line {l1=0x09, l2=» END«, l3=0x09}
0x4116…411f Line {l1=0x07, l2=» END«, l3=0x07}
0x411f…4133 Line {l1=0x12, l2=» UNTIL MEDARBNR=0«, l3=0x12}
0x4133…4139 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4139…4141 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4141…4154 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x4154…4166 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x4166…4178 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x4178…418c Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x418c…41a1 Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x41a1…41b5 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x41b5…41c5 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x41c5…41d1 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x41d1…41e6 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x41e6…41f1 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x41f1…4207 Line {l1=0x14, l2=» MEDARB.A(-4):=0; «, l3=0x14}
0x4207…421a Line {l1=0x11, l2=» POST.A(-4):=0; «, l3=0x11}
0x421a…422e Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x422e…424d Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0x424d…426c Line {l1=0x1d, l2=» OMVPROD.A(-4):=0; «, l3=0x1d}
0x426c…428b Line {l1=0x1d, l2=» OMVRREGL.A(-4):=0; «, l3=0x1d}
0x428b…429e Line {l1=0x11, l2=» ORDRE.A(-4):=0;«, l3=0x11}
0x429e…42b4 Line {l1=0x14, l2=» MEDARB.A(-3):=7; «, l3=0x14}
0x42b4…42cf Line {l1=0x19, l2=» POST.A(-3):=16;(*REGL*)«, l3=0x19}
0x42cf…42e3 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x42e3…42fb Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0x42fb…430f Line {l1=0x12, l2=» ORDRE.A(-3):=10;«, l3=0x12}
0x430f…4327 Line {l1=0x16, l2=» OMVPROD.A(-3):=13; «, l3=0x16}
0x4327…4340 Line {l1=0x17, l2=» OMVRREGL.A(-3):=23; «, l3=0x17}
0x4340…434b Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x434b…4379 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x4379…43a0 Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0x43a0…43b1 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x43b1…43d7 Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0x43d7…43ec Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x43ec…4413 Line {l1=0x25, l2=» IOPEN(MEDARB.A); CHECK0(MEDARB.A); «, l3=0x25}
0x4413…4436 Line {l1=0x21, l2=» IOPEN(POST.A); CHECK0(POST.A); «, l3=0x21}
0x4436…4459 Line {l1=0x21, l2=» IOPEN(PROD.A); CHECK0(PROD.A); «, l3=0x21}
0x4459…4482 Line {l1=0x27, l2=» IOPEN(OMVPROD.A); CHECK0(OMVPROD.A); «, l3=0x27}
0x4482…44a6 Line {l1=0x22, l2=» IOPEN(ORDRE.A); CHECK0(ORDRE.A);«, l3=0x22}
0x44a6…44d1 Line {l1=0x29, l2=» IOPEN(OMVRREGL.A); CHECK0(OMVRREGL.A); «, l3=0x29}
0x44d1…44de Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x44de…44f3 Line {l1=0x13, l2=» ICLOSE(MEDARB.A);«, l3=0x13}
0x44f3…4506 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x4506…451a Line {l1=0x12, l2=» ICLOSE(ORDRE.A);«, l3=0x12}
0x451a…452d Line {l1=0x11, l2=» ICLOSE(PROD.A);«, l3=0x11}
0x452d…4543 Line {l1=0x14, l2=» ICLOSE(OMVPROD.A);«, l3=0x14}
0x4543…455a Line {l1=0x15, l2=» ICLOSE(OMVRREGL.A);«, l3=0x15}
0x455a…4583 Line {l1=0x27, l2=» (*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x27}
0x4583…4593 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x4593…4599 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4599…45a1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x45a1…45a8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x45a8…45c2 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x45c2…45da Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x45da…45f0 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x45f0…4600 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x4600…4609 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4609…462c Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x462c…4638 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x4638…4688 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x4688…4698 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x4698…46d8 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x46d8…4728 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x4728…4741 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x4741…475b Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x475b…4779 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x4779…478a Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x478a…47ab Line {l1=0x1f, l2=» DESCNAVN:='TIDSPESC:P2:05:J';«, l3=0x1f}
0x47ab…47b7 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x47b7…47cf Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x47cf…47e8 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x47e8…4806 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x4806…481b Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x481b…4843 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x4843…4865 Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x4865…489a Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x489a…48a0 Line {l1=0x04, l2=»END.«, l3=0x04}
0x48a0…48c0 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x48c0…48e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x48e0…4900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4900…4920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 ┆ ┆
0x4920…4940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x4940…4960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x4960…4980 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┆
[…0x4…]
0x4a00…4a20 00 52 41 4e 53 52 45 47 4b 41 00 74 01 00 00 00 00 00 00 7c 01 0d 41 7c 00 26 00 00 00 00 00 00 ┆ RANSREGKA t ø Aø & ┆
0x4a20…4a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a40…4a60 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a60…4a80 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4a80…4aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4aa0…4ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 ┆ ┆
0x4ac0…4ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 ┆ ┆
0x4ae0…4b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b00…4b20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b20…4b40 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b40…4b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b60…4b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4b80…4ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 ┆ ┆
0x4ba0…4bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bc0…4be0 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4be0…4c00 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c00…4c20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c20…4c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4c40…4c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 ┆ ┆
0x4c60…4c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 ┆ ┆
0x4c80…4ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ca0…4cc0 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4cc0…4ce0 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ce0…4d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d00…4d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 ┆ ┆
0x4d20…4d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 ┆ ┆
0x4d40…4d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d60…4d80 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4d80…4da0 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4da0…4dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4dc0…4de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4de0…4e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 ┆ ┆
0x4e00…4e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e20…4e40 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e40…4e60 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e60…4e80 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4e80…4ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4ea0…4ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 20 20 20 20 20 20 ┆ ┆
0x4ec0…4ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 ┆ ┆
0x4ee0…4f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆ c┆