|
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: 30336 (0x7680)
Types: TextFile
Notes: Mikados_K
Names: »LIMEFTER.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMEFTER.K«
PROGRAM LIMEFTER;
(*EFTERKALKULATION, SLETNING AF ORDRE,PRODFORK,REGLINIER,RESSBELAST,
INDSÆTTELSE AF EFTERKALKULATION*)
(*$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 WRITELN(' ':79);
GOTOXY(1,FRA)
END;
PROCEDURE NONEXIST(S:STRING);
BEGIN
D(23,1);
WRITE(S,' findes ikke, RETURN ');
READLN;D(23,1)
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D(23,1);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$IRESPRINT*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
(*@@*)
TYPE
NFELT=^FELTBESKRIVELSE;
SKÆRMPOS=RECORD
X,Y:INTEGER
END;
FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);
VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);
BESKRIVELSESTYPE=(FELTDESC,VALIDESC);
FELTBESKRIVELSE=RECORD
NÆSTEVAL:NFELT;
FELTNAVN:STRING(8);
CASE DESCTYPE:BESKRIVELSESTYPE OF
FELTDESC:
(INDPOS,UDPOS:SKÆRMPOS;
KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;
EDITERING:INTEGER;
LEDETEKST,FØLGETEKST:STRING;
INDEKS,
LÆNGDE,
HÆGTE,
FORAN0:INTEGER;
CASE FELTTYPE:FTYPE OF
REEL:(DEC:INTEGER);
HELTAL,DOBBTAL,TEKST:());
VALIDESC:
(CASE VALIDITETSTYPE:VTYPE OF
HINTERVAL:(MIN,MAX:INTEGER);
DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);
RINTERVAL:(RMIN,RMAX:REAL);
DATO,CPR:())
END;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
LONGINT = ARRAY (1..2) OF INTEGER;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
(*$P*)
(*$L+*)
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;
KUNDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR :LONGINT;
NAVN :PACKED ARRAY (1..26) OF CHAR;
KONTAKT1,
KONTAKT2,
KONTAKT3,
KONTAKT4 :PACKED ARRAY (1..30) OF CHAR
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;
RÅVAPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
PRISKG,
OMSÆTP,
DBP,
KOSTPRIS,
OMSÆTSP,
DBSÅ,
KOSTPRSÅ,
LAGER,
MINLAGE,
RESERVER,
SMEPRIS,
KGINDKØB,
KGFORBRU,
KGSOLGT :REAL;
NR,
LEVUGE,
SMESVIND :INTEGER;
BETEGN :PACKED ARRAY (1..16) 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;
OTEXPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
EMNENR,
LBNR :INTEGER;
TEKST :PACKED ARRAY (1..70) OF CHAR
END;
OMVPPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ORDRENR,
SEKVENSN,
OPERANR,
EMNENR :INTEGER
END;
KUNOPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KUNDENR :LONGINT;
ORDRENR,
EMNENR :INTEGER
END;
REGLPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TID,
MÆNGDE,
LØN :REAL;
ORDRENR,
EMNENR,
OPERANR,
MEDARBNR :INTEGER;
DATO :LONGINT;
RTYPE :INTEGER
END;
REBEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
STARTDAG,
ORDRENR,
EMNENR,
OPERANR,
SEKVNR,
VARIGHED,
GRUPPE,
STTIME :INTEGER
END;
EFTEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
BESANTAL,
LEVANTAL,
MATOMK,
LØNOMK,
MASKOMK,
SALGSPRI,
PLUSMINU :REAL;
EMNENR :INTEGER;
DATO :LONGINT;
ORDRENR :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;
VAR FELT:NFELT;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
OPTION,LINES,
I,J,ANTALFELTER:INTEGER;
LINE:STRING;
RESS:RESSPOST;
RESSGRUP:REGRPOST;
KUNDE:KUNDPOST;
EMNE:EMNEPOST;
RÅVARE:RÅVAPOST;
OPERA:OPERPOST;
PROD:PRODPOST;
OMVPROD:OMVPPOST;
ORDTEKST:OTEXPOST;
ORDRE:ORDRPOST;
KUNORDRE:KUNOPOST;
POST:EFTEPOST;
REGLI:REGLPOST;
REBELAST:REBEPOST;
SYSTEM:SYSRPOST;
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
(*$P*)
(*$L-*)
FUNCTION QJN(S:STRING):CHAR;
VAR CH:STRING(1);
BEGIN
REPEAT
D(23,1);
WRITE(S,' J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
QJN:=CH(1);
D(23,1)
END;
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D(23,1);
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
ICLOSE(RESS.A);
ICLOSE(RESSGRUP.A);
ICLOSE(KUNDE.A);
ICLOSE(EMNE.A);
ICLOSE(RÅVARE.A);
ICLOSE(OPERA.A);
ICLOSE(OMVPROD.A);
ICLOSE(ORDTEKST.A);
ICLOSE(ORDRE.A);
ICLOSE(KUNORDRE.A);
ICLOSE(PROD.A);
ICLOSE(POST.A);
ICLOSE(REGLI.A);
ICLOSE(REBELAST.A);
EXIT(REGVEDL)
END;
PROCEDURE CHECK0(VAR REC:AR);
BEGIN
IF IER<>0 THEN ERROR(REC)
END;
(*$P*)
(*$L-*)
(*$IRLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR CH:CHAR;
PROCEDURE EFTERKALK;
VAR LINES:INTEGER;
FTPSTK,FKRPSTK,
LSATS,MSATS,
TTPSTK,TTOTTID,TKRPSTK,
RTPSTK,RTOTTID,RKRPSTK:REAL;
PROCEDURE HEADING;
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 2 DO WRITELN(LIST);
WRITELN(LIST,'EFTERKALKULATION',' ':36,'kunde-ordrenr',
' ':6,'linimatic ordrenr',' ':5, 'emnenr',
' ':11,'dato');
WRITELN(LIST,'ANTAL BESTILT',POST.BESANTAL:10:-2,' LEVERET',
POST.LEVANTAL:10:-2,' ':10,
ORDRE.KUNDORDR,
ORDRE.NR:20,ORDRE.EMNENR:11,
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):15:-2);
WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',
' ':36,'kundenr');
WRITELN(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6
,KUNDE.NAVN
,ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):22:-2);
WRITELN(LIST,' ':38,'FORKALKULATION',' ':18,'EFTERKALKULATION');
WRITELN(LIST,'op op- betegnelse antal a mas- stk tid total',
' time kr stk tid total kr difference');
WRITELN(LIST,'nr art kine /h /stk tid',
' sats /stk /h /stk tid /stk kr/stk tid/stk');
WRITELN(LIST);
LINES:=10
END;
(*$P*)
PROCEDURE BOTTOM;
VAR ROMK,RSMEOMK,RSMELT:REAL;
BEGIN
WITH ORDRE DO
BEGIN
POST.MASKOMK:=POST.MASKOMK/POST.LEVANTAL;
POST.LØNOMK:=POST.LØNOMK/POST.LEVANTAL;
RTPSTK:=RTOTTID/POST.LEVANTAL;
RKRPSTK:=POST.MASKOMK+POST.LØNOMK;
WRITELN(LIST,'---------------------------------------------------------',
'---------------------------------------------------------');
WRITELN(LIST,'TOTAL',' ':34,TTPSTK:9:3,TTOTTID:7:2,TKRPSTK:14:3,
RTPSTK:11:3,RTOTTID:7:2,RKRPSTK:7:3,
TKRPSTK-RKRPSTK:10:3,TTPSTK-RTPSTK:10:3);
WRITELN(LIST);
IF LINES>34 THEN HEADING;
RSMELT:=POST.MATOMK*(1000.0+EMNE.SVIND)/1000.0*
(1000.0+EMNE.SMELTTIL)/1000.0*
(1000.0+RÅVARE.SMESVIND)/1000.0;
RSMEOMK:=RSMELT*RÅVARE.SMEPRIS/1000.0;
WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3,' ':16,RSMEOMK:8:3);
POST.MATOMK:=RSMELT-POST.MATOMK*(1000.0+EMNE.SVIND)/1000.0*
EMNE.SMELTTIL/1000.0; (*FORBRUG*)
POST.MATOMK:=POST.MATOMK*RÅVARE.KOSTPRIS/1000.0;
WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3,' ':16,
POST.MATOMK:8:3);
WRITELN(LIST,' ':45,'----------------',' ':8,'----------------');
POST.MATOMK:=POST.MATOMK+RSMEOMK;
WRITELN(LIST,'MAT.-OMKOSTNINGER ',' ':27,MATOMK:8:3,MATOMK:8:3,' ':8,
POST.MATOMK:8:3,POST.MATOMK:8:3);
WRITELN(LIST,'LØNOMKOSTNINGER ',' ':35,LØNOMK:8:3,
POST.LØNOMK:24:3);
WRITELN(LIST,'MASKINOMKOSTNINGER',' ':35,MASKINOM:8:3,
POST.MASKOMK:24:3);
WRITELN(LIST,' ':53,'----------------',' ':8,'------------------------');
WRITELN(LIST,'EMNEPRIS ',' ':35,MATOMK+
LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3,
POST.MATOMK+POST.LØNOMK+POST.MASKOMK:16:3,
POST.MATOMK+POST.LØNOMK+POST.MASKOMK:16:3);
WRITELN(LIST,'DÆKNINGSBIDRAG ',' ':35,-MATOMK+
SALGSPRI-LØNOMK-MASKINOM:16:3,
POST.SALGSPRI-(POST.MATOMK+POST.LØNOMK+POST.MASKOMK):32:3);
WRITELN(LIST,' ':61,'--------',' ':24,'--------');
WRITELN(LIST,'SALGSPRIS ',' ':35,SALGSPRI:16:3,' ':16,
POST.SALGSPRI:16:3);
WRITELN(LIST,' ':61,'========',' ':24,'========')
END;
LINES:=LINES+15;
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END;
(*$P*)
PROCEDURE FIXSATS(VAR RESSURS:INTEGER;VAR ASATS:REAL);
VAR SATS:REAL;
BEGIN
RESS.NR:=0;
IF RESSURS>0 THEN
BEGIN
RESS.NR:=RESSURS;
GETRECX(RESS.A);CHECK0(RESS.A);
SATS:=RESS.TSATSF
END
ELSE
IF RESSURS<0 THEN
BEGIN
RESSGRUP.GRUPNR:=-RESSURS;
RESSGRUP.NR:=-1;
NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(RESSGRUP.A);IER:=0;
RESS.NR:=RESSGRUP.NR;
GETRECX(RESS.A);CHECK0(RESS.A);
SATS:=RESS.TSATSF
END
ELSE SATS:=0.0;
IF SATS<>0.0 THEN ASATS:=ASATS+SATS;
IF RESS.NR>0 THEN
BEGIN
CASE OPERA.REBELAS OF
1:RESS.PRODTIM:=RESS.PRODTIM+ROUND(REGLI.TID);
2:RESS.VEDLTIM:=RESS.VEDLTIM+ROUND(REGLI.TID);
3:RESS.OPSTILT:=RESS.OPSTILT+ROUND(REGLI.TID);
4:RESS.OVERTIM:=RESS.OVERTIM+ROUND(REGLI.TID);
5:RESS.REPTIME:=RESS.REPTIME+ROUND(REGLI.TID)
END;
IF RESS.RESSTYPE<10 THEN RESS.RESSTYPE:=RESS.RESSTYPE+20;
(*FLAG TIL SIKRING AF EEN OMSÆTNINGSOPTÆLLING I OPTÆLRES.FIXRESS*)
PUTREC(RESS.A);
CHECK0(RESS.A)
END
END;
(*$P*)
PROCEDURE RIGHTSIDE;
VAR TPSTK,KRPSTK:REAL;
BEGIN
TPSTK:=0.0;
KRPSTK:=TPSTK;
POST.LØNOMK:=POST.LØNOMK+REGLI.LØN+LSATS*REGLI.TID;
POST.MASKOMK:=POST.MASKOMK+MSATS*REGLI.TID;
IF REGLI.TID>0.0 THEN
WRITE(LIST,POST.LEVANTAL/REGLI.TID:5:-2)
ELSE WRITE(LIST,'-':5);
IF POST.LEVANTAL>0.0 THEN
BEGIN
TPSTK:=REGLI.TID/POST.LEVANTAL;
WRITE(LIST,TPSTK:6:3);
RTPSTK:=RTPSTK+TPSTK
END
ELSE WRITE(LIST,'-':6);
WRITE(LIST,REGLI.TID:7:2);
RTOTTID:=RTOTTID+REGLI.TID;
IF POST.LEVANTAL>0.0 THEN
BEGIN
KRPSTK:=(REGLI.LØN+(LSATS+MSATS)*REGLI.TID)/POST.LEVANTAL;
WRITE(LIST,KRPSTK:7:3);
RKRPSTK:=RKRPSTK+KRPSTK
END
ELSE WRITE(LIST,'-':7);
WRITELN(LIST,FKRPSTK-KRPSTK:10:3,FTPSTK-TPSTK:10:3);
LINES:=LINES+1
END;
(*$P*)
BEGIN (*EFTERKALKULATION*)
LINES:=51;
WITH PROD DO
BEGIN
TTPSTK:=0.0;
TTOTTID:=0.0;
RTPSTK:=0.0;
RTOTTID:=0.0;
RKRPSTK:=0.0;
TKRPSTK:=0.0;
ORDRENR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;
WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO
BEGIN
IF LINES>48 THEN HEADING;
REGLI.ORDRENR:=ORDRENR;
REGLI.EMNENR:=EMNENR;
REGLI.OPERANR:=OPERANR;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
GETRECX(REGLI.A);CHECK0(REGLI.A);
WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');
WITH OPERA DO
BEGIN
NR:=OPERANR;
GETREC(A);CHECK0(A);
WRITE(LIST,BETEGN:17)
END;
WRITE(LIST,REGLI.MÆNGDE:6:-2);
IF RESS1>0 THEN
WITH RESS DO
BEGIN
NR:=RESS1;
GETRECX(A);CHECK0(A);
WRITE(LIST,AFDELNR:2,NR:5)
END
ELSE
IF RESS1=0 THEN WRITE(LIST,' ':7)
ELSE WRITE(LIST,' *',-RESS1:4);
IF STKH<=0 THEN
BEGIN
FTPSTK:=-STKH/ORDRE.ANTALBES/100.0;
TTOTTID:=TTOTTID-STKH/100.0;
WRITE(LIST,-STKH/100.0:18:2)
END
ELSE
BEGIN
FTPSTK:=1/STKH;
TTPSTK:=TTPSTK+FTPSTK;
TTOTTID:=TTOTTID+ORDRE.ANTALBES*FTPSTK;
WRITE(LIST,STKH:5,FTPSTK:6:3,ORDRE.ANTALBES*FTPSTK:7:2)
END;
WRITE(LIST,KRSTK:8:2);
IF STKH<=0 THEN
FKRPSTK:=-STKH*KRSTK/ORDRE.ANTALBES/100.0
ELSE
FKRPSTK:=KRSTK/STKH;
TKRPSTK:=TKRPSTK+FKRPSTK;
WRITE(LIST,FKRPSTK:6:3);
MSATS:=0.0;
LSATS:=0.0;
FIXSATS(RESS1,MSATS);
FIXSATS(RESS2,LSATS);
FIXSATS(RESS3,MSATS);
FIXSATS(RESS4,MSATS);
RIGHTSIDE;
DELETE(REGLI.A);IF IER<>-9 THEN CHECK0(REGLI.A);
NEXTREC(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
REGLI.ORDRENR:=POST.ORDRENR;
REGLI.EMNENR:=POST.EMNENR;
REGLI.OPERANR:=0;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
MSATS:=0.0;
LSATS:=MSATS;
FTPSTK:=MSATS;
FKRPSTK:=MSATS;
NEXTRECX(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;
WHILE (IER=0) AND (REGLI.ORDRENR=POST.ORDRENR) AND
(REGLI.EMNENR=POST.EMNENR) DO
WITH REGLI DO
BEGIN
WRITE(LIST,OPERANR:6,' ');
WITH OPERA DO
BEGIN
NR:=OPERANR;
GETREC(A);CHECK0(A);
WRITE(LIST,BETEGN:17)
END;
WRITE(LIST,MÆNGDE:6:-2,' ':39);
RIGHTSIDE;
DELETEX(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);
BOTTOM
END
END;
(*$P*)
PROCEDURE SLETORDRE;
BEGIN
WITH KUNORDRE DO
BEGIN
ORDRENR:=ORDRE.NR;
KUNDENR:=ORDRE.KUNDENR;
EMNENR:=ORDRE.EMNENR;
GETRECX(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);
DELETE(A); CHECK0(A)
END;
ORDTEKST.NR:=ORDRE.NR;
ORDTEKST.EMNENR:=ORDRE.EMNENR;
ORDTEKST.LBNR:=0;
NEXTRECX(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(ORDTEKST.A);IER:=0;
WHILE (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR) AND
(IER=0) DO DELETEX(ORDTEKST.A);
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);
GETREC(ORDTEKST.A);IF IER<>0 THEN ERROR(ORDTEKST.A);
DELETE(ORDRE.A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A)
END;
(*$P*)
PROCEDURE ORDRESTATUS;
VAR TTID,TMÆNGDE,TLØN,TPSTK,
ATID,AMÆNGDE,ALØN:REAL;
LINES:INTEGER;
PROCEDURE HEADING;
BEGIN
WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,
'emnenr',' ':6,'dato');
WRITELN(LIST,'ORDRESTATUS',' ':41,ORDRE.KUNDORDR,
ORDRE.NR:20,ORDRE.EMNENR:11,
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',
' ':31,'kundenr');
WRITELN(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6,
KUNDE.NAVN,
ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);
WRITELN(LIST);
WRITELN(LIST,' MEDARBNR DATO REALISERET REALISERET',
' ENHEDER');
WRITELN(LIST,' TIDSFORBRUG PR. ENHED LØN');
LINES:=9
END;
(*$P*)
PROCEDURE REGLINIE(ORDRENR,EMNENR,OPERANR:INTEGER);
BEGIN
IF LINES>40 THEN HEADING;
TPSTK:=0.0;
TTID:=0.0;
TLØN:=0.0;
TMÆNGDE:=0.0;
ATID:=0.0;
ALØN:=0.0;
AMÆNGDE:=0.0;
OPERA.NR:=OPERANR;
GETREC(OPERA.A);CHECK0(OPERA.A);
WRITELN(LIST);
WRITELN(LIST,OPERA.NR:4,' ',OPERA.BETEGN);
LINES:=LINES+2;
REGLI.ORDRENR:=ORDRENR;
REGLI.EMNENR:=EMNENR;
REGLI.OPERANR:=OPERANR;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
NEXTRECX(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;
WHILE (IER=0) AND (REGLI.OPERANR=OPERANR) AND (REGLI.ORDRENR=ORDRENR)
AND (REGLI.EMNENR=EMNENR) DO
BEGIN
IF REGLI.DATO(1)>99 THEN
BEGIN
ATID:=ATID+REGLI.TID;
ALØN:=ALØN+REGLI.LØN;
AMÆNGDE:=AMÆNGDE+REGLI.MÆNGDE
END
ELSE
BEGIN
IF LINES>44 THEN HEADING;
WRITE(LIST,REGLI.MEDARBNR:10,
REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,
REGLI.TID:13:2);
IF REGLI.MÆNGDE<>0.0 THEN
WRITE(LIST,REGLI.TID/REGLI.MÆNGDE:11:4)
ELSE WRITE(LIST,'-':11);
WRITELN(LIST,REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2);
LINES:=LINES+1;
TTID:=TTID+REGLI.TID;
TLØN:=TLØN+REGLI.LØN;
TMÆNGDE:=TMÆNGDE+REGLI.MÆNGDE
END;
DELETEX(REGLI.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);
(*UDSKRIV TOTAL, GENERER ELLER CHECK TOTALPOST*)
WRITELN(LIST,
'-----------------------------------------------------------------');
WRITE(LIST,'REALISERET OPTALT',TTID:13:2);
IF TMÆNGDE<>0.0 THEN
TPSTK:=TTID/TMÆNGDE
ELSE
TPSTK:=0.0;
IF TPSTK<>0.0 THEN WRITE(LIST,TPSTK:11:4)
ELSE WRITE(LIST,'-':11);
WRITELN(LIST,TLØN:12:2,TMÆNGDE:9:-2);
WRITE(LIST,'REALISERET INDTASTET',ATID:13:2);
IF AMÆNGDE<>0.0 THEN WRITE(LIST,ATID/AMÆNGDE:11:4)
ELSE WRITE(LIST,'-':11);
WRITELN(LIST,AMÆNGDE:21:-2);
IF ATID=0.0 THEN ATID:=TTID;
IF ALØN=0.0 THEN ALØN:=TLØN;
IF AMÆNGDE=0.0 THEN AMÆNGDE:=TMÆNGDE;
LINES:=LINES+3;
REGLI.ORDRENR:=ORDRENR;
REGLI.EMNENR:=EMNENR;
REGLI.OPERANR:=OPERANR;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
REGLI.TID:=ATID;
REGLI.LØN:=ALØN;
REGLI.MÆNGDE:=AMÆNGDE;
INSERT(REGLI.A);CHECK0(REGLI.A)
END;
(*$P*)
BEGIN (*ORDRESTATUS*)
LINES:=51;
WITH PROD DO
BEGIN
ORDRENR:=POST.ORDRENR;
EMNENR:=POST.EMNENR;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;
WHILE (IER=0) AND (ORDRENR=POST.ORDRENR) AND (EMNENR=POST.EMNENR) DO
BEGIN
REGLINIE(ORDRENR,EMNENR,OPERANR);
POST.LEVANTAL:=REGLI.MÆNGDE;
WRITE(LIST,'KALKULERET',' ':13);
IF PROD.STKH<=0 THEN
WRITE(LIST,-PROD.STKH/100.0:10:2,
-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)
ELSE WRITE(LIST,ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);
WRITELN(LIST,ORDRE.ANTALBES:21:-2);
LINES:=LINES+1;
NEXTREC(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
HEADING;
WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER');
LINES:=LINES+1;
REGLI.ORDRENR:=POST.ORDRENR;
REGLI.EMNENR:=POST.EMNENR;
REGLI.OPERANR:=0;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
NEXTRECX(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;
WHILE (IER=0) AND (REGLI.ORDRENR=POST.ORDRENR) AND
(REGLI.EMNENR=POST.EMNENR) DO
BEGIN
IF REGLI.MEDARBNR>0 THEN
REGLINIE(REGLI.ORDRENR,REGLI.EMNENR,REGLI.OPERANR);
NEXTRECX(REGLI.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
PROCEDURE OPTÆLRES;
PROCEDURE FIXRESS(VAR RESSURS:INTEGER);
BEGIN
RESS.NR:=0;
IF RESSURS>0 THEN
RESS.NR:=RESSURS
ELSE
IF RESSURS<0 THEN
BEGIN
RESSGRUP.GRUPNR:=-RESSURS;
RESSGRUP.NR:=-1;
NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(RESSGRUP.A);IER:=0;
RESS.NR:=RESSGRUP.NR
END;
IF RESS.NR>0 THEN
BEGIN
GETRECX(RESS.A);CHECK0(RESS.A);
IF RESS.RESSTYPE>10 THEN (*SE FIXSATS*)
BEGIN
RESS.RESSTYPE:=RESS.RESSTYPE-20;
RESS.SAMOMS:=RESS.SAMOMS+POST.LEVANTAL*POST.SALGSPRI;
RESS.SAMDB:=RESS.SAMDB+POST.LEVANTAL*(POST.SALGSPRI-(POST.LØNOMK+
POST.MATOMK+POST.MASKOMK))
END;
PUTREC(RESS.A);
CHECK0(RESS.A);
REBELAST.NR:=RESS.NR;
REBELAST.STARTDAG:=PROD.STARTTID MOD 1000;
REBELAST.STTIME:=PROD.STARTTID DIV 1000;
REBELAST.ORDRENR:=PROD.ORDRENR;
REBELAST.EMNENR:=PROD.EMNENR;
REBELAST.OPERANR:=PROD.OPERANR;
GETRECX(REBELAST.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(REBELAST.A);
IF IER=0 THEN BEGIN DELETE(REBELAST.A);CHECK0(REBELAST.A) END
END
END;
(*$P*)
BEGIN (*OPTÆLRES*)
WITH PROD DO
BEGIN
ORDRENR:=POST.ORDRENR;
EMNENR:=POST.EMNENR;
SEKVENSN:=0;
OPERANR:=0;
NEXTRECX(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;
WHILE (IER=0) AND (ORDRENR=POST.ORDRENR) AND (EMNENR=POST.EMNENR) DO
BEGIN
FIXRESS(RESS1);
FIXRESS(RESS2);
FIXRESS(RESS3);
FIXRESS(RESS4);
OMVPROD.ORDRENR:=ORDRENR;
OMVPROD.EMNENR:=EMNENR;
OMVPROD.SEKVENSN:=SEKVENSN;
OMVPROD.OPERANR:=OPERANR;
GETRECX(OMVPROD.A);CHECK0(OMVPROD.A);
DELETE(OMVPROD.A);CHECK0(OMVPROD.A);
DELETEX(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
GETREC(A);CHECK0(A) (*FJERN XCLUSIV*)
END
END;
(*$P*)
BEGIN (*MAINTAIN*)
WITH POST DO
REPEAT
CLEARSCREEN;
WRITELN('E F T E R K A L K U L A T I O N');
LÆSFELT(PICTURE(1));
IF ORDRENR>0 THEN
BEGIN
SKRIVFELT(PICTURE(1));
LÆSFELT(PICTURE(2));
SKRIVFELT(PICTURE(2));
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=EMNENR;
GETRECX(ORDRE.A);
IF IER=-6 THEN
NONEXIST('Ordren')
ELSE
BEGIN
CHECK0(ORDRE.A);
EMNE.NR:=EMNENR;
GETRECX(EMNE.A);CHECK0(EMNE.A);
SALGSPRI:=ORDRE.SALGSPRI;
LEVANTAL:=0;
BESANTAL:=ORDRE.ANTALBES;
LÆSFELT(PICTURE(4));
SKRIVFELT(PICTURE(4));
KUNDE.NR:=ORDRE.KUNDENR;
GETREC(KUNDE.A);CHECK0(KUNDE.A);
LØNOMK:=0.0;
MASKOMK:=0.0;
ORDRESTATUS;
LÆSFELT(PICTURE(3));
SKRIVFELT(PICTURE(3));
MATOMK:=LEVANTAL*EMNE.NETTOVÆG; (*LEVERET NETTOVÆGT*)
(* = SOLGT MÆNGDE*)
RÅVARE.NR:=EMNE.MATNR;
GETRECX(RÅVARE.A);CHECK0(RÅVARE.A);
RÅVARE.OMSÆTP:=RÅVARE.OMSÆTP+RÅVARE.PRISKG*MATOMK/1000.0;
RÅVARE.DBP:=RÅVARE.DBP+(RÅVARE.PRISKG-RÅVARE.KOSTPRIS)*MATOMK/1000.0;
RÅVARE.KGSOLGT:=RÅVARE.KGSOLGT+MATOMK/1000.0;
LÆSFELT(PICTURE(5));
SKRIVFELT(PICTURE(5)); (*FORBRUGT MÆNGDE*)
RÅVARE.LAGER:=RÅVARE.LAGER-MATOMK/1000.0;
RÅVARE.KGFORBRU:=RÅVARE.KGFORBRU+MATOMK/1000.0;
PUTREC(RÅVARE.A);CHECK0(RÅVARE.A);
MATOMK:=MATOMK/LEVANTAL; (*MATERIALEFORBRUG PR. LEVERET*)
(*INDGÅR I.ST.F. NETTOVÆGT I *)
(*SMELTEOMKOSTNINGSBEREGNING *)
EFTERKALK;
EMNE.SAMSALG:=EMNE.SAMSALG+LEVANTAL*SALGSPRI;
EMNE.DÆKBID:=EMNE.DÆKBID+LEVANTAL*(SALGSPRI-(LØNOMK+MATOMK+MASKOMK));
(*EMNE.STKHSA,STKHBA UDSÆTTES*)
PUTREC(EMNE.A);CHECK0(EMNE.A);
OPTÆLRES;
PLUSMINU:=-(MATOMK+LØNOMK+MASKOMK)+
(ORDRE.MATOMK+ORDRE.LØNOMK+ORDRE.MASKINOM);
SLETORDRE;
DATO:=SYSTEM.DAGSDATO;
INSERT(A);CHECK0(A)
END
END
UNTIL ORDRENR=0
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
CLEARSCREEN;
LÆSDESC;
MODE:=3;(*SKRIV*)
(*$R-*)
RESS.A(-4):=0;
RESSGRUP.A(-4):=0;
KUNDE.A(-4):=0;
EMNE.A(-4):=0;
RÅVARE.A(-4):=0;
OPERA.A(-4):=0;
SYSTEM.A(-4):=0;
PROD.A(-4):=0;
OMVPROD.A(-4):=0;
ORDRE.A(-4):=0;
KUNORDRE.A(-4):=0;
POST.A(-4):=0;
REGLI.A(-4):=0;
REBELAST.A(-4):=0;
ORDTEKST.A(-4):=0;
RESS.A(-3):=4;
ORDTEKST.A(-3):=25;
RESSGRUP.A(-3):=3;
KUNDE.A(-3):=1;
EMNE.A(-3):=2;
RÅVARE.A(-3):=5;
OPERA.A(-3):=6;
SYSTEM.A(-3):=9;
PROD.A(-3):=14;
OMVPROD.A(-3):=13;
ORDRE.A(-3):=10;
KUNORDRE.A(-3):=18;
POST.A(-3):=17;
REGLI.A(-3):=16;
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(RESS.A); CHECK0(RESS.A);
IOPEN(RESSGRUP.A); CHECK0(RESSGRUP.A);
IOPEN(KUNDE.A); CHECK0(KUNDE.A);
IOPEN(EMNE.A); CHECK0(EMNE.A);
IOPEN(RÅVARE.A); CHECK0(RÅVARE.A);
IOPEN(OPERA.A); CHECK0(OPERA.A);
IOPEN(OMVPROD.A); CHECK0(OMVPROD.A);
IOPEN(ORDTEKST.A); CHECK0(ORDTEKST.A);
IOPEN(ORDRE.A); CHECK0(ORDRE.A);
IOPEN(KUNORDRE.A); CHECK0(KUNORDRE.A);
IOPEN(PROD.A); CHECK0(PROD.A);
IOPEN(POST.A); CHECK0(POST.A);
IOPEN(REGLI.A); CHECK0(REGLI.A);
IOPEN(REBELAST.A); CHECK0(REBELAST.A);
WRITELN('BEMÆRK AT DETTE ER EN AFSLUTNING,');
WRITELN('OG AT ALLE ORDRER, DER EFTERKALKULERES,');
WRITELN(' B L I V E R S L E T T E T');
WRITELN('HUSK AT LØNLISTEN SKAL VÆRE UDSKREVET');
WRITELN('MONTER BREDT PAPIR OG TRYK RETURN');
READLN;
MAINTAIN;
ICLOSE(RESS.A);
ICLOSE(RESSGRUP.A);
ICLOSE(KUNDE.A);
ICLOSE(EMNE.A);
ICLOSE(RÅVARE.A);
ICLOSE(OPERA.A);
ICLOSE(OMVPROD.A);
ICLOSE(ORDTEKST.A);
ICLOSE(ORDRE.A);
ICLOSE(KUNORDRE.A);
ICLOSE(PROD.A);
ICLOSE(POST.A);
ICLOSE(REGLI.A);
ICLOSE(REBELAST.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:='EFTEPESC: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.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LIMEFTER;«, l3=0x11}
0x0013…005a Line {l1=0x45, l2=»(*EFTERKALKULATION, SLETNING AF ORDRE,PRODFORK,REGLINIER,RESSBELAST, «, l3=0x45}
0x005a…007f Line {l1=0x23, l2=» INDSÆTTELSE AF EFTERKALKULATION*)«, l3=0x23}
0x007f…0088 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0088…00a0 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x00a0…00a8 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x00a8…00bc Line {l1=0x12, l2=» PROGRAMNR=8;«, l3=0x12}
0x00bc…00c2 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00c2…00eb Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00eb…0136 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0136…014e Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x014e…0199 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0199…01ad Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x01ad…01c3 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x01c3…01d7 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x01d7…0220 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x0220…0270 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x0270…02ba Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x02ba…02cb Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x02cb…02ed Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02ed…030c Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x030c…031b Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x031b…033a Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x033a…0353 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0353…036e Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x036e…0384 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0384…039a Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x039a…03c3 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x03c3…03dc Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x03dc…0407 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x0407…041d Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x041d…0437 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x0437…0448 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0448…045b Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x045b…0474 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0474…048c Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x048c…0494 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0494…049d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x049d…04bb Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x04bb…04cb Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x04cb…04d2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04d2…04e4 Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x04e4…050a Line {l1=0x24, l2=» FOR I:=1 TO NR DO WRITELN(' ':79);«, l3=0x24}
0x050a…051b Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x051b…0521 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0521…0540 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x0540…0547 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0547…0553 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0553…0578 Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x0578…058b Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x058b…0591 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0591…05b7 Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x05b7…05be Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05be…05ca Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x05ca…05ec Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x05ec…05f6 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x05f6…05fc Line {l1=0x04, l2=»END;«, l3=0x04}
0x05fc…0604 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0604…063b Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x063b…0662 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0662…066d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x066d…06a5 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x06a5…06b0 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06b0…06e4 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x06e4…0719 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x0719…0724 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0724…075b Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x075b…0782 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0782…078d Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x078d…07c5 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x07c5…07ec Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x07ec…07f7 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07f7…082c Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x082c…0837 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0837…0847 Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x0847…084f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x084f…085c Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x085c…086c Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x086c…0874 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0874…0888 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0888…089d Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x089d…08a5 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x08a5…08ab Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x08ab…08c4 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x08c4…08d5 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x08d5…08e5 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x08e5…08eb Line {l1=0x04, l2=»END;«, l3=0x04}
0x08eb…090f Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x090f…0940 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0940…0967 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0967…097f Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x097f…0993 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0993…09ab Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x09ab…09d1 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x09d1…09df Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x09df…09fa Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x09fa…0a1e Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0a1e…0a35 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0a35…0a56 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0a56…0a62 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0a62…0a6e Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a6e…0a79 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a79…0a8d Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a8d…0aa8 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0aa8…0ac0 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0ac0…0ade Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0ade…0aec Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0aec…0b0d Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0b0d…0b31 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0b31…0b61 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0b61…0b84 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b84…0b98 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b98…0b9e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b9e…0bc5 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0bc5…0be0 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0be0…0c04 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0c04…0c31 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0c31…0c39 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c39…0c42 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0c42…0c53 Line {l1=0x0f, l2=»RESSPOST=RECORD«, l3=0x0f}
0x0c53…0c5f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0c5f…0c68 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0c68…0c74 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0c74…0c7f Line {l1=0x09, l2=» TSATSF,«, l3=0x09}
0x0c7f…0c8a Line {l1=0x09, l2=» SAMOMS,«, l3=0x09}
0x0c8a…0c97 Line {l1=0x0b, l2=» SAMOMSSÅ,«, l3=0x0b}
0x0c97…0ca1 Line {l1=0x08, l2=» SAMDB,«, l3=0x08}
0x0ca1…0cad Line {l1=0x0a, l2=» SAMDBSÅ,«, l3=0x0a}
0x0cad…0cba Line {l1=0x0b, l2=» KØBSPRIS,«, l3=0x0b}
0x0cba…0cd8 Line {l1=0x1c, l2=» SALGSPRI :REAL;«, l3=0x1c}
0x0cd8…0cdf Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0cdf…0ceb Line {l1=0x0a, l2=» AFDELNR,«, l3=0x0a}
0x0ceb…0cf7 Line {l1=0x0a, l2=» PRODTIM,«, l3=0x0a}
0x0cf7…0d03 Line {l1=0x0a, l2=» VEDLTIM,«, l3=0x0a}
0x0d03…0d0f Line {l1=0x0a, l2=» OPSTILT,«, l3=0x0a}
0x0d0f…0d1b Line {l1=0x0a, l2=» OVERTIM,«, l3=0x0a}
0x0d1b…0d27 Line {l1=0x0a, l2=» REPTIME,«, l3=0x0a}
0x0d27…0d33 Line {l1=0x0a, l2=» TOTALTI,«, l3=0x0a}
0x0d33…0d40 Line {l1=0x0b, l2=» PRODTIMS,«, l3=0x0b}
0x0d40…0d4d Line {l1=0x0b, l2=» VEDLTIMS,«, l3=0x0b}
0x0d4d…0d5a Line {l1=0x0b, l2=» OPSTILTS,«, l3=0x0b}
0x0d5a…0d67 Line {l1=0x0b, l2=» OVERTIMS,«, l3=0x0b}
0x0d67…0d74 Line {l1=0x0b, l2=» REPTIMES,«, l3=0x0b}
0x0d74…0d95 Line {l1=0x1f, l2=» TOTALTIS, «, l3=0x1f}
0x0d95…0db5 Line {l1=0x1e, l2=» RESSTYPE :INTEGER;«, l3=0x1e}
0x0db5…0dd5 Line {l1=0x1e, l2=» DATOFLEV :LONGINT;«, l3=0x1e}
0x0dd5…0df5 Line {l1=0x1e, l2=» HYLDENR :INTEGER;«, l3=0x1e}
0x0df5…0e29 Line {l1=0x32, l2=» BETEGN :PACKED ARRAY (1..10) OF CHAR«, l3=0x32}
0x0e29…0e2f Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e2f…0e40 Line {l1=0x0f, l2=»REGRPOST=RECORD«, l3=0x0f}
0x0e40…0e4c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0e4c…0e55 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0e55…0e61 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0e61…0e6c Line {l1=0x09, l2=» GRUPNR,«, l3=0x09}
0x0e6c…0e8c Line {l1=0x1e, l2=» NR :INTEGER «, l3=0x1e}
0x0e8c…0e92 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e92…0ea3 Line {l1=0x0f, l2=»KUNDPOST=RECORD«, l3=0x0f}
0x0ea3…0eaf Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0eaf…0eb8 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0eb8…0ec4 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0ec4…0ee4 Line {l1=0x1e, l2=» NR :LONGINT;«, l3=0x1e}
0x0ee4…0f19 Line {l1=0x33, l2=» NAVN :PACKED ARRAY (1..26) OF CHAR;«, l3=0x33}
0x0f19…0f26 Line {l1=0x0b, l2=» KONTAKT1,«, l3=0x0b}
0x0f26…0f33 Line {l1=0x0b, l2=» KONTAKT2,«, l3=0x0b}
0x0f33…0f40 Line {l1=0x0b, l2=» KONTAKT3,«, l3=0x0b}
0x0f40…0f74 Line {l1=0x32, l2=» KONTAKT4 :PACKED ARRAY (1..30) OF CHAR«, l3=0x32}
0x0f74…0f7a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f7a…0f8b Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x0f8b…0f97 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0f97…0fa0 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0fa0…0fac Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0fac…0fb9 Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x0fb9…0fc6 Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x0fc6…0fd3 Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x0fd3…0fdf Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x0fdf…0fea Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x0fea…0ff7 Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x0ff7…1013 Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x1013…101a Line {l1=0x05, l2=» NR,«, l3=0x05}
0x101a…1039 Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x1039…1058 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x1058…1077 Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x1077…1096 Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x1096…10a0 Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x10a0…10aa Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x10aa…10b7 Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x10b7…10c2 Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x10c2…10e1 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x10e1…10ec Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x10ec…10f7 Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x10f7…112b Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x112b…115e Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x115e…1164 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1164…1175 Line {l1=0x0f, l2=»RÅVAPOST=RECORD«, l3=0x0f}
0x1175…1181 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1181…118a Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x118a…1196 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1196…11a1 Line {l1=0x09, l2=» PRISKG,«, l3=0x09}
0x11a1…11ac Line {l1=0x09, l2=» OMSÆTP,«, l3=0x09}
0x11ac…11b4 Line {l1=0x06, l2=» DBP,«, l3=0x06}
0x11b4…11c1 Line {l1=0x0b, l2=» KOSTPRIS,«, l3=0x0b}
0x11c1…11cd Line {l1=0x0a, l2=» OMSÆTSP,«, l3=0x0a}
0x11cd…11d9 Line {l1=0x0a, l2=» DBSÅ, «, l3=0x0a}
0x11d9…11e6 Line {l1=0x0b, l2=» KOSTPRSÅ,«, l3=0x0b}
0x11e6…11f4 Line {l1=0x0c, l2=» LAGER, «, l3=0x0c}
0x11f4…1202 Line {l1=0x0c, l2=» MINLAGE, «, l3=0x0c}
0x1202…1210 Line {l1=0x0c, l2=» RESERVER, «, l3=0x0c}
0x1210…121f Line {l1=0x0d, l2=» SMEPRIS, «, l3=0x0d}
0x121f…122e Line {l1=0x0d, l2=» KGINDKØB, «, l3=0x0d}
0x122e…123d Line {l1=0x0d, l2=» KGFORBRU, «, l3=0x0d}
0x123d…125c Line {l1=0x1d, l2=» KGSOLGT :REAL; «, l3=0x1d}
0x125c…1263 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x1263…126e Line {l1=0x09, l2=» LEVUGE,«, l3=0x09}
0x126e…128d Line {l1=0x1d, l2=» SMESVIND :INTEGER;«, l3=0x1d}
0x128d…12c0 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..16) OF CHAR«, l3=0x31}
0x12c0…12c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x12c6…12d7 Line {l1=0x0f, l2=»OPERPOST=RECORD«, l3=0x0f}
0x12d7…12e3 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x12e3…12ec Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x12ec…12f8 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x12f8…1314 Line {l1=0x1a, l2=» TILLÆG :REAL;«, l3=0x1a}
0x1314…131b Line {l1=0x05, l2=» NR,«, l3=0x05}
0x131b…1326 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x1326…1345 Line {l1=0x1d, l2=» REBELAS :INTEGER;«, l3=0x1d}
0x1345…1378 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x1378…137e Line {l1=0x04, l2=»END;«, l3=0x04}
0x137e…138f Line {l1=0x0f, l2=»PRODPOST=RECORD«, l3=0x0f}
0x138f…139b Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x139b…13a4 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x13a4…13b0 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x13b0…13e5 Line {l1=0x33, l2=» KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)«, l3=0x33}
0x13e5…1401 Line {l1=0x1a, l2=» REAANTAL :REAL;«, l3=0x1a}
0x1401…140d Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x140d…141a Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x141a…1426 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1426…1433 Line {l1=0x0b, l2=» STARTTID,«, l3=0x0b}
0x1433…1440 Line {l1=0x0b, l2=» OPERAFSL,«, l3=0x0b}
0x1440…1449 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x1449…1453 Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x1453…145d Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x145d…1467 Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x1467…1471 Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x1471…147b Line {l1=0x08, l2=» RESS5,«, l3=0x08}
0x147b…1486 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x1486…14a5 Line {l1=0x1d, l2=» VARIGHED :INTEGER «, l3=0x1d}
0x14a5…14ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x14ab…14bc Line {l1=0x0f, l2=»ORDRPOST=RECORD«, l3=0x0f}
0x14bc…14c8 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x14c8…14d1 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x14d1…14dd Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x14dd…14ea Line {l1=0x0b, l2=» ANTALBES,«, l3=0x0b}
0x14ea…14f7 Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x14f7…1502 Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x1502…150d Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x150d…151a Line {l1=0x0b, l2=» MASKINOM,«, l3=0x0b}
0x151a…1525 Line {l1=0x09, l2=» SMEOMK,«, l3=0x09}
0x1525…1541 Line {l1=0x1a, l2=» MATFORB :REAL;«, l3=0x1a}
0x1541…1560 Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x1560…157f Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x157f…159e Line {l1=0x1d, l2=» EMNENR :INTEGER;«, l3=0x1d}
0x159e…15bd Line {l1=0x1d, l2=» REGDATO :LONGINT;«, l3=0x1d}
0x15bd…15c9 Line {l1=0x0a, l2=» ØNSKLEV,«, l3=0x0a}
0x15c9…15e8 Line {l1=0x1d, l2=» BEKRÆLEV :INTEGER;«, l3=0x1d}
0x15e8…161c Line {l1=0x32, l2=» KUNDORDR :PACKED ARRAY (1..16) OF CHAR;«, l3=0x32}
0x161c…164f Line {l1=0x31, l2=» INITIALE :PACKED ARRAY (1..4) OF CHAR «, l3=0x31}
0x164f…1655 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1655…1666 Line {l1=0x0f, l2=»OTEXPOST=RECORD«, l3=0x0f}
0x1666…1672 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1672…167b Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x167b…1687 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1687…168e Line {l1=0x05, l2=» NR,«, l3=0x05}
0x168e…1699 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x1699…16b8 Line {l1=0x1d, l2=» LBNR :INTEGER;«, l3=0x1d}
0x16b8…16eb Line {l1=0x31, l2=» TEKST :PACKED ARRAY (1..70) OF CHAR«, l3=0x31}
0x16eb…16f1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x16f1…1702 Line {l1=0x0f, l2=»OMVPPOST=RECORD«, l3=0x0f}
0x1702…170e Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x170e…1717 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1717…1723 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1723…172f Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x172f…173c Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x173c…1748 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1748…1767 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x1767…176d Line {l1=0x04, l2=»END;«, l3=0x04}
0x176d…177e Line {l1=0x0f, l2=»KUNOPOST=RECORD«, l3=0x0f}
0x177e…178a Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x178a…1793 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1793…179f Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x179f…17be Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x17be…17ca Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x17ca…17e9 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x17e9…17ef Line {l1=0x04, l2=»END;«, l3=0x04}
0x17ef…1800 Line {l1=0x0f, l2=»REGLPOST=RECORD«, l3=0x0f}
0x1800…180c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x180c…1815 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1815…1821 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1821…1829 Line {l1=0x06, l2=» TID,«, l3=0x06}
0x1829…1834 Line {l1=0x09, l2=» MÆNGDE,«, l3=0x09}
0x1834…184f Line {l1=0x19, l2=» LØN :REAL;«, l3=0x19}
0x184f…185b Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x185b…1866 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x1866…1872 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1872…1890 Line {l1=0x1c, l2=» MEDARBNR :INTEGER;«, l3=0x1c}
0x1890…18ae Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x18ae…18cb Line {l1=0x1b, l2=» RTYPE :INTEGER«, l3=0x1b}
0x18cb…18d1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x18d1…18e2 Line {l1=0x0f, l2=»REBEPOST=RECORD«, l3=0x0f}
0x18e2…18ee Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x18ee…18f7 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x18f7…1903 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1903…190a Line {l1=0x05, l2=» NR,«, l3=0x05}
0x190a…1917 Line {l1=0x0b, l2=» STARTDAG,«, l3=0x0b}
0x1917…1923 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1923…192e Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x192e…193c Line {l1=0x0c, l2=» OPERANR, «, l3=0x0c}
0x193c…1947 Line {l1=0x09, l2=» SEKVNR,«, l3=0x09}
0x1947…1954 Line {l1=0x0b, l2=» VARIGHED,«, l3=0x0b}
0x1954…195f Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x195f…197c Line {l1=0x1b, l2=» STTIME :INTEGER «, l3=0x1b}
0x197c…1982 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1982…1993 Line {l1=0x0f, l2=»EFTEPOST=RECORD«, l3=0x0f}
0x1993…199f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x199f…19a8 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x19a8…19b4 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x19b4…19c1 Line {l1=0x0b, l2=» BESANTAL,«, l3=0x0b}
0x19c1…19ce Line {l1=0x0b, l2=» LEVANTAL,«, l3=0x0b}
0x19ce…19d9 Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x19d9…19e4 Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x19e4…19f0 Line {l1=0x0a, l2=» MASKOMK,«, l3=0x0a}
0x19f0…19fd Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x19fd…1a17 Line {l1=0x18, l2=» PLUSMINU :REAL;«, l3=0x18}
0x1a17…1a34 Line {l1=0x1b, l2=» EMNENR :INTEGER;«, l3=0x1b}
0x1a34…1a51 Line {l1=0x1b, l2=» DATO :LONGINT;«, l3=0x1b}
0x1a51…1a6e Line {l1=0x1b, l2=» ORDRENR :INTEGER «, l3=0x1b}
0x1a6e…1a74 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a74…1a85 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x1a85…1a91 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1a91…1a9a Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1a9a…1aa6 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1aa6…1ad1 Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x1ad1…1aef Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x1aef…1b0d Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x1b0d…1b2b Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x1b2b…1b41 Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x1b41…1b5f Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x1b5f…1b65 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b65…1b76 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x1b76…1ba2 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1ba2…1bb5 Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x1bb5…1bd3 Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x1bd3…1be5 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1be5…1bf9 Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x1bf9…1c11 Line {l1=0x16, l2=» RESSGRUP:REGRPOST;«, l3=0x16}
0x1c11…1c26 Line {l1=0x13, l2=» KUNDE:KUNDPOST;«, l3=0x13}
0x1c26…1c3a Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x1c3a…1c50 Line {l1=0x14, l2=» RÅVARE:RÅVAPOST;«, l3=0x14}
0x1c50…1c65 Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x1c65…1c79 Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x1c79…1c90 Line {l1=0x15, l2=» OMVPROD:OMVPPOST;«, l3=0x15}
0x1c90…1ca8 Line {l1=0x16, l2=» ORDTEKST:OTEXPOST;«, l3=0x16}
0x1ca8…1cbd Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x1cbd…1cd5 Line {l1=0x16, l2=» KUNORDRE:KUNOPOST;«, l3=0x16}
0x1cd5…1ce9 Line {l1=0x12, l2=» POST:EFTEPOST;«, l3=0x12}
0x1ce9…1cfe Line {l1=0x13, l2=» REGLI:REGLPOST;«, l3=0x13}
0x1cfe…1d16 Line {l1=0x16, l2=» REBELAST:REBEPOST;«, l3=0x16}
0x1d16…1d2c Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x1d2c…1d42 Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x1d42…1d50 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x1d50…1d71 Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x1d71…1d79 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1d79…1d82 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1d82…1da0 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x1da0…1db3 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1db3…1dba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1dba…1dc4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1dc4…1dd2 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x1dd2…1de9 Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x1de9…1df7 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1df7…1e05 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x1e05…1e20 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x1e20…1e2f Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x1e2f…1e3b Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x1e3b…1e41 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e41…1e5f Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x1e5f…1e72 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1e72…1e82 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x1e82…1e89 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e89…1e95 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x1e95…1ee3 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x1ee3…1f31 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x1f31…1f46 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x1f46…1f76 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x1f76…1f8d Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x1f8d…1fa8 Line {l1=0x19, l2=» ICLOSE(RESSGRUP.A); «, l3=0x19}
0x1fa8…1fbc Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x1fbc…1fd3 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x1fd3…1fe8 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x1fe8…1fff Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x1fff…2016 Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x2016…202e Line {l1=0x16, l2=» ICLOSE(ORDTEKST.A); «, l3=0x16}
0x202e…2046 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x2046…205d Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0x205d…2071 Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x2071…2084 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x2084…2098 Line {l1=0x12, l2=» ICLOSE(REGLI.A);«, l3=0x12}
0x2098…20af Line {l1=0x15, l2=» ICLOSE(REBELAST.A);«, l3=0x15}
0x20af…20c0 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x20c0…20c6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x20c6…20e5 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x20e5…20ec Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20ec…2109 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x2109…210f Line {l1=0x04, l2=»END;«, l3=0x04}
0x210f…2117 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2117…2120 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2120…2130 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x2130…2138 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2138…2148 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x2148…2150 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2150…2159 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x2159…216e Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x216e…217c Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x217c…217f Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x2182…2198 Line {l1=0x14, l2=»PROCEDURE EFTERKALK;«, l3=0x14}
0x2198…21ac Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x21ac…21c1 Line {l1=0x13, l2=» FTPSTK,FKRPSTK,«, l3=0x13}
0x21c1…21d3 Line {l1=0x10, l2=» LSATS,MSATS,«, l3=0x10}
0x21d3…21f0 Line {l1=0x1b, l2=» TTPSTK,TTOTTID,TKRPSTK,«, l3=0x1b}
0x21f0…2212 Line {l1=0x20, l2=» RTPSTK,RTOTTID,RKRPSTK:REAL;«, l3=0x20}
0x2212…2215 Line {l1=0x01, l2=» «, l3=0x01}
0x2215…2229 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x2229…2230 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2230…226d Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x226d…2294 Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x2294…22cf Line {l1=0x39, l2=» WRITELN(LIST,'EFTERKALKULATION',' ':36,'kunde-ordrenr',«, l3=0x39}
0x22cf…230a Line {l1=0x39, l2=» ' ':6,'linimatic ordrenr',' ':5, 'emnenr',«, l3=0x39}
0x230a…232a Line {l1=0x1e, l2=» ' ':11,'dato');«, l3=0x1e}
0x232a…236b Line {l1=0x3f, l2=» WRITELN(LIST,'ANTAL BESTILT',POST.BESANTAL:10:-2,' LEVERET',«, l3=0x3f}
0x236b…2397 Line {l1=0x2a, l2=» POST.LEVANTAL:10:-2,' ':10,«, l3=0x2a}
0x2397…23b7 Line {l1=0x1e, l2=» ORDRE.KUNDORDR,«, l3=0x1e}
0x23b7…23e4 Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x23e4…242a Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):15:-2);«, l3=0x44}
0x242a…2469 Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x2469…248c Line {l1=0x21, l2=» ' ':36,'kundenr');«, l3=0x21}
0x248c…24c3 Line {l1=0x35, l2=» WRITELN(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6 «, l3=0x35}
0x24c3…24de Line {l1=0x19, l2=» ,KUNDE.NAVN«, l3=0x19}
0x24de…2520 Line {l1=0x40, l2=» ,ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):22:-2);«, l3=0x40}
0x2520…2564 Line {l1=0x42, l2=» WRITELN(LIST,' ':38,'FORKALKULATION',' ':18,'EFTERKALKULATION');«, l3=0x42}
0x2564…25af Line {l1=0x49, l2=» WRITELN(LIST,'op op- betegnelse antal a mas- stk tid total',«, l3=0x49}
0x25af…25fb Line {l1=0x4a, l2=» ' time kr stk tid total kr difference');«, l3=0x4a}
0x25fb…2646 Line {l1=0x49, l2=» WRITELN(LIST,'nr art kine /h /stk tid',«, l3=0x49}
0x2646…2696 Line {l1=0x4e, l2=» ' sats /stk /h /stk tid /stk kr/stk tid/stk');«, l3=0x4e}
0x2696…26a8 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x26a8…26b6 Line {l1=0x0c, l2=» LINES:=10 «, l3=0x0c}
0x26b6…26bc Line {l1=0x04, l2=»END;«, l3=0x04}
0x26bc…26c4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x26c4…26d7 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x26d7…26f6 Line {l1=0x1d, l2=»VAR ROMK,RSMEOMK,RSMELT:REAL;«, l3=0x1d}
0x26f6…26fd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26fd…270e Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x270e…2717 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2717…2746 Line {l1=0x2d, l2=» POST.MASKOMK:=POST.MASKOMK/POST.LEVANTAL;«, l3=0x2d}
0x2746…2773 Line {l1=0x2b, l2=» POST.LØNOMK:=POST.LØNOMK/POST.LEVANTAL;«, l3=0x2b}
0x2773…2797 Line {l1=0x22, l2=» RTPSTK:=RTOTTID/POST.LEVANTAL;«, l3=0x22}
0x2797…27bf Line {l1=0x26, l2=» RKRPSTK:=POST.MASKOMK+POST.LØNOMK;«, l3=0x26}
0x27bf…280e Line {l1=0x4d, l2=» WRITELN(LIST,'---------------------------------------------------------',«, l3=0x4d}
0x280e…285e Line {l1=0x4e, l2=» '---------------------------------------------------------');«, l3=0x4e}
0x285e…28a5 Line {l1=0x45, l2=» WRITELN(LIST,'TOTAL',' ':34,TTPSTK:9:3,TTOTTID:7:2,TKRPSTK:14:3, «, l3=0x45}
0x28a5…28eb Line {l1=0x44, l2=» RTPSTK:11:3,RTOTTID:7:2,RKRPSTK:7:3,«, l3=0x44}
0x28eb…2933 Line {l1=0x46, l2=» TKRPSTK-RKRPSTK:10:3,TTPSTK-RTPSTK:10:3);«, l3=0x46}
0x2933…2947 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x2947…2966 Line {l1=0x1d, l2=» IF LINES>34 THEN HEADING;«, l3=0x1d}
0x2966…299b Line {l1=0x33, l2=» RSMELT:=POST.MATOMK*(1000.0+EMNE.SVIND)/1000.0*«, l3=0x33}
0x299b…29d3 Line {l1=0x36, l2=» (1000.0+EMNE.SMELTTIL)/1000.0*«, l3=0x36}
0x29d3…2a0d Line {l1=0x38, l2=» (1000.0+RÅVARE.SMESVIND)/1000.0;«, l3=0x38}
0x2a0d…2a39 Line {l1=0x2a, l2=» RSMEOMK:=RSMELT*RÅVARE.SMEPRIS/1000.0;«, l3=0x2a}
0x2a39…2a87 Line {l1=0x4c, l2=» WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3,' ':16,RSMEOMK:8:3);«, l3=0x4c}
0x2a87…2ac8 Line {l1=0x3f, l2=» POST.MATOMK:=RSMELT-POST.MATOMK*(1000.0+EMNE.SVIND)/1000.0*«, l3=0x3f}
0x2ac8…2b0e Line {l1=0x44, l2=» EMNE.SMELTTIL/1000.0; (*FORBRUG*)«, l3=0x44}
0x2b0e…2b44 Line {l1=0x34, l2=» POST.MATOMK:=POST.MATOMK*RÅVARE.KOSTPRIS/1000.0;«, l3=0x34}
0x2b44…2b86 Line {l1=0x40, l2=» WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3,' ':16,«, l3=0x40}
0x2b86…2bd4 Line {l1=0x4c, l2=» POST.MATOMK:8:3);«, l3=0x4c}
0x2bd4…2c1b Line {l1=0x45, l2=» WRITELN(LIST,' ':45,'----------------',' ':8,'----------------');«, l3=0x45}
0x2c1b…2c42 Line {l1=0x25, l2=» POST.MATOMK:=POST.MATOMK+RSMEOMK;«, l3=0x25}
0x2c42…2c8d Line {l1=0x49, l2=» WRITELN(LIST,'MAT.-OMKOSTNINGER ',' ':27,MATOMK:8:3,MATOMK:8:3,' ':8,«, l3=0x49}
0x2c8d…2cc8 Line {l1=0x39, l2=» POST.MATOMK:8:3,POST.MATOMK:8:3);«, l3=0x39}
0x2cc8…2d02 Line {l1=0x38, l2=» WRITELN(LIST,'LØNOMKOSTNINGER ',' ':35,LØNOMK:8:3,«, l3=0x38}
0x2d02…2d4b Line {l1=0x47, l2=» POST.LØNOMK:24:3);«, l3=0x47}
0x2d4b…2d87 Line {l1=0x3a, l2=» WRITELN(LIST,'MASKINOMKOSTNINGER',' ':35,MASKINOM:8:3,«, l3=0x3a}
0x2d87…2dd1 Line {l1=0x48, l2=» POST.MASKOMK:24:3);«, l3=0x48}
0x2dd1…2e20 Line {l1=0x4d, l2=» WRITELN(LIST,' ':53,'----------------',' ':8,'------------------------');«, l3=0x4d}
0x2e20…2e56 Line {l1=0x34, l2=» WRITELN(LIST,'EMNEPRIS ',' ':35,MATOMK+«, l3=0x34}
0x2e56…2e98 Line {l1=0x40, l2=» LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3,«, l3=0x40}
0x2e98…2ed5 Line {l1=0x3b, l2=» POST.MATOMK+POST.LØNOMK+POST.MASKOMK:16:3,«, l3=0x3b}
0x2ed5…2f13 Line {l1=0x3c, l2=» POST.MATOMK+POST.LØNOMK+POST.MASKOMK:16:3);«, l3=0x3c}
0x2f13…2f4a Line {l1=0x35, l2=» WRITELN(LIST,'DÆKNINGSBIDRAG ',' ':35,-MATOMK+«, l3=0x35}
0x2f4a…2f80 Line {l1=0x34, l2=» SALGSPRI-LØNOMK-MASKINOM:16:3,«, l3=0x34}
0x2f80…2fce Line {l1=0x4c, l2=» POST.SALGSPRI-(POST.MATOMK+POST.LØNOMK+POST.MASKOMK):32:3);«, l3=0x4c}
0x2fce…3006 Line {l1=0x36, l2=» WRITELN(LIST,' ':61,'--------',' ':24,'--------');«, l3=0x36}
0x3006…304a Line {l1=0x42, l2=» WRITELN(LIST,'SALGSPRIS ',' ':35,SALGSPRI:16:3,' ':16,«, l3=0x42}
0x304a…308d Line {l1=0x41, l2=» POST.SALGSPRI:16:3);«, l3=0x41}
0x308d…30c5 Line {l1=0x36, l2=» WRITELN(LIST,' ':61,'========',' ':24,'========') «, l3=0x36}
0x30c5…30cd Line {l1=0x06, l2=» END;«, l3=0x06}
0x30cd…30e1 Line {l1=0x12, l2=» LINES:=LINES+15;«, l3=0x12}
0x30e1…311e Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x311e…3124 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3124…312c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x312c…3164 Line {l1=0x36, l2=»PROCEDURE FIXSATS(VAR RESSURS:INTEGER;VAR ASATS:REAL);«, l3=0x36}
0x3164…3174 Line {l1=0x0e, l2=»VAR SATS:REAL;«, l3=0x0e}
0x3174…317b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x317b…318a Line {l1=0x0d, l2=» RESS.NR:=0;«, l3=0x0d}
0x318a…319f Line {l1=0x13, l2=» IF RESSURS>0 THEN«, l3=0x13}
0x319f…31a8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x31a8…31bf Line {l1=0x15, l2=» RESS.NR:=RESSURS;«, l3=0x15}
0x31bf…31e4 Line {l1=0x23, l2=» GETRECX(RESS.A);CHECK0(RESS.A);«, l3=0x23}
0x31e4…31fb Line {l1=0x15, l2=» SATS:=RESS.TSATSF«, l3=0x15}
0x31fb…3202 Line {l1=0x05, l2=» END«, l3=0x05}
0x3202…320b Line {l1=0x07, l2=» ELSE «, l3=0x07}
0x320b…3220 Line {l1=0x13, l2=» IF RESSURS<0 THEN«, l3=0x13}
0x3220…3229 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3229…3249 Line {l1=0x1e, l2=» RESSGRUP.GRUPNR:=-RESSURS;«, l3=0x1e}
0x3249…325f Line {l1=0x14, l2=» RESSGRUP.NR:=-1;«, l3=0x14}
0x325f…3298 Line {l1=0x37, l2=» NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x37}
0x3298…32d9 Line {l1=0x3f, l2=» ERROR(RESSGRUP.A);IER:=0;«, l3=0x3f}
0x32d9…32f4 Line {l1=0x19, l2=» RESS.NR:=RESSGRUP.NR;«, l3=0x19}
0x32f4…3319 Line {l1=0x23, l2=» GETRECX(RESS.A);CHECK0(RESS.A);«, l3=0x23}
0x3319…3330 Line {l1=0x15, l2=» SATS:=RESS.TSATSF«, l3=0x15}
0x3330…3337 Line {l1=0x05, l2=» END«, l3=0x05}
0x3337…334a Line {l1=0x11, l2=» ELSE SATS:=0.0;«, l3=0x11}
0x334a…3372 Line {l1=0x26, l2=» IF SATS<>0.0 THEN ASATS:=ASATS+SATS;«, l3=0x26}
0x3372…3387 Line {l1=0x13, l2=» IF RESS.NR>0 THEN«, l3=0x13}
0x3387…3390 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3390…33a9 Line {l1=0x17, l2=» CASE OPERA.REBELAS OF«, l3=0x17}
0x33a9…33db Line {l1=0x30, l2=» 1:RESS.PRODTIM:=RESS.PRODTIM+ROUND(REGLI.TID);«, l3=0x30}
0x33db…340d Line {l1=0x30, l2=» 2:RESS.VEDLTIM:=RESS.VEDLTIM+ROUND(REGLI.TID);«, l3=0x30}
0x340d…343f Line {l1=0x30, l2=» 3:RESS.OPSTILT:=RESS.OPSTILT+ROUND(REGLI.TID);«, l3=0x30}
0x343f…3471 Line {l1=0x30, l2=» 4:RESS.OVERTIM:=RESS.OVERTIM+ROUND(REGLI.TID);«, l3=0x30}
0x3471…34a3 Line {l1=0x30, l2=» 5:RESS.REPTIME:=RESS.REPTIME+ROUND(REGLI.TID) «, l3=0x30}
0x34a3…34ab Line {l1=0x06, l2=» END;«, l3=0x06}
0x34ab…34e8 Line {l1=0x3b, l2=» IF RESS.RESSTYPE<10 THEN RESS.RESSTYPE:=RESS.RESSTYPE+20;«, l3=0x3b}
0x34e8…3530 Line {l1=0x46, l2=» (*FLAG TIL SIKRING AF EEN OMSÆTNINGSOPTÆLLING I OPTÆLRES.FIXRESS*)«, l3=0x46}
0x3530…3543 Line {l1=0x11, l2=» PUTREC(RESS.A);«, l3=0x11}
0x3543…3555 Line {l1=0x10, l2=» CHECK0(RESS.A)«, l3=0x10}
0x3555…355c Line {l1=0x05, l2=» END«, l3=0x05}
0x355c…3562 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3562…356a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x356a…3580 Line {l1=0x14, l2=»PROCEDURE RIGHTSIDE;«, l3=0x14}
0x3580…3598 Line {l1=0x16, l2=»VAR TPSTK,KRPSTK:REAL;«, l3=0x16}
0x3598…359f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x359f…35ae Line {l1=0x0d, l2=» TPSTK:=0.0;«, l3=0x0d}
0x35ae…35c0 Line {l1=0x10, l2=» KRPSTK:=TPSTK;«, l3=0x10}
0x35c0…35f7 Line {l1=0x35, l2=» POST.LØNOMK:=POST.LØNOMK+REGLI.LØN+LSATS*REGLI.TID;«, l3=0x35}
0x35f7…3626 Line {l1=0x2d, l2=» POST.MASKOMK:=POST.MASKOMK+MSATS*REGLI.TID;«, l3=0x2d}
0x3626…363f Line {l1=0x17, l2=» IF REGLI.TID>0.0 THEN«, l3=0x17}
0x363f…366d Line {l1=0x2c, l2=» WRITE(LIST,POST.LEVANTAL/REGLI.TID:5:-2)«, l3=0x2c}
0x366d…3688 Line {l1=0x19, l2=» ELSE WRITE(LIST,'-':5);«, l3=0x19}
0x3688…36a5 Line {l1=0x1b, l2=» IF POST.LEVANTAL>0.0 THEN«, l3=0x1b}
0x36a5…36ae Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x36ae…36d3 Line {l1=0x23, l2=» TPSTK:=REGLI.TID/POST.LEVANTAL;«, l3=0x23}
0x36d3…36ef Line {l1=0x1a, l2=» WRITE(LIST,TPSTK:6:3);«, l3=0x1a}
0x36ef…3709 Line {l1=0x18, l2=» RTPSTK:=RTPSTK+TPSTK«, l3=0x18}
0x3709…3710 Line {l1=0x05, l2=» END«, l3=0x05}
0x3710…372b Line {l1=0x19, l2=» ELSE WRITE(LIST,'-':6);«, l3=0x19}
0x372b…3749 Line {l1=0x1c, l2=» WRITE(LIST,REGLI.TID:7:2);«, l3=0x1c}
0x3749…3768 Line {l1=0x1d, l2=» RTOTTID:=RTOTTID+REGLI.TID;«, l3=0x1d}
0x3768…3785 Line {l1=0x1b, l2=» IF POST.LEVANTAL>0.0 THEN«, l3=0x1b}
0x3785…378e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x378e…37ce Line {l1=0x3e, l2=» KRPSTK:=(REGLI.LØN+(LSATS+MSATS)*REGLI.TID)/POST.LEVANTAL;«, l3=0x3e}
0x37ce…37eb Line {l1=0x1b, l2=» WRITE(LIST,KRPSTK:7:3);«, l3=0x1b}
0x37eb…3808 Line {l1=0x1b, l2=» RKRPSTK:=RKRPSTK+KRPSTK«, l3=0x1b}
0x3808…380f Line {l1=0x05, l2=» END«, l3=0x05}
0x380f…382a Line {l1=0x19, l2=» ELSE WRITE(LIST,'-':7);«, l3=0x19}
0x382a…3862 Line {l1=0x36, l2=» WRITELN(LIST,FKRPSTK-KRPSTK:10:3,FTPSTK-TPSTK:10:3);«, l3=0x36}
0x3862…3874 Line {l1=0x10, l2=» LINES:=LINES+1«, l3=0x10}
0x3874…387a Line {l1=0x04, l2=»END;«, l3=0x04}
0x387a…3882 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3882…389e Line {l1=0x1a, l2=»BEGIN (*EFTERKALKULATION*)«, l3=0x1a}
0x389e…38ab Line {l1=0x0b, l2=» LINES:=51;«, l3=0x0b}
0x38ab…38ba Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x38ba…38c2 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x38c2…38c5 Line {l1=0x01, l2=» «, l3=0x01}
0x38c5…38d5 Line {l1=0x0e, l2=» TTPSTK:=0.0;«, l3=0x0e}
0x38d5…38e6 Line {l1=0x0f, l2=» TTOTTID:=0.0;«, l3=0x0f}
0x38e6…38f6 Line {l1=0x0e, l2=» RTPSTK:=0.0;«, l3=0x0e}
0x38f6…3907 Line {l1=0x0f, l2=» RTOTTID:=0.0;«, l3=0x0f}
0x3907…3918 Line {l1=0x0f, l2=» RKRPSTK:=0.0;«, l3=0x0f}
0x3918…3929 Line {l1=0x0f, l2=» TKRPSTK:=0.0;«, l3=0x0f}
0x3929…392c Line {l1=0x01, l2=» «, l3=0x01}
0x392c…3942 Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x3942…395b Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x395b…396b Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x396b…397a Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x397a…39b9 Line {l1=0x3d, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;«, l3=0x3d}
0x39b9…39fe Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x39fe…3a07 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3a07…3a26 Line {l1=0x1d, l2=» IF LINES>48 THEN HEADING;«, l3=0x1d}
0x3a26…3a43 Line {l1=0x1b, l2=» REGLI.ORDRENR:=ORDRENR;«, l3=0x1b}
0x3a43…3a5e Line {l1=0x19, l2=» REGLI.EMNENR:=EMNENR;«, l3=0x19}
0x3a5e…3a7b Line {l1=0x1b, l2=» REGLI.OPERANR:=OPERANR;«, l3=0x1b}
0x3a7b…3a93 Line {l1=0x16, l2=» REGLI.MEDARBNR:=0;«, l3=0x16}
0x3a93…3aad Line {l1=0x18, l2=» REGLI.DATO:=LONGNUL;«, l3=0x18}
0x3aad…3ad4 Line {l1=0x25, l2=» GETRECX(REGLI.A);CHECK0(REGLI.A);«, l3=0x25}
0x3ad4…3aff Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x3aff…3b12 Line {l1=0x11, l2=» WITH OPERA DO«, l3=0x11}
0x3b12…3b1d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3b1d…3b31 Line {l1=0x12, l2=» NR:=OPERANR;«, l3=0x12}
0x3b31…3b4d Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x3b4d…3b6a Line {l1=0x1b, l2=» WRITE(LIST,BETEGN:17)«, l3=0x1b}
0x3b6a…3b74 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3b74…3b98 Line {l1=0x22, l2=» WRITE(LIST,REGLI.MÆNGDE:6:-2);«, l3=0x22}
0x3b98…3bad Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x3bad…3bbf Line {l1=0x10, l2=» WITH RESS DO«, l3=0x10}
0x3bbf…3bca Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3bca…3bdc Line {l1=0x10, l2=» NR:=RESS1;«, l3=0x10}
0x3bdc…3bf9 Line {l1=0x1b, l2=» GETRECX(A);CHECK0(A);«, l3=0x1b}
0x3bf9…3c1b Line {l1=0x20, l2=» WRITE(LIST,AFDELNR:2,NR:5)«, l3=0x20}
0x3c1b…3c24 Line {l1=0x07, l2=» END«, l3=0x07}
0x3c24…3c2e Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3c2e…3c55 Line {l1=0x25, l2=» IF RESS1=0 THEN WRITE(LIST,' ':7)«, l3=0x25}
0x3c55…3c7b Line {l1=0x24, l2=» ELSE WRITE(LIST,' *',-RESS1:4);«, l3=0x24}
0x3c7b…3c90 Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x3c90…3c9b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3c9b…3cc6 Line {l1=0x29, l2=» FTPSTK:=-STKH/ORDRE.ANTALBES/100.0;«, l3=0x29}
0x3cc6…3cea Line {l1=0x22, l2=» TTOTTID:=TTOTTID-STKH/100.0;«, l3=0x22}
0x3cea…3d0e Line {l1=0x22, l2=» WRITE(LIST,-STKH/100.0:18:2)«, l3=0x22}
0x3d0e…3d17 Line {l1=0x07, l2=» END«, l3=0x07}
0x3d17…3d21 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3d21…3d2c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3d2c…3d43 Line {l1=0x15, l2=» FTPSTK:=1/STKH;«, l3=0x15}
0x3d43…3d61 Line {l1=0x1c, l2=» TTPSTK:=TTPSTK+FTPSTK;«, l3=0x1c}
0x3d61…3d90 Line {l1=0x2d, l2=» TTOTTID:=TTOTTID+ORDRE.ANTALBES*FTPSTK;«, l3=0x2d}
0x3d90…3dd0 Line {l1=0x3e, l2=» WRITE(LIST,STKH:5,FTPSTK:6:3,ORDRE.ANTALBES*FTPSTK:7:2) «, l3=0x3e}
0x3dd0…3dda Line {l1=0x08, l2=» END;«, l3=0x08}
0x3dda…3df6 Line {l1=0x1a, l2=» WRITE(LIST,KRSTK:8:2);«, l3=0x1a}
0x3df6…3e0b Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x3e0b…3e3c Line {l1=0x2f, l2=» FKRPSTK:=-STKH*KRSTK/ORDRE.ANTALBES/100.0«, l3=0x2f}
0x3e3c…3e46 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3e46…3e62 Line {l1=0x1a, l2=» FKRPSTK:=KRSTK/STKH;«, l3=0x1a}
0x3e62…3e81 Line {l1=0x1d, l2=» TKRPSTK:=TKRPSTK+FKRPSTK;«, l3=0x1d}
0x3e81…3e9f Line {l1=0x1c, l2=» WRITE(LIST,FKRPSTK:6:3);«, l3=0x1c}
0x3e9f…3eb0 Line {l1=0x0f, l2=» MSATS:=0.0;«, l3=0x0f}
0x3eb0…3ec1 Line {l1=0x0f, l2=» LSATS:=0.0;«, l3=0x0f}
0x3ec1…3edc Line {l1=0x19, l2=» FIXSATS(RESS1,MSATS);«, l3=0x19}
0x3edc…3ef7 Line {l1=0x19, l2=» FIXSATS(RESS2,LSATS);«, l3=0x19}
0x3ef7…3f12 Line {l1=0x19, l2=» FIXSATS(RESS3,MSATS);«, l3=0x19}
0x3f12…3f2d Line {l1=0x19, l2=» FIXSATS(RESS4,MSATS);«, l3=0x19}
0x3f2d…3f3d Line {l1=0x0e, l2=» RIGHTSIDE;«, l3=0x0e}
0x3f3d…3f73 Line {l1=0x34, l2=» DELETE(REGLI.A);IF IER<>-9 THEN CHECK0(REGLI.A);«, l3=0x34}
0x3f73…3f83 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x3f83…3f8b Line {l1=0x06, l2=» END;«, l3=0x06}
0x3f8b…3fb8 Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2b}
0x3fb8…3fd8 Line {l1=0x1e, l2=» REGLI.ORDRENR:=POST.ORDRENR;«, l3=0x1e}
0x3fd8…3ff6 Line {l1=0x1c, l2=» REGLI.EMNENR:=POST.EMNENR;«, l3=0x1c}
0x3ff6…400b Line {l1=0x13, l2=» REGLI.OPERANR:=0;«, l3=0x13}
0x400b…4021 Line {l1=0x14, l2=» REGLI.MEDARBNR:=0;«, l3=0x14}
0x4021…4039 Line {l1=0x16, l2=» REGLI.DATO:=LONGNUL;«, l3=0x16}
0x4039…4048 Line {l1=0x0d, l2=» MSATS:=0.0;«, l3=0x0d}
0x4048…4059 Line {l1=0x0f, l2=» LSATS:=MSATS;«, l3=0x0f}
0x4059…406b Line {l1=0x10, l2=» FTPSTK:=MSATS;«, l3=0x10}
0x406b…407e Line {l1=0x11, l2=» FKRPSTK:=MSATS;«, l3=0x11}
0x407e…40ca Line {l1=0x4a, l2=» NEXTRECX(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4a}
0x40ca…4101 Line {l1=0x35, l2=» WHILE (IER=0) AND (REGLI.ORDRENR=POST.ORDRENR) AND «, l3=0x35}
0x4101…4128 Line {l1=0x25, l2=» (REGLI.EMNENR=POST.EMNENR) DO«, l3=0x25}
0x4128…4139 Line {l1=0x0f, l2=» WITH REGLI DO«, l3=0x0f}
0x4139…4142 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4142…4162 Line {l1=0x1e, l2=» WRITE(LIST,OPERANR:6,' ');«, l3=0x1e}
0x4162…4175 Line {l1=0x11, l2=» WITH OPERA DO«, l3=0x11}
0x4175…4180 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4180…4194 Line {l1=0x12, l2=» NR:=OPERANR;«, l3=0x12}
0x4194…41b0 Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x41b0…41cd Line {l1=0x1b, l2=» WRITE(LIST,BETEGN:17)«, l3=0x1b}
0x41cd…41d7 Line {l1=0x08, l2=» END;«, l3=0x08}
0x41d7…41fc Line {l1=0x23, l2=» WRITE(LIST,MÆNGDE:6:-2,' ':39);«, l3=0x23}
0x41fc…420c Line {l1=0x0e, l2=» RIGHTSIDE;«, l3=0x0e}
0x420c…421c Line {l1=0x0e, l2=» DELETEX(A)«, l3=0x0e}
0x421c…4224 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4224…4257 Line {l1=0x31, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x31}
0x4257…4261 Line {l1=0x08, l2=» BOTTOM«, l3=0x08}
0x4261…4267 Line {l1=0x04, l2=» END«, l3=0x04}
0x4267…426d Line {l1=0x04, l2=»END;«, l3=0x04}
0x426d…4275 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4275…428b Line {l1=0x14, l2=»PROCEDURE SLETORDRE;«, l3=0x14}
0x428b…4292 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4292…42a6 Line {l1=0x12, l2=» WITH KUNORDRE DO«, l3=0x12}
0x42a6…42af Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x42af…42c7 Line {l1=0x16, l2=» ORDRENR:=ORDRE.NR;«, l3=0x16}
0x42c7…42e4 Line {l1=0x1b, l2=» KUNDENR:=ORDRE.KUNDENR;«, l3=0x1b}
0x42e4…42ff Line {l1=0x19, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x19}
0x42ff…4337 Line {l1=0x36, l2=» GETRECX(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x36}
0x4337…4351 Line {l1=0x18, l2=» DELETE(A); CHECK0(A)«, l3=0x18}
0x4351…4359 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4359…435c Line {l1=0x01, l2=» «, l3=0x01}
0x435c…4376 Line {l1=0x18, l2=» ORDTEKST.NR:=ORDRE.NR;«, l3=0x18}
0x4376…4398 Line {l1=0x20, l2=» ORDTEKST.EMNENR:=ORDRE.EMNENR;«, l3=0x20}
0x4398…43ad Line {l1=0x13, l2=» ORDTEKST.LBNR:=0;«, l3=0x13}
0x43ad…43e5 Line {l1=0x36, l2=» NEXTRECX(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x36}
0x43e5…4416 Line {l1=0x2f, l2=» ERROR(ORDTEKST.A);IER:=0;«, l3=0x2f}
0x4416…445d Line {l1=0x45, l2=» WHILE (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR) AND«, l3=0x45}
0x445d…4486 Line {l1=0x27, l2=» (IER=0) DO DELETEX(ORDTEKST.A);«, l3=0x27}
0x4486…44bc Line {l1=0x34, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x34}
0x44bc…44f4 Line {l1=0x36, l2=» GETREC(ORDTEKST.A);IF IER<>0 THEN ERROR(ORDTEKST.A);«, l3=0x36}
0x44f4…44f7 Line {l1=0x01, l2=» «, l3=0x01}
0x44f7…453a Line {l1=0x41, l2=» DELETE(ORDRE.A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A) «, l3=0x41}
0x453a…453d Line {l1=0x01, l2=» «, l3=0x01}
0x453d…4543 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4543…454b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x454b…4563 Line {l1=0x16, l2=»PROCEDURE ORDRESTATUS;«, l3=0x16}
0x4563…4581 Line {l1=0x1c, l2=»VAR TTID,TMÆNGDE,TLØN,TPSTK,«, l3=0x1c}
0x4581…459e Line {l1=0x1b, l2=» ATID,AMÆNGDE,ALØN:REAL;«, l3=0x1b}
0x459e…45b2 Line {l1=0x12, l2=» LINES:INTEGER;«, l3=0x12}
0x45b2…45b5 Line {l1=0x01, l2=» «, l3=0x01}
0x45b5…45c9 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x45c9…45d0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x45d0…460d Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x460d…4655 Line {l1=0x46, l2=» WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,«, l3=0x46}
0x4655…467d Line {l1=0x26, l2=» 'emnenr',' ':6,'dato');«, l3=0x26}
0x467d…46b2 Line {l1=0x33, l2=» WRITELN(LIST,'ORDRESTATUS',' ':41,ORDRE.KUNDORDR,«, l3=0x33}
0x46b2…46df Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x46df…4725 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x4725…4764 Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x4764…4787 Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x4787…47be Line {l1=0x35, l2=» WRITELN(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6, «, l3=0x35}
0x47be…47da Line {l1=0x1a, l2=» KUNDE.NAVN,«, l3=0x1a}
0x47da…481c Line {l1=0x40, l2=» ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);«, l3=0x40}
0x481c…482e Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x482e…487a Line {l1=0x4a, l2=» WRITELN(LIST,' MEDARBNR DATO REALISERET REALISERET',«, l3=0x4a}
0x487a…4898 Line {l1=0x1c, l2=» ' ENHEDER');«, l3=0x1c}
0x4898…48e5 Line {l1=0x4b, l2=» WRITELN(LIST,' TIDSFORBRUG PR. ENHED LØN');«, l3=0x4b}
0x48e5…48f2 Line {l1=0x0b, l2=» LINES:=9 «, l3=0x0b}
0x48f2…48f8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x48f8…4900 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4900…4935 Line {l1=0x33, l2=»PROCEDURE REGLINIE(ORDRENR,EMNENR,OPERANR:INTEGER);«, l3=0x33}
0x4935…493c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x493c…495d Line {l1=0x1f, l2=» IF LINES>40 THEN HEADING;«, l3=0x1f}
0x495d…4970 Line {l1=0x11, l2=» TPSTK:=0.0;«, l3=0x11}
0x4970…4982 Line {l1=0x10, l2=» TTID:=0.0;«, l3=0x10}
0x4982…4994 Line {l1=0x10, l2=» TLØN:=0.0;«, l3=0x10}
0x4994…49a9 Line {l1=0x13, l2=» TMÆNGDE:=0.0;«, l3=0x13}
0x49a9…49bb Line {l1=0x10, l2=» ATID:=0.0;«, l3=0x10}
0x49bb…49cd Line {l1=0x10, l2=» ALØN:=0.0;«, l3=0x10}
0x49cd…49e2 Line {l1=0x13, l2=» AMÆNGDE:=0.0;«, l3=0x13}
0x49e2…49fc Line {l1=0x18, l2=» OPERA.NR:=OPERANR;«, l3=0x18}
0x49fc…4a24 Line {l1=0x26, l2=» GETREC(OPERA.A);CHECK0(OPERA.A);«, l3=0x26}
0x4a24…4a3a Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x4a3a…4a6c Line {l1=0x30, l2=» WRITELN(LIST,OPERA.NR:4,' ',OPERA.BETEGN);«, l3=0x30}
0x4a6c…4a83 Line {l1=0x15, l2=» LINES:=LINES+2;«, l3=0x15}
0x4a83…4aa2 Line {l1=0x1d, l2=» REGLI.ORDRENR:=ORDRENR;«, l3=0x1d}
0x4aa2…4abf Line {l1=0x1b, l2=» REGLI.EMNENR:=EMNENR;«, l3=0x1b}
0x4abf…4ade Line {l1=0x1d, l2=» REGLI.OPERANR:=OPERANR;«, l3=0x1d}
0x4ade…4af8 Line {l1=0x18, l2=» REGLI.MEDARBNR:=0;«, l3=0x18}
0x4af8…4b14 Line {l1=0x1a, l2=» REGLI.DATO:=LONGNUL;«, l3=0x1a}
0x4b14…4b64 Line {l1=0x4e, l2=» NEXTRECX(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4e}
0x4b64…4bb1 Line {l1=0x4b, l2=» WHILE (IER=0) AND (REGLI.OPERANR=OPERANR) AND (REGLI.ORDRENR=ORDRENR)«, l3=0x4b}
0x4bb1…4bdb Line {l1=0x28, l2=» AND (REGLI.EMNENR=EMNENR) DO«, l3=0x28}
0x4bdb…4be8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4be8…4c0a Line {l1=0x20, l2=» IF REGLI.DATO(1)>99 THEN«, l3=0x20}
0x4c0a…4c19 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4c19…4c3a Line {l1=0x1f, l2=» ATID:=ATID+REGLI.TID;«, l3=0x1f}
0x4c3a…4c5b Line {l1=0x1f, l2=» ALØN:=ALØN+REGLI.LØN;«, l3=0x1f}
0x4c5b…4c85 Line {l1=0x28, l2=» AMÆNGDE:=AMÆNGDE+REGLI.MÆNGDE «, l3=0x28}
0x4c85…4c92 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4c92…4ca0 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x4ca0…4caf Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4caf…4cd4 Line {l1=0x23, l2=» IF LINES>44 THEN HEADING;«, l3=0x23}
0x4cd4…4cfd Line {l1=0x27, l2=» WRITE(LIST,REGLI.MEDARBNR:10,«, l3=0x27}
0x4cfd…4d3e Line {l1=0x3f, l2=» REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,«, l3=0x3f}
0x4d3e…4d65 Line {l1=0x25, l2=» REGLI.TID:13:2);«, l3=0x25}
0x4d65…4d8b Line {l1=0x24, l2=» IF REGLI.MÆNGDE<>0.0 THEN «, l3=0x24}
0x4d8b…4dda Line {l1=0x4d, l2=» WRITE(LIST,REGLI.TID/REGLI.MÆNGDE:11:4) «, l3=0x4d}
0x4dda…4dfe Line {l1=0x22, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x22}
0x4dfe…4e39 Line {l1=0x39, l2=» WRITELN(LIST,REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2);«, l3=0x39}
0x4e39…4e54 Line {l1=0x19, l2=» LINES:=LINES+1;«, l3=0x19}
0x4e54…4e75 Line {l1=0x1f, l2=» TTID:=TTID+REGLI.TID;«, l3=0x1f}
0x4e75…4e96 Line {l1=0x1f, l2=» TLØN:=TLØN+REGLI.LØN;«, l3=0x1f}
0x4e96…4ebf Line {l1=0x27, l2=» TMÆNGDE:=TMÆNGDE+REGLI.MÆNGDE«, l3=0x27}
0x4ebf…4ecd Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x4ecd…4ee7 Line {l1=0x18, l2=» DELETEX(REGLI.A)«, l3=0x18}
0x4ee7…4ef3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4ef3…4f2a Line {l1=0x35, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x35}
0x4f2a…4f60 Line {l1=0x34, l2=» (*UDSKRIV TOTAL, GENERER ELLER CHECK TOTALPOST*)«, l3=0x34}
0x4f60…4f75 Line {l1=0x13, l2=» WRITELN(LIST,«, l3=0x13}
0x4f75…4fc5 Line {l1=0x4e, l2=» '-----------------------------------------------------------------');«, l3=0x4e}
0x4fc5…4ffa Line {l1=0x33, l2=» WRITE(LIST,'REALISERET OPTALT',TTID:13:2);«, l3=0x33}
0x4ffa…5016 Line {l1=0x1a, l2=» IF TMÆNGDE<>0.0 THEN«, l3=0x1a}
0x5016…5033 Line {l1=0x1b, l2=» TPSTK:=TTID/TMÆNGDE«, l3=0x1b}
0x5033…503f Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x503f…5054 Line {l1=0x13, l2=» TPSTK:=0.0;«, l3=0x13}
0x5054…5086 Line {l1=0x30, l2=» IF TPSTK<>0.0 THEN WRITE(LIST,TPSTK:11:4) «, l3=0x30}
0x5086…50a6 Line {l1=0x1e, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x1e}
0x50a6…50d3 Line {l1=0x2b, l2=» WRITELN(LIST,TLØN:12:2,TMÆNGDE:9:-2);«, l3=0x2b}
0x50d3…5108 Line {l1=0x33, l2=» WRITE(LIST,'REALISERET INDTASTET',ATID:13:2);«, l3=0x33}
0x5108…5143 Line {l1=0x39, l2=» IF AMÆNGDE<>0.0 THEN WRITE(LIST,ATID/AMÆNGDE:11:4) «, l3=0x39}
0x5143…5163 Line {l1=0x1e, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x1e}
0x5163…5187 Line {l1=0x22, l2=» WRITELN(LIST,AMÆNGDE:21:-2);«, l3=0x22}
0x5187…51ab Line {l1=0x22, l2=» IF ATID=0.0 THEN ATID:=TTID;«, l3=0x22}
0x51ab…51cf Line {l1=0x22, l2=» IF ALØN=0.0 THEN ALØN:=TLØN;«, l3=0x22}
0x51cf…51fc Line {l1=0x2b, l2=» IF AMÆNGDE=0.0 THEN AMÆNGDE:=TMÆNGDE;«, l3=0x2b}
0x51fc…5213 Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0x5213…5232 Line {l1=0x1d, l2=» REGLI.ORDRENR:=ORDRENR;«, l3=0x1d}
0x5232…524f Line {l1=0x1b, l2=» REGLI.EMNENR:=EMNENR;«, l3=0x1b}
0x524f…526e Line {l1=0x1d, l2=» REGLI.OPERANR:=OPERANR;«, l3=0x1d}
0x526e…5288 Line {l1=0x18, l2=» REGLI.MEDARBNR:=0;«, l3=0x18}
0x5288…52a4 Line {l1=0x1a, l2=» REGLI.DATO:=LONGNUL;«, l3=0x1a}
0x52a4…52bc Line {l1=0x16, l2=» REGLI.TID:=ATID;«, l3=0x16}
0x52bc…52d4 Line {l1=0x16, l2=» REGLI.LØN:=ALØN;«, l3=0x16}
0x52d4…52f2 Line {l1=0x1c, l2=» REGLI.MÆNGDE:=AMÆNGDE;«, l3=0x1c}
0x52f2…531a Line {l1=0x26, l2=» INSERT(REGLI.A);CHECK0(REGLI.A) «, l3=0x26}
0x531a…5320 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5320…5328 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5328…533f Line {l1=0x15, l2=»BEGIN (*ORDRESTATUS*)«, l3=0x15}
0x533f…534d Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x534d…535d Line {l1=0x0e, l2=» WITH PROD DO«, l3=0x0e}
0x535d…5366 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5366…5382 Line {l1=0x1a, l2=» ORDRENR:=POST.ORDRENR;«, l3=0x1a}
0x5382…539c Line {l1=0x18, l2=» EMNENR:=POST.EMNENR;«, l3=0x18}
0x539c…53ae Line {l1=0x10, l2=» SEKVENSN:=0;«, l3=0x10}
0x53ae…53bf Line {l1=0x0f, l2=» OPERANR:=0;«, l3=0x0f}
0x53bf…5400 Line {l1=0x3f, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;«, l3=0x3f}
0x5400…544a Line {l1=0x48, l2=» WHILE (IER=0) AND (ORDRENR=POST.ORDRENR) AND (EMNENR=POST.EMNENR) DO«, l3=0x48}
0x544a…5455 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5455…547e Line {l1=0x27, l2=» REGLINIE(ORDRENR,EMNENR,OPERANR);«, l3=0x27}
0x547e…54a2 Line {l1=0x22, l2=» POST.LEVANTAL:=REGLI.MÆNGDE;«, l3=0x22}
0x54a2…54ca Line {l1=0x26, l2=» WRITE(LIST,'KALKULERET',' ':13);«, l3=0x26}
0x54ca…54e6 Line {l1=0x1a, l2=» IF PROD.STKH<=0 THEN«, l3=0x1a}
0x54e6…5511 Line {l1=0x29, l2=» WRITE(LIST,-PROD.STKH/100.0:10:2,«, l3=0x29}
0x5511…554b Line {l1=0x38, l2=» -PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x38}
0x554b…5593 Line {l1=0x46, l2=» ELSE WRITE(LIST,ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x46}
0x5593…55be Line {l1=0x29, l2=» WRITELN(LIST,ORDRE.ANTALBES:21:-2);«, l3=0x29}
0x55be…55d5 Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x55d5…55e7 Line {l1=0x10, l2=» NEXTREC(A)«, l3=0x10}
0x55e7…55f1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x55f1…5620 Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x5620…5623 Line {l1=0x01, l2=» «, l3=0x01}
0x5623…5631 Line {l1=0x0c, l2=» HEADING;«, l3=0x0c}
0x5631…566b Line {l1=0x38, l2=» WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER');«, l3=0x38}
0x566b…5680 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x5680…56a2 Line {l1=0x20, l2=» REGLI.ORDRENR:=POST.ORDRENR;«, l3=0x20}
0x56a2…56c2 Line {l1=0x1e, l2=» REGLI.EMNENR:=POST.EMNENR;«, l3=0x1e}
0x56c2…56d9 Line {l1=0x15, l2=» REGLI.OPERANR:=0;«, l3=0x15}
0x56d9…56f1 Line {l1=0x16, l2=» REGLI.MEDARBNR:=0;«, l3=0x16}
0x56f1…570b Line {l1=0x18, l2=» REGLI.DATO:=LONGNUL;«, l3=0x18}
0x570b…5759 Line {l1=0x4c, l2=» NEXTRECX(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4c}
0x5759…5792 Line {l1=0x37, l2=» WHILE (IER=0) AND (REGLI.ORDRENR=POST.ORDRENR) AND «, l3=0x37}
0x5792…57bb Line {l1=0x27, l2=» (REGLI.EMNENR=POST.EMNENR) DO«, l3=0x27}
0x57bb…57c6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x57c6…57e7 Line {l1=0x1f, l2=» IF REGLI.MEDARBNR>0 THEN «, l3=0x1f}
0x57e7…5824 Line {l1=0x3b, l2=» REGLINIE(REGLI.ORDRENR,REGLI.EMNENR,REGLI.OPERANR);«, l3=0x3b}
0x5824…583d Line {l1=0x17, l2=» NEXTRECX(REGLI.A)«, l3=0x17}
0x583d…5847 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5847…587c Line {l1=0x33, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x33}
0x587c…58bb Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3d}
0x58bb…58c2 Line {l1=0x05, l2=» END«, l3=0x05}
0x58c2…58c8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x58c8…58d0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x58d0…58e5 Line {l1=0x13, l2=»PROCEDURE OPTÆLRES;«, l3=0x13}
0x58e5…58e8 Line {l1=0x01, l2=» «, l3=0x01}
0x58e8…5911 Line {l1=0x27, l2=»PROCEDURE FIXRESS(VAR RESSURS:INTEGER);«, l3=0x27}
0x5911…5918 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5918…5927 Line {l1=0x0d, l2=» RESS.NR:=0;«, l3=0x0d}
0x5927…593c Line {l1=0x13, l2=» IF RESSURS>0 THEN«, l3=0x13}
0x593c…5953 Line {l1=0x15, l2=» RESS.NR:=RESSURS «, l3=0x15}
0x5953…595c Line {l1=0x07, l2=» ELSE «, l3=0x07}
0x595c…5971 Line {l1=0x13, l2=» IF RESSURS<0 THEN«, l3=0x13}
0x5971…597a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x597a…599a Line {l1=0x1e, l2=» RESSGRUP.GRUPNR:=-RESSURS;«, l3=0x1e}
0x599a…59b0 Line {l1=0x14, l2=» RESSGRUP.NR:=-1;«, l3=0x14}
0x59b0…59e9 Line {l1=0x37, l2=» NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x37}
0x59e9…5a2a Line {l1=0x3f, l2=» ERROR(RESSGRUP.A);IER:=0;«, l3=0x3f}
0x5a2a…5a45 Line {l1=0x19, l2=» RESS.NR:=RESSGRUP.NR «, l3=0x19}
0x5a45…5a4d Line {l1=0x06, l2=» END;«, l3=0x06}
0x5a4d…5a62 Line {l1=0x13, l2=» IF RESS.NR>0 THEN«, l3=0x13}
0x5a62…5a6b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5a6b…5a90 Line {l1=0x23, l2=» GETRECX(RESS.A);CHECK0(RESS.A);«, l3=0x23}
0x5a90…5abd Line {l1=0x2b, l2=» IF RESS.RESSTYPE>10 THEN (*SE FIXSATS*)«, l3=0x2b}
0x5abd…5ac8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5ac8…5af0 Line {l1=0x26, l2=» RESS.RESSTYPE:=RESS.RESSTYPE-20;«, l3=0x26}
0x5af0…5b2d Line {l1=0x3b, l2=» RESS.SAMOMS:=RESS.SAMOMS+POST.LEVANTAL*POST.SALGSPRI;«, l3=0x3b}
0x5b2d…5b76 Line {l1=0x47, l2=» RESS.SAMDB:=RESS.SAMDB+POST.LEVANTAL*(POST.SALGSPRI-(POST.LØNOMK+«, l3=0x47}
0x5b76…5bbe Line {l1=0x46, l2=» POST.MATOMK+POST.MASKOMK))«, l3=0x46}
0x5bbe…5bc8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5bc8…5bdd Line {l1=0x13, l2=» PUTREC(RESS.A);«, l3=0x13}
0x5bdd…5bf2 Line {l1=0x13, l2=» CHECK0(RESS.A);«, l3=0x13}
0x5bf2…5c0d Line {l1=0x19, l2=» REBELAST.NR:=RESS.NR;«, l3=0x19}
0x5c0d…5c3d Line {l1=0x2e, l2=» REBELAST.STARTDAG:=PROD.STARTTID MOD 1000;«, l3=0x2e}
0x5c3d…5c6b Line {l1=0x2c, l2=» REBELAST.STTIME:=PROD.STARTTID DIV 1000;«, l3=0x2c}
0x5c6b…5c90 Line {l1=0x23, l2=» REBELAST.ORDRENR:=PROD.ORDRENR;«, l3=0x23}
0x5c90…5cb3 Line {l1=0x21, l2=» REBELAST.EMNENR:=PROD.EMNENR;«, l3=0x21}
0x5cb3…5cd8 Line {l1=0x23, l2=» REBELAST.OPERANR:=PROD.OPERANR;«, l3=0x23}
0x5cd8…5d22 Line {l1=0x48, l2=» GETRECX(REBELAST.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(REBELAST.A);«, l3=0x48}
0x5d22…5d66 Line {l1=0x42, l2=» IF IER=0 THEN BEGIN DELETE(REBELAST.A);CHECK0(REBELAST.A) END «, l3=0x42}
0x5d66…5d6d Line {l1=0x05, l2=» END«, l3=0x05}
0x5d6d…5d73 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5d73…5d7b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5d7b…5d8f Line {l1=0x12, l2=»BEGIN (*OPTÆLRES*)«, l3=0x12}
0x5d8f…5d9f Line {l1=0x0e, l2=» WITH PROD DO«, l3=0x0e}
0x5d9f…5da8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5da8…5dc4 Line {l1=0x1a, l2=» ORDRENR:=POST.ORDRENR;«, l3=0x1a}
0x5dc4…5dde Line {l1=0x18, l2=» EMNENR:=POST.EMNENR;«, l3=0x18}
0x5dde…5df0 Line {l1=0x10, l2=» SEKVENSN:=0;«, l3=0x10}
0x5df0…5e01 Line {l1=0x0f, l2=» OPERANR:=0;«, l3=0x0f}
0x5e01…5e43 Line {l1=0x40, l2=» NEXTRECX(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;«, l3=0x40}
0x5e43…5e8d Line {l1=0x48, l2=» WHILE (IER=0) AND (ORDRENR=POST.ORDRENR) AND (EMNENR=POST.EMNENR) DO«, l3=0x48}
0x5e8d…5e98 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5e98…5eaf Line {l1=0x15, l2=» FIXRESS(RESS1);«, l3=0x15}
0x5eaf…5ec6 Line {l1=0x15, l2=» FIXRESS(RESS2);«, l3=0x15}
0x5ec6…5edd Line {l1=0x15, l2=» FIXRESS(RESS3);«, l3=0x15}
0x5edd…5ef4 Line {l1=0x15, l2=» FIXRESS(RESS4);«, l3=0x15}
0x5ef4…5f15 Line {l1=0x1f, l2=» OMVPROD.ORDRENR:=ORDRENR;«, l3=0x1f}
0x5f15…5f34 Line {l1=0x1d, l2=» OMVPROD.EMNENR:=EMNENR;«, l3=0x1d}
0x5f34…5f57 Line {l1=0x21, l2=» OMVPROD.SEKVENSN:=SEKVENSN;«, l3=0x21}
0x5f57…5f78 Line {l1=0x1f, l2=» OMVPROD.OPERANR:=OPERANR;«, l3=0x1f}
0x5f78…5fa5 Line {l1=0x2b, l2=» GETRECX(OMVPROD.A);CHECK0(OMVPROD.A);«, l3=0x2b}
0x5fa5…5fd1 Line {l1=0x2a, l2=» DELETE(OMVPROD.A);CHECK0(OMVPROD.A);«, l3=0x2a}
0x5fd1…5fe3 Line {l1=0x10, l2=» DELETEX(A)«, l3=0x10}
0x5fe3…5fed Line {l1=0x08, l2=» END;«, l3=0x08}
0x5fed…601c Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x601c…6047 Line {l1=0x29, l2=» GETREC(A);CHECK0(A) (*FJERN XCLUSIV*)«, l3=0x29}
0x6047…604e Line {l1=0x05, l2=» END«, l3=0x05}
0x604e…6054 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6054…605c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x605c…6070 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x6070…6080 Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x6080…608a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x608a…609c Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x609c…60cd Line {l1=0x2f, l2=» WRITELN('E F T E R K A L K U L A T I O N');«, l3=0x2f}
0x60cd…60e7 Line {l1=0x18, l2=» LÆSFELT(PICTURE(1));«, l3=0x18}
0x60e7…60fe Line {l1=0x15, l2=» IF ORDRENR>0 THEN«, l3=0x15}
0x60fe…6109 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x6109…6127 Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1c}
0x6127…6143 Line {l1=0x1a, l2=» LÆSFELT(PICTURE(2));«, l3=0x1a}
0x6143…6161 Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(2));«, l3=0x1c}
0x6161…617b Line {l1=0x18, l2=» ORDRE.NR:=ORDRENR;«, l3=0x18}
0x617b…6198 Line {l1=0x1b, l2=» ORDRE.EMNENR:=EMNENR;«, l3=0x1b}
0x6198…61b1 Line {l1=0x17, l2=» GETRECX(ORDRE.A);«, l3=0x17}
0x61b1…61c7 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x61c7…61e3 Line {l1=0x1a, l2=» NONEXIST('Ordren')«, l3=0x1a}
0x61e3…61ef Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x61ef…61fc Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x61fc…6216 Line {l1=0x18, l2=» CHECK0(ORDRE.A);«, l3=0x18}
0x6216…6230 Line {l1=0x18, l2=» EMNE.NR:=EMNENR;«, l3=0x18}
0x6230…6259 Line {l1=0x27, l2=» GETRECX(EMNE.A);CHECK0(EMNE.A);«, l3=0x27}
0x6259…627c Line {l1=0x21, l2=» SALGSPRI:=ORDRE.SALGSPRI;«, l3=0x21}
0x627c…6292 Line {l1=0x14, l2=» LEVANTAL:=0;«, l3=0x14}
0x6292…62b5 Line {l1=0x21, l2=» BESANTAL:=ORDRE.ANTALBES;«, l3=0x21}
0x62b5…62d3 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(4));«, l3=0x1c}
0x62d3…62f3 Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(4));«, l3=0x1e}
0x62f3…62f6 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x62f9…631b Line {l1=0x20, l2=» KUNDE.NR:=ORDRE.KUNDENR;«, l3=0x20}
0x631b…6345 Line {l1=0x28, l2=» GETREC(KUNDE.A);CHECK0(KUNDE.A);«, l3=0x28}
0x6345…6348 Line {l1=0x01, l2=» «, l3=0x01}
0x6348…635e Line {l1=0x14, l2=» LØNOMK:=0.0;«, l3=0x14}
0x635e…6375 Line {l1=0x15, l2=» MASKOMK:=0.0;«, l3=0x15}
0x6375…6378 Line {l1=0x01, l2=» «, l3=0x01}
0x6378…638e Line {l1=0x14, l2=» ORDRESTATUS;«, l3=0x14}
0x638e…63ac Line {l1=0x1c, l2=» LÆSFELT(PICTURE(3));«, l3=0x1c}
0x63ac…63cc Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(3));«, l3=0x1e}
0x63cc…6414 Line {l1=0x46, l2=» MATOMK:=LEVANTAL*EMNE.NETTOVÆG; (*LEVERET NETTOVÆGT*)«, l3=0x46}
0x6414…645a Line {l1=0x44, l2=» (* = SOLGT MÆNGDE*)«, l3=0x44}
0x645a…647a Line {l1=0x1e, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x1e}
0x647a…64a7 Line {l1=0x2b, l2=» GETRECX(RÅVARE.A);CHECK0(RÅVARE.A);«, l3=0x2b}
0x64a7…64ea Line {l1=0x41, l2=» RÅVARE.OMSÆTP:=RÅVARE.OMSÆTP+RÅVARE.PRISKG*MATOMK/1000.0;«, l3=0x41}
0x64ea…6539 Line {l1=0x4d, l2=» RÅVARE.DBP:=RÅVARE.DBP+(RÅVARE.PRISKG-RÅVARE.KOSTPRIS)*MATOMK/1000.0;«, l3=0x4d}
0x6539…6570 Line {l1=0x35, l2=» RÅVARE.KGSOLGT:=RÅVARE.KGSOLGT+MATOMK/1000.0;«, l3=0x35}
0x6570…6573 Line {l1=0x01, l2=» «, l3=0x01}
0x6573…6591 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(5));«, l3=0x1c}
0x6591…65d7 Line {l1=0x44, l2=» SKRIVFELT(PICTURE(5)); (*FORBRUGT MÆNGDE*)«, l3=0x44}
0x65d7…660a Line {l1=0x31, l2=» RÅVARE.LAGER:=RÅVARE.LAGER-MATOMK/1000.0;«, l3=0x31}
0x660a…6643 Line {l1=0x37, l2=» RÅVARE.KGFORBRU:=RÅVARE.KGFORBRU+MATOMK/1000.0;«, l3=0x37}
0x6643…666f Line {l1=0x2a, l2=» PUTREC(RÅVARE.A);CHECK0(RÅVARE.A);«, l3=0x2a}
0x666f…66b7 Line {l1=0x46, l2=» MATOMK:=MATOMK/LEVANTAL; (*MATERIALEFORBRUG PR. LEVERET*)«, l3=0x46}
0x66b7…66ff Line {l1=0x46, l2=» (*INDGÅR I.ST.F. NETTOVÆGT I *)«, l3=0x46}
0x66ff…6747 Line {l1=0x46, l2=» (*SMELTEOMKOSTNINGSBEREGNING *)«, l3=0x46}
0x6747…675b Line {l1=0x12, l2=» EFTERKALK;«, l3=0x12}
0x675b…675e Line {l1=0x01, l2=» «, l3=0x01}
0x675e…6795 Line {l1=0x35, l2=» EMNE.SAMSALG:=EMNE.SAMSALG+LEVANTAL*SALGSPRI;«, l3=0x35}
0x6795…67e4 Line {l1=0x4d, l2=» EMNE.DÆKBID:=EMNE.DÆKBID+LEVANTAL*(SALGSPRI-(LØNOMK+MATOMK+MASKOMK));«, l3=0x4d}
0x67e4…680d Line {l1=0x27, l2=» (*EMNE.STKHSA,STKHBA UDSÆTTES*)«, l3=0x27}
0x680d…6835 Line {l1=0x26, l2=» PUTREC(EMNE.A);CHECK0(EMNE.A);«, l3=0x26}
0x6835…6838 Line {l1=0x01, l2=» «, l3=0x01}
0x6838…684b Line {l1=0x11, l2=» OPTÆLRES;«, l3=0x11}
0x684b…6878 Line {l1=0x2b, l2=» PLUSMINU:=-(MATOMK+LØNOMK+MASKOMK)+«, l3=0x2b}
0x6878…68b7 Line {l1=0x3d, l2=» (ORDRE.MATOMK+ORDRE.LØNOMK+ORDRE.MASKINOM);«, l3=0x3d}
0x68b7…68cb Line {l1=0x12, l2=» SLETORDRE;«, l3=0x12}
0x68cb…68ce Line {l1=0x01, l2=» «, l3=0x01}
0x68ce…68ee Line {l1=0x1e, l2=» DATO:=SYSTEM.DAGSDATO;«, l3=0x1e}
0x68ee…690b Line {l1=0x1b, l2=» INSERT(A);CHECK0(A)«, l3=0x1b}
0x690b…6916 Line {l1=0x09, l2=» END«, l3=0x09}
0x6916…691f Line {l1=0x07, l2=» END«, l3=0x07}
0x691f…6932 Line {l1=0x11, l2=» UNTIL ORDRENR=0«, l3=0x11}
0x6932…6938 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6938…6940 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6940…6953 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x6953…6965 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x6965…6977 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x6977…698b Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x698b…69a0 Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x69a0…69b4 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x69b4…69c4 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x69c4…69d0 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x69d0…69e5 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x69e5…69f0 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x69f0…6a06 Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0x6a06…6a20 Line {l1=0x18, l2=» RESSGRUP.A(-4):=0; «, l3=0x18}
0x6a20…6a33 Line {l1=0x11, l2=» KUNDE.A(-4):=0;«, l3=0x11}
0x6a33…6a49 Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0x6a49…6a5d Line {l1=0x12, l2=» RÅVARE.A(-4):=0;«, l3=0x12}
0x6a5d…6a73 Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0x6a73…6a87 Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x6a87…6aa6 Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0x6aa6…6ac5 Line {l1=0x1d, l2=» OMVPROD.A(-4):=0; «, l3=0x1d}
0x6ac5…6ae4 Line {l1=0x1d, l2=» ORDRE.A(-4):=0; «, l3=0x1d}
0x6ae4…6b03 Line {l1=0x1d, l2=» KUNORDRE.A(-4):=0; «, l3=0x1d}
0x6b03…6b15 Line {l1=0x10, l2=» POST.A(-4):=0;«, l3=0x10}
0x6b15…6b28 Line {l1=0x11, l2=» REGLI.A(-4):=0;«, l3=0x11}
0x6b28…6b3e Line {l1=0x14, l2=» REBELAST.A(-4):=0;«, l3=0x14}
0x6b3e…6b58 Line {l1=0x18, l2=» ORDTEKST.A(-4):=0; «, l3=0x18}
0x6b58…6b6e Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0x6b6e…6b89 Line {l1=0x19, l2=» ORDTEKST.A(-3):=25; «, l3=0x19}
0x6b89…6ba3 Line {l1=0x18, l2=» RESSGRUP.A(-3):=3; «, l3=0x18}
0x6ba3…6bb6 Line {l1=0x11, l2=» KUNDE.A(-3):=1;«, l3=0x11}
0x6bb6…6bcc Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0x6bcc…6be0 Line {l1=0x12, l2=» RÅVARE.A(-3):=5;«, l3=0x12}
0x6be0…6bf6 Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0x6bf6…6c0a Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x6c0a…6c22 Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0x6c22…6c3a Line {l1=0x16, l2=» OMVPROD.A(-3):=13; «, l3=0x16}
0x6c3a…6c52 Line {l1=0x16, l2=» ORDRE.A(-3):=10; «, l3=0x16}
0x6c52…6c6a Line {l1=0x16, l2=» KUNORDRE.A(-3):=18; «, l3=0x16}
0x6c6a…6c7d Line {l1=0x11, l2=» POST.A(-3):=17;«, l3=0x11}
0x6c7d…6c91 Line {l1=0x12, l2=» REGLI.A(-3):=16;«, l3=0x12}
0x6c91…6ca8 Line {l1=0x15, l2=» REBELAST.A(-3):=15;«, l3=0x15}
0x6ca8…6cb3 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x6cb3…6ce1 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x6ce1…6d08 Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0x6d08…6d19 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x6d19…6d3f Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0x6d3f…6d54 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x6d54…6d80 Line {l1=0x2a, l2=» IOPEN(RESS.A); CHECK0(RESS.A); «, l3=0x2a}
0x6d80…6daf Line {l1=0x2d, l2=» IOPEN(RESSGRUP.A); CHECK0(RESSGRUP.A); «, l3=0x2d}
0x6daf…6ddb Line {l1=0x2a, l2=» IOPEN(KUNDE.A); CHECK0(KUNDE.A); «, l3=0x2a}
0x6ddb…6e07 Line {l1=0x2a, l2=» IOPEN(EMNE.A); CHECK0(EMNE.A); «, l3=0x2a}
0x6e07…6e33 Line {l1=0x2a, l2=» IOPEN(RÅVARE.A); CHECK0(RÅVARE.A); «, l3=0x2a}
0x6e33…6e5f Line {l1=0x2a, l2=» IOPEN(OPERA.A); CHECK0(OPERA.A); «, l3=0x2a}
0x6e5f…6e8b Line {l1=0x2a, l2=» IOPEN(OMVPROD.A); CHECK0(OMVPROD.A); «, l3=0x2a}
0x6e8b…6eb7 Line {l1=0x2a, l2=» IOPEN(ORDTEKST.A); CHECK0(ORDTEKST.A); «, l3=0x2a}
0x6eb7…6ee3 Line {l1=0x2a, l2=» IOPEN(ORDRE.A); CHECK0(ORDRE.A); «, l3=0x2a}
0x6ee3…6f0f Line {l1=0x2a, l2=» IOPEN(KUNORDRE.A); CHECK0(KUNORDRE.A); «, l3=0x2a}
0x6f0f…6f3b Line {l1=0x2a, l2=» IOPEN(PROD.A); CHECK0(PROD.A); «, l3=0x2a}
0x6f3b…6f67 Line {l1=0x2a, l2=» IOPEN(POST.A); CHECK0(POST.A); «, l3=0x2a}
0x6f67…6f93 Line {l1=0x2a, l2=» IOPEN(REGLI.A); CHECK0(REGLI.A); «, l3=0x2a}
0x6f93…6fbf Line {l1=0x2a, l2=» IOPEN(REBELAST.A); CHECK0(REBELAST.A); «, l3=0x2a}
0x6fbf…6ff0 Line {l1=0x2f, l2=» WRITELN('BEMÆRK AT DETTE ER EN AFSLUTNING,');«, l3=0x2f}
0x6ff0…7027 Line {l1=0x35, l2=» WRITELN('OG AT ALLE ORDRER, DER EFTERKALKULERES,');«, l3=0x35}
0x7027…7057 Line {l1=0x2e, l2=» WRITELN(' B L I V E R S L E T T E T');«, l3=0x2e}
0x7057…708c Line {l1=0x33, l2=» WRITELN('HUSK AT LØNLISTEN SKAL VÆRE UDSKREVET');«, l3=0x33}
0x708c…70bd Line {l1=0x2f, l2=» WRITELN('MONTER BREDT PAPIR OG TRYK RETURN');«, l3=0x2f}
0x70bd…70c8 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x70c8…70d5 Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x70d5…70ec Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x70ec…7107 Line {l1=0x19, l2=» ICLOSE(RESSGRUP.A); «, l3=0x19}
0x7107…711b Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x711b…7132 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x7132…7147 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x7147…715e Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x715e…7175 Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x7175…718d Line {l1=0x16, l2=» ICLOSE(ORDTEKST.A); «, l3=0x16}
0x718d…71a5 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x71a5…71bc Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0x71bc…71d0 Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x71d0…71e3 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x71e3…71f7 Line {l1=0x12, l2=» ICLOSE(REGLI.A);«, l3=0x12}
0x71f7…720e Line {l1=0x15, l2=» ICLOSE(REBELAST.A);«, l3=0x15}
0x720e…721e Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x721e…7224 Line {l1=0x04, l2=»END;«, l3=0x04}
0x7224…722c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x722c…7233 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x7233…724d Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x724d…7265 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x7265…727b Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x727b…728b Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x728b…7294 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x7294…72b7 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x72b7…72c3 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x72c3…7313 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x7313…7323 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x7323…7363 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x7363…73b3 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x73b3…73cc Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x73cc…73e6 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x73e6…7404 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x7404…7415 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x7415…7436 Line {l1=0x1f, l2=» DESCNAVN:='EFTEPESC:P2:05:J';«, l3=0x1f}
0x7436…744a Line {l1=0x12, l2=» IF RESPRINT THEN«, l3=0x12}
0x744a…7453 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x7453…7462 Line {l1=0x0d, l2=» REGVEDL; «, l3=0x0d}
0x7462…746f Line {l1=0x0b, l2=» FREEPR «, l3=0x0b}
0x746f…7477 Line {l1=0x06, l2=» END;«, l3=0x06}
0x7477…748f Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x748f…74a8 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x74a8…74c6 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x74c6…74db Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x74db…7503 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x7503…7525 Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x7525…755a Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x755a…7560 Line {l1=0x04, l2=»END.«, l3=0x04}
0x7560…7580 00 00 59 28 31 29 3a 3d 54 4f 54 41 4c 4b 45 59 53 49 5a 45 2b 31 3b 19 17 20 20 4b 45 59 28 32 ┆ Y(1):=TOTALKEYSIZE+1; KEY(2┆
0x7580…75a0 29 3a 3d 54 4f 54 41 4c 4b 45 59 53 49 5a 45 3b 17 0e 20 20 4e 52 4f 46 55 53 45 52 53 3a 3d 30 ┆):=TOTALKEYSIZE; NROFUSERS:=0┆
0x75a0…75c0 0e 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 1b 53 45 47 4d 45 4e 54 20 50 52 4f 43 45 44 55 52 ┆ END; (*$P*) SEGMENT PROCEDUR┆
0x75c0…75e0 45 20 50 4f 53 54 4c 55 44 45 3b 1b 0e 56 41 52 20 49 3a 49 4e 54 45 47 45 52 3b 0e 39 28 2a 45 ┆E POSTLUDE; VAR I:INTEGER; 9(*E┆
0x75e0…7600 56 54 2e 20 53 54 41 54 49 53 54 49 4b 55 44 53 4b 52 49 46 54 45 52 2c 20 53 49 4b 4b 45 52 48 ┆VT. STATISTIKUDSKRIFTER, SIKKERH┆
0x7600…7620 45 44 53 4b 4f 50 49 45 52 49 4e 47 20 2c 20 41 4e 44 45 54 2a 29 39 05 42 45 47 49 4e 05 0f 20 ┆EDSKOPIERING , ANDET*)9 BEGIN ┆
0x7620…7640 20 49 3a 3d 41 56 41 49 4c 5a 4f 4e 45 3b 0f 2f 20 20 49 46 20 28 49 3c 3e 48 45 4c 50 42 4c 54 ┆ I:=AVAILZONE; / IF (I<>HELPBLT┆
0x7640…7660 2b 31 29 20 4f 52 20 28 5a 28 49 29 3c 3e 4d 5a 4f 4e 45 53 49 5a 45 2b 31 29 20 54 48 45 4e 2f ┆+1) OR (Z(I)<>MZONESIZE+1) THEN/┆
0x7660…7680 08 20 20 52 45 50 45 41 54 08 26 20 20 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 49 3a 38 63 ┆ REPEAT & WRITELN(LIST,I:8c┆