|
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: 65728 (0x100c0)
Types: TextFile
Notes: Mikados_K
Names: »LIMPUDSK.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMPUDSK.K«
PROGRAM LIMPUDSK;
(*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=30;
(*@@*)
TYPE
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
FELTNAVN:STRING(8);
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS,
LÆNGDE,
HÆGTE,
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
LONGINT = ARRAY (1..2) OF INTEGER;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
(*$P*)
(*$L+*)
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;
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;
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
SKEMA:PACKED ARRAY (1..52) OF CHAR;
PIND:PACKED ARRAY (1..50) OF CHAR;
(*$P*)
(*$L-*)
FUNCTION QJN(S:STRING):CHAR;
VAR CH:STRING(1);
BEGIN
REPEAT
D(23,1);
WRITE(S,' J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
QJN:=CH(1);
D(23,1)
END;
PROCEDURE FORMULAR(I:INTEGER);
VAR LINES:INTEGER;
BEGIN
CASE I OF
1:BEGIN
D(23,1);
WRITE('Monter bredt 8.5" papir, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');
FOR LINES:=2 TO 50 DO WRITELN(LIST);
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')
END
END;
2:BEGIN
D(23,1);
WRITE('Monter generel formular, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WRITELN(LIST,' ':35,'XXXXXX');
FOR LINES:=6 TO 72 DO WRITELN(LIST)
END
END;
3:BEGIN
D(23,1);
WRITE('Monter blankt A4 papir, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXX');
FOR LINES:=2 TO 71 DO WRITELN(LIST);
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXX')
END
END
END
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(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 PLANUDSK;
VAR UDSKTYPE:INTEGER;
PROCEDURE BELASTPLAN;
VAR NSTARTDAG,RÅDIGTID,RESTETID,OVERSKUD,CURRUGE,NRPÅLIN:INTEGER;
ORDRETIM:ARRAY (1..15,1..2) OF INTEGER;
FØRSTE,SIDSTE:BOOLEAN;
PROCEDURE HOVED;
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
WRITELN(LIST,'Belastningsplan for',RESS.NR:5,' ',RESS.BETEGN,
' ':10,'Kapacitetsfaktor',POST.FAKTOR:5,' ':28,
'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);
WRITELN(LIST,' ':86,' Total Til Akkumuleret');
WRITELN(LIST,' ':86,' rådighed overunderskud');
LINES:=3
END;
PROCEDURE SKRIVLINIE;
VAR I:INTEGER;
BEGIN
IF NRPÅLIN=0 THEN EXIT(SKRIVLINIE);
IF LINES>45 THEN HOVED;
IF FØRSTE THEN WRITE(LIST,'Ugenr') ELSE WRITE(LIST,' ':5);
WRITE(LIST,' Ordre');
FOR I:=1 TO 15 DO
IF I>NRPÅLIN THEN WRITE(LIST,' ':5) ELSE WRITE(LIST,ORDRETIM(I,1):5);
WRITELN(LIST);
IF FØRSTE THEN
IF CURRUGE=0 THEN WRITE(LIST,' FØR') ELSE WRITE(LIST,CURRUGE:5)
ELSE WRITE(LIST,' ':5);
WRITE(LIST,' Timer');
FOR I:=1 TO 15 DO
IF I>NRPÅLIN THEN WRITE(LIST,' ':5)
ELSE
BEGIN
WRITE(LIST,ORDRETIM(I,2):5);
RESTETID:=RESTETID+ORDRETIM(I,2)
END;
NRPÅLIN:=0;
FØRSTE:=FALSE;
IF SIDSTE THEN
BEGIN
SIDSTE:=FALSE;
OVERSKUD:=OVERSKUD+POST.FAKTOR*RÅDIGTID-RESTETID;
WRITELN(LIST,RESTETID:7,POST.FAKTOR*RÅDIGTID:9,OVERSKUD:14);
RÅDIGTID:=0;
RESTETID:=0
END
ELSE WRITELN(LIST);
WRITELN(LIST);
LINES:=LINES+3
END;
(*$P*)
BEGIN (*BELASTPLAN*)
REPEAT
LÆSFELT(PICTURE(1));
IF POST.RESSOURCE=0 THEN EXIT(BELASTPLAN);
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(BELASTPLAN) END;
POST.FAKTOR:=1;
LÆSFELT(PICTURE(18));
RESTETID:=0;
RÅDIGTID:=0;
OVERSKUD:=0;
NRPÅLIN:=0;
FØRSTE:=TRUE;
SIDSTE:=FALSE;
CURRUGE:=0;
LINES:=51;
NSTARTDAG:=PSTARTDAG;
ARBEDAG.NR:=0;
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A);
IER:=0; (*GÅ FREM TIL DAGSDATO*)
WHILE (IER=0) AND (ARBEDAG.DATO<>SYSTEM.DAGSDATO) DO NEXTREC(ARBEDAG.A);
CHECK0(ARBEDAG.A);
WHILE (IER=0) AND (ARBEDAG.NR<>NSTARTDAG) DO
BEGIN (*OPTÆL TIMER FRA DAGSDATO TIL PERIODESTART*)
RÅDIGTID:=RÅDIGTID+ARBEDAG.ARBTIMER;
NEXTREC(ARBEDAG.A)
END;
CHECK0(ARBEDAG.A);
REBELAST.NR:=RESS.NR;
REBELAST.STARTDAG:=0;
REBELAST.STTIME:=0;
REBELAST.EMNENR:=0;
REBELAST.OPERANR:=0;
REBELAST.SEKVNR:=0;
NEXTREC(REBELAST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REBELAST.A);
IER:=0;
WHILE (IER=0) AND (REBELAST.NR=RESS.NR)
AND (REBELAST.STARTDAG<NSTARTDAG) DO
BEGIN
ORDRE.NR:=REBELAST.ORDRENR;
ORDRE.EMNENR:=REBELAST.EMNENR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
PROD.ORDRENR:=REBELAST.ORDRENR;
PROD.EMNENR:=REBELAST.EMNENR;
PROD.SEKVENSN:=REBELAST.SEKVNR;
PROD.OPERANR:=REBELAST.OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF NRPÅLIN=15 THEN SKRIVLINIE;
NRPÅLIN:=NRPÅLIN+1;
ORDRETIM(NRPÅLIN,1):=REBELAST.ORDRENR;
ORDRETIM(NRPÅLIN,2):=
ROUND((1.0-PROD.REAANTAL/ORDRE.ANTALBES)*REBELAST.VARIGHED);
NEXTREC(REBELAST.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A);
SIDSTE:=TRUE;
SKRIVLINIE;
IER:=0;
WHILE (IER=0) AND (REBELAST.NR=RESS.NR) DO
BEGIN
FØRSTE:=TRUE;
CURRUGE:=ARBEDAG.UGENR;
WHILE (IER=0) AND (CURRUGE=ARBEDAG.UGENR) DO
BEGIN
RÅDIGTID:=RÅDIGTID+ARBEDAG.ARBTIMER;
NEXTREC(ARBEDAG.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ARBEDAG.A);
IF IER=0 THEN
NSTARTDAG:=ARBEDAG.NR
ELSE
NSTARTDAG:=32000;
IER:=0;
WHILE (IER=0) AND (REBELAST.NR=RESS.NR)
AND (REBELAST.STARTDAG<NSTARTDAG) DO
BEGIN
ORDRE.NR:=REBELAST.ORDRENR;
ORDRE.EMNENR:=REBELAST.EMNENR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
PROD.ORDRENR:=REBELAST.ORDRENR;
PROD.EMNENR:=REBELAST.EMNENR;
PROD.SEKVENSN:=REBELAST.SEKVNR;
PROD.OPERANR:=REBELAST.OPERANR;
GETREC(PROD.A);CHECK0(PROD.A);
IF NRPÅLIN=15 THEN SKRIVLINIE;
NRPÅLIN:=NRPÅLIN+1;
ORDRETIM(NRPÅLIN,1):=REBELAST.ORDRENR;
ORDRETIM(NRPÅLIN,2):=
ROUND((1.0-PROD.REAANTAL/ORDRE.ANTALBES)*REBELAST.VARIGHED);
NEXTREC(REBELAST.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A);
SIDSTE:=TRUE;
SKRIVLINIE
END;
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
UNTIL POST.RESSOURCE=0
END;
(*$P*)
PROCEDURE GANTTKORT;
VAR LINIER:INTEGER;
PROCEDURE SKRIVLINIE;
VAR I,AKTWEEK,AKTDAG:INTEGER;
UDLINIE:PACKED ARRAY (1..52) OF CHAR;
BEGIN
IF LINES>45 THEN
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
SKEMA:='. .';
WRITELN(LIST,'GANTTKORT',' ':81,
'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);
WRITE(LIST,'Ressource:',RESS.NR:5,' ',RESS.BETEGN,' ':14);
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(LIST,ARBEDAG.UGENR MOD 100:2)
END
ELSE WRITE(LIST,' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(LIST,' Leveres Start Varig');
WRITE(LIST,'Nr Ordre Betegnelse ',' ':20);
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(LIST,AKTDAG:2)
END
ELSE WRITE(LIST,' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(LIST,' Uge ant time hed');
LINES:=3
END;
WITH REBELAST,EMNE,ORDRE DO
BEGIN
LINIER:=LINIER+1;
WRITE(LIST,LINIER:2,ORDRENR:6,' ',BETEGN);
UDLINIE:=SKEMA;
IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN
BEGIN
I:=2*(STARTDAG-PSTARTDAG)+2;
IF STTIME>4 THEN I:=I+1;
IF STARTDAG-PSTARTDAG+VARIGHED DIV 8<26 THEN
MOVELEFT(PIND(1),UDLINIE(I),(VARIGHED-1) DIV 4+1)
ELSE
MOVELEFT(PIND(1),UDLINIE(I),50-(STARTDAG-PSTARTDAG)*2)
END;
WRITE(LIST,UDLINIE);
IF BEKRÆLEV>0 THEN
WRITE(LIST,BEKRÆLEV MOD 100:2,'!')
ELSE
WRITE(LIST,ØNSKLEV MOD 100:2,' ');
WRITELN(LIST,ANTALBES:5:-2,STTIME:7,VARIGHED:6);
LINES:=LINES+1
END
END;
(*$P*)
PROCEDURE GETBELAST;
BEGIN
REBELAST.NR:=RESS.NR;
REBELAST.STARTDAG:=PSTARTDAG;
REBELAST.ORDRENR:=0;
NEXTREC(REBELAST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REBELAST.A);
IER:=0;
LINES:=51;
LINIER:=0;
WHILE (IER=0) AND (REBELAST.NR=RESS.NR) AND
(REBELAST.STARTDAG-PSTARTDAG<25) DO
BEGIN
EMNE.NR:=REBELAST.EMNENR;
GETREC(EMNE.A);CHECK0(EMNE.A);
ORDRE.NR:=REBELAST.ORDRENR;
ORDRE.EMNENR:=REBELAST.EMNENR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
SKRIVLINIE;
NEXTREC(REBELAST.A)
END;
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A)
END;
(*$P*)
BEGIN (*GANTTKORT*)
REPEAT
LÆSFELT(PICTURE(15));
CASE POST.OPTION OF
1:REPEAT
LÆSFELT(PICTURE(1));
IF POST.RESSOURCE=0 THEN EXIT(GANTTKORT);
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(GANTTKORT) END;
GETBELAST
UNTIL POST.RESSOURCE=0;
2:REPEAT
LÆSFELT(PICTURE(16));
IF POST.AFDELING=0 THEN EXIT(GANTTKORT);
RESS.NR:=0;
NEXTREC(RESS.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(RESS.A);
IER:=0;
WHILE IER=0 DO
BEGIN
IF RESS.AFDELNR=POST.AFDELING THEN GETBELAST;
NEXTREC(RESS.A)
END;
IF NOT (-IER IN (.2,9.)) THEN ERROR(RESS.A)
UNTIL POST.AFDELING=0;
3:REPEAT
LÆSFELT(PICTURE(17));
IF POST.GRUPPE=0 THEN EXIT(GANTTKORT);
RESSGRUP.GRUPNR:=POST.GRUPPE;
RESSGRUP.NR:=0;
NEXTREC(RESSGRUP.A);
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(RESSGRUP.A);
IER:=0;
WHILE (IER=0) AND (RESSGRUP.GRUPNR=POST.GRUPPE) DO
BEGIN
RESS.NR:=RESSGRUP.NR;
GETREC(RESS.A);CHECK0(RESS.A);
GETBELAST;
NEXTREC(RESSGRUP.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(RESSGRUP.A)
UNTIL POST.GRUPPE=0
END
UNTIL POST.OPTION=0
END;
(*$P*)
PROCEDURE PRODPLAN;
VAR LINIER,TVARIG,IUGE,STTID,SLTID:INTEGER;
AFDOK:BOOLEAN;
PROCEDURE SKRIVLINIE;
VAR I,AKTWEEK,AKTDAG,STARTDAG,STTIME,VARIGHED:INTEGER;
UDLINIE:PACKED ARRAY (1..52) OF CHAR;
BEGIN
STARTDAG:=STTID MOD 1000;
STTIME:=STTID DIV 1000;
IF STARTDAG<PSTARTDAG THEN
BEGIN
STARTDAG:=PSTARTDAG;
STTIME:=1
END;
VARIGHED:=SLTID-8*STARTDAG-STTIME+1;
IF (VARIGHED<=0) OR NOT ((STARTDAG-PSTARTDAG) IN (.0..24.)) THEN
EXIT(SKRIVLINIE);
IF LINES>45 THEN
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
SKEMA:='. .';
WRITELN(LIST,'Produktionsplan for afdeling ',POST.AFDELING,' ':64,
'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);
IF POST.AFDELING=3 THEN
WRITE(LIST,' ':40,'Indl stk tot lev ')
ELSE
WRITE(LIST,' ':40,' tot form tot lev ');
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(LIST,ARBEDAG.UGENR MOD 100:2)
END
ELSE WRITE(LIST,' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(LIST);
WRITE(LIST,' Nr Ord. Betegnelse ',' ':13);
IF POST.AFDELING=3 THEN
WRITE(LIST,' kunde uge /t tid uge antal ')
ELSE
WRITE(LIST,' mat kg nr tid uge antal ');
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(LIST,AKTDAG:2)
END
ELSE WRITE(LIST,' ':2);
NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)
END;
WRITELN(LIST);
LINES:=3
END;
WITH EMNE,ORDRE DO
BEGIN
EMNE.NR:=EMNENR;
GETREC(EMNE.A);CHECK0(EMNE.A);
LINIER:=LINIER+1;
WRITE(LIST,LINIER:3,ORDRE.NR:5,' ',BETEGN:24);
IF POST.AFDELING=3 THEN
BEGIN
ARBEDAG.NR:=(IUGE-1) DIV 8;
GETREC(ARBEDAG.A);IF IER=-6 THEN ARBEDAG.UGENR:=0 ELSE
CHECK0(ARBEDAG.A);
WRITE(LIST,KUNDENR(1)*10000.0+KUNDENR(2):6:-2,ARBEDAG.UGENR:5,
ANTALBES/TVARIG:5:-2,TVARIG:4,BEKRÆLEV:5,ANTALBES:6:-2)
END
ELSE
BEGIN
ARBEDAG.NR:=(SLTID-1) DIV 8;
GETREC(ARBEDAG.A);IF IER=-6 THEN ARBEDAG.UGENR:=0 ELSE
CHECK0(ARBEDAG.A);
WRITE(LIST,MATNR:6,ANTALBES*NETTOVÆG/1000.0:5:-2,FORMNR:5,
TVARIG:4,ARBEDAG.UGENR:5,ANTALBES:6:-2)
END;
UDLINIE:=SKEMA;
IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN
BEGIN
I:=2*(STARTDAG-PSTARTDAG)+2;
IF STTIME>4 THEN I:=I+1;
IF STARTDAG-PSTARTDAG+VARIGHED DIV 8<26 THEN
MOVELEFT(PIND(1),UDLINIE(I),(VARIGHED-1) DIV 4+1)
ELSE
MOVELEFT(PIND(1),UDLINIE(I),50-(STARTDAG-PSTARTDAG)*2)
END;
WRITELN(LIST,UDLINIE);
LINES:=LINES+1
END
END;
(*$P*)
PROCEDURE CHECKRESS(NR:INTEGER);
BEGIN
IF AFDOK OR (NR<=0) THEN EXIT(CHECKRESS);
RESS.NR:=NR;
GETREC(RESS.A);CHECK0(RESS.A);
AFDOK:=(RESS.AFDELNR=POST.AFDELING)
END;
PROCEDURE GETPROD;
BEGIN
LINIER:=0;
TVARIG:=0;
IUGE:=0;
STTID:=0;
SLTID:=0;
WITH PROD DO
BEGIN
ORDRENR:=0;
EMNENR:=0;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);
IER:=0;
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=EMNENR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
WHILE IER=0 DO
BEGIN
AFDOK:=FALSE;
CHECKRESS(RESS1);
CHECKRESS(RESS2);
CHECKRESS(RESS3);
IF AFDOK THEN
BEGIN
IF STTID=0 THEN STTID:=STARTTID;
IF STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED>SLTID THEN
SLTID:=STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED;
TVARIG:=TVARIG+VARIGHED
END
ELSE
IF STTID=0 THEN
IF STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED>IUGE THEN
IUGE:=STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED;
NEXTREC(A);
IF (IER=0) AND (ORDRENR<>ORDRE.NR) THEN
BEGIN
IF TVARIG>0 THEN SKRIVLINIE;
IF IER=0 THEN
BEGIN
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=EMNENR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
TVARIG:=0;
IUGE:=0;
STTID:=0;
SLTID:=0
END
END
END;
IF TVARIG>0 THEN SKRIVLINIE;
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
END
END;
(*$P*)
BEGIN (*PRODPLAN*)
LINES:=51;
REPEAT
LÆSFELT(PICTURE(16));
IF POST.AFDELING=0 THEN EXIT(PRODPLAN);
GETPROD
UNTIL POST.AFDELING=0
END;
(*$P*)
PROCEDURE OVERLAP;
VAR CURRRESS,CURRSLUT,CURRUGE:INTEGER;
PROCEDURE SKRIVLINIE;
BEGIN
IF LINES>68 THEN
BEGIN
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
WRITELN(LIST,'OVERLAPPENDE RESSOURCER',' ':20,
'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);
WRITELN(LIST,'Ressource Nr Uge');
WRITELN(LIST);
RESS.NR:=0;
LINES:=3
END;
ARBEDAG.NR:=REBELAST.STARTDAG;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
IF CURRRESS<>RESS.NR THEN
BEGIN
CURRUGE:=0;
RESS.NR:=CURRRESS;
GETREC(RESS.A);CHECK0(RESS.A);
WRITE(LIST,RESS.BETEGN,RESS.NR:6)
END
ELSE
IF CURRUGE<>ARBEDAG.UGENR THEN WRITE(LIST,' ':16);
IF CURRUGE<>ARBEDAG.UGENR THEN
BEGIN
WRITELN(LIST,ARBEDAG.UGENR:6);
CURRUGE:=ARBEDAG.UGENR;
LINES:=LINES+1
END
END;
BEGIN (*OVERLAP*)
WITH REBELAST DO
BEGIN
NR:=0;
STARTDAG:=0;
STTIME:=0;
EMNENR:=0;
OPERANR:=0;
SEKVNR:=0;
ORDRENR:=0;
CURRRESS:=0;
CURRSLUT:=0;
LINES:=72;
NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);
IER:=0;
WHILE IER=0 DO
BEGIN
IF NR<>CURRRESS THEN BEGIN CURRSLUT:=0;CURRRESS:=NR END;
IF 8*STARTDAG+STTIME<CURRSLUT THEN SKRIVLINIE;
IF CURRSLUT<8*STARTDAG+STTIME+VARIGHED THEN
CURRSLUT:=8*STARTDAG+STTIME+VARIGHED;
NEXTREC(A)
END;
IF NOT (-IER IN (.2,9.)) THEN ERROR(A);
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
BEGIN (*PLANUDSK*)
D(10,7);
WRITELN('0 Fortryd');
WRITELN('1 Gantt-kort for ressource');
WRITELN('2 Belastningsplan for ressource');
WRITELN('3 Produktionsplan');
WRITELN('4 Ressourceoverlap');
LÆSFELT(PICTURE(13));
CASE POST.OPTION OF
1,2,3:FORMULAR(1);
4:FORMULAR(3)
END;
CASE POST.OPTION OF
1:GANTTKORT;
2:BELASTPLAN;
3:PRODPLAN;
4:OVERLAP
END
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 (SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2))>
(ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)) THEN IER:=-6
END
UNTIL IER=0;
PSTARTDAG:=UGEDAG.ARBDAGNR;
PLANUDSK
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
PIND:='**************************************************';
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);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);CHECK0(SYSTEM.A);
ICLOSE(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(RESSGRUP.A); CHECK0(RESSGRUP.A);
IOPEN(EMNE.A); CHECK0(EMNE.A);
IOPEN(RESS.A); CHECK0(RESS.A);
POST.STARTUGE:=0;
REPEAT
CLEARSCREEN;
IF QJN('Flere planlægningsudskrifter') IN JA THEN
BEGIN
OPTION:=1;
MAINTAIN
END ELSE OPTION:=0
UNTIL OPTION=0;
ICLOSE(ORDRE.A);
ICLOSE(REBELAST.A);
ICLOSE(PROD.A);
ICLOSE(UGEDAG.A);
ICLOSE(ARBEDAG.A);
ICLOSE(RESSGRUP.A);
ICLOSE(EMNE.A);
ICLOSE(RESS.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 LIMPUDSK;«, l3=0x11}
0x00013…00038 Line {l1=0x23, l2=»(*RESSOURCE- OG ORDRE-PLANLÆGNING*)«, l3=0x23}
0x00038…00041 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x00041…00059 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x00059…00061 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x00061…00075 Line {l1=0x12, l2=» PROGRAMNR=8;«, l3=0x12}
0x00075…0007b Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0007b…000a4 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x000a4…000ef Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x000ef…00107 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x00107…00152 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x00152…00166 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x00166…0017c Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0017c…00190 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x00190…001d9 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x001d9…00229 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x00229…00273 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x00273…00284 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x00284…002a6 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x002a6…002c5 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x002c5…002d4 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x002d4…002f3 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x002f3…0030c Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0030c…00327 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x00327…0033d Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0033d…00353 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x00353…0037c Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0037c…00395 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x00395…003c0 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x003c0…003d6 Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x003d6…003f0 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x003f0…00401 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x00401…00414 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x00414…0042d Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0042d…00445 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x00445…0044d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0044d…00456 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x00456…00474 Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x00474…00484 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x00484…0048b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0048b…0049d Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x0049d…004c1 Line {l1=0x22, l2=» FOR I:=1 TO NR DO WRITE(' ':79);«, l3=0x22}
0x004c1…004d2 Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x004d2…004d8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x004d8…004f7 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x004f7…004fe Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x004fe…0050a Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0050a…0052f Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x0052f…00542 Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x00542…00548 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00548…0056e Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x0056e…00575 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x00575…00581 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x00581…005a3 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x005a3…005ad Line {l1=0x08, l2=» READLN«, l3=0x08}
0x005ad…005b3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x005b3…005bb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x005bb…005f2 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x005f2…00619 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x00619…00624 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x00624…0065c Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0065c…00667 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x00667…0069b Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x0069b…006d0 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x006d0…006db Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x006db…00712 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x00712…00739 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x00739…00744 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x00744…0077c Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x0077c…007a3 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x007a3…007ae Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x007ae…007e3 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x007e3…007ee Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x007ee…007fe Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x007fe…00806 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00806…00813 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x00813…00823 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x00823…0082b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0082b…0083f Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0083f…00854 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x00854…0085c Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0085c…00862 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00862…0087b Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0087b…0088c Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0088c…0089c Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0089c…008a2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x008a2…008c6 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x008c6…008f7 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x008f7…0091e Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0091e…00936 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x00936…0094a Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0094a…00962 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x00962…00988 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x00988…00996 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x00996…009b1 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x009b1…009d5 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x009d5…009ec Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x009ec…00a0d Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x00a0d…00a19 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x00a19…00a25 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x00a25…00a30 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x00a30…00a44 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x00a44…00a5f Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x00a5f…00a77 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x00a77…00a95 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x00a95…00aa3 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x00aa3…00ac4 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x00ac4…00ae8 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x00ae8…00b18 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x00b18…00b3b Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x00b3b…00b4f Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x00b4f…00b55 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00b55…00b7c Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x00b7c…00b97 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x00b97…00bbb Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x00bbb…00be8 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x00be8…00bf0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00bf0…00bf9 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x00bf9…00c0a Line {l1=0x0f, l2=»RESSPOST=RECORD«, l3=0x0f}
0x00c0a…00c16 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x00c16…00c1f Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x00c1f…00c2b Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x00c2b…00c36 Line {l1=0x09, l2=» TSATSF,«, l3=0x09}
0x00c36…00c41 Line {l1=0x09, l2=» SAMOMS,«, l3=0x09}
0x00c41…00c4e Line {l1=0x0b, l2=» SAMOMSSÅ,«, l3=0x0b}
0x00c4e…00c58 Line {l1=0x08, l2=» SAMDB,«, l3=0x08}
0x00c58…00c64 Line {l1=0x0a, l2=» SAMDBSÅ,«, l3=0x0a}
0x00c64…00c71 Line {l1=0x0b, l2=» KØBSPRIS,«, l3=0x0b}
0x00c71…00c8f Line {l1=0x1c, l2=» SALGSPRI :REAL;«, l3=0x1c}
0x00c8f…00c96 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x00c96…00ca2 Line {l1=0x0a, l2=» AFDELNR,«, l3=0x0a}
0x00ca2…00cae Line {l1=0x0a, l2=» PRODTIM,«, l3=0x0a}
0x00cae…00cba Line {l1=0x0a, l2=» VEDLTIM,«, l3=0x0a}
0x00cba…00cc6 Line {l1=0x0a, l2=» OPSTILT,«, l3=0x0a}
0x00cc6…00cd2 Line {l1=0x0a, l2=» OVERTIM,«, l3=0x0a}
0x00cd2…00cde Line {l1=0x0a, l2=» REPTIME,«, l3=0x0a}
0x00cde…00cea Line {l1=0x0a, l2=» TOTALTI,«, l3=0x0a}
0x00cea…00cf7 Line {l1=0x0b, l2=» PRODTIMS,«, l3=0x0b}
0x00cf7…00d04 Line {l1=0x0b, l2=» VEDLTIMS,«, l3=0x0b}
0x00d04…00d11 Line {l1=0x0b, l2=» OPSTILTS,«, l3=0x0b}
0x00d11…00d1e Line {l1=0x0b, l2=» OVERTIMS,«, l3=0x0b}
0x00d1e…00d2b Line {l1=0x0b, l2=» REPTIMES,«, l3=0x0b}
0x00d2b…00d4c Line {l1=0x1f, l2=» TOTALTIS, «, l3=0x1f}
0x00d4c…00d6c Line {l1=0x1e, l2=» RESSTYPE :INTEGER;«, l3=0x1e}
0x00d6c…00d8c Line {l1=0x1e, l2=» DATOFLEV :LONGINT;«, l3=0x1e}
0x00d8c…00dac Line {l1=0x1e, l2=» HYLDENR :INTEGER;«, l3=0x1e}
0x00dac…00de0 Line {l1=0x32, l2=» BETEGN :PACKED ARRAY (1..10) OF CHAR«, l3=0x32}
0x00de0…00de6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00de6…00df7 Line {l1=0x0f, l2=»REGRPOST=RECORD«, l3=0x0f}
0x00df7…00e03 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x00e03…00e0c Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x00e0c…00e18 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x00e18…00e23 Line {l1=0x09, l2=» GRUPNR,«, l3=0x09}
0x00e23…00e43 Line {l1=0x1e, l2=» NR :INTEGER «, l3=0x1e}
0x00e43…00e49 Line {l1=0x04, l2=»END;«, l3=0x04}
0x00e49…00e5a Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x00e5a…00e66 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x00e66…00e6f Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x00e6f…00e7b Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x00e7b…00e88 Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x00e88…00e95 Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x00e95…00ea2 Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x00ea2…00eae Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x00eae…00eb9 Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x00eb9…00ec6 Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x00ec6…00ee2 Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x00ee2…00ee9 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x00ee9…00f08 Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x00f08…00f27 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x00f27…00f46 Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x00f46…00f65 Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x00f65…00f6f Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x00f6f…00f79 Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x00f79…00f86 Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x00f86…00f91 Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x00f91…00fb0 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x00fb0…00fbb Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x00fbb…00fc6 Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x00fc6…00ffa Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x00ffa…0102d Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x0102d…01033 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01033…01044 Line {l1=0x0f, l2=»OPERPOST=RECORD«, l3=0x0f}
0x01044…01050 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01050…01059 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01059…01065 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x01065…01081 Line {l1=0x1a, l2=» TILLÆG :REAL;«, l3=0x1a}
0x01081…01088 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x01088…01093 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x01093…010b2 Line {l1=0x1d, l2=» REBELAS :INTEGER;«, l3=0x1d}
0x010b2…010e5 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x010e5…010eb Line {l1=0x04, l2=»END;«, l3=0x04}
0x010eb…010fc Line {l1=0x0f, l2=»PRODPOST=RECORD«, l3=0x0f}
0x010fc…01108 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01108…01111 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01111…0111d Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0111d…01152 Line {l1=0x33, l2=» KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)«, l3=0x33}
0x01152…0116e Line {l1=0x1a, l2=» REAANTAL :REAL;«, l3=0x1a}
0x0116e…0117a Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x0117a…01187 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x01187…01193 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x01193…011a0 Line {l1=0x0b, l2=» STARTTID,«, l3=0x0b}
0x011a0…011ad Line {l1=0x0b, l2=» OPERAFSL,«, l3=0x0b}
0x011ad…011b6 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x011b6…011c0 Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x011c0…011ca Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x011ca…011d4 Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x011d4…011de Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x011de…011e8 Line {l1=0x08, l2=» RESS5,«, l3=0x08}
0x011e8…011f3 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x011f3…01212 Line {l1=0x1d, l2=» VARIGHED :INTEGER «, l3=0x1d}
0x01212…01218 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01218…01229 Line {l1=0x0f, l2=»ORDRPOST=RECORD«, l3=0x0f}
0x01229…01235 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01235…0123e Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0123e…0124a Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0124a…01257 Line {l1=0x0b, l2=» ANTALBES,«, l3=0x0b}
0x01257…01264 Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x01264…0126f Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x0126f…0127a Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x0127a…01287 Line {l1=0x0b, l2=» MASKINOM,«, l3=0x0b}
0x01287…01292 Line {l1=0x09, l2=» SMEOMK,«, l3=0x09}
0x01292…012ae Line {l1=0x1a, l2=» MATFORB :REAL;«, l3=0x1a}
0x012ae…012cd Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x012cd…012ec Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x012ec…0130b Line {l1=0x1d, l2=» EMNENR :INTEGER;«, l3=0x1d}
0x0130b…0132a Line {l1=0x1d, l2=» REGDATO :LONGINT;«, l3=0x1d}
0x0132a…01336 Line {l1=0x0a, l2=» ØNSKLEV,«, l3=0x0a}
0x01336…01355 Line {l1=0x1d, l2=» BEKRÆLEV :INTEGER;«, l3=0x1d}
0x01355…01389 Line {l1=0x32, l2=» KUNDORDR :PACKED ARRAY (1..16) OF CHAR;«, l3=0x32}
0x01389…013bc Line {l1=0x31, l2=» INITIALE :PACKED ARRAY (1..4) OF CHAR «, l3=0x31}
0x013bc…013c2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x013c2…013d3 Line {l1=0x0f, l2=»REBEPOST=RECORD«, l3=0x0f}
0x013d3…013df Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x013df…013e8 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x013e8…013f4 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x013f4…013fb Line {l1=0x05, l2=» NR,«, l3=0x05}
0x013fb…01408 Line {l1=0x0b, l2=» STARTDAG,«, l3=0x0b}
0x01408…01414 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x01414…0141f Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x0141f…0142d Line {l1=0x0c, l2=» OPERANR, «, l3=0x0c}
0x0142d…01438 Line {l1=0x09, l2=» SEKVNR,«, l3=0x09}
0x01438…01445 Line {l1=0x0b, l2=» VARIGHED,«, l3=0x0b}
0x01445…01450 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x01450…0146d Line {l1=0x1b, l2=» STTIME :INTEGER «, l3=0x1b}
0x0146d…01473 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01473…01484 Line {l1=0x0f, l2=»UGEDPOST=RECORD«, l3=0x0f}
0x01484…01490 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x01490…01499 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01499…014a5 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x014a5…014af Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x014af…014cc Line {l1=0x1b, l2=» ARBDAGNR :INTEGER «, l3=0x1b}
0x014cc…014d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x014d2…014e3 Line {l1=0x0f, l2=»ARBEPOST=RECORD«, l3=0x0f}
0x014e3…014ef Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x014ef…014f8 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x014f8…01504 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x01504…01522 Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x01522…01540 Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x01540…0154b Line {l1=0x09, l2=» UGENR, «, l3=0x09}
0x0154b…01569 Line {l1=0x1c, l2=» ARBTIMER :INTEGER «, l3=0x1c}
0x01569…0156f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0156f…01580 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x01580…0158c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0158c…01595 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01595…015a1 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x015a1…015cc Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x015cc…015ea Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x015ea…01608 Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x01608…01626 Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x01626…0163c Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x0163c…0165a Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x0165a…01660 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01660…01671 Line {l1=0x0f, l2=»PLANPESC=RECORD«, l3=0x0f}
0x01671…0167d Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0167d…01686 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x01686…01692 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x01692…016a0 Line {l1=0x0c, l2=» RESSOURCE,«, l3=0x0c}
0x016a0…016aa Line {l1=0x08, l2=» ORDRE,«, l3=0x08}
0x016aa…016b5 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x016b5…016c2 Line {l1=0x0b, l2=» STARTUGE,«, l3=0x0b}
0x016c2…016ce Line {l1=0x0a, l2=» LINIENR,«, l3=0x0a}
0x016ce…016d6 Line {l1=0x06, l2=» UGE,«, l3=0x06}
0x016d6…016de Line {l1=0x06, l2=» DAG,«, l3=0x06}
0x016de…016e7 Line {l1=0x07, l2=» TIME,«, l3=0x07}
0x016e7…016f4 Line {l1=0x0b, l2=» VARIGHED,«, l3=0x0b}
0x016f4…01701 Line {l1=0x0b, l2=» FRALINIE,«, l3=0x0b}
0x01701…0170e Line {l1=0x0b, l2=» TILLINIE,«, l3=0x0b}
0x0170e…0171a Line {l1=0x0a, l2=» ØLEVUGE,«, l3=0x0a}
0x0171a…01725 Line {l1=0x09, l2=» OPTION,«, l3=0x09}
0x01725…01732 Line {l1=0x0b, l2=» AFDELING,«, l3=0x0b}
0x01732…0173d Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x0173d…0175a Line {l1=0x1b, l2=» FAKTOR :INTEGER «, l3=0x1b}
0x0175a…01760 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01760…01771 Line {l1=0x0f, l2=»REBEXTRA=RECORD«, l3=0x0f}
0x01771…01786 Line {l1=0x13, l2=» PLANLAGT:BOOLEAN;«, l3=0x13}
0x01786…017ae Line {l1=0x26, l2=» BETEGN:PACKED ARRAY (1..10) OF CHAR;«, l3=0x26}
0x017ae…017bb Line {l1=0x0b, l2=» BEKRÆLEV,«, l3=0x0b}
0x017bb…017cf Line {l1=0x12, l2=» ØNSKLEV:INTEGER;«, l3=0x12}
0x017cf…017e0 Line {l1=0x0f, l2=» ANTALBES:REAL«, l3=0x0f}
0x017e0…017e6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x017e6…017f7 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x017f7…01823 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x01823…01836 Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x01836…01869 Line {l1=0x31, l2=» UDE,ANTLINE,PSTARTDAG,DIRECTION,HUSK,HUSKTID,«, l3=0x31}
0x01869…01887 Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x01887…01899 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x01899…018ad Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x018ad…018c5 Line {l1=0x16, l2=» RESSGRUP:REGRPOST;«, l3=0x16}
0x018c5…018d9 Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x018d9…018ee Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x018ee…01902 Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x01902…01917 Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x01917…0192f Line {l1=0x16, l2=» REBELAST:REBEPOST;«, l3=0x16}
0x0192f…01945 Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x01945…0195b Line {l1=0x14, l2=» UGEDAG:UGEDPOST;«, l3=0x14}
0x0195b…01972 Line {l1=0x15, l2=» ARBEDAG:ARBEPOST;«, l3=0x15}
0x01972…01986 Line {l1=0x12, l2=» POST:PLANPESC;«, l3=0x12}
0x01986…0199c Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x0199c…019aa Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x019aa…019cb Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x019cb…019f4 Line {l1=0x27, l2=» SKEMA:PACKED ARRAY (1..52) OF CHAR;«, l3=0x27}
0x019f4…01a1c Line {l1=0x26, l2=» PIND:PACKED ARRAY (1..50) OF CHAR;«, l3=0x26}
0x01a1c…01a24 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x01a24…01a2d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x01a2d…01a4b Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x01a4b…01a5e Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x01a5e…01a65 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01a65…01a6f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x01a6f…01a7d Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x01a7d…01a94 Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x01a94…01aa2 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x01aa2…01ab0 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x01ab0…01acb Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x01acb…01ada Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x01ada…01ae6 Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x01ae6…01aec Line {l1=0x04, l2=»END;«, l3=0x04}
0x01aec…01b0c Line {l1=0x1e, l2=»PROCEDURE FORMULAR(I:INTEGER);«, l3=0x1e}
0x01b0c…01b20 Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x01b20…01b27 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x01b27…01b34 Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x01b34…01b3f Line {l1=0x09, l2=» 1:BEGIN«, l3=0x09}
0x01b3f…01b4f Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x01b4f…01b81 Line {l1=0x30, l2=» WRITE('Monter bredt 8.5" papir, RETURN ');«, l3=0x30}
0x01b81…01b90 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x01b90…01bbe Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x01bbe…01bcb Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x01bcb…01c19 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x01c19…01c68 Line {l1=0x4d, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');«, l3=0x4d}
0x01c68…01c96 Line {l1=0x2c, l2=» FOR LINES:=2 TO 50 DO WRITELN(LIST);«, l3=0x2c}
0x01c96…01ce4 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x01ce4…01d32 Line {l1=0x4c, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')«, l3=0x4c}
0x01d32…01d3e Line {l1=0x0a, l2=» END «, l3=0x0a}
0x01d3e…01d48 Line {l1=0x08, l2=» END;«, l3=0x08}
0x01d48…01d53 Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x01d53…01d63 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x01d63…01d95 Line {l1=0x30, l2=» WRITE('Monter generel formular, RETURN ');«, l3=0x30}
0x01d95…01da4 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x01da4…01dd2 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x01dd2…01ddf Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x01ddf…01e0c Line {l1=0x2b, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x2b}
0x01e0c…01e34 Line {l1=0x26, l2=» WRITELN(LIST,' ':35,'XXXXXX');«, l3=0x26}
0x01e34…01e61 Line {l1=0x2b, l2=» FOR LINES:=6 TO 72 DO WRITELN(LIST)«, l3=0x2b}
0x01e61…01e6d Line {l1=0x0a, l2=» END «, l3=0x0a}
0x01e6d…01e77 Line {l1=0x08, l2=» END;«, l3=0x08}
0x01e77…01e82 Line {l1=0x09, l2=» 3:BEGIN«, l3=0x09}
0x01e82…01e92 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x01e92…01ec3 Line {l1=0x2f, l2=» WRITE('Monter blankt A4 papir, RETURN ');«, l3=0x2f}
0x01ec3…01ed2 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x01ed2…01f00 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x01f00…01f0d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x01f0d…01f5b Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x01f5b…01f88 Line {l1=0x2b, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXX');«, l3=0x2b}
0x01f88…01fb6 Line {l1=0x2c, l2=» FOR LINES:=2 TO 71 DO WRITELN(LIST);«, l3=0x2c}
0x01fb6…02004 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x02004…02030 Line {l1=0x2a, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXX')«, l3=0x2a}
0x02030…0203c Line {l1=0x0a, l2=» END «, l3=0x0a}
0x0203c…02045 Line {l1=0x07, l2=» END«, l3=0x07}
0x02045…0204c Line {l1=0x05, l2=» END«, l3=0x05}
0x0204c…02052 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02052…02070 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x02070…02083 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x02083…02093 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x02093…0209a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0209a…020a6 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x020a6…020f4 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x020f4…02142 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x02142…02157 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x02157…02187 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x02187…0219e Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x0219e…021b9 Line {l1=0x19, l2=» ICLOSE(RESSGRUP.A); «, l3=0x19}
0x021b9…021d0 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x021d0…021e7 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x021e7…021ff Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x021ff…02213 Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x02213…0222a Line {l1=0x15, l2=» ICLOSE(REBELAST.A);«, l3=0x15}
0x0222a…0223f Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0x0223f…02255 Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0x02255…02266 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x02266…0226c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0226c…0228b Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x0228b…02292 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x02292…022af Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x022af…022b5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x022b5…022bd Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x022bd…022c6 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x022c6…022d6 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x022d6…022de Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x022de…022ee Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x022ee…022f6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x022f6…022ff Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x022ff…02314 Line {l1=0x13, l2=»PROCEDURE PLANUDSK;«, l3=0x13}
0x02314…0232b Line {l1=0x15, l2=»VAR UDSKTYPE:INTEGER;«, l3=0x15}
0x0232b…0232e Line {l1=0x01, l2=» «, l3=0x01}
0x0232e…02345 Line {l1=0x15, l2=»PROCEDURE BELASTPLAN;«, l3=0x15}
0x02345…02388 Line {l1=0x41, l2=»VAR NSTARTDAG,RÅDIGTID,RESTETID,OVERSKUD,CURRUGE,NRPÅLIN:INTEGER;«, l3=0x41}
0x02388…023b5 Line {l1=0x2b, l2=» ORDRETIM:ARRAY (1..15,1..2) OF INTEGER;«, l3=0x2b}
0x023b5…023d1 Line {l1=0x1a, l2=» FØRSTE,SIDSTE:BOOLEAN;«, l3=0x1a}
0x023d1…023d4 Line {l1=0x01, l2=» «, l3=0x01}
0x023d4…023e6 Line {l1=0x10, l2=»PROCEDURE HOVED;«, l3=0x10}
0x023e6…023ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x023ed…0242a Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x0242a…0246b Line {l1=0x3f, l2=» WRITELN(LIST,'Belastningsplan for',RESS.NR:5,' ',RESS.BETEGN,«, l3=0x3f}
0x0246b…024ab Line {l1=0x3e, l2=» ' ':10,'Kapacitetsfaktor',POST.FAKTOR:5,' ':28,«, l3=0x3e}
0x024ab…024f5 Line {l1=0x48, l2=» 'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);«, l3=0x48}
0x024f5…0252d Line {l1=0x36, l2=» WRITELN(LIST,' ':86,' Total Til Akkumuleret');«, l3=0x36}
0x0252d…02567 Line {l1=0x38, l2=» WRITELN(LIST,' ':86,' rådighed overunderskud');«, l3=0x38}
0x02567…02573 Line {l1=0x0a, l2=» LINES:=3«, l3=0x0a}
0x02573…02579 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02579…0257c Line {l1=0x01, l2=» «, l3=0x01}
0x0257c…02593 Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x02593…025a3 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x025a3…025aa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x025aa…025d1 Line {l1=0x25, l2=» IF NRPÅLIN=0 THEN EXIT(SKRIVLINIE);«, l3=0x25}
0x025d1…025ec Line {l1=0x19, l2=» IF LINES>45 THEN HOVED;«, l3=0x19}
0x025ec…0262a Line {l1=0x3c, l2=» IF FØRSTE THEN WRITE(LIST,'Ugenr') ELSE WRITE(LIST,' ':5);«, l3=0x3c}
0x0262a…02643 Line {l1=0x17, l2=» WRITE(LIST,' Ordre');«, l3=0x17}
0x02643…02658 Line {l1=0x13, l2=» FOR I:=1 TO 15 DO«, l3=0x13}
0x02658…026a3 Line {l1=0x49, l2=» IF I>NRPÅLIN THEN WRITE(LIST,' ':5) ELSE WRITE(LIST,ORDRETIM(I,1):5);«, l3=0x49}
0x026a3…026b5 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x026b5…026c7 Line {l1=0x10, l2=» IF FØRSTE THEN«, l3=0x10}
0x026c7…0270e Line {l1=0x45, l2=» IF CURRUGE=0 THEN WRITE(LIST,' FØR') ELSE WRITE(LIST,CURRUGE:5) «, l3=0x45}
0x0270e…02729 Line {l1=0x19, l2=» ELSE WRITE(LIST,' ':5);«, l3=0x19}
0x02729…02742 Line {l1=0x17, l2=» WRITE(LIST,' Timer');«, l3=0x17}
0x02742…02757 Line {l1=0x13, l2=» FOR I:=1 TO 15 DO«, l3=0x13}
0x02757…0277e Line {l1=0x25, l2=» IF I>NRPÅLIN THEN WRITE(LIST,' ':5)«, l3=0x25}
0x0277e…02786 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x02786…0278f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0278f…027b1 Line {l1=0x20, l2=» WRITE(LIST,ORDRETIM(I,2):5);«, l3=0x20}
0x027b1…027d7 Line {l1=0x24, l2=» RESTETID:=RESTETID+ORDRETIM(I,2)«, l3=0x24}
0x027d7…027df Line {l1=0x06, l2=» END;«, l3=0x06}
0x027df…027ee Line {l1=0x0d, l2=» NRPÅLIN:=0;«, l3=0x0d}
0x027ee…02800 Line {l1=0x10, l2=» FØRSTE:=FALSE;«, l3=0x10}
0x02800…02812 Line {l1=0x10, l2=» IF SIDSTE THEN«, l3=0x10}
0x02812…0281b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0281b…0282f Line {l1=0x12, l2=» SIDSTE:=FALSE;«, l3=0x12}
0x0282f…02866 Line {l1=0x35, l2=» OVERSKUD:=OVERSKUD+POST.FAKTOR*RÅDIGTID-RESTETID;«, l3=0x35}
0x02866…028a8 Line {l1=0x40, l2=» WRITELN(LIST,RESTETID:7,POST.FAKTOR*RÅDIGTID:9,OVERSKUD:14);«, l3=0x40}
0x028a8…028ba Line {l1=0x10, l2=» RÅDIGTID:=0;«, l3=0x10}
0x028ba…028cb Line {l1=0x0f, l2=» RESTETID:=0«, l3=0x0f}
0x028cb…028d3 Line {l1=0x06, l2=» END «, l3=0x06}
0x028d3…028ea Line {l1=0x15, l2=» ELSE WRITELN(LIST);«, l3=0x15}
0x028ea…028fc Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x028fc…0290e Line {l1=0x10, l2=» LINES:=LINES+3«, l3=0x10}
0x0290e…02914 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02914…0291c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0291c…02932 Line {l1=0x14, l2=»BEGIN (*BELASTPLAN*)«, l3=0x14}
0x02932…0293b Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x0293b…02953 Line {l1=0x16, l2=» LÆSFELT(PICTURE(1));«, l3=0x16}
0x02953…02981 Line {l1=0x2c, l2=» IF POST.RESSOURCE=0 THEN EXIT(BELASTPLAN);«, l3=0x2c}
0x02981…0299d Line {l1=0x1a, l2=» RESS.NR:=POST.RESSOURCE;«, l3=0x1a}
0x0299d…029dc Line {l1=0x3d, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x3d}
0x029dc…02a22 Line {l1=0x44, l2=» IF IER=-6 THEN BEGIN NONEXIST('Ressourcen'); EXIT(BELASTPLAN) END;«, l3=0x44}
0x02a22…02a35 Line {l1=0x11, l2=» POST.FAKTOR:=1;«, l3=0x11}
0x02a35…02a4e Line {l1=0x17, l2=» LÆSFELT(PICTURE(18));«, l3=0x17}
0x02a4e…02a5e Line {l1=0x0e, l2=» RESTETID:=0;«, l3=0x0e}
0x02a5e…02a6e Line {l1=0x0e, l2=» RÅDIGTID:=0;«, l3=0x0e}
0x02a6e…02a7e Line {l1=0x0e, l2=» OVERSKUD:=0;«, l3=0x0e}
0x02a7e…02a8d Line {l1=0x0d, l2=» NRPÅLIN:=0;«, l3=0x0d}
0x02a8d…02a9e Line {l1=0x0f, l2=» FØRSTE:=TRUE;«, l3=0x0f}
0x02a9e…02ab0 Line {l1=0x10, l2=» SIDSTE:=FALSE;«, l3=0x10}
0x02ab0…02abf Line {l1=0x0d, l2=» CURRUGE:=0;«, l3=0x0d}
0x02abf…02acd Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x02acd…02ae6 Line {l1=0x17, l2=» NSTARTDAG:=PSTARTDAG;«, l3=0x17}
0x02ae6…02af8 Line {l1=0x10, l2=» ARBEDAG.NR:=0;«, l3=0x10}
0x02af8…02b41 Line {l1=0x47, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A);«, l3=0x47}
0x02b41…02b6b Line {l1=0x28, l2=» IER:=0; (*GÅ FREM TIL DAGSDATO*)«, l3=0x28}
0x02b6b…02bb7 Line {l1=0x4a, l2=» WHILE (IER=0) AND (ARBEDAG.DATO<>SYSTEM.DAGSDATO) DO NEXTREC(ARBEDAG.A);«, l3=0x4a}
0x02bb7…02bcd Line {l1=0x14, l2=» CHECK0(ARBEDAG.A);«, l3=0x14}
0x02bcd…02bfd Line {l1=0x2e, l2=» WHILE (IER=0) AND (ARBEDAG.NR<>NSTARTDAG) DO«, l3=0x2e}
0x02bfd…02c34 Line {l1=0x35, l2=» BEGIN (*OPTÆL TIMER FRA DAGSDATO TIL PERIODESTART*)«, l3=0x35}
0x02c34…02c5e Line {l1=0x28, l2=» RÅDIGTID:=RÅDIGTID+ARBEDAG.ARBTIMER;«, l3=0x28}
0x02c5e…02c76 Line {l1=0x16, l2=» NEXTREC(ARBEDAG.A)«, l3=0x16}
0x02c76…02c7e Line {l1=0x06, l2=» END;«, l3=0x06}
0x02c7e…02c94 Line {l1=0x14, l2=» CHECK0(ARBEDAG.A);«, l3=0x14}
0x02c94…02cad Line {l1=0x17, l2=» REBELAST.NR:=RESS.NR;«, l3=0x17}
0x02cad…02cc6 Line {l1=0x17, l2=» REBELAST.STARTDAG:=0;«, l3=0x17}
0x02cc6…02cdd Line {l1=0x15, l2=» REBELAST.STTIME:=0;«, l3=0x15}
0x02cdd…02cf4 Line {l1=0x15, l2=» REBELAST.EMNENR:=0;«, l3=0x15}
0x02cf4…02d0c Line {l1=0x16, l2=» REBELAST.OPERANR:=0;«, l3=0x16}
0x02d0c…02d23 Line {l1=0x15, l2=» REBELAST.SEKVNR:=0;«, l3=0x15}
0x02d23…02d6e Line {l1=0x49, l2=» NEXTREC(REBELAST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REBELAST.A);«, l3=0x49}
0x02d6e…02d79 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x02d79…02da4 Line {l1=0x29, l2=» WHILE (IER=0) AND (REBELAST.NR=RESS.NR)«, l3=0x29}
0x02da4…02dd2 Line {l1=0x2c, l2=» AND (REBELAST.STARTDAG<NSTARTDAG) DO«, l3=0x2c}
0x02dd2…02ddb Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x02ddb…02dde Line {l1=0x01, l2=» «, l3=0x01}
0x02dde…02dff Line {l1=0x1f, l2=» ORDRE.NR:=REBELAST.ORDRENR;«, l3=0x1f}
0x02dff…02e23 Line {l1=0x22, l2=» ORDRE.EMNENR:=REBELAST.EMNENR;«, l3=0x22}
0x02e23…02e49 Line {l1=0x24, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x24}
0x02e49…02e4c Line {l1=0x01, l2=» «, l3=0x01}
0x02e4c…02e71 Line {l1=0x23, l2=» PROD.ORDRENR:=REBELAST.ORDRENR;«, l3=0x23}
0x02e71…02e94 Line {l1=0x21, l2=» PROD.EMNENR:=REBELAST.EMNENR;«, l3=0x21}
0x02e94…02eb9 Line {l1=0x23, l2=» PROD.SEKVENSN:=REBELAST.SEKVNR;«, l3=0x23}
0x02eb9…02ede Line {l1=0x23, l2=» PROD.OPERANR:=REBELAST.OPERANR;«, l3=0x23}
0x02ede…02f02 Line {l1=0x22, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x22}
0x02f02…02f05 Line {l1=0x01, l2=» «, l3=0x01}
0x02f05…02f29 Line {l1=0x22, l2=» IF NRPÅLIN=15 THEN SKRIVLINIE;«, l3=0x22}
0x02f29…02f2c Line {l1=0x01, l2=» «, l3=0x01}
0x02f2c…02f45 Line {l1=0x17, l2=» NRPÅLIN:=NRPÅLIN+1;«, l3=0x17}
0x02f45…02f71 Line {l1=0x2a, l2=» ORDRETIM(NRPÅLIN,1):=REBELAST.ORDRENR;«, l3=0x2a}
0x02f71…02f8c Line {l1=0x19, l2=» ORDRETIM(NRPÅLIN,2):=«, l3=0x19}
0x02f8c…02fd7 Line {l1=0x49, l2=» ROUND((1.0-PROD.REAANTAL/ORDRE.ANTALBES)*REBELAST.VARIGHED);«, l3=0x49}
0x02fd7…02ff0 Line {l1=0x17, l2=» NEXTREC(REBELAST.A)«, l3=0x17}
0x02ff0…02ff8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x02ff8…0302e Line {l1=0x34, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A);«, l3=0x34}
0x0302e…0303f Line {l1=0x0f, l2=» SIDSTE:=TRUE;«, l3=0x0f}
0x0303f…0304e Line {l1=0x0d, l2=» SKRIVLINIE;«, l3=0x0d}
0x0304e…03059 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x03059…03087 Line {l1=0x2c, l2=» WHILE (IER=0) AND (REBELAST.NR=RESS.NR) DO«, l3=0x2c}
0x03087…03090 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03090…030a3 Line {l1=0x11, l2=» FØRSTE:=TRUE;«, l3=0x11}
0x030a3…030c0 Line {l1=0x1b, l2=» CURRUGE:=ARBEDAG.UGENR;«, l3=0x1b}
0x030c0…030f2 Line {l1=0x30, l2=» WHILE (IER=0) AND (CURRUGE=ARBEDAG.UGENR) DO«, l3=0x30}
0x030f2…030fd Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x030fd…03129 Line {l1=0x2a, l2=» RÅDIGTID:=RÅDIGTID+ARBEDAG.ARBTIMER;«, l3=0x2a}
0x03129…03143 Line {l1=0x18, l2=» NEXTREC(ARBEDAG.A)«, l3=0x18}
0x03143…0314d Line {l1=0x08, l2=» END;«, l3=0x08}
0x0314d…03184 Line {l1=0x35, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ARBEDAG.A);«, l3=0x35}
0x03184…03197 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x03197…031b4 Line {l1=0x1b, l2=» NSTARTDAG:=ARBEDAG.NR«, l3=0x1b}
0x031b4…031be Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x031be…031d7 Line {l1=0x17, l2=» NSTARTDAG:=32000;«, l3=0x17}
0x031d7…031e4 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x031e4…03211 Line {l1=0x2b, l2=» WHILE (IER=0) AND (REBELAST.NR=RESS.NR)«, l3=0x2b}
0x03211…03241 Line {l1=0x2e, l2=» AND (REBELAST.STARTDAG<NSTARTDAG) DO«, l3=0x2e}
0x03241…0324c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0324c…03251 Line {l1=0x03, l2=» «, l3=0x03}
0x03251…03274 Line {l1=0x21, l2=» ORDRE.NR:=REBELAST.ORDRENR;«, l3=0x21}
0x03274…0329a Line {l1=0x24, l2=» ORDRE.EMNENR:=REBELAST.EMNENR;«, l3=0x24}
0x0329a…032c2 Line {l1=0x26, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x26}
0x032c2…032c7 Line {l1=0x03, l2=» «, l3=0x03}
0x032c7…032ee Line {l1=0x25, l2=» PROD.ORDRENR:=REBELAST.ORDRENR;«, l3=0x25}
0x032ee…03313 Line {l1=0x23, l2=» PROD.EMNENR:=REBELAST.EMNENR;«, l3=0x23}
0x03313…0333a Line {l1=0x25, l2=» PROD.SEKVENSN:=REBELAST.SEKVNR;«, l3=0x25}
0x0333a…03361 Line {l1=0x25, l2=» PROD.OPERANR:=REBELAST.OPERANR;«, l3=0x25}
0x03361…03387 Line {l1=0x24, l2=» GETREC(PROD.A);CHECK0(PROD.A);«, l3=0x24}
0x03387…0338c Line {l1=0x03, l2=» «, l3=0x03}
0x0338c…033b2 Line {l1=0x24, l2=» IF NRPÅLIN=15 THEN SKRIVLINIE;«, l3=0x24}
0x033b2…033b7 Line {l1=0x03, l2=» «, l3=0x03}
0x033b7…033d2 Line {l1=0x19, l2=» NRPÅLIN:=NRPÅLIN+1;«, l3=0x19}
0x033d2…03400 Line {l1=0x2c, l2=» ORDRETIM(NRPÅLIN,1):=REBELAST.ORDRENR;«, l3=0x2c}
0x03400…0341d Line {l1=0x1b, l2=» ORDRETIM(NRPÅLIN,2):=«, l3=0x1b}
0x0341d…0346a Line {l1=0x4b, l2=» ROUND((1.0-PROD.REAANTAL/ORDRE.ANTALBES)*REBELAST.VARIGHED);«, l3=0x4b}
0x0346a…03485 Line {l1=0x19, l2=» NEXTREC(REBELAST.A)«, l3=0x19}
0x03485…0348f Line {l1=0x08, l2=» END;«, l3=0x08}
0x0348f…034c7 Line {l1=0x36, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A);«, l3=0x36}
0x034c7…034da Line {l1=0x11, l2=» SIDSTE:=TRUE;«, l3=0x11}
0x034da…034ea Line {l1=0x0e, l2=» SKRIVLINIE«, l3=0x0e}
0x034ea…034f2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x034f2…0352e Line {l1=0x3a, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END«, l3=0x3a}
0x0352e…03547 Line {l1=0x17, l2=» UNTIL POST.RESSOURCE=0«, l3=0x17}
0x03547…0354d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0354d…03555 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03555…0356b Line {l1=0x14, l2=»PROCEDURE GANTTKORT;«, l3=0x14}
0x0356b…03580 Line {l1=0x13, l2=»VAR LINIER:INTEGER;«, l3=0x13}
0x03580…03583 Line {l1=0x01, l2=» «, l3=0x01}
0x03583…0359a Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x0359a…035b9 Line {l1=0x1d, l2=»VAR I,AKTWEEK,AKTDAG:INTEGER;«, l3=0x1d}
0x035b9…035e4 Line {l1=0x29, l2=» UDLINIE:PACKED ARRAY (1..52) OF CHAR;«, l3=0x29}
0x035e4…035eb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x035eb…035ff Line {l1=0x12, l2=» IF LINES>45 THEN«, l3=0x12}
0x035ff…03608 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03608…03647 Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3d}
0x03647…0368b Line {l1=0x42, l2=» SKEMA:='. .';«, l3=0x42}
0x0368b…036b1 Line {l1=0x24, l2=» WRITELN(LIST,'GANTTKORT',' ':81,«, l3=0x24}
0x036b1…036fb Line {l1=0x48, l2=» 'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);«, l3=0x48}
0x036fb…0373b Line {l1=0x3e, l2=» WRITE(LIST,'Ressource:',RESS.NR:5,' ',RESS.BETEGN,' ':14);«, l3=0x3e}
0x0373b…03757 Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x03757…03781 Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x03781…03792 Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x03792…037a9 Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x037a9…037b4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x037b4…037da Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x037da…037e7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x037e7…03803 Line {l1=0x1a, l2=» SKEMA(2*I-1):='.';«, l3=0x1a}
0x03803…03824 Line {l1=0x1f, l2=» AKTWEEK:=ARBEDAG.UGENR;«, l3=0x1f}
0x03824…03851 Line {l1=0x2b, l2=» WRITE(LIST,ARBEDAG.UGENR MOD 100:2)«, l3=0x2b}
0x03851…0385c Line {l1=0x09, l2=» END«, l3=0x09}
0x0385c…0387b Line {l1=0x1d, l2=» ELSE WRITE(LIST,' ':2);«, l3=0x1d}
0x0387b…038c7 Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x038c7…038d1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x038d1…038fe Line {l1=0x2b, l2=» WRITELN(LIST,' Leveres Start Varig');«, l3=0x2b}
0x038fe…0392e Line {l1=0x2e, l2=» WRITE(LIST,'Nr Ordre Betegnelse ',' ':20);«, l3=0x2e}
0x0392e…0394a Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x0394a…03974 Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x03974…03984 Line {l1=0x0e, l2=» AKTDAG:=0;«, l3=0x0e}
0x03984…03995 Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x03995…039ac Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x039ac…039b7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x039b7…039dd Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x039dd…03a11 Line {l1=0x32, l2=» BEGIN AKTDAG:=0; AKTWEEK:=ARBEDAG.UGENR END;«, l3=0x32}
0x03a11…03a29 Line {l1=0x16, l2=» IF AKTDAG<5 THEN«, l3=0x16}
0x03a29…03a36 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x03a36…03a51 Line {l1=0x19, l2=» AKTDAG:=AKTDAG+1;«, l3=0x19}
0x03a51…03a6f Line {l1=0x1c, l2=» WRITE(LIST,AKTDAG:2)«, l3=0x1c}
0x03a6f…03a7a Line {l1=0x09, l2=» END«, l3=0x09}
0x03a7a…03a99 Line {l1=0x1d, l2=» ELSE WRITE(LIST,' ':2);«, l3=0x1d}
0x03a99…03ae5 Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x03ae5…03aef Line {l1=0x08, l2=» END;«, l3=0x08}
0x03aef…03b1c Line {l1=0x2b, l2=» WRITELN(LIST,' Uge ant time hed');«, l3=0x2b}
0x03b1c…03b2a Line {l1=0x0c, l2=» LINES:=3«, l3=0x0c}
0x03b2a…03b32 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03b32…03b51 Line {l1=0x1d, l2=» WITH REBELAST,EMNE,ORDRE DO«, l3=0x1d}
0x03b51…03b5a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03b5a…03b71 Line {l1=0x15, l2=» LINIER:=LINIER+1;«, l3=0x15}
0x03b71…03ba1 Line {l1=0x2e, l2=» WRITE(LIST,LINIER:2,ORDRENR:6,' ',BETEGN);«, l3=0x2e}
0x03ba1…03bb6 Line {l1=0x13, l2=» UDLINIE:=SKEMA;«, l3=0x13}
0x03bb6…03be5 Line {l1=0x2d, l2=» IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN«, l3=0x2d}
0x03be5…03bf0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x03bf0…03c14 Line {l1=0x22, l2=» I:=2*(STARTDAG-PSTARTDAG)+2;«, l3=0x22}
0x03c14…03c34 Line {l1=0x1e, l2=» IF STTIME>4 THEN I:=I+1;«, l3=0x1e}
0x03c34…03c68 Line {l1=0x32, l2=» IF STARTDAG-PSTARTDAG+VARIGHED DIV 8<26 THEN«, l3=0x32}
0x03c68…03ca3 Line {l1=0x39, l2=» MOVELEFT(PIND(1),UDLINIE(I),(VARIGHED-1) DIV 4+1)«, l3=0x39}
0x03ca3…03caf Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x03caf…03cf0 Line {l1=0x3f, l2=» MOVELEFT(PIND(1),UDLINIE(I),50-(STARTDAG-PSTARTDAG)*2) «, l3=0x3f}
0x03cf0…03cfa Line {l1=0x08, l2=» END;«, l3=0x08}
0x03cfa…03d14 Line {l1=0x18, l2=» WRITE(LIST,UDLINIE);«, l3=0x18}
0x03d14…03d2c Line {l1=0x16, l2=» IF BEKRÆLEV>0 THEN«, l3=0x16}
0x03d2c…03d56 Line {l1=0x28, l2=» WRITE(LIST,BEKRÆLEV MOD 100:2,'!')«, l3=0x28}
0x03d56…03d60 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x03d60…03d8a Line {l1=0x28, l2=» WRITE(LIST,ØNSKLEV MOD 100:2,' ');«, l3=0x28}
0x03d8a…03dc0 Line {l1=0x34, l2=» WRITELN(LIST,ANTALBES:5:-2,STTIME:7,VARIGHED:6);«, l3=0x34}
0x03dc0…03dd4 Line {l1=0x12, l2=» LINES:=LINES+1«, l3=0x12}
0x03dd4…03ddb Line {l1=0x05, l2=» END«, l3=0x05}
0x03ddb…03de1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03de1…03de9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x03de9…03dff Line {l1=0x14, l2=»PROCEDURE GETBELAST;«, l3=0x14}
0x03dff…03e06 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03e06…03e1f Line {l1=0x17, l2=» REBELAST.NR:=RESS.NR;«, l3=0x17}
0x03e1f…03e40 Line {l1=0x1f, l2=» REBELAST.STARTDAG:=PSTARTDAG;«, l3=0x1f}
0x03e40…03e58 Line {l1=0x16, l2=» REBELAST.ORDRENR:=0;«, l3=0x16}
0x03e58…03ea3 Line {l1=0x49, l2=» NEXTREC(REBELAST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REBELAST.A);«, l3=0x49}
0x03ea3…03eae Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x03eae…03ebc Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x03ebc…03eca Line {l1=0x0c, l2=» LINIER:=0;«, l3=0x0c}
0x03eca…03ef9 Line {l1=0x2d, l2=» WHILE (IER=0) AND (REBELAST.NR=RESS.NR) AND«, l3=0x2d}
0x03ef9…03f26 Line {l1=0x2b, l2=» (REBELAST.STARTDAG-PSTARTDAG<25) DO«, l3=0x2b}
0x03f26…03f2f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x03f2f…03f4e Line {l1=0x1d, l2=» EMNE.NR:=REBELAST.EMNENR;«, l3=0x1d}
0x03f4e…03f72 Line {l1=0x22, l2=» GETREC(EMNE.A);CHECK0(EMNE.A);«, l3=0x22}
0x03f72…03f93 Line {l1=0x1f, l2=» ORDRE.NR:=REBELAST.ORDRENR;«, l3=0x1f}
0x03f93…03fb7 Line {l1=0x22, l2=» ORDRE.EMNENR:=REBELAST.EMNENR;«, l3=0x22}
0x03fb7…03fdd Line {l1=0x24, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x24}
0x03fdd…03fee Line {l1=0x0f, l2=» SKRIVLINIE;«, l3=0x0f}
0x03fee…04007 Line {l1=0x17, l2=» NEXTREC(REBELAST.A)«, l3=0x17}
0x04007…0400f Line {l1=0x06, l2=» END;«, l3=0x06}
0x0400f…0404c Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x0404c…04081 Line {l1=0x33, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REBELAST.A)«, l3=0x33}
0x04081…04087 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04087…0408f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0408f…040a4 Line {l1=0x13, l2=»BEGIN (*GANTTKORT*)«, l3=0x13}
0x040a4…040ae Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x040ae…040c9 Line {l1=0x19, l2=» LÆSFELT(PICTURE(15));«, l3=0x19}
0x040c9…040e2 Line {l1=0x17, l2=» CASE POST.OPTION OF«, l3=0x17}
0x040e2…040f0 Line {l1=0x0c, l2=» 1:REPEAT«, l3=0x0c}
0x040f0…0410e Line {l1=0x1c, l2=» LÆSFELT(PICTURE(1));«, l3=0x1c}
0x0410e…04141 Line {l1=0x31, l2=» IF POST.RESSOURCE=0 THEN EXIT(GANTTKORT);«, l3=0x31}
0x04141…04163 Line {l1=0x20, l2=» RESS.NR:=POST.RESSOURCE;«, l3=0x20}
0x04163…041a8 Line {l1=0x43, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x43}
0x041a8…041f3 Line {l1=0x49, l2=» IF IER=-6 THEN BEGIN NONEXIST('Ressourcen'); EXIT(GANTTKORT) END;«, l3=0x49}
0x041f3…04206 Line {l1=0x11, l2=» GETBELAST«, l3=0x11}
0x04206…04225 Line {l1=0x1d, l2=» UNTIL POST.RESSOURCE=0;«, l3=0x1d}
0x04225…04233 Line {l1=0x0c, l2=» 2:REPEAT«, l3=0x0c}
0x04233…04252 Line {l1=0x1d, l2=» LÆSFELT(PICTURE(16));«, l3=0x1d}
0x04252…04284 Line {l1=0x30, l2=» IF POST.AFDELING=0 THEN EXIT(GANTTKORT);«, l3=0x30}
0x04284…04299 Line {l1=0x13, l2=» RESS.NR:=0;«, l3=0x13}
0x04299…042e2 Line {l1=0x47, l2=» NEXTREC(RESS.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(RESS.A);«, l3=0x47}
0x042e2…042f3 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x042f3…0430b Line {l1=0x16, l2=» WHILE IER=0 DO«, l3=0x16}
0x0430b…0431a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0431a…04353 Line {l1=0x37, l2=» IF RESS.AFDELNR=POST.AFDELING THEN GETBELAST;«, l3=0x37}
0x04353…0436e Line {l1=0x19, l2=» NEXTREC(RESS.A)«, l3=0x19}
0x0436e…0437c Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0437c…043b1 Line {l1=0x33, l2=» IF NOT (-IER IN (.2,9.)) THEN ERROR(RESS.A)«, l3=0x33}
0x043b1…043cf Line {l1=0x1c, l2=» UNTIL POST.AFDELING=0;«, l3=0x1c}
0x043cf…043dd Line {l1=0x0c, l2=» 3:REPEAT«, l3=0x0c}
0x043dd…043fc Line {l1=0x1d, l2=» LÆSFELT(PICTURE(17));«, l3=0x1d}
0x043fc…0442c Line {l1=0x2e, l2=» IF POST.GRUPPE=0 THEN EXIT(GANTTKORT);«, l3=0x2e}
0x0442c…04453 Line {l1=0x25, l2=» RESSGRUP.GRUPNR:=POST.GRUPPE;«, l3=0x25}
0x04453…0446c Line {l1=0x17, l2=» RESSGRUP.NR:=0;«, l3=0x17}
0x0446c…0448a Line {l1=0x1c, l2=» NEXTREC(RESSGRUP.A);«, l3=0x1c}
0x0448a…044c7 Line {l1=0x3b, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(RESSGRUP.A);«, l3=0x3b}
0x044c7…044d8 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x044d8…04514 Line {l1=0x3a, l2=» WHILE (IER=0) AND (RESSGRUP.GRUPNR=POST.GRUPPE) DO«, l3=0x3a}
0x04514…04523 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x04523…04544 Line {l1=0x1f, l2=» RESS.NR:=RESSGRUP.NR;«, l3=0x1f}
0x04544…0456e Line {l1=0x28, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x28}
0x0456e…04584 Line {l1=0x14, l2=» GETBELAST;«, l3=0x14}
0x04584…045a3 Line {l1=0x1d, l2=» NEXTREC(RESSGRUP.A)«, l3=0x1d}
0x045a3…045b1 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x045b1…045ec Line {l1=0x39, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(RESSGRUP.A)«, l3=0x39}
0x045ec…04607 Line {l1=0x19, l2=» UNTIL POST.GRUPPE=0«, l3=0x19}
0x04607…04610 Line {l1=0x07, l2=» END«, l3=0x07}
0x04610…04627 Line {l1=0x15, l2=» UNTIL POST.OPTION=0«, l3=0x15}
0x04627…0462d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0462d…04635 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x04635…0464a Line {l1=0x13, l2=»PROCEDURE PRODPLAN;«, l3=0x13}
0x0464a…04677 Line {l1=0x2b, l2=»VAR LINIER,TVARIG,IUGE,STTID,SLTID:INTEGER;«, l3=0x2b}
0x04677…0468b Line {l1=0x12, l2=» AFDOK:BOOLEAN;«, l3=0x12}
0x0468b…0468e Line {l1=0x01, l2=» «, l3=0x01}
0x0468e…046a5 Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x046a5…046dd Line {l1=0x36, l2=»VAR I,AKTWEEK,AKTDAG,STARTDAG,STTIME,VARIGHED:INTEGER;«, l3=0x36}
0x046dd…04708 Line {l1=0x29, l2=» UDLINIE:PACKED ARRAY (1..52) OF CHAR;«, l3=0x29}
0x04708…0470f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0470f…0472c Line {l1=0x1b, l2=» STARTDAG:=STTID MOD 1000;«, l3=0x1b}
0x0472c…04747 Line {l1=0x19, l2=» STTIME:=STTID DIV 1000;«, l3=0x19}
0x04747…04765 Line {l1=0x1c, l2=» IF STARTDAG<PSTARTDAG THEN«, l3=0x1c}
0x04765…0476e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0476e…04788 Line {l1=0x18, l2=» STARTDAG:=PSTARTDAG;«, l3=0x18}
0x04788…04797 Line {l1=0x0d, l2=» STTIME:=1«, l3=0x0d}
0x04797…0479f Line {l1=0x06, l2=» END;«, l3=0x06}
0x0479f…047c7 Line {l1=0x26, l2=» VARIGHED:=SLTID-8*STARTDAG-STTIME+1;«, l3=0x26}
0x047c7…0480b Line {l1=0x42, l2=» IF (VARIGHED<=0) OR NOT ((STARTDAG-PSTARTDAG) IN (.0..24.)) THEN«, l3=0x42}
0x0480b…04823 Line {l1=0x16, l2=» EXIT(SKRIVLINIE);«, l3=0x16}
0x04823…04837 Line {l1=0x12, l2=» IF LINES>45 THEN«, l3=0x12}
0x04837…04840 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x04840…0487f Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3d}
0x0487f…048c3 Line {l1=0x42, l2=» SKEMA:='. .';«, l3=0x42}
0x048c3…0490b Line {l1=0x46, l2=» WRITELN(LIST,'Produktionsplan for afdeling ',POST.AFDELING,' ':64,«, l3=0x46}
0x0490b…04955 Line {l1=0x48, l2=» 'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);«, l3=0x48}
0x04955…04972 Line {l1=0x1b, l2=» IF POST.AFDELING=3 THEN«, l3=0x1b}
0x04972…049a9 Line {l1=0x35, l2=» WRITE(LIST,' ':40,'Indl stk tot lev ') «, l3=0x35}
0x049a9…049b3 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x049b3…049ea Line {l1=0x35, l2=» WRITE(LIST,' ':40,' tot form tot lev ');«, l3=0x35}
0x049ea…04a06 Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x04a06…04a30 Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x04a30…04a41 Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x04a41…04a58 Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x04a58…04a63 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x04a63…04a89 Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x04a89…04a96 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x04a96…04ab2 Line {l1=0x1a, l2=» SKEMA(2*I-1):='.';«, l3=0x1a}
0x04ab2…04ad3 Line {l1=0x1f, l2=» AKTWEEK:=ARBEDAG.UGENR;«, l3=0x1f}
0x04ad3…04b00 Line {l1=0x2b, l2=» WRITE(LIST,ARBEDAG.UGENR MOD 100:2)«, l3=0x2b}
0x04b00…04b0b Line {l1=0x09, l2=» END«, l3=0x09}
0x04b0b…04b2a Line {l1=0x1d, l2=» ELSE WRITE(LIST,' ':2);«, l3=0x1d}
0x04b2a…04b76 Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x04b76…04b80 Line {l1=0x08, l2=» END;«, l3=0x08}
0x04b80…04b94 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x04b94…04bc4 Line {l1=0x2e, l2=» WRITE(LIST,' Nr Ord. Betegnelse ',' ':13);«, l3=0x2e}
0x04bc4…04be1 Line {l1=0x1b, l2=» IF POST.AFDELING=3 THEN«, l3=0x1b}
0x04be1…04c18 Line {l1=0x35, l2=» WRITE(LIST,' kunde uge /t tid uge antal ') «, l3=0x35}
0x04c18…04c22 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x04c22…04c59 Line {l1=0x35, l2=» WRITE(LIST,' mat kg nr tid uge antal ');«, l3=0x35}
0x04c59…04c75 Line {l1=0x1a, l2=» ARBEDAG.NR:=PSTARTDAG;«, l3=0x1a}
0x04c75…04c9f Line {l1=0x28, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x28}
0x04c9f…04caf Line {l1=0x0e, l2=» AKTDAG:=0;«, l3=0x0e}
0x04caf…04cc0 Line {l1=0x0f, l2=» AKTWEEK:=0;«, l3=0x0f}
0x04cc0…04cd7 Line {l1=0x15, l2=» FOR I:=1 TO 25 DO«, l3=0x15}
0x04cd7…04ce2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x04ce2…04d08 Line {l1=0x24, l2=» IF AKTWEEK<>ARBEDAG.UGENR THEN«, l3=0x24}
0x04d08…04d3c Line {l1=0x32, l2=» BEGIN AKTDAG:=0; AKTWEEK:=ARBEDAG.UGENR END;«, l3=0x32}
0x04d3c…04d54 Line {l1=0x16, l2=» IF AKTDAG<5 THEN«, l3=0x16}
0x04d54…04d61 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x04d61…04d7c Line {l1=0x19, l2=» AKTDAG:=AKTDAG+1;«, l3=0x19}
0x04d7c…04d9a Line {l1=0x1c, l2=» WRITE(LIST,AKTDAG:2)«, l3=0x1c}
0x04d9a…04da5 Line {l1=0x09, l2=» END«, l3=0x09}
0x04da5…04dc4 Line {l1=0x1d, l2=» ELSE WRITE(LIST,' ':2);«, l3=0x1d}
0x04dc4…04e10 Line {l1=0x4a, l2=» NEXTREC(ARBEDAG.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ARBEDAG.A)«, l3=0x4a}
0x04e10…04e1a Line {l1=0x08, l2=» END;«, l3=0x08}
0x04e1a…04e2e Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x04e2e…04e3c Line {l1=0x0c, l2=» LINES:=3«, l3=0x0c}
0x04e3c…04e44 Line {l1=0x06, l2=» END;«, l3=0x06}
0x04e44…04e5a Line {l1=0x14, l2=» WITH EMNE,ORDRE DO«, l3=0x14}
0x04e5a…04e63 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x04e63…04e79 Line {l1=0x14, l2=» EMNE.NR:=EMNENR;«, l3=0x14}
0x04e79…04e9d Line {l1=0x22, l2=» GETREC(EMNE.A);CHECK0(EMNE.A);«, l3=0x22}
0x04e9d…04eb4 Line {l1=0x15, l2=» LINIER:=LINIER+1;«, l3=0x15}
0x04eb4…04ee8 Line {l1=0x32, l2=» WRITE(LIST,LINIER:3,ORDRE.NR:5,' ',BETEGN:24);«, l3=0x32}
0x04ee8…04f05 Line {l1=0x1b, l2=» IF POST.AFDELING=3 THEN«, l3=0x1b}
0x04f05…04f10 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x04f10…04f33 Line {l1=0x21, l2=» ARBEDAG.NR:=(IUGE-1) DIV 8;«, l3=0x21}
0x04f33…04f71 Line {l1=0x3c, l2=» GETREC(ARBEDAG.A);IF IER=-6 THEN ARBEDAG.UGENR:=0 ELSE«, l3=0x3c}
0x04f71…04fac Line {l1=0x39, l2=» CHECK0(ARBEDAG.A);«, l3=0x39}
0x04fac…04ff2 Line {l1=0x44, l2=» WRITE(LIST,KUNDENR(1)*10000.0+KUNDENR(2):6:-2,ARBEDAG.UGENR:5,«, l3=0x44}
0x04ff2…0503c Line {l1=0x48, l2=» ANTALBES/TVARIG:5:-2,TVARIG:4,BEKRÆLEV:5,ANTALBES:6:-2)«, l3=0x48}
0x0503c…05045 Line {l1=0x07, l2=» END«, l3=0x07}
0x05045…0504f Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0504f…0505a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0505a…0507e Line {l1=0x22, l2=» ARBEDAG.NR:=(SLTID-1) DIV 8;«, l3=0x22}
0x0507e…050bc Line {l1=0x3c, l2=» GETREC(ARBEDAG.A);IF IER=-6 THEN ARBEDAG.UGENR:=0 ELSE«, l3=0x3c}
0x050bc…050f7 Line {l1=0x39, l2=» CHECK0(ARBEDAG.A);«, l3=0x39}
0x050f7…05139 Line {l1=0x40, l2=» WRITE(LIST,MATNR:6,ANTALBES*NETTOVÆG/1000.0:5:-2,FORMNR:5,«, l3=0x40}
0x05139…05173 Line {l1=0x38, l2=» TVARIG:4,ARBEDAG.UGENR:5,ANTALBES:6:-2)«, l3=0x38}
0x05173…0517d Line {l1=0x08, l2=» END;«, l3=0x08}
0x0517d…05192 Line {l1=0x13, l2=» UDLINIE:=SKEMA;«, l3=0x13}
0x05192…051c1 Line {l1=0x2d, l2=» IF (STARTDAG-PSTARTDAG) IN (.0..24.) THEN«, l3=0x2d}
0x051c1…051cc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x051cc…051f0 Line {l1=0x22, l2=» I:=2*(STARTDAG-PSTARTDAG)+2;«, l3=0x22}
0x051f0…05210 Line {l1=0x1e, l2=» IF STTIME>4 THEN I:=I+1;«, l3=0x1e}
0x05210…05244 Line {l1=0x32, l2=» IF STARTDAG-PSTARTDAG+VARIGHED DIV 8<26 THEN«, l3=0x32}
0x05244…0527f Line {l1=0x39, l2=» MOVELEFT(PIND(1),UDLINIE(I),(VARIGHED-1) DIV 4+1)«, l3=0x39}
0x0527f…0528b Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0528b…052cc Line {l1=0x3f, l2=» MOVELEFT(PIND(1),UDLINIE(I),50-(STARTDAG-PSTARTDAG)*2) «, l3=0x3f}
0x052cc…052d6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x052d6…052f2 Line {l1=0x1a, l2=» WRITELN(LIST,UDLINIE);«, l3=0x1a}
0x052f2…05306 Line {l1=0x12, l2=» LINES:=LINES+1«, l3=0x12}
0x05306…0530d Line {l1=0x05, l2=» END«, l3=0x05}
0x0530d…05313 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05313…0531b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0531b…0533d Line {l1=0x20, l2=»PROCEDURE CHECKRESS(NR:INTEGER);«, l3=0x20}
0x0533d…05344 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05344…05371 Line {l1=0x2b, l2=» IF AFDOK OR (NR<=0) THEN EXIT(CHECKRESS);«, l3=0x2b}
0x05371…05381 Line {l1=0x0e, l2=» RESS.NR:=NR;«, l3=0x0e}
0x05381…053a3 Line {l1=0x20, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x20}
0x053a3…053ca Line {l1=0x25, l2=» AFDOK:=(RESS.AFDELNR=POST.AFDELING)«, l3=0x25}
0x053ca…053d0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x053d0…053d3 Line {l1=0x01, l2=» «, l3=0x01}
0x053d3…053e7 Line {l1=0x12, l2=»PROCEDURE GETPROD;«, l3=0x12}
0x053e7…053ee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x053ee…053fc Line {l1=0x0c, l2=» LINIER:=0;«, l3=0x0c}
0x053fc…0540a Line {l1=0x0c, l2=» TVARIG:=0;«, l3=0x0c}
0x0540a…05416 Line {l1=0x0a, l2=» IUGE:=0;«, l3=0x0a}
0x05416…05423 Line {l1=0x0b, l2=» STTID:=0;«, l3=0x0b}
0x05423…05430 Line {l1=0x0b, l2=» SLTID:=0;«, l3=0x0b}
0x05430…05440 Line {l1=0x0e, l2=» WITH PROD DO«, l3=0x0e}
0x05440…05449 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05449…0545a Line {l1=0x0f, l2=» ORDRENR:=0;«, l3=0x0f}
0x0545a…0546a Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x0546a…0547c Line {l1=0x10, l2=» SEKVENSN:=0;«, l3=0x10}
0x0547c…0548d Line {l1=0x0f, l2=» OPERANR:=0;«, l3=0x0f}
0x0548d…054d2 Line {l1=0x43, l2=» NEXTREC(PROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(PROD.A);«, l3=0x43}
0x054d2…054df Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x054df…054f7 Line {l1=0x16, l2=» ORDRE.NR:=ORDRENR;«, l3=0x16}
0x054f7…05512 Line {l1=0x19, l2=» ORDRE.EMNENR:=EMNENR;«, l3=0x19}
0x05512…05538 Line {l1=0x24, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x24}
0x05538…0554c Line {l1=0x12, l2=» WHILE IER=0 DO«, l3=0x12}
0x0554c…05557 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x05557…0556c Line {l1=0x13, l2=» AFDOK:=FALSE;«, l3=0x13}
0x0556c…05585 Line {l1=0x17, l2=» CHECKRESS(RESS1);«, l3=0x17}
0x05585…0559e Line {l1=0x17, l2=» CHECKRESS(RESS2);«, l3=0x17}
0x0559e…055b7 Line {l1=0x17, l2=» CHECKRESS(RESS3);«, l3=0x17}
0x055b7…055cc Line {l1=0x13, l2=» IF AFDOK THEN«, l3=0x13}
0x055cc…055d9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x055d9…05603 Line {l1=0x28, l2=» IF STTID=0 THEN STTID:=STARTTID;«, l3=0x28}
0x05603…05649 Line {l1=0x44, l2=» IF STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED>SLTID THEN«, l3=0x44}
0x05649…0568c Line {l1=0x41, l2=» SLTID:=STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED;«, l3=0x41}
0x0568c…056ad Line {l1=0x1f, l2=» TVARIG:=TVARIG+VARIGHED«, l3=0x1f}
0x056ad…056b8 Line {l1=0x09, l2=» END«, l3=0x09}
0x056b8…056c4 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x056c4…056dd Line {l1=0x17, l2=» IF STTID=0 THEN«, l3=0x17}
0x056dd…05724 Line {l1=0x45, l2=» IF STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED>IUGE THEN«, l3=0x45}
0x05724…05768 Line {l1=0x42, l2=» IUGE:=STARTTID MOD 1000*8+STARTTID DIV 1000+VARIGHED;«, l3=0x42}
0x05768…0577b Line {l1=0x11, l2=» NEXTREC(A);«, l3=0x11}
0x0577b…057aa Line {l1=0x2d, l2=» IF (IER=0) AND (ORDRENR<>ORDRE.NR) THEN«, l3=0x2d}
0x057aa…057b7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x057b7…057dd Line {l1=0x24, l2=» IF TVARIG>0 THEN SKRIVLINIE;«, l3=0x24}
0x057dd…057f4 Line {l1=0x15, l2=» IF IER=0 THEN«, l3=0x15}
0x057f4…05803 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x05803…05821 Line {l1=0x1c, l2=» ORDRE.NR:=ORDRENR;«, l3=0x1c}
0x05821…05842 Line {l1=0x1f, l2=» ORDRE.EMNENR:=EMNENR;«, l3=0x1f}
0x05842…0586e Line {l1=0x2a, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x2a}
0x0586e…05884 Line {l1=0x14, l2=» TVARIG:=0;«, l3=0x14}
0x05884…05898 Line {l1=0x12, l2=» IUGE:=0;«, l3=0x12}
0x05898…058ad Line {l1=0x13, l2=» STTID:=0;«, l3=0x13}
0x058ad…058c1 Line {l1=0x12, l2=» SLTID:=0«, l3=0x12}
0x058c1…058ce Line {l1=0x0b, l2=» END«, l3=0x0b}
0x058ce…058d9 Line {l1=0x09, l2=» END«, l3=0x09}
0x058d9…058e3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x058e3…05905 Line {l1=0x20, l2=» IF TVARIG>0 THEN SKRIVLINIE;«, l3=0x20}
0x05905…05944 Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3d}
0x05944…0594b Line {l1=0x05, l2=» END«, l3=0x05}
0x0594b…05951 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05951…05959 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05959…0596d Line {l1=0x12, l2=»BEGIN (*PRODPLAN*)«, l3=0x12}
0x0596d…0597a Line {l1=0x0b, l2=» LINES:=51;«, l3=0x0b}
0x0597a…05983 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x05983…0599d Line {l1=0x18, l2=» LÆSFELT(PICTURE(16));«, l3=0x18}
0x0599d…059c9 Line {l1=0x2a, l2=» IF POST.AFDELING=0 THEN EXIT(PRODPLAN);«, l3=0x2a}
0x059c9…059d5 Line {l1=0x0a, l2=» GETPROD«, l3=0x0a}
0x059d5…059ed Line {l1=0x16, l2=» UNTIL POST.AFDELING=0«, l3=0x16}
0x059ed…059f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x059f3…059fb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x059fb…05a0f Line {l1=0x12, l2=»PROCEDURE OVERLAP;«, l3=0x12}
0x05a0f…05a37 Line {l1=0x26, l2=»VAR CURRRESS,CURRSLUT,CURRUGE:INTEGER;«, l3=0x26}
0x05a37…05a3a Line {l1=0x01, l2=» «, l3=0x01}
0x05a3a…05a51 Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x05a51…05a58 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05a58…05a6c Line {l1=0x12, l2=» IF LINES>68 THEN«, l3=0x12}
0x05a6c…05a75 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05a75…05ab4 Line {l1=0x3d, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3d}
0x05ab4…05ae8 Line {l1=0x32, l2=» WRITELN(LIST,'OVERLAPPENDE RESSOURCER',' ':20,«, l3=0x32}
0x05ae8…05b32 Line {l1=0x48, l2=» 'Udskriftsdato',SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):9:-2);«, l3=0x48}
0x05b32…05b5f Line {l1=0x2b, l2=» WRITELN(LIST,'Ressource Nr Uge');«, l3=0x2b}
0x05b5f…05b73 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x05b73…05b84 Line {l1=0x0f, l2=» RESS.NR:=0;«, l3=0x0f}
0x05b84…05b92 Line {l1=0x0c, l2=» LINES:=3«, l3=0x0c}
0x05b92…05b9a Line {l1=0x06, l2=» END;«, l3=0x06}
0x05b9a…05bbc Line {l1=0x20, l2=» ARBEDAG.NR:=REBELAST.STARTDAG;«, l3=0x20}
0x05bbc…05be4 Line {l1=0x26, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x26}
0x05be4…05c01 Line {l1=0x1b, l2=» IF CURRRESS<>RESS.NR THEN«, l3=0x1b}
0x05c01…05c0a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05c0a…05c1b Line {l1=0x0f, l2=» CURRUGE:=0;«, l3=0x0f}
0x05c1b…05c33 Line {l1=0x16, l2=» RESS.NR:=CURRRESS;«, l3=0x16}
0x05c33…05c57 Line {l1=0x22, l2=» GETREC(RESS.A);CHECK0(RESS.A);«, l3=0x22}
0x05c57…05c7e Line {l1=0x25, l2=» WRITE(LIST,RESS.BETEGN,RESS.NR:6)«, l3=0x25}
0x05c7e…05c85 Line {l1=0x05, l2=» END«, l3=0x05}
0x05c85…05c8d Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x05c8d…05cc5 Line {l1=0x36, l2=» IF CURRUGE<>ARBEDAG.UGENR THEN WRITE(LIST,' ':16);«, l3=0x36}
0x05cc5…05ce7 Line {l1=0x20, l2=» IF CURRUGE<>ARBEDAG.UGENR THEN«, l3=0x20}
0x05ce7…05cf0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05cf0…05d14 Line {l1=0x22, l2=» WRITELN(LIST,ARBEDAG.UGENR:6);«, l3=0x22}
0x05d14…05d31 Line {l1=0x1b, l2=» CURRUGE:=ARBEDAG.UGENR;«, l3=0x1b}
0x05d31…05d45 Line {l1=0x12, l2=» LINES:=LINES+1«, l3=0x12}
0x05d45…05d4c Line {l1=0x05, l2=» END«, l3=0x05}
0x05d4c…05d52 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05d52…05d55 Line {l1=0x01, l2=» «, l3=0x01}
0x05d55…05d68 Line {l1=0x11, l2=»BEGIN (*OVERLAP*)«, l3=0x11}
0x05d68…05d7c Line {l1=0x12, l2=» WITH REBELAST DO«, l3=0x12}
0x05d7c…05d85 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x05d85…05d91 Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x05d91…05da3 Line {l1=0x10, l2=» STARTDAG:=0;«, l3=0x10}
0x05da3…05db3 Line {l1=0x0e, l2=» STTIME:=0;«, l3=0x0e}
0x05db3…05dc3 Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x05dc3…05dd4 Line {l1=0x0f, l2=» OPERANR:=0;«, l3=0x0f}
0x05dd4…05de4 Line {l1=0x0e, l2=» SEKVNR:=0;«, l3=0x0e}
0x05de4…05df5 Line {l1=0x0f, l2=» ORDRENR:=0;«, l3=0x0f}
0x05df5…05e07 Line {l1=0x10, l2=» CURRRESS:=0;«, l3=0x10}
0x05e07…05e19 Line {l1=0x10, l2=» CURRSLUT:=0;«, l3=0x10}
0x05e19…05e29 Line {l1=0x0e, l2=» LINES:=72;«, l3=0x0e}
0x05e29…05e64 Line {l1=0x39, l2=» NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);«, l3=0x39}
0x05e64…05e71 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x05e71…05e85 Line {l1=0x12, l2=» WHILE IER=0 DO«, l3=0x12}
0x05e85…05e90 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x05e90…05ed0 Line {l1=0x3e, l2=» IF NR<>CURRRESS THEN BEGIN CURRSLUT:=0;CURRRESS:=NR END;«, l3=0x3e}
0x05ed0…05f06 Line {l1=0x34, l2=» IF 8*STARTDAG+STTIME<CURRSLUT THEN SKRIVLINIE;«, l3=0x34}
0x05f06…05f39 Line {l1=0x31, l2=» IF CURRSLUT<8*STARTDAG+STTIME+VARIGHED THEN«, l3=0x31}
0x05f39…05f68 Line {l1=0x2d, l2=» CURRSLUT:=8*STARTDAG+STTIME+VARIGHED;«, l3=0x2d}
0x05f68…05f7a Line {l1=0x10, l2=» NEXTREC(A)«, l3=0x10}
0x05f7a…05f84 Line {l1=0x08, l2=» END;«, l3=0x08}
0x05f84…05fb1 Line {l1=0x2b, l2=» IF NOT (-IER IN (.2,9.)) THEN ERROR(A);«, l3=0x2b}
0x05fb1…05fef Line {l1=0x3c, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END«, l3=0x3c}
0x05fef…05ff6 Line {l1=0x05, l2=» END«, l3=0x05}
0x05ff6…05ffc Line {l1=0x04, l2=»END;«, l3=0x04}
0x05ffc…06004 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x06004…06018 Line {l1=0x12, l2=»BEGIN (*PLANUDSK*)«, l3=0x12}
0x06018…06024 Line {l1=0x0a, l2=» D(10,7);«, l3=0x0a}
0x06024…0603d Line {l1=0x17, l2=» WRITELN('0 Fortryd');«, l3=0x17}
0x0603d…06067 Line {l1=0x28, l2=» WRITELN('1 Gantt-kort for ressource');«, l3=0x28}
0x06067…06096 Line {l1=0x2d, l2=» WRITELN('2 Belastningsplan for ressource');«, l3=0x2d}
0x06096…060b7 Line {l1=0x1f, l2=» WRITELN('3 Produktionsplan');«, l3=0x1f}
0x060b7…060d9 Line {l1=0x20, l2=» WRITELN('4 Ressourceoverlap');«, l3=0x20}
0x060d9…060f2 Line {l1=0x17, l2=» LÆSFELT(PICTURE(13));«, l3=0x17}
0x060f2…06109 Line {l1=0x15, l2=» CASE POST.OPTION OF«, l3=0x15}
0x06109…0611f Line {l1=0x14, l2=» 1,2,3:FORMULAR(1);«, l3=0x14}
0x0611f…06130 Line {l1=0x0f, l2=» 4:FORMULAR(3)«, l3=0x0f}
0x06130…06138 Line {l1=0x06, l2=» END;«, l3=0x06}
0x06138…0614f Line {l1=0x15, l2=» CASE POST.OPTION OF«, l3=0x15}
0x0614f…0615f Line {l1=0x0e, l2=» 1:GANTTKORT;«, l3=0x0e}
0x0615f…06170 Line {l1=0x0f, l2=» 2:BELASTPLAN;«, l3=0x0f}
0x06170…0617f Line {l1=0x0d, l2=» 3:PRODPLAN;«, l3=0x0d}
0x0617f…0618c Line {l1=0x0b, l2=» 4:OVERLAP«, l3=0x0b}
0x0618c…06193 Line {l1=0x05, l2=» END«, l3=0x05}
0x06193…06199 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06199…061a1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x061a1…061b6 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x061b6…061c4 Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x061c4…061d8 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x061d8…061e2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x061e2…061fc Line {l1=0x18, l2=» LÆSFELT(PICTURE(4));«, l3=0x18}
0x061fc…0621e Line {l1=0x20, l2=» UGEDAG.UGENR:=POST.STARTUGE;«, l3=0x20}
0x0621e…06263 Line {l1=0x43, l2=» GETREC(UGEDAG.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(UGEDAG.A);«, l3=0x43}
0x06263…06276 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x06276…06281 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x06281…062a5 Line {l1=0x22, l2=» ARBEDAG.NR:=UGEDAG.ARBDAGNR;«, l3=0x22}
0x062a5…062ee Line {l1=0x47, l2=» GETREC(ARBEDAG.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ARBEDAG.A);«, l3=0x47}
0x062ee…06329 Line {l1=0x39, l2=» IF (SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2))>«, l3=0x39}
0x06329…0636a Line {l1=0x3f, l2=» (ARBEDAG.DATO(1)*10000.0+ARBEDAG.DATO(2)) THEN IER:=-6«, l3=0x3f}
0x0636a…06373 Line {l1=0x07, l2=» END«, l3=0x07}
0x06373…06383 Line {l1=0x0e, l2=» UNTIL IER=0;«, l3=0x0e}
0x06383…063a2 Line {l1=0x1d, l2=» PSTARTDAG:=UGEDAG.ARBDAGNR;«, l3=0x1d}
0x063a2…063ae Line {l1=0x0a, l2=» PLANUDSK«, l3=0x0a}
0x063ae…063b4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x063b4…063bc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x063bc…063cf Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x063cf…063e1 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x063e1…063f3 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x063f3…06407 Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x06407…0641c Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x0641c…06430 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x06430…0646f Line {l1=0x3d, l2=» PIND:='**************************************************';«, l3=0x3d}
0x0646f…0647f Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0647f…0648b Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x0648b…064a0 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x064a0…064ab Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x064ab…064c1 Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0x064c1…064db Line {l1=0x18, l2=» RESSGRUP.A(-4):=0; «, l3=0x18}
0x064db…064f1 Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0x064f1…06507 Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0x06507…0651b Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x0651b…0653a Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0x0653a…06559 Line {l1=0x1d, l2=» ORDRE.A(-4):=0; «, l3=0x1d}
0x06559…0656f Line {l1=0x14, l2=» REBELAST.A(-4):=0;«, l3=0x14}
0x0656f…06583 Line {l1=0x12, l2=» UGEDAG.A(-4):=0;«, l3=0x12}
0x06583…06598 Line {l1=0x13, l2=» ARBEDAG.A(-4):=0;«, l3=0x13}
0x06598…065ad Line {l1=0x13, l2=» UGEDAG.A(-3):=21;«, l3=0x13}
0x065ad…065c3 Line {l1=0x14, l2=» ARBEDAG.A(-3):=22;«, l3=0x14}
0x065c3…065d9 Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0x065d9…065f3 Line {l1=0x18, l2=» RESSGRUP.A(-3):=3; «, l3=0x18}
0x065f3…06609 Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0x06609…0661f Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0x0661f…06633 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x06633…0664b Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0x0664b…06663 Line {l1=0x16, l2=» ORDRE.A(-3):=10; «, l3=0x16}
0x06663…0667a Line {l1=0x15, l2=» REBELAST.A(-3):=15;«, l3=0x15}
0x0667a…06685 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x06685…066b3 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x066b3…066da Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0x066da…066eb Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x066eb…06711 Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0x06711…06726 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x06726…06751 Line {l1=0x29, l2=» IOPEN(ORDRE.A); CHECK0(ORDRE.A); «, l3=0x29}
0x06751…0677f Line {l1=0x2c, l2=» IOPEN(REBELAST.A); CHECK0(REBELAST.A); «, l3=0x2c}
0x0677f…067aa Line {l1=0x29, l2=» IOPEN(PROD.A); CHECK0(PROD.A); «, l3=0x29}
0x067aa…067d3 Line {l1=0x27, l2=» IOPEN(UGEDAG.A); CHECK0(UGEDAG.A);«, l3=0x27}
0x067d3…067fd Line {l1=0x28, l2=» IOPEN(ARBEDAG.A); CHECK0(ARBEDAG.A);«, l3=0x28}
0x067fd…06828 Line {l1=0x29, l2=» IOPEN(RESSGRUP.A); CHECK0(RESSGRUP.A);«, l3=0x29}
0x06828…0684f Line {l1=0x25, l2=» IOPEN(EMNE.A); CHECK0(EMNE.A);«, l3=0x25}
0x0684f…06876 Line {l1=0x25, l2=» IOPEN(RESS.A); CHECK0(RESS.A);«, l3=0x25}
0x06876…0688b Line {l1=0x13, l2=» POST.STARTUGE:=0;«, l3=0x13}
0x0688b…06895 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x06895…068a7 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x068a7…068de Line {l1=0x35, l2=» IF QJN('Flere planlægningsudskrifter') IN JA THEN«, l3=0x35}
0x068de…068e9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x068e9…068fb Line {l1=0x10, l2=» OPTION:=1;«, l3=0x10}
0x068fb…0690b Line {l1=0x0e, l2=» MAINTAIN«, l3=0x0e}
0x0690b…06924 Line {l1=0x17, l2=» END ELSE OPTION:=0 «, l3=0x17}
0x06924…06937 Line {l1=0x11, l2=» UNTIL OPTION=0;«, l3=0x11}
0x06937…0693a Line {l1=0x01, l2=» «, l3=0x01}
0x0693a…06952 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x06952…06969 Line {l1=0x15, l2=» ICLOSE(REBELAST.A);«, l3=0x15}
0x06969…0697d Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x0697d…06992 Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0x06992…069a8 Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0x069a8…069bf Line {l1=0x15, l2=» ICLOSE(RESSGRUP.A);«, l3=0x15}
0x069bf…069d2 Line {l1=0x11, l2=» ICLOSE(EMNE.A);«, l3=0x11}
0x069d2…069e5 Line {l1=0x11, l2=» ICLOSE(RESS.A);«, l3=0x11}
0x069e5…069f5 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x069f5…069fb Line {l1=0x04, l2=»END;«, l3=0x04}
0x069fb…06a03 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x06a03…06a0a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06a0a…06a24 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x06a24…06a3c Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x06a3c…06a52 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x06a52…06a62 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x06a62…06a6b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06a6b…06a8e Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x06a8e…06a9a Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x06a9a…06aea Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x06aea…06afa Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x06afa…06b3a Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x06b3a…06b8a Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x06b8a…06ba3 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x06ba3…06bbd Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x06bbd…06bdb Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x06bdb…06bec Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x06bec…06c0d Line {l1=0x1f, l2=» DESCNAVN:='PLANPESC:P2:05:J';«, l3=0x1f}
0x06c0d…06c21 Line {l1=0x12, l2=» IF RESPRINT THEN«, l3=0x12}
0x06c21…06c2a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06c2a…06c39 Line {l1=0x0d, l2=» REGVEDL; «, l3=0x0d}
0x06c39…06c45 Line {l1=0x0a, l2=» FREEPR«, l3=0x0a}
0x06c45…06c4d Line {l1=0x06, l2=» END;«, l3=0x06}
0x06c4d…06c65 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x06c65…06c7e Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x06c7e…06c9c Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x06c9c…06cb1 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x06cb1…06cd9 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x06cd9…06cfb Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x06cfb…06d30 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x06d30…06d36 Line {l1=0x04, l2=»END.«, l3=0x04}
0x06d36…06d40 00 00 44 29 3b 17 1c 20 20 49 ┆ D); I┆
0x06d40…06d60 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 1c 13 20 20 46 4e 41 ┆F IER<>0 THEN BAD(2,IER); FNA┆
0x06d60…06d80 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 31 20 54 4f 20 37 20 ┆VN:=' '; & FOR I:=1 TO 7 ┆
0x06d80…06da0 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 20 43 48 41 49 4e 28 ┆DO FNAVN(I):=PARM^(I);& CHAIN(┆
0x06da0…06dc0 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 33 20 20 49 46 20 49 ┆'HOVED *1',FNAVN,QUQ); 3 IF I┆
0x06dc0…06de0 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c ┆ORESULT<>0 THEN WRITELN('IORESUL┆
0x06de0…06e00 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 4e 07 10 20 20 20 20 43 4c 45 ┆T ',IORESULT)3 END. N CLE┆
0x06e00…06e20 41 52 53 43 52 45 45 4e 3b 10 42 20 20 20 20 53 4b 45 4d 41 3a 3d 27 7e 20 20 20 20 20 20 20 20 ┆ARSCREEN; B SKEMA:='ü ┆
0x06e20…06e40 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 ┆ ┆
0x06e40…06e60 20 20 20 20 20 20 20 20 20 20 7e 27 3b 42 29 20 20 20 20 57 52 49 54 45 28 27 4f 72 64 72 65 6e ┆ ü';B) WRITE('Ordren┆
0x06e60…06e80 72 20 20 3a 27 2c 4f 52 44 52 45 2e 4e 52 3a 35 2c 27 20 27 3a 35 29 3b 29 1a 20 20 20 20 41 52 ┆r :',ORDRE.NR:5,' ':5);) AR┆
0x06e80…06ea0 42 45 44 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 ┆BEDAG.NR:=PSTARTDAG; ( GETREC┆
0x06ea0…06ec0 28 41 52 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 0f ┆(ARBEDAG.A);CHECK0(ARBEDAG.A);( ┆
0x06ec0…06ee0 20 20 20 20 41 4b 54 57 45 45 4b 3a 3d 30 3b 0f 15 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆ AKTWEEK:=0; FOR I:=1 TO┆
0x06ee0…06f00 20 32 35 20 44 4f 15 09 20 20 20 20 42 45 47 49 4e 09 24 20 20 20 20 20 20 49 46 20 41 4b 54 57 ┆ 25 DO BEGIN $ IF AKTW┆
0x06f00…06f20 45 45 4b 3c 3e 41 52 42 45 44 41 47 2e 55 47 45 4e 52 20 54 48 45 4e 24 0b 20 20 20 20 20 20 42 ┆EEK<>ARBEDAG.UGENR THEN$ B┆
0x06f20…06f40 45 47 49 4e 0b 1a 20 20 20 20 20 20 20 20 53 4b 45 4d 41 28 32 2a 49 2d 31 29 3a 3d 27 7e 27 3b ┆EGIN SKEMA(2*I-1):='ü';┆
0x06f40…06f60 1a 1f 20 20 20 20 20 20 20 20 41 4b 54 57 45 45 4b 3a 3d 41 52 42 45 44 41 47 2e 55 47 45 4e 52 ┆ AKTWEEK:=ARBEDAG.UGENR┆
0x06f60…06f80 3b 1f 26 20 20 20 20 20 20 20 20 57 52 49 54 45 28 41 52 42 45 44 41 47 2e 55 47 45 4e 52 20 4d ┆; & WRITE(ARBEDAG.UGENR M┆
0x06f80…06fa0 4f 44 20 31 30 30 3a 32 29 26 09 20 20 20 20 20 20 45 4e 44 09 18 20 20 20 20 20 20 45 4c 53 45 ┆OD 100:2)& END ELSE┆
0x06fa0…06fc0 20 57 52 49 54 45 28 27 20 27 3a 32 29 3b 18 4a 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 41 52 ┆ WRITE(' ':2); J NEXTREC(AR┆
0x06fc0…06fe0 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 2e 2e 32 2c ┆BEDAG.A);IF NOT (-IER IN (.0..2,┆
0x06fe0…07000 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 41 52 42 45 44 41 47 2e 41 29 4a 08 20 20 20 20 ┆9.)) THEN ERROR(ARBEDAG.A)J ┆
0x07000…07020 45 4e 44 3b 08 18 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 4c 65 76 65 72 65 73 27 29 3b 18 22 ┆END; WRITELN(' Leveres'); "┆
0x07020…07040 20 20 20 20 57 52 49 54 45 28 27 4e 72 20 4f 70 65 72 61 20 42 65 74 65 67 6e 65 6c 73 65 20 27 ┆ WRITE('Nr Opera Betegnelse '┆
0x07040…07060 29 3b 22 1a 20 20 20 20 41 52 42 45 44 41 47 2e 4e 52 3a 3d 50 53 54 41 52 54 44 41 47 3b 1a 28 ┆);" ARBEDAG.NR:=PSTARTDAG; (┆
0x07060…07080 20 20 20 20 47 45 54 52 45 43 28 41 52 42 45 44 41 47 2e 41 29 3b 43 48 45 43 4b 30 28 41 52 42 ┆ GETREC(ARBEDAG.A);CHECK0(ARB┆
0x07080…070a0 45 44 41 47 2e 41 29 3b 28 0e 20 20 20 20 41 4b 54 44 41 47 3a 3d 30 3b 0e 0f 20 20 20 20 41 4b ┆EDAG.A);( AKTDAG:=0; AK┆
0x070a0…070c0 54 57 45 45 4b 3a 3d 30 3b 0f 15 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 35 20 44 4f ┆TWEEK:=0; FOR I:=1 TO 25 DO┆
0x070c0…070e0 15 09 20 20 20 20 42 45 47 49 4e 09 24 20 20 20 20 20 20 49 46 20 41 4b 54 57 45 45 4b 3c 3e 41 ┆ BEGIN $ IF AKTWEEK<>A┆
0x070e0…07100 52 42 45 44 41 47 2e 55 47 45 4e 52 20 54 48 45 4e 24 32 20 20 20 20 20 20 42 45 47 49 4e 20 41 ┆RBEDAG.UGENR THEN$2 BEGIN A┆
0x07100…07120 4b 54 44 41 47 3a 3d 30 3b 20 41 4b 54 57 45 45 4b 3a 3d 41 52 42 45 44 41 47 2e 55 47 45 4e 52 ┆KTDAG:=0; AKTWEEK:=ARBEDAG.UGENR┆
0x07120…07140 20 45 4e 44 3b 32 16 20 20 20 20 20 20 49 46 20 41 4b 54 44 41 47 3c 35 20 54 48 45 4e 16 0b 20 ┆ END;2 IF AKTDAG<5 THEN ┆
0x07140…07160 20 20 20 20 20 42 45 47 49 4e 0b 19 20 20 20 20 20 20 20 20 41 4b 54 44 41 47 3a 3d 41 4b 54 44 ┆ BEGIN AKTDAG:=AKTD┆
0x07160…07180 41 47 2b 31 3b 19 17 20 20 20 20 20 20 20 20 57 52 49 54 45 28 41 4b 54 44 41 47 3a 32 29 17 09 ┆AG+1; WRITE(AKTDAG:2) ┆
0x07180…071a0 20 20 20 20 20 20 45 4e 44 09 18 20 20 20 20 20 20 45 4c 53 45 20 57 52 49 54 45 28 27 20 27 3a ┆ END ELSE WRITE(' ':┆
0x071a0…071c0 32 29 3b 18 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 ┆2); J NEXTREC(ARBEDAG.A);IF┆
0x071c0…071e0 20 4e 4f 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 ┆ NOT (-IER IN (.0..2,9.)) THEN E┆
0x071e0…07200 52 52 4f 52 28 41 52 42 45 44 41 47 2e 41 29 4a 08 20 20 20 20 45 4e 44 3b 08 19 20 20 20 20 57 ┆RROR(ARBEDAG.A)J END; W┆
0x07200…07220 52 49 54 45 4c 4e 28 27 20 55 67 65 20 20 61 6e 74 27 29 3b 19 0a 20 20 20 20 46 52 41 3a 3d 31 ┆RITELN(' Uge ant'); FRA:=1┆
0x07220…07240 0a 06 20 20 45 4e 44 3b 06 16 20 20 46 4f 52 20 49 3a 3d 46 52 41 20 54 4f 20 54 49 4c 20 44 4f ┆ END; FOR I:=FRA TO TIL DO┆
0x07240…07260 16 2f 20 20 57 49 54 48 20 4f 52 44 45 4c 49 4e 28 4f 52 44 45 4e 52 28 49 29 29 2c 52 45 42 58 ┆ / WITH ORDELIN(ORDENR(I)),REBX┆
0x07260…07280 54 52 41 28 4f 52 44 45 4e 52 28 49 29 29 20 44 4f 2f 07 20 20 42 45 47 49 4e 07 3a 20 20 20 20 ┆TRA(ORDENR(I)) DO/ BEGIN : ┆
0x07280…072a0 53 54 41 52 54 44 41 47 3a 3d 53 54 41 52 54 54 49 44 20 4d 4f 44 20 31 30 30 30 3b 53 54 54 49 ┆STARTDAG:=STARTTID MOD 1000;STTI┆
0x072a0…072c0 4d 45 3a 3d 53 54 41 52 54 54 49 44 20 44 49 56 20 31 30 30 30 3b 3a 12 20 20 20 20 47 4f 54 4f ┆ME:=STARTTID DIV 1000;: GOTO┆
0x072c0…072e0 58 59 28 31 2c 49 2b 32 29 3b 12 2a 20 20 20 20 57 52 49 54 45 28 49 3a 32 2c 4f 50 45 52 41 4e ┆XY(1,I+2); * WRITE(I:2,OPERAN┆
0x072e0…07300 52 3a 36 2c 27 20 27 2c 42 45 54 45 47 4e 2c 53 4b 45 4d 41 29 3b 2a 2d 20 20 20 20 49 46 20 28 ┆R:6,' ',BETEGN,SKEMA);*- IF (┆
0x07300…07320 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 2e 2e 32 34 2e 29 ┆STARTDAG-PSTARTDAG) IN (.0..24.)┆
0x07320…07340 20 54 48 45 4e 2d 09 20 20 20 20 42 45 47 49 4e 09 2c 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 ┆ THEN- BEGIN , GOTOXY(2┆
0x07340…07360 31 2b 32 2a 28 53 54 41 52 54 44 41 47 2d 50 53 54 41 52 54 44 41 47 29 2c 49 2b 32 29 3b 2c 22 ┆1+2*(STARTDAG-PSTARTDAG),I+2);,"┆
0x07360…07380 20 20 20 20 20 20 49 46 20 53 54 54 49 4d 45 3e 34 20 54 48 45 4e 20 57 52 49 54 45 28 27 20 27 ┆ IF STTIME>4 THEN WRITE(' '┆
0x07380…073a0 29 3b 22 36 20 20 20 20 20 20 49 46 20 53 54 41 52 54 44 41 47 2d 50 53 54 41 52 54 44 41 47 2b ┆);"6 IF STARTDAG-PSTARTDAG+┆
0x073a0…073c0 28 56 41 52 49 47 48 45 44 2d 31 29 20 44 49 56 20 38 3c 32 36 20 54 48 45 4e 36 16 20 20 20 20 ┆(VARIGHED-1) DIV 8<26 THEN6 ┆
0x073c0…073e0 20 20 20 20 52 45 53 54 3a 3d 56 41 52 49 47 48 45 44 16 0a 20 20 20 20 20 20 45 4c 53 45 0a 29 ┆ REST:=VARIGHED ELSE )┆
0x073e0…07400 20 20 20 20 20 20 20 20 52 45 53 54 3a 3d 32 30 30 2d 28 53 54 41 52 54 44 41 47 2d 50 53 54 41 ┆ REST:=200-(STARTDAG-PSTA┆
0x07400…07420 52 54 44 41 47 29 2a 38 3b 29 1a 20 20 20 20 20 20 43 41 53 45 20 53 54 54 49 4d 45 20 4d 4f 44 ┆RTDAG)*8;) CASE STTIME MOD┆
0x07420…07440 20 34 20 4f 46 1a 25 20 20 20 20 20 20 30 3a 42 45 47 49 4e 20 43 3a 3d 34 30 3b 52 45 53 54 3a ┆ 4 OF % 0:BEGIN C:=40;REST:┆
0x07440…07460 3d 52 45 53 54 2d 31 20 45 4e 44 3b 25 18 20 20 20 20 20 20 32 3a 43 41 53 45 20 56 41 52 49 47 ┆=REST-1 END;% 2:CASE VARIG┆
0x07460…07480 48 45 44 20 4f 46 18 27 20 20 20 20 20 20 20 20 31 3a 42 45 47 49 4e 20 43 3a 3d 33 36 3b 52 45 ┆HED OF ' 1:BEGIN C:=36;RE┆
0x07480…074a0 53 54 3a 3d 52 45 53 54 2d 31 20 45 4e 44 3b 27 27 20 20 20 20 20 20 20 20 32 3a 42 45 47 49 4e ┆ST:=REST-1 END;'' 2:BEGIN┆
0x074a0…074c0 20 43 3a 3d 33 38 3b 52 45 53 54 3a 3d 52 45 53 54 2d 32 20 45 4e 44 3b 27 2f 20 20 20 20 20 20 ┆ C:=38;REST:=REST-2 END;'/ ┆
0x074c0…074e0 20 20 4f 54 48 45 52 57 49 53 45 20 42 45 47 49 4e 20 43 3a 3d 34 36 3b 52 45 53 54 3a 3d 52 45 ┆ OTHERWISE BEGIN C:=46;REST:=RE┆
0x074e0…07500 53 54 2d 33 20 45 4e 44 3b 2f 37 20 20 20 20 20 20 33 3a 49 46 20 56 41 52 49 47 48 45 44 3d 31 ┆ST-3 END;/7 3:IF VARIGHED=1┆
0x07500…07520 20 54 48 45 4e 20 42 45 47 49 4e 20 43 3a 3d 33 34 3b 52 45 53 54 3a 3d 52 45 53 54 2d 31 20 45 ┆ THEN BEGIN C:=34;REST:=REST-1 E┆
0x07520…07540 4e 44 37 2a 20 20 20 20 20 20 20 20 45 4c 53 45 20 42 45 47 49 4e 20 43 3a 3d 34 32 3b 52 45 53 ┆ND7* ELSE BEGIN C:=42;RES┆
0x07540…07560 54 3a 3d 52 45 53 54 2d 32 20 45 4e 44 3b 2a 15 20 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 20 ┆T:=REST-2 END;* OTHERWISE ┆
0x07560…07580 43 3a 3d 30 3b 15 11 20 20 20 20 20 20 49 46 20 43 3e 30 20 54 48 45 4e 11 0b 20 20 20 20 20 20 ┆C:=0; IF C>0 THEN ┆
0x07580…075a0 42 45 47 49 4e 0b 13 20 20 20 20 20 20 20 20 43 48 3a 3d 43 48 52 28 43 29 3b 13 15 20 20 20 20 ┆BEGIN CH:=CHR(C); ┆
0x075a0…075c0 20 20 20 20 57 52 49 54 45 28 45 53 43 2c 43 48 29 15 0a 20 20 20 20 20 20 45 4e 44 3b 0a 12 20 ┆ WRITE(ESC,CH) END; ┆
0x075c0…075e0 20 20 20 20 20 43 48 3a 3d 43 48 52 28 34 37 29 3b 12 15 20 20 20 20 20 20 57 48 49 4c 45 20 52 ┆ CH:=CHR(47); WHILE R┆
0x075e0…07600 45 53 54 3e 33 20 44 4f 15 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 16 20 20 20 20 20 20 20 20 57 ┆EST>3 DO BEGIN W┆
0x07600…07620 52 49 54 45 28 45 53 43 2c 43 48 29 3b 16 14 20 20 20 20 20 20 20 20 52 45 53 54 3a 3d 52 45 53 ┆RITE(ESC,CH); REST:=RES┆
0x07620…07640 54 2d 34 14 0a 20 20 20 20 20 20 45 4e 44 3b 0a 12 20 20 20 20 20 20 43 41 53 45 20 52 45 53 54 ┆T-4 END; CASE REST┆
0x07640…07660 20 4f 46 12 0e 20 20 20 20 20 20 31 3a 43 3a 3d 33 33 3b 0e 0e 20 20 20 20 20 20 32 3a 43 3a 3d ┆ OF 1:C:=33; 2:C:=┆
0x07660…07680 33 37 3b 0e 0e 20 20 20 20 20 20 33 3a 43 3a 3d 33 39 3b 0e 15 20 20 20 20 20 20 4f 54 48 45 52 ┆37; 3:C:=39; OTHER┆
0x07680…076a0 57 49 53 45 20 43 3a 3d 30 3b 15 11 20 20 20 20 20 20 49 46 20 43 3e 30 20 54 48 45 4e 11 0b 20 ┆WISE C:=0; IF C>0 THEN ┆
0x076a0…076c0 20 20 20 20 20 42 45 47 49 4e 0b 13 20 20 20 20 20 20 20 20 43 48 3a 3d 43 48 52 28 43 29 3b 13 ┆ BEGIN CH:=CHR(C); ┆
0x076c0…076e0 15 20 20 20 20 20 20 20 20 57 52 49 54 45 28 45 53 43 2c 43 48 29 15 0a 20 20 20 20 20 20 45 4e ┆ WRITE(ESC,CH) EN┆
0x076e0…07700 44 20 0a 08 20 20 20 20 45 4e 44 3b 08 13 20 20 20 20 47 4f 54 4f 58 59 28 37 32 2c 49 2b 32 29 ┆D END; GOTOXY(72,I+2)┆
0x07700…07720 3b 13 16 20 20 20 20 49 46 20 42 45 4b 52 5b 4c 45 56 3e 30 20 54 48 45 4e 16 23 20 20 20 20 20 ┆; IF BEKRÆLEV>0 THEN # ┆
0x07720…07740 20 57 52 49 54 45 28 42 45 4b 52 5b 4c 45 56 20 4d 4f 44 20 31 30 30 3a 32 2c 27 21 27 29 23 08 ┆ WRITE(BEKRÆLEV MOD 100:2,'!')# ┆
0x07740…07760 20 20 20 20 45 4c 53 45 08 23 20 20 20 20 20 20 57 52 49 54 45 28 5c 4e 53 4b 4c 45 56 20 4d 4f ┆ ELSE # WRITE(ØNSKLEV MO┆
0x07760…07780 44 20 31 30 30 3a 32 2c 27 20 27 29 3b 23 18 20 20 20 20 57 52 49 54 45 28 41 4e 54 41 4c 42 45 ┆D 100:2,' ');# WRITE(ANTALBE┆
0x07780…077a0 53 3a 35 3a 2d 32 29 18 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 12 50 52 ┆S:5:-2) END END; (*$P*) PR┆
0x077a0…077c0 4f 43 45 44 55 52 45 20 47 45 54 50 52 4f 44 3b 12 05 42 45 47 49 4e 05 1b 20 20 50 52 4f 44 2e ┆OCEDURE GETPROD; BEGIN PROD.┆
0x077c0…077e0 4f 52 44 52 45 4e 52 3a 3d 50 4f 53 54 2e 4f 52 44 52 45 3b 1b 1b 20 20 50 52 4f 44 2e 45 4d 4e ┆ORDRENR:=POST.ORDRE; PROD.EMN┆
0x077e0…07800 45 4e 52 3a 3d 50 4f 53 54 2e 45 4d 4e 45 4e 52 3b 1b 13 20 20 50 52 4f 44 2e 53 45 4b 56 45 4e ┆ENR:=POST.EMNENR; PROD.SEKVEN┆
0x07800…07820 53 4e 3a 3d 30 3b 13 12 20 20 50 52 4f 44 2e 4f 50 45 52 41 4e 52 3a 3d 30 3b 12 41 20 20 4e 45 ┆SN:=0; PROD.OPERANR:=0; A NE┆
0x07820…07840 58 54 52 45 43 28 50 52 4f 44 2e 41 29 3b 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e ┆XTREC(PROD.A);IF NOT (-IER IN (.┆
0x07840…07860 30 2e 2e 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 50 52 4f 44 2e 41 29 3b 41 09 20 ┆0..2,9.)) THEN ERROR(PROD.A);A ┆
0x07860…07880 20 49 45 52 3a 3d 30 3b 09 09 20 20 55 44 45 3a 3d 30 3b 09 0d 20 20 41 4e 54 4c 49 4e 45 3a 3d ┆ IER:=0; UDE:=0; ANTLINE:=┆
0x07880…078a0 30 3b 0d 4b 20 20 57 48 49 4c 45 20 28 49 45 52 3d 30 29 20 41 4e 44 20 28 50 52 4f 44 2e 4f 52 ┆0; K WHILE (IER=0) AND (PROD.OR┆
0x078a0…078c0 44 52 45 4e 52 3d 50 4f 53 54 2e 4f 52 44 52 45 29 20 41 4e 44 20 28 50 52 4f 44 2e 45 4d 4e 45 ┆DRENR=POST.ORDRE) AND (PROD.EMNE┆
0x078c0…078e0 4e 52 3d 50 4f 53 54 2e 45 4d 4e 45 4e 52 29 4b 41 20 20 20 20 41 4e 44 20 28 50 52 4f 44 2e 53 ┆NR=POST.EMNENR)KA AND (PROD.S┆
0x078e0…07900 54 41 52 54 54 49 44 20 4d 4f 44 20 31 30 30 30 2d 50 53 54 41 52 54 44 41 47 3c 32 35 29 20 41 ┆TARTTID MOD 1000-PSTARTDAG<25) A┆
0x07900…07920 4e 44 20 28 41 4e 54 4c 49 4e 45 3c 32 30 29 20 44 4f 41 07 20 20 42 45 47 49 4e 07 2c 20 20 20 ┆ND (ANTLINE<20) DOA BEGIN , ┆
0x07920…07940 49 46 20 50 52 4f 44 2e 53 54 41 52 54 54 49 44 20 4d 4f 44 20 31 30 30 30 3e 3d 50 53 54 41 52 ┆IF PROD.STARTTID MOD 1000>=PSTAR┆
0x07940…07960 54 44 41 47 20 54 48 45 4e 2c 08 20 20 20 42 45 47 49 4e 08 17 20 20 20 20 41 4e 54 4c 49 4e 45 ┆TDAG THEN, BEGIN ANTLINE┆
0x07960…07980 3a 3d 41 4e 54 4c 49 4e 45 2b 31 3b 17 1d 20 20 20 20 4f 52 44 45 4e 52 28 41 4e 54 4c 49 4e 45 ┆:=ANTLINE+1; ORDENR(ANTLINE┆
0x07980…079a0 29 3a 3d 41 4e 54 4c 49 4e 45 3b 1d 07 28 2a 24 52 2d 2a 29 07 31 20 20 20 20 4d 4f 56 45 4c 45 ┆):=ANTLINE; (*$R-*) 1 MOVELE┆
0x079a0…079c0 46 54 28 50 52 4f 44 2e 41 28 31 29 2c 4f 52 44 45 4c 49 4e 28 41 4e 54 4c 49 4e 45 29 2e 41 28 ┆FT(PROD.A(1),ORDELIN(ANTLINE).A(┆
0x079c0…079e0 31 29 2c 34 32 29 3b 31 07 28 2a 24 52 2b 2a 29 07 1b 20 20 20 20 4f 50 45 52 41 2e 4e 52 3a 3d ┆1),42);1 (*$R+*) OPERA.NR:=┆
0x079e0…07a00 50 52 4f 44 2e 4f 50 45 52 41 4e 52 3b 1b 24 20 20 20 20 47 45 54 52 45 43 28 4f 50 45 52 41 2e ┆PROD.OPERANR; $ GETREC(OPERA.┆
0x07a00…07a20 41 29 3b 43 48 45 43 4b 30 28 4f 50 45 52 41 2e 41 29 3b 24 3c 20 20 20 20 4d 4f 56 45 4c 45 46 ┆A);CHECK0(OPERA.A);$< MOVELEF┆
0x07a20…07a40 54 28 4f 50 45 52 41 2e 42 45 54 45 47 4e 28 31 29 2c 52 45 42 58 54 52 41 28 41 4e 54 4c 49 4e ┆T(OPERA.BETEGN(1),REBXTRA(ANTLIN┆
0x07a40…07a60 45 29 2e 42 45 54 45 47 4e 28 31 29 2c 31 30 29 3b 3c 25 20 20 20 20 52 45 42 58 54 52 41 28 41 ┆E).BETEGN(1),10);<% REBXTRA(A┆
0x07a60…07a80 4e 54 4c 49 4e 45 29 2e 50 4c 41 4e 4c 41 47 54 3a 3d 46 41 4c 53 45 3b 25 07 20 20 20 45 4e 44 ┆NTLINE).PLANLAGT:=FALSE;% END┆
0x07a80…07aa0 3b 07 12 20 20 20 4e 45 58 54 52 45 43 28 50 52 4f 44 2e 41 29 12 06 20 20 45 4e 44 3b 06 2f 20 ┆; NEXTREC(PROD.A) END; / ┆
0x07aa0…07ac0 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┆
0x07ac0…07ae0 20 45 52 52 4f 52 28 50 52 4f 44 2e 41 29 2f 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 11 50 52 ┆ ERROR(PROD.A)/ END; (*$P*) PR┆
0x07ae0…07b00 4f 43 45 44 55 52 45 20 5b 53 54 41 52 54 3b 11 20 56 41 52 20 47 53 54 54 49 4d 45 2c 53 54 54 ┆OCEDURE ÆSTART; VAR GSTTIME,STT┆
0x07b00…07b20 49 4d 45 2c 44 49 46 46 3a 49 4e 54 45 47 45 52 3b 20 05 42 45 47 49 4e 05 0d 20 57 49 54 48 20 ┆IME,DIFF:INTEGER; BEGIN WITH ┆
0x07b20…07b40 50 4f 53 54 20 44 4f 0d 06 20 42 45 47 49 4e 06 3b 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 ┆POST DO BEGIN ; LÆSFELT(PICTU┆
0x07b40…07b60 52 45 28 35 29 29 3b 49 46 20 4c 49 4e 49 45 4e 52 3e 41 4e 54 4c 49 4e 45 20 54 48 45 4e 20 45 ┆RE(5));IF LINIENR>ANTLINE THEN E┆
0x07b60…07b80 58 49 54 28 5b 53 54 41 52 54 29 3b 3b 16 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 ┆XIT(ÆSTART);; LÆSFELT(PICTURE(┆
0x07b80…07ba0 36 29 29 3b 16 1a 20 20 49 46 20 55 47 45 20 49 4e 20 28 2e 31 2e 2e 32 30 2e 29 20 54 48 45 4e ┆6)); IF UGE IN (.1..20.) THEN┆
0x07ba0…07bc0 1a 07 20 20 42 45 47 49 4e 07 17 20 20 20 20 49 46 20 28 55 47 45 3e 41 4e 54 4c 49 4e 45 29 20 ┆ BEGIN IF (UGE>ANTLINE) ┆
0x07bc0…07be0 4f 52 17 4d 20 20 20 20 20 20 20 28 55 47 45 3d 4c 49 4e 49 45 4e 52 29 20 4f 52 20 28 55 47 45 ┆OR M (UGE=LINIENR) OR (UGE┆
0x07be0…07c00 3e 4c 49 4e 49 45 4e 52 2b 31 29 20 4f 52 20 28 55 47 45 3c 4c 49 4e 49 45 4e 52 2d 31 29 20 54 ┆>LINIENR+1) OR (UGE<LINIENR-1) T┆
0x07c00…07c20 48 45 4e 20 45 58 49 54 28 5b 53 54 41 52 54 29 3b 4d 33 20 20 20 20 53 54 54 49 4d 45 3a 3d 4f ┆HEN EXIT(ÆSTART);M3 STTIME:=O┆
0x07c20…07c40 52 44 45 4c 49 4e 28 4f 52 44 45 4e 52 28 55 47 45 29 29 2e 53 54 41 52 54 54 49 44 20 44 49 56 ┆RDELIN(ORDENR(UGE)).STARTTID DIV┆
0x07c40…07c60 20 31 30 30 30 2b 33 35 20 20 20 20 20 20 20 20 20 20 20 20 4f 52 44 45 4c 49 4e 28 4f 52 44 45 ┆ 1000+35 ORDELIN(ORDE┆
0x07c60…07c80 4e 52 28 55 47 45 29 29 2e 53 54 41 52 54 54 49 44 20 4d 4f 44 20 31 30 30 30 2a 38 3b 35 28 20 ┆NR(UGE)).STARTTID MOD 1000*8;5( ┆
0x07c80…07ca0 20 20 20 44 49 46 46 3a 3d 4f 52 44 45 4c 49 4e 28 4f 52 44 45 4e 52 28 55 47 45 29 29 2e 56 41 ┆ DIFF:=ORDELIN(ORDENR(UGE)).VA┆
0x07ca0…07cc0 52 49 47 48 45 44 2d 28 2c 20 20 20 20 20 20 20 20 20 20 4f 52 44 45 4c 49 4e 28 4f 52 44 45 4e ┆RIGHED-(, ORDELIN(ORDEN┆
0x07cc0…07ce0 52 28 4c 49 4e 49 45 4e 52 29 29 2e 56 41 52 49 47 48 45 44 3b 2c 34 20 20 20 20 49 46 20 44 49 ┆R(LINIENR)).VARIGHED;,4 IF DI┆
0x07ce0…07d00 46 46 2a 28 55 47 45 2d 4c 49 4e 49 45 4e 52 29 3c 30 20 54 48 45 4e 20 53 54 54 49 4d 45 3a 3d ┆FF*(UGE-LINIENR)<0 THEN STTIME:=┆
0x07d00…07d20 53 54 54 49 4d 45 2b 44 49 46 46 34 05 20 20 45 4e 44 05 06 20 20 45 4c 53 45 06 07 20 20 42 45 ┆STTIME+DIFF4 END ELSE BE┆
0x07d20…07d36 47 49 4e 07 18 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 ┆GIN LÆSFELT(PICTU┆
0x07d36…0f0c0 […elided…]
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 91 44 cd 41 4b ca e9 4b d1 7b 2f a6 c2 ef 4b 23 7a 2f ┆SULT)3 END. D AK K æ/ K#z/┆
0x0f9a0…0f9c0 a6 c2 ef 4b 23 05 c2 d6 4b cd 5e 4b c3 c6 4b 0e 00 c3 c6 4b cd 41 4b ca 0d 4c d1 7e 2f a3 c2 ef ┆ K# K ^K K K AK L ü/ ┆
0x0f9c0…0f9e0 4b 23 7e 2f a2 c2 ef 4b 23 05 c2 fa 4b cd 67 4b c3 c6 4b d1 d5 d5 69 60 22 e4 42 d1 c1 78 a7 fa ┆K#ü/ K# K gK K i`" B x ┆
0x0f9e0…0fa00 a3 4c 21 10 f0 19 da a3 4c 7b 91 7a 98 da 9c 4c 79 e6 0f 17 6f 78 17 17 17 17 67 79 e6 f0 1f 1f ┆ L! Læ z Ly ox gy ┆
0x0fa00…0fa20 1f 1f b4 47 4d 7b e6 0f 17 6f 7a 17 17 17 17 67 7b e6 f0 1f 1f 1f 1f b4 32 61 4a 26 00 11 3c 4a ┆ GMæ oz gæ 2aJ& <J┆
0x0fa20…0fa40 19 5e 23 56 90 ca 74 4c d5 11 ff ff c3 70 4c d5 3d c2 6f 4c 78 06 00 21 ac 4c 09 47 7b a6 5f 23 ┆ ^#V tL pL = oLx ! L Gæ _#┆
0x0fa40…0fa60 7a a6 57 d5 11 00 00 78 a7 ca 91 4c d5 05 c2 8c 4c 3a 61 4a 3c 6f 26 00 e5 c3 91 44 21 00 00 e5 ┆z W x L L:aJ<o& D! ┆
0x0fa60…0fa80 c3 91 44 21 00 00 e5 1e 49 c3 c4 44 ff ff fe ff fc ff f8 ff f0 ff e0 ff c0 ff 80 ff 00 ff 00 fe ┆ D! I D ┆
0x0fa80…0faa0 00 fc 00 f8 00 f0 00 e0 00 c0 00 80 0a 03 e1 bd ca 9e 44 e5 69 60 22 e4 42 e1 d2 f4 4c 47 29 39 ┆ D i`" B LG)9┆
0x0faa0…0fac0 eb 29 39 2b 1b 7e 12 2b 1b 7e 12 05 c2 e3 4c eb f9 c3 91 44 45 95 4f 2f 3c 6f 26 ff 29 39 eb 21 ┆ )9+ ü + ü L DE O/<o& )9 !┆
0x0fac0…0fae0 00 00 39 eb f9 78 a7 ca 16 4d 1a 77 13 23 1a 77 13 23 05 c2 0a 4d 3e 00 77 23 77 23 0d c2 18 4d ┆ 9 x M w # w # M> w#w# M┆
0x0fae0…0fb00 c3 91 44 69 60 22 e4 42 e1 5d 29 39 4e 23 46 23 e5 79 e6 0f 6f 78 17 17 17 17 67 79 e6 f0 1f 1f ┆ Di`" B Å)9N#F# y ox gy ┆
0x0fb00…0fb20 1f 1f b4 47 4d bb d2 71 4d 79 e6 07 5f 16 00 21 7f 4d 19 7e f5 68 26 00 23 23 29 79 e6 08 ca 62 ┆ GM qMy _ ! M ü h& ##)y b┆
0x0fb20…0fb40 4d 23 39 f1 a6 ca 71 4d e1 f9 21 01 00 e5 c3 91 44 e1 f9 21 00 00 e5 c3 91 44 1e 49 c3 c4 44 01 ┆M#9 qM ! D ! D I D ┆
0x0fb40…0fb60 02 04 08 10 20 40 80 11 ac 50 c3 b6 4d 11 a4 50 c3 b6 4d 11 65 51 c3 b6 4d 11 05 52 c3 b6 4d 11 ┆ @ P M P M eQ M R M ┆
0x0fb60…0fb80 65 51 c3 a5 4d 60 69 22 e4 42 21 d8 4d e5 d5 21 04 00 39 54 5d c9 e1 22 2d 50 e1 22 2f 50 e1 22 ┆eQ M`i" B! M ! 9TÅ "-P "/P "┆
0x0fb80…0fba0 31 50 e1 22 33 50 60 69 22 e4 42 21 d8 4d e5 d5 11 2d 50 21 04 00 39 c9 d2 91 44 1e 4f c3 c4 44 ┆1P "3P`i" B! M -P! 9 D O D┆
0x0fba0…0fbc0 e1 7d e6 7f 6f e5 c3 9e 44 21 07 00 39 7e a7 ca 9e 44 e1 7d ee 80 6f e5 c3 9e 44 cd 27 4e c3 91 ┆ å o D! 9ü D å o D 'N ┆
0x0fbc0…0fbe0 44 e1 22 2d 50 e1 22 2f 50 e1 22 31 50 e1 22 33 50 cd 27 4e 2a 33 50 e5 2a 31 50 e5 2a 2f 50 e5 ┆D "-P "/P "1P "3P 'N*3P *1P */P ┆
0x0fbe0…0fc00 2a 2d 50 e5 c3 91 44 60 69 22 e4 42 c1 d1 21 f8 ff 39 f9 c5 cd 0e 55 c9 60 69 22 e4 42 c3 5e 4e ┆*-P D`i" B ! 9 U `i" B ^N┆
0x0fc00…0fc20 60 69 22 e4 42 e1 e5 7d e6 80 c6 05 32 41 50 3e 80 32 48 50 21 00 00 39 11 41 50 cd ac 50 e1 7d ┆`i" B å 2AP> 2HP! 9 AP P å┆
0x0fc20…0fc40 e6 7f bd 6f e5 f5 21 02 00 39 cd 76 54 da db 4d f1 c4 6d 00 d1 d1 d1 e3 c3 91 44 e1 7d 11 80 ff ┆ o ! 9 vT M m D å ┆
0x0fc40…0fc60 19 da 94 4e c6 81 67 2e 00 e5 11 00 00 d5 d5 13 d5 c3 9e 44 1e 50 c3 c4 44 e1 22 e6 42 21 00 00 ┆ N g. D P D " B! ┆
0x0fc60…0fc80 39 eb 21 08 00 39 cd 67 55 f5 21 12 00 39 f1 f9 2a e6 42 e9 c1 1e 00 d5 03 03 78 a7 c2 02 4f 79 ┆9 ! 9 gU ! 9 * B x Oy┆
0x0fc80…0fca0 fe 10 d2 02 4f 0d 0d ca 02 4f 21 0b 00 39 7e c6 80 fa d9 4e fe 0e d2 02 4f 79 a7 f2 df 4e 97 5f ┆ O O! 9ü N Oy N _┆
0x0fca0…0fcc0 3e 80 93 32 48 50 c5 21 06 00 39 7e e6 80 c6 05 11 41 50 12 cd ac 50 c1 21 0b 00 39 d1 7e c6 80 ┆> 2HP ! 9ü AP P ! 9 ü ┆
0x0fcc0…0fce0 47 c5 21 04 00 39 eb 21 2d 50 cd 14 54 c1 d1 e1 e1 e1 e1 d5 79 a7 ca 99 4f 11 2d 50 21 19 50 1a ┆G ! 9 !-P T y O -P! P ┆
0x0fce0…0fd00 77 23 13 78 3d fa 51 4f 1a 13 77 23 13 1a 05 c2 2a 4f 79 fe fe ca 85 4f 36 2e 23 d2 85 4f 1a fe ┆w# x= QO w# *Oy O6.# O ┆
0x0fd00…0fd20 45 c2 47 4f 3e 30 1b 77 23 13 0d c2 3e 4f c3 85 4f 36 30 23 79 fe fe ca 85 4f 36 2e 23 d2 85 4f ┆E GO>0 w# >O O60#y O6.# O┆
0x0fd20…0fd40 80 f2 68 4f 97 91 47 97 4f 05 04 ca 74 4f 36 30 23 c3 6a 4f 0d fa 85 4f 1a 13 c3 7e 4f 1a 77 13 ┆ hO G O tO60# jO O üO w ┆
0x0fd40…0fd60 23 0d f2 7d 4f eb 21 19 50 cd 6d 00 19 45 4d 1b 21 40 50 cd 76 00 c3 9b 4f 0e 14 3e 28 91 21 19 ┆# åO ! P m EM !@P v O >( ! ┆
0x0fd60…0fd80 50 cd 55 00 d1 7a a7 c2 ae 4f bb c2 b0 4f 1e 14 79 bb da b6 4f 59 16 00 d5 cd 6a 00 21 40 50 19 ┆P U z O O y OY j !@P ┆
0x0fd80…0fda0 c1 71 e5 c5 c3 e6 66 e1 d1 d5 e5 cd 34 69 c2 14 50 eb 7e 23 4e 06 00 09 91 da 0a 50 3c 47 7e fe ┆ q f 4i P ü#N P<Gü ┆
0x0fda0…0fdc0 20 c2 ec 4f 23 05 c2 de 4f c3 0a 50 eb e1 cd 24 53 e1 f5 23 44 4d cd 6d 00 19 7d 02 21 85 44 36 ┆ O# O P $S #DM m å ! D6┆
0x0fdc0…0fde0 00 f1 d2 91 44 36 fe c3 91 44 e1 d1 d5 e5 cd b5 67 ca c7 4f e1 e1 c3 91 44 76 76 76 76 76 76 76 ┆ D6 D g O Dvvvvvvv┆
0x0fde0…0fe00 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0fe00…0fe20 76 05 00 00 00 00 00 00 80 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆v vvvvvvvvvvvvvvvvvvvvvvv┆
0x0fe20…0fe40 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0fe40…0fe60 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 7e ee 80 47 1a ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvü G ┆
0x0fe60…0fe80 4f c3 af 50 1a ee 80 4f 46 c3 af 50 1a 4f 46 cd 2f 57 7e a7 2a 4b 50 c2 c8 50 1a a7 c8 2a 4f 50 ┆O P OF P OF /Wü *KP P *OP┆
0x0fe80…0fea0 cd ed 56 2a 4b 50 71 c9 70 1a a7 c8 c5 78 e6 7f 47 79 e6 7f 4f cd 6d 55 da e8 50 cd ff 56 cd 1d ┆ V*KPq p x Gy O mU P V ┆
0x0fea0…0fec0 57 c1 78 a9 78 c3 f2 50 cd 05 57 cd 17 57 c1 79 a8 79 f5 3a 5a 50 21 62 50 96 ca 0e 51 fe 0d d2 ┆W x x P W W y y :ZP!bP Q ┆
0x0fec0…0fee0 5c 51 47 97 21 5b 50 cd 1c 56 05 c2 03 51 06 07 21 61 50 11 59 50 f1 f5 fa 3d 51 1a 8e 27 12 1b ┆ØQG !ÆP V Q !aP YP =Q ' ┆
0x0fee0…0ff00 2b 05 c2 1b 51 3a 53 50 e6 f0 ca 5c 51 21 5a 50 34 ca 6a 57 21 53 50 cd 1c 56 c3 5c 51 3e 9a 9e ┆+ Q:SP ØQ!ZP4 jW!SP V ØQ> ┆
0x0ff00…0ff20 eb 86 eb 27 3f 12 2b 1b 05 c2 3d 51 21 53 50 3a 5a 50 4f cd ce 55 da 6d 57 ca 5a 57 21 53 50 cd ┆ '? + =Q!SP:ZPO U mW ZW!SP ┆
0x0ff20…0ff40 ed 56 c3 9a 52 cd 2f 57 7e a7 ca 5b 57 1a a7 ca 5b 57 2a 4f 50 eb 2a 4b 50 1a ae f5 cd 09 53 cd ┆ V R /Wü ÆW ÆW*OP *KP S ┆
0x0ff40…0ff60 05 57 cd 5b 57 11 5a 50 06 07 c3 9a 51 4f 97 cd 1c 56 79 cd 68 52 97 cd 1c 56 1b 1a cd 68 52 05 ┆ W ÆW ZP QO Vy hR V hR ┆
0x0ff60…0ff80 c2 8d 51 05 2a 4b 50 7e e6 f0 ca b2 51 04 97 cd 1c 56 3a 5a 50 d6 80 4f 3a 6a 50 d6 80 cd e6 51 ┆ Q *KPü Q V:ZP O:jP Q┆
0x0ff80…0ffa0 e2 cc 51 cd e5 51 e2 de 51 c3 d2 51 cd e5 51 ea de 51 c6 80 ca 6d 57 2a 4d 50 77 c3 9a 52 a7 f2 ┆ Q Q Q Q Q Q mW*MPw R ┆
0x0ffa0…0ffc0 6d 57 c3 6a 57 48 5f 81 57 1f a9 aa ab 2f e6 80 7a c9 11 72 57 e5 d5 22 4b 50 cd e4 56 e1 cd ed ┆mW jWH_ W / z rW "KP V ┆
0x0ffc0…0ffe0 56 11 83 50 e1 cd 2f 57 1a a7 c2 11 52 3e 02 37 c9 7e a7 ca 5b 57 2a 4b 50 eb 2a 4f 50 1a ae f5 ┆V P /W R> 7 ü ÆW*KP *OP ┆
0x0ffe0…10000 d5 cd 09 53 cd ff 56 06 01 0e 07 c5 21 63 50 cd e4 52 d2 4e 52 c1 05 c5 c3 47 52 d5 c5 21 53 50 ┆ S V !cP R NR GR !SP┆
0x10000…10020 97 cd 00 56 cd a7 52 21 53 50 97 cd 00 56 cd a7 52 79 2f c1 d1 12 13 0d c2 3b 52 3a 6a 50 2f d6 ┆ V R!SP V Ry/ ;R:jP/ ┆
0x10020…10040 7f 4f 3a 5a 50 c3 bb 51 d5 11 6a 50 0f dc 87 52 11 72 50 0f dc 87 52 11 7a 50 0f dc 87 52 11 82 ┆ O:ZP Q jP R rP R zP R ┆
0x10040…10060 50 0f dc 87 52 d1 c9 f5 2a 4d 50 a7 0e 07 2b 1b 1a 8e 27 77 0d c2 8e 52 f1 c9 2a 4b 50 7e e6 0f ┆P R *MP + 'w R *KPü ┆
0x10060…10080 47 f1 e6 80 b0 77 c9 21 7b 50 cd e4 52 21 81 50 d4 f3 52 79 17 4f 21 73 50 cd e4 52 21 79 50 d4 ┆G w !æP R! P Ry O!sP R!yP ┆
0x10080…100a0 f3 52 79 17 4f 21 6b 50 cd e4 52 21 71 50 d4 f3 52 79 17 4f 21 63 50 cd e4 52 21 69 50 d4 f3 52 ┆ Ry O!kP R!qP Ry O!cP R!iP R┆
0x100a0…100c0 79 17 4f c9 11 53 50 06 07 1a be c0 23 13 05 c2 e9 52 c9 11 59 50 a7 06 07 3e 9a 9e eb 86 eb 63 ┆y O SP # R YP > c┆