|
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: 68256 (0x10aa0)
Types: TextFile
Notes: Mikados_K
Names: »LIMPLANL.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMPLANL.K«
PROGRAM LIMPLANL;
(*$D-*)
(*RESSOURCE- OG ORDRE-PLANLÆGNING*)
(*$L-*)
CONST MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=8;
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 WRITE(' ':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=20;
(*@@*)
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+*)
RESSPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TSATSF,
SAMOMS,
SAMOMSSÅ,
SAMDB,
SAMDBSÅ,
KØBSPRIS,
SALGSPRI :REAL;
NR,
AFDELNR,
PRODTIM,
VEDLTIM,
OPSTILT,
OVERTIM,
REPTIME,
TOTALTI,
PRODTIMS,
VEDLTIMS,
OPSTILTS,
OVERTIMS,
REPTIMES,
TOTALTIS,
RESSTYPE :INTEGER;
DATOFLEV :LONGINT;
HYLDENR :INTEGER;
BETEGN :PACKED ARRAY (1..10) OF CHAR
END;
REGRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
GRUPNR,
NR :INTEGER
END;
EMNEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ÅRSFORBR,
NETTOVÆG,
BRUTTOVÆ,
SAMSALG,
DÆKBID,
DÆKBIDSÅ,
SAMSALGS :REAL;
NR,
FORMNR :INTEGER;
KUNDENR :LONGINT;
MASKINE :INTEGER;
TILDATO :LONGINT;
MATNR,
SVIND,
SMELTTIL,
STKHSA,
STKHBA :INTEGER;
BEMÆRK,
BETEGN,
ALTERNP :PACKED ARRAY (1..30) OF CHAR;
TEGNNR :PACKED ARRAY (1..20) OF CHAR
END;
OPERPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TILLÆG :REAL;
NR,
GRUPPE,
REBELAS :INTEGER;
BETEGN :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;
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;
REBEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
STARTDAG,
ORDRENR,
EMNENR,
OPERANR,
SEKVNR,
VARIGHED,
GRUPPE,
STTIME :INTEGER
END;
UGEDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
UGENR,
ARBDAGNR :INTEGER
END;
ARBEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR :INTEGER;
DATO :LONGINT;
UGENR,
ARBTIMER :INTEGER
END;
SYSRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
AKKTIME :ARRAY (1..9) OF REAL;
NR :INTEGER;
DAGSDATO,
PERSTDAT :LONGINT;
ARBTIMDA,
ORDRENR :INTEGER
END;
PLANPESC=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
RESSOURCE,
ORDRE,
EMNENR,
STARTUGE,
LINIENR,
UGE,
DAG,
TIME,
VARIGHED,
FRALINIE,
TILLINIE,
ØLEVUGE,
OPTION,
AFDELING,
GRUPPE,
FAKTOR :INTEGER
END;
REBEXTRA=RECORD
PLANLAGT:BOOLEAN;
BETEGN:PACKED ARRAY (1..10) OF CHAR;
BEKRÆLEV,
ØNSKLEV:INTEGER;
ANTALBES:REAL
END;
VAR FELT:NFELT;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
(*PRODPLAN:BOOLEAN;*)
OPTION,LINES,
UDE,ANTLINE,PSTARTDAG,DIRECTION,HUSK,HUSKTID,
I,J,ANTALFELTER:INTEGER;
LINE:STRING;
RESS:RESSPOST;
RESSGRUP:REGRPOST;
EMNE:EMNEPOST;
OPERA:OPERPOST;
PROD:PRODPOST;
ORDRE:ORDRPOST;
REBELAST:REBEPOST;
SYSTEM:SYSRPOST;
UGEDAG:UGEDPOST;
ARBEDAG:ARBEPOST;
POST:PLANPESC;
DAGSDATO,
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
(*$P*)
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(SYSTEM.A);
ICLOSE(RESS.A);
ICLOSE(RESSGRUP.A);
ICLOSE(EMNE.A);
ICLOSE(OPERA.A);
ICLOSE(ORDRE.A);
ICLOSE(PROD.A);
ICLOSE(REBELAST.A);
ICLOSE(UGEDAG.A);
ICLOSE(ARBEDAG.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 RESSPLAN;
VAR CH:STRING(1);
CHECKOK:BOOLEAN;
SKEMA:PACKED ARRAY (1..52) OF CHAR;
REBENR:ARRAY (1..20) OF INTEGER;
REBELIN:ARRAY (1..20) OF REBEPOST;
REBXTRA:ARRAY (1..20) OF REBEXTRA;
PROCEDURE RESSBILLEDE(FRA,TIL:INTEGER); (*FRA=0 => ALLE + HOVED*)
VAR I,AKTWEEK,AKTDAG,
REST,C:INTEGER;
ESC:PACKED ARRAY (1..2) OF CHAR;
CH:CHAR;
BEGIN
ESC:=' N';ESC(1):=CHR(27);
IF FRA=0 THEN
BEGIN
CLEARSCREEN;
SKEMA:='ü ü';
WRITE('Ressource:',RESS.NR:5,' ':5);
ARBEDAG.NR:=PSTARTDAG;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
AKTWEEK:=0;
FOR I:=1 TO 25 DO
BEGIN
IF AKTWEEK<>ARBEDAG.UGENR THEN
BEGIN
SKEMA(2*I-1):='ü';
AKTWEEK:=ARBEDAG.UGENR;
WRITE(ARBEDAG.UGENR MOD 100:2)
END
ELSE WRITE(' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(' Leveres');
WRITE('Nr Ordre Betegnelse ');
ARBEDAG.NR:=PSTARTDAG;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
AKTDAG:=0;
AKTWEEK:=0;
FOR I:=1 TO 25 DO
BEGIN
IF AKTWEEK<>ARBEDAG.UGENR THEN
BEGIN AKTDAG:=0; AKTWEEK:=ARBEDAG.UGENR END;
IF AKTDAG<5 THEN
BEGIN
AKTDAG:=AKTDAG+1;
WRITE(AKTDAG:2)
END
ELSE WRITE(' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(' Uge ant');
FRA:=1
END;
FOR I:=FRA TO TIL DO
WITH REBELIN(REBENR(I)),REBXTRA(REBENR(I)) DO
BEGIN
GOTOXY(1,I+2);
WRITE(I:2,ORDRENR:6,' ',BETEGN,SKEMA);
IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN
BEGIN
GOTOXY(21+2*(STARTDAG-PSTARTDAG),I+2);
IF STTIME>4 THEN WRITE(' ');
IF STARTDAG-PSTARTDAG+(VARIGHED-1) DIV 8<26 THEN
REST:=VARIGHED
ELSE
REST:=200-(STARTDAG-PSTARTDAG)*8;
CASE STTIME MOD 4 OF
0:BEGIN C:=40;REST:=REST-1 END;
2:CASE VARIGHED OF
1:BEGIN C:=36;REST:=REST-1 END;
2:BEGIN C:=38;REST:=REST-2 END;
OTHERWISE BEGIN C:=46;REST:=REST-3 END;
3:IF VARIGHED=1 THEN BEGIN C:=34;REST:=REST-1 END
ELSE BEGIN C:=42;REST:=REST-2 END;
OTHERWISE C:=0;
IF C>0 THEN
BEGIN
CH:=CHR(C);
WRITE(ESC,CH)
END;
CH:=CHR(47);
WHILE REST>3 DO
BEGIN
WRITE(ESC,CH);
REST:=REST-4
END;
CASE REST OF
1:C:=33;
2:C:=37;
3:C:=39;
OTHERWISE C:=0;
IF C>0 THEN
BEGIN
CH:=CHR(C);
WRITE(ESC,CH)
END
END;
GOTOXY(72,I+2);
IF BEKRÆLEV>0 THEN
WRITE(BEKRÆLEV MOD 100:2,'!')
ELSE
WRITE(ØNSKLEV MOD 100:2,' ');
WRITE(ANTALBES:5:-2)
END
END;
(*$P*)
PROCEDURE GETBELAST;
BEGIN
REBELAST.NR:=POST.RESSOURCE;
REBELAST.STARTDAG:=PSTARTDAG;
REBELAST.ORDRENR:=0;
NEXTREC(REBELAST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REBELAST.A);
IER:=0;
ANTLINE:=0;
UDE:=0; (*FLYTTET TIL ANDEN RESSOURCE*)
WHILE (IER=0) AND (REBELAST.NR=POST.RESSOURCE) AND
(REBELAST.STARTDAG-PSTARTDAG<25) AND (ANTLINE<20) DO
BEGIN
ANTLINE:=ANTLINE+1;
REBENR(ANTLINE):=ANTLINE;
(*$R-*)
MOVELEFT(REBELAST.A(1),REBELIN(ANTLINE).A(1),18);
(*$R+*)
EMNE.NR:=REBELAST.EMNENR;
GETREC(EMNE.A);CHECK0(EMNE.A);
MOVELEFT(EMNE.BETEGN(1),REBXTRA(ANTLINE).BETEGN(1),10);
ORDRE.NR:=REBELAST.ORDRENR;
ORDRE.EMNENR:=REBELAST.EMNENR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
REBXTRA(ANTLINE).BEKRÆLEV:=ORDRE.BEKRÆLEV;
IF ORDRE.BEKRÆLEV>0 THEN
REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.BEKRÆLEV
ELSE
REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.ØNSKLEV;
REBXTRA(ANTLINE).ANTALBES:=ORDRE.ANTALBES;
REBXTRA(ANTLINE).PLANLAGT:=FALSE;
NEXTREC(REBELAST.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A)
END;
(*$P*)
PROCEDURE ÆSTART;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆSTART);
LÆSFELT(PICTURE(6));
IF UGE IN (.1..20.) THEN
BEGIN
IF UGE>ANTLINE THEN EXIT(ÆSTART);
IF UGE<LINIENR THEN UGE:=UGE-1;
WITH REBELIN(REBENR(LINIENR)) DO
IF UGE=0 THEN
BEGIN
STARTDAG:=PSTARTDAG;
STTIME:=1
END
ELSE
BEGIN
STARTDAG:=REBELIN(REBENR(UGE)).STARTDAG+
REBELIN(REBENR(UGE)).VARIGHED DIV 8;
STTIME:=REBELIN(REBENR(UGE)).STTIME+
REBELIN(REBENR(UGE)).VARIGHED MOD 8;
IF STTIME>8 THEN
BEGIN
STARTDAG:=STARTDAG+1;
STTIME:=STTIME-8
END
END;
IF UGE>LINIENR THEN
BEGIN
HUSK:=REBENR(LINIENR);
FOR I:=LINIENR TO UGE-1 DO REBENR(I):=REBENR(I+1);
REBENR(UGE):=HUSK;
RESSBILLEDE(LINIENR,UGE)
END
ELSE
BEGIN
HUSK:=REBENR(LINIENR);
FOR I:=LINIENR DOWNTO UGE+2 DO REBENR(I):=REBENR(I-1);
REBENR(UGE+1):=HUSK;
RESSBILLEDE(UGE+1,LINIENR)
END
END
ELSE
BEGIN
LÆSFELT(PICTURE(7));
LÆSFELT(PICTURE(8));
WITH REBELIN(REBENR(LINIENR)) DO
BEGIN
HUSKTID:=8*STARTDAG+STTIME;
UGEDAG.UGENR:=UGE;
GETREC(UGEDAG.A);IF IER=-6 THEN EXIT(ÆSTART);CHECK0(UGEDAG.A);
STARTDAG:=UGEDAG.ARBDAGNR+DAG-1;
STTIME:=TIME;
IF HUSKTID<8*STARTDAG+STTIME THEN DIRECTION:=1 ELSE DIRECTION:=-1;
HUSKTID:=8*STARTDAG+STTIME;
I:=LINIENR;
IF ((I=1) AND (DIRECTION=-1))
OR ((I=ANTLINE) AND (DIRECTION=1)) THEN DIRECTION:=0;
HUSK:=REBENR(I);
WHILE DIRECTION*HUSKTID>
DIRECTION*(REBELIN(REBENR(I+DIRECTION)).STARTDAG*8+
REBELIN(REBENR(I+DIRECTION)).STTIME) DO
BEGIN
REBENR(I):=REBENR(I+DIRECTION);
I:=I+DIRECTION;
IF ((I=1) AND (DIRECTION=-1))
OR ((I=ANTLINE) AND (DIRECTION=1)) THEN DIRECTION:=0
END;
REBENR(I):=HUSK;
IF I<LINIENR THEN RESSBILLEDE(I,LINIENR) ELSE RESSBILLEDE(LINIENR,I)
END
END
END
END;
(*$P*)
PROCEDURE ÆVARIG;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆVARIG);
VARIGHED:=REBELIN(REBENR(LINIENR)).VARIGHED;
LÆSFELT(PICTURE(9));
REBELIN(REBENR(LINIENR)).VARIGHED:=VARIGHED;
RESSBILLEDE(LINIENR,LINIENR)
END
END;
(*$P*)
PROCEDURE ÆRESS;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆRESS);
HUSK:=POST.RESSOURCE;
LÆSFELT(PICTURE(1));
RESS.NR:=POST.RESSOURCE;
POST.RESSOURCE:=HUSK;
GETREC(RESS.A);IF IER=-6 THEN EXIT(ÆRESS) ELSE CHECK0(RESS.A);
REBELIN(REBENR(LINIENR)).NR:=RESS.NR;
HUSK:=REBENR(LINIENR);
FOR I:=LINIENR TO ANTLINE-1 DO REBENR(I):=REBENR(I+1);
REBENR(ANTLINE):=HUSK;
D(ANTLINE+2,1);
ANTLINE:=ANTLINE-1;
UDE:=UDE+1;
RESSBILLEDE(LINIENR,ANTLINE)
END
END;
(*$P*)
PROCEDURE SEKVUDL;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(10));IF FRALINIE>ANTLINE THEN EXIT(SEKVUDL);
IF FRALINIE=0 THEN
BEGIN
TILLINIE:=ANTLINE;
REBELIN(REBENR(1)).STARTDAG:=PSTARTDAG;
REBELIN(REBENR(1)).STTIME:=1;
FRALINIE:=1
END;
LÆSFELT(PICTURE(11));IF TILLINIE>ANTLINE THEN EXIT(SEKVUDL);
I:=FRALINIE;
IF FRALINIE<TILLINIE THEN
BEGIN
WHILE I<TILLINIE DO
BEGIN
WITH REBELIN(REBENR(I)) DO
HUSKTID:=STARTDAG*8+
STTIME+
VARIGHED;
WITH REBELIN(REBENR(I+1)) DO
BEGIN
STARTDAG:=(HUSKTID-1) DIV 8;
STTIME:=(HUSKTID-1) MOD 8 +1
END;
I:=I+1
END;
RESSBILLEDE(FRALINIE,TILLINIE)
END
ELSE
BEGIN
WHILE I>TILLINIE DO
BEGIN
WITH REBELIN(REBENR(I)) DO
HUSKTID:=STARTDAG*8+
STTIME;
WITH REBELIN(REBENR(I-1)) DO
BEGIN
HUSKTID:=HUSKTID-VARIGHED;
STARTDAG:=(HUSKTID-1) DIV 8;
STTIME:=(HUSKTID-1) MOD 8 +1
END;
I:=I-1
END;
RESSBILLEDE(TILLINIE,FRALINIE)
END;
END
END;
(*$P*)
PROCEDURE CHECKPLAN;
VAR K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;
PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;
PROCEDURE NU(ORDRE,EMNE,OPERA:INTEGER);
BEGIN
D(24,1);
WRITE('Nu behandles: Ordre',ORDRE:5,' Emne',EMNE:5,' Operation',OPERA:5)
END;
BEGIN (*CHECKPLAN*)
CHECKOK:=TRUE;
FOR I:=1 TO ANTLINE+UDE DO
WITH REBELIN(REBENR(I)) DO
IF NOT REBXTRA(REBENR(I)).PLANLAGT THEN
BEGIN
NU(ORDRENR,EMNENR,OPERANR);
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVNR;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000 THEN
BEGIN
(*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
J:=0;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE PROD.OPERANR<>OPERANR DO
BEGIN
J:=J+1;
PRODLINE(J,1):=PROD.SEKVENSN;
PRODLINE(J,2):=PROD.OPERANR;
PRODLINE(J,3):=PROD.STARTTID;
PRODLINE(J,4):=PROD.VARIGHED;
NEXTREC(PROD.A);CHECK0(PROD.A)
END;
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
WHILE J>0 DO
BEGIN
THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;
THISSLUT:=THISSTART+PRODLINE(J,4);
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF>0 THEN
J:=0
ELSE
BEGIN
NU(PROD.ORDRENR,PROD.EMNENR,PRODLINE(J,2));
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
FOR K:=I+1 TO ANTLINE+UDE DO
WITH REBELIN(REBENR(K)) DO
IF (ORDRENR=PROD.ORDRENR) AND
(EMNENR=PROD.EMNENR) AND
(SEKVNR=PRODLINE(J,1)) AND
(OPERANR=PRODLINE(J,2)) THEN
BEGIN
STARTDAG:=(LASTSTART-1) DIV 8;
STTIME:=(LASTSTART-1) MOD 8+1;
REBXTRA(REBENR(I)).PLANLAGT:=TRUE
END
END;
J:=J-1;
(*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,
DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND
PÅ PLADS SOM I ÆSTART*)
END;
IF J=0 THEN
BEGIN
ARBEDAG.NR:=(LASTSTART-1) DIV 8; (*!*)
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
IF ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)<
DAGSDATO(1)*10000.0+DAGSDATO(2) THEN
BEGIN
GOTOXY(1,23);
WRITE('Startdato ligger før dagsdato, RETURN ');
READLN;
CHECKOK:=FALSE;
EXIT(CHECKPLAN)
END
END
END;
IF STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+
PROD.STARTTID DIV 1000 THEN
BEGIN
(*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO
BEGIN
THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;
THISSLUT:=THISSTART+PROD.VARIGHED;
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF<0 THEN
IER:=-1
ELSE
BEGIN
NU(PROD.ORDRENR,PROD.EMNENR,PROD.OPERANR);
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
FOR K:=I+1 TO ANTLINE+UDE DO
WITH REBELIN(REBENR(K)) DO
IF (ORDRENR=PROD.ORDRENR) AND
(EMNENR=PROD.EMNENR) AND
(SEKVNR=PROD.SEKVENSN) AND
(OPERANR=PROD.OPERANR) THEN
BEGIN
STARTDAG:=(LASTSTART-1) DIV 8;
STTIME:=(LASTSTART-1) MOD 8+1;
REBXTRA(REBENR(I)).PLANLAGT:=TRUE
END;
(*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,
DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND
PÅ PLADS SOM I ÆSTART*)
NEXTREC(PROD.A)
END
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IF IER<>-1 THEN
BEGIN
ARBEDAG.NR:=(LASTSLUT-1) DIV 8;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
IF ARBEDAG.UGENR>REBXTRA(REBENR(I)).ØNSKLEV THEN
BEGIN
IF QJN('Skal leveringsuge rykkes') IN JA THEN
BEGIN
REBXTRA(REBENR(I)).ØNSKLEV:=ARBEDAG.UGENR;
IF REBXTRA(REBENR(I)).BEKRÆLEV>0 THEN
REBXTRA(REBENR(I)).BEKRÆLEV:=ARBEDAG.UGENR
END
ELSE
BEGIN
CHECKOK:=FALSE;
EXIT(CHECKPLAN)
END
END
END
END
END
ELSE
REBXTRA(REBENR(I)).PLANLAGT:=FALSE
END;
(*$P*)
PROCEDURE UDFPLAN;
VAR K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;
PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;
PROCEDURE NU(ORDRE,EMNE,OPERA:INTEGER);
BEGIN
D(24,1);
WRITE('Nu behandles: Ordre',ORDRE:5,' Emne',EMNE:5,' Operation',OPERA:5)
END;
PROCEDURE DESERVER(VAR RESSNR:INTEGER);
BEGIN
IF RESSNR>0 THEN
WITH REBELAST DO
BEGIN
RESS.NR:=RESSNR;
GETREC(RESS.A);CHECK0(RESS.A);
IF RESS.RESSTYPE>0 THEN
BEGIN
NR:=RESSNR;
GOTOXY(52,24);WRITE('Ressource',NR:5);
ORDRENR:=PROD.ORDRENR;
EMNENR:=PROD.EMNENR;
OPERANR:=PROD.OPERANR;
SEKVNR:=PROD.SEKVENSN;
STARTDAG:=PROD.STARTTID MOD 1000;
STTIME:=PROD.STARTTID DIV 1000;
VARIGHED:=PROD.VARIGHED;
GETRECX(A);CHECK0(A);
DELETE(A);CHECK0(A)
END
END
END;
(*$P*)
PROCEDURE RESERVER(VAR RESSNR:INTEGER);
BEGIN
IF RESSNR>0 THEN
WITH REBELAST DO
BEGIN
RESS.NR:=RESSNR;
GETREC(RESS.A);CHECK0(RESS.A);
IF RESS.RESSTYPE>0 THEN
BEGIN
NR:=RESSNR;
GOTOXY(52,24);WRITE('Ressource',NR:5);
ORDRENR:=PROD.ORDRENR;
EMNENR:=PROD.EMNENR;
OPERANR:=PROD.OPERANR;
SEKVNR:=PROD.SEKVENSN;
STARTDAG:=PROD.STARTTID MOD 1000;
STTIME:=PROD.STARTTID DIV 1000;
VARIGHED:=PROD.VARIGHED;
INSERT(A);CHECK0(A)
END
END
END;
(*$P*)
BEGIN
CHECKOK:=TRUE;
FOR I:=1 TO ANTLINE+UDE DO
WITH REBELIN(REBENR(I)) DO
IF NOT REBXTRA(REBENR(I)).PLANLAGT THEN
BEGIN
NU(ORDRENR,EMNENR,OPERANR);
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVNR;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
DESERVER(PROD.RESS1);
DESERVER(PROD.RESS2);
DESERVER(PROD.RESS3);
IF STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000 THEN
BEGIN
(*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
J:=0;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE PROD.OPERANR<>OPERANR DO
BEGIN
J:=J+1;
PRODLINE(J,1):=PROD.SEKVENSN;
PRODLINE(J,2):=PROD.OPERANR;
PRODLINE(J,3):=PROD.STARTTID;
PRODLINE(J,4):=PROD.VARIGHED;
NEXTREC(PROD.A);CHECK0(PROD.A)
END;
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
WHILE J>0 DO
BEGIN
THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;
THISSLUT:=THISSTART+PRODLINE(J,4);
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF>0 THEN
J:=0
ELSE
BEGIN
NU(ORDRENR,EMNENR,PRODLINE(J,2));
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=PRODLINE(J,1);
PROD.OPERANR:=PRODLINE(J,2);
GETRECX(PROD.A);CHECK0(PROD.A);
DESERVER(PROD.RESS1);
DESERVER(PROD.RESS2);
DESERVER(PROD.RESS3);
PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
FOR K:=I+1 TO ANTLINE+UDE DO
WITH REBELIN(REBENR(K)) DO
IF (ORDRENR=PROD.ORDRENR) AND
(EMNENR=PROD.EMNENR) AND
(SEKVNR=PROD.SEKVENSN) AND
(OPERANR=PROD.OPERANR) THEN
BEGIN
STARTDAG:=(LASTSTART-1) DIV 8;
STTIME:=(LASTSTART-1) MOD 8+1;
REBXTRA(REBENR(I)).PLANLAGT:=TRUE
END;
PUTREC(PROD.A);CHECK0(PROD.A)
END;
J:=J-1
(*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,
DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND
PÅ PLADS SOM I ÆSTART*)
END
END;
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVNR;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+
PROD.STARTTID DIV 1000 THEN
BEGIN
(*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
NEXTRECX(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO
BEGIN
THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;
THISSLUT:=THISSTART+PROD.VARIGHED;
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF<0 THEN
IER:=-1
ELSE
BEGIN
NU(PROD.ORDRENR,PROD.EMNENR,PROD.OPERANR);
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
DESERVER(PROD.RESS1);
DESERVER(PROD.RESS2);
DESERVER(PROD.RESS3);
PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
FOR K:=I+1 TO ANTLINE+UDE DO
WITH REBELIN(REBENR(K)) DO
IF (ORDRENR=PROD.ORDRENR) AND
(EMNENR=PROD.EMNENR) AND
(SEKVNR=PROD.SEKVENSN) AND
(OPERANR=PROD.OPERANR) THEN
BEGIN
STARTDAG:=(LASTSTART-1) DIV 8;
STTIME:=(LASTSTART-1) MOD 8+1;
REBXTRA(REBENR(I)).PLANLAGT:=TRUE
END;
PUTREC(PROD.A);CHECK0(PROD.A);
(*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,
DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND
PÅ PLADS SOM I ÆSTART*)
NEXTRECX(PROD.A)
END
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A)
END;
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVNR;
PROD.OPERANR:=OPERANR;
GETRECX(PROD.A);CHECK0(PROD.A);
PROD.STARTTID:=STARTDAG+1000*STTIME;
PROD.VARIGHED:=VARIGHED;
IF PROD.RESS1=POST.RESSOURCE THEN PROD.RESS1:=NR;
IF PROD.RESS2=POST.RESSOURCE THEN PROD.RESS2:=NR;
IF PROD.RESS3=POST.RESSOURCE THEN PROD.RESS3:=NR;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
PUTREC(PROD.A);CHECK0(PROD.A);
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=EMNENR;
GETRECX(ORDRE.A);CHECK0(ORDRE.A);
ORDRE.BEKRÆLEV:=REBXTRA(REBENR(I)).ØNSKLEV;
PUTREC(ORDRE.A);CHECK0(ORDRE.A)
END
END;
(*$P*)
PROCEDURE AFSLUT;
BEGIN
IF QJN('Ønskes check og ændringer foretaget') IN JA THEN
BEGIN
GETRECX(SYSTEM.A);CHECK0(SYSTEM.A);
CHECKPLAN;
IF CHECKOK THEN
BEGIN
UDFPLAN;
GETBELAST;
RESSBILLEDE(0,ANTLINE)
END
ELSE CH(1):='5';
PUTREC(SYSTEM.A);CHECK0(SYSTEM.A)
END
END;
(*$P*)
BEGIN (*RESSPLAN*)
CHECKOK:=FALSE;
REPEAT
LÆSFELT(PICTURE(1));
IF POST.RESSOURCE=0 THEN EXIT(RESSPLAN);
RESS.NR:=POST.RESSOURCE;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=-6 THEN BEGIN NONEXIST('Ressourcen'); EXIT(RESSPLAN) END;
GETBELAST;
RESSBILLEDE(0,ANTLINE);
REPEAT
D(23,2);
WRITELN('Ændring af 1: Starttid 2: Varighed 3: Ressource',
' Vælg 1-6');
WRITE('4: Sekventiel udlægning 5: Check plan 6: Afslut');
REPEAT
CH:='1';
GOTOXY(75,23);
EDIT(CH)
UNTIL CH(1) IN (.'1'..'6'.);
CASE CH(1) OF
'1':ÆSTART;
'2':ÆVARIG;
'3':ÆRESS;
'4':SEKVUDL;
'5':BEGIN CHECKPLAN;RESSBILLEDE(0,ANTLINE) END;
'6':AFSLUT
END
UNTIL CH(1)='6'
UNTIL POST.RESSOURCE=0
END;
(*$P*)
PROCEDURE ORDREPLAN;
VAR CH:STRING(1);
CHECKOK:BOOLEAN;
SKEMA:PACKED ARRAY (1..52) OF CHAR;
REBXTRA:ARRAY (1..20) OF REBEXTRA;
ORDENR:ARRAY (1..20) OF INTEGER;
ORDELIN:ARRAY (1..20) OF PRODPOST;
PROCEDURE ORDBILLEDE(FRA,TIL:INTEGER); (*FRA=0 => ALLE + HOVED*)
VAR I,AKTWEEK,AKTDAG,STARTDAG,STTIME,
REST,C:INTEGER;
ESC:PACKED ARRAY (1..2) OF CHAR;
CH:CHAR;
BEGIN
ESC:=' N';ESC(1):=CHR(27);
IF FRA=0 THEN
BEGIN
CLEARSCREEN;
SKEMA:='ü ü';
WRITE('Ordrenr :',ORDRE.NR:5,' ':5);
ARBEDAG.NR:=PSTARTDAG;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
AKTWEEK:=0;
FOR I:=1 TO 25 DO
BEGIN
IF AKTWEEK<>ARBEDAG.UGENR THEN
BEGIN
SKEMA(2*I-1):='ü';
AKTWEEK:=ARBEDAG.UGENR;
WRITE(ARBEDAG.UGENR MOD 100:2)
END
ELSE WRITE(' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(' Leveres');
WRITE('Nr Opera Betegnelse ');
ARBEDAG.NR:=PSTARTDAG;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
AKTDAG:=0;
AKTWEEK:=0;
FOR I:=1 TO 25 DO
BEGIN
IF AKTWEEK<>ARBEDAG.UGENR THEN
BEGIN AKTDAG:=0; AKTWEEK:=ARBEDAG.UGENR END;
IF AKTDAG<5 THEN
BEGIN
AKTDAG:=AKTDAG+1;
WRITE(AKTDAG:2)
END
ELSE WRITE(' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(' Uge ant');
FRA:=1
END;
FOR I:=FRA TO TIL DO
WITH ORDELIN(ORDENR(I)),REBXTRA(ORDENR(I)) DO
BEGIN
STARTDAG:=STARTTID MOD 1000;STTIME:=STARTTID DIV 1000;
GOTOXY(1,I+2);
WRITE(I:2,OPERANR:6,' ',BETEGN,SKEMA);
IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN
BEGIN
GOTOXY(21+2*(STARTDAG-PSTARTDAG),I+2);
IF STTIME>4 THEN WRITE(' ');
IF STARTDAG-PSTARTDAG+(VARIGHED-1) DIV 8<26 THEN
REST:=VARIGHED
ELSE
REST:=200-(STARTDAG-PSTARTDAG)*8;
CASE STTIME MOD 4 OF
0:BEGIN C:=40;REST:=REST-1 END;
2:CASE VARIGHED OF
1:BEGIN C:=36;REST:=REST-1 END;
2:BEGIN C:=38;REST:=REST-2 END;
OTHERWISE BEGIN C:=46;REST:=REST-3 END;
3:IF VARIGHED=1 THEN BEGIN C:=34;REST:=REST-1 END
ELSE BEGIN C:=42;REST:=REST-2 END;
OTHERWISE C:=0;
IF C>0 THEN
BEGIN
CH:=CHR(C);
WRITE(ESC,CH)
END;
CH:=CHR(47);
WHILE REST>3 DO
BEGIN
WRITE(ESC,CH);
REST:=REST-4
END;
CASE REST OF
1:C:=33;
2:C:=37;
3:C:=39;
OTHERWISE C:=0;
IF C>0 THEN
BEGIN
CH:=CHR(C);
WRITE(ESC,CH)
END
END;
GOTOXY(72,I+2);
IF BEKRÆLEV>0 THEN
WRITE(BEKRÆLEV MOD 100:2,'!')
ELSE
WRITE(ØNSKLEV MOD 100:2,' ');
WRITE(ORDRE.ANTALBES:5:-2)
END
END;
(*$P*)
PROCEDURE GETPROD;
BEGIN
PROD.ORDRENR:=POST.ORDRE;
PROD.EMNENR:=POST.EMNENR;
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
UDE:=0;
ANTLINE:=0;
WHILE (IER=0) AND (PROD.ORDRENR=POST.ORDRE) AND (PROD.EMNENR=POST.EMNENR)
AND (PROD.STARTTID MOD 1000-PSTARTDAG<25) AND (ANTLINE<20) DO
BEGIN
IF PROD.STARTTID MOD 1000>=PSTARTDAG THEN
BEGIN
ANTLINE:=ANTLINE+1;
ORDENR(ANTLINE):=ANTLINE;
(*$R-*)
MOVELEFT(PROD.A(1),ORDELIN(ANTLINE).A(1),42);
(*$R+*)
OPERA.NR:=PROD.OPERANR;
GETREC(OPERA.A);CHECK0(OPERA.A);
MOVELEFT(OPERA.BETEGN(1),REBXTRA(ANTLINE).BETEGN(1),10);
REBXTRA(ANTLINE).BEKRÆLEV:=ORDRE.BEKRÆLEV;
IF ORDRE.BEKRÆLEV>0 THEN
REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.BEKRÆLEV
ELSE
REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.ØNSKLEV;
REBXTRA(ANTLINE).PLANLAGT:=FALSE;
END;
NEXTREC(PROD.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(PROD.A)
END;
(*$P*)
PROCEDURE ÆSTART;
VAR GSTTIME,STTIME,DIFF:INTEGER;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆSTART);
LÆSFELT(PICTURE(6));
IF UGE IN (.1..20.) THEN
BEGIN
IF (UGE>ANTLINE) OR
(UGE=LINIENR) OR (UGE>LINIENR+1) OR (UGE<LINIENR-1) THEN EXIT(ÆSTART);
STTIME:=ORDELIN(ORDENR(UGE)).STARTTID DIV 1000+
ORDELIN(ORDENR(UGE)).STARTTID MOD 1000*8;
DIFF:=ORDELIN(ORDENR(UGE)).VARIGHED-
ORDELIN(ORDENR(LINIENR)).VARIGHED;
IF DIFF*(UGE-LINIENR)<0 THEN STTIME:=STTIME+DIFF
END
ELSE
BEGIN
LÆSFELT(PICTURE(7));
LÆSFELT(PICTURE(8));
UGEDAG.UGENR:=UGE;
GETREC(UGEDAG.A);IF IER=-6 THEN EXIT(ÆSTART);CHECK0(UGEDAG.A);
DIFF:=UGEDAG.ARBDAGNR+DAG-1;
IF (DIFF<PSTARTDAG) OR (DIFF>PSTARTDAG+25) THEN EXIT(ÆSTART);
STTIME:=DIFF*8+TIME;
GSTTIME:=ORDELIN(ORDENR(LINIENR)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR)).STARTTID MOD 1000*8;
IF (STTIME>GSTTIME) AND (LINIENR<ANTLINE) THEN
BEGIN
IF STTIME>ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8 THEN
STTIME:=ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8;
DIFF:=ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8+
ORDELIN(ORDENR(LINIENR+1)).VARIGHED-STTIME-
ORDELIN(ORDENR(LINIENR)).VARIGHED;
IF DIFF<0 THEN STTIME:=STTIME+DIFF
END;
IF (STTIME<GSTTIME) AND (LINIENR>1) THEN
BEGIN
IF STTIME<ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8 THEN
STTIME:=ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8;
DIFF:=ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8+
ORDELIN(ORDENR(LINIENR-1)).VARIGHED-STTIME-
ORDELIN(ORDENR(LINIENR)).VARIGHED;
IF DIFF>0 THEN STTIME:=STTIME+DIFF
END
END;
ORDELIN(ORDENR(LINIENR)).STARTTID:=
(STTIME-1) DIV 8+((STTIME-1) MOD 8+1)*1000;
ORDBILLEDE(LINIENR,LINIENR)
END
END;
(*$P*)
PROCEDURE ÆVARIG;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆVARIG);
VARIGHED:=ORDELIN(ORDENR(LINIENR)).VARIGHED;
LÆSFELT(PICTURE(9));
IF (LINIENR<ANTLINE) AND
(VARIGHED>ORDELIN(ORDENR(LINIENR)).VARIGHED) THEN
IF (ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8+
ORDELIN(ORDENR(LINIENR+1)).VARIGHED)<
(ORDELIN(ORDENR(LINIENR)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR)).STARTTID MOD 1000*8+
VARIGHED) THEN EXIT(ÆVARIG);
IF (LINIENR>1) AND
(VARIGHED<ORDELIN(ORDENR(LINIENR)).VARIGHED) THEN
IF (ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8+
ORDELIN(ORDENR(LINIENR-1)).VARIGHED)>
(ORDELIN(ORDENR(LINIENR)).STARTTID DIV 1000+
ORDELIN(ORDENR(LINIENR)).STARTTID MOD 1000*8+
VARIGHED) THEN EXIT(ÆVARIG);
ORDELIN(ORDENR(LINIENR)).VARIGHED:=VARIGHED;
ORDBILLEDE(LINIENR,LINIENR)
END
END;
(*$P*)
PROCEDURE SEKVUDL;
VAR THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;
BEGIN
WITH POST DO
BEGIN
LÆSFELT(PICTURE(10));IF FRALINIE>ANTLINE THEN EXIT(SEKVUDL);
IF FRALINIE=0 THEN
BEGIN
TILLINIE:=ANTLINE;
ORDELIN(ORDENR(1)).STARTTID:=PSTARTDAG+1000;
FRALINIE:=1
END;
LÆSFELT(PICTURE(11));IF TILLINIE>ANTLINE THEN EXIT(SEKVUDL);
I:=FRALINIE;
IF FRALINIE<TILLINIE THEN
BEGIN
WHILE I<TILLINIE DO
BEGIN
WITH ORDELIN(ORDENR(I)) DO
HUSKTID:=STARTTID MOD 1000*8+
STARTTID DIV 1000+
VARIGHED;
ORDELIN(ORDENR(I+1)).STARTTID:=(HUSKTID-1) DIV 8 +
((HUSKTID-1) MOD 8+1)*1000;
I:=I+1
END;
LASTSTART:=HUSKTID;
LASTSLUT:=ORDELIN(ORDENR(TILLINIE)).VARIGHED+LASTSTART;
I:=TILLINIE+1;
WHILE I<=ANTLINE DO
WITH ORDELIN(ORDENR(I)) DO
BEGIN
THISSTART:=STARTTID MOD 1000*8+STARTTID DIV 1000;
THISSLUT:=THISSTART+VARIGHED;
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF>0 THEN
BEGIN
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;
I:=I+1
END
ELSE I:=ANTLINE+1
END;
ORDBILLEDE(FRALINIE,ANTLINE)
END
ELSE
BEGIN
WHILE I>TILLINIE DO
BEGIN
WITH ORDELIN(ORDENR(I)) DO
HUSKTID:=STARTTID MOD 1000*8+STARTTID DIV 1000;
WITH ORDELIN(ORDENR(I-1)) DO
BEGIN
HUSKTID:=HUSKTID-VARIGHED;
STARTTID:=(HUSKTID-1) DIV 8 +
((HUSKTID-1) MOD 8+1)*1000
END;
I:=I-1
END;
LASTSTART:=HUSKTID;
LASTSLUT:=ORDELIN(ORDENR(TILLINIE)).VARIGHED+LASTSTART;
I:=TILLINIE-1;
WHILE I>0 DO
WITH ORDELIN(ORDENR(I)) DO
BEGIN
THISSTART:=STARTTID MOD 1000*8+STARTTID DIV 1000;
THISSLUT:=THISSTART+VARIGHED;
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF<0 THEN
BEGIN
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;
I:=I-1
END
ELSE I:=0
END;
ORDBILLEDE(1,FRALINIE)
END;
END
END;
(*$P*)
PROCEDURE CHECKPLAN;
VAR STARTDAG,STTIME,K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;
PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;
PROCEDURE NU(OPERA:INTEGER);
BEGIN
D(24,1);
WRITE('Nu behandles: Operation',OPERA:5)
END;
BEGIN (*CHECKPLAN*)
CHECKOK:=TRUE;
WITH ORDELIN(ORDENR(1)) DO
BEGIN
STARTDAG:=STARTTID MOD 1000;
STTIME:=STARTTID DIV 1000;
NU(OPERANR);
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVENSN;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000 THEN
BEGIN
(*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
J:=0;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE PROD.OPERANR<>OPERANR DO
BEGIN
J:=J+1;
PRODLINE(J,1):=PROD.SEKVENSN;
PRODLINE(J,2):=PROD.OPERANR;
PRODLINE(J,3):=PROD.STARTTID;
PRODLINE(J,4):=PROD.VARIGHED;
NEXTREC(PROD.A);CHECK0(PROD.A)
END;
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
WHILE J>0 DO
BEGIN
THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;
THISSLUT:=THISSTART+PRODLINE(J,4);
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF>0 THEN
J:=0
ELSE
BEGIN
NU(PRODLINE(J,2));
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF
END;
J:=J-1
END;
IF J=0 THEN
BEGIN
ARBEDAG.NR:=(LASTSTART-1) DIV 8; (*!*)
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
IF ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)<
DAGSDATO(1)*10000.0+DAGSDATO(2) THEN
BEGIN
GOTOXY(1,23);
WRITE('Startdato ligger før dagsdato, RETURN ');
READLN;
CHECKOK:=FALSE;
EXIT(CHECKPLAN)
END
END
END;
END;
WITH ORDELIN(ORDENR(ANTLINE)) DO
BEGIN
STARTDAG:=STARTTID MOD 1000;
STTIME:=STARTTID DIV 1000;
NU(OPERANR);
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVENSN;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+
PROD.STARTTID DIV 1000 THEN
BEGIN
(*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO
BEGIN
THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;
THISSLUT:=THISSTART+PROD.VARIGHED;
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF<0 THEN
IER:=-1
ELSE
BEGIN
NU(PROD.OPERANR);
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
NEXTREC(PROD.A)
END
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IF IER<>-1 THEN
BEGIN
ARBEDAG.NR:=(LASTSLUT-1) DIV 8;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
IF ARBEDAG.UGENR>REBXTRA(ORDENR(ANTLINE)).ØNSKLEV THEN
BEGIN
IF QJN('Skal leveringsuge rykkes') IN JA THEN
FOR I:=1 TO ANTLINE DO
BEGIN
REBXTRA(ORDENR(I)).ØNSKLEV:=ARBEDAG.UGENR;
IF REBXTRA(ORDENR(I)).BEKRÆLEV>0 THEN
REBXTRA(ORDENR(I)).BEKRÆLEV:=ARBEDAG.UGENR
END
ELSE
BEGIN
CHECKOK:=FALSE;
EXIT(CHECKPLAN)
END
END
END
END
END
END;
(*$P*)
PROCEDURE UDFPLAN;
VAR STARTDAG,STTIME,K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;
PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;
PROCEDURE NU(OPERA:INTEGER);
BEGIN
D(24,1);
WRITE('Nu behandles: Operation',OPERA:5)
END;
PROCEDURE DESERVER(VAR RESSNR:INTEGER);
BEGIN
IF RESSNR>0 THEN
WITH REBELAST DO
BEGIN
RESS.NR:=RESSNR;
GETREC(RESS.A);CHECK0(RESS.A);
IF RESS.RESSTYPE>0 THEN
BEGIN
NR:=RESSNR;
GOTOXY(31,24);WRITE('Ressource',NR:5);
ORDRENR:=PROD.ORDRENR;
EMNENR:=PROD.EMNENR;
OPERANR:=PROD.OPERANR;
SEKVNR:=PROD.SEKVENSN;
STARTDAG:=PROD.STARTTID MOD 1000;
STTIME:=PROD.STARTTID DIV 1000;
VARIGHED:=PROD.VARIGHED;
GETRECX(A);CHECK0(A);
DELETE(A);CHECK0(A)
END
END
END;
(*$P*)
PROCEDURE RESERVER(VAR RESSNR:INTEGER);
BEGIN
IF RESSNR>0 THEN
WITH REBELAST DO
BEGIN
RESS.NR:=RESSNR;
GETREC(RESS.A);CHECK0(RESS.A);
IF RESS.RESSTYPE>0 THEN
BEGIN
NR:=RESSNR;
ORDRENR:=PROD.ORDRENR;
EMNENR:=PROD.EMNENR;
OPERANR:=PROD.OPERANR;
SEKVNR:=PROD.SEKVENSN;
STARTDAG:=PROD.STARTTID MOD 1000;
STTIME:=PROD.STARTTID DIV 1000;
VARIGHED:=PROD.VARIGHED;
INSERT(A);CHECK0(A)
END
END
END;
(*$P*)
BEGIN
FOR I:=1 TO ANTLINE DO
WITH ORDELIN(ORDENR(I)) DO
BEGIN
STARTDAG:=STARTTID MOD 1000;
STTIME:=STARTTID DIV 1000;
NU(OPERANR);
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVENSN;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
DESERVER(PROD.RESS1);
DESERVER(PROD.RESS2);
DESERVER(PROD.RESS3);
IF (STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000)
AND (I=1) THEN
BEGIN
(*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
J:=0;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE PROD.OPERANR<>OPERANR DO
BEGIN
J:=J+1;
PRODLINE(J,1):=PROD.SEKVENSN;
PRODLINE(J,2):=PROD.OPERANR;
PRODLINE(J,3):=PROD.STARTTID;
PRODLINE(J,4):=PROD.VARIGHED;
NEXTREC(PROD.A);CHECK0(PROD.A)
END;
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
WHILE J>0 DO
BEGIN
THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;
THISSLUT:=THISSTART+PRODLINE(J,4);
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF>0 THEN
J:=0
ELSE
BEGIN
NU(PRODLINE(J,2));
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=PRODLINE(J,1);
PROD.OPERANR:=PRODLINE(J,2);
GETRECX(PROD.A);CHECK0(PROD.A);
DESERVER(PROD.RESS1);
DESERVER(PROD.RESS2);
DESERVER(PROD.RESS3);
PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
PUTREC(PROD.A);CHECK0(PROD.A)
END;
J:=J-1
END
END;
STARTDAG:=STARTTID MOD 1000;
STTIME:=STARTTID DIV 1000;
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVENSN;
PROD.OPERANR:=OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF (STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+
PROD.STARTTID DIV 1000) AND (I=ANTLINE) THEN
BEGIN
(*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)
LASTSTART:=STARTDAG*8+STTIME;
LASTSLUT:=LASTSTART+VARIGHED;
NEXTRECX(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO
BEGIN
THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;
THISSLUT:=THISSTART+PROD.VARIGHED;
DIFF:=LASTSTART-THISSTART;
IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;
IF DIFF<0 THEN
IER:=-1
ELSE
BEGIN
NU(PROD.OPERANR);
LASTSTART:=THISSTART+DIFF;
LASTSLUT:=THISSLUT+DIFF;
DESERVER(PROD.RESS1);
DESERVER(PROD.RESS2);
DESERVER(PROD.RESS3);
PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
PUTREC(PROD.A);CHECK0(PROD.A);
NEXTRECX(PROD.A)
END
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A)
END;
PROD.ORDRENR:=ORDRENR;
PROD.EMNENR:=EMNENR;
PROD.SEKVENSN:=SEKVENSN;
PROD.OPERANR:=OPERANR;
GETRECX(PROD.A);CHECK0(PROD.A);
PROD.STARTTID:=STARTTID;
PROD.VARIGHED:=VARIGHED;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
PUTREC(PROD.A);CHECK0(PROD.A);
IF I=ANTLINE THEN
BEGIN
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=EMNENR;
GETRECX(ORDRE.A);CHECK0(ORDRE.A);
ORDRE.BEKRÆLEV:=REBXTRA(ORDENR(I)).ØNSKLEV;
PUTREC(ORDRE.A);CHECK0(ORDRE.A)
END
END
END;
(*$P*)
PROCEDURE AFSLUT;
BEGIN
IF QJN('Ønskes check og ændringer foretaget') IN JA THEN
BEGIN
GETRECX(SYSTEM.A);CHECK0(SYSTEM.A);
CHECKPLAN;
IF CHECKOK THEN
BEGIN
UDFPLAN;
GETPROD;
ORDBILLEDE(0,ANTLINE)
END
ELSE CH(1):='4';
PUTREC(SYSTEM.A);CHECK0(SYSTEM.A)
END
END;
(*$P*)
BEGIN (*ORDREPLAN*)
CHECKOK:=FALSE;
REPEAT
LÆSFELT(PICTURE(2));
IF POST.ORDRE=0 THEN EXIT(ORDREPLAN);
LÆSFELT(PICTURE(3));
ORDRE.NR:=POST.ORDRE;
ORDRE.EMNENR:=POST.EMNENR;
GETREC(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);
IF IER=-6 THEN BEGIN NONEXIST('Ordren'); EXIT(ORDREPLAN) END;
GETPROD;
ORDBILLEDE(0,ANTLINE);
REPEAT
D(23,2);
WRITELN('Ændring af 1: Starttid 2: Varighed ',
' Vælg 1-5');
WRITE('3: Sekventiel udlægning 4: Check plan 5: Afslut');
REPEAT
CH:='1';
GOTOXY(75,23);
EDIT(CH)
UNTIL CH(1) IN (.'1'..'5'.);
CASE CH(1) OF
'1':ÆSTART;
'2':ÆVARIG;
'3':SEKVUDL;
'4':BEGIN CHECKPLAN;ORDBILLEDE(0,ANTLINE) END;
'5':AFSLUT
END
UNTIL CH(1)='5'
UNTIL POST.ORDRE=0
END;
(*$P*)
PROCEDURE UDLÆGORDRE;
VAR VARIGHED,TIDSFORB,ØLEVDAG,DAGE,TIMER,STARTTIME,STARTDAY :INTEGER;
PROCEDURE RESERVER(VAR RESSNR:INTEGER);
BEGIN
IF RESSNR<0 THEN
WITH RESSGRUP DO
BEGIN
GRUPNR:=-RESSNR;
NR:=0;
REBELAST.GRUPPE:=GRUPNR;
NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);
IF GRUPNR=-RESSNR THEN RESSNR:=NR
END
ELSE REBELAST.GRUPPE:=0;
IF RESSNR>0 THEN
WITH REBELAST DO
BEGIN
RESS.NR:=RESSNR;
GETREC(RESS.A);CHECK0(RESS.A);
IF RESS.RESSTYPE>0 THEN
BEGIN
NR:=RESSNR;
ORDRENR:=PROD.ORDRENR;
EMNENR:=PROD.EMNENR;
OPERANR:=PROD.OPERANR;
SEKVNR:=PROD.SEKVENSN;
STARTDAG:=PROD.STARTTID MOD 1000;
STTIME:=PROD.STARTTID DIV 1000;
VARIGHED:=PROD.VARIGHED;
INSERT(A);CHECK0(A)
END
END
END;
(*$P*)
BEGIN (*UDLÆGORDRE*)
REPEAT
LÆSFELT(PICTURE(2));
IF POST.ORDRE=0 THEN EXIT(UDLÆGORDRE);
LÆSFELT(PICTURE(3));
ORDRE.NR:=POST.ORDRE;
ORDRE.EMNENR:=POST.EMNENR;
GETRECX(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);
IF IER=-6 THEN
NONEXIST('Ordren')
ELSE
BEGIN
IF ORDRE.BEKRÆLEV<>0 THEN
BEGIN
D(23,1);
WRITE('Ordren er allerede udlagt');
READLN
END
ELSE
WITH PROD DO
BEGIN
ORDRE.BEKRÆLEV:=-1;
TIDSFORB:=0;
ORDRENR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR) DO
BEGIN
TIDSFORB:=TIDSFORB+PROD.VARIGHED;
OPERA.NR:=PROD.OPERANR;
GETREC(OPERA.A);CHECK0(OPERA.A);
TIDSFORB:=TIDSFORB+ROUND(OPERA.TILLÆG);
NEXTREC(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
UGEDAG.UGENR:=ORDRE.ØNSKLEV;
GETREC(UGEDAG.A);CHECK0(UGEDAG.A);
ØLEVDAG:=UGEDAG.ARBDAGNR;
DAGE:=TIDSFORB DIV 8;
TIMER:=TIDSFORB MOD 8;
STARTTIME:=1;
STARTDAY:=ØLEVDAG-DAGE;
IF TIMER>0 THEN
BEGIN
STARTDAY:=STARTDAY-1;
STARTTIME:=9-TIMER
END;
ORDRENR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
SEKVENSN:=0;
OPERANR:=0;
NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR) DO
BEGIN
OPERA.NR:=PROD.OPERANR;
GETREC(OPERA.A);CHECK0(OPERA.A);
GOTOXY(1,24);
WRITE('Nu behandles operation ',OPERA.BETEGN,OPERA.NR:5);
IF STARTDAY>=PSTARTDAG THEN
PROD.STARTTID:=1000*STARTTIME+STARTDAY
ELSE
PROD.STARTTID:=1000+PSTARTDAG;
RESERVER(PROD.RESS1);
RESERVER(PROD.RESS2);
RESERVER(PROD.RESS3);
PUTREC(A);CHECK0(A);
STARTTIME:=STARTTIME+VARIGHED+ROUND(OPERA.TILLÆG);
STARTDAY:=STARTDAY+STARTTIME DIV 8;
STARTTIME:=STARTTIME MOD 8;
IF STARTTIME=0 THEN
BEGIN
STARTDAY:=STARTDAY-1;
STARTTIME:=8
END;
NEXTRECX(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
D(24,1)
END;
PUTREC(ORDRE.A);CHECK0(ORDRE.A)
END
UNTIL POST.ORDRE=0
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:CHAR;
BEGIN (*MAINTAIN*)
REPEAT
LÆSFELT(PICTURE(4));
UGEDAG.UGENR:=POST.STARTUGE;
GETREC(UGEDAG.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(UGEDAG.A);
IF IER=0 THEN
BEGIN
ARBEDAG.NR:=UGEDAG.ARBDAGNR;
GETREC(ARBEDAG.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ARBEDAG.A);
IF (DAGSDATO(1)*10000.0+DAGSDATO(2))>
(ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)) THEN IER:=-6
END
UNTIL IER=0;
PSTARTDAG:=UGEDAG.ARBDAGNR;
CASE OPTION OF
1:RESSPLAN;
2:ORDREPLAN;
3:UDLÆGORDRE
END
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-*)
RESS.A(-4):=0;
RESSGRUP.A(-4):=0;
EMNE.A(-4):=0;
OPERA.A(-4):=0;
SYSTEM.A(-4):=0;
PROD.A(-4):=0;
ORDRE.A(-4):=0;
REBELAST.A(-4):=0;
UGEDAG.A(-4):=0;
ARBEDAG.A(-4):=0;
UGEDAG.A(-3):=21;
ARBEDAG.A(-3):=22;
RESS.A(-3):=4;
RESSGRUP.A(-3):=3;
EMNE.A(-3):=2;
OPERA.A(-3):=6;
SYSTEM.A(-3):=9;
PROD.A(-3):=14;
ORDRE.A(-3):=10;
REBELAST.A(-3):=15;
(*$R+*)
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
IOPEN(SYSTEM.A); CHECK0(SYSTEM.A);
IOPEN(ORDRE.A); CHECK0(ORDRE.A);
IOPEN(REBELAST.A); CHECK0(REBELAST.A);
IOPEN(PROD.A); CHECK0(PROD.A);
IOPEN(UGEDAG.A); CHECK0(UGEDAG.A);
IOPEN(ARBEDAG.A); CHECK0(ARBEDAG.A);
IOPEN(RESS.A); CHECK0(RESS.A);
IOPEN(RESSGRUP.A); CHECK0(RESSGRUP.A);
IOPEN(EMNE.A); CHECK0(EMNE.A);
IOPEN(OPERA.A); CHECK0(OPERA.A);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);CHECK0(SYSTEM.A);
DAGSDATO:=SYSTEM.DAGSDATO;
SYSTEM.NR:=1;
POST.STARTUGE:=0;
REPEAT
CLEARSCREEN;
GOTOXY(1,10);
WRITELN('0 Færdig');
WRITELN('1 Ressourceplanlægning');
WRITELN('2 Ordreplanlægning');
WRITELN('3 Udlægning af ordre');
LÆSFELT(PICTURE(13));
OPTION:=POST.OPTION;
IF OPTION>0 THEN MAINTAIN
UNTIL OPTION=0;
ICLOSE(RESS.A);
ICLOSE(RESSGRUP.A);
ICLOSE(EMNE.A);
ICLOSE(OPERA.A);
ICLOSE(ORDRE.A);
ICLOSE(PROD.A);
ICLOSE(REBELAST.A);
ICLOSE(UGEDAG.A);
ICLOSE(ARBEDAG.A);
ICLOSE(SYSTEM.A);
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:='PLANPESC:P2:05:J';
IF RESPRINT THEN
BEGIN
REGVEDL;
FREEPR
END;
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.
0x00000…00013 Line {l1=0x11, l2=»PROGRAM LIMPLANL;«, l3=0x11}
0x00013…0001c Line {l1=0x07, l2=»(*$D-*)«, l3=0x07}
0x0001c…00041 Line {l1=0x23, l2=»(*RESSOURCE- OG ORDRE-PLANLÆGNING*)«, l3=0x23}
0x00041…0004a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0004a…00062 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x00062…0006a Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0006a…0007e Line {l1=0x12, l2=» PROGRAMNR=8;«, l3=0x12}
0x0007e…00084 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00084…000ad Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x000ad…000f8 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x000f8…00110 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x00110…0015b Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0015b…0016f Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0016f…00185 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x00185…00199 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x00199…001e2 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x001e2…00232 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x00232…0027c Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0027c…0028d Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x0028d…002af Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x002af…002ce Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x002ce…002dd Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x002dd…002fc Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x002fc…00315 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x00315…00330 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x00330…00346 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x00346…0035c Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0035c…00385 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x00385…0039e Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x0039e…003c9 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x003c9…003df Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x003df…003f9 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x003f9…0040a Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0040a…0041d Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x0041d…00436 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x00436…0044e Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0044e…00456 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00456…0045f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0045f…0047d Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x0047d…0048d Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0048d…00494 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00494…004a6 Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x004a6…004ca Line {l1=0x22, l2=» FOR I:=1 TO NR DO WRITE(' ':79);«, l3=0x22}
0x004ca…004db Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x004db…004e1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x004e1…00500 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x00500…00507 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00507…00513 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x00513…00538 Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x00538…0054b Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x0054b…00551 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00551…00577 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x00577…0057e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0057e…0058a Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0058a…005ac Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x005ac…005b6 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x005b6…005bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x005bc…005c4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x005c4…005fb Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x005fb…00622 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x00622…0062d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0062d…00665 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x00665…00670 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x00670…006a4 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x006a4…006d9 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x006d9…006e4 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x006e4…0071b Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0071b…00742 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x00742…0074d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0074d…00785 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x00785…007ac Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x007ac…007b7 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x007b7…007ec Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x007ec…007f7 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x007f7…00807 Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x00807…0080f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0080f…0081c Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0081c…0082c Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0082c…00834 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00834…00848 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x00848…0085d Line {l1=0x13, l2=»CONST MAXFELTER=20;«, l3=0x13}
0x0085d…00865 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x00865…0086b Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0086b…00884 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x00884…00895 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x00895…008a5 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x008a5…008ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x008ab…008cf Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x008cf…00900 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x00900…00927 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x00927…0093f Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0093f…00953 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x00953…0096b Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0096b…00991 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x00991…0099f Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0099f…009ba Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x009ba…009de Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x009de…009f5 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x009f5…00a16 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x00a16…00a22 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x00a22…00a2e Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x00a2e…00a39 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x00a39…00a4d Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x00a4d…00a68 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x00a68…00a80 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x00a80…00a9e Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x00a9e…00aac Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x00aac…00acd Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x00acd…00af1 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x00af1…00b21 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x00b21…00b44 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x00b44…00b58 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x00b58…00b5e Line {l1=0x04, l2=»END;«, l3=0x04}
0x00b5e…00b85 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x00b85…00ba0 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x00ba0…00bc4 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x00bc4…00bf1 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x00bf1…00bf9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00bf9…00c02 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x00c02…00c13 Line {l1=0x0f, l2=»RESSPOST=RECORD«, l3=0x0f}
0x00c13…00c1f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x00c1f…00c28 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x00c28…00c34 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x00c34…00c3f Line {l1=0x09, l2=» TSATSF,«, l3=0x09}
0x00c3f…00c4a Line {l1=0x09, l2=» SAMOMS,«, l3=0x09}
0x00c4a…00c57 Line {l1=0x0b, l2=» SAMOMSSÅ,«, l3=0x0b}
0x00c57…00c61 Line {l1=0x08, l2=» SAMDB,«, l3=0x08}
0x00c61…00c6d Line {l1=0x0a, l2=» SAMDBSÅ,«, l3=0x0a}
0x00c6d…00c7a Line {l1=0x0b, l2=» KØBSPRIS,«, l3=0x0b}
0x00c7a…00c98 Line {l1=0x1c, l2=» SALGSPRI :REAL;«, l3=0x1c}
0x00c98…00c9f Line {l1=0x05, l2=» NR,«, l3=0x05}
0x00c9f…00cab Line {l1=0x0a, l2=» AFDELNR,«, l3=0x0a}
0x00cab…00cb7 Line {l1=0x0a, l2=» PRODTIM,«, l3=0x0a}
0x00cb7…00cc3 Line {l1=0x0a, l2=» VEDLTIM,«, l3=0x0a}
0x00cc3…00ccf Line {l1=0x0a, l2=» OPSTILT,«, l3=0x0a}
0x00ccf…00cdb Line {l1=0x0a, l2=» OVERTIM,«, l3=0x0a}
0x00cdb…00ce7 Line {l1=0x0a, l2=» REPTIME,«, l3=0x0a}
0x00ce7…00cf3 Line {l1=0x0a, l2=» TOTALTI,«, l3=0x0a}
0x00cf3…00d00 Line {l1=0x0b, l2=» PRODTIMS,«, l3=0x0b}
0x00d00…00d0d Line {l1=0x0b, l2=» VEDLTIMS,«, l3=0x0b}
0x00d0d…00d1a Line {l1=0x0b, l2=» OPSTILTS,«, l3=0x0b}
0x00d1a…00d27 Line {l1=0x0b, l2=» OVERTIMS,«, l3=0x0b}
0x00d27…00d34 Line {l1=0x0b, l2=» REPTIMES,«, l3=0x0b}
0x00d34…00d55 Line {l1=0x1f, l2=» TOTALTIS, «, l3=0x1f}
0x00d55…00d75 Line {l1=0x1e, l2=» RESSTYPE :INTEGER;«, l3=0x1e}
0x00d75…00d95 Line {l1=0x1e, l2=» DATOFLEV :LONGINT;«, l3=0x1e}
0x00d95…00db5 Line {l1=0x1e, l2=» HYLDENR :INTEGER;«, l3=0x1e}
0x00db5…00de9 Line {l1=0x32, l2=» BETEGN :PACKED ARRAY (1..10) OF CHAR«, l3=0x32}
0x00de9…00def Line {l1=0x04, l2=»END;«, l3=0x04}
0x00def…00e00 Line {l1=0x0f, l2=»REGRPOST=RECORD«, l3=0x0f}
0x00e00…00e0c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x00e0c…00e15 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x00e15…00e21 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x00e21…00e2c Line {l1=0x09, l2=» GRUPNR,«, l3=0x09}
0x00e2c…00e4c Line {l1=0x1e, l2=» NR :INTEGER «, l3=0x1e}
0x00e4c…00e52 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00e52…00e63 Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x00e63…00e6f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x00e6f…00e78 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x00e78…00e84 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x00e84…00e91 Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x00e91…00e9e Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x00e9e…00eab Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x00eab…00eb7 Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x00eb7…00ec2 Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x00ec2…00ecf Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x00ecf…00eeb Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x00eeb…00ef2 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x00ef2…00f11 Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x00f11…00f30 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x00f30…00f4f Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x00f4f…00f6e Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x00f6e…00f78 Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x00f78…00f82 Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x00f82…00f8f Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x00f8f…00f9a Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x00f9a…00fb9 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x00fb9…00fc4 Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x00fc4…00fcf Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x00fcf…01003 Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x01003…01036 Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x01036…0103c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0103c…0104d Line {l1=0x0f, l2=»OPERPOST=RECORD«, l3=0x0f}
0x0104d…01059 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01059…01062 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01062…0106e Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0106e…0108a Line {l1=0x1a, l2=» TILLÆG :REAL;«, l3=0x1a}
0x0108a…01091 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x01091…0109c Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x0109c…010bb Line {l1=0x1d, l2=» REBELAS :INTEGER;«, l3=0x1d}
0x010bb…010ee Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x010ee…010f4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x010f4…01105 Line {l1=0x0f, l2=»PRODPOST=RECORD«, l3=0x0f}
0x01105…01111 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01111…0111a Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0111a…01126 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x01126…0115b Line {l1=0x33, l2=» KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)«, l3=0x33}
0x0115b…01177 Line {l1=0x1a, l2=» REAANTAL :REAL;«, l3=0x1a}
0x01177…01183 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x01183…01190 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x01190…0119c Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x0119c…011a9 Line {l1=0x0b, l2=» STARTTID,«, l3=0x0b}
0x011a9…011b6 Line {l1=0x0b, l2=» OPERAFSL,«, l3=0x0b}
0x011b6…011bf Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x011bf…011c9 Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x011c9…011d3 Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x011d3…011dd Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x011dd…011e7 Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x011e7…011f1 Line {l1=0x08, l2=» RESS5,«, l3=0x08}
0x011f1…011fc Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x011fc…0121b Line {l1=0x1d, l2=» VARIGHED :INTEGER «, l3=0x1d}
0x0121b…01221 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01221…01232 Line {l1=0x0f, l2=»ORDRPOST=RECORD«, l3=0x0f}
0x01232…0123e Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0123e…01247 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01247…01253 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x01253…01260 Line {l1=0x0b, l2=» ANTALBES,«, l3=0x0b}
0x01260…0126d Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x0126d…01278 Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x01278…01283 Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x01283…01290 Line {l1=0x0b, l2=» MASKINOM,«, l3=0x0b}
0x01290…0129b Line {l1=0x09, l2=» SMEOMK,«, l3=0x09}
0x0129b…012b7 Line {l1=0x1a, l2=» MATFORB :REAL;«, l3=0x1a}
0x012b7…012d6 Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x012d6…012f5 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x012f5…01314 Line {l1=0x1d, l2=» EMNENR :INTEGER;«, l3=0x1d}
0x01314…01333 Line {l1=0x1d, l2=» REGDATO :LONGINT;«, l3=0x1d}
0x01333…0133f Line {l1=0x0a, l2=» ØNSKLEV,«, l3=0x0a}
0x0133f…0135e Line {l1=0x1d, l2=» BEKRÆLEV :INTEGER;«, l3=0x1d}
0x0135e…01392 Line {l1=0x32, l2=» KUNDORDR :PACKED ARRAY (1..16) OF CHAR;«, l3=0x32}
0x01392…013c5 Line {l1=0x31, l2=» INITIALE :PACKED ARRAY (1..4) OF CHAR «, l3=0x31}
0x013c5…013cb Line {l1=0x04, l2=»END;«, l3=0x04}
0x013cb…013dc Line {l1=0x0f, l2=»REBEPOST=RECORD«, l3=0x0f}
0x013dc…013e8 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x013e8…013f1 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x013f1…013fd Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x013fd…01404 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x01404…01411 Line {l1=0x0b, l2=» STARTDAG,«, l3=0x0b}
0x01411…0141d Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x0141d…01428 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x01428…01436 Line {l1=0x0c, l2=» OPERANR, «, l3=0x0c}
0x01436…01441 Line {l1=0x09, l2=» SEKVNR,«, l3=0x09}
0x01441…0144e Line {l1=0x0b, l2=» VARIGHED,«, l3=0x0b}
0x0144e…01459 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x01459…01476 Line {l1=0x1b, l2=» STTIME :INTEGER «, l3=0x1b}
0x01476…0147c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0147c…0148d Line {l1=0x0f, l2=»UGEDPOST=RECORD«, l3=0x0f}
0x0148d…01499 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01499…014a2 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x014a2…014ae Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x014ae…014b8 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x014b8…014d5 Line {l1=0x1b, l2=» ARBDAGNR :INTEGER «, l3=0x1b}
0x014d5…014db Line {l1=0x04, l2=»END;«, l3=0x04}
0x014db…014ec Line {l1=0x0f, l2=»ARBEPOST=RECORD«, l3=0x0f}
0x014ec…014f8 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x014f8…01501 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01501…0150d Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0150d…0152b Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x0152b…01549 Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x01549…01554 Line {l1=0x09, l2=» UGENR, «, l3=0x09}
0x01554…01572 Line {l1=0x1c, l2=» ARBTIMER :INTEGER «, l3=0x1c}
0x01572…01578 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01578…01589 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x01589…01595 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01595…0159e Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0159e…015aa Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x015aa…015d5 Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x015d5…015f3 Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x015f3…01611 Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x01611…0162f Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x0162f…01645 Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x01645…01663 Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x01663…01669 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01669…0167a Line {l1=0x0f, l2=»PLANPESC=RECORD«, l3=0x0f}
0x0167a…01686 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01686…0168f Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0168f…0169b Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0169b…016a9 Line {l1=0x0c, l2=» RESSOURCE,«, l3=0x0c}
0x016a9…016b3 Line {l1=0x08, l2=» ORDRE,«, l3=0x08}
0x016b3…016be Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x016be…016cb Line {l1=0x0b, l2=» STARTUGE,«, l3=0x0b}
0x016cb…016d7 Line {l1=0x0a, l2=» LINIENR,«, l3=0x0a}
0x016d7…016df Line {l1=0x06, l2=» UGE,«, l3=0x06}
0x016df…016e7 Line {l1=0x06, l2=» DAG,«, l3=0x06}
0x016e7…016f0 Line {l1=0x07, l2=» TIME,«, l3=0x07}
0x016f0…016fd Line {l1=0x0b, l2=» VARIGHED,«, l3=0x0b}
0x016fd…0170a Line {l1=0x0b, l2=» FRALINIE,«, l3=0x0b}
0x0170a…01717 Line {l1=0x0b, l2=» TILLINIE,«, l3=0x0b}
0x01717…01723 Line {l1=0x0a, l2=» ØLEVUGE,«, l3=0x0a}
0x01723…0172e Line {l1=0x09, l2=» OPTION,«, l3=0x09}
0x0172e…0173b Line {l1=0x0b, l2=» AFDELING,«, l3=0x0b}
0x0173b…01746 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x01746…01763 Line {l1=0x1b, l2=» FAKTOR :INTEGER «, l3=0x1b}
0x01763…01769 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01769…0177a Line {l1=0x0f, l2=»REBEXTRA=RECORD«, l3=0x0f}
0x0177a…0178f Line {l1=0x13, l2=» PLANLAGT:BOOLEAN;«, l3=0x13}
0x0178f…017b7 Line {l1=0x26, l2=» BETEGN:PACKED ARRAY (1..10) OF CHAR;«, l3=0x26}
0x017b7…017c4 Line {l1=0x0b, l2=» BEKRÆLEV,«, l3=0x0b}
0x017c4…017d8 Line {l1=0x12, l2=» ØNSKLEV:INTEGER;«, l3=0x12}
0x017d8…017e9 Line {l1=0x0f, l2=» ANTALBES:REAL«, l3=0x0f}
0x017e9…017ef Line {l1=0x04, l2=»END;«, l3=0x04}
0x017ef…01800 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x01800…0182c Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0182c…01845 Line {l1=0x17, l2=» (*PRODPLAN:BOOLEAN;*)«, l3=0x17}
0x01845…01858 Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x01858…0188b Line {l1=0x31, l2=» UDE,ANTLINE,PSTARTDAG,DIRECTION,HUSK,HUSKTID,«, l3=0x31}
0x0188b…018a9 Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x018a9…018bb Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x018bb…018cf Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x018cf…018e7 Line {l1=0x16, l2=» RESSGRUP:REGRPOST;«, l3=0x16}
0x018e7…018fb Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x018fb…01910 Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x01910…01924 Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x01924…01939 Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x01939…01951 Line {l1=0x16, l2=» REBELAST:REBEPOST;«, l3=0x16}
0x01951…01967 Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x01967…0197d Line {l1=0x14, l2=» UGEDAG:UGEDPOST;«, l3=0x14}
0x0197d…01994 Line {l1=0x15, l2=» ARBEDAG:ARBEPOST;«, l3=0x15}
0x01994…019a8 Line {l1=0x12, l2=» POST:PLANPESC;«, l3=0x12}
0x019a8…019b7 Line {l1=0x0d, l2=» DAGSDATO,«, l3=0x0d}
0x019b7…019cd Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x019cd…019db Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x019db…019fc Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x019fc…01a04 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x01a04…01a22 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x01a22…01a35 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x01a35…01a3c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01a3c…01a46 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x01a46…01a54 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x01a54…01a6b Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x01a6b…01a79 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x01a79…01a87 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x01a87…01aa2 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x01aa2…01ab1 Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x01ab1…01abd Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x01abd…01ac3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01ac3…01ae1 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x01ae1…01af4 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x01af4…01b04 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x01b04…01b0b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01b0b…01b17 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x01b17…01b65 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x01b65…01bb3 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x01bb3…01bc8 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x01bc8…01bf8 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x01bf8…01c11 Line {l1=0x17, l2=» ICLOSE(SYSTEM.A); «, l3=0x17}
0x01c11…01c28 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x01c28…01c43 Line {l1=0x19, l2=» ICLOSE(RESSGRUP.A); «, l3=0x19}
0x01c43…01c5a Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x01c5a…01c71 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x01c71…01c89 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x01c89…01c9d Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x01c9d…01cb4 Line {l1=0x15, l2=» ICLOSE(REBELAST.A);«, l3=0x15}
0x01cb4…01cc9 Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0x01cc9…01cdf Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0x01cdf…01cf0 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x01cf0…01cf6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01cf6…01d15 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x01d15…01d1c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01d1c…01d39 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x01d39…01d3f Line {l1=0x04, l2=»END;«, l3=0x04}
0x01d3f…01d47 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x01d47…01d50 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x01d50…01d60 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x01d60…01d68 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x01d68…01d78 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x01d78…01d80 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x01d80…01d89 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x01d89…01d9e Line {l1=0x13, l2=»PROCEDURE RESSPLAN;«, l3=0x13}
0x01d9e…01db1 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x01db1…01dc7 Line {l1=0x14, l2=» CHECKOK:BOOLEAN;«, l3=0x14}
0x01dc7…01df0 Line {l1=0x27, l2=» SKEMA:PACKED ARRAY (1..52) OF CHAR;«, l3=0x27}
0x01df0…01e16 Line {l1=0x24, l2=» REBENR:ARRAY (1..20) OF INTEGER;«, l3=0x24}
0x01e16…01e3e Line {l1=0x26, l2=» REBELIN:ARRAY (1..20) OF REBEPOST;«, l3=0x26}
0x01e3e…01e66 Line {l1=0x26, l2=» REBXTRA:ARRAY (1..20) OF REBEXTRA;«, l3=0x26}
0x01e66…01e69 Line {l1=0x01, l2=» «, l3=0x01}
0x01e69…01eac Line {l1=0x41, l2=»PROCEDURE RESSBILLEDE(FRA,TIL:INTEGER); (*FRA=0 => ALLE + HOVED*)«, l3=0x41}
0x01eac…01ec3 Line {l1=0x15, l2=»VAR I,AKTWEEK,AKTDAG,«, l3=0x15}
0x01ec3…01ed8 Line {l1=0x13, l2=» REST,C:INTEGER;«, l3=0x13}
0x01ed8…01efe Line {l1=0x24, l2=» ESC:PACKED ARRAY (1..2) OF CHAR;«, l3=0x24}
0x01efe…01f0c Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x01f0c…01f13 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01f13…01f31 Line {l1=0x1c, l2=» ESC:=' N';ESC(1):=CHR(27);«, l3=0x1c}
0x01f31…01f42 Line {l1=0x0f, l2=» IF FRA=0 THEN«, l3=0x0f}
0x01f42…01f4b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x01f4b…01f5d Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x01f5d…01fa1 Line {l1=0x42, l2=» SKEMA:='ü ü';«, l3=0x42}
0x01fa1…01fcb Line {l1=0x28, l2=» WRITE('Ressource:',RESS.NR:5,' ':5);«, l3=0x28}
0x01fcb…01fe7 Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x01fe7…02011 Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x02011…02022 Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x02022…02039 Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x02039…02044 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02044…0206a Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x0206a…02077 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x02077…02093 Line {l1=0x1a, l2=» SKEMA(2*I-1):='ü';«, l3=0x1a}
0x02093…020b4 Line {l1=0x1f, l2=» AKTWEEK:=ARBEDAG.UGENR;«, l3=0x1f}
0x020b4…020dc Line {l1=0x26, l2=» WRITE(ARBEDAG.UGENR MOD 100:2)«, l3=0x26}
0x020dc…020e7 Line {l1=0x09, l2=» END«, l3=0x09}
0x020e7…02101 Line {l1=0x18, l2=» ELSE WRITE(' ':2);«, l3=0x18}
0x02101…0214d Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x0214d…02157 Line {l1=0x08, l2=» END;«, l3=0x08}
0x02157…02171 Line {l1=0x18, l2=» WRITELN(' Leveres');«, l3=0x18}
0x02171…02195 Line {l1=0x22, l2=» WRITE('Nr Ordre Betegnelse ');«, l3=0x22}
0x02195…021b1 Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x021b1…021db Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x021db…021eb Line {l1=0x0e, l2=» AKTDAG:=0;«, l3=0x0e}
0x021eb…021fc Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x021fc…02213 Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x02213…0221e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0221e…02244 Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x02244…02278 Line {l1=0x32, l2=» BEGIN AKTDAG:=0; AKTWEEK:=ARBEDAG.UGENR END;«, l3=0x32}
0x02278…02290 Line {l1=0x16, l2=» IF AKTDAG<5 THEN«, l3=0x16}
0x02290…0229d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0229d…022b8 Line {l1=0x19, l2=» AKTDAG:=AKTDAG+1;«, l3=0x19}
0x022b8…022d1 Line {l1=0x17, l2=» WRITE(AKTDAG:2)«, l3=0x17}
0x022d1…022dc Line {l1=0x09, l2=» END«, l3=0x09}
0x022dc…022f6 Line {l1=0x18, l2=» ELSE WRITE(' ':2);«, l3=0x18}
0x022f6…02342 Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x02342…0234c Line {l1=0x08, l2=» END;«, l3=0x08}
0x0234c…02367 Line {l1=0x19, l2=» WRITELN(' Uge ant');«, l3=0x19}
0x02367…02373 Line {l1=0x0a, l2=» FRA:=1«, l3=0x0a}
0x02373…0237b Line {l1=0x06, l2=» END;«, l3=0x06}
0x0237b…02393 Line {l1=0x16, l2=» FOR I:=FRA TO TIL DO«, l3=0x16}
0x02393…023c4 Line {l1=0x2f, l2=» WITH REBELIN(REBENR(I)),REBXTRA(REBENR(I)) DO«, l3=0x2f}
0x023c4…023cd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x023cd…023e1 Line {l1=0x12, l2=» GOTOXY(1,I+2);«, l3=0x12}
0x023e1…0240d Line {l1=0x2a, l2=» WRITE(I:2,ORDRENR:6,' ',BETEGN,SKEMA);«, l3=0x2a}
0x0240d…0243c Line {l1=0x2d, l2=» IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN«, l3=0x2d}
0x0243c…02447 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02447…02475 Line {l1=0x2c, l2=» GOTOXY(21+2*(STARTDAG-PSTARTDAG),I+2);«, l3=0x2c}
0x02475…02499 Line {l1=0x22, l2=» IF STTIME>4 THEN WRITE(' ');«, l3=0x22}
0x02499…024d1 Line {l1=0x36, l2=» IF STARTDAG-PSTARTDAG+(VARIGHED-1) DIV 8<26 THEN«, l3=0x36}
0x024d1…024e9 Line {l1=0x16, l2=» REST:=VARIGHED«, l3=0x16}
0x024e9…024f5 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x024f5…02520 Line {l1=0x29, l2=» REST:=200-(STARTDAG-PSTARTDAG)*8;«, l3=0x29}
0x02520…0253c Line {l1=0x1a, l2=» CASE STTIME MOD 4 OF«, l3=0x1a}
0x0253c…02563 Line {l1=0x25, l2=» 0:BEGIN C:=40;REST:=REST-1 END;«, l3=0x25}
0x02563…0257d Line {l1=0x18, l2=» 2:CASE VARIGHED OF«, l3=0x18}
0x0257d…025a6 Line {l1=0x27, l2=» 1:BEGIN C:=36;REST:=REST-1 END;«, l3=0x27}
0x025a6…025cf Line {l1=0x27, l2=» 2:BEGIN C:=38;REST:=REST-2 END;«, l3=0x27}
0x025cf…02600 Line {l1=0x2f, l2=» OTHERWISE BEGIN C:=46;REST:=REST-3 END;«, l3=0x2f}
0x02600…02639 Line {l1=0x37, l2=» 3:IF VARIGHED=1 THEN BEGIN C:=34;REST:=REST-1 END«, l3=0x37}
0x02639…02665 Line {l1=0x2a, l2=» ELSE BEGIN C:=42;REST:=REST-2 END;«, l3=0x2a}
0x02665…0267c Line {l1=0x15, l2=» OTHERWISE C:=0;«, l3=0x15}
0x0267c…0268f Line {l1=0x11, l2=» IF C>0 THEN«, l3=0x11}
0x0268f…0269c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0269c…026b1 Line {l1=0x13, l2=» CH:=CHR(C);«, l3=0x13}
0x026b1…026c8 Line {l1=0x15, l2=» WRITE(ESC,CH)«, l3=0x15}
0x026c8…026d4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x026d4…026e8 Line {l1=0x12, l2=» CH:=CHR(47);«, l3=0x12}
0x026e8…026ff Line {l1=0x15, l2=» WHILE REST>3 DO«, l3=0x15}
0x026ff…0270c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0270c…02724 Line {l1=0x16, l2=» WRITE(ESC,CH);«, l3=0x16}
0x02724…0273a Line {l1=0x14, l2=» REST:=REST-4«, l3=0x14}
0x0273a…02746 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x02746…0275a Line {l1=0x12, l2=» CASE REST OF«, l3=0x12}
0x0275a…0276a Line {l1=0x0e, l2=» 1:C:=33;«, l3=0x0e}
0x0276a…0277a Line {l1=0x0e, l2=» 2:C:=37;«, l3=0x0e}
0x0277a…0278a Line {l1=0x0e, l2=» 3:C:=39;«, l3=0x0e}
0x0278a…027a1 Line {l1=0x15, l2=» OTHERWISE C:=0;«, l3=0x15}
0x027a1…027b4 Line {l1=0x11, l2=» IF C>0 THEN«, l3=0x11}
0x027b4…027c1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x027c1…027d6 Line {l1=0x13, l2=» CH:=CHR(C);«, l3=0x13}
0x027d6…027ed Line {l1=0x15, l2=» WRITE(ESC,CH)«, l3=0x15}
0x027ed…027f9 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x027f9…02803 Line {l1=0x08, l2=» END;«, l3=0x08}
0x02803…02818 Line {l1=0x13, l2=» GOTOXY(72,I+2);«, l3=0x13}
0x02818…02830 Line {l1=0x16, l2=» IF BEKRÆLEV>0 THEN«, l3=0x16}
0x02830…02855 Line {l1=0x23, l2=» WRITE(BEKRÆLEV MOD 100:2,'!')«, l3=0x23}
0x02855…0285f Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0285f…02884 Line {l1=0x23, l2=» WRITE(ØNSKLEV MOD 100:2,' ');«, l3=0x23}
0x02884…0289e Line {l1=0x18, l2=» WRITE(ANTALBES:5:-2)«, l3=0x18}
0x0289e…028a5 Line {l1=0x05, l2=» END«, l3=0x05}
0x028a5…028ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x028ab…028b3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x028b3…028c9 Line {l1=0x14, l2=»PROCEDURE GETBELAST;«, l3=0x14}
0x028c9…028d0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x028d0…028f0 Line {l1=0x1e, l2=» REBELAST.NR:=POST.RESSOURCE;«, l3=0x1e}
0x028f0…02911 Line {l1=0x1f, l2=» REBELAST.STARTDAG:=PSTARTDAG;«, l3=0x1f}
0x02911…02929 Line {l1=0x16, l2=» REBELAST.ORDRENR:=0;«, l3=0x16}
0x02929…02974 Line {l1=0x49, l2=» NEXTREC(REBELAST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REBELAST.A);«, l3=0x49}
0x02974…0297f Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x0297f…0298e Line {l1=0x0d, l2=» ANTLINE:=0;«, l3=0x0d}
0x0298e…029b9 Line {l1=0x29, l2=» UDE:=0; (*FLYTTET TIL ANDEN RESSOURCE*)«, l3=0x29}
0x029b9…029ef Line {l1=0x34, l2=» WHILE (IER=0) AND (REBELAST.NR=POST.RESSOURCE) AND«, l3=0x34}
0x029ef…02a2d Line {l1=0x3c, l2=» (REBELAST.STARTDAG-PSTARTDAG<25) AND (ANTLINE<20) DO«, l3=0x3c}
0x02a2d…02a36 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x02a36…02a4f Line {l1=0x17, l2=» ANTLINE:=ANTLINE+1;«, l3=0x17}
0x02a4f…02a6e Line {l1=0x1d, l2=» REBENR(ANTLINE):=ANTLINE;«, l3=0x1d}
0x02a6e…02a77 Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x02a77…02aae Line {l1=0x35, l2=» MOVELEFT(REBELAST.A(1),REBELIN(ANTLINE).A(1),18);«, l3=0x35}
0x02aae…02ab7 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x02ab7…02ad6 Line {l1=0x1d, l2=» EMNE.NR:=REBELAST.EMNENR;«, l3=0x1d}
0x02ad6…02afa Line {l1=0x22, l2=» GETREC(EMNE.A);CHECK0(EMNE.A);«, l3=0x22}
0x02afa…02b37 Line {l1=0x3b, l2=» MOVELEFT(EMNE.BETEGN(1),REBXTRA(ANTLINE).BETEGN(1),10);«, l3=0x3b}
0x02b37…02b58 Line {l1=0x1f, l2=» ORDRE.NR:=REBELAST.ORDRENR;«, l3=0x1f}
0x02b58…02b7c Line {l1=0x22, l2=» ORDRE.EMNENR:=REBELAST.EMNENR;«, l3=0x22}
0x02b7c…02ba2 Line {l1=0x24, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x24}
0x02ba2…02bd2 Line {l1=0x2e, l2=» REBXTRA(ANTLINE).BEKRÆLEV:=ORDRE.BEKRÆLEV;«, l3=0x2e}
0x02bd2…02bf0 Line {l1=0x1c, l2=» IF ORDRE.BEKRÆLEV>0 THEN«, l3=0x1c}
0x02bf0…02c21 Line {l1=0x2f, l2=» REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.BEKRÆLEV «, l3=0x2f}
0x02c21…02c2b Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x02c2b…02c5b Line {l1=0x2e, l2=» REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.ØNSKLEV;«, l3=0x2e}
0x02c5b…02c8b Line {l1=0x2e, l2=» REBXTRA(ANTLINE).ANTALBES:=ORDRE.ANTALBES;«, l3=0x2e}
0x02c8b…02cb2 Line {l1=0x25, l2=» REBXTRA(ANTLINE).PLANLAGT:=FALSE;«, l3=0x25}
0x02cb2…02ccb Line {l1=0x17, l2=» NEXTREC(REBELAST.A)«, l3=0x17}
0x02ccb…02cd3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x02cd3…02d08 Line {l1=0x33, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A)«, l3=0x33}
0x02d08…02d0e Line {l1=0x04, l2=»END;«, l3=0x04}
0x02d0e…02d16 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x02d16…02d29 Line {l1=0x11, l2=»PROCEDURE ÆSTART;«, l3=0x11}
0x02d29…02d30 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x02d30…02d3f Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x02d3f…02d47 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x02d47…02d84 Line {l1=0x3b, l2=» LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆSTART);«, l3=0x3b}
0x02d84…02d9c Line {l1=0x16, l2=» LÆSFELT(PICTURE(6));«, l3=0x16}
0x02d9c…02db8 Line {l1=0x1a, l2=» IF UGE IN (.1..20.) THEN«, l3=0x1a}
0x02db8…02dc1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x02dc1…02de8 Line {l1=0x25, l2=» IF UGE>ANTLINE THEN EXIT(ÆSTART);«, l3=0x25}
0x02de8…02e0d Line {l1=0x23, l2=» IF UGE<LINIENR THEN UGE:=UGE-1;«, l3=0x23}
0x02e0d…02e33 Line {l1=0x24, l2=» WITH REBELIN(REBENR(LINIENR)) DO«, l3=0x24}
0x02e33…02e46 Line {l1=0x11, l2=» IF UGE=0 THEN«, l3=0x11}
0x02e46…02e51 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02e51…02e6d Line {l1=0x1a, l2=» STARTDAG:=PSTARTDAG;«, l3=0x1a}
0x02e6d…02e7e Line {l1=0x0f, l2=» STTIME:=1«, l3=0x0f}
0x02e7e…02e87 Line {l1=0x07, l2=» END«, l3=0x07}
0x02e87…02e91 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x02e91…02e9c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02e9c…02ecc Line {l1=0x2e, l2=» STARTDAG:=REBELIN(REBENR(UGE)).STARTDAG+«, l3=0x2e}
0x02ecc…02f02 Line {l1=0x34, l2=» REBELIN(REBENR(UGE)).VARIGHED DIV 8;«, l3=0x34}
0x02f02…02f2e Line {l1=0x2a, l2=» STTIME:=REBELIN(REBENR(UGE)).STTIME+«, l3=0x2a}
0x02f2e…02f62 Line {l1=0x32, l2=» REBELIN(REBENR(UGE)).VARIGHED MOD 8;«, l3=0x32}
0x02f62…02f7a Line {l1=0x16, l2=» IF STTIME>8 THEN«, l3=0x16}
0x02f7a…02f87 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x02f87…02fa6 Line {l1=0x1d, l2=» STARTDAG:=STARTDAG+1;«, l3=0x1d}
0x02fa6…02fc0 Line {l1=0x18, l2=» STTIME:=STTIME-8«, l3=0x18}
0x02fc0…02fcb Line {l1=0x09, l2=» END«, l3=0x09}
0x02fcb…02fd5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x02fd5…02fee Line {l1=0x17, l2=» IF UGE>LINIENR THEN«, l3=0x17}
0x02fee…02ff9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x02ff9…03017 Line {l1=0x1c, l2=» HUSK:=REBENR(LINIENR);«, l3=0x1c}
0x03017…03051 Line {l1=0x38, l2=» FOR I:=LINIENR TO UGE-1 DO REBENR(I):=REBENR(I+1);«, l3=0x38}
0x03051…0306b Line {l1=0x18, l2=» REBENR(UGE):=HUSK;«, l3=0x18}
0x0306b…0308b Line {l1=0x1e, l2=» RESSBILLEDE(LINIENR,UGE)«, l3=0x1e}
0x0308b…03094 Line {l1=0x07, l2=» END«, l3=0x07}
0x03094…0309e Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0309e…030a9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x030a9…030c7 Line {l1=0x1c, l2=» HUSK:=REBENR(LINIENR);«, l3=0x1c}
0x030c7…03105 Line {l1=0x3c, l2=» FOR I:=LINIENR DOWNTO UGE+2 DO REBENR(I):=REBENR(I-1);«, l3=0x3c}
0x03105…03121 Line {l1=0x1a, l2=» REBENR(UGE+1):=HUSK;«, l3=0x1a}
0x03121…03143 Line {l1=0x20, l2=» RESSBILLEDE(UGE+1,LINIENR)«, l3=0x20}
0x03143…0314c Line {l1=0x07, l2=» END«, l3=0x07}
0x0314c…03153 Line {l1=0x05, l2=» END«, l3=0x05}
0x03153…0315b Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x0315b…03164 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03164…0317e Line {l1=0x18, l2=» LÆSFELT(PICTURE(7));«, l3=0x18}
0x0317e…03198 Line {l1=0x18, l2=» LÆSFELT(PICTURE(8));«, l3=0x18}
0x03198…031be Line {l1=0x24, l2=» WITH REBELIN(REBENR(LINIENR)) DO«, l3=0x24}
0x031be…031c9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x031c9…031ec Line {l1=0x21, l2=» HUSKTID:=8*STARTDAG+STTIME;«, l3=0x21}
0x031ec…03206 Line {l1=0x18, l2=» UGEDAG.UGENR:=UGE;«, l3=0x18}
0x03206…0324c Line {l1=0x44, l2=» GETREC(UGEDAG.A);IF IER=-6 THEN EXIT(ÆSTART);CHECK0(UGEDAG.A);«, l3=0x44}
0x0324c…03274 Line {l1=0x26, l2=» STARTDAG:=UGEDAG.ARBDAGNR+DAG-1;«, l3=0x26}
0x03274…03289 Line {l1=0x13, l2=» STTIME:=TIME;«, l3=0x13}
0x03289…032d3 Line {l1=0x48, l2=» IF HUSKTID<8*STARTDAG+STTIME THEN DIRECTION:=1 ELSE DIRECTION:=-1;«, l3=0x48}
0x032d3…032f6 Line {l1=0x21, l2=» HUSKTID:=8*STARTDAG+STTIME;«, l3=0x21}
0x032f6…03309 Line {l1=0x11, l2=» I:=LINIENR;«, l3=0x11}
0x03309…0332e Line {l1=0x23, l2=» IF ((I=1) AND (DIRECTION=-1))«, l3=0x23}
0x0332e…0336e Line {l1=0x3e, l2=» OR ((I=ANTLINE) AND (DIRECTION=1)) THEN DIRECTION:=0;«, l3=0x3e}
0x0336e…03386 Line {l1=0x16, l2=» HUSK:=REBENR(I);«, l3=0x16}
0x03386…033a6 Line {l1=0x1e, l2=» WHILE DIRECTION*HUSKTID>«, l3=0x1e}
0x033a6…033e1 Line {l1=0x39, l2=» DIRECTION*(REBELIN(REBENR(I+DIRECTION)).STARTDAG*8+«, l3=0x39}
0x033e1…0341b Line {l1=0x38, l2=» REBELIN(REBENR(I+DIRECTION)).STTIME) DO «, l3=0x38}
0x0341b…03428 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x03428…03451 Line {l1=0x27, l2=» REBENR(I):=REBENR(I+DIRECTION);«, l3=0x27}
0x03451…0346a Line {l1=0x17, l2=» I:=I+DIRECTION;«, l3=0x17}
0x0346a…03491 Line {l1=0x25, l2=» IF ((I=1) AND (DIRECTION=-1))«, l3=0x25}
0x03491…034d2 Line {l1=0x3f, l2=» OR ((I=ANTLINE) AND (DIRECTION=1)) THEN DIRECTION:=0«, l3=0x3f}
0x034d2…034de Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x034de…034f6 Line {l1=0x16, l2=» REBENR(I):=HUSK;«, l3=0x16}
0x034f6…03542 Line {l1=0x4a, l2=» IF I<LINIENR THEN RESSBILLEDE(I,LINIENR) ELSE RESSBILLEDE(LINIENR,I)«, l3=0x4a}
0x03542…0354b Line {l1=0x07, l2=» END«, l3=0x07}
0x0354b…03552 Line {l1=0x05, l2=» END«, l3=0x05}
0x03552…03558 Line {l1=0x04, l2=» END«, l3=0x04}
0x03558…0355f Line {l1=0x05, l2=»END; «, l3=0x05}
0x0355f…03567 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03567…0357a Line {l1=0x11, l2=»PROCEDURE ÆVARIG;«, l3=0x11}
0x0357a…03581 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03581…03590 Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x03590…03598 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x03598…035d5 Line {l1=0x3b, l2=» LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆVARIG);«, l3=0x3b}
0x035d5…03605 Line {l1=0x2e, l2=» VARIGHED:=REBELIN(REBENR(LINIENR)).VARIGHED;«, l3=0x2e}
0x03605…0361d Line {l1=0x16, l2=» LÆSFELT(PICTURE(9));«, l3=0x16}
0x0361d…0364d Line {l1=0x2e, l2=» REBELIN(REBENR(LINIENR)).VARIGHED:=VARIGHED;«, l3=0x2e}
0x0364d…0366d Line {l1=0x1e, l2=» RESSBILLEDE(LINIENR,LINIENR)«, l3=0x1e}
0x0366d…03673 Line {l1=0x04, l2=» END«, l3=0x04}
0x03673…03679 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03679…03681 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03681…03693 Line {l1=0x10, l2=»PROCEDURE ÆRESS;«, l3=0x10}
0x03693…0369a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0369a…036a9 Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x036a9…036b1 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x036b1…036ed Line {l1=0x3a, l2=» LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆRESS);«, l3=0x3a}
0x036ed…03706 Line {l1=0x17, l2=» HUSK:=POST.RESSOURCE;«, l3=0x17}
0x03706…0371e Line {l1=0x16, l2=» LÆSFELT(PICTURE(1));«, l3=0x16}
0x0371e…0373a Line {l1=0x1a, l2=» RESS.NR:=POST.RESSOURCE;«, l3=0x1a}
0x0373a…03753 Line {l1=0x17, l2=» POST.RESSOURCE:=HUSK;«, l3=0x17}
0x03753…03795 Line {l1=0x40, l2=» GETREC(RESS.A);IF IER=-6 THEN EXIT(ÆRESS) ELSE CHECK0(RESS.A);«, l3=0x40}
0x03795…037be Line {l1=0x27, l2=» REBELIN(REBENR(LINIENR)).NR:=RESS.NR;«, l3=0x27}
0x037be…037d8 Line {l1=0x18, l2=» HUSK:=REBENR(LINIENR);«, l3=0x18}
0x037d8…03812 Line {l1=0x38, l2=» FOR I:=LINIENR TO ANTLINE-1 DO REBENR(I):=REBENR(I+1);«, l3=0x38}
0x03812…0382c Line {l1=0x18, l2=» REBENR(ANTLINE):=HUSK;«, l3=0x18}
0x0382c…0383f Line {l1=0x11, l2=» D(ANTLINE+2,1);«, l3=0x11}
0x0383f…03856 Line {l1=0x15, l2=» ANTLINE:=ANTLINE-1;«, l3=0x15}
0x03856…03865 Line {l1=0x0d, l2=» UDE:=UDE+1;«, l3=0x0d}
0x03865…03885 Line {l1=0x1e, l2=» RESSBILLEDE(LINIENR,ANTLINE)«, l3=0x1e}
0x03885…0388b Line {l1=0x04, l2=» END«, l3=0x04}
0x0388b…03891 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03891…03899 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03899…038ad Line {l1=0x12, l2=»PROCEDURE SEKVUDL;«, l3=0x12}
0x038ad…038b4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x038b4…038c3 Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x038c3…038cb Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x038cb…0390b Line {l1=0x3e, l2=» LÆSFELT(PICTURE(10));IF FRALINIE>ANTLINE THEN EXIT(SEKVUDL);«, l3=0x3e}
0x0390b…03921 Line {l1=0x14, l2=» IF FRALINIE=0 THEN«, l3=0x14}
0x03921…0392a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0392a…03942 Line {l1=0x16, l2=» TILLINIE:=ANTLINE;«, l3=0x16}
0x03942…0396f Line {l1=0x2b, l2=» REBELIN(REBENR(1)).STARTDAG:=PSTARTDAG;«, l3=0x2b}
0x0396f…03992 Line {l1=0x21, l2=» REBELIN(REBENR(1)).STTIME:=1;«, l3=0x21}
0x03992…039a3 Line {l1=0x0f, l2=» FRALINIE:=1«, l3=0x0f}
0x039a3…039ab Line {l1=0x06, l2=» END;«, l3=0x06}
0x039ab…039eb Line {l1=0x3e, l2=» LÆSFELT(PICTURE(11));IF TILLINIE>ANTLINE THEN EXIT(SEKVUDL);«, l3=0x3e}
0x039eb…039fb Line {l1=0x0e, l2=» I:=FRALINIE;«, l3=0x0e}
0x039fb…03a18 Line {l1=0x1b, l2=» IF FRALINIE<TILLINIE THEN«, l3=0x1b}
0x03a18…03a21 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03a21…03a3a Line {l1=0x17, l2=» WHILE I<TILLINIE DO«, l3=0x17}
0x03a3a…03a45 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03a45…03a67 Line {l1=0x20, l2=» WITH REBELIN(REBENR(I)) DO«, l3=0x20}
0x03a67…03a83 Line {l1=0x1a, l2=» HUSKTID:=STARTDAG*8+«, l3=0x1a}
0x03a83…03a9b Line {l1=0x16, l2=» STTIME+«, l3=0x16}
0x03a9b…03ab5 Line {l1=0x18, l2=» VARIGHED;«, l3=0x18}
0x03ab5…03ad9 Line {l1=0x22, l2=» WITH REBELIN(REBENR(I+1)) DO«, l3=0x22}
0x03ad9…03ae6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x03ae6…03b0c Line {l1=0x24, l2=» STARTDAG:=(HUSKTID-1) DIV 8;«, l3=0x24}
0x03b0c…03b32 Line {l1=0x24, l2=» STTIME:=(HUSKTID-1) MOD 8 +1«, l3=0x24}
0x03b32…03b3e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x03b3e…03b4c Line {l1=0x0c, l2=» I:=I+1«, l3=0x0c}
0x03b4c…03b56 Line {l1=0x08, l2=» END;«, l3=0x08}
0x03b56…03b7a Line {l1=0x22, l2=» RESSBILLEDE(FRALINIE,TILLINIE)«, l3=0x22}
0x03b7a…03b81 Line {l1=0x05, l2=» END«, l3=0x05}
0x03b81…03b89 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x03b89…03b92 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03b92…03bab Line {l1=0x17, l2=» WHILE I>TILLINIE DO«, l3=0x17}
0x03bab…03bb6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03bb6…03bd8 Line {l1=0x20, l2=» WITH REBELIN(REBENR(I)) DO«, l3=0x20}
0x03bd8…03bf4 Line {l1=0x1a, l2=» HUSKTID:=STARTDAG*8+«, l3=0x1a}
0x03bf4…03c0c Line {l1=0x16, l2=» STTIME;«, l3=0x16}
0x03c0c…03c30 Line {l1=0x22, l2=» WITH REBELIN(REBENR(I-1)) DO«, l3=0x22}
0x03c30…03c3d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x03c3d…03c61 Line {l1=0x22, l2=» HUSKTID:=HUSKTID-VARIGHED;«, l3=0x22}
0x03c61…03c87 Line {l1=0x24, l2=» STARTDAG:=(HUSKTID-1) DIV 8;«, l3=0x24}
0x03c87…03cad Line {l1=0x24, l2=» STTIME:=(HUSKTID-1) MOD 8 +1«, l3=0x24}
0x03cad…03cb9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x03cb9…03cc7 Line {l1=0x0c, l2=» I:=I-1«, l3=0x0c}
0x03cc7…03cd1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x03cd1…03cf5 Line {l1=0x22, l2=» RESSBILLEDE(TILLINIE,FRALINIE)«, l3=0x22}
0x03cf5…03cfd Line {l1=0x06, l2=» END;«, l3=0x06}
0x03cfd…03d03 Line {l1=0x04, l2=» END«, l3=0x04}
0x03d03…03d09 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03d09…03d11 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03d11…03d27 Line {l1=0x14, l2=»PROCEDURE CHECKPLAN;«, l3=0x14}
0x03d27…03d62 Line {l1=0x39, l2=»VAR K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;«, l3=0x39}
0x03d62…03d9a Line {l1=0x36, l2=» PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;«, l3=0x36}
0x03d9a…03d9d Line {l1=0x01, l2=» «, l3=0x01}
0x03d9d…03dc6 Line {l1=0x27, l2=»PROCEDURE NU(ORDRE,EMNE,OPERA:INTEGER);«, l3=0x27}
0x03dc6…03dcd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03dcd…03dd9 Line {l1=0x0a, l2=» D(24,1);«, l3=0x0a}
0x03dd9…03e26 Line {l1=0x4b, l2=» WRITE('Nu behandles: Ordre',ORDRE:5,' Emne',EMNE:5,' Operation',OPERA:5)«, l3=0x4b}
0x03e26…03e2c Line {l1=0x04, l2=»END;«, l3=0x04}
0x03e2c…03e2f Line {l1=0x01, l2=» «, l3=0x01}
0x03e2f…03e46 Line {l1=0x15, l2=»BEGIN (*CHECKPLAN*)«, l3=0x15}
0x03e46…03e58 Line {l1=0x10, l2=» CHECKOK:=TRUE;«, l3=0x10}
0x03e58…03e76 Line {l1=0x1c, l2=» FOR I:=1 TO ANTLINE+UDE DO«, l3=0x1c}
0x03e76…03e94 Line {l1=0x1c, l2=» WITH REBELIN(REBENR(I)) DO«, l3=0x1c}
0x03e94…03ebf Line {l1=0x29, l2=» IF NOT REBXTRA(REBENR(I)).PLANLAGT THEN«, l3=0x29}
0x03ebf…03ec8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03ec8…03ee9 Line {l1=0x1f, l2=» NU(ORDRENR,EMNENR,OPERANR);«, l3=0x1f}
0x03ee9…03f05 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x03f05…03f1f Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x03f1f…03f3b Line {l1=0x1a, l2=» PROD.SEKVENSN:=SEKVNR;«, l3=0x1a}
0x03f3b…03f57 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x03f57…03f7b Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x03f7b…03fca Line {l1=0x4d, l2=» IF STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000 THEN«, l3=0x4d}
0x03fca…03fd5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03fd5…0401f Line {l1=0x48, l2=» (*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)«, l3=0x48}
0x0401f…04038 Line {l1=0x17, l2=» PROD.SEKVENSN:=0;«, l3=0x17}
0x04038…04050 Line {l1=0x16, l2=» PROD.OPERANR:=0;«, l3=0x16}
0x04050…0405d Line {l1=0x0b, l2=» J:=0;«, l3=0x0b}
0x0405d…040a4 Line {l1=0x45, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x45}
0x040a4…040b3 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x040b3…040d9 Line {l1=0x24, l2=» WHILE PROD.OPERANR<>OPERANR DO«, l3=0x24}
0x040d9…040e6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x040e6…040f7 Line {l1=0x0f, l2=» J:=J+1;«, l3=0x0f}
0x040f7…0411e Line {l1=0x25, l2=» PRODLINE(J,1):=PROD.SEKVENSN;«, l3=0x25}
0x0411e…04144 Line {l1=0x24, l2=» PRODLINE(J,2):=PROD.OPERANR;«, l3=0x24}
0x04144…0416b Line {l1=0x25, l2=» PRODLINE(J,3):=PROD.STARTTID;«, l3=0x25}
0x0416b…04192 Line {l1=0x25, l2=» PRODLINE(J,4):=PROD.VARIGHED;«, l3=0x25}
0x04192…041ba Line {l1=0x26, l2=» NEXTREC(PROD.A);CHECK0(PROD.A)«, l3=0x26}
0x041ba…041c6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x041c6…041eb Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x041eb…04210 Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x04210…04224 Line {l1=0x12, l2=» WHILE J>0 DO«, l3=0x12}
0x04224…04231 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x04231…04276 Line {l1=0x43, l2=» THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;«, l3=0x43}
0x04276…042a2 Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PRODLINE(J,4);«, l3=0x2a}
0x042a2…042c6 Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x042c6…04307 Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x04307…0431f Line {l1=0x16, l2=» IF DIFF>0 THEN«, l3=0x16}
0x0431f…0432f Line {l1=0x0e, l2=» J:=0«, l3=0x0e}
0x0432f…0433d Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0433d…0434c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0434c…04383 Line {l1=0x35, l2=» NU(PROD.ORDRENR,PROD.EMNENR,PRODLINE(J,2));«, l3=0x35}
0x04383…043a9 Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x043a9…043cd Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x043cd…043f5 Line {l1=0x26, l2=» FOR K:=I+1 TO ANTLINE+UDE DO«, l3=0x26}
0x043f5…0441b Line {l1=0x24, l2=» WITH REBELIN(REBENR(K)) DO«, l3=0x24}
0x0441b…04444 Line {l1=0x27, l2=» IF (ORDRENR=PROD.ORDRENR) AND«, l3=0x27}
0x04444…0446b Line {l1=0x25, l2=» (EMNENR=PROD.EMNENR) AND«, l3=0x25}
0x0446b…04494 Line {l1=0x27, l2=» (SEKVNR=PRODLINE(J,1)) AND«, l3=0x27}
0x04494…044bf Line {l1=0x29, l2=» (OPERANR=PRODLINE(J,2)) THEN«, l3=0x29}
0x044bf…044d0 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x044d0…044fc Line {l1=0x2a, l2=» STARTDAG:=(LASTSTART-1) DIV 8;«, l3=0x2a}
0x044fc…04528 Line {l1=0x2a, l2=» STTIME:=(LASTSTART-1) MOD 8+1;«, l3=0x2a}
0x04528…04557 Line {l1=0x2d, l2=» REBXTRA(REBENR(I)).PLANLAGT:=TRUE«, l3=0x2d}
0x04557…04566 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x04566…04574 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x04574…04585 Line {l1=0x0f, l2=» J:=J-1;«, l3=0x0f}
0x04585…045d5 Line {l1=0x4e, l2=» (*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,«, l3=0x4e}
0x045d5…04623 Line {l1=0x4c, l2=» DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND«, l3=0x4c}
0x04623…04646 Line {l1=0x21, l2=» PÅ PLADS SOM I ÆSTART*)«, l3=0x21}
0x04646…04652 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x04652…04665 Line {l1=0x11, l2=» IF J=0 THEN«, l3=0x11}
0x04665…04672 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x04672…046a9 Line {l1=0x35, l2=» ARBEDAG.NR:=(LASTSTART-1) DIV 8; (*!*)«, l3=0x35}
0x046a9…046d7 Line {l1=0x2c, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x2c}
0x046d7…0470c Line {l1=0x33, l2=» IF ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)<«, l3=0x33}
0x0470c…0473d Line {l1=0x2f, l2=» DAGSDATO(1)*10000.0+DAGSDATO(2) THEN«, l3=0x2f}
0x0473d…0474c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0474c…04765 Line {l1=0x17, l2=» GOTOXY(1,23);«, l3=0x17}
0x04765…047a1 Line {l1=0x3a, l2=» WRITE('Startdato ligger før dagsdato, RETURN ');«, l3=0x3a}
0x047a1…047b4 Line {l1=0x11, l2=» READLN;«, l3=0x11}
0x047b4…047cf Line {l1=0x19, l2=» CHECKOK:=FALSE;«, l3=0x19}
0x047cf…047ea Line {l1=0x19, l2=» EXIT(CHECKPLAN)«, l3=0x19}
0x047ea…047f7 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x047f7…04802 Line {l1=0x09, l2=» END«, l3=0x09}
0x04802…0480c Line {l1=0x08, l2=» END;«, l3=0x08}
0x0480c…04857 Line {l1=0x49, l2=» IF STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+«, l3=0x49}
0x04857…048a6 Line {l1=0x4d, l2=» PROD.STARTTID DIV 1000 THEN«, l3=0x4d}
0x048a6…048b1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x048b1…048f9 Line {l1=0x46, l2=» (*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)«, l3=0x46}
0x048f9…0491e Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x0491e…04943 Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x04943…0498a Line {l1=0x45, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x45}
0x0498a…04999 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x04999…049e5 Line {l1=0x4a, l2=» WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO«, l3=0x4a}
0x049e5…049f2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x049f2…04a37 Line {l1=0x43, l2=» THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;«, l3=0x43}
0x04a37…04a63 Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PROD.VARIGHED;«, l3=0x2a}
0x04a63…04a87 Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x04a87…04ac8 Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x04ac8…04ae0 Line {l1=0x16, l2=» IF DIFF<0 THEN«, l3=0x16}
0x04ae0…04af3 Line {l1=0x11, l2=» IER:=-1«, l3=0x11}
0x04af3…04b01 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x04b01…04b10 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x04b10…04b46 Line {l1=0x34, l2=» NU(PROD.ORDRENR,PROD.EMNENR,PROD.OPERANR);«, l3=0x34}
0x04b46…04b6c Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x04b6c…04b90 Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x04b90…04bb8 Line {l1=0x26, l2=» FOR K:=I+1 TO ANTLINE+UDE DO«, l3=0x26}
0x04bb8…04bde Line {l1=0x24, l2=» WITH REBELIN(REBENR(K)) DO«, l3=0x24}
0x04bde…04c07 Line {l1=0x27, l2=» IF (ORDRENR=PROD.ORDRENR) AND«, l3=0x27}
0x04c07…04c2e Line {l1=0x25, l2=» (EMNENR=PROD.EMNENR) AND«, l3=0x25}
0x04c2e…04c57 Line {l1=0x27, l2=» (SEKVNR=PROD.SEKVENSN) AND«, l3=0x27}
0x04c57…04c81 Line {l1=0x28, l2=» (OPERANR=PROD.OPERANR) THEN«, l3=0x28}
0x04c81…04c92 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x04c92…04cbe Line {l1=0x2a, l2=» STARTDAG:=(LASTSTART-1) DIV 8;«, l3=0x2a}
0x04cbe…04cea Line {l1=0x2a, l2=» STTIME:=(LASTSTART-1) MOD 8+1;«, l3=0x2a}
0x04cea…04d19 Line {l1=0x2d, l2=» REBXTRA(REBENR(I)).PLANLAGT:=TRUE«, l3=0x2d}
0x04d19…04d29 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x04d29…04d79 Line {l1=0x4e, l2=» (*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,«, l3=0x4e}
0x04d79…04dc7 Line {l1=0x4c, l2=» DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND«, l3=0x4c}
0x04dc7…04dea Line {l1=0x21, l2=» PÅ PLADS SOM I ÆSTART*)«, l3=0x21}
0x04dea…04e05 Line {l1=0x19, l2=» NEXTREC(PROD.A)«, l3=0x19}
0x04e05…04e12 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x04e12…04e1e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x04e1e…04e55 Line {l1=0x35, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x35}
0x04e55…04e6c Line {l1=0x15, l2=» IF IER<>-1 THEN«, l3=0x15}
0x04e6c…04e79 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x04e79…04ea2 Line {l1=0x27, l2=» ARBEDAG.NR:=(LASTSLUT-1) DIV 8;«, l3=0x27}
0x04ea2…04ed0 Line {l1=0x2c, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x2c}
0x04ed0…04f0a Line {l1=0x38, l2=» IF ARBEDAG.UGENR>REBXTRA(REBENR(I)).ØNSKLEV THEN«, l3=0x38}
0x04f0a…04f19 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x04f19…04f52 Line {l1=0x37, l2=» IF QJN('Skal leveringsuge rykkes') IN JA THEN«, l3=0x37}
0x04f52…04f63 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x04f63…04f9b Line {l1=0x36, l2=» REBXTRA(REBENR(I)).ØNSKLEV:=ARBEDAG.UGENR;«, l3=0x36}
0x04f9b…04fce Line {l1=0x31, l2=» IF REBXTRA(REBENR(I)).BEKRÆLEV>0 THEN«, l3=0x31}
0x04fce…05008 Line {l1=0x38, l2=» REBXTRA(REBENR(I)).BEKRÆLEV:=ARBEDAG.UGENR«, l3=0x38}
0x05008…05017 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x05017…05027 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x05027…05038 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x05038…05055 Line {l1=0x1b, l2=» CHECKOK:=FALSE;«, l3=0x1b}
0x05055…05072 Line {l1=0x1b, l2=» EXIT(CHECKPLAN)«, l3=0x1b}
0x05072…05081 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x05081…0508e Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0508e…05099 Line {l1=0x09, l2=» END«, l3=0x09}
0x05099…050a2 Line {l1=0x07, l2=» END«, l3=0x07}
0x050a2…050a9 Line {l1=0x05, l2=» END«, l3=0x05}
0x050a9…050b1 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x050b1…050d9 Line {l1=0x26, l2=» REBXTRA(REBENR(I)).PLANLAGT:=FALSE«, l3=0x26}
0x050d9…050df Line {l1=0x04, l2=»END;«, l3=0x04}
0x050df…050e7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x050e7…050fb Line {l1=0x12, l2=»PROCEDURE UDFPLAN;«, l3=0x12}
0x050fb…05136 Line {l1=0x39, l2=»VAR K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;«, l3=0x39}
0x05136…0516e Line {l1=0x36, l2=» PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;«, l3=0x36}
0x0516e…05171 Line {l1=0x01, l2=» «, l3=0x01}
0x05171…0519a Line {l1=0x27, l2=»PROCEDURE NU(ORDRE,EMNE,OPERA:INTEGER);«, l3=0x27}
0x0519a…051a1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x051a1…051ad Line {l1=0x0a, l2=» D(24,1);«, l3=0x0a}
0x051ad…051fa Line {l1=0x4b, l2=» WRITE('Nu behandles: Ordre',ORDRE:5,' Emne',EMNE:5,' Operation',OPERA:5)«, l3=0x4b}
0x051fa…05200 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05200…05203 Line {l1=0x01, l2=» «, l3=0x01}
0x05203…0522c Line {l1=0x27, l2=»PROCEDURE DESERVER(VAR RESSNR:INTEGER);«, l3=0x27}
0x0522c…05233 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05233…05247 Line {l1=0x12, l2=» IF RESSNR>0 THEN«, l3=0x12}
0x05247…0525b Line {l1=0x12, l2=» WITH REBELAST DO«, l3=0x12}
0x0525b…05264 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05264…0527a Line {l1=0x14, l2=» RESS.NR:=RESSNR;«, l3=0x14}
0x0527a…0529e Line {l1=0x22, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x22}
0x0529e…052bc Line {l1=0x1c, l2=» IF RESS.RESSTYPE>0 THEN «, l3=0x1c}
0x052bc…052c7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x052c7…052da Line {l1=0x11, l2=» NR:=RESSNR;«, l3=0x11}
0x052da…05308 Line {l1=0x2c, l2=» GOTOXY(52,24);WRITE('Ressource',NR:5);«, l3=0x2c}
0x05308…05326 Line {l1=0x1c, l2=» ORDRENR:=PROD.ORDRENR;«, l3=0x1c}
0x05326…05342 Line {l1=0x1a, l2=» EMNENR:=PROD.EMNENR;«, l3=0x1a}
0x05342…05360 Line {l1=0x1c, l2=» OPERANR:=PROD.OPERANR;«, l3=0x1c}
0x05360…0537e Line {l1=0x1c, l2=» SEKVNR:=PROD.SEKVENSN;«, l3=0x1c}
0x0537e…053a7 Line {l1=0x27, l2=» STARTDAG:=PROD.STARTTID MOD 1000;«, l3=0x27}
0x053a7…053ce Line {l1=0x25, l2=» STTIME:=PROD.STARTTID DIV 1000;«, l3=0x25}
0x053ce…053ee Line {l1=0x1e, l2=» VARIGHED:=PROD.VARIGHED;«, l3=0x1e}
0x053ee…0540b Line {l1=0x1b, l2=» GETRECX(A);CHECK0(A);«, l3=0x1b}
0x0540b…05426 Line {l1=0x19, l2=» DELETE(A);CHECK0(A)«, l3=0x19}
0x05426…0542f Line {l1=0x07, l2=» END«, l3=0x07}
0x0542f…05436 Line {l1=0x05, l2=» END«, l3=0x05}
0x05436…0543c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0543c…05444 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05444…0546d Line {l1=0x27, l2=»PROCEDURE RESERVER(VAR RESSNR:INTEGER);«, l3=0x27}
0x0546d…05474 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05474…05488 Line {l1=0x12, l2=» IF RESSNR>0 THEN«, l3=0x12}
0x05488…0549c Line {l1=0x12, l2=» WITH REBELAST DO«, l3=0x12}
0x0549c…054a5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x054a5…054bb Line {l1=0x14, l2=» RESS.NR:=RESSNR;«, l3=0x14}
0x054bb…054df Line {l1=0x22, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x22}
0x054df…054fd Line {l1=0x1c, l2=» IF RESS.RESSTYPE>0 THEN «, l3=0x1c}
0x054fd…05508 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x05508…0551b Line {l1=0x11, l2=» NR:=RESSNR;«, l3=0x11}
0x0551b…05549 Line {l1=0x2c, l2=» GOTOXY(52,24);WRITE('Ressource',NR:5);«, l3=0x2c}
0x05549…05567 Line {l1=0x1c, l2=» ORDRENR:=PROD.ORDRENR;«, l3=0x1c}
0x05567…05583 Line {l1=0x1a, l2=» EMNENR:=PROD.EMNENR;«, l3=0x1a}
0x05583…055a1 Line {l1=0x1c, l2=» OPERANR:=PROD.OPERANR;«, l3=0x1c}
0x055a1…055bf Line {l1=0x1c, l2=» SEKVNR:=PROD.SEKVENSN;«, l3=0x1c}
0x055bf…055e8 Line {l1=0x27, l2=» STARTDAG:=PROD.STARTTID MOD 1000;«, l3=0x27}
0x055e8…0560f Line {l1=0x25, l2=» STTIME:=PROD.STARTTID DIV 1000;«, l3=0x25}
0x0560f…0562f Line {l1=0x1e, l2=» VARIGHED:=PROD.VARIGHED;«, l3=0x1e}
0x0562f…0564a Line {l1=0x19, l2=» INSERT(A);CHECK0(A)«, l3=0x19}
0x0564a…05653 Line {l1=0x07, l2=» END«, l3=0x07}
0x05653…0565a Line {l1=0x05, l2=» END«, l3=0x05}
0x0565a…05660 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05660…05668 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05668…0566b Line {l1=0x01, l2=» «, l3=0x01}
0x0566b…05672 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05672…05684 Line {l1=0x10, l2=» CHECKOK:=TRUE;«, l3=0x10}
0x05684…056a2 Line {l1=0x1c, l2=» FOR I:=1 TO ANTLINE+UDE DO«, l3=0x1c}
0x056a2…056c0 Line {l1=0x1c, l2=» WITH REBELIN(REBENR(I)) DO«, l3=0x1c}
0x056c0…056eb Line {l1=0x29, l2=» IF NOT REBXTRA(REBENR(I)).PLANLAGT THEN«, l3=0x29}
0x056eb…056f4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x056f4…05715 Line {l1=0x1f, l2=» NU(ORDRENR,EMNENR,OPERANR);«, l3=0x1f}
0x05715…05731 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x05731…0574b Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x0574b…05767 Line {l1=0x1a, l2=» PROD.SEKVENSN:=SEKVNR;«, l3=0x1a}
0x05767…05783 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x05783…057a7 Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x057a7…057c2 Line {l1=0x19, l2=» DESERVER(PROD.RESS1);«, l3=0x19}
0x057c2…057dd Line {l1=0x19, l2=» DESERVER(PROD.RESS2);«, l3=0x19}
0x057dd…057f8 Line {l1=0x19, l2=» DESERVER(PROD.RESS3);«, l3=0x19}
0x057f8…05847 Line {l1=0x4d, l2=» IF STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000 THEN«, l3=0x4d}
0x05847…05852 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x05852…0589c Line {l1=0x48, l2=» (*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)«, l3=0x48}
0x0589c…058b5 Line {l1=0x17, l2=» PROD.SEKVENSN:=0;«, l3=0x17}
0x058b5…058cd Line {l1=0x16, l2=» PROD.OPERANR:=0;«, l3=0x16}
0x058cd…058da Line {l1=0x0b, l2=» J:=0;«, l3=0x0b}
0x058da…05921 Line {l1=0x45, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x45}
0x05921…05930 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x05930…05956 Line {l1=0x24, l2=» WHILE PROD.OPERANR<>OPERANR DO«, l3=0x24}
0x05956…05963 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x05963…05974 Line {l1=0x0f, l2=» J:=J+1;«, l3=0x0f}
0x05974…0599b Line {l1=0x25, l2=» PRODLINE(J,1):=PROD.SEKVENSN;«, l3=0x25}
0x0599b…059c1 Line {l1=0x24, l2=» PRODLINE(J,2):=PROD.OPERANR;«, l3=0x24}
0x059c1…059e8 Line {l1=0x25, l2=» PRODLINE(J,3):=PROD.STARTTID;«, l3=0x25}
0x059e8…05a0f Line {l1=0x25, l2=» PRODLINE(J,4):=PROD.VARIGHED;«, l3=0x25}
0x05a0f…05a37 Line {l1=0x26, l2=» NEXTREC(PROD.A);CHECK0(PROD.A)«, l3=0x26}
0x05a37…05a43 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x05a43…05a68 Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x05a68…05a8d Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x05a8d…05aa1 Line {l1=0x12, l2=» WHILE J>0 DO«, l3=0x12}
0x05aa1…05aae Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x05aae…05af3 Line {l1=0x43, l2=» THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;«, l3=0x43}
0x05af3…05b1f Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PRODLINE(J,4);«, l3=0x2a}
0x05b1f…05b43 Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x05b43…05b84 Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x05b84…05b9c Line {l1=0x16, l2=» IF DIFF>0 THEN«, l3=0x16}
0x05b9c…05bac Line {l1=0x0e, l2=» J:=0«, l3=0x0e}
0x05bac…05bba Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x05bba…05bc9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x05bc9…05bf6 Line {l1=0x2b, l2=» NU(ORDRENR,EMNENR,PRODLINE(J,2));«, l3=0x2b}
0x05bf6…05c1c Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x05c1c…05c40 Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x05c40…05c62 Line {l1=0x20, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x20}
0x05c62…05c82 Line {l1=0x1e, l2=» PROD.EMNENR:=EMNENR;«, l3=0x1e}
0x05c82…05cab Line {l1=0x27, l2=» PROD.SEKVENSN:=PRODLINE(J,1);«, l3=0x27}
0x05cab…05cd3 Line {l1=0x26, l2=» PROD.OPERANR:=PRODLINE(J,2);«, l3=0x26}
0x05cd3…05cfe Line {l1=0x29, l2=» GETRECX(PROD.A);CHECK0(PROD.A);«, l3=0x29}
0x05cfe…05d1f Line {l1=0x1f, l2=» DESERVER(PROD.RESS1);«, l3=0x1f}
0x05d1f…05d40 Line {l1=0x1f, l2=» DESERVER(PROD.RESS2);«, l3=0x1f}
0x05d40…05d61 Line {l1=0x1f, l2=» DESERVER(PROD.RESS3);«, l3=0x1f}
0x05d61…05dad Line {l1=0x4a, l2=» PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;«, l3=0x4a}
0x05dad…05dce Line {l1=0x1f, l2=» RESERVER(PROD.RESS1);«, l3=0x1f}
0x05dce…05def Line {l1=0x1f, l2=» RESERVER(PROD.RESS2);«, l3=0x1f}
0x05def…05e10 Line {l1=0x1f, l2=» RESERVER(PROD.RESS3);«, l3=0x1f}
0x05e10…05e38 Line {l1=0x26, l2=» FOR K:=I+1 TO ANTLINE+UDE DO«, l3=0x26}
0x05e38…05e5e Line {l1=0x24, l2=» WITH REBELIN(REBENR(K)) DO«, l3=0x24}
0x05e5e…05e87 Line {l1=0x27, l2=» IF (ORDRENR=PROD.ORDRENR) AND«, l3=0x27}
0x05e87…05eae Line {l1=0x25, l2=» (EMNENR=PROD.EMNENR) AND«, l3=0x25}
0x05eae…05ed7 Line {l1=0x27, l2=» (SEKVNR=PROD.SEKVENSN) AND«, l3=0x27}
0x05ed7…05f01 Line {l1=0x28, l2=» (OPERANR=PROD.OPERANR) THEN«, l3=0x28}
0x05f01…05f12 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x05f12…05f3e Line {l1=0x2a, l2=» STARTDAG:=(LASTSTART-1) DIV 8;«, l3=0x2a}
0x05f3e…05f6a Line {l1=0x2a, l2=» STTIME:=(LASTSTART-1) MOD 8+1;«, l3=0x2a}
0x05f6a…05f99 Line {l1=0x2d, l2=» REBXTRA(REBENR(I)).PLANLAGT:=TRUE«, l3=0x2d}
0x05f99…05fa9 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x05fa9…05fd2 Line {l1=0x27, l2=» PUTREC(PROD.A);CHECK0(PROD.A)«, l3=0x27}
0x05fd2…05fe0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x05fe0…05ff0 Line {l1=0x0e, l2=» J:=J-1«, l3=0x0e}
0x05ff0…06040 Line {l1=0x4e, l2=» (*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,«, l3=0x4e}
0x06040…0608e Line {l1=0x4c, l2=» DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND«, l3=0x4c}
0x0608e…060b1 Line {l1=0x21, l2=» PÅ PLADS SOM I ÆSTART*)«, l3=0x21}
0x060b1…060bc Line {l1=0x09, l2=» END«, l3=0x09}
0x060bc…060c6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x060c6…060e2 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x060e2…060fc Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x060fc…06118 Line {l1=0x1a, l2=» PROD.SEKVENSN:=SEKVNR;«, l3=0x1a}
0x06118…06134 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x06134…06158 Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x06158…061a3 Line {l1=0x49, l2=» IF STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+«, l3=0x49}
0x061a3…061f2 Line {l1=0x4d, l2=» PROD.STARTTID DIV 1000 THEN«, l3=0x4d}
0x061f2…061fd Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x061fd…06245 Line {l1=0x46, l2=» (*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)«, l3=0x46}
0x06245…0626a Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x0626a…0628f Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x0628f…062d7 Line {l1=0x46, l2=» NEXTRECX(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x46}
0x062d7…062e6 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x062e6…06332 Line {l1=0x4a, l2=» WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO«, l3=0x4a}
0x06332…0633f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0633f…06384 Line {l1=0x43, l2=» THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;«, l3=0x43}
0x06384…063b0 Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PROD.VARIGHED;«, l3=0x2a}
0x063b0…063d4 Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x063d4…06415 Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x06415…0642d Line {l1=0x16, l2=» IF DIFF<0 THEN«, l3=0x16}
0x0642d…06440 Line {l1=0x11, l2=» IER:=-1«, l3=0x11}
0x06440…0644e Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0644e…0645d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0645d…06493 Line {l1=0x34, l2=» NU(PROD.ORDRENR,PROD.EMNENR,PROD.OPERANR);«, l3=0x34}
0x06493…064b9 Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x064b9…064dd Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x064dd…064fe Line {l1=0x1f, l2=» DESERVER(PROD.RESS1);«, l3=0x1f}
0x064fe…0651f Line {l1=0x1f, l2=» DESERVER(PROD.RESS2);«, l3=0x1f}
0x0651f…06540 Line {l1=0x1f, l2=» DESERVER(PROD.RESS3);«, l3=0x1f}
0x06540…0658c Line {l1=0x4a, l2=» PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;«, l3=0x4a}
0x0658c…065ad Line {l1=0x1f, l2=» RESERVER(PROD.RESS1);«, l3=0x1f}
0x065ad…065ce Line {l1=0x1f, l2=» RESERVER(PROD.RESS2);«, l3=0x1f}
0x065ce…065ef Line {l1=0x1f, l2=» RESERVER(PROD.RESS3);«, l3=0x1f}
0x065ef…06617 Line {l1=0x26, l2=» FOR K:=I+1 TO ANTLINE+UDE DO«, l3=0x26}
0x06617…0663d Line {l1=0x24, l2=» WITH REBELIN(REBENR(K)) DO«, l3=0x24}
0x0663d…06666 Line {l1=0x27, l2=» IF (ORDRENR=PROD.ORDRENR) AND«, l3=0x27}
0x06666…0668d Line {l1=0x25, l2=» (EMNENR=PROD.EMNENR) AND«, l3=0x25}
0x0668d…066b6 Line {l1=0x27, l2=» (SEKVNR=PROD.SEKVENSN) AND«, l3=0x27}
0x066b6…066e0 Line {l1=0x28, l2=» (OPERANR=PROD.OPERANR) THEN«, l3=0x28}
0x066e0…066f1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x066f1…0671d Line {l1=0x2a, l2=» STARTDAG:=(LASTSTART-1) DIV 8;«, l3=0x2a}
0x0671d…06749 Line {l1=0x2a, l2=» STTIME:=(LASTSTART-1) MOD 8+1;«, l3=0x2a}
0x06749…06778 Line {l1=0x2d, l2=» REBXTRA(REBENR(I)).PLANLAGT:=TRUE«, l3=0x2d}
0x06778…06788 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x06788…067b2 Line {l1=0x28, l2=» PUTREC(PROD.A);CHECK0(PROD.A);«, l3=0x28}
0x067b2…06802 Line {l1=0x4e, l2=» (*CHECK FRA I+1 TIL ANTLINE+UDE OM DENNE PROD ER PÅ PLANLÆGNINGSSIDEN,«, l3=0x4e}
0x06802…06850 Line {l1=0x4c, l2=» DEN SKAL I SÅ FALD HAVE ÆNDRET TIDEN, PLANLAGT:=TRUE, SORTERES IND«, l3=0x4c}
0x06850…06873 Line {l1=0x21, l2=» PÅ PLADS SOM I ÆSTART*)«, l3=0x21}
0x06873…0688f Line {l1=0x1a, l2=» NEXTRECX(PROD.A)«, l3=0x1a}
0x0688f…0689c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0689c…068a8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x068a8…068df Line {l1=0x35, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A) «, l3=0x35}
0x068df…068e9 Line {l1=0x08, l2=» END;«, l3=0x08}
0x068e9…06905 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x06905…0691f Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x0691f…0693b Line {l1=0x1a, l2=» PROD.SEKVENSN:=SEKVNR;«, l3=0x1a}
0x0693b…06957 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x06957…0697c Line {l1=0x23, l2=» GETRECX(PROD.A);CHECK0(PROD.A);«, l3=0x23}
0x0697c…069a6 Line {l1=0x28, l2=» PROD.STARTTID:=STARTDAG+1000*STTIME;«, l3=0x28}
0x069a6…069c4 Line {l1=0x1c, l2=» PROD.VARIGHED:=VARIGHED;«, l3=0x1c}
0x069c4…069fb Line {l1=0x35, l2=» IF PROD.RESS1=POST.RESSOURCE THEN PROD.RESS1:=NR;«, l3=0x35}
0x069fb…06a32 Line {l1=0x35, l2=» IF PROD.RESS2=POST.RESSOURCE THEN PROD.RESS2:=NR;«, l3=0x35}
0x06a32…06a69 Line {l1=0x35, l2=» IF PROD.RESS3=POST.RESSOURCE THEN PROD.RESS3:=NR;«, l3=0x35}
0x06a69…06a84 Line {l1=0x19, l2=» RESERVER(PROD.RESS1);«, l3=0x19}
0x06a84…06a9f Line {l1=0x19, l2=» RESERVER(PROD.RESS2);«, l3=0x19}
0x06a9f…06aba Line {l1=0x19, l2=» RESERVER(PROD.RESS3);«, l3=0x19}
0x06aba…06ade Line {l1=0x22, l2=» PUTREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x06ade…06af6 Line {l1=0x16, l2=» ORDRE.NR:=ORDRENR;«, l3=0x16}
0x06af6…06b11 Line {l1=0x19, l2=» ORDRE.EMNENR:=EMNENR;«, l3=0x19}
0x06b11…06b38 Line {l1=0x25, l2=» GETRECX(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x25}
0x06b38…06b69 Line {l1=0x2f, l2=» ORDRE.BEKRÆLEV:=REBXTRA(REBENR(I)).ØNSKLEV;«, l3=0x2f}
0x06b69…06b8e Line {l1=0x23, l2=» PUTREC(ORDRE.A);CHECK0(ORDRE.A)«, l3=0x23}
0x06b8e…06b95 Line {l1=0x05, l2=» END«, l3=0x05}
0x06b95…06b9b Line {l1=0x04, l2=»END;«, l3=0x04}
0x06b9b…06ba3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x06ba3…06bb6 Line {l1=0x11, l2=»PROCEDURE AFSLUT;«, l3=0x11}
0x06bb6…06bbd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06bbd…06bf9 Line {l1=0x3a, l2=» IF QJN('Ønskes check og ændringer foretaget') IN JA THEN«, l3=0x3a}
0x06bf9…06c02 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06c02…06c2b Line {l1=0x27, l2=» GETRECX(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x27}
0x06c2b…06c3b Line {l1=0x0e, l2=» CHECKPLAN;«, l3=0x0e}
0x06c3b…06c51 Line {l1=0x14, l2=» IF CHECKOK THEN «, l3=0x14}
0x06c51…06c5c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x06c5c…06c6c Line {l1=0x0e, l2=» UDFPLAN;«, l3=0x0e}
0x06c6c…06c7e Line {l1=0x10, l2=» GETBELAST;«, l3=0x10}
0x06c7e…06c9c Line {l1=0x1c, l2=» RESSBILLEDE(0,ANTLINE)«, l3=0x1c}
0x06c9c…06ca5 Line {l1=0x07, l2=» END«, l3=0x07}
0x06ca5…06cbb Line {l1=0x14, l2=» ELSE CH(1):='5';«, l3=0x14}
0x06cbb…06ce2 Line {l1=0x25, l2=» PUTREC(SYSTEM.A);CHECK0(SYSTEM.A)«, l3=0x25}
0x06ce2…06ce9 Line {l1=0x05, l2=» END«, l3=0x05}
0x06ce9…06cef Line {l1=0x04, l2=»END;«, l3=0x04}
0x06cef…06cf7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x06cf7…06d0b Line {l1=0x12, l2=»BEGIN (*RESSPLAN*)«, l3=0x12}
0x06d0b…06d1d Line {l1=0x10, l2=» CHECKOK:=FALSE;«, l3=0x10}
0x06d1d…06d26 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x06d26…06d3e Line {l1=0x16, l2=» LÆSFELT(PICTURE(1));«, l3=0x16}
0x06d3e…06d6a Line {l1=0x2a, l2=» IF POST.RESSOURCE=0 THEN EXIT(RESSPLAN);«, l3=0x2a}
0x06d6a…06d86 Line {l1=0x1a, l2=» RESS.NR:=POST.RESSOURCE;«, l3=0x1a}
0x06d86…06dc5 Line {l1=0x3d, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x3d}
0x06dc5…06e09 Line {l1=0x42, l2=» IF IER=-6 THEN BEGIN NONEXIST('Ressourcen'); EXIT(RESSPLAN) END;«, l3=0x42}
0x06e09…06e17 Line {l1=0x0c, l2=» GETBELAST;«, l3=0x0c}
0x06e17…06e32 Line {l1=0x19, l2=» RESSBILLEDE(0,ANTLINE);«, l3=0x19}
0x06e32…06e3c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x06e3c…06e4a Line {l1=0x0c, l2=» D(23,2);«, l3=0x0c}
0x06e4a…06e8a Line {l1=0x3e, l2=» WRITELN('Ændring af 1: Starttid 2: Varighed 3: Ressource',«, l3=0x3e}
0x06e8a…06eaf Line {l1=0x23, l2=» ' Vælg 1-6');«, l3=0x23}
0x06eaf…06ef0 Line {l1=0x3f, l2=» WRITE('4: Sekventiel udlægning 5: Check plan 6: Afslut');«, l3=0x3f}
0x06ef0…06efc Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x06efc…06f0c Line {l1=0x0e, l2=» CH:='1';«, l3=0x0e}
0x06f0c…06f22 Line {l1=0x14, l2=» GOTOXY(75,23);«, l3=0x14}
0x06f22…06f32 Line {l1=0x0e, l2=» EDIT(CH)«, l3=0x0e}
0x06f32…06f54 Line {l1=0x20, l2=» UNTIL CH(1) IN (.'1'..'6'.);«, l3=0x20}
0x06f54…06f67 Line {l1=0x11, l2=» CASE CH(1) OF«, l3=0x11}
0x06f67…06f78 Line {l1=0x0f, l2=» '1':ÆSTART;«, l3=0x0f}
0x06f78…06f89 Line {l1=0x0f, l2=» '2':ÆVARIG;«, l3=0x0f}
0x06f89…06f99 Line {l1=0x0e, l2=» '3':ÆRESS;«, l3=0x0e}
0x06f99…06fab Line {l1=0x10, l2=» '4':SEKVUDL;«, l3=0x10}
0x06fab…06fe0 Line {l1=0x33, l2=» '5':BEGIN CHECKPLAN;RESSBILLEDE(0,ANTLINE) END;«, l3=0x33}
0x06fe0…06ff0 Line {l1=0x0e, l2=» '6':AFSLUT«, l3=0x0e}
0x06ff0…06ff9 Line {l1=0x07, l2=» END«, l3=0x07}
0x06ff9…0700c Line {l1=0x11, l2=» UNTIL CH(1)='6'«, l3=0x11}
0x0700c…07025 Line {l1=0x17, l2=» UNTIL POST.RESSOURCE=0«, l3=0x17}
0x07025…0702b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0702b…07033 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07033…07049 Line {l1=0x14, l2=»PROCEDURE ORDREPLAN;«, l3=0x14}
0x07049…0705c Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0705c…07072 Line {l1=0x14, l2=» CHECKOK:BOOLEAN;«, l3=0x14}
0x07072…0709b Line {l1=0x27, l2=» SKEMA:PACKED ARRAY (1..52) OF CHAR;«, l3=0x27}
0x0709b…070c3 Line {l1=0x26, l2=» REBXTRA:ARRAY (1..20) OF REBEXTRA;«, l3=0x26}
0x070c3…070e9 Line {l1=0x24, l2=» ORDENR:ARRAY (1..20) OF INTEGER;«, l3=0x24}
0x070e9…07111 Line {l1=0x26, l2=» ORDELIN:ARRAY (1..20) OF PRODPOST;«, l3=0x26}
0x07111…07114 Line {l1=0x01, l2=» «, l3=0x01}
0x07114…07156 Line {l1=0x40, l2=»PROCEDURE ORDBILLEDE(FRA,TIL:INTEGER); (*FRA=0 => ALLE + HOVED*)«, l3=0x40}
0x07156…0717d Line {l1=0x25, l2=»VAR I,AKTWEEK,AKTDAG,STARTDAG,STTIME,«, l3=0x25}
0x0717d…07192 Line {l1=0x13, l2=» REST,C:INTEGER;«, l3=0x13}
0x07192…071b8 Line {l1=0x24, l2=» ESC:PACKED ARRAY (1..2) OF CHAR;«, l3=0x24}
0x071b8…071c6 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x071c6…071cd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x071cd…071eb Line {l1=0x1c, l2=» ESC:=' N';ESC(1):=CHR(27);«, l3=0x1c}
0x071eb…071fc Line {l1=0x0f, l2=» IF FRA=0 THEN«, l3=0x0f}
0x071fc…07205 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x07205…07217 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x07217…0725b Line {l1=0x42, l2=» SKEMA:='ü ü';«, l3=0x42}
0x0725b…07286 Line {l1=0x29, l2=» WRITE('Ordrenr :',ORDRE.NR:5,' ':5);«, l3=0x29}
0x07286…072a2 Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x072a2…072cc Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x072cc…072dd Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x072dd…072f4 Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x072f4…072ff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x072ff…07325 Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x07325…07332 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07332…0734e Line {l1=0x1a, l2=» SKEMA(2*I-1):='ü';«, l3=0x1a}
0x0734e…0736f Line {l1=0x1f, l2=» AKTWEEK:=ARBEDAG.UGENR;«, l3=0x1f}
0x0736f…07397 Line {l1=0x26, l2=» WRITE(ARBEDAG.UGENR MOD 100:2)«, l3=0x26}
0x07397…073a2 Line {l1=0x09, l2=» END«, l3=0x09}
0x073a2…073bc Line {l1=0x18, l2=» ELSE WRITE(' ':2);«, l3=0x18}
0x073bc…07408 Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x07408…07412 Line {l1=0x08, l2=» END;«, l3=0x08}
0x07412…0742c Line {l1=0x18, l2=» WRITELN(' Leveres');«, l3=0x18}
0x0742c…07450 Line {l1=0x22, l2=» WRITE('Nr Opera Betegnelse ');«, l3=0x22}
0x07450…0746c Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x0746c…07496 Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x07496…074a6 Line {l1=0x0e, l2=» AKTDAG:=0;«, l3=0x0e}
0x074a6…074b7 Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x074b7…074ce Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x074ce…074d9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x074d9…074ff Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x074ff…07533 Line {l1=0x32, l2=» BEGIN AKTDAG:=0; AKTWEEK:=ARBEDAG.UGENR END;«, l3=0x32}
0x07533…0754b Line {l1=0x16, l2=» IF AKTDAG<5 THEN«, l3=0x16}
0x0754b…07558 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07558…07573 Line {l1=0x19, l2=» AKTDAG:=AKTDAG+1;«, l3=0x19}
0x07573…0758c Line {l1=0x17, l2=» WRITE(AKTDAG:2)«, l3=0x17}
0x0758c…07597 Line {l1=0x09, l2=» END«, l3=0x09}
0x07597…075b1 Line {l1=0x18, l2=» ELSE WRITE(' ':2);«, l3=0x18}
0x075b1…075fd Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x075fd…07607 Line {l1=0x08, l2=» END;«, l3=0x08}
0x07607…07622 Line {l1=0x19, l2=» WRITELN(' Uge ant');«, l3=0x19}
0x07622…0762e Line {l1=0x0a, l2=» FRA:=1«, l3=0x0a}
0x0762e…07636 Line {l1=0x06, l2=» END;«, l3=0x06}
0x07636…0764e Line {l1=0x16, l2=» FOR I:=FRA TO TIL DO«, l3=0x16}
0x0764e…0767f Line {l1=0x2f, l2=» WITH ORDELIN(ORDENR(I)),REBXTRA(ORDENR(I)) DO«, l3=0x2f}
0x0767f…07688 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x07688…076c4 Line {l1=0x3a, l2=» STARTDAG:=STARTTID MOD 1000;STTIME:=STARTTID DIV 1000;«, l3=0x3a}
0x076c4…076d8 Line {l1=0x12, l2=» GOTOXY(1,I+2);«, l3=0x12}
0x076d8…07704 Line {l1=0x2a, l2=» WRITE(I:2,OPERANR:6,' ',BETEGN,SKEMA);«, l3=0x2a}
0x07704…07733 Line {l1=0x2d, l2=» IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN«, l3=0x2d}
0x07733…0773e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0773e…0776c Line {l1=0x2c, l2=» GOTOXY(21+2*(STARTDAG-PSTARTDAG),I+2);«, l3=0x2c}
0x0776c…07790 Line {l1=0x22, l2=» IF STTIME>4 THEN WRITE(' ');«, l3=0x22}
0x07790…077c8 Line {l1=0x36, l2=» IF STARTDAG-PSTARTDAG+(VARIGHED-1) DIV 8<26 THEN«, l3=0x36}
0x077c8…077e0 Line {l1=0x16, l2=» REST:=VARIGHED«, l3=0x16}
0x077e0…077ec Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x077ec…07817 Line {l1=0x29, l2=» REST:=200-(STARTDAG-PSTARTDAG)*8;«, l3=0x29}
0x07817…07833 Line {l1=0x1a, l2=» CASE STTIME MOD 4 OF«, l3=0x1a}
0x07833…0785a Line {l1=0x25, l2=» 0:BEGIN C:=40;REST:=REST-1 END;«, l3=0x25}
0x0785a…07874 Line {l1=0x18, l2=» 2:CASE VARIGHED OF«, l3=0x18}
0x07874…0789d Line {l1=0x27, l2=» 1:BEGIN C:=36;REST:=REST-1 END;«, l3=0x27}
0x0789d…078c6 Line {l1=0x27, l2=» 2:BEGIN C:=38;REST:=REST-2 END;«, l3=0x27}
0x078c6…078f7 Line {l1=0x2f, l2=» OTHERWISE BEGIN C:=46;REST:=REST-3 END;«, l3=0x2f}
0x078f7…07930 Line {l1=0x37, l2=» 3:IF VARIGHED=1 THEN BEGIN C:=34;REST:=REST-1 END«, l3=0x37}
0x07930…0795c Line {l1=0x2a, l2=» ELSE BEGIN C:=42;REST:=REST-2 END;«, l3=0x2a}
0x0795c…07973 Line {l1=0x15, l2=» OTHERWISE C:=0;«, l3=0x15}
0x07973…07986 Line {l1=0x11, l2=» IF C>0 THEN«, l3=0x11}
0x07986…07993 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07993…079a8 Line {l1=0x13, l2=» CH:=CHR(C);«, l3=0x13}
0x079a8…079bf Line {l1=0x15, l2=» WRITE(ESC,CH)«, l3=0x15}
0x079bf…079cb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x079cb…079df Line {l1=0x12, l2=» CH:=CHR(47);«, l3=0x12}
0x079df…079f6 Line {l1=0x15, l2=» WHILE REST>3 DO«, l3=0x15}
0x079f6…07a03 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07a03…07a1b Line {l1=0x16, l2=» WRITE(ESC,CH);«, l3=0x16}
0x07a1b…07a31 Line {l1=0x14, l2=» REST:=REST-4«, l3=0x14}
0x07a31…07a3d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x07a3d…07a51 Line {l1=0x12, l2=» CASE REST OF«, l3=0x12}
0x07a51…07a61 Line {l1=0x0e, l2=» 1:C:=33;«, l3=0x0e}
0x07a61…07a71 Line {l1=0x0e, l2=» 2:C:=37;«, l3=0x0e}
0x07a71…07a81 Line {l1=0x0e, l2=» 3:C:=39;«, l3=0x0e}
0x07a81…07a98 Line {l1=0x15, l2=» OTHERWISE C:=0;«, l3=0x15}
0x07a98…07aab Line {l1=0x11, l2=» IF C>0 THEN«, l3=0x11}
0x07aab…07ab8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x07ab8…07acd Line {l1=0x13, l2=» CH:=CHR(C);«, l3=0x13}
0x07acd…07ae4 Line {l1=0x15, l2=» WRITE(ESC,CH)«, l3=0x15}
0x07ae4…07af0 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x07af0…07afa Line {l1=0x08, l2=» END;«, l3=0x08}
0x07afa…07b0f Line {l1=0x13, l2=» GOTOXY(72,I+2);«, l3=0x13}
0x07b0f…07b27 Line {l1=0x16, l2=» IF BEKRÆLEV>0 THEN«, l3=0x16}
0x07b27…07b4c Line {l1=0x23, l2=» WRITE(BEKRÆLEV MOD 100:2,'!')«, l3=0x23}
0x07b4c…07b56 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x07b56…07b7b Line {l1=0x23, l2=» WRITE(ØNSKLEV MOD 100:2,' ');«, l3=0x23}
0x07b7b…07b9b Line {l1=0x1e, l2=» WRITE(ORDRE.ANTALBES:5:-2)«, l3=0x1e}
0x07b9b…07ba2 Line {l1=0x05, l2=» END«, l3=0x05}
0x07ba2…07ba8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07ba8…07bb0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07bb0…07bc4 Line {l1=0x12, l2=»PROCEDURE GETPROD;«, l3=0x12}
0x07bc4…07bcb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07bcb…07be8 Line {l1=0x1b, l2=» PROD.ORDRENR:=POST.ORDRE;«, l3=0x1b}
0x07be8…07c05 Line {l1=0x1b, l2=» PROD.EMNENR:=POST.EMNENR;«, l3=0x1b}
0x07c05…07c1a Line {l1=0x13, l2=» PROD.SEKVENSN:=0;«, l3=0x13}
0x07c1a…07c2e Line {l1=0x12, l2=» PROD.OPERANR:=0;«, l3=0x12}
0x07c2e…07c71 Line {l1=0x41, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x41}
0x07c71…07c7c Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x07c7c…07c87 Line {l1=0x09, l2=» UDE:=0;«, l3=0x09}
0x07c87…07c96 Line {l1=0x0d, l2=» ANTLINE:=0;«, l3=0x0d}
0x07c96…07ce3 Line {l1=0x4b, l2=» WHILE (IER=0) AND (PROD.ORDRENR=POST.ORDRE) AND (PROD.EMNENR=POST.EMNENR)«, l3=0x4b}
0x07ce3…07d26 Line {l1=0x41, l2=» AND (PROD.STARTTID MOD 1000-PSTARTDAG<25) AND (ANTLINE<20) DO«, l3=0x41}
0x07d26…07d2f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x07d2f…07d5d Line {l1=0x2c, l2=» IF PROD.STARTTID MOD 1000>=PSTARTDAG THEN«, l3=0x2c}
0x07d5d…07d67 Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x07d67…07d80 Line {l1=0x17, l2=» ANTLINE:=ANTLINE+1;«, l3=0x17}
0x07d80…07d9f Line {l1=0x1d, l2=» ORDENR(ANTLINE):=ANTLINE;«, l3=0x1d}
0x07d9f…07da8 Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x07da8…07ddb Line {l1=0x31, l2=» MOVELEFT(PROD.A(1),ORDELIN(ANTLINE).A(1),42);«, l3=0x31}
0x07ddb…07de4 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x07de4…07e01 Line {l1=0x1b, l2=» OPERA.NR:=PROD.OPERANR;«, l3=0x1b}
0x07e01…07e27 Line {l1=0x24, l2=» GETREC(OPERA.A);CHECK0(OPERA.A);«, l3=0x24}
0x07e27…07e65 Line {l1=0x3c, l2=» MOVELEFT(OPERA.BETEGN(1),REBXTRA(ANTLINE).BETEGN(1),10);«, l3=0x3c}
0x07e65…07e95 Line {l1=0x2e, l2=» REBXTRA(ANTLINE).BEKRÆLEV:=ORDRE.BEKRÆLEV;«, l3=0x2e}
0x07e95…07eb3 Line {l1=0x1c, l2=» IF ORDRE.BEKRÆLEV>0 THEN«, l3=0x1c}
0x07eb3…07ee4 Line {l1=0x2f, l2=» REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.BEKRÆLEV «, l3=0x2f}
0x07ee4…07eee Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x07eee…07f1e Line {l1=0x2e, l2=» REBXTRA(ANTLINE).ØNSKLEV:=ORDRE.ØNSKLEV;«, l3=0x2e}
0x07f1e…07f45 Line {l1=0x25, l2=» REBXTRA(ANTLINE).PLANLAGT:=FALSE;«, l3=0x25}
0x07f45…07f4e Line {l1=0x07, l2=» END;«, l3=0x07}
0x07f4e…07f62 Line {l1=0x12, l2=» NEXTREC(PROD.A)«, l3=0x12}
0x07f62…07f6a Line {l1=0x06, l2=» END;«, l3=0x06}
0x07f6a…07f9b Line {l1=0x2f, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(PROD.A)«, l3=0x2f}
0x07f9b…07fa1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07fa1…07fa9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07fa9…07fbc Line {l1=0x11, l2=»PROCEDURE ÆSTART;«, l3=0x11}
0x07fbc…07fde Line {l1=0x20, l2=»VAR GSTTIME,STTIME,DIFF:INTEGER;«, l3=0x20}
0x07fde…07fe5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07fe5…07ff4 Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x07ff4…07ffc Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x07ffc…08039 Line {l1=0x3b, l2=» LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆSTART);«, l3=0x3b}
0x08039…08051 Line {l1=0x16, l2=» LÆSFELT(PICTURE(6));«, l3=0x16}
0x08051…0806d Line {l1=0x1a, l2=» IF UGE IN (.1..20.) THEN«, l3=0x1a}
0x0806d…08076 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x08076…0808f Line {l1=0x17, l2=» IF (UGE>ANTLINE) OR«, l3=0x17}
0x0808f…080de Line {l1=0x4d, l2=» (UGE=LINIENR) OR (UGE>LINIENR+1) OR (UGE<LINIENR-1) THEN EXIT(ÆSTART);«, l3=0x4d}
0x080de…08113 Line {l1=0x33, l2=» STTIME:=ORDELIN(ORDENR(UGE)).STARTTID DIV 1000+«, l3=0x33}
0x08113…0814a Line {l1=0x35, l2=» ORDELIN(ORDENR(UGE)).STARTTID MOD 1000*8;«, l3=0x35}
0x0814a…08174 Line {l1=0x28, l2=» DIFF:=ORDELIN(ORDENR(UGE)).VARIGHED-«, l3=0x28}
0x08174…081a2 Line {l1=0x2c, l2=» ORDELIN(ORDENR(LINIENR)).VARIGHED;«, l3=0x2c}
0x081a2…081d8 Line {l1=0x34, l2=» IF DIFF*(UGE-LINIENR)<0 THEN STTIME:=STTIME+DIFF«, l3=0x34}
0x081d8…081df Line {l1=0x05, l2=» END«, l3=0x05}
0x081df…081e7 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x081e7…081f0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x081f0…0820a Line {l1=0x18, l2=» LÆSFELT(PICTURE(7));«, l3=0x18}
0x0820a…08224 Line {l1=0x18, l2=» LÆSFELT(PICTURE(8));«, l3=0x18}
0x08224…0823c Line {l1=0x16, l2=» UGEDAG.UGENR:=UGE;«, l3=0x16}
0x0823c…08280 Line {l1=0x42, l2=» GETREC(UGEDAG.A);IF IER=-6 THEN EXIT(ÆSTART);CHECK0(UGEDAG.A);«, l3=0x42}
0x08280…082a2 Line {l1=0x20, l2=» DIFF:=UGEDAG.ARBDAGNR+DAG-1;«, l3=0x20}
0x082a2…082e5 Line {l1=0x41, l2=» IF (DIFF<PSTARTDAG) OR (DIFF>PSTARTDAG+25) THEN EXIT(ÆSTART);«, l3=0x41}
0x082e5…082ff Line {l1=0x18, l2=» STTIME:=DIFF*8+TIME;«, l3=0x18}
0x082ff…08339 Line {l1=0x38, l2=» GSTTIME:=ORDELIN(ORDENR(LINIENR)).STARTTID DIV 1000+«, l3=0x38}
0x08339…08375 Line {l1=0x3a, l2=» ORDELIN(ORDENR(LINIENR)).STARTTID MOD 1000*8;«, l3=0x3a}
0x08375…083a9 Line {l1=0x32, l2=» IF (STTIME>GSTTIME) AND (LINIENR<ANTLINE) THEN«, l3=0x32}
0x083a9…083b4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x083b4…083f4 Line {l1=0x3e, l2=» IF STTIME>ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+ «, l3=0x3e}
0x083f4…08439 Line {l1=0x43, l2=» ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8 THEN«, l3=0x43}
0x08439…0847a Line {l1=0x3f, l2=» STTIME:=ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+ «, l3=0x3f}
0x0847a…084bc Line {l1=0x40, l2=» ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8;«, l3=0x40}
0x084bc…084f8 Line {l1=0x3a, l2=» DIFF:=ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+ «, l3=0x3a}
0x084f8…08535 Line {l1=0x3b, l2=» ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8+«, l3=0x3b}
0x08535…0856e Line {l1=0x37, l2=» ORDELIN(ORDENR(LINIENR+1)).VARIGHED-STTIME-«, l3=0x37}
0x0856e…0859e Line {l1=0x2e, l2=» ORDELIN(ORDENR(LINIENR)).VARIGHED;«, l3=0x2e}
0x0859e…085c8 Line {l1=0x28, l2=» IF DIFF<0 THEN STTIME:=STTIME+DIFF«, l3=0x28}
0x085c8…085d2 Line {l1=0x08, l2=» END;«, l3=0x08}
0x085d2…08600 Line {l1=0x2c, l2=» IF (STTIME<GSTTIME) AND (LINIENR>1) THEN«, l3=0x2c}
0x08600…0860b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0860b…0864b Line {l1=0x3e, l2=» IF STTIME<ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+ «, l3=0x3e}
0x0864b…08690 Line {l1=0x43, l2=» ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8 THEN«, l3=0x43}
0x08690…086d1 Line {l1=0x3f, l2=» STTIME:=ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+ «, l3=0x3f}
0x086d1…08713 Line {l1=0x40, l2=» ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8;«, l3=0x40}
0x08713…0874f Line {l1=0x3a, l2=» DIFF:=ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+ «, l3=0x3a}
0x0874f…0878c Line {l1=0x3b, l2=» ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8+«, l3=0x3b}
0x0878c…087c5 Line {l1=0x37, l2=» ORDELIN(ORDENR(LINIENR-1)).VARIGHED-STTIME-«, l3=0x37}
0x087c5…087f5 Line {l1=0x2e, l2=» ORDELIN(ORDENR(LINIENR)).VARIGHED;«, l3=0x2e}
0x087f5…0881f Line {l1=0x28, l2=» IF DIFF>0 THEN STTIME:=STTIME+DIFF«, l3=0x28}
0x0881f…08828 Line {l1=0x07, l2=» END«, l3=0x07}
0x08828…08830 Line {l1=0x06, l2=» END;«, l3=0x06}
0x08830…08857 Line {l1=0x25, l2=» ORDELIN(ORDENR(LINIENR)).STARTTID:=«, l3=0x25}
0x08857…08890 Line {l1=0x37, l2=» (STTIME-1) DIV 8+((STTIME-1) MOD 8+1)*1000;«, l3=0x37}
0x08890…088af Line {l1=0x1d, l2=» ORDBILLEDE(LINIENR,LINIENR)«, l3=0x1d}
0x088af…088b5 Line {l1=0x04, l2=» END«, l3=0x04}
0x088b5…088bc Line {l1=0x05, l2=»END; «, l3=0x05}
0x088bc…088c4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x088c4…088d7 Line {l1=0x11, l2=»PROCEDURE ÆVARIG;«, l3=0x11}
0x088d7…088de Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x088de…088ed Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x088ed…088f5 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x088f5…08932 Line {l1=0x3b, l2=» LÆSFELT(PICTURE(5));IF LINIENR>ANTLINE THEN EXIT(ÆVARIG);«, l3=0x3b}
0x08932…08962 Line {l1=0x2e, l2=» VARIGHED:=ORDELIN(ORDENR(LINIENR)).VARIGHED;«, l3=0x2e}
0x08962…0897a Line {l1=0x16, l2=» LÆSFELT(PICTURE(9));«, l3=0x16}
0x0897a…08996 Line {l1=0x1a, l2=» IF (LINIENR<ANTLINE) AND«, l3=0x1a}
0x08996…089ce Line {l1=0x36, l2=» (VARIGHED>ORDELIN(ORDENR(LINIENR)).VARIGHED) THEN«, l3=0x36}
0x089ce…08a0e Line {l1=0x3e, l2=» IF (ORDELIN(ORDENR(LINIENR+1)).STARTTID DIV 1000+ «, l3=0x3e}
0x08a0e…08a4f Line {l1=0x3f, l2=» ORDELIN(ORDENR(LINIENR+1)).STARTTID MOD 1000*8+«, l3=0x3f}
0x08a4f…08a86 Line {l1=0x35, l2=» ORDELIN(ORDENR(LINIENR+1)).VARIGHED)<«, l3=0x35}
0x08a86…08ac3 Line {l1=0x3b, l2=» (ORDELIN(ORDENR(LINIENR)).STARTTID DIV 1000+«, l3=0x3b}
0x08ac3…08b03 Line {l1=0x3e, l2=» ORDELIN(ORDENR(LINIENR)).STARTTID MOD 1000*8+ «, l3=0x3e}
0x08b03…08b4a Line {l1=0x45, l2=» VARIGHED) THEN EXIT(ÆVARIG);«, l3=0x45}
0x08b4a…08b60 Line {l1=0x14, l2=» IF (LINIENR>1) AND«, l3=0x14}
0x08b60…08b98 Line {l1=0x36, l2=» (VARIGHED<ORDELIN(ORDENR(LINIENR)).VARIGHED) THEN«, l3=0x36}
0x08b98…08bd8 Line {l1=0x3e, l2=» IF (ORDELIN(ORDENR(LINIENR-1)).STARTTID DIV 1000+ «, l3=0x3e}
0x08bd8…08c19 Line {l1=0x3f, l2=» ORDELIN(ORDENR(LINIENR-1)).STARTTID MOD 1000*8+«, l3=0x3f}
0x08c19…08c50 Line {l1=0x35, l2=» ORDELIN(ORDENR(LINIENR-1)).VARIGHED)>«, l3=0x35}
0x08c50…08c8d Line {l1=0x3b, l2=» (ORDELIN(ORDENR(LINIENR)).STARTTID DIV 1000+«, l3=0x3b}
0x08c8d…08ccd Line {l1=0x3e, l2=» ORDELIN(ORDENR(LINIENR)).STARTTID MOD 1000*8+ «, l3=0x3e}
0x08ccd…08d14 Line {l1=0x45, l2=» VARIGHED) THEN EXIT(ÆVARIG);«, l3=0x45}
0x08d14…08d44 Line {l1=0x2e, l2=» ORDELIN(ORDENR(LINIENR)).VARIGHED:=VARIGHED;«, l3=0x2e}
0x08d44…08d63 Line {l1=0x1d, l2=» ORDBILLEDE(LINIENR,LINIENR)«, l3=0x1d}
0x08d63…08d69 Line {l1=0x04, l2=» END«, l3=0x04}
0x08d69…08d6f Line {l1=0x04, l2=»END;«, l3=0x04}
0x08d6f…08d77 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x08d77…08d8b Line {l1=0x12, l2=»PROCEDURE SEKVUDL;«, l3=0x12}
0x08d8b…08dc4 Line {l1=0x37, l2=»VAR THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;«, l3=0x37}
0x08dc4…08dcb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08dcb…08dda Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x08dda…08de2 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x08de2…08e22 Line {l1=0x3e, l2=» LÆSFELT(PICTURE(10));IF FRALINIE>ANTLINE THEN EXIT(SEKVUDL);«, l3=0x3e}
0x08e22…08e38 Line {l1=0x14, l2=» IF FRALINIE=0 THEN«, l3=0x14}
0x08e38…08e41 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x08e41…08e59 Line {l1=0x16, l2=» TILLINIE:=ANTLINE;«, l3=0x16}
0x08e59…08e8b Line {l1=0x30, l2=» ORDELIN(ORDENR(1)).STARTTID:=PSTARTDAG+1000;«, l3=0x30}
0x08e8b…08e9c Line {l1=0x0f, l2=» FRALINIE:=1«, l3=0x0f}
0x08e9c…08ea4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x08ea4…08ee4 Line {l1=0x3e, l2=» LÆSFELT(PICTURE(11));IF TILLINIE>ANTLINE THEN EXIT(SEKVUDL);«, l3=0x3e}
0x08ee4…08ef4 Line {l1=0x0e, l2=» I:=FRALINIE;«, l3=0x0e}
0x08ef4…08f11 Line {l1=0x1b, l2=» IF FRALINIE<TILLINIE THEN«, l3=0x1b}
0x08f11…08f1a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x08f1a…08f33 Line {l1=0x17, l2=» WHILE I<TILLINIE DO«, l3=0x17}
0x08f33…08f3e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x08f3e…08f60 Line {l1=0x20, l2=» WITH ORDELIN(ORDENR(I)) DO«, l3=0x20}
0x08f60…08f85 Line {l1=0x23, l2=» HUSKTID:=STARTTID MOD 1000*8+«, l3=0x23}
0x08f85…08fa8 Line {l1=0x21, l2=» STARTTID DIV 1000+«, l3=0x21}
0x08fa8…08fc2 Line {l1=0x18, l2=» VARIGHED;«, l3=0x18}
0x08fc2…08ffc Line {l1=0x38, l2=» ORDELIN(ORDENR(I+1)).STARTTID:=(HUSKTID-1) DIV 8 +«, l3=0x38}
0x08ffc…0903e Line {l1=0x40, l2=» ((HUSKTID-1) MOD 8+1)*1000;«, l3=0x40}
0x0903e…0904c Line {l1=0x0c, l2=» I:=I+1«, l3=0x0c}
0x0904c…09056 Line {l1=0x08, l2=» END;«, l3=0x08}
0x09056…0906f Line {l1=0x17, l2=» LASTSTART:=HUSKTID;«, l3=0x17}
0x0906f…090ac Line {l1=0x3b, l2=» LASTSLUT:=ORDELIN(ORDENR(TILLINIE)).VARIGHED+LASTSTART;«, l3=0x3b}
0x090ac…090c0 Line {l1=0x12, l2=» I:=TILLINIE+1;«, l3=0x12}
0x090c0…090d9 Line {l1=0x17, l2=» WHILE I<=ANTLINE DO«, l3=0x17}
0x090d9…090f9 Line {l1=0x1e, l2=» WITH ORDELIN(ORDENR(I)) DO«, l3=0x1e}
0x090f9…09104 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x09104…0913d Line {l1=0x37, l2=» THISSTART:=STARTTID MOD 1000*8+STARTTID DIV 1000;«, l3=0x37}
0x0913d…09162 Line {l1=0x23, l2=» THISSLUT:=THISSTART+VARIGHED;«, l3=0x23}
0x09162…09184 Line {l1=0x20, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x20}
0x09184…091c3 Line {l1=0x3d, l2=» IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3d}
0x091c3…091d9 Line {l1=0x14, l2=» IF DIFF>0 THEN«, l3=0x14}
0x091d9…091e6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x091e6…0920a Line {l1=0x22, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x22}
0x0920a…0922c Line {l1=0x20, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x20}
0x0922c…09271 Line {l1=0x43, l2=» STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;«, l3=0x43}
0x09271…09281 Line {l1=0x0e, l2=» I:=I+1«, l3=0x0e}
0x09281…0928c Line {l1=0x09, l2=» END«, l3=0x09}
0x0928c…092a5 Line {l1=0x17, l2=» ELSE I:=ANTLINE+1«, l3=0x17}
0x092a5…092af Line {l1=0x08, l2=» END;«, l3=0x08}
0x092af…092d1 Line {l1=0x20, l2=» ORDBILLEDE(FRALINIE,ANTLINE)«, l3=0x20}
0x092d1…092d8 Line {l1=0x05, l2=» END«, l3=0x05}
0x092d8…092e0 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x092e0…092e9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x092e9…09302 Line {l1=0x17, l2=» WHILE I>TILLINIE DO«, l3=0x17}
0x09302…0930d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0930d…0932f Line {l1=0x20, l2=» WITH ORDELIN(ORDENR(I)) DO«, l3=0x20}
0x0932f…09366 Line {l1=0x35, l2=» HUSKTID:=STARTTID MOD 1000*8+STARTTID DIV 1000;«, l3=0x35}
0x09366…0938a Line {l1=0x22, l2=» WITH ORDELIN(ORDENR(I-1)) DO«, l3=0x22}
0x0938a…09397 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09397…093bb Line {l1=0x22, l2=» HUSKTID:=HUSKTID-VARIGHED;«, l3=0x22}
0x093bb…093ea Line {l1=0x2d, l2=» STARTTID:=(HUSKTID-1) DIV 8 + «, l3=0x2d}
0x093ea…09418 Line {l1=0x2c, l2=» ((HUSKTID-1) MOD 8+1)*1000«, l3=0x2c}
0x09418…09424 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09424…09432 Line {l1=0x0c, l2=» I:=I-1«, l3=0x0c}
0x09432…0943c Line {l1=0x08, l2=» END;«, l3=0x08}
0x0943c…09455 Line {l1=0x17, l2=» LASTSTART:=HUSKTID;«, l3=0x17}
0x09455…09492 Line {l1=0x3b, l2=» LASTSLUT:=ORDELIN(ORDENR(TILLINIE)).VARIGHED+LASTSTART;«, l3=0x3b}
0x09492…094a6 Line {l1=0x12, l2=» I:=TILLINIE-1;«, l3=0x12}
0x094a6…094b8 Line {l1=0x10, l2=» WHILE I>0 DO«, l3=0x10}
0x094b8…094d8 Line {l1=0x1e, l2=» WITH ORDELIN(ORDENR(I)) DO«, l3=0x1e}
0x094d8…094e3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x094e3…0951c Line {l1=0x37, l2=» THISSTART:=STARTTID MOD 1000*8+STARTTID DIV 1000;«, l3=0x37}
0x0951c…09541 Line {l1=0x23, l2=» THISSLUT:=THISSTART+VARIGHED;«, l3=0x23}
0x09541…09563 Line {l1=0x20, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x20}
0x09563…095a2 Line {l1=0x3d, l2=» IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3d}
0x095a2…095b8 Line {l1=0x14, l2=» IF DIFF<0 THEN«, l3=0x14}
0x095b8…095c5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x095c5…095e9 Line {l1=0x22, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x22}
0x095e9…0960b Line {l1=0x20, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x20}
0x0960b…09650 Line {l1=0x43, l2=» STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;«, l3=0x43}
0x09650…09660 Line {l1=0x0e, l2=» I:=I-1«, l3=0x0e}
0x09660…0966b Line {l1=0x09, l2=» END«, l3=0x09}
0x0966b…0967c Line {l1=0x0f, l2=» ELSE I:=0«, l3=0x0f}
0x0967c…09686 Line {l1=0x08, l2=» END;«, l3=0x08}
0x09686…096a2 Line {l1=0x1a, l2=» ORDBILLEDE(1,FRALINIE)«, l3=0x1a}
0x096a2…096aa Line {l1=0x06, l2=» END;«, l3=0x06}
0x096aa…096b0 Line {l1=0x04, l2=» END«, l3=0x04}
0x096b0…096b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x096b6…096be Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x096be…096d4 Line {l1=0x14, l2=»PROCEDURE CHECKPLAN;«, l3=0x14}
0x096d4…0971f Line {l1=0x49, l2=»VAR STARTDAG,STTIME,K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;«, l3=0x49}
0x0971f…09757 Line {l1=0x36, l2=» PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;«, l3=0x36}
0x09757…0975a Line {l1=0x01, l2=» «, l3=0x01}
0x0975a…09778 Line {l1=0x1c, l2=»PROCEDURE NU(OPERA:INTEGER);«, l3=0x1c}
0x09778…0977f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0977f…0978b Line {l1=0x0a, l2=» D(24,1);«, l3=0x0a}
0x0978b…097b8 Line {l1=0x2b, l2=» WRITE('Nu behandles: Operation',OPERA:5)«, l3=0x2b}
0x097b8…097be Line {l1=0x04, l2=»END;«, l3=0x04}
0x097be…097c1 Line {l1=0x01, l2=» «, l3=0x01}
0x097c1…097d6 Line {l1=0x13, l2=»BEGIN (*CHECKPLAN*)«, l3=0x13}
0x097d6…097e8 Line {l1=0x10, l2=» CHECKOK:=TRUE;«, l3=0x10}
0x097e8…09806 Line {l1=0x1c, l2=» WITH ORDELIN(ORDENR(1)) DO«, l3=0x1c}
0x09806…0980f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0980f…09831 Line {l1=0x20, l2=» STARTDAG:=STARTTID MOD 1000;«, l3=0x20}
0x09831…09851 Line {l1=0x1e, l2=» STTIME:=STARTTID DIV 1000;«, l3=0x1e}
0x09851…09863 Line {l1=0x10, l2=» NU(OPERANR);«, l3=0x10}
0x09863…0987f Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x0987f…09899 Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x09899…098b7 Line {l1=0x1c, l2=» PROD.SEKVENSN:=SEKVENSN;«, l3=0x1c}
0x098b7…098d3 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x098d3…098f7 Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x098f7…09946 Line {l1=0x4d, l2=» IF STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000 THEN«, l3=0x4d}
0x09946…09951 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x09951…0999b Line {l1=0x48, l2=» (*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)«, l3=0x48}
0x0999b…099b4 Line {l1=0x17, l2=» PROD.SEKVENSN:=0;«, l3=0x17}
0x099b4…099cc Line {l1=0x16, l2=» PROD.OPERANR:=0;«, l3=0x16}
0x099cc…099d9 Line {l1=0x0b, l2=» J:=0;«, l3=0x0b}
0x099d9…09a20 Line {l1=0x45, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x45}
0x09a20…09a2f Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x09a2f…09a55 Line {l1=0x24, l2=» WHILE PROD.OPERANR<>OPERANR DO«, l3=0x24}
0x09a55…09a62 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09a62…09a73 Line {l1=0x0f, l2=» J:=J+1;«, l3=0x0f}
0x09a73…09a9a Line {l1=0x25, l2=» PRODLINE(J,1):=PROD.SEKVENSN;«, l3=0x25}
0x09a9a…09ac0 Line {l1=0x24, l2=» PRODLINE(J,2):=PROD.OPERANR;«, l3=0x24}
0x09ac0…09ae7 Line {l1=0x25, l2=» PRODLINE(J,3):=PROD.STARTTID;«, l3=0x25}
0x09ae7…09b0e Line {l1=0x25, l2=» PRODLINE(J,4):=PROD.VARIGHED;«, l3=0x25}
0x09b0e…09b36 Line {l1=0x26, l2=» NEXTREC(PROD.A);CHECK0(PROD.A)«, l3=0x26}
0x09b36…09b42 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09b42…09b67 Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x09b67…09b8c Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x09b8c…09ba0 Line {l1=0x12, l2=» WHILE J>0 DO«, l3=0x12}
0x09ba0…09bad Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09bad…09bf2 Line {l1=0x43, l2=» THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;«, l3=0x43}
0x09bf2…09c1e Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PRODLINE(J,4);«, l3=0x2a}
0x09c1e…09c42 Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x09c42…09c83 Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x09c83…09c9b Line {l1=0x16, l2=» IF DIFF>0 THEN«, l3=0x16}
0x09c9b…09cab Line {l1=0x0e, l2=» J:=0«, l3=0x0e}
0x09cab…09cb9 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x09cb9…09cc8 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x09cc8…09ce6 Line {l1=0x1c, l2=» NU(PRODLINE(J,2));«, l3=0x1c}
0x09ce6…09d0c Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x09d0c…09d2f Line {l1=0x21, l2=» LASTSLUT:=THISSLUT+DIFF«, l3=0x21}
0x09d2f…09d3d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x09d3d…09d4d Line {l1=0x0e, l2=» J:=J-1«, l3=0x0e}
0x09d4d…09d59 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x09d59…09d6c Line {l1=0x11, l2=» IF J=0 THEN«, l3=0x11}
0x09d6c…09d79 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09d79…09db0 Line {l1=0x35, l2=» ARBEDAG.NR:=(LASTSTART-1) DIV 8; (*!*)«, l3=0x35}
0x09db0…09dde Line {l1=0x2c, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x2c}
0x09dde…09e13 Line {l1=0x33, l2=» IF ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)<«, l3=0x33}
0x09e13…09e44 Line {l1=0x2f, l2=» DAGSDATO(1)*10000.0+DAGSDATO(2) THEN«, l3=0x2f}
0x09e44…09e53 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x09e53…09e6c Line {l1=0x17, l2=» GOTOXY(1,23);«, l3=0x17}
0x09e6c…09ea8 Line {l1=0x3a, l2=» WRITE('Startdato ligger før dagsdato, RETURN ');«, l3=0x3a}
0x09ea8…09ebb Line {l1=0x11, l2=» READLN;«, l3=0x11}
0x09ebb…09ed6 Line {l1=0x19, l2=» CHECKOK:=FALSE;«, l3=0x19}
0x09ed6…09ef1 Line {l1=0x19, l2=» EXIT(CHECKPLAN)«, l3=0x19}
0x09ef1…09efe Line {l1=0x0b, l2=» END«, l3=0x0b}
0x09efe…09f09 Line {l1=0x09, l2=» END«, l3=0x09}
0x09f09…09f13 Line {l1=0x08, l2=» END;«, l3=0x08}
0x09f13…09f1b Line {l1=0x06, l2=» END;«, l3=0x06}
0x09f1b…09f3f Line {l1=0x22, l2=» WITH ORDELIN(ORDENR(ANTLINE)) DO«, l3=0x22}
0x09f3f…09f48 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x09f48…09f6a Line {l1=0x20, l2=» STARTDAG:=STARTTID MOD 1000;«, l3=0x20}
0x09f6a…09f8a Line {l1=0x1e, l2=» STTIME:=STARTTID DIV 1000;«, l3=0x1e}
0x09f8a…09f9c Line {l1=0x10, l2=» NU(OPERANR);«, l3=0x10}
0x09f9c…09fb8 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x09fb8…09fd2 Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x09fd2…09ff0 Line {l1=0x1c, l2=» PROD.SEKVENSN:=SEKVENSN;«, l3=0x1c}
0x09ff0…0a00c Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x0a00c…0a030 Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x0a030…0a07b Line {l1=0x49, l2=» IF STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+«, l3=0x49}
0x0a07b…0a0ca Line {l1=0x4d, l2=» PROD.STARTTID DIV 1000 THEN«, l3=0x4d}
0x0a0ca…0a0d5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a0d5…0a11d Line {l1=0x46, l2=» (*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)«, l3=0x46}
0x0a11d…0a142 Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x0a142…0a167 Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x0a167…0a1ae Line {l1=0x45, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x45}
0x0a1ae…0a1bd Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x0a1bd…0a209 Line {l1=0x4a, l2=» WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO«, l3=0x4a}
0x0a209…0a216 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a216…0a25b Line {l1=0x43, l2=» THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;«, l3=0x43}
0x0a25b…0a287 Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PROD.VARIGHED;«, l3=0x2a}
0x0a287…0a2ab Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x0a2ab…0a2ec Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x0a2ec…0a304 Line {l1=0x16, l2=» IF DIFF<0 THEN«, l3=0x16}
0x0a304…0a317 Line {l1=0x11, l2=» IER:=-1«, l3=0x11}
0x0a317…0a325 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0a325…0a334 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0a334…0a351 Line {l1=0x1b, l2=» NU(PROD.OPERANR);«, l3=0x1b}
0x0a351…0a377 Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x0a377…0a39b Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x0a39b…0a3b6 Line {l1=0x19, l2=» NEXTREC(PROD.A)«, l3=0x19}
0x0a3b6…0a3c3 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0a3c3…0a3cf Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0a3cf…0a406 Line {l1=0x35, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x35}
0x0a406…0a41d Line {l1=0x15, l2=» IF IER<>-1 THEN«, l3=0x15}
0x0a41d…0a42a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a42a…0a453 Line {l1=0x27, l2=» ARBEDAG.NR:=(LASTSLUT-1) DIV 8;«, l3=0x27}
0x0a453…0a481 Line {l1=0x2c, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x2c}
0x0a481…0a4c1 Line {l1=0x3e, l2=» IF ARBEDAG.UGENR>REBXTRA(ORDENR(ANTLINE)).ØNSKLEV THEN«, l3=0x3e}
0x0a4c1…0a4d0 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0a4d0…0a509 Line {l1=0x37, l2=» IF QJN('Skal leveringsuge rykkes') IN JA THEN«, l3=0x37}
0x0a509…0a52b Line {l1=0x20, l2=» FOR I:=1 TO ANTLINE DO«, l3=0x20}
0x0a52b…0a53c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0a53c…0a574 Line {l1=0x36, l2=» REBXTRA(ORDENR(I)).ØNSKLEV:=ARBEDAG.UGENR;«, l3=0x36}
0x0a574…0a5a7 Line {l1=0x31, l2=» IF REBXTRA(ORDENR(I)).BEKRÆLEV>0 THEN«, l3=0x31}
0x0a5a7…0a5e1 Line {l1=0x38, l2=» REBXTRA(ORDENR(I)).BEKRÆLEV:=ARBEDAG.UGENR«, l3=0x38}
0x0a5e1…0a5f0 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0a5f0…0a600 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x0a600…0a611 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0a611…0a62e Line {l1=0x1b, l2=» CHECKOK:=FALSE;«, l3=0x1b}
0x0a62e…0a64b Line {l1=0x1b, l2=» EXIT(CHECKPLAN)«, l3=0x1b}
0x0a64b…0a65a Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0a65a…0a667 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0a667…0a672 Line {l1=0x09, l2=» END«, l3=0x09}
0x0a672…0a67b Line {l1=0x07, l2=» END«, l3=0x07}
0x0a67b…0a682 Line {l1=0x05, l2=» END«, l3=0x05}
0x0a682…0a688 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a688…0a690 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a690…0a6a4 Line {l1=0x12, l2=»PROCEDURE UDFPLAN;«, l3=0x12}
0x0a6a4…0a6ef Line {l1=0x49, l2=»VAR STARTDAG,STTIME,K,THISSTART,THISSLUT,LASTSTART,LASTSLUT,DIFF:INTEGER;«, l3=0x49}
0x0a6ef…0a727 Line {l1=0x36, l2=» PRODLINE:ARRAY (1..50) OF ARRAY (1..4) OF INTEGER;«, l3=0x36}
0x0a727…0a72a Line {l1=0x01, l2=» «, l3=0x01}
0x0a72a…0a748 Line {l1=0x1c, l2=»PROCEDURE NU(OPERA:INTEGER);«, l3=0x1c}
0x0a748…0a74f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a74f…0a75b Line {l1=0x0a, l2=» D(24,1);«, l3=0x0a}
0x0a75b…0a788 Line {l1=0x2b, l2=» WRITE('Nu behandles: Operation',OPERA:5)«, l3=0x2b}
0x0a788…0a78e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a78e…0a791 Line {l1=0x01, l2=» «, l3=0x01}
0x0a791…0a7ba Line {l1=0x27, l2=»PROCEDURE DESERVER(VAR RESSNR:INTEGER);«, l3=0x27}
0x0a7ba…0a7c1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a7c1…0a7d5 Line {l1=0x12, l2=» IF RESSNR>0 THEN«, l3=0x12}
0x0a7d5…0a7e9 Line {l1=0x12, l2=» WITH REBELAST DO«, l3=0x12}
0x0a7e9…0a7f2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0a7f2…0a808 Line {l1=0x14, l2=» RESS.NR:=RESSNR;«, l3=0x14}
0x0a808…0a82c Line {l1=0x22, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x22}
0x0a82c…0a84a Line {l1=0x1c, l2=» IF RESS.RESSTYPE>0 THEN «, l3=0x1c}
0x0a84a…0a855 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a855…0a868 Line {l1=0x11, l2=» NR:=RESSNR;«, l3=0x11}
0x0a868…0a896 Line {l1=0x2c, l2=» GOTOXY(31,24);WRITE('Ressource',NR:5);«, l3=0x2c}
0x0a896…0a8b4 Line {l1=0x1c, l2=» ORDRENR:=PROD.ORDRENR;«, l3=0x1c}
0x0a8b4…0a8d0 Line {l1=0x1a, l2=» EMNENR:=PROD.EMNENR;«, l3=0x1a}
0x0a8d0…0a8ee Line {l1=0x1c, l2=» OPERANR:=PROD.OPERANR;«, l3=0x1c}
0x0a8ee…0a90c Line {l1=0x1c, l2=» SEKVNR:=PROD.SEKVENSN;«, l3=0x1c}
0x0a90c…0a935 Line {l1=0x27, l2=» STARTDAG:=PROD.STARTTID MOD 1000;«, l3=0x27}
0x0a935…0a95c Line {l1=0x25, l2=» STTIME:=PROD.STARTTID DIV 1000;«, l3=0x25}
0x0a95c…0a97c Line {l1=0x1e, l2=» VARIGHED:=PROD.VARIGHED;«, l3=0x1e}
0x0a97c…0a999 Line {l1=0x1b, l2=» GETRECX(A);CHECK0(A);«, l3=0x1b}
0x0a999…0a9b4 Line {l1=0x19, l2=» DELETE(A);CHECK0(A)«, l3=0x19}
0x0a9b4…0a9bd Line {l1=0x07, l2=» END«, l3=0x07}
0x0a9bd…0a9c4 Line {l1=0x05, l2=» END«, l3=0x05}
0x0a9c4…0a9ca Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a9ca…0a9d2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0a9d2…0a9fb Line {l1=0x27, l2=»PROCEDURE RESERVER(VAR RESSNR:INTEGER);«, l3=0x27}
0x0a9fb…0aa02 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0aa02…0aa16 Line {l1=0x12, l2=» IF RESSNR>0 THEN«, l3=0x12}
0x0aa16…0aa2a Line {l1=0x12, l2=» WITH REBELAST DO«, l3=0x12}
0x0aa2a…0aa33 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0aa33…0aa49 Line {l1=0x14, l2=» RESS.NR:=RESSNR;«, l3=0x14}
0x0aa49…0aa6d Line {l1=0x22, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x22}
0x0aa6d…0aa8b Line {l1=0x1c, l2=» IF RESS.RESSTYPE>0 THEN «, l3=0x1c}
0x0aa8b…0aa96 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0aa96…0aaa9 Line {l1=0x11, l2=» NR:=RESSNR;«, l3=0x11}
0x0aaa9…0aac7 Line {l1=0x1c, l2=» ORDRENR:=PROD.ORDRENR;«, l3=0x1c}
0x0aac7…0aae3 Line {l1=0x1a, l2=» EMNENR:=PROD.EMNENR;«, l3=0x1a}
0x0aae3…0ab01 Line {l1=0x1c, l2=» OPERANR:=PROD.OPERANR;«, l3=0x1c}
0x0ab01…0ab1f Line {l1=0x1c, l2=» SEKVNR:=PROD.SEKVENSN;«, l3=0x1c}
0x0ab1f…0ab48 Line {l1=0x27, l2=» STARTDAG:=PROD.STARTTID MOD 1000;«, l3=0x27}
0x0ab48…0ab6f Line {l1=0x25, l2=» STTIME:=PROD.STARTTID DIV 1000;«, l3=0x25}
0x0ab6f…0ab8f Line {l1=0x1e, l2=» VARIGHED:=PROD.VARIGHED;«, l3=0x1e}
0x0ab8f…0abaa Line {l1=0x19, l2=» INSERT(A);CHECK0(A)«, l3=0x19}
0x0abaa…0abb3 Line {l1=0x07, l2=» END«, l3=0x07}
0x0abb3…0abba Line {l1=0x05, l2=» END«, l3=0x05}
0x0abba…0abc0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0abc0…0abc8 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0abc8…0abcb Line {l1=0x01, l2=» «, l3=0x01}
0x0abcb…0abd2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0abd2…0abec Line {l1=0x18, l2=» FOR I:=1 TO ANTLINE DO«, l3=0x18}
0x0abec…0ac0a Line {l1=0x1c, l2=» WITH ORDELIN(ORDENR(I)) DO«, l3=0x1c}
0x0ac0a…0ac13 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ac13…0ac35 Line {l1=0x20, l2=» STARTDAG:=STARTTID MOD 1000;«, l3=0x20}
0x0ac35…0ac55 Line {l1=0x1e, l2=» STTIME:=STARTTID DIV 1000;«, l3=0x1e}
0x0ac55…0ac67 Line {l1=0x10, l2=» NU(OPERANR);«, l3=0x10}
0x0ac67…0ac83 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x0ac83…0ac9d Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x0ac9d…0acbb Line {l1=0x1c, l2=» PROD.SEKVENSN:=SEKVENSN;«, l3=0x1c}
0x0acbb…0acd7 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x0acd7…0acfb Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x0acfb…0ad16 Line {l1=0x19, l2=» DESERVER(PROD.RESS1);«, l3=0x19}
0x0ad16…0ad31 Line {l1=0x19, l2=» DESERVER(PROD.RESS2);«, l3=0x19}
0x0ad31…0ad4c Line {l1=0x19, l2=» DESERVER(PROD.RESS3);«, l3=0x19}
0x0ad4c…0ad98 Line {l1=0x4a, l2=» IF (STARTDAG*8+STTIME<PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000)«, l3=0x4a}
0x0ad98…0adaf Line {l1=0x15, l2=» AND (I=1) THEN«, l3=0x15}
0x0adaf…0adba Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0adba…0ae04 Line {l1=0x48, l2=» (*OPERATIONEN ER LAGT TIDLIGERE, CHECK FORANLIGGENDE OPERATIONER*)«, l3=0x48}
0x0ae04…0ae1d Line {l1=0x17, l2=» PROD.SEKVENSN:=0;«, l3=0x17}
0x0ae1d…0ae35 Line {l1=0x16, l2=» PROD.OPERANR:=0;«, l3=0x16}
0x0ae35…0ae42 Line {l1=0x0b, l2=» J:=0;«, l3=0x0b}
0x0ae42…0ae89 Line {l1=0x45, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x45}
0x0ae89…0ae98 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x0ae98…0aebe Line {l1=0x24, l2=» WHILE PROD.OPERANR<>OPERANR DO«, l3=0x24}
0x0aebe…0aecb Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0aecb…0aedc Line {l1=0x0f, l2=» J:=J+1;«, l3=0x0f}
0x0aedc…0af03 Line {l1=0x25, l2=» PRODLINE(J,1):=PROD.SEKVENSN;«, l3=0x25}
0x0af03…0af29 Line {l1=0x24, l2=» PRODLINE(J,2):=PROD.OPERANR;«, l3=0x24}
0x0af29…0af50 Line {l1=0x25, l2=» PRODLINE(J,3):=PROD.STARTTID;«, l3=0x25}
0x0af50…0af77 Line {l1=0x25, l2=» PRODLINE(J,4):=PROD.VARIGHED;«, l3=0x25}
0x0af77…0af9f Line {l1=0x26, l2=» NEXTREC(PROD.A);CHECK0(PROD.A)«, l3=0x26}
0x0af9f…0afab Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0afab…0afd0 Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x0afd0…0aff5 Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x0aff5…0b009 Line {l1=0x12, l2=» WHILE J>0 DO«, l3=0x12}
0x0b009…0b016 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b016…0b05b Line {l1=0x43, l2=» THISSTART:=PRODLINE(J,3) MOD 1000*8+PRODLINE(J,3) DIV 1000;«, l3=0x43}
0x0b05b…0b087 Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PRODLINE(J,4);«, l3=0x2a}
0x0b087…0b0ab Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x0b0ab…0b0ec Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT<DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x0b0ec…0b104 Line {l1=0x16, l2=» IF DIFF>0 THEN«, l3=0x16}
0x0b104…0b114 Line {l1=0x0e, l2=» J:=0«, l3=0x0e}
0x0b114…0b122 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0b122…0b131 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b131…0b14f Line {l1=0x1c, l2=» NU(PRODLINE(J,2));«, l3=0x1c}
0x0b14f…0b175 Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x0b175…0b199 Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x0b199…0b1bb Line {l1=0x20, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x20}
0x0b1bb…0b1db Line {l1=0x1e, l2=» PROD.EMNENR:=EMNENR;«, l3=0x1e}
0x0b1db…0b204 Line {l1=0x27, l2=» PROD.SEKVENSN:=PRODLINE(J,1);«, l3=0x27}
0x0b204…0b22c Line {l1=0x26, l2=» PROD.OPERANR:=PRODLINE(J,2);«, l3=0x26}
0x0b22c…0b257 Line {l1=0x29, l2=» GETRECX(PROD.A);CHECK0(PROD.A);«, l3=0x29}
0x0b257…0b278 Line {l1=0x1f, l2=» DESERVER(PROD.RESS1);«, l3=0x1f}
0x0b278…0b299 Line {l1=0x1f, l2=» DESERVER(PROD.RESS2);«, l3=0x1f}
0x0b299…0b2ba Line {l1=0x1f, l2=» DESERVER(PROD.RESS3);«, l3=0x1f}
0x0b2ba…0b306 Line {l1=0x4a, l2=» PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;«, l3=0x4a}
0x0b306…0b327 Line {l1=0x1f, l2=» RESERVER(PROD.RESS1);«, l3=0x1f}
0x0b327…0b348 Line {l1=0x1f, l2=» RESERVER(PROD.RESS2);«, l3=0x1f}
0x0b348…0b369 Line {l1=0x1f, l2=» RESERVER(PROD.RESS3);«, l3=0x1f}
0x0b369…0b392 Line {l1=0x27, l2=» PUTREC(PROD.A);CHECK0(PROD.A)«, l3=0x27}
0x0b392…0b3a0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0b3a0…0b3b0 Line {l1=0x0e, l2=» J:=J-1«, l3=0x0e}
0x0b3b0…0b3bb Line {l1=0x09, l2=» END«, l3=0x09}
0x0b3bb…0b3c5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0b3c5…0b3e7 Line {l1=0x20, l2=» STARTDAG:=STARTTID MOD 1000;«, l3=0x20}
0x0b3e7…0b407 Line {l1=0x1e, l2=» STTIME:=STARTTID DIV 1000;«, l3=0x1e}
0x0b407…0b423 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x0b423…0b43d Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x0b43d…0b45b Line {l1=0x1c, l2=» PROD.SEKVENSN:=SEKVENSN;«, l3=0x1c}
0x0b45b…0b477 Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x0b477…0b49b Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x0b49b…0b4e7 Line {l1=0x4a, l2=» IF (STARTDAG*8+STTIME+VARIGHED>PROD.STARTTID MOD 1000*8+PROD.VARIGHED+«, l3=0x4a}
0x0b4e7…0b537 Line {l1=0x4e, l2=» PROD.STARTTID DIV 1000) AND (I=ANTLINE) THEN«, l3=0x4e}
0x0b537…0b542 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b542…0b58a Line {l1=0x46, l2=» (*OPERATIONEN SLUTTER SENERE END PLANLAGT, CHECK EFTERFØLGENDE*)«, l3=0x46}
0x0b58a…0b5af Line {l1=0x23, l2=» LASTSTART:=STARTDAG*8+STTIME;«, l3=0x23}
0x0b5af…0b5d4 Line {l1=0x23, l2=» LASTSLUT:=LASTSTART+VARIGHED;«, l3=0x23}
0x0b5d4…0b61c Line {l1=0x46, l2=» NEXTRECX(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x46}
0x0b61c…0b62b Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x0b62b…0b677 Line {l1=0x4a, l2=» WHILE (IER=0) AND (PROD.ORDRENR=ORDRENR) AND (PROD.EMNENR=EMNENR) DO«, l3=0x4a}
0x0b677…0b684 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b684…0b6c9 Line {l1=0x43, l2=» THISSTART:=PROD.STARTTID MOD 1000*8+PROD.STARTTID DIV 1000;«, l3=0x43}
0x0b6c9…0b6f5 Line {l1=0x2a, l2=» THISSLUT:=THISSTART+PROD.VARIGHED;«, l3=0x2a}
0x0b6f5…0b719 Line {l1=0x22, l2=» DIFF:=LASTSTART-THISSTART;«, l3=0x22}
0x0b719…0b75a Line {l1=0x3f, l2=» IF LASTSLUT-THISSLUT>DIFF THEN DIFF:=LASTSLUT-THISSLUT;«, l3=0x3f}
0x0b75a…0b772 Line {l1=0x16, l2=» IF DIFF<0 THEN«, l3=0x16}
0x0b772…0b785 Line {l1=0x11, l2=» IER:=-1«, l3=0x11}
0x0b785…0b793 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0b793…0b7a2 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b7a2…0b7bf Line {l1=0x1b, l2=» NU(PROD.OPERANR);«, l3=0x1b}
0x0b7bf…0b7e5 Line {l1=0x24, l2=» LASTSTART:=THISSTART+DIFF;«, l3=0x24}
0x0b7e5…0b809 Line {l1=0x22, l2=» LASTSLUT:=THISSLUT+DIFF;«, l3=0x22}
0x0b809…0b82a Line {l1=0x1f, l2=» DESERVER(PROD.RESS1);«, l3=0x1f}
0x0b82a…0b84b Line {l1=0x1f, l2=» DESERVER(PROD.RESS2);«, l3=0x1f}
0x0b84b…0b86c Line {l1=0x1f, l2=» DESERVER(PROD.RESS3);«, l3=0x1f}
0x0b86c…0b8b8 Line {l1=0x4a, l2=» PROD.STARTTID:=(LASTSTART-1) DIV 8+((LASTSTART-1) MOD 8+1)*1000;«, l3=0x4a}
0x0b8b8…0b8d9 Line {l1=0x1f, l2=» RESERVER(PROD.RESS1);«, l3=0x1f}
0x0b8d9…0b8fa Line {l1=0x1f, l2=» RESERVER(PROD.RESS2);«, l3=0x1f}
0x0b8fa…0b91b Line {l1=0x1f, l2=» RESERVER(PROD.RESS3);«, l3=0x1f}
0x0b91b…0b945 Line {l1=0x28, l2=» PUTREC(PROD.A);CHECK0(PROD.A);«, l3=0x28}
0x0b945…0b961 Line {l1=0x1a, l2=» NEXTRECX(PROD.A)«, l3=0x1a}
0x0b961…0b96e Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0b96e…0b97a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0b97a…0b9b1 Line {l1=0x35, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A) «, l3=0x35}
0x0b9b1…0b9bb Line {l1=0x08, l2=» END;«, l3=0x08}
0x0b9bb…0b9d7 Line {l1=0x1a, l2=» PROD.ORDRENR:=ORDRENR;«, l3=0x1a}
0x0b9d7…0b9f1 Line {l1=0x18, l2=» PROD.EMNENR:=EMNENR;«, l3=0x18}
0x0b9f1…0ba0f Line {l1=0x1c, l2=» PROD.SEKVENSN:=SEKVENSN;«, l3=0x1c}
0x0ba0f…0ba2b Line {l1=0x1a, l2=» PROD.OPERANR:=OPERANR;«, l3=0x1a}
0x0ba2b…0ba50 Line {l1=0x23, l2=» GETRECX(PROD.A);CHECK0(PROD.A);«, l3=0x23}
0x0ba50…0ba6e Line {l1=0x1c, l2=» PROD.STARTTID:=STARTTID;«, l3=0x1c}
0x0ba6e…0ba8c Line {l1=0x1c, l2=» PROD.VARIGHED:=VARIGHED;«, l3=0x1c}
0x0ba8c…0baa7 Line {l1=0x19, l2=» RESERVER(PROD.RESS1);«, l3=0x19}
0x0baa7…0bac2 Line {l1=0x19, l2=» RESERVER(PROD.RESS2);«, l3=0x19}
0x0bac2…0badd Line {l1=0x19, l2=» RESERVER(PROD.RESS3);«, l3=0x19}
0x0badd…0bb01 Line {l1=0x22, l2=» PUTREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x0bb01…0bb18 Line {l1=0x15, l2=» IF I=ANTLINE THEN«, l3=0x15}
0x0bb18…0bb23 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0bb23…0bb3d Line {l1=0x18, l2=» ORDRE.NR:=ORDRENR;«, l3=0x18}
0x0bb3d…0bb5a Line {l1=0x1b, l2=» ORDRE.EMNENR:=EMNENR;«, l3=0x1b}
0x0bb5a…0bb83 Line {l1=0x27, l2=» GETRECX(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x27}
0x0bb83…0bbb6 Line {l1=0x31, l2=» ORDRE.BEKRÆLEV:=REBXTRA(ORDENR(I)).ØNSKLEV;«, l3=0x31}
0x0bbb6…0bbdd Line {l1=0x25, l2=» PUTREC(ORDRE.A);CHECK0(ORDRE.A)«, l3=0x25}
0x0bbdd…0bbe6 Line {l1=0x07, l2=» END«, l3=0x07}
0x0bbe6…0bbed Line {l1=0x05, l2=» END«, l3=0x05}
0x0bbed…0bbf3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bbf3…0bbfb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0bbfb…0bc0e Line {l1=0x11, l2=»PROCEDURE AFSLUT;«, l3=0x11}
0x0bc0e…0bc15 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0bc15…0bc51 Line {l1=0x3a, l2=» IF QJN('Ønskes check og ændringer foretaget') IN JA THEN«, l3=0x3a}
0x0bc51…0bc5a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0bc5a…0bc83 Line {l1=0x27, l2=» GETRECX(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x27}
0x0bc83…0bc93 Line {l1=0x0e, l2=» CHECKPLAN;«, l3=0x0e}
0x0bc93…0bca8 Line {l1=0x13, l2=» IF CHECKOK THEN«, l3=0x13}
0x0bca8…0bcb3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0bcb3…0bcc3 Line {l1=0x0e, l2=» UDFPLAN;«, l3=0x0e}
0x0bcc3…0bcd3 Line {l1=0x0e, l2=» GETPROD;«, l3=0x0e}
0x0bcd3…0bcf0 Line {l1=0x1b, l2=» ORDBILLEDE(0,ANTLINE)«, l3=0x1b}
0x0bcf0…0bcf9 Line {l1=0x07, l2=» END«, l3=0x07}
0x0bcf9…0bd0f Line {l1=0x14, l2=» ELSE CH(1):='4';«, l3=0x14}
0x0bd0f…0bd36 Line {l1=0x25, l2=» PUTREC(SYSTEM.A);CHECK0(SYSTEM.A)«, l3=0x25}
0x0bd36…0bd3d Line {l1=0x05, l2=» END«, l3=0x05}
0x0bd3d…0bd43 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bd43…0bd4b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0bd4b…0bd60 Line {l1=0x13, l2=»BEGIN (*ORDREPLAN*)«, l3=0x13}
0x0bd60…0bd72 Line {l1=0x10, l2=» CHECKOK:=FALSE;«, l3=0x10}
0x0bd72…0bd7b Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x0bd7b…0bd93 Line {l1=0x16, l2=» LÆSFELT(PICTURE(2));«, l3=0x16}
0x0bd93…0bdbc Line {l1=0x27, l2=» IF POST.ORDRE=0 THEN EXIT(ORDREPLAN);«, l3=0x27}
0x0bdbc…0bdd4 Line {l1=0x16, l2=» LÆSFELT(PICTURE(3));«, l3=0x16}
0x0bdd4…0bded Line {l1=0x17, l2=» ORDRE.NR:=POST.ORDRE;«, l3=0x17}
0x0bded…0be0b Line {l1=0x1c, l2=» ORDRE.EMNENR:=POST.EMNENR;«, l3=0x1c}
0x0be0b…0be4c Line {l1=0x3f, l2=» GETREC(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);«, l3=0x3f}
0x0be4c…0be8d Line {l1=0x3f, l2=» IF IER=-6 THEN BEGIN NONEXIST('Ordren'); EXIT(ORDREPLAN) END;«, l3=0x3f}
0x0be8d…0be99 Line {l1=0x0a, l2=» GETPROD;«, l3=0x0a}
0x0be99…0beb3 Line {l1=0x18, l2=» ORDBILLEDE(0,ANTLINE);«, l3=0x18}
0x0beb3…0bebd Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0bebd…0becb Line {l1=0x0c, l2=» D(23,2);«, l3=0x0c}
0x0becb…0bf0b Line {l1=0x3e, l2=» WRITELN('Ændring af 1: Starttid 2: Varighed ',«, l3=0x3e}
0x0bf0b…0bf30 Line {l1=0x23, l2=» ' Vælg 1-5');«, l3=0x23}
0x0bf30…0bf71 Line {l1=0x3f, l2=» WRITE('3: Sekventiel udlægning 4: Check plan 5: Afslut');«, l3=0x3f}
0x0bf71…0bf7d Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0bf7d…0bf8d Line {l1=0x0e, l2=» CH:='1';«, l3=0x0e}
0x0bf8d…0bfa3 Line {l1=0x14, l2=» GOTOXY(75,23);«, l3=0x14}
0x0bfa3…0bfb3 Line {l1=0x0e, l2=» EDIT(CH)«, l3=0x0e}
0x0bfb3…0bfd5 Line {l1=0x20, l2=» UNTIL CH(1) IN (.'1'..'5'.);«, l3=0x20}
0x0bfd5…0bfe8 Line {l1=0x11, l2=» CASE CH(1) OF«, l3=0x11}
0x0bfe8…0bff9 Line {l1=0x0f, l2=» '1':ÆSTART;«, l3=0x0f}
0x0bff9…0c00a Line {l1=0x0f, l2=» '2':ÆVARIG;«, l3=0x0f}
0x0c00a…0c01c Line {l1=0x10, l2=» '3':SEKVUDL;«, l3=0x10}
0x0c01c…0c050 Line {l1=0x32, l2=» '4':BEGIN CHECKPLAN;ORDBILLEDE(0,ANTLINE) END;«, l3=0x32}
0x0c050…0c060 Line {l1=0x0e, l2=» '5':AFSLUT«, l3=0x0e}
0x0c060…0c069 Line {l1=0x07, l2=» END«, l3=0x07}
0x0c069…0c07c Line {l1=0x11, l2=» UNTIL CH(1)='5'«, l3=0x11}
0x0c07c…0c091 Line {l1=0x13, l2=» UNTIL POST.ORDRE=0«, l3=0x13}
0x0c091…0c097 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c097…0c09f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c09f…0c0b6 Line {l1=0x15, l2=»PROCEDURE UDLÆGORDRE;«, l3=0x15}
0x0c0b6…0c0fd Line {l1=0x45, l2=»VAR VARIGHED,TIDSFORB,ØLEVDAG,DAGE,TIMER,STARTTIME,STARTDAY :INTEGER;«, l3=0x45}
0x0c0fd…0c100 Line {l1=0x01, l2=» «, l3=0x01}
0x0c100…0c129 Line {l1=0x27, l2=»PROCEDURE RESERVER(VAR RESSNR:INTEGER);«, l3=0x27}
0x0c129…0c130 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c130…0c144 Line {l1=0x12, l2=» IF RESSNR<0 THEN«, l3=0x12}
0x0c144…0c158 Line {l1=0x12, l2=» WITH RESSGRUP DO«, l3=0x12}
0x0c158…0c161 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c161…0c177 Line {l1=0x14, l2=» GRUPNR:=-RESSNR;«, l3=0x14}
0x0c177…0c183 Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x0c183…0c1a1 Line {l1=0x1c, l2=» REBELAST.GRUPPE:=GRUPNR;«, l3=0x1c}
0x0c1a1…0c1dc Line {l1=0x39, l2=» NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);«, l3=0x39}
0x0c1dc…0c204 Line {l1=0x26, l2=» IF GRUPNR=-RESSNR THEN RESSNR:=NR «, l3=0x26}
0x0c204…0c20c Line {l1=0x06, l2=» END «, l3=0x06}
0x0c20c…0c228 Line {l1=0x1a, l2=» ELSE REBELAST.GRUPPE:=0;«, l3=0x1a}
0x0c228…0c23c Line {l1=0x12, l2=» IF RESSNR>0 THEN«, l3=0x12}
0x0c23c…0c250 Line {l1=0x12, l2=» WITH REBELAST DO«, l3=0x12}
0x0c250…0c259 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c259…0c26f Line {l1=0x14, l2=» RESS.NR:=RESSNR;«, l3=0x14}
0x0c26f…0c293 Line {l1=0x22, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x22}
0x0c293…0c2b1 Line {l1=0x1c, l2=» IF RESS.RESSTYPE>0 THEN «, l3=0x1c}
0x0c2b1…0c2bc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0c2bc…0c2cf Line {l1=0x11, l2=» NR:=RESSNR;«, l3=0x11}
0x0c2cf…0c2ed Line {l1=0x1c, l2=» ORDRENR:=PROD.ORDRENR;«, l3=0x1c}
0x0c2ed…0c309 Line {l1=0x1a, l2=» EMNENR:=PROD.EMNENR;«, l3=0x1a}
0x0c309…0c327 Line {l1=0x1c, l2=» OPERANR:=PROD.OPERANR;«, l3=0x1c}
0x0c327…0c345 Line {l1=0x1c, l2=» SEKVNR:=PROD.SEKVENSN;«, l3=0x1c}
0x0c345…0c36e Line {l1=0x27, l2=» STARTDAG:=PROD.STARTTID MOD 1000;«, l3=0x27}
0x0c36e…0c395 Line {l1=0x25, l2=» STTIME:=PROD.STARTTID DIV 1000;«, l3=0x25}
0x0c395…0c3b5 Line {l1=0x1e, l2=» VARIGHED:=PROD.VARIGHED;«, l3=0x1e}
0x0c3b5…0c3d0 Line {l1=0x19, l2=» INSERT(A);CHECK0(A)«, l3=0x19}
0x0c3d0…0c3d9 Line {l1=0x07, l2=» END«, l3=0x07}
0x0c3d9…0c3e0 Line {l1=0x05, l2=» END«, l3=0x05}
0x0c3e0…0c3e6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c3e6…0c3ee Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c3ee…0c405 Line {l1=0x15, l2=»BEGIN (*UDLÆGORDRE*)«, l3=0x15}
0x0c405…0c40f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0c40f…0c429 Line {l1=0x18, l2=» LÆSFELT(PICTURE(2));«, l3=0x18}
0x0c429…0c455 Line {l1=0x2a, l2=» IF POST.ORDRE=0 THEN EXIT(UDLÆGORDRE);«, l3=0x2a}
0x0c455…0c46f Line {l1=0x18, l2=» LÆSFELT(PICTURE(3));«, l3=0x18}
0x0c46f…0c48a Line {l1=0x19, l2=» ORDRE.NR:=POST.ORDRE;«, l3=0x19}
0x0c48a…0c4aa Line {l1=0x1e, l2=» ORDRE.EMNENR:=POST.EMNENR;«, l3=0x1e}
0x0c4aa…0c4ee Line {l1=0x42, l2=» GETRECX(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);«, l3=0x42}
0x0c4ee…0c502 Line {l1=0x12, l2=» IF IER=-6 THEN«, l3=0x12}
0x0c502…0c51c Line {l1=0x18, l2=» NONEXIST('Ordren')«, l3=0x18}
0x0c51c…0c526 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0c526…0c531 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0c531…0c552 Line {l1=0x1f, l2=» IF ORDRE.BEKRÆLEV<>0 THEN«, l3=0x1f}
0x0c552…0c55f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c55f…0c571 Line {l1=0x10, l2=» D(23,1);«, l3=0x10}
0x0c571…0c59e Line {l1=0x2b, l2=» WRITE('Ordren er allerede udlagt');«, l3=0x2b}
0x0c59e…0c5ae Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x0c5ae…0c5b9 Line {l1=0x09, l2=» END«, l3=0x09}
0x0c5b9…0c5c5 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0c5c5…0c5d9 Line {l1=0x12, l2=» WITH PROD DO«, l3=0x12}
0x0c5d9…0c5e6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c5e6…0c603 Line {l1=0x1b, l2=» ORDRE.BEKRÆLEV:=-1;«, l3=0x1b}
0x0c603…0c619 Line {l1=0x14, l2=» TIDSFORB:=0;«, l3=0x14}
0x0c619…0c635 Line {l1=0x1a, l2=» ORDRENR:=ORDRE.NR;«, l3=0x1a}
0x0c635…0c654 Line {l1=0x1d, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x1d}
0x0c654…0c66a Line {l1=0x14, l2=» SEKVENSN:=0;«, l3=0x14}
0x0c66a…0c67f Line {l1=0x13, l2=» OPERANR:=0;«, l3=0x13}
0x0c67f…0c6be Line {l1=0x3d, l2=» NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);«, l3=0x3d}
0x0c6be…0c6cf Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x0c6cf…0c71a Line {l1=0x49, l2=» WHILE (IER=0) AND (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR) DO«, l3=0x49}
0x0c71a…0c729 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c729…0c756 Line {l1=0x2b, l2=» TIDSFORB:=TIDSFORB+PROD.VARIGHED;«, l3=0x2b}
0x0c756…0c779 Line {l1=0x21, l2=» OPERA.NR:=PROD.OPERANR;«, l3=0x21}
0x0c779…0c7a5 Line {l1=0x2a, l2=» GETREC(OPERA.A);CHECK0(OPERA.A);«, l3=0x2a}
0x0c7a5…0c7d8 Line {l1=0x31, l2=» TIDSFORB:=TIDSFORB+ROUND(OPERA.TILLÆG);«, l3=0x31}
0x0c7d8…0c7ee Line {l1=0x14, l2=» NEXTREC(A)«, l3=0x14}
0x0c7ee…0c7fc Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0c7fc…0c82f Line {l1=0x31, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x31}
0x0c82f…0c855 Line {l1=0x24, l2=» UGEDAG.UGENR:=ORDRE.ØNSKLEV;«, l3=0x24}
0x0c855…0c881 Line {l1=0x2a, l2=» GETREC(UGEDAG.A);CHECK0(UGEDAG.A);«, l3=0x2a}
0x0c881…0c8a4 Line {l1=0x21, l2=» ØLEVDAG:=UGEDAG.ARBDAGNR;«, l3=0x21}
0x0c8a4…0c8c3 Line {l1=0x1d, l2=» DAGE:=TIDSFORB DIV 8;«, l3=0x1d}
0x0c8c3…0c8e3 Line {l1=0x1e, l2=» TIMER:=TIDSFORB MOD 8;«, l3=0x1e}
0x0c8e3…0c8fa Line {l1=0x15, l2=» STARTTIME:=1;«, l3=0x15}
0x0c8fa…0c91b Line {l1=0x1f, l2=» STARTDAY:=ØLEVDAG-DAGE;«, l3=0x1f}
0x0c91b…0c934 Line {l1=0x17, l2=» IF TIMER>0 THEN«, l3=0x17}
0x0c934…0c943 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c943…0c964 Line {l1=0x1f, l2=» STARTDAY:=STARTDAY-1;«, l3=0x1f}
0x0c964…0c982 Line {l1=0x1c, l2=» STARTTIME:=9-TIMER«, l3=0x1c}
0x0c982…0c990 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0c990…0c9ac Line {l1=0x1a, l2=» ORDRENR:=ORDRE.NR;«, l3=0x1a}
0x0c9ac…0c9cb Line {l1=0x1d, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x1d}
0x0c9cb…0c9e1 Line {l1=0x14, l2=» SEKVENSN:=0;«, l3=0x14}
0x0c9e1…0c9f6 Line {l1=0x13, l2=» OPERANR:=0;«, l3=0x13}
0x0c9f6…0ca36 Line {l1=0x3e, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);«, l3=0x3e}
0x0ca36…0ca47 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x0ca47…0ca92 Line {l1=0x49, l2=» WHILE (IER=0) AND (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR) DO«, l3=0x49}
0x0ca92…0caa1 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0caa1…0cac4 Line {l1=0x21, l2=» OPERA.NR:=PROD.OPERANR;«, l3=0x21}
0x0cac4…0caf0 Line {l1=0x2a, l2=» GETREC(OPERA.A);CHECK0(OPERA.A);«, l3=0x2a}
0x0caf0…0cb09 Line {l1=0x17, l2=» GOTOXY(1,24);«, l3=0x17}
0x0cb09…0cb4e Line {l1=0x43, l2=» WRITE('Nu behandles operation ',OPERA.BETEGN,OPERA.NR:5);«, l3=0x43}
0x0cb4e…0cb75 Line {l1=0x25, l2=» IF STARTDAY>=PSTARTDAG THEN«, l3=0x25}
0x0cb75…0cba9 Line {l1=0x32, l2=» PROD.STARTTID:=1000*STARTTIME+STARTDAY«, l3=0x32}
0x0cba9…0cbb9 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x0cbb9…0cbe5 Line {l1=0x2a, l2=» PROD.STARTTID:=1000+PSTARTDAG;«, l3=0x2a}
0x0cbe5…0cc06 Line {l1=0x1f, l2=» RESERVER(PROD.RESS1);«, l3=0x1f}
0x0cc06…0cc27 Line {l1=0x1f, l2=» RESERVER(PROD.RESS2);«, l3=0x1f}
0x0cc27…0cc48 Line {l1=0x1f, l2=» RESERVER(PROD.RESS3);«, l3=0x1f}
0x0cc48…0cc68 Line {l1=0x1e, l2=» PUTREC(A);CHECK0(A);«, l3=0x1e}
0x0cc68…0cca6 Line {l1=0x3c, l2=» STARTTIME:=STARTTIME+VARIGHED+ROUND(OPERA.TILLÆG);«, l3=0x3c}
0x0cca6…0ccd5 Line {l1=0x2d, l2=» STARTDAY:=STARTDAY+STARTTIME DIV 8;«, l3=0x2d}
0x0ccd5…0ccfc Line {l1=0x25, l2=» STARTTIME:=STARTTIME MOD 8;«, l3=0x25}
0x0ccfc…0cd1b Line {l1=0x1d, l2=» IF STARTTIME=0 THEN«, l3=0x1d}
0x0cd1b…0cd2c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0cd2c…0cd4f Line {l1=0x21, l2=» STARTDAY:=STARTDAY-1;«, l3=0x21}
0x0cd4f…0cd69 Line {l1=0x18, l2=» STARTTIME:=8«, l3=0x18}
0x0cd69…0cd7a Line {l1=0x0f, l2=» END; «, l3=0x0f}
0x0cd7a…0cd91 Line {l1=0x15, l2=» NEXTRECX(A)«, l3=0x15}
0x0cd91…0cd9f Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0cd9f…0cdd2 Line {l1=0x31, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x31}
0x0cdd2…0cde3 Line {l1=0x0f, l2=» D(24,1)«, l3=0x0f}
0x0cde3…0cdef Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0cdef…0ce16 Line {l1=0x25, l2=» PUTREC(ORDRE.A);CHECK0(ORDRE.A)«, l3=0x25}
0x0ce16…0ce1f Line {l1=0x07, l2=» END«, l3=0x07}
0x0ce1f…0ce35 Line {l1=0x14, l2=» UNTIL POST.ORDRE=0«, l3=0x14}
0x0ce35…0ce3b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ce3b…0ce43 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0ce43…0ce58 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x0ce58…0ce66 Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x0ce66…0ce7a Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x0ce7a…0ce84 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0ce84…0ce9e Line {l1=0x18, l2=» LÆSFELT(PICTURE(4));«, l3=0x18}
0x0ce9e…0cec0 Line {l1=0x20, l2=» UGEDAG.UGENR:=POST.STARTUGE;«, l3=0x20}
0x0cec0…0cf05 Line {l1=0x43, l2=» GETREC(UGEDAG.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(UGEDAG.A);«, l3=0x43}
0x0cf05…0cf18 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x0cf18…0cf23 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0cf23…0cf47 Line {l1=0x22, l2=» ARBEDAG.NR:=UGEDAG.ARBDAGNR;«, l3=0x22}
0x0cf47…0cf90 Line {l1=0x47, l2=» GETREC(ARBEDAG.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ARBEDAG.A);«, l3=0x47}
0x0cf90…0cfbd Line {l1=0x2b, l2=» IF (DAGSDATO(1)*10000.0+DAGSDATO(2))>«, l3=0x2b}
0x0cfbd…0cffe Line {l1=0x3f, l2=» (ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)) THEN IER:=-6«, l3=0x3f}
0x0cffe…0d007 Line {l1=0x07, l2=» END«, l3=0x07}
0x0d007…0d017 Line {l1=0x0e, l2=» UNTIL IER=0;«, l3=0x0e}
0x0d017…0d036 Line {l1=0x1d, l2=» PSTARTDAG:=UGEDAG.ARBDAGNR;«, l3=0x1d}
0x0d036…0d048 Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x0d048…0d057 Line {l1=0x0d, l2=» 1:RESSPLAN;«, l3=0x0d}
0x0d057…0d067 Line {l1=0x0e, l2=» 2:ORDREPLAN;«, l3=0x0e}
0x0d067…0d077 Line {l1=0x0e, l2=» 3:UDLÆGORDRE«, l3=0x0e}
0x0d077…0d07e Line {l1=0x05, l2=» END«, l3=0x05}
0x0d07e…0d084 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d084…0d08c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0d08c…0d09f Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x0d09f…0d0b1 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x0d0b1…0d0c3 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x0d0c3…0d0d7 Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x0d0d7…0d0ec Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x0d0ec…0d100 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x0d100…0d110 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0d110…0d11c Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x0d11c…0d131 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x0d131…0d13c Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x0d13c…0d152 Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0x0d152…0d16c Line {l1=0x18, l2=» RESSGRUP.A(-4):=0; «, l3=0x18}
0x0d16c…0d182 Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0x0d182…0d198 Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0x0d198…0d1ac Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x0d1ac…0d1cb Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0x0d1cb…0d1ea Line {l1=0x1d, l2=» ORDRE.A(-4):=0; «, l3=0x1d}
0x0d1ea…0d200 Line {l1=0x14, l2=» REBELAST.A(-4):=0;«, l3=0x14}
0x0d200…0d214 Line {l1=0x12, l2=» UGEDAG.A(-4):=0;«, l3=0x12}
0x0d214…0d229 Line {l1=0x13, l2=» ARBEDAG.A(-4):=0;«, l3=0x13}
0x0d229…0d23e Line {l1=0x13, l2=» UGEDAG.A(-3):=21;«, l3=0x13}
0x0d23e…0d254 Line {l1=0x14, l2=» ARBEDAG.A(-3):=22;«, l3=0x14}
0x0d254…0d26a Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0x0d26a…0d284 Line {l1=0x18, l2=» RESSGRUP.A(-3):=3; «, l3=0x18}
0x0d284…0d29a Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0x0d29a…0d2b0 Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0x0d2b0…0d2c4 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x0d2c4…0d2dc Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0x0d2dc…0d2f4 Line {l1=0x16, l2=» ORDRE.A(-3):=10; «, l3=0x16}
0x0d2f4…0d30b Line {l1=0x15, l2=» REBELAST.A(-3):=15;«, l3=0x15}
0x0d30b…0d316 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x0d316…0d344 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x0d344…0d36b Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0x0d36b…0d396 Line {l1=0x29, l2=» IOPEN(ORDRE.A); CHECK0(ORDRE.A); «, l3=0x29}
0x0d396…0d3c4 Line {l1=0x2c, l2=» IOPEN(REBELAST.A); CHECK0(REBELAST.A); «, l3=0x2c}
0x0d3c4…0d3ef Line {l1=0x29, l2=» IOPEN(PROD.A); CHECK0(PROD.A); «, l3=0x29}
0x0d3ef…0d418 Line {l1=0x27, l2=» IOPEN(UGEDAG.A); CHECK0(UGEDAG.A);«, l3=0x27}
0x0d418…0d442 Line {l1=0x28, l2=» IOPEN(ARBEDAG.A); CHECK0(ARBEDAG.A);«, l3=0x28}
0x0d442…0d469 Line {l1=0x25, l2=» IOPEN(RESS.A); CHECK0(RESS.A);«, l3=0x25}
0x0d469…0d498 Line {l1=0x2d, l2=» IOPEN(RESSGRUP.A); CHECK0(RESSGRUP.A); «, l3=0x2d}
0x0d498…0d4c5 Line {l1=0x2b, l2=» IOPEN(EMNE.A); CHECK0(EMNE.A); «, l3=0x2b}
0x0d4c5…0d4f2 Line {l1=0x2b, l2=» IOPEN(OPERA.A); CHECK0(OPERA.A); «, l3=0x2b}
0x0d4f2…0d503 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x0d503…0d529 Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0x0d529…0d547 Line {l1=0x1c, l2=» DAGSDATO:=SYSTEM.DAGSDATO;«, l3=0x1c}
0x0d547…0d558 Line {l1=0x0f, l2=» SYSTEM.NR:=1;«, l3=0x0f}
0x0d558…0d56d Line {l1=0x13, l2=» POST.STARTUGE:=0;«, l3=0x13}
0x0d56d…0d577 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0d577…0d589 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0d589…0d59c Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x0d59c…0d5b6 Line {l1=0x18, l2=» WRITELN('0 Færdig');«, l3=0x18}
0x0d5b6…0d5de Line {l1=0x26, l2=» WRITELN('1 Ressourceplanlægning');«, l3=0x26}
0x0d5de…0d602 Line {l1=0x22, l2=» WRITELN('2 Ordreplanlægning');«, l3=0x22}
0x0d602…0d628 Line {l1=0x24, l2=» WRITELN('3 Udlægning af ordre');«, l3=0x24}
0x0d628…0d643 Line {l1=0x19, l2=» LÆSFELT(PICTURE(13));«, l3=0x19}
0x0d643…0d65d Line {l1=0x18, l2=» OPTION:=POST.OPTION;«, l3=0x18}
0x0d65d…0d67c Line {l1=0x1d, l2=» IF OPTION>0 THEN MAINTAIN«, l3=0x1d}
0x0d67c…0d68f Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x0d68f…0d692 Line {l1=0x01, l2=» «, l3=0x01}
0x0d692…0d6a9 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x0d6a9…0d6c4 Line {l1=0x19, l2=» ICLOSE(RESSGRUP.A); «, l3=0x19}
0x0d6c4…0d6db Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x0d6db…0d6f2 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x0d6f2…0d70a Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x0d70a…0d71e Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x0d71e…0d735 Line {l1=0x15, l2=» ICLOSE(REBELAST.A);«, l3=0x15}
0x0d735…0d74a Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0x0d74a…0d760 Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0x0d760…0d775 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x0d775…0d785 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x0d785…0d78b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d78b…0d793 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0d793…0d79a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d79a…0d7b4 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x0d7b4…0d7cc Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x0d7cc…0d7e2 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x0d7e2…0d7f2 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x0d7f2…0d7fb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d7fb…0d81e Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x0d81e…0d82a Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x0d82a…0d87a Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x0d87a…0d88a Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x0d88a…0d8ca Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x0d8ca…0d91a Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x0d91a…0d933 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x0d933…0d94d Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x0d94d…0d96b Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x0d96b…0d97c Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x0d97c…0d99d Line {l1=0x1f, l2=» DESCNAVN:='PLANPESC:P2:05:J';«, l3=0x1f}
0x0d99d…0d9b1 Line {l1=0x12, l2=» IF RESPRINT THEN«, l3=0x12}
0x0d9b1…0d9ba Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d9ba…0d9c9 Line {l1=0x0d, l2=» REGVEDL; «, l3=0x0d}
0x0d9c9…0d9d5 Line {l1=0x0a, l2=» FREEPR«, l3=0x0a}
0x0d9d5…0d9dd Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d9dd…0d9f5 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x0d9f5…0da0e Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x0da0e…0da2c Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x0da2c…0da41 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x0da41…0da69 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x0da69…0da8b Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x0da8b…0dac0 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x0dac0…0dac6 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0dac6…0dae0 00 00 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e ┆ FMELD,SNYD); IF IER<>┆
0x0dae0…0db00 30 20 54 48 45 4e 20 42 41 44 28 32 2c 49 45 52 29 3b 1c 13 20 20 46 4e 41 56 4e 3a 3d 27 20 20 ┆0 THEN BAD(2,IER); FNAVN:=' ┆
0x0db00…0db20 20 20 20 20 20 27 3b 13 26 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 ┆ '; & FOR I:=1 TO 7 DO FNAV┆
0x0db20…0db40 4e 28 49 29 3a 3d 50 41 52 4d 5e 28 49 29 3b 26 20 20 20 43 48 41 49 4e 28 27 48 4f 56 45 44 20 ┆N(I):=PARM^(I);& CHAIN('HOVED ┆
0x0db40…0db60 20 20 2a 31 27 2c 46 4e 41 56 4e 2c 51 55 51 29 3b 20 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 ┆ *1',FNAVN,QUQ); 3 IF IORESULT┆
0x0db60…0db80 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 ┆<>0 THEN WRITELN('IORESULT ',IOR┆
0x0db80…0dba0 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 2e 04 00 00 29 3b 2e 1a 20 20 20 20 41 52 42 45 44 ┆ESULT)3 END. . );. ARBED┆
0x0dba0…0dbc0 41 47 2e 4e 52 3a 3d 50 53 54 41 52 54 44 41 47 3b 1a 28 20 20 20 20 47 45 54 52 45 43 28 41 52 ┆AG.NR:=PSTARTDAG; ( GETREC(AR┆
0x0dbc0…0dbe0 42 45 44 41 47 2e 41 29 3b 43 48 45 43 4b 30 28 41 52 42 45 44 41 47 2e 41 29 3b 28 0e 20 20 20 ┆BEDAG.A);CHECK0(ARBEDAG.A);( ┆
0x0dbe0…0dc00 20 41 4b 54 44 41 47 3a 3d 30 3b 0e 0f 20 20 20 20 41 4b 54 57 45 45 4b 3a 3d 30 3b 0f 15 20 20 ┆ AKTDAG:=0; AKTWEEK:=0; ┆
0x0dc00…0dc20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 35 20 44 4f 15 09 20 20 20 20 42 45 47 49 4e 09 24 ┆ FOR I:=1 TO 25 DO BEGIN $┆
0x0dc20…0dc40 20 20 20 20 20 20 49 46 20 41 4b 54 57 45 45 4b 3c 3e 41 52 42 45 44 41 47 2e 55 47 45 4e 52 20 ┆ IF AKTWEEK<>ARBEDAG.UGENR ┆
0x0dc40…0dc60 54 48 45 4e 24 32 20 20 20 20 20 20 42 45 47 49 4e 20 41 4b 54 44 41 47 3a 3d 30 3b 20 41 4b 54 ┆THEN$2 BEGIN AKTDAG:=0; AKT┆
0x0dc60…0dc80 57 45 45 4b 3a 3d 41 52 42 45 44 41 47 2e 55 47 45 4e 52 20 45 4e 44 3b 32 16 20 20 20 20 20 20 ┆WEEK:=ARBEDAG.UGENR END;2 ┆
0x0dc80…0dca0 49 46 20 41 4b 54 44 41 47 3c 35 20 54 48 45 4e 16 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 19 20 ┆IF AKTDAG<5 THEN BEGIN ┆
0x0dca0…0dcc0 20 20 20 20 20 20 20 41 4b 54 44 41 47 3a 3d 41 4b 54 44 41 47 2b 31 3b 19 1c 20 20 20 20 20 20 ┆ AKTDAG:=AKTDAG+1; ┆
0x0dcc0…0dce0 20 20 57 52 49 54 45 28 4c 49 53 54 2c 41 4b 54 44 41 47 3a 32 29 1c 09 20 20 20 20 20 20 45 4e ┆ WRITE(LIST,AKTDAG:2) EN┆
0x0dce0…0dd00 44 09 1d 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 32 29 3b ┆D ELSE WRITE(LIST,' ':2);┆
0x0dd00…0dd20 1d 4a 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 41 52 42 45 44 41 47 2e 41 29 3b 49 46 20 4e 4f ┆ J NEXTREC(ARBEDAG.A);IF NO┆
0x0dd20…0dd40 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2e 2e 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f ┆T (-IER IN (.0..2,9.)) THEN ERRO┆
0x0dd40…0dd60 52 28 41 52 42 45 44 41 47 2e 41 29 4a 08 20 20 20 20 45 4e 44 3b 08 2a 20 20 20 20 57 52 49 54 ┆R(ARBEDAG.A)J END; * WRIT┆
0x0dd60…0dd80 45 4c 4e 28 4c 49 53 54 2c 27 20 55 67 65 20 20 61 6e 74 20 20 74 69 6d 65 20 20 20 68 65 64 27 ┆ELN(LIST,' Uge ant time hed'┆
0x0dd80…0dda0 29 3b 2a 0c 20 20 20 20 4c 49 4e 45 53 3a 3d 32 0c 06 20 20 45 4e 44 3b 06 1d 20 20 57 49 54 48 ┆);* LINES:=2 END; WITH┆
0x0dda0…0ddc0 20 52 45 42 45 4c 41 53 54 2c 45 4d 4e 45 2c 4f 52 44 52 45 20 44 4f 1d 07 20 20 42 45 47 49 4e ┆ REBELAST,EMNE,ORDRE DO BEGIN┆
0x0ddc0…0dde0 07 15 20 20 20 20 4c 49 4e 49 45 52 3a 3d 4c 49 4e 49 45 52 2b 31 3b 15 2e 20 20 20 20 57 52 49 ┆ LINIER:=LINIER+1; . WRI┆
0x0dde0…0de00 54 45 28 4c 49 53 54 2c 4c 49 4e 49 45 52 3a 32 2c 4f 52 44 52 45 4e 52 3a 36 2c 27 20 27 2c 42 ┆TE(LIST,LINIER:2,ORDRENR:6,' ',B┆
0x0de00…0de20 45 54 45 47 4e 29 3b 2e 13 20 20 20 20 55 44 4c 49 4e 49 45 3a 3d 53 4b 45 4d 41 3b 13 2d 20 20 ┆ETEGN);. UDLINIE:=SKEMA; - ┆
0x0de20…0de40 20 20 49 46 20 28 53 54 41 52 54 44 41 47 2d 50 53 54 41 52 54 44 41 47 29 20 49 4e 20 28 2e 30 ┆ IF (STARTDAG-PSTARTDAG) IN (.0┆
0x0de40…0de60 2e 2e 32 34 2e 29 20 54 48 45 4e 2d 09 20 20 20 20 42 45 47 49 4e 09 22 20 20 20 20 20 20 49 3a ┆..24.) THEN- BEGIN " I:┆
0x0de60…0de80 3d 32 2a 28 53 54 41 52 54 44 41 47 2d 50 53 54 41 52 54 44 41 47 29 2b 32 3b 22 1e 20 20 20 20 ┆=2*(STARTDAG-PSTARTDAG)+2;" ┆
0x0de80…0dea0 20 20 49 46 20 53 54 54 49 4d 45 3e 34 20 54 48 45 4e 20 49 3a 3d 49 2b 31 3b 1e 32 20 20 20 20 ┆ IF STTIME>4 THEN I:=I+1; 2 ┆
0x0dea0…0dec0 20 20 49 46 20 53 54 41 52 54 44 41 47 2d 50 53 54 41 52 54 44 41 47 2b 56 41 52 49 47 48 45 44 ┆ IF STARTDAG-PSTARTDAG+VARIGHED┆
0x0dec0…0dee0 20 44 49 56 20 38 3c 32 36 20 54 48 45 4e 32 39 20 20 20 20 20 20 20 20 4d 4f 56 45 4c 45 46 54 ┆ DIV 8<26 THEN29 MOVELEFT┆
0x0dee0…0df00 28 50 49 4e 44 28 31 29 2c 55 44 4c 49 4e 49 45 28 49 29 2c 28 56 41 52 49 47 48 45 44 2d 31 29 ┆(PIND(1),UDLINIE(I),(VARIGHED-1)┆
0x0df00…0df20 20 44 49 56 20 34 2b 31 29 39 0a 20 20 20 20 20 20 45 4c 53 45 0a 3f 20 20 20 20 20 20 20 20 4d ┆ DIV 4+1)9 ELSE ? M┆
0x0df20…0df40 4f 56 45 4c 45 46 54 28 50 49 4e 44 28 31 29 2c 55 44 4c 49 4e 49 45 28 49 29 2c 35 30 2d 28 53 ┆OVELEFT(PIND(1),UDLINIE(I),50-(S┆
0x0df40…0df60 54 41 52 54 44 41 47 2d 50 53 54 41 52 54 44 41 47 29 2a 32 29 20 3f 08 20 20 20 20 45 4e 44 3b ┆TARTDAG-PSTARTDAG)*2) ? END;┆
0x0df60…0df80 08 18 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 55 44 4c 49 4e 49 45 29 3b 18 16 20 20 20 20 ┆ WRITE(LIST,UDLINIE); ┆
0x0df80…0dfa0 49 46 20 42 45 4b 52 5b 4c 45 56 3e 30 20 54 48 45 4e 16 28 20 20 20 20 20 20 57 52 49 54 45 28 ┆IF BEKRÆLEV>0 THEN ( WRITE(┆
0x0dfa0…0dfc0 4c 49 53 54 2c 42 45 4b 52 5b 4c 45 56 20 4d 4f 44 20 31 30 30 3a 32 2c 27 21 27 29 28 08 20 20 ┆LIST,BEKRÆLEV MOD 100:2,'!')( ┆
0x0dfc0…0dfe0 20 20 45 4c 53 45 08 28 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 5c 4e 53 4b 4c 45 56 ┆ ELSE ( WRITE(LIST,ØNSKLEV┆
0x0dfe0…0e000 20 4d 4f 44 20 31 30 30 3a 32 2c 27 20 27 29 3b 28 34 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 ┆ MOD 100:2,' ');(4 WRITELN(LI┆
0x0e000…0e020 53 54 2c 41 4e 54 41 4c 42 45 53 3a 35 3a 2d 32 2c 53 54 54 49 4d 45 3a 36 2c 56 41 52 49 47 48 ┆ST,ANTALBES:5:-2,STTIME:6,VARIGH┆
0x0e020…0e040 45 44 3a 36 29 3b 34 12 20 20 20 20 4c 49 4e 45 53 3a 3d 4c 49 4e 45 53 2b 31 12 05 20 20 45 4e ┆ED:6);4 LINES:=LINES+1 EN┆
0x0e040…0e060 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 14 50 52 4f 43 45 44 55 52 45 20 47 45 54 42 45 ┆D END; (*$P*) PROCEDURE GETBE┆
0x0e060…0e080 4c 41 53 54 3b 14 05 42 45 47 49 4e 05 17 20 20 52 45 42 45 4c 41 53 54 2e 4e 52 3a 3d 52 45 53 ┆LAST; BEGIN REBELAST.NR:=RES┆
0x0e080…0e0a0 53 2e 4e 52 3b 17 1f 20 20 52 45 42 45 4c 41 53 54 2e 53 54 41 52 54 44 41 47 3a 3d 50 53 54 41 ┆S.NR; REBELAST.STARTDAG:=PSTA┆
0x0e0a0…0e0c0 52 54 44 41 47 3b 1f 16 20 20 52 45 42 45 4c 41 53 54 2e 4f 52 44 52 45 4e 52 3a 3d 30 3b 16 49 ┆RTDAG; REBELAST.ORDRENR:=0; I┆
0x0e0c0…0e0e0 20 20 4e 45 58 54 52 45 43 28 52 45 42 45 4c 41 53 54 2e 41 29 3b 49 46 20 4e 4f 54 20 28 2d 49 ┆ NEXTREC(REBELAST.A);IF NOT (-I┆
0x0e0e0…0e100 45 52 20 49 4e 20 28 2e 30 2e 2e 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 52 45 42 ┆ER IN (.0..2,9.)) THEN ERROR(REB┆
0x0e100…0e120 45 4c 41 53 54 2e 41 29 3b 49 09 20 20 49 45 52 3a 3d 30 3b 09 0c 20 20 4c 49 4e 45 53 3a 3d 35 ┆ELAST.A);I IER:=0; LINES:=5┆
0x0e120…0e140 31 3b 0c 0c 20 20 4c 49 4e 49 45 52 3a 3d 30 3b 0c 2d 20 20 57 48 49 4c 45 20 28 49 45 52 3d 30 ┆1; LINIER:=0; - WHILE (IER=0┆
0x0e140…0e160 29 20 41 4e 44 20 28 52 45 42 45 4c 41 53 54 2e 4e 52 3d 52 45 53 53 2e 4e 52 29 20 41 4e 44 2d ┆) AND (REBELAST.NR=RESS.NR) AND-┆
0x0e160…0e180 2b 20 20 20 20 20 20 20 20 28 52 45 42 45 4c 41 53 54 2e 53 54 41 52 54 44 41 47 2d 50 53 54 41 ┆+ (REBELAST.STARTDAG-PSTA┆
0x0e180…0e1a0 52 54 44 41 47 3c 32 35 29 20 44 4f 2b 07 20 20 42 45 47 49 4e 07 1d 20 20 20 20 45 4d 4e 45 2e ┆RTDAG<25) DO+ BEGIN EMNE.┆
0x0e1a0…0e1c0 4e 52 3a 3d 52 45 42 45 4c 41 53 54 2e 45 4d 4e 45 4e 52 3b 1d 22 20 20 20 20 47 45 54 52 45 43 ┆NR:=REBELAST.EMNENR; " GETREC┆
0x0e1c0…0e1e0 28 45 4d 4e 45 2e 41 29 3b 43 48 45 43 4b 30 28 45 4d 4e 45 2e 41 29 3b 22 1f 20 20 20 20 4f 52 ┆(EMNE.A);CHECK0(EMNE.A);" OR┆
0x0e1e0…0e200 44 52 45 2e 4e 52 3a 3d 52 45 42 45 4c 41 53 54 2e 4f 52 44 52 45 4e 52 3b 1f 22 20 20 20 20 4f ┆DRE.NR:=REBELAST.ORDRENR; " O┆
0x0e200…0e220 52 44 52 45 2e 45 4d 4e 45 4e 52 3a 3d 52 45 42 45 4c 41 53 54 2e 45 4d 4e 45 4e 52 3b 22 24 20 ┆RDRE.EMNENR:=REBELAST.EMNENR;"$ ┆
0x0e220…0e240 20 20 20 47 45 54 52 45 43 28 4f 52 44 52 45 2e 41 29 3b 43 48 45 43 4b 30 28 4f 52 44 52 45 2e ┆ GETREC(ORDRE.A);CHECK0(ORDRE.┆
0x0e240…0e260 41 29 3b 24 0f 20 20 20 20 53 4b 52 49 56 4c 49 4e 49 45 3b 0f 17 20 20 20 20 4e 45 58 54 52 45 ┆A);$ SKRIVLINIE; NEXTRE┆
0x0e260…0e280 43 28 52 45 42 45 4c 41 53 54 2e 41 29 17 06 20 20 45 4e 44 3b 06 3b 20 20 57 48 49 4c 45 20 4c ┆C(REBELAST.A) END; ; WHILE L┆
0x0e280…0e2a0 49 4e 45 53 3c 35 31 20 44 4f 20 42 45 47 49 4e 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 3b 4c ┆INES<51 DO BEGIN WRITELN(LIST);L┆
0x0e2a0…0e2c0 49 4e 45 53 3a 3d 4c 49 4e 45 53 2b 31 20 45 4e 44 3b 3b 33 20 20 49 46 20 4e 4f 54 20 28 2d 49 ┆INES:=LINES+1 END;;3 IF NOT (-I┆
0x0e2c0…0e2e0 45 52 20 49 4e 20 28 2e 30 2c 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 52 45 42 45 ┆ER IN (.0,2,9.)) THEN ERROR(REBE┆
0x0e2e0…0e300 4c 41 53 54 2e 41 29 33 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 13 42 45 47 49 4e 20 28 2a 47 ┆LAST.A)3 END; (*$P*) BEGIN (*G┆
0x0e300…0e320 41 4e 54 54 4b 4f 52 54 2a 29 13 08 20 20 52 45 50 45 41 54 08 19 20 20 20 20 4c 5b 53 46 45 4c ┆ANTTKORT*) REPEAT LÆSFEL┆
0x0e320…0e340 54 28 50 49 43 54 55 52 45 28 31 35 29 29 3b 19 17 20 20 20 20 43 41 53 45 20 50 4f 53 54 2e 4f ┆T(PICTURE(15)); CASE POST.O┆
0x0e340…0e360 50 54 49 4f 4e 20 4f 46 17 0c 20 20 20 20 31 3a 52 45 50 45 41 54 0c 1c 20 20 20 20 20 20 20 20 ┆PTION OF 1:REPEAT ┆
0x0e360…0e380 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 31 29 29 3b 1c 31 20 20 20 20 20 20 20 20 49 46 ┆LÆSFELT(PICTURE(1)); 1 IF┆
0x0e380…0e3a0 20 50 4f 53 54 2e 52 45 53 53 4f 55 52 43 45 3d 30 20 54 48 45 4e 20 45 58 49 54 28 47 41 4e 54 ┆ POST.RESSOURCE=0 THEN EXIT(GANT┆
0x0e3a0…0e3c0 54 4b 4f 52 54 29 3b 31 20 20 20 20 20 20 20 20 20 52 45 53 53 2e 4e 52 3a 3d 50 4f 53 54 2e 52 ┆TKORT);1 RESS.NR:=POST.R┆
0x0e3c0…0e3e0 45 53 53 4f 55 52 43 45 3b 20 43 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 52 45 53 53 2e 41 ┆ESSOURCE; C GETREC(RESS.A┆
0x0e3e0…0e400 29 3b 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 36 2e 29 29 20 54 48 45 4e 20 ┆);IF NOT (-IER IN (.0,6.)) THEN ┆
0x0e400…0e420 45 52 52 4f 52 28 52 45 53 53 2e 41 29 3b 43 49 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d ┆ERROR(RESS.A);CI IF IER=-┆
0x0e420…0e440 36 20 54 48 45 4e 20 42 45 47 49 4e 20 4e 4f 4e 45 58 49 53 54 28 27 52 65 73 73 6f 75 72 63 65 ┆6 THEN BEGIN NONEXIST('Ressource┆
0x0e440…0e460 6e 27 29 3b 20 45 58 49 54 28 47 41 4e 54 54 4b 4f 52 54 29 20 45 4e 44 3b 49 11 20 20 20 20 20 ┆n'); EXIT(GANTTKORT) END;I ┆
0x0e460…0e480 20 20 20 47 45 54 42 45 4c 41 53 54 11 1d 20 20 20 20 20 20 55 4e 54 49 4c 20 50 4f 53 54 2e 52 ┆ GETBELAST UNTIL POST.R┆
0x0e480…0e4a0 45 53 53 4f 55 52 43 45 3d 30 3b 1d 0c 20 20 20 20 32 3a 52 45 50 45 41 54 0c 1d 20 20 20 20 20 ┆ESSOURCE=0; 2:REPEAT ┆
0x0e4a0…0e4c0 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 31 36 29 29 3b 1d 30 20 20 20 20 20 20 ┆ LÆSFELT(PICTURE(16)); 0 ┆
0x0e4c0…0e4e0 20 20 49 46 20 50 4f 53 54 2e 41 46 44 45 4c 49 4e 47 3d 30 20 54 48 45 4e 20 45 58 49 54 28 47 ┆ IF POST.AFDELING=0 THEN EXIT(G┆
0x0e4e0…0e500 41 4e 54 54 4b 4f 52 54 29 3b 30 13 20 20 20 20 20 20 20 20 52 45 53 53 2e 4e 52 3a 3d 30 3b 13 ┆ANTTKORT);0 RESS.NR:=0; ┆
0x0e500…0e520 47 20 20 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 52 45 53 53 2e 41 29 3b 49 46 20 4e 4f 54 20 ┆G NEXTREC(RESS.A);IF NOT ┆
0x0e520…0e540 28 2d 49 45 52 20 49 4e 20 28 2e 30 2e 2e 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 ┆(-IER IN (.0..2,9.)) THEN ERROR(┆
0x0e540…0e560 52 45 53 53 2e 41 29 3b 47 0f 20 20 20 20 20 20 20 20 49 45 52 3a 3d 30 3b 0f 16 20 20 20 20 20 ┆RESS.A);G IER:=0; ┆
0x0e560…0e580 20 20 20 57 48 49 4c 45 20 49 45 52 3d 30 20 44 4f 16 0d 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆ WHILE IER=0 DO BEGIN┆
0x0e580…0e5a0 0d 37 20 20 20 20 20 20 20 20 20 20 49 46 20 52 45 53 53 2e 41 46 44 45 4c 4e 52 3d 50 4f 53 54 ┆ 7 IF RESS.AFDELNR=POST┆
0x0e5a0…0e5c0 2e 41 46 44 45 4c 49 4e 47 20 54 48 45 4e 20 47 45 54 42 45 4c 41 53 54 3b 37 19 20 20 20 20 20 ┆.AFDELING THEN GETBELAST;7 ┆
0x0e5c0…0e5e0 20 20 20 20 20 4e 45 58 54 52 45 43 28 52 45 53 53 2e 41 29 19 0c 20 20 20 20 20 20 20 20 45 4e ┆ NEXTREC(RESS.A) EN┆
0x0e5e0…0e600 44 3b 0c 33 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 32 2c ┆D; 3 IF NOT (-IER IN (.2,┆
0x0e600…0e620 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 52 45 53 53 2e 41 29 33 1c 20 20 20 20 20 20 55 ┆9.)) THEN ERROR(RESS.A)3 U┆
0x0e620…0e640 4e 54 49 4c 20 50 4f 53 54 2e 41 46 44 45 4c 49 4e 47 3d 30 3b 1c 0c 20 20 20 20 33 3a 52 45 50 ┆NTIL POST.AFDELING=0; 3:REP┆
0x0e640…0e660 45 41 54 0c 1d 20 20 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 31 37 29 ┆EAT LÆSFELT(PICTURE(17)┆
0x0e660…0e680 29 3b 1d 2e 20 20 20 20 20 20 20 20 49 46 20 50 4f 53 54 2e 47 52 55 50 50 45 3d 30 20 54 48 45 ┆); . IF POST.GRUPPE=0 THE┆
0x0e680…0e6a0 4e 20 45 58 49 54 28 47 41 4e 54 54 4b 4f 52 54 29 3b 2e 25 20 20 20 20 20 20 20 20 52 45 53 53 ┆N EXIT(GANTTKORT);.% RESS┆
0x0e6a0…0e6c0 47 52 55 50 2e 47 52 55 50 4e 52 3a 3d 50 4f 53 54 2e 47 52 55 50 50 45 3b 25 17 20 20 20 20 20 ┆GRUP.GRUPNR:=POST.GRUPPE;% ┆
0x0e6c0…0e6e0 20 20 20 52 45 53 53 47 52 55 50 2e 4e 52 3a 3d 30 3b 17 1c 20 20 20 20 20 20 20 20 4e 45 58 54 ┆ RESSGRUP.NR:=0; NEXT┆
0x0e6e0…0e700 52 45 43 28 52 45 53 53 47 52 55 50 2e 41 29 3b 1c 3b 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 ┆REC(RESSGRUP.A); ; IF NOT┆
0x0e700…0e720 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2e 2e 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 ┆ (-IER IN (.0..2,9.)) THEN ERROR┆
0x0e720…0e740 28 52 45 53 53 47 52 55 50 2e 41 29 3b 3b 0f 20 20 20 20 20 20 20 20 49 45 52 3a 3d 30 3b 0f 3a ┆(RESSGRUP.A);; IER:=0; :┆
0x0e740…0e760 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 49 45 52 3d 30 29 20 41 4e 44 20 28 52 45 53 53 47 ┆ WHILE (IER=0) AND (RESSG┆
0x0e760…0e780 52 55 50 2e 47 52 55 50 4e 52 3d 50 4f 53 54 2e 47 52 55 50 50 45 29 20 44 4f 3a 0d 20 20 20 20 ┆RUP.GRUPNR=POST.GRUPPE) DO: ┆
0x0e780…0e7a0 20 20 20 20 42 45 47 49 4e 0d 1f 20 20 20 20 20 20 20 20 20 20 52 45 53 53 2e 4e 52 3a 3d 52 45 ┆ BEGIN RESS.NR:=RE┆
0x0e7a0…0e7c0 53 53 47 52 55 50 2e 4e 52 3b 1f 28 20 20 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 52 45 53 ┆SSGRUP.NR; ( GETREC(RES┆
0x0e7c0…0e7e0 53 2e 41 29 3b 43 48 45 43 4b 30 28 52 45 53 53 2e 41 29 3b 28 14 20 20 20 20 20 20 20 20 20 20 ┆S.A);CHECK0(RESS.A);( ┆
0x0e7e0…0e800 47 45 54 42 45 4c 41 53 54 3b 14 1d 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 52 45 ┆GETBELAST; NEXTREC(RE┆
0x0e800…0e820 53 53 47 52 55 50 2e 41 29 1d 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 39 20 20 20 20 20 20 20 ┆SSGRUP.A) END; 9 ┆
0x0e820…0e840 20 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 32 2c 39 2e 29 29 20 54 48 45 4e ┆ IF NOT (-IER IN (.0,2,9.)) THEN┆
0x0e840…0e860 20 45 52 52 4f 52 28 52 45 53 53 47 52 55 50 2e 41 29 39 19 20 20 20 20 20 20 55 4e 54 49 4c 20 ┆ ERROR(RESSGRUP.A)9 UNTIL ┆
0x0e860…0e880 50 4f 53 54 2e 47 52 55 50 50 45 3d 30 19 07 20 20 20 20 45 4e 44 07 15 20 20 55 4e 54 49 4c 20 ┆POST.GRUPPE=0 END UNTIL ┆
0x0e880…0e8a0 50 4f 53 54 2e 4f 50 54 49 4f 4e 3d 30 15 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 1e 50 52 4f ┆POST.OPTION=0 END; (*$P*) PRO┆
0x0e8a0…0e8c0 43 45 44 55 52 45 20 50 52 4f 44 50 4c 41 4e 3b 20 42 45 47 49 4e 20 45 4e 44 3b 1e 01 20 01 12 ┆CEDURE PRODPLAN; BEGIN END; ┆
0x0e8c0…0e8e0 42 45 47 49 4e 20 28 2a 50 4c 41 4e 55 44 53 4b 2a 29 12 0a 20 20 44 28 31 30 2c 37 29 3b 0a 28 ┆BEGIN (*PLANUDSK*) D(10,7); (┆
0x0e8e0…0e900 20 20 57 52 49 54 45 4c 4e 28 27 31 20 47 61 6e 74 74 2d 6b 6f 72 74 20 66 6f 72 20 72 65 73 73 ┆ WRITELN('1 Gantt-kort for ress┆
0x0e900…0e920 6f 75 72 63 65 27 29 3b 28 2d 20 20 57 52 49 54 45 4c 4e 28 27 32 20 42 65 6c 61 73 74 6e 69 6e ┆ource');(- WRITELN('2 Belastnin┆
0x0e920…0e940 67 73 70 6c 61 6e 20 66 6f 72 20 72 65 73 73 6f 75 72 63 65 27 29 3b 2d 1f 20 20 57 52 49 54 45 ┆gsplan for ressource');- WRITE┆
0x0e940…0e960 4c 4e 28 27 33 20 50 72 6f 64 75 6b 74 69 6f 6e 73 70 6c 61 6e 27 29 3b 1f 17 20 20 4c 5b 53 46 ┆LN('3 Produktionsplan'); LÆSF┆
0x0e960…0e980 45 4c 54 28 50 49 43 54 55 52 45 28 31 34 29 29 3b 17 15 20 20 43 41 53 45 20 50 4f 53 54 2e 4f ┆ELT(PICTURE(14)); CASE POST.O┆
0x0e980…0e9a0 50 54 49 4f 4e 20 4f 46 15 0e 20 20 31 3a 47 41 4e 54 54 4b 4f 52 54 3b 0e 0f 20 20 32 3a 42 45 ┆PTION OF 1:GANTTKORT; 2:BE┆
0x0e9a0…0e9c0 4c 41 53 54 50 4c 41 4e 3b 0f 0c 20 20 33 3a 50 52 4f 44 50 4c 41 4e 0c 05 20 20 45 4e 44 05 04 ┆LASTPLAN; 3:PRODPLAN END ┆
0x0e9c0…0e9e0 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 13 50 52 4f 43 45 44 55 52 45 20 4d 41 49 4e 54 41 49 4e ┆END; (*$P*) PROCEDURE MAINTAIN┆
0x0e9e0…0ea00 3b 13 0c 56 41 52 20 43 48 3a 43 48 41 52 3b 0c 12 42 45 47 49 4e 20 28 2a 4d 41 49 4e 54 41 49 ┆; VAR CH:CHAR; BEGIN (*MAINTAI┆
0x0ea00…0ea20 4e 2a 29 12 08 20 20 52 45 50 45 41 54 08 18 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 ┆N*) REPEAT LÆSFELT(PICTU┆
0x0ea20…0ea40 52 45 28 34 29 29 3b 18 20 20 20 20 20 55 47 45 44 41 47 2e 55 47 45 4e 52 3a 3d 50 4f 53 54 2e ┆RE(4)); UGEDAG.UGENR:=POST.┆
0x0ea40…0ea60 53 54 41 52 54 55 47 45 3b 20 43 20 20 20 20 47 45 54 52 45 43 28 55 47 45 44 41 47 2e 41 29 3b ┆STARTUGE; C GETREC(UGEDAG.A);┆
0x0ea60…0ea80 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 36 2e 29 29 20 54 48 45 4e 20 45 52 ┆IF NOT (-IER IN (.0,6.)) THEN ER┆
0x0ea80…0eaa0 52 4f 52 28 55 47 45 44 41 47 2e 41 29 3b 43 11 20 20 20 20 49 46 20 49 45 52 3d 30 20 54 48 45 ┆ROR(UGEDAG.A);C IF IER=0 THE┆
0x0eaa0…0eac0 4e 11 09 20 20 20 20 42 45 47 49 4e 09 22 20 20 20 20 20 20 41 52 42 45 44 41 47 2e 4e 52 3a 3d ┆N BEGIN " ARBEDAG.NR:=┆
0x0eac0…0eae0 55 47 45 44 41 47 2e 41 52 42 44 41 47 4e 52 3b 22 47 20 20 20 20 20 20 47 45 54 52 45 43 28 41 ┆UGEDAG.ARBDAGNR;"G GETREC(A┆
0x0eae0…0eb00 52 42 45 44 41 47 2e 41 29 3b 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 36 2e ┆RBEDAG.A);IF NOT (-IER IN (.0,6.┆
0x0eb00…0eb20 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 41 52 42 45 44 41 47 2e 41 29 3b 47 39 20 20 20 20 20 ┆)) THEN ERROR(ARBEDAG.A);G9 ┆
0x0eb20…0eb40 20 49 46 20 28 53 59 53 54 45 4d 2e 44 41 47 53 44 41 54 4f 28 31 29 2a 31 30 30 30 30 2e 30 2b ┆ IF (SYSTEM.DAGSDATO(1)*10000.0+┆
0x0eb40…0eb60 53 59 53 54 45 4d 2e 44 41 47 53 44 41 54 4f 28 32 29 29 3e 39 3f 20 20 20 20 20 20 20 20 20 28 ┆SYSTEM.DAGSDATO(2))>9? (┆
0x0eb60…0eb80 41 52 42 45 44 41 47 2e 44 41 54 4f 28 31 29 2a 31 30 30 30 30 2e 30 2b 41 52 42 45 44 41 47 2e ┆ARBEDAG.DATO(1)*10000.0+ARBEDAG.┆
0x0eb80…0eba0 44 41 54 4f 28 32 29 29 20 54 48 45 4e 20 49 45 52 3a 3d 2d 36 3f 07 20 20 20 20 45 4e 44 07 0e ┆DATO(2)) THEN IER:=-6? END ┆
0x0eba0…0ebc0 20 20 55 4e 54 49 4c 20 49 45 52 3d 30 3b 0e 1d 20 20 50 53 54 41 52 54 44 41 47 3a 3d 55 47 45 ┆ UNTIL IER=0; PSTARTDAG:=UGE┆
0x0ebc0…0ebe0 44 41 47 2e 41 52 42 44 41 47 4e 52 3b 1d 10 20 20 43 41 53 45 20 4f 50 54 49 4f 4e 20 4f 46 10 ┆DAG.ARBDAGNR; CASE OPTION OF ┆
0x0ebe0…0ec00 0d 20 20 31 3a 52 45 53 53 50 4c 41 4e 3b 0d 0e 20 20 32 3a 4f 52 44 52 45 50 4c 41 4e 3b 0e 0f ┆ 1:RESSPLAN; 2:ORDREPLAN; ┆
0x0ec00…0ec20 20 20 33 3a 55 44 4c 5b 47 4f 52 44 52 45 3b 0f 0c 20 20 34 3a 50 4c 41 4e 55 44 53 4b 0c 05 20 ┆ 3:UDLÆGORDRE; 4:PLANUDSK ┆
0x0ec20…0ec40 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 11 42 45 47 49 4e 20 28 2a 52 45 47 56 ┆ END END; (*$P*) BEGIN (*REGV┆
0x0ec40…0ec60 45 44 4c 2a 29 11 10 20 20 4c 4f 4e 47 4e 55 4c 28 31 29 3a 3d 30 3b 10 10 20 20 4c 4f 4e 47 4e ┆EDL*) LONGNUL(1):=0; LONGN┆
0x0ec60…0ec80 55 4c 28 32 29 3a 3d 30 3b 10 12 20 20 4a 41 3a 3d 28 2e 27 4a 27 2c 27 6a 27 2e 29 3b 12 13 20 ┆UL(2):=0; JA:=(.'J','j'.); ┆
0x0ec80…0eca0 20 4e 45 4a 3a 3d 28 2e 27 4e 27 2c 27 6e 27 2e 29 3b 13 12 20 20 4a 41 4f 47 4e 45 4a 3a 3d 4a ┆ NEJ:=(.'N','n'.); JAOGNEJ:=J┆
0x0eca0…0ecc0 41 2b 4e 45 4a 3b 12 3d 20 20 50 49 4e 44 3a 3d 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆A+NEJ; = PIND:='***************┆
0x0ecc0…0ece0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0ece0…0ed00 2a 2a 2a 27 3b 3d 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 0a 20 20 4c 5b 53 44 45 53 43 ┆***';= CLEARSCREEN; LÆSDESC┆
0x0ed00…0ed20 3b 0a 13 20 20 4d 4f 44 45 3a 3d 33 3b 28 2a 53 4b 52 49 56 2a 29 13 09 20 20 28 2a 24 52 2d 2a ┆; MODE:=3;(*SKRIV*) (*$R-*┆
0x0ed20…0ed40 29 09 14 20 20 52 45 53 53 2e 41 28 2d 34 29 3a 3d 30 3b 20 20 20 20 14 18 20 20 52 45 53 53 47 ┆) RESS.A(-4):=0; RESSG┆
0x0ed40…0ed60 52 55 50 2e 41 28 2d 34 29 3a 3d 30 3b 20 20 20 20 18 14 20 20 45 4d 4e 45 2e 41 28 2d 34 29 3a ┆RUP.A(-4):=0; EMNE.A(-4):┆
0x0ed60…0ed80 3d 30 3b 20 20 20 20 14 14 20 20 4f 50 45 52 41 2e 41 28 2d 34 29 3a 3d 30 3b 20 20 20 14 12 20 ┆=0; OPERA.A(-4):=0; ┆
0x0ed80…0eda0 20 53 59 53 54 45 4d 2e 41 28 2d 34 29 3a 3d 30 3b 12 1d 20 20 50 52 4f 44 2e 41 28 2d 34 29 3a ┆ SYSTEM.A(-4):=0; PROD.A(-4):┆
0x0eda0…0edc0 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 1d 1d 20 20 4f 52 44 52 45 2e 41 28 2d 34 29 3a ┆=0; ORDRE.A(-4):┆
0x0edc0…0ede0 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 1d 14 20 20 52 45 42 45 4c 41 53 54 2e 41 28 2d 34 ┆=0; REBELAST.A(-4┆
0x0ede0…0ee00 29 3a 3d 30 3b 14 12 20 20 55 47 45 44 41 47 2e 41 28 2d 34 29 3a 3d 30 3b 12 13 20 20 41 52 42 ┆):=0; UGEDAG.A(-4):=0; ARB┆
0x0ee00…0ee20 45 44 41 47 2e 41 28 2d 34 29 3a 3d 30 3b 13 13 20 20 55 47 45 44 41 47 2e 41 28 2d 33 29 3a 3d ┆EDAG.A(-4):=0; UGEDAG.A(-3):=┆
0x0ee20…0ee40 32 31 3b 13 14 20 20 41 52 42 45 44 41 47 2e 41 28 2d 33 29 3a 3d 32 32 3b 14 14 20 20 52 45 53 ┆21; ARBEDAG.A(-3):=22; RES┆
0x0ee40…0ee60 53 2e 41 28 2d 33 29 3a 3d 34 3b 20 20 20 20 14 18 20 20 52 45 53 53 47 52 55 50 2e 41 28 2d 33 ┆S.A(-3):=4; RESSGRUP.A(-3┆
0x0ee60…0ee80 29 3a 3d 33 3b 20 20 20 20 18 14 20 20 45 4d 4e 45 2e 41 28 2d 33 29 3a 3d 32 3b 20 20 20 20 14 ┆):=3; EMNE.A(-3):=2; ┆
0x0ee80…0eea0 14 20 20 4f 50 45 52 41 2e 41 28 2d 33 29 3a 3d 36 3b 20 20 20 14 12 20 20 53 59 53 54 45 4d 2e ┆ OPERA.A(-3):=6; SYSTEM.┆
0x0eea0…0eec0 41 28 2d 33 29 3a 3d 39 3b 12 16 20 20 50 52 4f 44 2e 41 28 2d 33 29 3a 3d 31 34 3b 20 20 20 20 ┆A(-3):=9; PROD.A(-3):=14; ┆
0x0eec0…0eee0 20 16 16 20 20 4f 52 44 52 45 2e 41 28 2d 33 29 3a 3d 31 30 3b 20 20 20 20 16 15 20 20 52 45 42 ┆ ORDRE.A(-3):=10; REB┆
0x0eee0…0ef00 45 4c 41 53 54 2e 41 28 2d 33 29 3a 3d 31 35 3b 15 09 20 20 28 2a 24 52 2b 2a 29 09 2c 20 20 28 ┆ELAST.A(-3):=15; (*$R+*) , (┆
0x0ef00…0ef20 2a 40 40 45 56 54 2e 20 5d 42 4e 49 4e 47 20 41 46 20 41 4e 44 52 45 20 41 4e 44 52 45 20 44 41 ┆*@@EVT. ÅBNING AF ANDRE ANDRE DA┆
0x0ef20…0ef40 54 41 46 49 4c 45 52 2a 29 2c 25 20 20 49 4f 50 45 4e 28 53 59 53 54 45 4d 2e 41 29 3b 20 43 48 ┆TAFILER*),% IOPEN(SYSTEM.A); CH┆
0x0ef40…0ef60 45 43 4b 30 28 53 59 53 54 45 4d 2e 41 29 3b 20 25 0f 20 20 53 59 53 54 45 4d 2e 4e 52 3a 3d 30 ┆ECK0(SYSTEM.A); % SYSTEM.NR:=0┆
0x0ef60…0ef80 3b 0f 24 20 20 47 45 54 52 45 43 28 53 59 53 54 45 4d 2e 41 29 3b 43 48 45 43 4b 30 28 53 59 53 ┆; $ GETREC(SYSTEM.A);CHECK0(SYS┆
0x0ef80…0efa0 54 45 4d 2e 41 29 3b 24 13 20 20 49 43 4c 4f 53 45 28 53 59 53 54 45 4d 2e 41 29 3b 13 29 20 20 ┆TEM.A);$ ICLOSE(SYSTEM.A); ) ┆
0x0efa0…0efc0 49 4f 50 45 4e 28 4f 52 44 52 45 2e 41 29 3b 20 20 20 20 20 43 48 45 43 4b 30 28 4f 52 44 52 45 ┆IOPEN(ORDRE.A); CHECK0(ORDRE┆
0x0efc0…0efe0 2e 41 29 3b 20 20 20 29 2c 20 20 49 4f 50 45 4e 28 52 45 42 45 4c 41 53 54 2e 41 29 3b 20 20 43 ┆.A); ), IOPEN(REBELAST.A); C┆
0x0efe0…0f000 48 45 43 4b 30 28 52 45 42 45 4c 41 53 54 2e 41 29 3b 20 20 20 2c 29 20 20 49 4f 50 45 4e 28 50 ┆HECK0(REBELAST.A); ,) IOPEN(P┆
0x0f000…0f020 52 4f 44 2e 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 50 52 4f 44 2e 41 29 3b 20 20 20 20 ┆ROD.A); CHECK0(PROD.A); ┆
0x0f020…0f040 29 27 20 20 49 4f 50 45 4e 28 55 47 45 44 41 47 2e 41 29 3b 20 20 20 20 43 48 45 43 4b 30 28 55 ┆)' IOPEN(UGEDAG.A); CHECK0(U┆
0x0f040…0f060 47 45 44 41 47 2e 41 29 3b 27 28 20 20 49 4f 50 45 4e 28 41 52 42 45 44 41 47 2e 41 29 3b 20 20 ┆GEDAG.A);'( IOPEN(ARBEDAG.A); ┆
0x0f060…0f080 20 43 48 45 43 4b 30 28 41 52 42 45 44 41 47 2e 41 29 3b 28 13 20 20 50 4f 53 54 2e 53 54 41 52 ┆ CHECK0(ARBEDAG.A);( POST.STAR┆
0x0f080…0f0a0 54 55 47 45 3a 3d 30 3b 13 08 20 20 52 45 50 45 41 54 08 10 20 20 20 20 43 4c 45 41 52 53 43 52 ┆TUGE:=0; REPEAT CLEARSCR┆
0x0f0a0…0f0c0 45 45 4e 3b 10 11 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 31 30 29 3b 11 18 20 20 20 20 57 52 49 ┆EEN; GOTOXY(1,10); WRI┆
0x0f0c0…0f0e0 54 45 4c 4e 28 27 30 20 46 7b 72 64 69 67 27 29 3b 18 26 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆TELN('0 Færdig'); & WRITELN('┆
0x0f0e0…0f100 31 20 52 65 73 73 6f 75 72 63 65 70 6c 61 6e 6c 7b 67 6e 69 6e 67 27 29 3b 26 22 20 20 20 20 57 ┆1 Ressourceplanlægning');&" W┆
0x0f100…0f120 52 49 54 45 4c 4e 28 27 32 20 4f 72 64 72 65 70 6c 61 6e 6c 7b 67 6e 69 6e 67 27 29 3b 22 24 20 ┆RITELN('2 Ordreplanlægning');"$ ┆
0x0f120…0f140 20 20 20 57 52 49 54 45 4c 4e 28 27 33 20 55 64 6c 7b 67 6e 69 6e 67 20 61 66 20 6f 72 64 72 65 ┆ WRITELN('3 Udlægning af ordre┆
0x0f140…0f160 27 29 3b 24 28 20 20 20 20 57 52 49 54 45 4c 4e 28 27 34 20 50 6c 61 6e 6c 7b 67 6e 69 6e 67 73 ┆');$( WRITELN('4 Planlægnings┆
0x0f160…0f180 75 64 73 6b 72 69 66 74 65 72 27 29 3b 28 19 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 ┆udskrifter');( LÆSFELT(PICTU┆
0x0f180…0f1a0 52 45 28 31 33 29 29 3b 19 18 20 20 20 20 4f 50 54 49 4f 4e 3a 3d 50 4f 53 54 2e 4f 50 54 49 4f ┆RE(13)); OPTION:=POST.OPTIO┆
0x0f1a0…0f1c0 4e 3b 18 15 20 20 20 20 49 46 20 4f 50 54 49 4f 4e 3e 30 20 54 48 45 4e 20 15 09 20 20 20 20 42 ┆N; IF OPTION>0 THEN B┆
0x0f1c0…0f1e0 45 47 49 4e 09 14 20 20 20 20 20 20 43 41 53 45 20 4f 50 54 49 4f 4e 20 4f 46 14 0d 20 20 20 20 ┆EGIN CASE OPTION OF ┆
0x0f1e0…0f200 20 20 31 3a 42 45 47 49 4e 0d 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 45 53 53 2e ┆ 1:BEGIN - IOPEN(RESS.┆
0x0f200…0f220 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 52 45 53 53 2e 41 29 3b 2d 2c 20 20 20 20 20 20 ┆A); CHECK0(RESS.A);-, ┆
0x0f220…0f240 20 20 20 20 49 4f 50 45 4e 28 45 4d 4e 45 2e 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 45 ┆ IOPEN(EMNE.A); CHECK0(E┆
0x0f240…0f260 4d 4e 45 2e 41 29 2c 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 32 3a 42 45 ┆MNE.A), END; 2:BE┆
0x0f260…0f280 47 49 4e 0d 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 4f 50 45 52 41 2e 41 29 3b 20 20 ┆GIN - IOPEN(OPERA.A); ┆
0x0f280…0f2a0 20 20 20 43 48 45 43 4b 30 28 4f 50 45 52 41 2e 41 29 2d 0c 20 20 20 20 20 20 20 20 45 4e 44 3b ┆ CHECK0(OPERA.A)- END;┆
0x0f2a0…0f2c0 0c 0d 20 20 20 20 20 20 33 3a 42 45 47 49 4e 0d 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e ┆ 3:BEGIN - IOPEN┆
0x0f2c0…0f2e0 28 52 45 53 53 2e 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 52 45 53 53 2e 41 29 3b 2d 31 ┆(RESS.A); CHECK0(RESS.A);-1┆
0x0f2e0…0f300 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 45 53 53 47 52 55 50 2e 41 29 3b 20 20 43 48 ┆ IOPEN(RESSGRUP.A); CH┆
0x0f300…0f320 45 43 4b 30 28 52 45 53 53 47 52 55 50 2e 41 29 3b 31 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 ┆ECK0(RESSGRUP.A);1- IOP┆
0x0f320…0f340 45 4e 28 4f 50 45 52 41 2e 41 29 3b 20 20 20 20 20 43 48 45 43 4b 30 28 4f 50 45 52 41 2e 41 29 ┆EN(OPERA.A); CHECK0(OPERA.A)┆
0x0f340…0f360 2d 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 34 3a 42 45 47 49 4e 0d 31 20 ┆- END; 4:BEGIN 1 ┆
0x0f360…0f380 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 45 53 53 47 52 55 50 2e 41 29 3b 20 20 43 48 45 ┆ IOPEN(RESSGRUP.A); CHE┆
0x0f380…0f3a0 43 4b 30 28 52 45 53 53 47 52 55 50 2e 41 29 3b 31 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 ┆CK0(RESSGRUP.A);1- IOPE┆
0x0f3a0…0f3c0 4e 28 45 4d 4e 45 2e 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 45 4d 4e 45 2e 41 29 3b 2d ┆N(EMNE.A); CHECK0(EMNE.A);-┆
0x0f3c0…0f3e0 2c 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 45 53 53 2e 41 29 3b 20 20 20 20 20 20 43 ┆, IOPEN(RESS.A); C┆
0x0f3e0…0f400 48 45 43 4b 30 28 52 45 53 53 2e 41 29 2c 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0a 20 20 20 20 ┆HECK0(RESS.A), END ┆
0x0f400…0f420 20 20 45 4e 44 3b 0a 01 20 01 0f 20 20 20 20 20 20 4d 41 49 4e 54 41 49 4e 3b 0f 01 20 01 14 20 ┆ END; MAINTAIN; ┆
0x0f420…0f440 20 20 20 20 20 43 41 53 45 20 4f 50 54 49 4f 4e 20 4f 46 14 0d 20 20 20 20 20 20 31 3a 42 45 47 ┆ CASE OPTION OF 1:BEG┆
0x0f440…0f460 49 4e 0d 19 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 45 53 53 2e 41 29 3b 19 18 20 ┆IN ICLOSE(RESS.A); ┆
0x0f460…0f480 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 45 4d 4e 45 2e 41 29 18 0c 20 20 20 20 20 20 20 ┆ ICLOSE(EMNE.A) ┆
0x0f480…0f4a0 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 32 3a 42 45 47 49 4e 0d 19 20 20 20 20 20 20 20 20 20 20 ┆ END; 2:BEGIN ┆
0x0f4a0…0f4c0 49 43 4c 4f 53 45 28 4f 50 45 52 41 2e 41 29 19 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 ┆ICLOSE(OPERA.A) END; ┆
0x0f4c0…0f4e0 20 20 20 20 20 33 3a 42 45 47 49 4e 0d 1d 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 ┆ 3:BEGIN ICLOSE(R┆
0x0f4e0…0f500 45 53 53 47 52 55 50 2e 41 29 3b 1d 19 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 45 ┆ESSGRUP.A); ICLOSE(RE┆
0x0f500…0f520 53 53 2e 41 29 3b 19 19 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 4f 50 45 52 41 2e 41 ┆SS.A); ICLOSE(OPERA.A┆
0x0f520…0f540 29 19 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 34 3a 42 45 47 49 4e 0d 1d ┆) END; 4:BEGIN ┆
0x0f540…0f560 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 45 53 53 47 52 55 50 2e 41 29 3b 1d 19 20 ┆ ICLOSE(RESSGRUP.A); ┆
0x0f560…0f580 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 45 4d 4e 45 2e 41 29 3b 19 18 20 20 20 20 20 20 ┆ ICLOSE(EMNE.A); ┆
0x0f580…0f5a0 20 20 20 20 49 43 4c 4f 53 45 28 52 45 53 53 2e 41 29 18 0b 20 20 20 20 20 20 20 20 45 4e 44 0b ┆ ICLOSE(RESS.A) END ┆
0x0f5a0…0f5c0 09 20 20 20 20 20 20 45 4e 44 09 01 20 01 07 20 20 20 20 45 4e 44 07 11 20 20 55 4e 54 49 4c 20 ┆ END END UNTIL ┆
0x0f5c0…0f5e0 4f 50 54 49 4f 4e 3d 30 3b 11 01 20 01 16 20 20 49 43 4c 4f 53 45 28 4f 52 44 52 45 2e 41 29 3b ┆OPTION=0; ICLOSE(ORDRE.A);┆
0x0f5e0…0f600 20 20 20 20 16 15 20 20 49 43 4c 4f 53 45 28 52 45 42 45 4c 41 53 54 2e 41 29 3b 15 12 20 20 49 ┆ ICLOSE(REBELAST.A); I┆
0x0f600…0f620 43 4c 4f 53 45 28 50 52 4f 44 2e 41 29 3b 20 12 13 20 20 49 43 4c 4f 53 45 28 55 47 45 44 41 47 ┆CLOSE(PROD.A); ICLOSE(UGEDAG┆
0x0f620…0f640 2e 41 29 3b 13 14 20 20 49 43 4c 4f 53 45 28 41 52 42 45 44 41 47 2e 41 29 3b 14 0e 20 20 43 4c ┆.A); ICLOSE(ARBEDAG.A); CL┆
0x0f640…0f660 45 41 52 53 43 52 45 45 4e 20 0e 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 ┆EARSCREEN END; (*$P*) BEGIN ┆
0x0f660…0f680 18 20 20 53 45 4d 41 46 4f 52 3a 3d 27 41 4c 4c 4f 43 4f 4d 42 55 46 27 3b 18 16 20 20 49 3a 3d ┆ SEMAFOR:='ALLOCOMBUF'; I:=┆
0x0f680…0f6a0 4f 52 44 28 50 41 52 4d 5e 28 31 29 29 2d 34 38 3b 16 14 20 20 55 53 45 52 4e 49 56 45 41 55 3a ┆ORD(PARM^(1))-48; USERNIVEAU:┆
0x0f6a0…0f6c0 3d 4d 45 4e 49 47 3b 14 0e 20 20 57 48 49 4c 45 20 49 3e 30 20 44 4f 0e 07 20 20 42 45 47 49 4e ┆=MENIG; WHILE I>0 DO BEGIN┆
0x0f6c0…0f6e0 07 21 20 20 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 53 55 43 43 28 55 53 45 52 4e 49 56 45 41 ┆ ! USERNIVEAU:=SUCC(USERNIVEA┆
0x0f6e0…0f700 55 29 3b 21 0a 20 20 20 20 49 3a 3d 49 2d 31 0a 4e 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 ┆U);! I:=I-1 N END; ┆
0x0f700…0f720 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 ┆ ┆
0x0f720…0f740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 52 2d 2a 29 4e ┆ (*$R-*)N┆
0x0f740…0f760 0e 20 20 53 4e 59 44 28 2d 33 29 3a 3d 30 3b 0e 3e 20 20 46 4f 52 20 49 3a 3d 36 20 44 4f 57 4e ┆ SNYD(-3):=0; > FOR I:=6 DOWN┆
0x0f760…0f780 54 4f 20 32 20 44 4f 20 53 4e 59 44 28 2d 33 29 3a 3d 31 30 2a 53 4e 59 44 28 2d 33 29 2b 4f 52 ┆TO 2 DO SNYD(-3):=10*SNYD(-3)+OR┆
0x0f780…0f7a0 44 28 50 41 52 4d 5e 28 49 29 29 2d 34 38 3b 3e 4e 20 20 49 46 20 50 41 52 4d 5e 28 37 29 3d 27 ┆D(PARM^(I))-48;>N IF PARM^(7)='┆
0x0f7a0…0f7c0 2d 27 20 54 48 45 4e 20 53 4e 59 44 28 2d 33 29 3a 3d 2d 53 4e 59 44 28 2d 33 29 3b 20 20 20 20 ┆-' THEN SNYD(-3):=-SNYD(-3); ┆
0x0f7c0…0f7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 24 52 2b 2a 29 4e ┆ (*$R+*)N┆
0x0f7e0…0f800 17 20 20 55 44 46 5c 52 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 18 20 20 55 44 46 5c ┆ UDFØR(PTILMELD,SNYD); UDFØ┆
0x0f800…0f820 52 54 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 44 29 3b 18 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 ┆RT(PTILMELD,SNYD); IF IER<>0 ┆
0x0f820…0f840 54 48 45 4e 20 42 41 44 28 31 2c 49 45 52 29 3b 1c 0f 28 2a 40 40 54 49 4c 50 41 53 53 45 53 2a ┆THEN BAD(1,IER); (*@@TILPASSES*┆
0x0f840…0f860 29 0f 1f 20 20 44 45 53 43 4e 41 56 4e 3a 3d 27 50 4c 41 4e 50 45 53 43 3a 50 32 3a 30 35 3a 4a ┆) DESCNAVN:='PLANPESC:P2:05:J┆
0x0f860…0f880 27 3b 1f 12 20 20 49 46 20 52 45 53 50 52 49 4e 54 20 54 48 45 4e 12 07 20 20 42 45 47 49 4e 07 ┆'; IF RESPRINT THEN BEGIN ┆
0x0f880…0f8a0 0d 20 20 20 20 52 45 47 56 45 44 4c 3b 20 0d 0a 20 20 20 20 46 52 45 45 50 52 0a 06 20 20 45 4e ┆ REGVEDL; FREEPR EN┆
0x0f8a0…0f8c0 44 3b 06 16 20 20 55 44 46 5c 52 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 55 44 ┆D; UDFØR(PAFMELD,SNYD); UD┆
0x0f8c0…0f8e0 46 5c 52 54 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e 30 ┆FØRT(PAFMELD,SNYD); IF IER<>0┆
0x0f8e0…0f900 20 54 48 45 4e 20 42 41 44 28 32 2c 49 45 52 29 3b 1c 13 20 20 46 4e 41 56 4e 3a 3d 27 20 20 20 ┆ THEN BAD(2,IER); FNAVN:=' ┆
0x0f900…0f920 20 20 20 20 27 3b 13 26 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 4e ┆ '; & FOR I:=1 TO 7 DO FNAVN┆
0x0f920…0f940 28 49 29 3a 3d 50 41 52 4d 5e 28 49 29 3b 26 20 20 20 43 48 41 49 4e 28 27 48 4f 56 45 44 20 20 ┆(I):=PARM^(I);& CHAIN('HOVED ┆
0x0f940…0f960 20 2a 31 27 2c 46 4e 41 56 4e 2c 51 55 51 29 3b 20 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c ┆ *1',FNAVN,QUQ); 3 IF IORESULT<┆
0x0f960…0f980 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 ┆>0 THEN WRITELN('IORESULT ',IORE┆
0x0f980…0f9a0 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 20 20 20 20 57 52 49 54 45 4c 4e 28 27 33 20 55 64 6c ┆SULT)3 END. WRITELN('3 Udl┆
0x0f9a0…0f9c0 7b 67 6e 69 6e 67 20 61 66 20 6f 72 64 72 65 27 29 3b 24 28 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ægning af ordre');$( WRITELN(┆
0x0f9c0…0f9e0 27 34 20 50 6c 61 6e 6c 7b 67 6e 69 6e 67 73 75 64 73 6b 72 69 66 74 65 72 27 29 3b 28 19 20 20 ┆'4 Planlægningsudskrifter');( ┆
0x0f9e0…0fa00 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 31 33 29 29 3b 19 18 20 20 20 20 4f 50 54 ┆ LÆSFELT(PICTURE(13)); OPT┆
0x0fa00…0fa20 49 4f 4e 3a 3d 50 4f 53 54 2e 4f 50 54 49 4f 4e 3b 18 15 20 20 20 20 49 46 20 4f 50 54 49 4f 4e ┆ION:=POST.OPTION; IF OPTION┆
0x0fa20…0fa40 3e 30 20 54 48 45 4e 20 15 09 20 20 20 20 42 45 47 49 4e 09 14 20 20 20 20 20 20 43 41 53 45 20 ┆>0 THEN BEGIN CASE ┆
0x0fa40…0fa60 4f 50 54 49 4f 4e 20 4f 46 14 0d 20 20 20 20 20 20 31 3a 42 45 47 49 4e 0d 2d 20 20 20 20 20 20 ┆OPTION OF 1:BEGIN - ┆
0x0fa60…0fa80 20 20 20 20 49 4f 50 45 4e 28 52 45 53 53 2e 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 52 ┆ IOPEN(RESS.A); CHECK0(R┆
0x0fa80…0faa0 45 53 53 2e 41 29 3b 2d 2c 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 45 4d 4e 45 2e 41 29 ┆ESS.A);-, IOPEN(EMNE.A)┆
0x0faa0…0fac0 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 45 4d 4e 45 2e 41 29 2c 0c 20 20 20 20 20 20 20 20 45 ┆; CHECK0(EMNE.A), E┆
0x0fac0…0fae0 4e 44 3b 0c 0d 20 20 20 20 20 20 32 3a 42 45 47 49 4e 0d 2d 20 20 20 20 20 20 20 20 20 20 49 4f ┆ND; 2:BEGIN - IO┆
0x0fae0…0fb00 50 45 4e 28 4f 50 45 52 41 2e 41 29 3b 20 20 20 20 20 43 48 45 43 4b 30 28 4f 50 45 52 41 2e 41 ┆PEN(OPERA.A); CHECK0(OPERA.A┆
0x0fb00…0fb20 29 2d 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 33 3a 42 45 47 49 4e 0d 2d ┆)- END; 3:BEGIN -┆
0x0fb20…0fb40 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 45 53 53 2e 41 29 3b 20 20 20 20 20 20 43 48 ┆ IOPEN(RESS.A); CH┆
0x0fb40…0fb60 45 43 4b 30 28 52 45 53 53 2e 41 29 3b 2d 31 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 ┆ECK0(RESS.A);-1 IOPEN(R┆
0x0fb60…0fb80 45 53 53 47 52 55 50 2e 41 29 3b 20 20 43 48 45 43 4b 30 28 52 45 53 53 47 52 55 50 2e 41 29 3b ┆ESSGRUP.A); CHECK0(RESSGRUP.A);┆
0x0fb80…0fba0 31 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 4f 50 45 52 41 2e 41 29 3b 20 20 20 20 20 ┆1- IOPEN(OPERA.A); ┆
0x0fba0…0fbc0 43 48 45 43 4b 30 28 4f 50 45 52 41 2e 41 29 2d 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 ┆CHECK0(OPERA.A)- END; ┆
0x0fbc0…0fbe0 20 20 20 20 20 34 3a 42 45 47 49 4e 0d 31 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 52 45 ┆ 4:BEGIN 1 IOPEN(RE┆
0x0fbe0…0fc00 53 53 47 52 55 50 2e 41 29 3b 20 20 43 48 45 43 4b 30 28 52 45 53 53 47 52 55 50 2e 41 29 3b 31 ┆SSGRUP.A); CHECK0(RESSGRUP.A);1┆
0x0fc00…0fc20 2d 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 45 4d 4e 45 2e 41 29 3b 20 20 20 20 20 20 43 ┆- IOPEN(EMNE.A); C┆
0x0fc20…0fc40 48 45 43 4b 30 28 45 4d 4e 45 2e 41 29 3b 2d 2c 20 20 20 20 20 20 20 20 20 20 49 4f 50 45 4e 28 ┆HECK0(EMNE.A);-, IOPEN(┆
0x0fc40…0fc60 52 45 53 53 2e 41 29 3b 20 20 20 20 20 20 43 48 45 43 4b 30 28 52 45 53 53 2e 41 29 2c 0b 20 20 ┆RESS.A); CHECK0(RESS.A), ┆
0x0fc60…0fc80 20 20 20 20 20 20 45 4e 44 0b 0a 20 20 20 20 20 20 45 4e 44 3b 0a 01 20 01 0f 20 20 20 20 20 20 ┆ END END; ┆
0x0fc80…0fca0 4d 41 49 4e 54 41 49 4e 3b 0f 01 20 01 14 20 20 20 20 20 20 43 41 53 45 20 4f 50 54 49 4f 4e 20 ┆MAINTAIN; CASE OPTION ┆
0x0fca0…0fcc0 4f 46 14 0d 20 20 20 20 20 20 31 3a 42 45 47 49 4e 0d 19 20 20 20 20 20 20 20 20 20 20 49 43 4c ┆OF 1:BEGIN ICL┆
0x0fcc0…0fce0 4f 53 45 28 52 45 53 53 2e 41 29 3b 19 18 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 45 ┆OSE(RESS.A); ICLOSE(E┆
0x0fce0…0fd00 4d 4e 45 2e 41 29 18 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 32 3a 42 45 ┆MNE.A) END; 2:BE┆
0x0fd00…0fd20 47 49 4e 0d 19 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 4f 50 45 52 41 2e 41 29 19 0c ┆GIN ICLOSE(OPERA.A) ┆
0x0fd20…0fd40 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d 20 20 20 20 20 20 33 3a 42 45 47 49 4e 0d 1d 20 20 20 ┆ END; 3:BEGIN ┆
0x0fd40…0fd60 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 45 53 53 47 52 55 50 2e 41 29 3b 1d 19 20 20 20 20 ┆ ICLOSE(RESSGRUP.A); ┆
0x0fd60…0fd80 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 45 53 53 2e 41 29 3b 19 19 20 20 20 20 20 20 20 20 20 ┆ ICLOSE(RESS.A); ┆
0x0fd80…0fda0 20 49 43 4c 4f 53 45 28 4f 50 45 52 41 2e 41 29 19 0c 20 20 20 20 20 20 20 20 45 4e 44 3b 0c 0d ┆ ICLOSE(OPERA.A) END; ┆
0x0fda0…0fdc0 20 20 20 20 20 20 34 3a 42 45 47 49 4e 0d 1d 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 ┆ 4:BEGIN ICLOSE(┆
0x0fdc0…0fde0 52 45 53 53 47 52 55 50 2e 41 29 3b 1d 19 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 45 ┆RESSGRUP.A); ICLOSE(E┆
0x0fde0…0fe00 4d 4e 45 2e 41 29 3b 19 18 20 20 20 20 20 20 20 20 20 20 49 43 4c 4f 53 45 28 52 45 53 53 2e 41 ┆MNE.A); ICLOSE(RESS.A┆
0x0fe00…0fe20 29 18 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 09 20 20 20 20 20 20 45 4e 44 09 01 20 01 07 20 20 ┆) END END ┆
0x0fe20…0fe40 20 20 45 4e 44 07 11 20 20 55 4e 54 49 4c 20 4f 50 54 49 4f 4e 3d 30 3b 11 01 20 01 16 20 20 49 ┆ END UNTIL OPTION=0; I┆
0x0fe40…0fe60 43 4c 4f 53 45 28 4f 52 44 52 45 2e 41 29 3b 20 20 20 20 16 15 20 20 49 43 4c 4f 53 45 28 52 45 ┆CLOSE(ORDRE.A); ICLOSE(RE┆
0x0fe60…0fe80 42 45 4c 41 53 54 2e 41 29 3b 15 12 20 20 49 43 4c 4f 53 45 28 50 52 4f 44 2e 41 29 3b 20 12 13 ┆BELAST.A); ICLOSE(PROD.A); ┆
0x0fe80…0fea0 20 20 49 43 4c 4f 53 45 28 55 47 45 44 41 47 2e 41 29 3b 13 14 20 20 49 43 4c 4f 53 45 28 41 52 ┆ ICLOSE(UGEDAG.A); ICLOSE(AR┆
0x0fea0…0fec0 42 45 44 41 47 2e 41 29 3b 14 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 20 0e 04 45 4e 44 3b 04 ┆BEDAG.A); CLEARSCREEN END; ┆
0x0fec0…0fee0 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 18 20 20 53 45 4d 41 46 4f 52 3a 3d 27 41 4c 4c 4f ┆ (*$P*) BEGIN SEMAFOR:='ALLO┆
0x0fee0…0ff00 43 4f 4d 42 55 46 27 3b 18 16 20 20 49 3a 3d 4f 52 44 28 50 41 52 4d 5e 28 31 29 29 2d 34 38 3b ┆COMBUF'; I:=ORD(PARM^(1))-48;┆
0x0ff00…0ff20 16 14 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 4d 45 4e 49 47 3b 14 0e 20 20 57 48 49 4c 45 20 ┆ USERNIVEAU:=MENIG; WHILE ┆
0x0ff20…0ff40 49 3e 30 20 44 4f 0e 07 20 20 42 45 47 49 4e 07 21 20 20 20 20 55 53 45 52 4e 49 56 45 41 55 3a ┆I>0 DO BEGIN ! USERNIVEAU:┆
0x0ff40…0ff60 3d 53 55 43 43 28 55 53 45 52 4e 49 56 45 41 55 29 3b 21 0a 20 20 20 20 49 3a 3d 49 2d 31 0a 4e ┆=SUCC(USERNIVEAU);! I:=I-1 N┆
0x0ff60…0ff80 20 20 45 4e 44 3b 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 ┆ END; ┆
0x0ff80…0ffa0 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 ┆ ┆
0x0ffa0…0ffc0 20 20 20 20 20 20 20 28 2a 24 52 2d 2a 29 4e 0e 20 20 53 4e 59 44 28 2d 33 29 3a 3d 30 3b 0e 3e ┆ (*$R-*)N SNYD(-3):=0; >┆
0x0ffc0…0ffe0 20 20 46 4f 52 20 49 3a 3d 36 20 44 4f 57 4e 54 4f 20 32 20 44 4f 20 53 4e 59 44 28 2d 33 29 3a ┆ FOR I:=6 DOWNTO 2 DO SNYD(-3):┆
0x0ffe0…10000 3d 31 30 2a 53 4e 59 44 28 2d 33 29 2b 4f 52 44 28 50 41 52 4d 5e 28 49 29 29 2d 34 38 3b 3e 4e ┆=10*SNYD(-3)+ORD(PARM^(I))-48;>N┆
0x10000…10020 20 20 49 46 20 50 41 52 4d 5e 28 37 29 3d 27 2d 27 20 54 48 45 4e 20 53 4e 59 44 28 2d 33 29 3a ┆ IF PARM^(7)='-' THEN SNYD(-3):┆
0x10020…10040 3d 2d 53 4e 59 44 28 2d 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=-SNYD(-3); ┆
0x10040…10060 20 20 20 20 20 20 20 28 2a 24 52 2b 2a 29 4e 17 20 20 55 44 46 5c 52 28 50 54 49 4c 4d 45 4c 44 ┆ (*$R+*)N UDFØR(PTILMELD┆
0x10060…10080 2c 53 4e 59 44 29 3b 17 18 20 20 55 44 46 5c 52 54 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 44 29 ┆,SNYD); UDFØRT(PTILMELD,SNYD)┆
0x10080…100a0 3b 18 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 31 2c 49 45 52 29 3b 1c ┆; IF IER<>0 THEN BAD(1,IER); ┆
0x100a0…100c0 0f 28 2a 40 40 54 49 4c 50 41 53 53 45 53 2a 29 0f 1f 20 20 44 45 53 43 4e 41 56 4e 3a 3d 27 50 ┆ (*@@TILPASSES*) DESCNAVN:='P┆
0x100c0…100e0 4c 41 4e 50 45 53 43 3a 50 32 3a 30 35 3a 4a 27 3b 1f 12 20 20 49 46 20 52 45 53 50 52 49 4e 54 ┆LANPESC:P2:05:J'; IF RESPRINT┆
0x100e0…10100 20 54 48 45 4e 12 07 20 20 42 45 47 49 4e 07 0d 20 20 20 20 52 45 47 56 45 44 4c 3b 20 0d 0a 20 ┆ THEN BEGIN REGVEDL; ┆
0x10100…10120 20 20 20 46 52 45 45 50 52 0a 06 20 20 45 4e 44 3b 06 16 20 20 55 44 46 5c 52 28 50 41 46 4d 45 ┆ FREEPR END; UDFØR(PAFME┆
0x10120…10140 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 55 44 46 5c 52 54 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 ┆LD,SNYD); UDFØRT(PAFMELD,SNYD┆
0x10140…10160 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 32 2c 49 45 52 29 3b ┆); IF IER<>0 THEN BAD(2,IER);┆
0x10160…10180 1c 13 20 20 46 4e 41 56 4e 3a 3d 27 20 20 20 20 20 20 20 27 3b 13 26 20 20 46 4f 52 20 49 3a 3d ┆ FNAVN:=' '; & FOR I:=┆
0x10180…101a0 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 4e 28 49 29 3a 3d 50 41 52 4d 5e 28 49 29 3b 26 20 20 ┆1 TO 7 DO FNAVN(I):=PARM^(I);& ┆
0x101a0…101c0 20 43 48 41 49 4e 28 27 48 4f 56 45 44 20 20 20 2a 31 27 2c 46 4e 41 56 4e 2c 51 55 51 29 3b 20 ┆ CHAIN('HOVED *1',FNAVN,QUQ); ┆
0x101c0…101e0 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 ┆3 IF IORESULT<>0 THEN WRITELN('┆
0x101e0…10200 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 4b 54 49 ┆IORESULT ',IORESULT)3 END. KTI┆
0x10200…10220 4f 4e 53 4f 52 44 52 45 50 4f 53 54 2c 20 45 4c 4c 45 52 20 4d 41 52 4b 45 52 45 52 20 4b 55 4e ┆ONSORDREPOST, ELLER MARKERER KUN┆
0x10220…10240 4c 25 50 52 4f 44 55 4b 54 49 4f 4e 53 4f 52 44 52 45 50 4f 53 54 45 4e 20 4d 45 44 20 53 4c 55 ┆L%PRODUKTIONSORDREPOSTEN MED SLU┆
0x10240…10260 54 44 41 54 4f 2a 29 25 14 43 4f 4e 53 54 20 4d 41 58 52 45 43 53 49 5a 45 3d 31 30 3b 14 06 28 ┆TDATO*)% CONST MAXRECSIZE=10; (┆
0x10260…10280 2a 40 40 2a 29 06 12 20 20 20 20 20 20 50 52 4f 47 52 41 4d 4e 52 3d 38 3b 12 04 54 59 50 45 04 ┆*@@*) PROGRAMNR=8; TYPE ┆
0x10280…102a0 27 50 41 52 4d 41 52 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 ┆'PARMARRAY=PACKED ARRAY (1..39) ┆
0x102a0…102c0 4f 46 20 43 48 41 52 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 ┆OF CHAR;'INIVEAU=(MENIG,SERGENT,┆
0x102c0…102e0 4c 5c 4a 54 4e 41 4e 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 ┆LØJTNANT,KAPTAJN,MAJOR,OBERST,GE┆
0x102e0…10300 4e 45 52 41 4c 2c 48 53 4d 2c 55 4d 55 4c 49 55 53 29 3b 49 16 50 4f 53 54 41 44 52 3d 30 2e 2e ┆NERAL,HSM,UMULIUS);I POSTADR=0..┆
0x10300…10320 4d 41 58 52 45 43 53 49 5a 45 3b 16 49 43 4f 4d 4d 42 55 46 20 3d 41 52 52 41 59 20 28 50 4f 53 ┆MAXRECSIZE; ICOMMBUF =ARRAY (POS┆
0x10320…10340 54 41 44 52 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 28 2a 63 6f 6d 6d 62 75 66 28 30 29 3d 66 69 ┆TADR) OF INTEGER;(*commbuf(0)=fi┆
0x10340…10360 6c 6e 72 2c 72 65 73 74 65 6e 20 65 72 20 70 6f 73 74 65 6e 2a 29 49 12 50 4f 49 4e 54 52 45 43 ┆lnr,resten er posten*)I POINTREC┆
0x10360…10380 3d 5e 43 4f 4d 4d 42 55 46 3b 12 14 4e 41 4d 45 20 20 20 20 3d 53 54 52 49 4e 47 28 31 30 29 3b ┆=^COMMBUF; NAME =STRING(10);┆
0x10380…103a0 14 12 50 43 42 20 20 20 20 20 3d 5e 49 4e 54 45 47 45 52 3b 12 47 4d 45 53 53 41 47 45 54 59 50 ┆ PCB =^INTEGER; GMESSAGETYP┆
0x103a0…103c0 45 3d 28 5d 42 45 4e 2c 4c 55 4b 2c 4c 5b 53 50 4f 53 54 2c 4c 5b 53 50 4f 53 54 58 2c 4e 5b 53 ┆E=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆS┆
0x103c0…103e0 54 45 2c 4e 5b 53 54 45 58 2c 53 4c 45 54 2c 53 4c 45 54 58 2c 47 45 4d 50 4f 53 54 2c 47 4e 20 ┆TE,NÆSTEX,SLET,SLETX,GEMPOST,GN ┆
0x103e0…10400 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 44 53 5b 54 2c 49 4e 49 54 49 45 52 2c 55 54 49 4c 4d ┆ INDSÆT,INITIER,UTILM┆
0x10400…10420 45 4c 44 2c 55 41 46 4d 45 4c 44 2c 50 54 49 4c 4d 45 4c 44 2c 50 41 46 4d 45 4c 44 2c 53 54 4f ┆ELD,UAFMELD,PTILMELD,PAFMELD,STO┆
0x10420…10440 50 53 59 53 2c 20 20 20 20 20 20 20 20 4e 48 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 ┆PSYS, NH RETU┆
0x10440…10460 52 4e 48 45 41 44 2c 52 45 54 55 52 4e 53 54 41 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RNHEAD,RETURNSTAT); ┆
0x10460…10480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 0f 4d 45 53 53 41 47 45 ┆ H MESSAGE┆
0x10480…104a0 20 3d 52 45 43 4f 52 44 0f 20 20 20 20 20 20 20 20 20 20 20 20 4b 4f 4d 4d 41 4e 44 4f 3a 4d 45 ┆ =RECORD KOMMANDO:ME┆
0x104a0…104c0 53 53 41 47 45 54 59 50 45 3b 20 1d 20 20 20 20 20 20 20 20 20 20 20 49 4e 46 4f 2c 49 52 45 43 ┆SSAGETYPE; INFO,IREC┆
0x104c0…104e0 3a 49 4e 54 45 47 45 52 20 1d 0d 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 1d 41 52 3d 41 52 52 ┆:INTEGER END; AR=ARR┆
0x104e0…10500 41 59 20 28 2d 34 2e 2e 2d 34 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 1d 17 56 41 52 20 20 20 20 ┆AY (-4..-4) OF INTEGER; VAR ┆
0x10500…10520 50 41 52 4d 3a 5e 50 41 52 4d 41 52 52 41 59 3b 17 19 20 20 20 20 20 20 20 55 53 45 52 4e 49 56 ┆PARM:^PARMARRAY; USERNIV┆
0x10520…10540 45 41 55 3a 4e 49 56 45 41 55 3b 19 14 20 20 20 20 20 20 20 46 3a 53 54 52 49 4e 47 28 31 38 29 ┆EAU:NIVEAU; F:STRING(18)┆
0x10540…10560 3b 14 14 20 20 20 20 20 20 20 51 55 51 3a 5e 49 4e 54 45 47 45 52 3b 14 27 20 20 20 20 20 20 20 ┆; QUQ:^INTEGER; ' ┆
0x10560…10580 49 45 52 2c 49 52 45 43 2c 53 54 41 54 55 53 45 52 2c 4d 4f 44 45 2c 52 45 4d 55 53 45 52 53 2c ┆IER,IREC,STATUSER,MODE,REMUSERS,┆
0x10580…105a0 27 17 20 20 20 20 20 20 20 46 49 4c 4e 52 2c 49 3a 49 4e 54 45 47 45 52 3b 17 21 20 20 20 20 20 ┆' FILNR,I:INTEGER; ! ┆
0x105a0…105c0 20 20 46 4e 41 56 4e 2c 44 45 53 43 4e 41 56 4e 3a 53 54 52 49 4e 47 28 31 38 29 3b 21 14 20 20 ┆ FNAVN,DESCNAVN:STRING(18);! ┆
0x105c0…105e0 20 20 20 20 20 53 45 4d 41 46 4f 52 3a 4e 41 4d 45 3b 14 18 20 20 20 20 20 20 20 46 49 4c 45 49 ┆ SEMAFOR:NAME; FILEI┆
0x105e0…10600 4e 49 54 3a 42 4f 4f 4c 45 41 4e 3b 18 0f 20 20 20 20 20 20 20 53 4e 59 44 3a 41 52 3b 0f 11 20 ┆NIT:BOOLEAN; SNYD:AR; ┆
0x10600…10620 20 20 20 20 20 20 43 50 50 43 42 3a 50 43 42 3b 11 17 20 20 20 20 20 20 20 43 4f 4d 52 45 43 3a ┆ CPPCB:PCB; COMREC:┆
0x10620…10640 50 4f 49 4e 54 52 45 43 3b 17 16 20 20 20 20 20 20 20 42 45 53 4b 45 44 3a 4d 45 53 53 41 47 45 ┆POINTREC; BESKED:MESSAGE┆
0x10640…10660 3b 16 06 28 2a 24 50 2a 29 06 07 28 2a 24 4c 2d 2a 29 07 24 50 52 4f 43 45 44 55 52 45 20 42 41 ┆; (*$P*) (*$L-*) $PROCEDURE BA┆
0x10660…10680 44 28 49 44 45 4e 54 2c 53 54 41 54 55 53 3a 49 4e 54 45 47 45 52 29 3b 24 05 42 45 47 49 4e 05 ┆D(IDENT,STATUS:INTEGER);$ BEGIN ┆
0x10680…106a0 0f 20 20 47 4f 54 4f 58 59 28 31 2c 32 33 29 3b 0f 20 20 20 57 52 49 54 45 28 27 42 41 44 27 2c ┆ GOTOXY(1,23); WRITE('BAD',┆
0x106a0…106c0 49 44 45 4e 54 3a 35 2c 53 54 41 54 55 53 3a 35 29 3b 20 08 20 20 52 45 41 44 4c 4e 08 04 45 4e ┆IDENT:5,STATUS:5); READLN EN┆
0x106c0…106e0 44 3b 04 06 28 2a 24 50 2a 29 06 35 50 52 4f 43 45 44 55 52 45 20 41 4c 4c 4f 43 41 28 56 41 52 ┆D; (*$P*) 5PROCEDURE ALLOCA(VAR┆
0x106e0…10700 20 41 44 44 52 45 53 53 3a 50 4f 49 4e 54 52 45 43 3b 4c 45 4e 47 54 48 3a 49 4e 54 45 47 45 52 ┆ ADDRESS:POINTREC;LENGTH:INTEGER┆
0x10700…10720 3b 35 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 53 54 41 54 55 53 3a 49 ┆;5% VAR STATUS:I┆
0x10720…10740 4e 54 45 47 45 52 29 3b 25 09 45 58 54 45 52 4e 41 4c 3b 09 36 50 52 4f 43 45 44 55 52 45 20 44 ┆NTEGER);% EXTERNAL; 6PROCEDURE D┆
0x10740…10760 45 41 4c 4c 4f 28 41 44 44 52 45 53 53 3a 50 4f 49 4e 54 52 45 43 3b 56 41 52 20 53 54 41 54 55 ┆EALLO(ADDRESS:POINTREC;VAR STATU┆
0x10760…10780 53 3a 49 4e 54 45 47 45 52 29 3b 36 09 45 58 54 45 52 4e 41 4c 3b 09 32 50 52 4f 43 45 44 55 52 ┆S:INTEGER);6 EXTERNAL; 2PROCEDUR┆
0x10780…107a0 45 20 53 45 4e 44 4d 28 52 45 43 45 49 56 45 52 3a 50 43 42 3b 56 41 52 20 43 4f 4e 54 45 4e 54 ┆E SENDM(RECEIVER:PCB;VAR CONTENT┆
0x107a0…107c0 53 3a 4d 45 53 53 41 47 45 3b 32 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 4e 47 ┆S:MESSAGE;23 LENG┆
0x107c0…107e0 54 48 3a 49 4e 54 45 47 45 52 3b 56 41 52 20 53 54 41 54 55 53 3a 49 4e 54 45 47 45 52 29 3b 33 ┆TH:INTEGER;VAR STATUS:INTEGER);3┆
0x107e0…10800 09 45 58 54 45 52 4e 41 4c 3b 09 35 50 52 4f 43 45 44 55 52 45 20 52 45 43 45 49 56 28 56 41 52 ┆ EXTERNAL; 5PROCEDURE RECEIV(VAR┆
0x10800…10820 20 53 45 4e 44 45 52 3a 50 43 42 3b 56 41 52 20 43 4f 4e 54 45 4e 54 53 3a 4d 45 53 53 41 47 45 ┆ SENDER:PCB;VAR CONTENTS:MESSAGE┆
0x10820…10840 3b 35 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 4c 45 4e 47 54 48 3a 49 ┆;5% VAR LENGTH:I┆
0x10840…10860 4e 54 45 47 45 52 29 3b 25 09 45 58 54 45 52 4e 41 4c 3b 09 36 50 52 4f 43 45 44 55 52 45 20 52 ┆NTEGER);% EXTERNAL; 6PROCEDURE R┆
0x10860…10880 45 53 45 52 56 28 52 45 53 4f 55 52 43 45 3a 4e 41 4d 45 3b 45 58 43 4c 55 53 49 56 45 2c 57 41 ┆ESERV(RESOURCE:NAME;EXCLUSIVE,WA┆
0x10880…108a0 49 54 3a 42 4f 4f 4c 45 41 4e 3b 36 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 ┆IT:BOOLEAN;6% VA┆
0x108a0…108c0 52 20 53 54 41 54 55 53 3a 49 4e 54 45 47 45 52 29 3b 25 09 45 58 54 45 52 4e 41 4c 3b 09 33 50 ┆R STATUS:INTEGER);% EXTERNAL; 3P┆
0x108c0…108e0 52 4f 43 45 44 55 52 45 20 52 45 4c 45 41 53 28 52 45 53 4f 55 52 43 45 3a 4e 41 4d 45 3b 56 41 ┆ROCEDURE RELEAS(RESOURCE:NAME;VA┆
0x108e0…10900 52 20 53 54 41 54 55 53 3a 49 4e 54 45 47 45 52 29 3b 33 09 45 58 54 45 52 4e 41 4c 3b 09 06 28 ┆R STATUS:INTEGER);3 EXTERNAL; (┆
0x10900…10920 2a 24 50 2a 29 06 0b 28 2a 24 49 55 44 46 5c 52 2a 29 0b 0e 28 2a 24 49 46 49 53 46 50 52 4f 43 ┆*$P*) (*$IUDFØR*) (*$IFISFPROC┆
0x10920…10940 2a 29 0e 06 28 2a 24 50 2a 29 06 07 28 2a 24 4c 2b 2a 29 07 12 50 52 4f 43 45 44 55 52 45 20 52 ┆*) (*$P*) (*$L+*) PROCEDURE R┆
0x10940…10960 45 47 56 45 44 4c 3b 12 13 43 4f 4e 53 54 20 4d 41 58 46 45 4c 54 45 52 3d 33 30 3b 13 12 20 20 ┆EGVEDL; CONST MAXFELTER=30; ┆
0x10960…10980 20 20 20 20 4d 41 58 4e 5c 47 4c 45 52 3d 39 3b 12 06 28 2a 40 40 2a 29 06 11 20 20 20 20 20 20 ┆ MAXNØGLER=9; (*@@*) ┆
0x10980…109a0 4d 41 58 50 4f 53 54 3d 31 30 3b 11 12 20 20 20 20 20 20 4d 41 58 48 5b 47 54 45 52 3d 39 3b 12 ┆MAXPOST=10; MAXHÆGTER=9; ┆
0x109a0…109c0 12 20 20 20 20 20 20 4d 41 58 48 50 4f 53 54 3d 32 30 3b 12 11 20 20 20 20 20 20 4d 41 58 49 44 ┆ MAXHPOST=20; MAXID┆
0x109c0…109e0 45 4e 54 3d 39 3b 11 04 54 59 50 45 04 17 4e 46 45 4c 54 3d 5e 46 45 4c 54 42 45 53 4b 52 49 56 ┆ENT=9; TYPE NFELT=^FELTBESKRIV┆
0x109e0…10a00 45 4c 53 45 3b 17 0f 53 4b 5b 52 4d 50 4f 53 3d 52 45 43 4f 52 44 0f 0e 20 20 20 58 2c 59 3a 49 ┆ELSE; SKÆRMPOS=RECORD X,Y:I┆
0x10a00…10a20 4e 54 45 47 45 52 0e 04 45 4e 44 3b 04 22 46 54 59 50 45 3d 28 48 45 4c 54 41 4c 2c 44 4f 42 42 ┆NTEGER END; "FTYPE=(HELTAL,DOBB┆
0x10a20…10a40 54 41 4c 2c 52 45 45 4c 2c 54 45 4b 53 54 29 3b 22 2f 56 54 59 50 45 3d 28 48 49 4e 54 45 52 56 ┆TAL,REEL,TEKST);"/VTYPE=(HINTERV┆
0x10a40…10a60 41 4c 2c 44 49 4e 54 45 52 56 41 4c 2c 52 49 4e 54 45 52 56 41 4c 2c 44 41 54 4f 2c 43 50 52 29 ┆AL,DINTERVAL,RINTERVAL,DATO,CPR)┆
0x10a60…10a80 3b 2f 25 42 45 53 4b 52 49 56 45 4c 53 45 53 54 59 50 45 3d 28 46 45 4c 54 44 45 53 43 2c 56 41 ┆;/%BESKRIVELSESTYPE=(FELTDESC,VA┆
0x10a80…10aa0 4c 49 44 45 53 43 29 3b 25 16 46 45 4c 54 42 45 53 4b 52 49 56 45 4c 53 45 3d 52 45 43 4f 52 63 ┆LIDESC);% FELTBESKRIVELSE=RECORc┆