|
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: 53088 (0xcf60)
Types: TextFile
Notes: Mikados_K
Names: »LIMUDSKR.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »LIMUDSKR.K«
PROGRAM LIMUDSKR;
(*DIVERSE UDSKRIFTER:RUTEKORT OSV.*)
(*$D-*)
(*$L-*)
CONST MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=4;
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;
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;
OMVPPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ORDRENR,
SEKVENSN,
OPERANR,
EMNENR :INTEGER
END;
EMNFPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
FORMNR,
EMNENR :INTEGER
END;
KUNEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KUNDENR :LONGINT;
EMNENR :INTEGER
END;
ORDRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ANTALBES,
SALGSPRI,
MATOMK,
LØNOMK,
MASKINOM,
SMEOMK,
MATFORB :REAL;
NR :INTEGER;
KUNDENR :LONGINT;
EMNENR :INTEGER;
REGDATO :LONGINT;
ØNSKLEV,
BEKRÆLEV :INTEGER;
KUNDORDR :PACKED ARRAY (1..16) OF CHAR;
INITIALE :PACKED ARRAY (1..4) OF CHAR
END;
OTEXPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR,
EMNENR,
LBNR :INTEGER;
TEKST :PACKED ARRAY (1..70) OF CHAR
END;
KUNOPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KUNDENR :LONGINT;
ORDRENR,
EMNENR :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;
REGLPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TID,
MÆNGDE,
LØN :REAL;
ORDRENR,
EMNENR,
OPERANR,
MEDARBNR :INTEGER;
DATO :LONGINT;
RTYPE :INTEGER
END;
UGEDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
UGENR,
ARBDAGNR :INTEGER
END;
ARBEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
NR :INTEGER;
DATO :LONGINT;
UGENR,
ARBTIMER :INTEGER
END;
UDSKPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
EMNENR,
ORDRENR :INTEGER;
KUNDENR :LONGINT;
RTYPE :INTEGER;
ANTEX,
TEMNE,
TORDRE :INTEGER;
TKUNDE :LONGINT;
OPNR :INTEGER
END;
(*$P*)
VAR FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
OPTION,LINES,AKTFORM,
I,J,ANTALFELTER:INTEGER;
LINE:STRING;
REGLI:REGLPOST;
RESS:RESSPOST;
KUNDE:KUNDPOST;
EMNE:EMNEPOST;
RÅVARE:RÅVAPOST;
OPERA:OPERPOST;
PROD:PRODPOST;
ORDRE:ORDRPOST;
KUNEMNE:KUNEPOST;
KUNORDRE:KUNOPOST;
OMVPROD:OMVPPOST;
EMNIFORM:EMNFPOST;
SYSTEM:SYSRPOST;
UGEDAG:UGEDPOST;
ARBEDAG:ARBEPOST;
ORDTEKST:OTEXPOST;
POST:UDSKPOST;
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
STREG:STRING(116);
(*$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;
(*$L+*)
PROCEDURE FORMULAR(I:INTEGER);
VAR LINES:INTEGER;
BEGIN
IF AKTFORM=I THEN EXIT(FORMULAR);
AKTFORM:=I;
CASE I OF
1:BEGIN
D(23,1);
WRITE('Monter bredt 8.5" papir, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
WRITELN(LIST,STREG);
FOR LINES:=2 TO 50 DO WRITELN(LIST);
WRITELN(LIST,STREG)
END
END;
2:BEGIN
D(23,1);
WRITE('Monter generel formular, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WRITELN(LIST,' ':35,STREG:6);
FOR LINES:=6 TO 72 DO WRITELN(LIST)
END
END;
3:BEGIN
D(23,1);
WRITE('Monter blankt A4 papir, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
WRITELN(LIST,STREG:82);
FOR LINES:=2 TO 71 DO WRITELN(LIST);
WRITELN(LIST,STREG:82)
END
END
END
END;
(*$L-*)
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(KUNDE.A);
ICLOSE(EMNE.A);
ICLOSE(RÅVARE.A);
ICLOSE(OPERA.A);
ICLOSE(ORDRE.A);
ICLOSE(REGLI.A);
ICLOSE(KUNEMNE.A);
ICLOSE(OMVPROD.A);
ICLOSE(KUNORDRE.A);
ICLOSE(EMNIFORM.A);
ICLOSE(PROD.A);
ICLOSE(UGEDAG.A);
ICLOSE(ARBEDAG.A);
ICLOSE(ORDTEKST.A);
EXIT(REGVEDL)
END;
PROCEDURE CHECK0(VAR REC:AR);
BEGIN
IF IER<>0 THEN ERROR(REC)
END;
(*$P*)
(*$L-*)
(*$IRLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$L+*)
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:CHAR;
RÅVFOUND,
KUNFOUND:BOOLEAN;
ANTEX,LINES:INTEGER;
(*$P*)
PROCEDURE FORKALKULATION;
VAR TTPSTK,TTOTTID,TKRPSTK: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,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,
'emnenr',' ':6,'dato');
WRITELN(LIST,'FORKALKULATION',' ':38,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');
WRITE(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6);
IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN)
ELSE WRITE(LIST,'IKKE OPRETTET':26);
WRITELN(LIST,ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);
WRITELN(LIST);
WRITELN(LIST,'op op- betegnelse antal a mas- stk tid total',
' time kr');
WRITELN(LIST,'nr art kine /h /stk tid',
' sats /stk');
WRITELN(LIST);
LINES:=10
END;
PROCEDURE BOTTOM;
BEGIN
WITH ORDRE DO
BEGIN
WRITELN(LIST,STREG:69);
WRITELN(LIST,'TOTAL',' ':35,TTPSTK:8:3,TTOTTID:7:2,TKRPSTK:14:3);
WRITELN(LIST);
IF LINES>34 THEN HEADING;
WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3);
WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3);
WRITELN(LIST,' ':45,STREG:16);
WRITELN(LIST,'MAT.-OMKOSTNINGER ',' ':27,MATOMK:8:3,MATOMK:8:3);
WRITELN(LIST,'LØNOMKOSTNINGER ',' ':35,LØNOMK:8:3);
WRITELN(LIST,'MASKINOMKOSTNINGER',' ':35,MASKINOM:8:3);
WRITELN(LIST,' ':53,STREG:16);
WRITELN(LIST,'EMNEPRIS ',' ':35,MATOMK+
LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3);
WRITELN(LIST,'DÆKNINGSBIDRAG ',' ':35,-MATOMK+
SALGSPRI-LØNOMK-MASKINOM:16:3);
WRITELN(LIST,' ':61,STREG:8);
WRITELN(LIST,'SALGSPRIS ',' ':35,SALGSPRI:16:3);
WRITELN(LIST,' ':61,'========')
END;
LINES:=LINES+15;
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END;
(*$P*)
BEGIN (*FORKALKULATION*)
LINES:=51;
WITH PROD DO
BEGIN
TTPSTK:=0.0;
TTOTTID:=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;
LINES:=LINES+1;
WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');
WITH OPERA DO
BEGIN
NR:=OPERANR;
GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);
IF IER=0 THEN WRITE(LIST,BETEGN:17)
ELSE WRITE(LIST,'IKKE OPRETTET':17)
END;
WRITE(LIST,ORDRE.ANTALBES:6:-2);
IF RESS1>0 THEN
WITH RESS DO
BEGIN
NR:=RESS1;
GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);
IF IER=0 THEN
WRITE(LIST,AFDELNR:2,NR:5)
ELSE WRITE(LIST,'UO',RESS1:5)
END
ELSE
IF RESS1=0 THEN WRITE(LIST,' ':7)
ELSE WRITE(LIST,' *',-RESS1:4);
IF STKH<=0 THEN
BEGIN
TTOTTID:=TTOTTID-STKH/100.0;
WRITE(LIST,-STKH/100.0:18:2)
END
ELSE
BEGIN
TTPSTK:=TTPSTK+1/STKH;
TTOTTID:=TTOTTID+ORDRE.ANTALBES/STKH;
WRITE(LIST,STKH:5,1/STKH:6:3,ORDRE.ANTALBES/STKH:7:2)
END;
WRITE(LIST,KRSTK:8:2);
IF STKH<=0 THEN
BEGIN
TKRPSTK:=TKRPSTK-STKH*KRSTK/ORDRE.ANTALBES/100.0;
WRITELN(LIST,-STKH*KRSTK/ORDRE.ANTALBES/100.0:6:3)
END
ELSE
BEGIN
TKRPSTK:=TKRPSTK+KRSTK/STKH;
WRITELN(LIST,KRSTK/STKH:6:3)
END;
NEXTREC(A)
END;
IF LINES<51 THEN BOTTOM;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
END
END;
(*$P*)
PROCEDURE RUTEKORT;
BEGIN
LINES:=72;
WITH PROD DO
BEGIN
RÅVARE.NR:=EMNE.MATNR;
GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);
RÅVFOUND:=(IER=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>68 THEN
BEGIN
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WITH EMNE DO
BEGIN
WRITELN(LIST,' ':12,'RUTEKORT',
KUNDENR(1)*10000.0+KUNDENR(2):20:-2,' ',ORDRE.KUNDORDR,
NR:5,ORDRE.NR:10);
FOR LINES:=6 TO 8 DO WRITELN(LIST);
WRITE(LIST,TEGNNR,' ',BETEGN,' ');
IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)
ELSE WRITELN(LIST,'IKKE OPRETTET');
FOR LINES:=10 TO 12 DO WRITELN(LIST);
IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)
ELSE WRITE(LIST,'IKKE OPRETTET ');
WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,
ORDRE.ANTALBES*NETTOVÆG/1000.0:8:2,ORDRE.ANTALBES:12:-2,
ORDRE.ØNSKLEV:6,ORDRE.BEKRÆLEV:6,
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2,
ORDRE.INITIALE:5)
END;
WRITELN(LIST);
WRITELN(LIST,' ':48,' arbnr dato antal');
LINES:=15
END;
LINES:=LINES+2;
WRITELN(LIST);
WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');
OPERA.NR:=OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)
ELSE WRITE(LIST,'IKKE OPRETTET ');
IF RESS1>0 THEN
BEGIN
RESS.NR:=RESS1;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN
WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)
ELSE WRITE(LIST,RESS1:7,' UOPRETTET')
END
ELSE
IF RESS1=0 THEN WRITE(LIST,' ':17)
ELSE WRITE(LIST,' *',-RESS1:4,' ':10);
WRITELN(LIST);
NEXTREC(A)
END;
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)
END
END;
(*$P*)
PROCEDURE PRODUKTIONSORDRE;
VAR HYLDE:INTEGER;
PROCEDURE HEADING;
BEGIN
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WITH EMNE DO
BEGIN
WRITELN(LIST,' ':12,'PRODUKTIONSORDRE',
KUNDENR(1)*10000.0+KUNDENR(2):12:-2,' ',ORDRE.KUNDORDR,
NR:5,ORDRE.NR:10);
FOR LINES:=6 TO 8 DO WRITELN(LIST);
WRITE(LIST,TEGNNR,' ',BETEGN,' ');
IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)
ELSE WRITELN(LIST,'IKKE OPRETTET');
FOR LINES:=10 TO 12 DO WRITELN(LIST);
IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)
ELSE WRITE(LIST,'IKKE OPRETTET ');
WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,
ORDRE.ANTALBES*NETTOVÆG/1000.0:8:2,ORDRE.ANTALBES:12:-2,
ORDRE.ØNSKLEV:6,ORDRE.BEKRÆLEV:6,
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2,
ORDRE.INITIALE:5)
END;
WRITELN(LIST);
WRITELN(LIST,' ':48,'start varigh værkt hjvt hyld');
LINES:=15
END;
BEGIN
LINES:=72;
WITH PROD DO
BEGIN
RÅVARE.NR:=EMNE.MATNR;
GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);
RÅVFOUND:=(IER=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>68 THEN HEADING;
LINES:=LINES+2;
WRITELN(LIST);
WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');
OPERA.NR:=OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)
ELSE WRITE(LIST,'IKKE OPRETTET ');
IF RESS1>0 THEN
BEGIN
RESS.NR:=RESS1;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN
WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)
ELSE WRITE(LIST,RESS1:7,' UOPRETTET')
END
ELSE
IF RESS1=0 THEN WRITE(LIST,' ':17)
ELSE WRITE(LIST,' *',-RESS1:4,' ':10);
IF STARTTID>0 THEN
BEGIN
ARBEDAG.NR:=STARTTID MOD 1000;
GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);
UGEDAG.UGENR:=ARBEDAG.UGENR;
GETREC(UGEDAG.A);CHECK0(UGEDAG.A);
WRITE(LIST,UGEDAG.UGENR MOD 100:3,'/',
ARBEDAG.NR-UGEDAG.ARBDAGNR+1)
END
ELSE
WRITE(LIST,STARTTID:5);
WRITE(LIST,VARIGHED:7,' ');
HYLDE:=0;
IF RESS3>0 THEN
BEGIN
WRITE(LIST,RESS3:5);
RESS.NR:=RESS3;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN HYLDE:=RESS.HYLDENR
END
ELSE
IF RESS3=0 THEN WRITE(LIST,' ':5)
ELSE WRITE(LIST,'*',-RESS3:4);
IF RESS4>0 THEN
BEGIN
WRITE(LIST,RESS4:5);
IF HYLDE=0 THEN
BEGIN
RESS.NR:=RESS4;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN HYLDE:=RESS.HYLDENR
END
END
ELSE
IF RESS4=0 THEN WRITE(LIST,' ':5)
ELSE WRITE(LIST,'*',-RESS4:4);
IF HYLDE>0 THEN WRITELN(LIST,HYLDE:5)
ELSE
WRITELN(LIST);
NEXTREC(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
ORDTEKST.NR:=ORDRE.NR;
ORDTEKST.EMNENR:=ORDRE.EMNENR;
ORDTEKST.LBNR:=0;
NEXTREC(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(ORDTEKST.A);
IER:=0;
WHILE (IER=0) AND (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR)
DO
BEGIN
IF LINES>68 THEN HEADING;
WRITELN(LIST);
WRITELN(LIST,' ':7,ORDTEKST.TEKST);
LINES:=LINES+2;
NEXTREC(ORDTEKST.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
PROCEDURE EMNELIST;
PROCEDURE HEADING;
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 2 DO WRITELN(LIST);
WRITELN(LIST,'Emnespecifikaton pr. kunde');
WRITELN(LIST,STREG:109);
WRITELN(LIST,'Kundenr:',KUNDE.NR(1)*10000.0+KUNDE.NR(2):7:-2,' ':12,
'Navn: ',KUNDE.NAVN,' ':35,'Dato:',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,STREG:109);
WRITELN(LIST,' nr Tegn. nr',' ':13,'Betegnelse',' ':21,'Matr.',
' ':17,'vægt',' ':2,'tid SA/BA Værk Maskine');
WRITELN(LIST,STREG:109);
LINES:=8
END;
(*$P*)
BEGIN
LINES:=51;
WITH KUNEMNE DO
BEGIN
KUNDENR:=KUNDE.NR;
EMNENR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (KUNDENR=KUNDE.NR) DO
WITH EMNE DO
BEGIN
IF LINES>48 THEN HEADING;
NR:=EMNENR;
GETREC(A);CHECK0(A);
RÅVARE.NR:=EMNE.MATNR;
GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);
RÅVFOUND:=(IER=0);
WRITE(LIST,NR:5,' ',TEGNNR,' ',BETEGN,' ');
IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)
ELSE WRITE(LIST,'IKKE OPRETTET':16);
WRITELN(LIST,NETTOVÆG:10:2,STKHSA:6,'/',STKHBA:5,FORMNR:5,MASKINE:8);
LINES:=LINES+1;
NEXTREC(KUNEMNE.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
PROCEDURE FORMLIST;
PROCEDURE HEADING;
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 2 DO WRITELN(LIST);
WRITELN(LIST,STREG);
WRITELN(LIST,'Formregistreringsliste',' ':79,'Dato:',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,STREG);
WRITELN(LIST,'Form. Kunde',' ':22,'Emnenr Emne',' ':27,'Tegn.nr',
' ':14,'Bemærkning',' ':10,'Mask');
WRITELN(LIST,STREG);
LINES:=7
END;
(*$P*)
BEGIN
LINES:=51;
WITH EMNIFORM DO
BEGIN
FORMNR:=0;
EMNENR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO
WITH EMNE DO
BEGIN
IF LINES>48 THEN HEADING;
NR:=EMNENR;
GETREC(A);CHECK0(A);
KUNDE.NR:=EMNE.KUNDENR;
GETREC(KUNDE.A);CHECK0(KUNDE.A);
WRITELN(LIST,FORMNR:5,' ',KUNDE.NAVN,NR:7,
' ',BETEGN,' ',TEGNNR,' ',
BEMÆRK:19,MASKINE:5);
LINES:=LINES+1;
NEXTREC(EMNIFORM.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
PROCEDURE ORDRLIST;
PROCEDURE HEADING;
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 2 DO WRITELN(LIST);
WRITELN(LIST,STREG);
WRITELN(LIST,'Ordreoversigt',' ':88,'Dato:',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,STREG);
WRITELN(LIST,'Ordre Kunde',' ':19,'Emnenr Emne',' ':24,'Tegn.nr',
' ':16,'Antal',' ':2,'Init Dato Mask Øuge');
WRITELN(LIST,STREG);
LINES:=7
END;
(*$P*)
BEGIN
WITH ORDRE,EMNE DO
BEGIN
IF LINES>48 THEN HEADING;
WRITE(LIST,ORDRE.NR:5,' ');
IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN:23)
ELSE WRITE(LIST,'KUNDEN ER IKKE OPRETTET');
WRITELN(LIST,NR:7,
' ',BETEGN:27,' ',TEGNNR,
ORDRE.ANTALBES:8:-2,' ',ORDRE.INITIALE,
ORDRE.REGDATO(1)*10000.0+ORDRE.REGDATO(2):7:-2,
MASKINE:5,ORDRE.ØNSKLEV:5);
LINES:=LINES+1
END
END;
(*$P*)
PROCEDURE KUNOLIST;
VAR REST:REAL;
PROCEDURE HEADING;
BEGIN
IF CH IN NEJ THEN
BEGIN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 2 DO WRITELN(LIST);
WRITELN(LIST,'Kundeordreoversigt');
WRITELN(LIST,STREG);
WRITELN(LIST,'Kundenr:',KUNDE.NR(1)*10000.0+KUNDE.NR(2):7:-2,' ':6,
'Navn: ',KUNDE.NAVN,' ':48,'Dato:',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,STREG);
WRITELN(LIST,'Tegn. nr',' ':13,' Kundens ordrenr Emnenr Emne',
' ':27,'Ordrenr Antal/Rest',' ':2,
'Øuge B.lev.uge');
WRITELN(LIST,STREG);
LINES:=8
END
ELSE
BEGIN
IF LINES<51 THEN
BEGIN
GOTOXY(1,24);
WRITE('RETURN ');
READLN
END;
CLEARSCREEN;
WRITELN('Tegn. nr',' ':13,'Kundens ordrenr Emne',
' ':10,'Ordnr Antal/ Rest',
' Øuge Buge');
LINES:=1
END
END;
(*$P*)
BEGIN
LINES:=51;
WITH KUNORDRE DO
BEGIN
KUNDENR:=KUNDE.NR;
ORDRENR:=0;
EMNENR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (KUNDENR=KUNDE.NR) DO
WITH EMNE DO
BEGIN
IF (LINES>48) OR ((CH IN JA) AND (LINES>22)) THEN HEADING;
NR:=EMNENR;
GETREC(A);CHECK0(A);
ORDRE.NR:=ORDRENR;
ORDRE.EMNENR:=NR;
GETREC(ORDRE.A);CHECK0(ORDRE.A);
REST:=ORDRE.ANTALBES;
REGLI.ORDRENR:=ORDRENR;
REGLI.EMNENR:=NR;
REGLI.OPERANR:=POST.OPNR;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
NEXTREC(REGLI.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REGLI.A);
IER:=0;
WHILE (IER=0) AND (REGLI.ORDRENR=ORDRENR) AND (REGLI.EMNENR=NR) AND
(REGLI.OPERANR=POST.OPNR) DO
BEGIN
REST:=REST-REGLI.MÆNGDE;
NEXTREC(REGLI.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);
IF CH IN NEJ THEN
WRITELN(LIST,TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ':3,
BETEGN,' ',ORDRE.NR:7,ORDRE.ANTALBES:10:-2,REST:6:-2,
ORDRE.ØNSKLEV:5,ORDRE.BEKRÆLEV:11)
ELSE
WRITELN(TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ',
BETEGN:9,ORDRE.NR:5,ORDRE.ANTALBES:6:-2,REST:6:-2,
ORDRE.ØNSKLEV:5,ORDRE.BEKRÆLEV:5);
LINES:=LINES+1;
ORDTEKST.NR:=ORDRENR;
ORDTEKST.EMNENR:=NR;
ORDTEKST.LBNR:=0;
NEXTREC(ORDTEKST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ORDTEKST.A);
IER:=0;
WHILE (IER=0) AND (ORDTEKST.NR=ORDRENR) AND (ORDTEKST.EMNENR=NR) DO
BEGIN
IF ORDTEKST.TEKST(1)='L' THEN
BEGIN
LINES:=LINES+1;
IF CH IN NEJ THEN
WRITELN(LIST,ORDTEKST.TEKST)
ELSE
WRITELN(ORDTEKST.TEKST)
END;
NEXTREC(ORDTEKST.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);
NEXTREC(KUNORDRE.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
IF CH IN NEJ THEN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
ELSE IF LINES<>51 THEN BEGIN WRITE('RETURN ');READLN END
END
END;
(*$P*)
PROCEDURE ORDRESTATUS;
VAR TTID,TMÆNGDE,TLØN,
ATID,AMÆNGDE,ALØN:REAL;
LINES:INTEGER;
PROCEDURE HEADING;
BEGIN
IF CH IN NEJ THEN
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
ELSE
BEGIN
IF LINES<51 THEN
BEGIN
GOTOXY(1,24);
WRITE('RETURN ');
READLN
END;
CLEARSCREEN;
WRITELN(' MEDARBNR DATO REALISERET REALISERET',
' ENHEDER');
WRITELN(' TIDSFORBRUG PR. ENHED LØN');
LINES:=2
END
END;
(*$P*)
PROCEDURE REGLINIE(ORDRENR,EMNENR,OPERANR:INTEGER);
BEGIN
IF (LINES>40) OR ((CH IN JA) AND (LINES>16)) THEN HEADING;
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);
IF CH IN NEJ THEN
BEGIN
WRITELN(LIST);
WRITELN(LIST,OPERA.NR:4,' ',OPERA.BETEGN)
END
ELSE
BEGIN
WRITELN;
WRITELN(OPERA.NR:4,' ',OPERA.BETEGN)
END;
LINES:=LINES+2;
REGLI.ORDRENR:=ORDRENR;
REGLI.EMNENR:=EMNENR;
REGLI.OPERANR:=OPERANR;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
NEXTREC(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) OR ((CH IN JA) AND (LINES>20)) THEN HEADING;
IF CH IN NEJ THEN
WRITE(LIST,REGLI.MEDARBNR:10,
REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,
REGLI.TID:13:2)
ELSE
WRITE(REGLI.MEDARBNR:10,
REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,
REGLI.TID:13:2);
IF REGLI.MÆNGDE<>0.0 THEN
IF CH IN NEJ THEN
WRITE(LIST,REGLI.TID/REGLI.MÆNGDE:11:4)
ELSE
WRITE(REGLI.TID/REGLI.MÆNGDE:11:4)
ELSE
IF CH IN NEJ THEN
WRITE(LIST,'-':11)
ELSE
WRITE('-':11);
IF CH IN NEJ THEN
WRITELN(LIST,REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2)
ELSE
WRITELN(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;
NEXTREC(REGLI.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);
(*UDSKRIV TOTAL, GENERER ELLER CHECK TOTALPOST*)
IF CH IN NEJ THEN
BEGIN
WRITELN(LIST,STREG:65);
WRITE(LIST,'REALISERET OPTALT',TTID:13:2);
IF TMÆNGDE<>0.0 THEN WRITE(LIST,TTID/TMÆNGDE: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)
END
ELSE
BEGIN
WRITELN(STREG:65);
WRITE('REALISERET OPTALT',TTID:13:2);
IF TMÆNGDE<>0.0 THEN WRITE(TTID/TMÆNGDE:11:4)
ELSE WRITE('-':11);
WRITELN(TLØN:12:2,TMÆNGDE:9:-2);
WRITE('REALISERET INDTASTET',ATID:13:2);
IF AMÆNGDE<>0.0 THEN WRITE(ATID/AMÆNGDE:11:4)
ELSE WRITE('-':11);
WRITELN(AMÆNGDE:21:-2)
END;
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
END;
(*$P*)
PROCEDURE ENKELTOP;
BEGIN
WITH OMVPROD DO
BEGIN
ORDRENR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
OPERANR:=POST.OPNR;
SEKVENSN:=0;
NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);IER:=0;
IF (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR)
AND (OPERANR=POST.OPNR) THEN
WITH PROD DO
BEGIN
SEKVENSN:=OMVPROD.SEKVENSN;
OPERANR:=OMVPROD.OPERANR;
GETREC(A);CHECK0(A);
REGLINIE(ORDRENR,EMNENR,OPERANR);
IF CH IN NEJ THEN
BEGIN
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)
END
ELSE
BEGIN
WRITE('KALKULERET',' ':13);
IF PROD.STKH<=0 THEN
WRITE(-PROD.STKH/100.0:10:2,-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)
ELSE
WRITE(ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);
WRITELN(ORDRE.ANTALBES:21:-2)
END;
LINES:=LINES+1
END
ELSE
WITH REGLI DO
BEGIN
HEADING;
IF CH IN NEJ THEN
WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER')
ELSE
WRITELN('IKKEKALKULEREDE REGISTRERINGSLINIER');
LINES:=LINES+1;
ORDRENR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
OPERANR:=POST.OPNR;
MEDARBNR:=0;
DATO:=LONGNUL;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;
IF (ORDRENR=ORDRE.NR) AND (OPERANR=POST.OPNR) AND
(EMNENR=ORDRE.EMNENR) THEN
REGLINIE(ORDRENR,EMNENR,OPERANR)
END
END
END;
(*$P*)
BEGIN (*ORDRESTATUS*)
LINES:=51;
WITH PROD DO
BEGIN
ORDRENR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
IF POST.OPNR>0 THEN
ENKELTOP
ELSE
BEGIN
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;
WHILE (IER=0) AND (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR)
AND (NOT EOF(OUTPUT)) DO
BEGIN
REGLINIE(ORDRENR,EMNENR,OPERANR);
IF CH IN NEJ THEN
BEGIN
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)
END
ELSE
BEGIN
WRITE('KALKULERET',' ':13);
IF PROD.STKH<=0 THEN
WRITE(-PROD.STKH/100.0:10:2,-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)
ELSE
WRITE(ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);
WRITELN(ORDRE.ANTALBES:21:-2)
END;
LINES:=LINES+1;
NEXTREC(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
HEADING;
IF CH IN NEJ THEN
WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER')
ELSE
WRITELN('IKKEKALKULEREDE REGISTRERINGSLINIER');
LINES:=LINES+1;
REGLI.ORDRENR:=ORDRE.NR;
REGLI.EMNENR:=ORDRE.EMNENR;
REGLI.OPERANR:=0;
REGLI.MEDARBNR:=0;
REGLI.DATO:=LONGNUL;
NEXTREC(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;
WHILE (IER=0) AND (REGLI.ORDRENR=ORDRE.NR) AND
(REGLI.EMNENR=ORDRE.EMNENR) AND (NOT EOF(OUTPUT)) DO
BEGIN
OMVPROD.ORDRENR:=REGLI.ORDRENR;
OMVPROD.EMNENR:=REGLI.EMNENR;
OMVPROD.OPERANR:=REGLI.OPERANR;
OMVPROD.SEKVENSN:=0;
NEXTREC(OMVPROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(OMVPROD.A);
IER:=0;
IF (REGLI.OPERANR<>OMVPROD.OPERANR) OR (REGLI.EMNENR<>OMVPROD.EMNENR)
OR (REGLI.ORDRENR<>OMVPROD.ORDRENR) THEN
REGLINIE(REGLI.ORDRENR,REGLI.EMNENR,REGLI.OPERANR)
ELSE
NEXTREC(REGLI.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A)
END;
IF CH IN NEJ THEN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
ELSE BEGIN WRITE('RETURN ');READLN END
END
END;
(*$P*)
PROCEDURE RESOMSÆT;
VAR R:ARRAY(1..4) OF REAL;
I:ARRAY(1..12) OF REAL;
PROCEDURE HEADING;
BEGIN
WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
WRITELN(LIST,'RESSOURCE-OMSÆTNINGSOVERSIGT TYPE',RESS.RESSTYPE:5,
' ':53,'DATO',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,' NR BETEGN SAMOMS SAMDB PRODTIM',
' VEDLTIM OPSTILT OVERTIM REPTIME TOTALTI',
' DB/P.TIM');
WRITELN(LIST,' TIMESATS SAMOMSSÅ SAMDBSÅ PRODTIMS',
' VEDLTIMS OPSTILTS OVERTIMS REPTIMES TOTALTIS',
' DB/P.TIMS');
LINES:=5
END;
PROCEDURE PERAFSLT;
BEGIN
WITH RESS DO
BEGIN
SAMOMSSÅ:=SAMOMS;
SAMDBSÅ :=SAMDB;
SAMOMS:=0;
SAMDB:=0;
PRODTIMS:=PRODTIM;
VEDLTIMS:=VEDLTIM;
OPSTILTS:=OPSTILT;
OVERTIMS:=OVERTIM;
REPTIMES:=REPTIME;
TOTALTIS:=TOTALTI;
PRODTIM:=0;
VEDLTIM:=0;
OPSTILT:=0;
OVERTIM:=0;
REPTIME:=0;
TOTALTI:=0;
PUTREC(A);CHECK0(A)
END;
END;
(*$P*)
BEGIN
LÆSFELT(PICTURE(4));
SKRIVFELT(PICTURE(4));
FOR J:=1 TO 12 DO I(J):=0.0;
FOR J:=1 TO 4 DO R(J):=0.0;
LINES:=51;
WITH RESS DO
BEGIN
NR:=0;
NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;
WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO
BEGIN
IF (RESSTYPE=POST.RTYPE) OR (POST.RTYPE=0) THEN
BEGIN
IF LINES>45 THEN HEADING;
LINES:=LINES+3;
WRITELN(LIST);
WRITE(LIST,NR:5,' ',BETEGN,SAMOMS:10:-2,SAMDB:10:-2,PRODTIM:10,
VEDLTIM:10,OPSTILT:10,OVERTIM:10,REPTIME:10,TOTALTI:10);
IF PRODTIM<>0 THEN WRITELN(LIST,SAMDB/PRODTIM:10:-2)
ELSE WRITELN(LIST,'-':10);
WRITE(LIST,TSATSF:16:2,SAMOMSSÅ:10:-2,SAMDBSÅ:10:-2,PRODTIMS:10,
VEDLTIMS:10,OPSTILTS:10,OVERTIMS:10,REPTIMES:10,TOTALTIS:10);
IF PRODTIMS<>0 THEN WRITELN(LIST,SAMDBSÅ/PRODTIMS:10:-2)
ELSE WRITELN(LIST,'-':10);
R(1):=R(1)+SAMOMS;
R(2):=R(2)+SAMDB;
R(3):=R(3)+SAMOMSSÅ;
R(4):=R(4)+SAMDBSÅ;
I(1):=I(1)+PRODTIM; I(7):=I(7)+PRODTIMS;
I(2):=I(2)+VEDLTIM; I(8):=I(8)+VEDLTIMS;
I(3):=I(3)+OPSTILT; I(9):=I(9)+OPSTILTS;
I(4):=I(4)+OVERTIM; I(10):=I(10)+OVERTIMS;
I(5):=I(5)+REPTIME; I(11):=I(11)+REPTIMES;
I(6):=I(6)+TOTALTI; I(12):=I(12)+TOTALTIS;
IF CH IN JA THEN PERAFSLT
END;
NEXTRECX(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);
PUTREC(A);CHECK0(A)
END;
IF LINES<51 THEN
BEGIN
LINES:=LINES+3;
WRITELN(LIST,STREG:106);
WRITE(LIST,'TOTAL',' ':11,R(1):10:-2,R(2):10:-2,I(1):10:-2,
I(2):10:-2,I(3):10:-2,I(4):10:-2,I(5):10:-2,I(6):10:-2);
IF I(1)<>0 THEN WRITELN(LIST,R(2)/I(1):10:-2)
ELSE WRITELN(LIST,'-':10);
WRITE(LIST,' ':16,R(3):10:-2,R(4):10:-2,I(7):10:-2,
I(8):10:-2,I(9):10:-2,I(10):10:-2,I(11):10:-2,I(12):10:-2);
IF I(7)<>0 THEN WRITELN(LIST,R(4)/I(7):10:-2)
ELSE WRITELN(LIST,'-':10);
(*TOTAL*)
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
PROCEDURE RÅVOMSÆT;
VAR R:ARRAY(1..4) OF REAL;
PROCEDURE HEADING;
BEGIN
WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
WRITELN(LIST,'RÅVARE-OMSÆTNINGSOVERSIGT',' ':53,'DATO',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,' NR BETEGN OMSÆT DB KOSTPRIS',
' LAGER KGINDKØB KGFORBRUG SMESVIND');
WRITELN(LIST,' KGPRIS OMSÆTS DBS KOSTPRSÅ',
' MINLAGER KGSOLGT SMEPRIS');
LINES:=5
END;
(*$P*)
BEGIN
FOR J:=1 TO 4 DO R(J):=0.0;
LINES:=51;
WITH RÅVARE DO
BEGIN
NR:=0;
NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;
WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO
BEGIN
IF LINES>45 THEN HEADING;
LINES:=LINES+3;
WRITELN(LIST);
WRITELN(LIST,NR:5,' ',BETEGN,OMSÆTP:10:-2,DBP:10:-2,KOSTPRIS:10:2,
LAGER:10:-2,KGINDKØB:10:-2,KGFORBRU:10:-2,SMESVIND:10);
WRITELN(LIST,' ':12,PRISKG:10:2,OMSÆTSP:10:-2,DBSÅ:10:-2,KOSTPRSÅ:10:2,
MINLAGE:10:-2,KGSOLGT:10:-2,SMEPRIS:20:2);
R(1):=R(1)+OMSÆTP;
R(2):=R(2)+DBP;
R(3):=R(3)+OMSÆTSP;
R(4):=R(4)+DBSÅ;
IF CH IN JA THEN
BEGIN
OMSÆTSP:=OMSÆTP;OMSÆTP:=0;
DBSÅ:=DBP;DBP:=0;
KOSTPRSÅ:=KOSTPRIS;
PUTREC(A);CHECK0(A)
END;
NEXTRECX(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);
PUTREC(A);CHECK0(A)
END;
IF LINES<51 THEN
BEGIN
LINES:=LINES+3;
WRITELN(LIST,STREG:92);
WRITELN(LIST,'TOTAL',' ':17,R(1):10:-2,R(2):10:-2);
WRITELN(LIST,' ':22,R(3):10:-2,R(4):10:-2);
(*TOTAL*)
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
PROCEDURE EMNOMSÆT;
VAR R:ARRAY(1..4) OF REAL;
PROCEDURE HEADING;
BEGIN
WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
WRITELN(LIST,'EMNE-OMSÆTNINGSOVERSIGT',' ':49,'DATO',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);
WRITELN(LIST,' NR BETEGN KUNDENR SAMSALG',
' DÆKBID SVIND STKHSA');
WRITELN(LIST,' SAMSALGS',
' DÆKBIDSÅ SMELTTIL STKHBA');
LINES:=5
END;
(*$P*)
BEGIN
FOR J:=1 TO 4 DO R(J):=0.0;
LINES:=51;
WITH EMNE DO
BEGIN
NR:=0;
NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;
WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO
BEGIN
IF LINES>45 THEN HEADING;
LINES:=LINES+3;
WRITELN(LIST);
WRITELN(LIST,NR:5,' ',BETEGN,KUNDENR(1)*10000.0+KUNDENR(2):10:-2,
SAMSALG:10:-2,DÆKBID:10:-2,SVIND:10,STKHSA:10);
WRITELN(LIST,' ':46,
SAMSALGS:10:-2,DÆKBIDSÅ:10:-2,SMELTTIL:10,STKHBA:10);
R(1):=R(1)+SAMSALG;
R(2):=R(2)+DÆKBID;
R(3):=R(3)+SAMSALGS;
R(4):=R(4)+DÆKBIDSÅ;
IF CH IN JA THEN
BEGIN
SAMSALGS:=SAMSALG;SAMSALG:=0;
DÆKBIDSÅ:=DÆKBID;DÆKBID:=0;
PUTREC(A);CHECK0(A)
END;
NEXTRECX(A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);
PUTREC(A);CHECK0(A)
END;
IF LINES<51 THEN
BEGIN
LINES:=LINES+3;
WRITELN(LIST,STREG:86);
WRITELN(LIST,'TOTAL',' ':41,R(1):10:-2,R(2):10:-2);
WRITELN(LIST,' ':46,R(3):10:-2,R(4):10:-2);
(*TOTAL*)
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
PROCEDURE VÆLGLIST;
BEGIN
CASE OPTION OF
1:FORKALKULATION;
2:RUTEKORT;
3:PRODUKTIONSORDRE;
4:EMNELIST;
5:FORMLIST;
6:ORDRLIST;
7:KUNOLIST;
8:ORDRESTATUS;
9:RESOMSÆT;
10:RÅVOMSÆT;
11:EMNOMSÆT
END
END;
(*$P*)
BEGIN (*MAINTAIN*)
CLEARSCREEN;
REPEAT
GOTOXY(1,10);
WRITELN('1 Forkalkulation');
WRITELN('2 Rutekort');
WRITELN('3 Produktionsordre');
WRITELN('4 Emnespecifikation');
WRITELN('5 Formregistreringsliste');
WRITELN('6 Ordreoversigt');
WRITELN('7 Kundeordreoversigt');
WRITELN('8 Ordrestatus');
WRITELN('9 Ressource-omsætningsoversigt');
WRITELN('10 Råvare-omsætningsoversigt');
WRITELN('11 Emne-omsætningsoversigt');
D(23,1);
WRITE('Vælg 0-11 ');
READLN;
IF NOT EOLN THEN READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION IN (.0..11.));
IF OPTION=0 THEN EXIT(MAINTAIN);
REPEAT
CLEARSCREEN;
IER:=0;
CASE OPTION OF
1,2,3,6,8:
BEGIN
LÆSFELT(PICTURE(2));
SKRIVFELT(PICTURE(2));
IF POST.ORDRENR=0 THEN
BEGIN
POST.TORDRE:=32000;
POST.EMNENR:=0;
POST.TEMNE:=32000
END
ELSE
BEGIN
LÆSFELT(PICTURE(1));
SKRIVFELT(PICTURE(1));
POST.TORDRE:=POST.ORDRENR;
LÆSFELT(PICTURE(7));
SKRIVFELT(PICTURE(7));
IF POST.TORDRE=0 THEN
BEGIN
POST.TORDRE:=32000;
POST.TEMNE:=32000
END
ELSE
BEGIN
POST.TEMNE:=POST.EMNENR;
LÆSFELT(PICTURE(6));
SKRIVFELT(PICTURE(6))
END
END;
POST.ANTEX:=1;
LÆSFELT(PICTURE(5));
SKRIVFELT(PICTURE(5));
POST.OPNR:=0;
IF OPTION=8 THEN
BEGIN
LÆSFELT(PICTURE(9));
SKRIVFELT(PICTURE(9));
CH:=QJN('Skærmudskrift')
END
ELSE CH:='N';
ORDRE.NR:=POST.ORDRENR;
ORDRE.EMNENR:=POST.EMNENR;
GETREC(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);
IF IER=-6 THEN
BEGIN
NEXTREC(ORDRE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(ORDRE.A);
IF IER=-1 THEN IER:=0
END;
IF (CH IN NEJ) AND (OPTION=6) THEN LINES:=51;
WHILE (IER=0) AND ((ORDRE.NR<POST.TORDRE) OR ((ORDRE.NR=POST.TORDRE)
AND (ORDRE.EMNENR<=POST.TEMNE))) AND (NOT EOF(OUTPUT)) DO
BEGIN
WITH KUNDE DO
BEGIN
NR:=ORDRE.KUNDENR;
GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);
KUNFOUND:=(IER=0)
END;
WITH EMNE DO
BEGIN
NR:=ORDRE.EMNENR;
GETREC(A);CHECK0(A)
END;
IF CH IN NEJ THEN
CASE OPTION OF
1,6,8:FORMULAR(1);
2,3:FORMULAR(2)
END;
ANTEX:=POST.ANTEX;
WHILE (ANTEX>0) AND (NOT EOF(OUTPUT)) DO
BEGIN
VÆLGLIST;
ANTEX:=ANTEX-1
END;
NEXTREC(ORDRE.A)
END;
IF (CH IN NEJ) AND (OPTION=6) THEN
WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A)
END;
4,7:BEGIN
LÆSFELT(PICTURE(3));
SKRIVFELT(PICTURE(3));
IF POST.KUNDENR=LONGNUL THEN
BEGIN
POST.TKUNDE(1):=9999;
POST.TKUNDE(2):=9999
END
ELSE
BEGIN
POST.TKUNDE:=POST.KUNDENR;
LÆSFELT(PICTURE(8));
SKRIVFELT(PICTURE(8));
IF POST.TKUNDE=LONGNUL THEN
BEGIN
POST.TKUNDE(1):=9999;
POST.TKUNDE(2):=9999
END
END;
POST.ANTEX:=1;
LÆSFELT(PICTURE(5));
SKRIVFELT(PICTURE(5));
POST.OPNR:=599;
IF OPTION=7 THEN
BEGIN
LÆSFELT(PICTURE(9));
SKRIVFELT(PICTURE(9));
CH:=QJN('Skærmudskrift')
END
ELSE CH:='N';
KUNDE.NR:=POST.KUNDENR;
GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);
IF IER=-6 THEN
BEGIN
NEXTREC(KUNDE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(KUNDE.A);
IF IER=-1 THEN IER:=0
END;
WHILE (IER=0) AND
(KUNDE.NR(1)*10000.0+KUNDE.NR(2)<=
POST.TKUNDE(1)*10000.0+POST.TKUNDE(2))
AND (NOT EOF(OUTPUT)) DO
BEGIN
IF CH IN NEJ THEN FORMULAR(1);
ANTEX:=POST.ANTEX;
WHILE (ANTEX>0) AND (NOT EOF(OUTPUT)) DO
BEGIN
VÆLGLIST;
ANTEX:=ANTEX-1
END;
NEXTREC(KUNDE.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(KUNDE.A)
END;
5,9,10,11:
BEGIN
FORMULAR(1);
IF OPTION IN (.9..11.) THEN
CH:=QJN('Ønskes periodeafslutning med nulstilling af omsætningstal');
VÆLGLIST
END
END;
UNTIL QJN('Flere af samme slags') IN NEJ
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
AKTFORM:=0;
LÆSDESC;
MODE:=3;
(*$R-*)
STREG(0):=CHR(116);
FILLCHAR(STREG(1),116,'-');
RESS.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;
ORDRE.A(-4):=0;
REGLI.A(-4):=0;
KUNEMNE.A(-4):=0;
OMVPROD.A(-4):=0;
KUNORDRE.A(-4):=0;
EMNIFORM.A(-4):=0;
UGEDAG.A(-4):=0;
ARBEDAG.A(-4):=0;
ORDTEKST.A(-4):=0;
ORDTEKST.A(-3):=25;
UGEDAG.A(-3):=21;
ARBEDAG.A(-3):=22;
RESS.A(-3):=4;
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;
ORDRE.A(-3):=10;
REGLI.A(-3):=16;
KUNEMNE.A(-3):=19;
OMVPROD.A(-3):=13;
KUNORDRE.A(-3):=18;
EMNIFORM.A(-3):=20;
(*$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(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(ORDRE.A); CHECK0(ORDRE.A);
IOPEN(REGLI.A); CHECK0(REGLI.A);
IOPEN(KUNEMNE.A); CHECK0(KUNEMNE.A);
IOPEN(OMVPROD.A); CHECK0(OMVPROD.A);
IOPEN(KUNORDRE.A); CHECK0(KUNORDRE.A);
IOPEN(EMNIFORM.A); CHECK0(EMNIFORM.A);
IOPEN(PROD.A); CHECK0(PROD.A);
IOPEN(UGEDAG.A); CHECK0(UGEDAG.A);
IOPEN(ARBEDAG.A); CHECK0(ARBEDAG.A);
IOPEN(ORDTEKST.A); CHECK0(ORDTEKST.A);
REPEAT
CLEARSCREEN;
GOTOXY(10,10);
WRITELN('U D S K R I F T S - P R O G R A M');
CH:=QJN('Flere udskrifter');
IF CH IN JA THEN
IF RESPRINT THEN
BEGIN
MAINTAIN;
FREEPR
END
UNTIL CH IN NEJ;
ICLOSE(RESS.A);
ICLOSE(KUNDE.A);
ICLOSE(EMNE.A);
ICLOSE(RÅVARE.A);
ICLOSE(OPERA.A);
ICLOSE(ORDRE.A);
ICLOSE(REGLI.A);
ICLOSE(KUNEMNE.A);
ICLOSE(OMVPROD.A);
ICLOSE(KUNORDRE.A);
ICLOSE(EMNIFORM.A);
ICLOSE(PROD.A);
ICLOSE(UGEDAG.A);
ICLOSE(ARBEDAG.A);
ICLOSE(ORDTEKST.A);
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN
END;
(*$P*)
BEGIN
SEMAFOR:='ALLOCOMBUF';
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END; (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
(*@@TILPASSES*)
DESCNAVN:='UDSKDESC:P2:05:J';
REGVEDL;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('HOVED *1',FNAVN,QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LIMUDSKR;«, l3=0x11}
0x0013…0039 Line {l1=0x24, l2=»(*DIVERSE UDSKRIFTER:RUTEKORT OSV.*)«, l3=0x24}
0x0039…0042 Line {l1=0x07, l2=»(*$D-*)«, l3=0x07}
0x0042…004b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x004b…0063 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x0063…006b Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x006b…007f Line {l1=0x12, l2=» PROGRAMNR=4;«, l3=0x12}
0x007f…0085 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0085…00ae Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00ae…00f9 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x00f9…0111 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x0111…015c Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x015c…0170 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0170…0186 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x0186…019a Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x019a…01e3 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01e3…0233 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x0233…027d Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x027d…028e Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x028e…02b0 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02b0…02cf Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02cf…02de Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02de…02fd Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x02fd…0316 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0316…0331 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x0331…0347 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0347…035d Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x035d…0386 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x0386…039f Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x039f…03ca Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x03ca…03e0 Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03e0…03fa Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x03fa…040b Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x040b…041e Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x041e…0437 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0437…044f Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x044f…0457 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0457…0460 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0460…047e Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x047e…048e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x048e…0495 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0495…04a7 Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x04a7…04cd Line {l1=0x24, l2=» FOR I:=1 TO NR DO WRITELN(' ':79);«, l3=0x24}
0x04cd…04de Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x04de…04e4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04e4…0503 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x0503…050a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x050a…0516 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0516…053b Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x053b…054e Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x054e…0554 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0554…057a Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x057a…0581 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0581…058d Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x058d…05af Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x05af…05b9 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x05b9…05bf Line {l1=0x04, l2=»END;«, l3=0x04}
0x05bf…05c7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05c7…05fe Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x05fe…0625 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0625…0630 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0630…0668 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0668…0673 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0673…06a7 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x06a7…06dc Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x06dc…06e7 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06e7…071e Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x071e…0745 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0745…0750 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0750…0788 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x0788…07af Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x07af…07ba Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07ba…07ef Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x07ef…07fa Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07fa…080a Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x080a…0812 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0812…081f Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x081f…082f Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x082f…0837 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0837…084b Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x084b…0860 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0860…0868 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0868…086e Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x086e…0887 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0887…0898 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0898…08a8 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x08a8…08ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x08ae…08d2 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x08d2…0903 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0903…092a Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x092a…0942 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0942…0956 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0956…096e Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x096e…0994 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0994…09a2 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x09a2…09bd Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x09bd…09e1 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x09e1…09f8 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x09f8…0a19 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0a19…0a25 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0a25…0a31 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a31…0a3c Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a3c…0a50 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a50…0a6b Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0a6b…0a83 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0a83…0aa1 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0aa1…0aaf Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0aaf…0ad0 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0ad0…0af4 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0af4…0b24 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0b24…0b47 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b47…0b5b Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b5b…0b61 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b61…0b88 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0b88…0ba3 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0ba3…0bc7 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0bc7…0bf4 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0bf4…0bfc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0bfc…0c05 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0c05…0c16 Line {l1=0x0f, l2=»RESSPOST=RECORD«, l3=0x0f}
0x0c16…0c22 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0c22…0c2b Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0c2b…0c37 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0c37…0c42 Line {l1=0x09, l2=» TSATSF,«, l3=0x09}
0x0c42…0c4d Line {l1=0x09, l2=» SAMOMS,«, l3=0x09}
0x0c4d…0c5a Line {l1=0x0b, l2=» SAMOMSSÅ,«, l3=0x0b}
0x0c5a…0c64 Line {l1=0x08, l2=» SAMDB,«, l3=0x08}
0x0c64…0c70 Line {l1=0x0a, l2=» SAMDBSÅ,«, l3=0x0a}
0x0c70…0c7d Line {l1=0x0b, l2=» KØBSPRIS,«, l3=0x0b}
0x0c7d…0c9b Line {l1=0x1c, l2=» SALGSPRI :REAL;«, l3=0x1c}
0x0c9b…0ca2 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0ca2…0cae Line {l1=0x0a, l2=» AFDELNR,«, l3=0x0a}
0x0cae…0cba Line {l1=0x0a, l2=» PRODTIM,«, l3=0x0a}
0x0cba…0cc6 Line {l1=0x0a, l2=» VEDLTIM,«, l3=0x0a}
0x0cc6…0cd2 Line {l1=0x0a, l2=» OPSTILT,«, l3=0x0a}
0x0cd2…0cde Line {l1=0x0a, l2=» OVERTIM,«, l3=0x0a}
0x0cde…0cea Line {l1=0x0a, l2=» REPTIME,«, l3=0x0a}
0x0cea…0cf6 Line {l1=0x0a, l2=» TOTALTI,«, l3=0x0a}
0x0cf6…0d03 Line {l1=0x0b, l2=» PRODTIMS,«, l3=0x0b}
0x0d03…0d10 Line {l1=0x0b, l2=» VEDLTIMS,«, l3=0x0b}
0x0d10…0d1d Line {l1=0x0b, l2=» OPSTILTS,«, l3=0x0b}
0x0d1d…0d2a Line {l1=0x0b, l2=» OVERTIMS,«, l3=0x0b}
0x0d2a…0d37 Line {l1=0x0b, l2=» REPTIMES,«, l3=0x0b}
0x0d37…0d58 Line {l1=0x1f, l2=» TOTALTIS, «, l3=0x1f}
0x0d58…0d78 Line {l1=0x1e, l2=» RESSTYPE :INTEGER;«, l3=0x1e}
0x0d78…0d98 Line {l1=0x1e, l2=» DATOFLEV :LONGINT;«, l3=0x1e}
0x0d98…0db8 Line {l1=0x1e, l2=» HYLDENR :INTEGER;«, l3=0x1e}
0x0db8…0dec Line {l1=0x32, l2=» BETEGN :PACKED ARRAY (1..10) OF CHAR«, l3=0x32}
0x0dec…0df2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0df2…0e03 Line {l1=0x0f, l2=»KUNDPOST=RECORD«, l3=0x0f}
0x0e03…0e0f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0e0f…0e18 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0e18…0e24 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0e24…0e44 Line {l1=0x1e, l2=» NR :LONGINT;«, l3=0x1e}
0x0e44…0e79 Line {l1=0x33, l2=» NAVN :PACKED ARRAY (1..26) OF CHAR;«, l3=0x33}
0x0e79…0e86 Line {l1=0x0b, l2=» KONTAKT1,«, l3=0x0b}
0x0e86…0e93 Line {l1=0x0b, l2=» KONTAKT2,«, l3=0x0b}
0x0e93…0ea0 Line {l1=0x0b, l2=» KONTAKT3,«, l3=0x0b}
0x0ea0…0ed4 Line {l1=0x32, l2=» KONTAKT4 :PACKED ARRAY (1..30) OF CHAR«, l3=0x32}
0x0ed4…0eda Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eda…0eeb Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x0eeb…0ef7 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0ef7…0f00 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0f00…0f0c Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0f0c…0f19 Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x0f19…0f26 Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x0f26…0f33 Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x0f33…0f3f Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x0f3f…0f4a Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x0f4a…0f57 Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x0f57…0f73 Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x0f73…0f7a Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0f7a…0f99 Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x0f99…0fb8 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x0fb8…0fd7 Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x0fd7…0ff6 Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x0ff6…1000 Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x1000…100a Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x100a…1017 Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x1017…1022 Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x1022…1041 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x1041…104c Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x104c…1057 Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x1057…108b Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x108b…10be Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x10be…10c4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x10c4…10d5 Line {l1=0x0f, l2=»RÅVAPOST=RECORD«, l3=0x0f}
0x10d5…10e1 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x10e1…10ea Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x10ea…10f6 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x10f6…1101 Line {l1=0x09, l2=» PRISKG,«, l3=0x09}
0x1101…110c Line {l1=0x09, l2=» OMSÆTP,«, l3=0x09}
0x110c…1114 Line {l1=0x06, l2=» DBP,«, l3=0x06}
0x1114…1121 Line {l1=0x0b, l2=» KOSTPRIS,«, l3=0x0b}
0x1121…112d Line {l1=0x0a, l2=» OMSÆTSP,«, l3=0x0a}
0x112d…1139 Line {l1=0x0a, l2=» DBSÅ, «, l3=0x0a}
0x1139…1146 Line {l1=0x0b, l2=» KOSTPRSÅ,«, l3=0x0b}
0x1146…1154 Line {l1=0x0c, l2=» LAGER, «, l3=0x0c}
0x1154…1162 Line {l1=0x0c, l2=» MINLAGE, «, l3=0x0c}
0x1162…1170 Line {l1=0x0c, l2=» RESERVER, «, l3=0x0c}
0x1170…117f Line {l1=0x0d, l2=» SMEPRIS, «, l3=0x0d}
0x117f…118e Line {l1=0x0d, l2=» KGINDKØB, «, l3=0x0d}
0x118e…119d Line {l1=0x0d, l2=» KGFORBRU, «, l3=0x0d}
0x119d…11bc Line {l1=0x1d, l2=» KGSOLGT :REAL; «, l3=0x1d}
0x11bc…11c3 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x11c3…11ce Line {l1=0x09, l2=» LEVUGE,«, l3=0x09}
0x11ce…11ed Line {l1=0x1d, l2=» SMESVIND :INTEGER;«, l3=0x1d}
0x11ed…1220 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..16) OF CHAR«, l3=0x31}
0x1220…1226 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1226…1237 Line {l1=0x0f, l2=»OPERPOST=RECORD«, l3=0x0f}
0x1237…1243 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1243…124c Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x124c…1258 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1258…1274 Line {l1=0x1a, l2=» TILLÆG :REAL;«, l3=0x1a}
0x1274…127b Line {l1=0x05, l2=» NR,«, l3=0x05}
0x127b…1286 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x1286…12a5 Line {l1=0x1d, l2=» REBELAS :INTEGER;«, l3=0x1d}
0x12a5…12d8 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x12d8…12de Line {l1=0x04, l2=»END;«, l3=0x04}
0x12de…12ef Line {l1=0x0f, l2=»PRODPOST=RECORD«, l3=0x0f}
0x12ef…12fb Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x12fb…1304 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1304…1310 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1310…1345 Line {l1=0x33, l2=» KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)«, l3=0x33}
0x1345…1361 Line {l1=0x1a, l2=» REAANTAL :REAL;«, l3=0x1a}
0x1361…136d Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x136d…137a Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x137a…1386 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1386…1393 Line {l1=0x0b, l2=» STARTTID,«, l3=0x0b}
0x1393…13a0 Line {l1=0x0b, l2=» OPERAFSL,«, l3=0x0b}
0x13a0…13a9 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x13a9…13b3 Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x13b3…13bd Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x13bd…13c7 Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x13c7…13d1 Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x13d1…13db Line {l1=0x08, l2=» RESS5,«, l3=0x08}
0x13db…13e6 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x13e6…1405 Line {l1=0x1d, l2=» VARIGHED :INTEGER «, l3=0x1d}
0x1405…140b Line {l1=0x04, l2=»END;«, l3=0x04}
0x140b…141c Line {l1=0x0f, l2=»OMVPPOST=RECORD«, l3=0x0f}
0x141c…1428 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1428…1431 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1431…143d Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x143d…1449 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1449…1456 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x1456…1462 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1462…1481 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x1481…1487 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1487…1498 Line {l1=0x0f, l2=»EMNFPOST=RECORD«, l3=0x0f}
0x1498…14a4 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x14a4…14ad Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x14ad…14b9 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x14b9…14c4 Line {l1=0x09, l2=» FORMNR,«, l3=0x09}
0x14c4…14e3 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x14e3…14e9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14e9…14fa Line {l1=0x0f, l2=»KUNEPOST=RECORD«, l3=0x0f}
0x14fa…1506 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1506…150f Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x150f…151b Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x151b…153a Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x153a…1559 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x1559…155f Line {l1=0x04, l2=»END;«, l3=0x04}
0x155f…1570 Line {l1=0x0f, l2=»ORDRPOST=RECORD«, l3=0x0f}
0x1570…157c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x157c…1585 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1585…1591 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1591…159e Line {l1=0x0b, l2=» ANTALBES,«, l3=0x0b}
0x159e…15ab Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x15ab…15b6 Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x15b6…15c1 Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x15c1…15ce Line {l1=0x0b, l2=» MASKINOM,«, l3=0x0b}
0x15ce…15d9 Line {l1=0x09, l2=» SMEOMK,«, l3=0x09}
0x15d9…15f5 Line {l1=0x1a, l2=» MATFORB :REAL;«, l3=0x1a}
0x15f5…1614 Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x1614…1633 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x1633…1652 Line {l1=0x1d, l2=» EMNENR :INTEGER;«, l3=0x1d}
0x1652…1671 Line {l1=0x1d, l2=» REGDATO :LONGINT;«, l3=0x1d}
0x1671…167d Line {l1=0x0a, l2=» ØNSKLEV,«, l3=0x0a}
0x167d…169c Line {l1=0x1d, l2=» BEKRÆLEV :INTEGER;«, l3=0x1d}
0x169c…16d0 Line {l1=0x32, l2=» KUNDORDR :PACKED ARRAY (1..16) OF CHAR;«, l3=0x32}
0x16d0…1703 Line {l1=0x31, l2=» INITIALE :PACKED ARRAY (1..4) OF CHAR «, l3=0x31}
0x1703…1709 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1709…171a Line {l1=0x0f, l2=»OTEXPOST=RECORD«, l3=0x0f}
0x171a…1726 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1726…172f Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x172f…173b Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x173b…1742 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x1742…174d Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x174d…176c Line {l1=0x1d, l2=» LBNR :INTEGER;«, l3=0x1d}
0x176c…179f Line {l1=0x31, l2=» TEKST :PACKED ARRAY (1..70) OF CHAR«, l3=0x31}
0x179f…17a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x17a5…17b6 Line {l1=0x0f, l2=»KUNOPOST=RECORD«, l3=0x0f}
0x17b6…17c2 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x17c2…17cb Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x17cb…17d7 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x17d7…17f6 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x17f6…1802 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1802…1821 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x1821…1827 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1827…1838 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x1838…1844 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1844…184d Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x184d…1859 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1859…1884 Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x1884…18a2 Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x18a2…18c0 Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x18c0…18de Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x18de…18f4 Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x18f4…1912 Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x1912…1918 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1918…1929 Line {l1=0x0f, l2=»REGLPOST=RECORD«, l3=0x0f}
0x1929…1935 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1935…193e Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x193e…194a Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x194a…1952 Line {l1=0x06, l2=» TID,«, l3=0x06}
0x1952…195d Line {l1=0x09, l2=» MÆNGDE,«, l3=0x09}
0x195d…1978 Line {l1=0x19, l2=» LØN :REAL;«, l3=0x19}
0x1978…1984 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1984…198f Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x198f…199b Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x199b…19b9 Line {l1=0x1c, l2=» MEDARBNR :INTEGER;«, l3=0x1c}
0x19b9…19d7 Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x19d7…19f5 Line {l1=0x1c, l2=» RTYPE :INTEGER «, l3=0x1c}
0x19f5…19fb Line {l1=0x04, l2=»END;«, l3=0x04}
0x19fb…1a0c Line {l1=0x0f, l2=»UGEDPOST=RECORD«, l3=0x0f}
0x1a0c…1a18 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1a18…1a21 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1a21…1a2d Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1a2d…1a37 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x1a37…1a54 Line {l1=0x1b, l2=» ARBDAGNR :INTEGER «, l3=0x1b}
0x1a54…1a5a Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a5a…1a6b Line {l1=0x0f, l2=»ARBEPOST=RECORD«, l3=0x0f}
0x1a6b…1a77 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1a77…1a80 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1a80…1a8c Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1a8c…1aaa Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x1aaa…1ac8 Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x1ac8…1ad3 Line {l1=0x09, l2=» UGENR, «, l3=0x09}
0x1ad3…1af1 Line {l1=0x1c, l2=» ARBTIMER :INTEGER «, l3=0x1c}
0x1af1…1af7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1af7…1b08 Line {l1=0x0f, l2=»UDSKPOST=RECORD«, l3=0x0f}
0x1b08…1b14 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1b14…1b1d Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1b1d…1b29 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1b29…1b3f Line {l1=0x14, l2=» EMNENR, «, l3=0x14}
0x1b3f…1b5d Line {l1=0x1c, l2=» ORDRENR :INTEGER;«, l3=0x1c}
0x1b5d…1b7b Line {l1=0x1c, l2=» KUNDENR :LONGINT;«, l3=0x1c}
0x1b7b…1b99 Line {l1=0x1c, l2=» RTYPE :INTEGER;«, l3=0x1c}
0x1b99…1ba3 Line {l1=0x08, l2=» ANTEX,«, l3=0x08}
0x1ba3…1bad Line {l1=0x08, l2=» TEMNE,«, l3=0x08}
0x1bad…1bcb Line {l1=0x1c, l2=» TORDRE :INTEGER;«, l3=0x1c}
0x1bcb…1be9 Line {l1=0x1c, l2=» TKUNDE :LONGINT;«, l3=0x1c}
0x1be9…1c06 Line {l1=0x1b, l2=» OPNR :INTEGER«, l3=0x1b}
0x1c06…1c0c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c0c…1c14 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c14…1c25 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x1c25…1c3a Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1c3a…1c66 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1c66…1c81 Line {l1=0x19, l2=» OPTION,LINES,AKTFORM,«, l3=0x19}
0x1c81…1c9f Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x1c9f…1cb1 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1cb1…1cc6 Line {l1=0x13, l2=» REGLI:REGLPOST;«, l3=0x13}
0x1cc6…1cda Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x1cda…1cef Line {l1=0x13, l2=» KUNDE:KUNDPOST;«, l3=0x13}
0x1cef…1d03 Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x1d03…1d19 Line {l1=0x14, l2=» RÅVARE:RÅVAPOST;«, l3=0x14}
0x1d19…1d2e Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x1d2e…1d42 Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x1d42…1d57 Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x1d57…1d6e Line {l1=0x15, l2=» KUNEMNE:KUNEPOST;«, l3=0x15}
0x1d6e…1d86 Line {l1=0x16, l2=» KUNORDRE:KUNOPOST;«, l3=0x16}
0x1d86…1d9d Line {l1=0x15, l2=» OMVPROD:OMVPPOST;«, l3=0x15}
0x1d9d…1db5 Line {l1=0x16, l2=» EMNIFORM:EMNFPOST;«, l3=0x16}
0x1db5…1dcb Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x1dcb…1de1 Line {l1=0x14, l2=» UGEDAG:UGEDPOST;«, l3=0x14}
0x1de1…1df8 Line {l1=0x15, l2=» ARBEDAG:ARBEPOST;«, l3=0x15}
0x1df8…1e10 Line {l1=0x16, l2=» ORDTEKST:OTEXPOST;«, l3=0x16}
0x1e10…1e24 Line {l1=0x12, l2=» POST:UDSKPOST;«, l3=0x12}
0x1e24…1e3a Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x1e3a…1e48 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x1e48…1e69 Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x1e69…1e81 Line {l1=0x16, l2=» STREG:STRING(116);«, l3=0x16}
0x1e81…1e89 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1e89…1e92 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1e92…1eb0 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x1eb0…1ec3 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1ec3…1eca Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1eca…1ed4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1ed4…1ee2 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x1ee2…1ef9 Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x1ef9…1f07 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1f07…1f15 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x1f15…1f30 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x1f30…1f3f Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x1f3f…1f4b Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x1f4b…1f51 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f51…1f5a Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1f5a…1f7a Line {l1=0x1e, l2=»PROCEDURE FORMULAR(I:INTEGER);«, l3=0x1e}
0x1f7a…1f8e Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x1f8e…1f95 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f95…1fba Line {l1=0x23, l2=» IF AKTFORM=I THEN EXIT(FORMULAR);«, l3=0x23}
0x1fba…1fc9 Line {l1=0x0d, l2=» AKTFORM:=I;«, l3=0x0d}
0x1fc9…1fd6 Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x1fd6…1fe1 Line {l1=0x09, l2=» 1:BEGIN«, l3=0x09}
0x1fe1…1ff1 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x1ff1…2023 Line {l1=0x30, l2=» WRITE('Monter bredt 8.5" papir, RETURN ');«, l3=0x30}
0x2023…2032 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2032…2060 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x2060…206d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x206d…208b Line {l1=0x1c, l2=» WRITELN(LIST,STREG);«, l3=0x1c}
0x208b…20b9 Line {l1=0x2c, l2=» FOR LINES:=2 TO 50 DO WRITELN(LIST);«, l3=0x2c}
0x20b9…20d6 Line {l1=0x1b, l2=» WRITELN(LIST,STREG)«, l3=0x1b}
0x20d6…20e2 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x20e2…20ec Line {l1=0x08, l2=» END;«, l3=0x08}
0x20ec…20f7 Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x20f7…2107 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x2107…2139 Line {l1=0x30, l2=» WRITE('Monter generel formular, RETURN ');«, l3=0x30}
0x2139…2148 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2148…2176 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x2176…2183 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2183…21b0 Line {l1=0x2b, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x2b}
0x21b0…21d7 Line {l1=0x25, l2=» WRITELN(LIST,' ':35,STREG:6);«, l3=0x25}
0x21d7…2204 Line {l1=0x2b, l2=» FOR LINES:=6 TO 72 DO WRITELN(LIST)«, l3=0x2b}
0x2204…2210 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x2210…221a Line {l1=0x08, l2=» END;«, l3=0x08}
0x221a…2225 Line {l1=0x09, l2=» 3:BEGIN«, l3=0x09}
0x2225…2235 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x2235…2266 Line {l1=0x2f, l2=» WRITE('Monter blankt A4 papir, RETURN ');«, l3=0x2f}
0x2266…2275 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2275…22a3 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x22a3…22b0 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x22b0…22d1 Line {l1=0x1f, l2=» WRITELN(LIST,STREG:82);«, l3=0x1f}
0x22d1…22ff Line {l1=0x2c, l2=» FOR LINES:=2 TO 71 DO WRITELN(LIST);«, l3=0x2c}
0x22ff…231f Line {l1=0x1e, l2=» WRITELN(LIST,STREG:82)«, l3=0x1e}
0x231f…232b Line {l1=0x0a, l2=» END «, l3=0x0a}
0x232b…2334 Line {l1=0x07, l2=» END«, l3=0x07}
0x2334…233b Line {l1=0x05, l2=» END«, l3=0x05}
0x233b…2341 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2341…234a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x234a…2368 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x2368…237b Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x237b…238b Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x238b…2392 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2392…239e Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x239e…23ec Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x23ec…243a Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x243a…244f Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x244f…247f Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x247f…2496 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x2496…24aa Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x24aa…24c1 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x24c1…24d6 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x24d6…24ed Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x24ed…2505 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x2505…251d Line {l1=0x16, l2=» ICLOSE(REGLI.A); «, l3=0x16}
0x251d…2534 Line {l1=0x15, l2=» ICLOSE(KUNEMNE.A); «, l3=0x15}
0x2534…254b Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x254b…2562 Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0x2562…2579 Line {l1=0x15, l2=» ICLOSE(EMNIFORM.A);«, l3=0x15}
0x2579…258d Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x258d…25a2 Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0x25a2…25b8 Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0x25b8…25cf Line {l1=0x15, l2=» ICLOSE(ORDTEKST.A);«, l3=0x15}
0x25cf…25e0 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x25e0…25e6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x25e6…2605 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x2605…260c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x260c…2629 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x2629…262f Line {l1=0x04, l2=»END;«, l3=0x04}
0x262f…2637 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2637…2640 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2640…2650 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x2650…2658 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2658…2668 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x2668…2671 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x2671…2679 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2679…268e Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x268e…269c Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x269c…26ab Line {l1=0x0d, l2=» RÅVFOUND,«, l3=0x0d}
0x26ab…26c2 Line {l1=0x15, l2=» KUNFOUND:BOOLEAN;«, l3=0x15}
0x26c2…26dc Line {l1=0x18, l2=» ANTEX,LINES:INTEGER;«, l3=0x18}
0x26dc…26df Line {l1=0x01, l2=» «, l3=0x01}
0x26df…26e7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x26e7…2704 Line {l1=0x1b, l2=»PROCEDURE FORKALKULATION; «, l3=0x1b}
0x2704…2726 Line {l1=0x20, l2=»VAR TTPSTK,TTOTTID,TKRPSTK:REAL;«, l3=0x20}
0x2726…2729 Line {l1=0x01, l2=» «, l3=0x01}
0x2729…273d Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x273d…2744 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2744…2781 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x2781…27a8 Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x27a8…27f0 Line {l1=0x46, l2=» WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,«, l3=0x46}
0x27f0…2818 Line {l1=0x26, l2=» 'emnenr',' ':6,'dato');«, l3=0x26}
0x2818…2850 Line {l1=0x36, l2=» WRITELN(LIST,'FORKALKULATION',' ':38,ORDRE.KUNDORDR,«, l3=0x36}
0x2850…287d Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x287d…28c3 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x28c3…2902 Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x2902…2925 Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x2925…295a Line {l1=0x33, l2=» WRITE(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6);«, l3=0x33}
0x295a…2985 Line {l1=0x29, l2=» IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN)«, l3=0x29}
0x2985…29ad Line {l1=0x26, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':26);«, l3=0x26}
0x29ad…29ef Line {l1=0x40, l2=» WRITELN(LIST,ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);«, l3=0x40}
0x29ef…2a01 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2a01…2a4c Line {l1=0x49, l2=» WRITELN(LIST,'op op- betegnelse antal a mas- stk tid total',«, l3=0x49}
0x2a4c…2a6f Line {l1=0x21, l2=» ' time kr');«, l3=0x21}
0x2a6f…2aba Line {l1=0x49, l2=» WRITELN(LIST,'nr art kine /h /stk tid',«, l3=0x49}
0x2aba…2add Line {l1=0x21, l2=» ' sats /stk');«, l3=0x21}
0x2add…2aef Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2aef…2afd Line {l1=0x0c, l2=» LINES:=10 «, l3=0x0c}
0x2afd…2b03 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b03…2b16 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x2b16…2b1d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2b1d…2b2e Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x2b2e…2b37 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b37…2b54 Line {l1=0x1b, l2=» WRITELN(LIST,STREG:69);«, l3=0x1b}
0x2b54…2b9b Line {l1=0x45, l2=» WRITELN(LIST,'TOTAL',' ':35,TTPSTK:8:3,TTOTTID:7:2,TKRPSTK:14:3);«, l3=0x45}
0x2b9b…2baf Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x2baf…2bce Line {l1=0x1d, l2=» IF LINES>34 THEN HEADING;«, l3=0x1d}
0x2bce…2c09 Line {l1=0x39, l2=» WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3);«, l3=0x39}
0x2c09…2c45 Line {l1=0x3a, l2=» WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3);«, l3=0x3a}
0x2c45…2c69 Line {l1=0x22, l2=» WRITELN(LIST,' ':45,STREG:16);«, l3=0x22}
0x2c69…2caf Line {l1=0x44, l2=» WRITELN(LIST,'MAT.-OMKOSTNINGER ',' ':27,MATOMK:8:3,MATOMK:8:3);«, l3=0x44}
0x2caf…2cea Line {l1=0x39, l2=» WRITELN(LIST,'LØNOMKOSTNINGER ',' ':35,LØNOMK:8:3);«, l3=0x39}
0x2cea…2d27 Line {l1=0x3b, l2=» WRITELN(LIST,'MASKINOMKOSTNINGER',' ':35,MASKINOM:8:3);«, l3=0x3b}
0x2d27…2d4b Line {l1=0x22, l2=» WRITELN(LIST,' ':53,STREG:16);«, l3=0x22}
0x2d4b…2d81 Line {l1=0x34, l2=» WRITELN(LIST,'EMNEPRIS ',' ':35,MATOMK+«, l3=0x34}
0x2d81…2dc4 Line {l1=0x41, l2=» LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3);«, l3=0x41}
0x2dc4…2dfb Line {l1=0x35, l2=» WRITELN(LIST,'DÆKNINGSBIDRAG ',' ':35,-MATOMK+«, l3=0x35}
0x2dfb…2e32 Line {l1=0x35, l2=» SALGSPRI-LØNOMK-MASKINOM:16:3);«, l3=0x35}
0x2e32…2e55 Line {l1=0x21, l2=» WRITELN(LIST,' ':61,STREG:8);«, l3=0x21}
0x2e55…2e93 Line {l1=0x3c, l2=» WRITELN(LIST,'SALGSPRIS ',' ':35,SALGSPRI:16:3);«, l3=0x3c}
0x2e93…2eb9 Line {l1=0x24, l2=» WRITELN(LIST,' ':61,'========') «, l3=0x24}
0x2eb9…2ec1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2ec1…2ed5 Line {l1=0x12, l2=» LINES:=LINES+15;«, l3=0x12}
0x2ed5…2f12 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x2f12…2f18 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2f18…2f20 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2f20…2f3a Line {l1=0x18, l2=»BEGIN (*FORKALKULATION*)«, l3=0x18}
0x2f3a…2f47 Line {l1=0x0b, l2=» LINES:=51;«, l3=0x0b}
0x2f47…2f56 Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x2f56…2f5e Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x2f5e…2f61 Line {l1=0x01, l2=» «, l3=0x01}
0x2f61…2f71 Line {l1=0x0e, l2=» TTPSTK:=0.0;«, l3=0x0e}
0x2f71…2f82 Line {l1=0x0f, l2=» TTOTTID:=0.0;«, l3=0x0f}
0x2f82…2f93 Line {l1=0x0f, l2=» TKRPSTK:=0.0;«, l3=0x0f}
0x2f93…2f96 Line {l1=0x01, l2=» «, l3=0x01}
0x2f96…2fac Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x2fac…2fc5 Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x2fc5…2fd5 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x2fd5…2fe4 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x2fe4…301c Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x301c…3027 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x3027…306c Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x306c…3075 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3075…3094 Line {l1=0x1d, l2=» IF LINES>48 THEN HEADING;«, l3=0x1d}
0x3094…30a9 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x30a9…30d4 Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x30d4…30e7 Line {l1=0x11, l2=» WITH OPERA DO«, l3=0x11}
0x30e7…30f2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x30f2…3106 Line {l1=0x12, l2=» NR:=OPERANR;«, l3=0x12}
0x3106…313f Line {l1=0x37, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x37}
0x313f…316a Line {l1=0x29, l2=» IF IER=0 THEN WRITE(LIST,BETEGN:17)«, l3=0x29}
0x316a…3196 Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':17) «, l3=0x2a}
0x3196…31a0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x31a0…31c6 Line {l1=0x24, l2=» WRITE(LIST,ORDRE.ANTALBES:6:-2);«, l3=0x24}
0x31c6…31db Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x31db…31ed Line {l1=0x10, l2=» WITH RESS DO«, l3=0x10}
0x31ed…31f8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x31f8…320a Line {l1=0x10, l2=» NR:=RESS1;«, l3=0x10}
0x320a…3243 Line {l1=0x37, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x37}
0x3243…3258 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x3258…327c Line {l1=0x22, l2=» WRITE(LIST,AFDELNR:2,NR:5)«, l3=0x22}
0x327c…32a1 Line {l1=0x23, l2=» ELSE WRITE(LIST,'UO',RESS1:5)«, l3=0x23}
0x32a1…32aa Line {l1=0x07, l2=» END«, l3=0x07}
0x32aa…32b4 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x32b4…32db Line {l1=0x25, l2=» IF RESS1=0 THEN WRITE(LIST,' ':7)«, l3=0x25}
0x32db…3301 Line {l1=0x24, l2=» ELSE WRITE(LIST,' *',-RESS1:4);«, l3=0x24}
0x3301…3316 Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x3316…3321 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3321…3345 Line {l1=0x22, l2=» TTOTTID:=TTOTTID-STKH/100.0;«, l3=0x22}
0x3345…3369 Line {l1=0x22, l2=» WRITE(LIST,-STKH/100.0:18:2)«, l3=0x22}
0x3369…3372 Line {l1=0x07, l2=» END«, l3=0x07}
0x3372…337c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x337c…3387 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3387…33a5 Line {l1=0x1c, l2=» TTPSTK:=TTPSTK+1/STKH;«, l3=0x1c}
0x33a5…33d2 Line {l1=0x2b, l2=» TTOTTID:=TTOTTID+ORDRE.ANTALBES/STKH;«, l3=0x2b}
0x33d2…3410 Line {l1=0x3c, l2=» WRITE(LIST,STKH:5,1/STKH:6:3,ORDRE.ANTALBES/STKH:7:2) «, l3=0x3c}
0x3410…341a Line {l1=0x08, l2=» END;«, l3=0x08}
0x341a…3436 Line {l1=0x1a, l2=» WRITE(LIST,KRSTK:8:2);«, l3=0x1a}
0x3436…344b Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x344b…3456 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3456…348f Line {l1=0x37, l2=» TKRPSTK:=TKRPSTK-STKH*KRSTK/ORDRE.ANTALBES/100.0;«, l3=0x37}
0x348f…34c9 Line {l1=0x38, l2=» WRITELN(LIST,-STKH*KRSTK/ORDRE.ANTALBES/100.0:6:3)«, l3=0x38}
0x34c9…34d2 Line {l1=0x07, l2=» END«, l3=0x07}
0x34d2…34dc Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x34dc…34e7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x34e7…350b Line {l1=0x22, l2=» TKRPSTK:=TKRPSTK+KRSTK/STKH;«, l3=0x22}
0x350b…3530 Line {l1=0x23, l2=» WRITELN(LIST,KRSTK/STKH:6:3) «, l3=0x23}
0x3530…353a Line {l1=0x08, l2=» END;«, l3=0x08}
0x353a…354a Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x354a…3552 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3552…356e Line {l1=0x1a, l2=» IF LINES<51 THEN BOTTOM;«, l3=0x1a}
0x356e…359b Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2b}
0x359b…35a1 Line {l1=0x04, l2=» END«, l3=0x04}
0x35a1…35a7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x35a7…35af Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x35af…35c4 Line {l1=0x13, l2=»PROCEDURE RUTEKORT;«, l3=0x13}
0x35c4…35cb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x35cb…35d8 Line {l1=0x0b, l2=» LINES:=72;«, l3=0x0b}
0x35d8…35e7 Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x35e7…35ef Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x35ef…35f2 Line {l1=0x01, l2=» «, l3=0x01}
0x35f2…360c Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x360c…364f Line {l1=0x41, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x41}
0x364f…3665 Line {l1=0x14, l2=» RÅVFOUND:=(IER=0);«, l3=0x14}
0x3665…3668 Line {l1=0x01, l2=» «, l3=0x01}
0x3668…367e Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x367e…3697 Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x3697…36a7 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x36a7…36b6 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x36b6…36ee Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x36ee…36f9 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x36f9…373e Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x373e…3747 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3747…375d Line {l1=0x14, l2=» IF LINES>68 THEN«, l3=0x14}
0x375d…3768 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3768…37a9 Line {l1=0x3f, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3f}
0x37a9…37d4 Line {l1=0x29, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x29}
0x37d4…37e8 Line {l1=0x12, l2=» WITH EMNE DO«, l3=0x12}
0x37e8…37f5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37f5…381e Line {l1=0x27, l2=» WRITELN(LIST,' ':12,'RUTEKORT',«, l3=0x27}
0x381e…386c Line {l1=0x4c, l2=» KUNDENR(1)*10000.0+KUNDENR(2):20:-2,' ',ORDRE.KUNDORDR,«, l3=0x4c}
0x386c…3895 Line {l1=0x27, l2=» NR:5,ORDRE.NR:10);«, l3=0x27}
0x3895…38c2 Line {l1=0x2b, l2=» FOR LINES:=6 TO 8 DO WRITELN(LIST);«, l3=0x2b}
0x38c2…38ee Line {l1=0x2a, l2=» WRITE(LIST,TEGNNR,' ',BETEGN,' ');«, l3=0x2a}
0x38ee…3921 Line {l1=0x31, l2=» IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)«, l3=0x31}
0x3921…3950 Line {l1=0x2d, l2=» ELSE WRITELN(LIST,'IKKE OPRETTET');«, l3=0x2d}
0x3950…397f Line {l1=0x2d, l2=» FOR LINES:=10 TO 12 DO WRITELN(LIST);«, l3=0x2d}
0x397f…39b3 Line {l1=0x32, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x32}
0x39b3…39e3 Line {l1=0x2e, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x2e}
0x39e3…3a14 Line {l1=0x2f, l2=» WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,«, l3=0x2f}
0x3a14…3a63 Line {l1=0x4d, l2=» ORDRE.ANTALBES*NETTOVÆG/1000.0:8:2,ORDRE.ANTALBES:12:-2,«, l3=0x4d}
0x3a63…3a9b Line {l1=0x36, l2=» ORDRE.ØNSKLEV:6,ORDRE.BEKRÆLEV:6,«, l3=0x36}
0x3a9b…3ae5 Line {l1=0x48, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2,«, l3=0x48}
0x3ae5…3b0d Line {l1=0x26, l2=» ORDRE.INITIALE:5)«, l3=0x26}
0x3b0d…3b19 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3b19…3b2f Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x3b2f…3b6d Line {l1=0x3c, l2=» WRITELN(LIST,' ':48,' arbnr dato antal');«, l3=0x3c}
0x3b6d…3b7f Line {l1=0x10, l2=» LINES:=15 «, l3=0x10}
0x3b7f…3b89 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3b89…3b9e Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x3b9e…3bb2 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3bb2…3bdd Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x3bdd…3bf5 Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x3bf5…3c38 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x3c38…3c67 Line {l1=0x2d, l2=» IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)«, l3=0x2d}
0x3c67…3c99 Line {l1=0x30, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x30}
0x3c99…3cae Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x3cae…3cb9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3cb9…3cd0 Line {l1=0x15, l2=» RESS.NR:=RESS1;«, l3=0x15}
0x3cd0…3d13 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x3d13…3d28 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x3d28…3d68 Line {l1=0x3e, l2=» WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)«, l3=0x3e}
0x3d68…3d96 Line {l1=0x2c, l2=» ELSE WRITE(LIST,RESS1:7,' UOPRETTET') «, l3=0x2c}
0x3d96…3d9f Line {l1=0x07, l2=» END«, l3=0x07}
0x3d9f…3da9 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3da9…3dd1 Line {l1=0x26, l2=» IF RESS1=0 THEN WRITE(LIST,' ':17)«, l3=0x26}
0x3dd1…3dfe Line {l1=0x2b, l2=» ELSE WRITE(LIST,' *',-RESS1:4,' ':10);«, l3=0x2b}
0x3dfe…3e12 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3e12…3e22 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x3e22…3e2a Line {l1=0x06, l2=» END;«, l3=0x06}
0x3e2a…3e67 Line {l1=0x3b, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x3e67…3e94 Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A) «, l3=0x2b}
0x3e94…3e9a Line {l1=0x04, l2=» END«, l3=0x04}
0x3e9a…3ea0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3ea0…3ea8 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3ea8…3ec5 Line {l1=0x1b, l2=»PROCEDURE PRODUKTIONSORDRE;«, l3=0x1b}
0x3ec5…3ed9 Line {l1=0x12, l2=»VAR HYLDE:INTEGER;«, l3=0x12}
0x3ed9…3edc Line {l1=0x01, l2=» «, l3=0x01}
0x3edc…3ef0 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x3ef0…3ef7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3ef7…3f34 Line {l1=0x3b, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x3f34…3f5b Line {l1=0x25, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x25}
0x3f5b…3f6b Line {l1=0x0e, l2=» WITH EMNE DO«, l3=0x0e}
0x3f6b…3f74 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3f74…3fa1 Line {l1=0x2b, l2=» WRITELN(LIST,' ':12,'PRODUKTIONSORDRE',«, l3=0x2b}
0x3fa1…3feb Line {l1=0x48, l2=» KUNDENR(1)*10000.0+KUNDENR(2):12:-2,' ',ORDRE.KUNDORDR,«, l3=0x48}
0x3feb…4010 Line {l1=0x23, l2=» NR:5,ORDRE.NR:10);«, l3=0x23}
0x4010…4039 Line {l1=0x27, l2=» FOR LINES:=6 TO 8 DO WRITELN(LIST);«, l3=0x27}
0x4039…4061 Line {l1=0x26, l2=» WRITE(LIST,TEGNNR,' ',BETEGN,' ');«, l3=0x26}
0x4061…4090 Line {l1=0x2d, l2=» IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)«, l3=0x2d}
0x4090…40bb Line {l1=0x29, l2=» ELSE WRITELN(LIST,'IKKE OPRETTET');«, l3=0x29}
0x40bb…40e6 Line {l1=0x29, l2=» FOR LINES:=10 TO 12 DO WRITELN(LIST);«, l3=0x29}
0x40e6…4116 Line {l1=0x2e, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x2e}
0x4116…4142 Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x2a}
0x4142…416f Line {l1=0x2b, l2=» WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,«, l3=0x2b}
0x416f…41ba Line {l1=0x49, l2=» ORDRE.ANTALBES*NETTOVÆG/1000.0:8:2,ORDRE.ANTALBES:12:-2,«, l3=0x49}
0x41ba…41ee Line {l1=0x32, l2=» ORDRE.ØNSKLEV:6,ORDRE.BEKRÆLEV:6,«, l3=0x32}
0x41ee…4234 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2,«, l3=0x44}
0x4234…4258 Line {l1=0x22, l2=» ORDRE.INITIALE:5)«, l3=0x22}
0x4258…4260 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4260…4272 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x4272…42ab Line {l1=0x37, l2=» WRITELN(LIST,' ':48,'start varigh værkt hjvt hyld');«, l3=0x37}
0x42ab…42b9 Line {l1=0x0c, l2=» LINES:=15 «, l3=0x0c}
0x42b9…42bf Line {l1=0x04, l2=»END;«, l3=0x04}
0x42bf…42c2 Line {l1=0x01, l2=» «, l3=0x01}
0x42c2…42c9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x42c9…42d6 Line {l1=0x0b, l2=» LINES:=72;«, l3=0x0b}
0x42d6…42e5 Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x42e5…42ed Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x42ed…42f0 Line {l1=0x01, l2=» «, l3=0x01}
0x42f0…430a Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x430a…434d Line {l1=0x41, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x41}
0x434d…4363 Line {l1=0x14, l2=» RÅVFOUND:=(IER=0);«, l3=0x14}
0x4363…4366 Line {l1=0x01, l2=» «, l3=0x01}
0x4366…437c Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x437c…4395 Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x4395…43a5 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x43a5…43b4 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x43b4…43ec Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x43ec…43f7 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x43f7…443c Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x443c…4445 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4445…4464 Line {l1=0x1d, l2=» IF LINES>68 THEN HEADING;«, l3=0x1d}
0x4464…4479 Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x4479…448d Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x448d…44b8 Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x44b8…44d0 Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x44d0…4513 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x4513…4542 Line {l1=0x2d, l2=» IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)«, l3=0x2d}
0x4542…4574 Line {l1=0x30, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x30}
0x4574…4589 Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x4589…4594 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4594…45ab Line {l1=0x15, l2=» RESS.NR:=RESS1;«, l3=0x15}
0x45ab…45ee Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x45ee…4603 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x4603…4643 Line {l1=0x3e, l2=» WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)«, l3=0x3e}
0x4643…4671 Line {l1=0x2c, l2=» ELSE WRITE(LIST,RESS1:7,' UOPRETTET') «, l3=0x2c}
0x4671…467a Line {l1=0x07, l2=» END«, l3=0x07}
0x467a…4684 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4684…46ac Line {l1=0x26, l2=» IF RESS1=0 THEN WRITE(LIST,' ':17)«, l3=0x26}
0x46ac…46d9 Line {l1=0x2b, l2=» ELSE WRITE(LIST,' *',-RESS1:4,' ':10);«, l3=0x2b}
0x46d9…46f1 Line {l1=0x16, l2=» IF STARTTID>0 THEN«, l3=0x16}
0x46f1…46fc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x46fc…4722 Line {l1=0x24, l2=» ARBEDAG.NR:=STARTTID MOD 1000;«, l3=0x24}
0x4722…474e Line {l1=0x2a, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x2a}
0x474e…4772 Line {l1=0x22, l2=» UGEDAG.UGENR:=ARBEDAG.UGENR;«, l3=0x22}
0x4772…479c Line {l1=0x28, l2=» GETREC(UGEDAG.A);CHECK0(UGEDAG.A);«, l3=0x28}
0x479c…47ca Line {l1=0x2c, l2=» WRITE(LIST,UGEDAG.UGENR MOD 100:3,'/',«, l3=0x2c}
0x47ca…47fa Line {l1=0x2e, l2=» ARBEDAG.NR-UGEDAG.ARBDAGNR+1)«, l3=0x2e}
0x47fa…4803 Line {l1=0x07, l2=» END«, l3=0x07}
0x4803…480d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x480d…482a Line {l1=0x1b, l2=» WRITE(LIST,STARTTID:5);«, l3=0x1b}
0x482a…484c Line {l1=0x20, l2=» WRITE(LIST,VARIGHED:7,' ');«, l3=0x20}
0x484c…485b Line {l1=0x0d, l2=» HYLDE:=0;«, l3=0x0d}
0x485b…4870 Line {l1=0x13, l2=» IF RESS3>0 THEN«, l3=0x13}
0x4870…487b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x487b…4897 Line {l1=0x1a, l2=» WRITE(LIST,RESS3:5);«, l3=0x1a}
0x4897…48ae Line {l1=0x15, l2=» RESS.NR:=RESS3;«, l3=0x15}
0x48ae…48f1 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x48f1…491a Line {l1=0x27, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x27}
0x491a…4923 Line {l1=0x07, l2=» END«, l3=0x07}
0x4923…492d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x492d…4954 Line {l1=0x25, l2=» IF RESS3=0 THEN WRITE(LIST,' ':5)«, l3=0x25}
0x4954…4978 Line {l1=0x22, l2=» ELSE WRITE(LIST,'*',-RESS3:4);«, l3=0x22}
0x4978…498d Line {l1=0x13, l2=» IF RESS4>0 THEN«, l3=0x13}
0x498d…4998 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4998…49b4 Line {l1=0x1a, l2=» WRITE(LIST,RESS4:5);«, l3=0x1a}
0x49b4…49cb Line {l1=0x15, l2=» IF HYLDE=0 THEN«, l3=0x15}
0x49cb…49d8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x49d8…49f1 Line {l1=0x17, l2=» RESS.NR:=RESS4;«, l3=0x17}
0x49f1…4a36 Line {l1=0x43, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x43}
0x4a36…4a61 Line {l1=0x29, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x29}
0x4a61…4a6c Line {l1=0x09, l2=» END«, l3=0x09}
0x4a6c…4a75 Line {l1=0x07, l2=» END«, l3=0x07}
0x4a75…4a7f Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4a7f…4aa6 Line {l1=0x25, l2=» IF RESS4=0 THEN WRITE(LIST,' ':5)«, l3=0x25}
0x4aa6…4aca Line {l1=0x22, l2=» ELSE WRITE(LIST,'*',-RESS4:4);«, l3=0x22}
0x4aca…4af5 Line {l1=0x29, l2=» IF HYLDE>0 THEN WRITELN(LIST,HYLDE:5)«, l3=0x29}
0x4af5…4aff Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4aff…4b13 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x4b13…4b23 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x4b23…4b2b Line {l1=0x06, l2=» END;«, l3=0x06}
0x4b2b…4b58 Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2b}
0x4b58…4b72 Line {l1=0x18, l2=» ORDTEKST.NR:=ORDRE.NR;«, l3=0x18}
0x4b72…4b94 Line {l1=0x20, l2=» ORDTEKST.EMNENR:=ORDRE.EMNENR;«, l3=0x20}
0x4b94…4ba9 Line {l1=0x13, l2=» ORDTEKST.LBNR:=0;«, l3=0x13}
0x4ba9…4bf3 Line {l1=0x48, l2=» NEXTREC(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x48}
0x4bf3…4bfe Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x4bfe…4c4d Line {l1=0x4d, l2=» WHILE (IER=0) AND (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR)«, l3=0x4d}
0x4c4d…4c53 Line {l1=0x04, l2=» DO«, l3=0x04}
0x4c53…4c5c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4c5c…4c7b Line {l1=0x1d, l2=» IF LINES>68 THEN HEADING;«, l3=0x1d}
0x4c7b…4c8f Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x4c8f…4cb8 Line {l1=0x27, l2=» WRITELN(LIST,' ':7,ORDTEKST.TEKST);«, l3=0x27}
0x4cb8…4ccd Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x4ccd…4ce6 Line {l1=0x17, l2=» NEXTREC(ORDTEKST.A)«, l3=0x17}
0x4ce6…4cee Line {l1=0x06, l2=» END;«, l3=0x06}
0x4cee…4d24 Line {l1=0x34, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x34}
0x4d24…4d60 Line {l1=0x3a, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END«, l3=0x3a}
0x4d60…4d66 Line {l1=0x04, l2=» END«, l3=0x04}
0x4d66…4d6c Line {l1=0x04, l2=»END;«, l3=0x04}
0x4d6c…4d74 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4d74…4d89 Line {l1=0x13, l2=»PROCEDURE EMNELIST;«, l3=0x13}
0x4d89…4d8c Line {l1=0x01, l2=» «, l3=0x01}
0x4d8c…4da0 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x4da0…4da7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4da7…4de4 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x4de4…4e0b Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x4e0b…4e3a Line {l1=0x2d, l2=» WRITELN(LIST,'Emnespecifikaton pr. kunde');«, l3=0x2d}
0x4e3a…4e56 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:109);«, l3=0x1a}
0x4e56…4e9e Line {l1=0x46, l2=» WRITELN(LIST,'Kundenr:',KUNDE.NR(1)*10000.0+KUNDE.NR(2):7:-2,' ':12,«, l3=0x46}
0x4e9e…4ed2 Line {l1=0x32, l2=» 'Navn: ',KUNDE.NAVN,' ':35,'Dato:',«, l3=0x32}
0x4ed2…4f18 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x4f18…4f34 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:109);«, l3=0x1a}
0x4f34…4f79 Line {l1=0x43, l2=» WRITELN(LIST,' nr Tegn. nr',' ':13,'Betegnelse',' ':21,'Matr.',«, l3=0x43}
0x4f79…4fb9 Line {l1=0x3e, l2=» ' ':17,'vægt',' ':2,'tid SA/BA Værk Maskine');«, l3=0x3e}
0x4fb9…4fd5 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:109);«, l3=0x1a}
0x4fd5…4fe1 Line {l1=0x0a, l2=» LINES:=8«, l3=0x0a}
0x4fe1…4fe7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4fe7…4fef Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4fef…4ff6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4ff6…5004 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x5004…5017 Line {l1=0x11, l2=» WITH KUNEMNE DO«, l3=0x11}
0x5017…5020 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5020…5038 Line {l1=0x16, l2=» KUNDENR:=KUNDE.NR;«, l3=0x16}
0x5038…5048 Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x5048…5082 Line {l1=0x38, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x38}
0x5082…508f Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x508f…50bc Line {l1=0x2b, l2=» WHILE (IER=0) AND (KUNDENR=KUNDE.NR) DO«, l3=0x2b}
0x50bc…50ce Line {l1=0x10, l2=» WITH EMNE DO«, l3=0x10}
0x50ce…50d9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x50d9…50fa Line {l1=0x1f, l2=» IF LINES>48 THEN HEADING;«, l3=0x1f}
0x50fa…510d Line {l1=0x11, l2=» NR:=EMNENR;«, l3=0x11}
0x510d…5129 Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x5129…5147 Line {l1=0x1c, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x1c}
0x5147…518e Line {l1=0x45, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x45}
0x518e…51a8 Line {l1=0x18, l2=» RÅVFOUND:=(IER=0);«, l3=0x18}
0x51a8…51db Line {l1=0x31, l2=» WRITE(LIST,NR:5,' ',TEGNNR,' ',BETEGN,' ');«, l3=0x31}
0x51db…520d Line {l1=0x30, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x30}
0x520d…5239 Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':16);«, l3=0x2a}
0x5239…5286 Line {l1=0x4b, l2=» WRITELN(LIST,NETTOVÆG:10:2,STKHSA:6,'/',STKHBA:5,FORMNR:5,MASKINE:8);«, l3=0x4b}
0x5286…529d Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x529d…52b7 Line {l1=0x18, l2=» NEXTREC(KUNEMNE.A)«, l3=0x18}
0x52b7…52c1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x52c1…52f0 Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x52f0…532f Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3d}
0x532f…5336 Line {l1=0x05, l2=» END«, l3=0x05}
0x5336…533c Line {l1=0x04, l2=»END;«, l3=0x04}
0x533c…5344 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5344…5359 Line {l1=0x13, l2=»PROCEDURE FORMLIST;«, l3=0x13}
0x5359…5378 Line {l1=0x1d, l2=» «, l3=0x1d}
0x5378…538c Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x538c…5393 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5393…53d0 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x53d0…53f7 Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x53f7…540f Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x540f…5448 Line {l1=0x37, l2=» WRITELN(LIST,'Formregistreringsliste',' ':79,'Dato:',«, l3=0x37}
0x5448…548e Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x548e…54a6 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x54a6…54eb Line {l1=0x43, l2=» WRITELN(LIST,'Form. Kunde',' ':22,'Emnenr Emne',' ':27,'Tegn.nr',«, l3=0x43}
0x54eb…551f Line {l1=0x32, l2=» ' ':14,'Bemærkning',' ':10,'Mask');«, l3=0x32}
0x551f…5537 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5537…5543 Line {l1=0x0a, l2=» LINES:=7«, l3=0x0a}
0x5543…5549 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5549…5551 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5551…5558 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5558…5566 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x5566…557a Line {l1=0x12, l2=» WITH EMNIFORM DO«, l3=0x12}
0x557a…5583 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5583…5593 Line {l1=0x0e, l2=» FORMNR:=0;«, l3=0x0e}
0x5593…55a3 Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x55a3…55dd Line {l1=0x38, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x38}
0x55dd…55ea Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x55ea…5616 Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x5616…5628 Line {l1=0x10, l2=» WITH EMNE DO«, l3=0x10}
0x5628…5633 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5633…5654 Line {l1=0x1f, l2=» IF LINES>48 THEN HEADING;«, l3=0x1f}
0x5654…5667 Line {l1=0x11, l2=» NR:=EMNENR;«, l3=0x11}
0x5667…5683 Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x5683…56a2 Line {l1=0x1d, l2=» KUNDE.NR:=EMNE.KUNDENR;«, l3=0x1d}
0x56a2…56ca Line {l1=0x26, l2=» GETREC(KUNDE.A);CHECK0(KUNDE.A);«, l3=0x26}
0x56ca…56fc Line {l1=0x30, l2=» WRITELN(LIST,FORMNR:5,' ',KUNDE.NAVN,NR:7,«, l3=0x30}
0x56fc…572b Line {l1=0x2d, l2=» ' ',BETEGN,' ',TEGNNR,' ',«, l3=0x2d}
0x572b…5755 Line {l1=0x28, l2=» BEMÆRK:19,MASKINE:5);«, l3=0x28}
0x5755…576c Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x576c…5787 Line {l1=0x19, l2=» NEXTREC(EMNIFORM.A)«, l3=0x19}
0x5787…5791 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5791…57c0 Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x57c0…57ff Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3d}
0x57ff…5806 Line {l1=0x05, l2=» END«, l3=0x05}
0x5806…580c Line {l1=0x04, l2=»END;«, l3=0x04}
0x580c…5814 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5814…5829 Line {l1=0x13, l2=»PROCEDURE ORDRLIST;«, l3=0x13}
0x5829…582c Line {l1=0x01, l2=» «, l3=0x01}
0x582c…5840 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x5840…5847 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5847…5884 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x5884…58ab Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x58ab…58c3 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x58c3…58f3 Line {l1=0x2e, l2=» WRITELN(LIST,'Ordreoversigt',' ':88,'Dato:',«, l3=0x2e}
0x58f3…5939 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x5939…5951 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5951…5996 Line {l1=0x43, l2=» WRITELN(LIST,'Ordre Kunde',' ':19,'Emnenr Emne',' ':24,'Tegn.nr',«, l3=0x43}
0x5996…59d5 Line {l1=0x3d, l2=» ' ':16,'Antal',' ':2,'Init Dato Mask Øuge');«, l3=0x3d}
0x59d5…59ed Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x59ed…59f9 Line {l1=0x0a, l2=» LINES:=7«, l3=0x0a}
0x59f9…59ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x59ff…5a07 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5a07…5a0e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5a0e…5a24 Line {l1=0x14, l2=» WITH ORDRE,EMNE DO«, l3=0x14}
0x5a24…5a2d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5a2d…5a4e Line {l1=0x1f, l2=» IF LINES>48 THEN HEADING;«, l3=0x1f}
0x5a4e…5a71 Line {l1=0x21, l2=» WRITE(LIST,ORDRE.NR:5,' ');«, l3=0x21}
0x5a71…5aa4 Line {l1=0x31, l2=» IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN:23) «, l3=0x31}
0x5aa4…5ad7 Line {l1=0x31, l2=» ELSE WRITE(LIST,'KUNDEN ER IKKE OPRETTET');«, l3=0x31}
0x5ad7…5af1 Line {l1=0x18, l2=» WRITELN(LIST,NR:7,«, l3=0x18}
0x5af1…5b1f Line {l1=0x2c, l2=» ' ',BETEGN:27,' ',TEGNNR,«, l3=0x2c}
0x5b1f…5b5c Line {l1=0x3b, l2=» ORDRE.ANTALBES:8:-2,' ',ORDRE.INITIALE,«, l3=0x3b}
0x5b5c…5ba0 Line {l1=0x42, l2=» ORDRE.REGDATO(1)*10000.0+ORDRE.REGDATO(2):7:-2,«, l3=0x42}
0x5ba0…5bd0 Line {l1=0x2e, l2=» MASKINE:5,ORDRE.ØNSKLEV:5);«, l3=0x2e}
0x5bd0…5be6 Line {l1=0x14, l2=» LINES:=LINES+1«, l3=0x14}
0x5be6…5bed Line {l1=0x05, l2=» END«, l3=0x05}
0x5bed…5bf3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5bf3…5bfb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5bfb…5c10 Line {l1=0x13, l2=»PROCEDURE KUNOLIST;«, l3=0x13}
0x5c10…5c20 Line {l1=0x0e, l2=»VAR REST:REAL;«, l3=0x0e}
0x5c20…5c23 Line {l1=0x01, l2=» «, l3=0x01}
0x5c23…5c37 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x5c37…5c3e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5c3e…5c52 Line {l1=0x12, l2=» IF CH IN NEJ THEN«, l3=0x12}
0x5c52…5c5a Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x5c5a…5c97 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x5c97…5cbe Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x5cbe…5ce5 Line {l1=0x25, l2=» WRITELN(LIST,'Kundeordreoversigt');«, l3=0x25}
0x5ce5…5cfd Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5cfd…5d44 Line {l1=0x45, l2=» WRITELN(LIST,'Kundenr:',KUNDE.NR(1)*10000.0+KUNDE.NR(2):7:-2,' ':6,«, l3=0x45}
0x5d44…5d78 Line {l1=0x32, l2=» 'Navn: ',KUNDE.NAVN,' ':48,'Dato:',«, l3=0x32}
0x5d78…5dbe Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x5dbe…5dd6 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5dd6…5e19 Line {l1=0x41, l2=» WRITELN(LIST,'Tegn. nr',' ':13,' Kundens ordrenr Emnenr Emne',«, l3=0x41}
0x5e19…5e50 Line {l1=0x35, l2=» ' ':27,'Ordrenr Antal/Rest',' ':2,«, l3=0x35}
0x5e50…5e74 Line {l1=0x22, l2=» 'Øuge B.lev.uge');«, l3=0x22}
0x5e74…5e8c Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5e8c…5e98 Line {l1=0x0a, l2=» LINES:=8«, l3=0x0a}
0x5e98…5e9e Line {l1=0x04, l2=» END«, l3=0x04}
0x5e9e…5ea5 Line {l1=0x05, l2=» ELSE«, l3=0x05}
0x5ea5…5ead Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x5ead…5ec1 Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x5ec1…5eca Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5eca…5edd Line {l1=0x11, l2=» GOTOXY(1,24);«, l3=0x11}
0x5edd…5ef4 Line {l1=0x15, l2=» WRITE('RETURN ');«, l3=0x15}
0x5ef4…5f00 Line {l1=0x0a, l2=» READLN«, l3=0x0a}
0x5f00…5f08 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5f08…5f18 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x5f18…5f4e Line {l1=0x34, l2=» WRITELN('Tegn. nr',' ':13,'Kundens ordrenr Emne',«, l3=0x34}
0x5f4e…5f75 Line {l1=0x25, l2=» ' ':10,'Ordnr Antal/ Rest',«, l3=0x25}
0x5f75…5f8f Line {l1=0x18, l2=» ' Øuge Buge');«, l3=0x18}
0x5f8f…5f9b Line {l1=0x0a, l2=» LINES:=1«, l3=0x0a}
0x5f9b…5fa1 Line {l1=0x04, l2=» END«, l3=0x04}
0x5fa1…5fa7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5fa7…5faf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5faf…5fb6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5fb6…5fc4 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x5fc4…5fd8 Line {l1=0x12, l2=» WITH KUNORDRE DO«, l3=0x12}
0x5fd8…5fe1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5fe1…5ff9 Line {l1=0x16, l2=» KUNDENR:=KUNDE.NR;«, l3=0x16}
0x5ff9…600a Line {l1=0x0f, l2=» ORDRENR:=0;«, l3=0x0f}
0x600a…601a Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x601a…6054 Line {l1=0x38, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x38}
0x6054…6061 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x6061…608e Line {l1=0x2b, l2=» WHILE (IER=0) AND (KUNDENR=KUNDE.NR) DO«, l3=0x2b}
0x608e…60a0 Line {l1=0x10, l2=» WITH EMNE DO«, l3=0x10}
0x60a0…60ab Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x60ab…60ed Line {l1=0x40, l2=» IF (LINES>48) OR ((CH IN JA) AND (LINES>22)) THEN HEADING;«, l3=0x40}
0x60ed…6100 Line {l1=0x11, l2=» NR:=EMNENR;«, l3=0x11}
0x6100…611c Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x611c…6136 Line {l1=0x18, l2=» ORDRE.NR:=ORDRENR;«, l3=0x18}
0x6136…614f Line {l1=0x17, l2=» ORDRE.EMNENR:=NR;«, l3=0x17}
0x614f…6177 Line {l1=0x26, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x26}
0x6177…6194 Line {l1=0x1b, l2=» REST:=ORDRE.ANTALBES;«, l3=0x1b}
0x6194…61b3 Line {l1=0x1d, l2=» REGLI.ORDRENR:=ORDRENR;«, l3=0x1d}
0x61b3…61cc Line {l1=0x17, l2=» REGLI.EMNENR:=NR;«, l3=0x17}
0x61cc…61ed Line {l1=0x1f, l2=» REGLI.OPERANR:=POST.OPNR;«, l3=0x1f}
0x61ed…6207 Line {l1=0x18, l2=» REGLI.MEDARBNR:=0;«, l3=0x18}
0x6207…6223 Line {l1=0x1a, l2=» REGLI.DATO:=LONGNUL;«, l3=0x1a}
0x6223…626c Line {l1=0x47, l2=» NEXTREC(REGLI.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(REGLI.A);«, l3=0x47}
0x626c…627b Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x627b…62c6 Line {l1=0x49, l2=» WHILE (IER=0) AND (REGLI.ORDRENR=ORDRENR) AND (REGLI.EMNENR=NR) AND«, l3=0x49}
0x62c6…62f0 Line {l1=0x28, l2=» (REGLI.OPERANR=POST.OPNR) DO«, l3=0x28}
0x62f0…62fd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x62fd…631f Line {l1=0x20, l2=» REST:=REST-REGLI.MÆNGDE;«, l3=0x20}
0x631f…6339 Line {l1=0x18, l2=» NEXTREC(REGLI.A)«, l3=0x18}
0x6339…6345 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x6345…637c Line {l1=0x35, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x35}
0x637c…6395 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x6395…63d2 Line {l1=0x3b, l2=» WRITELN(LIST,TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ':3,«, l3=0x3b}
0x63d2…641e Line {l1=0x4a, l2=» BETEGN,' ',ORDRE.NR:7,ORDRE.ANTALBES:10:-2,REST:6:-2,«, l3=0x4a}
0x641e…6457 Line {l1=0x37, l2=» ORDRE.ØNSKLEV:5,ORDRE.BEKRÆLEV:11)«, l3=0x37}
0x6457…6463 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x6463…6498 Line {l1=0x33, l2=» WRITELN(TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ',«, l3=0x33}
0x6498…64e1 Line {l1=0x47, l2=» BETEGN:9,ORDRE.NR:5,ORDRE.ANTALBES:6:-2,REST:6:-2,«, l3=0x47}
0x64e1…651a Line {l1=0x37, l2=» ORDRE.ØNSKLEV:5,ORDRE.BEKRÆLEV:5);«, l3=0x37}
0x651a…6531 Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x6531…654e Line {l1=0x1b, l2=» ORDTEKST.NR:=ORDRENR;«, l3=0x1b}
0x654e…656a Line {l1=0x1a, l2=» ORDTEKST.EMNENR:=NR;«, l3=0x1a}
0x656a…6583 Line {l1=0x17, l2=» ORDTEKST.LBNR:=0;«, l3=0x17}
0x6583…65d2 Line {l1=0x4d, l2=» NEXTREC(ORDTEKST.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x4d}
0x65d2…65e1 Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x65e1…662c Line {l1=0x49, l2=» WHILE (IER=0) AND (ORDTEKST.NR=ORDRENR) AND (ORDTEKST.EMNENR=NR) DO«, l3=0x49}
0x662c…6639 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6639…6660 Line {l1=0x25, l2=» IF ORDTEKST.TEKST(1)='L' THEN«, l3=0x25}
0x6660…666f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x666f…668a Line {l1=0x19, l2=» LINES:=LINES+1;«, l3=0x19}
0x668a…66a7 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0x66a7…66d1 Line {l1=0x28, l2=» WRITELN(LIST,ORDTEKST.TEKST)«, l3=0x28}
0x66d1…66e1 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x66e1…6706 Line {l1=0x23, l2=» WRITELN(ORDTEKST.TEKST)«, l3=0x23}
0x6706…6714 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x6714…6731 Line {l1=0x1b, l2=» NEXTREC(ORDTEKST.A)«, l3=0x1b}
0x6731…673d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x673d…6777 Line {l1=0x38, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x38}
0x6777…6792 Line {l1=0x19, l2=» NEXTREC(KUNORDRE.A)«, l3=0x19}
0x6792…679c Line {l1=0x08, l2=» END;«, l3=0x08}
0x679c…67cb Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x67cb…67e2 Line {l1=0x15, l2=» IF CH IN NEJ THEN«, l3=0x15}
0x67e2…6823 Line {l1=0x3f, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3f}
0x6823…6861 Line {l1=0x3c, l2=» ELSE IF LINES<>51 THEN BEGIN WRITE('RETURN ');READLN END«, l3=0x3c}
0x6861…6868 Line {l1=0x05, l2=» END«, l3=0x05}
0x6868…686e Line {l1=0x04, l2=»END;«, l3=0x04}
0x686e…6876 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6876…688e Line {l1=0x16, l2=»PROCEDURE ORDRESTATUS;«, l3=0x16}
0x688e…68a6 Line {l1=0x16, l2=»VAR TTID,TMÆNGDE,TLØN,«, l3=0x16}
0x68a6…68c3 Line {l1=0x1b, l2=» ATID,AMÆNGDE,ALØN:REAL;«, l3=0x1b}
0x68c3…68d7 Line {l1=0x12, l2=» LINES:INTEGER;«, l3=0x12}
0x68d7…68da Line {l1=0x01, l2=» «, l3=0x01}
0x68da…68ee Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x68ee…68f5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x68f5…6909 Line {l1=0x12, l2=» IF CH IN NEJ THEN«, l3=0x12}
0x6909…6911 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x6911…694e Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x694e…6996 Line {l1=0x46, l2=» WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,«, l3=0x46}
0x6996…69be Line {l1=0x26, l2=» 'emnenr',' ':6,'dato');«, l3=0x26}
0x69be…69f3 Line {l1=0x33, l2=» WRITELN(LIST,'ORDRESTATUS',' ':41,ORDRE.KUNDORDR,«, l3=0x33}
0x69f3…6a20 Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x6a20…6a66 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x6a66…6aa5 Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x6aa5…6ac8 Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x6ac8…6aff Line {l1=0x35, l2=» WRITELN(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6, «, l3=0x35}
0x6aff…6b1b Line {l1=0x1a, l2=» KUNDE.NAVN,«, l3=0x1a}
0x6b1b…6b5d Line {l1=0x40, l2=» ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);«, l3=0x40}
0x6b5d…6b6f Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x6b6f…6bbb Line {l1=0x4a, l2=» WRITELN(LIST,' MEDARBNR DATO REALISERET REALISERET',«, l3=0x4a}
0x6bbb…6bd9 Line {l1=0x1c, l2=» ' ENHEDER');«, l3=0x1c}
0x6bd9…6c26 Line {l1=0x4b, l2=» WRITELN(LIST,' TIDSFORBRUG PR. ENHED LØN');«, l3=0x4b}
0x6c26…6c33 Line {l1=0x0b, l2=» LINES:=9 «, l3=0x0b}
0x6c33…6c39 Line {l1=0x04, l2=» END«, l3=0x04}
0x6c39…6c40 Line {l1=0x05, l2=» ELSE«, l3=0x05}
0x6c40…6c48 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x6c48…6c5d Line {l1=0x13, l2=» IF LINES<51 THEN «, l3=0x13}
0x6c5d…6c66 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6c66…6c79 Line {l1=0x11, l2=» GOTOXY(1,24);«, l3=0x11}
0x6c79…6c90 Line {l1=0x15, l2=» WRITE('RETURN ');«, l3=0x15}
0x6c90…6c9c Line {l1=0x0a, l2=» READLN«, l3=0x0a}
0x6c9c…6ca4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6ca4…6cb4 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6cb4…6cfb Line {l1=0x45, l2=» WRITELN(' MEDARBNR DATO REALISERET REALISERET',«, l3=0x45}
0x6cfb…6d14 Line {l1=0x17, l2=» ' ENHEDER');«, l3=0x17}
0x6d14…6d5c Line {l1=0x46, l2=» WRITELN(' TIDSFORBRUG PR. ENHED LØN');«, l3=0x46}
0x6d5c…6d69 Line {l1=0x0b, l2=» LINES:=2 «, l3=0x0b}
0x6d69…6d6f Line {l1=0x04, l2=» END«, l3=0x04}
0x6d6f…6d75 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6d75…6d7d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6d7d…6db2 Line {l1=0x33, l2=»PROCEDURE REGLINIE(ORDRENR,EMNENR,OPERANR:INTEGER);«, l3=0x33}
0x6db2…6db9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6db9…6dfb Line {l1=0x40, l2=» IF (LINES>40) OR ((CH IN JA) AND (LINES>16)) THEN HEADING;«, l3=0x40}
0x6dfb…6e0d Line {l1=0x10, l2=» TTID:=0.0;«, l3=0x10}
0x6e0d…6e1f Line {l1=0x10, l2=» TLØN:=0.0;«, l3=0x10}
0x6e1f…6e34 Line {l1=0x13, l2=» TMÆNGDE:=0.0;«, l3=0x13}
0x6e34…6e46 Line {l1=0x10, l2=» ATID:=0.0;«, l3=0x10}
0x6e46…6e58 Line {l1=0x10, l2=» ALØN:=0.0;«, l3=0x10}
0x6e58…6e6d Line {l1=0x13, l2=» AMÆNGDE:=0.0;«, l3=0x13}
0x6e6d…6e87 Line {l1=0x18, l2=» OPERA.NR:=OPERANR;«, l3=0x18}
0x6e87…6eaf Line {l1=0x26, l2=» GETREC(OPERA.A);CHECK0(OPERA.A);«, l3=0x26}
0x6eaf…6ec8 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x6ec8…6ed5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6ed5…6eed Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x6eed…6f20 Line {l1=0x31, l2=» WRITELN(LIST,OPERA.NR:4,' ',OPERA.BETEGN)«, l3=0x31}
0x6f20…6f2b Line {l1=0x09, l2=» END«, l3=0x09}
0x6f2b…6f37 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x6f37…6f44 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6f44…6f56 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x6f56…6f84 Line {l1=0x2c, l2=» WRITELN(OPERA.NR:4,' ',OPERA.BETEGN)«, l3=0x2c}
0x6f84…6f90 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x6f90…6fa7 Line {l1=0x15, l2=» LINES:=LINES+2;«, l3=0x15}
0x6fa7…6fc6 Line {l1=0x1d, l2=» REGLI.ORDRENR:=ORDRENR;«, l3=0x1d}
0x6fc6…6fe3 Line {l1=0x1b, l2=» REGLI.EMNENR:=EMNENR;«, l3=0x1b}
0x6fe3…7002 Line {l1=0x1d, l2=» REGLI.OPERANR:=OPERANR;«, l3=0x1d}
0x7002…701c Line {l1=0x18, l2=» REGLI.MEDARBNR:=0;«, l3=0x18}
0x701c…7038 Line {l1=0x1a, l2=» REGLI.DATO:=LONGNUL;«, l3=0x1a}
0x7038…7087 Line {l1=0x4d, l2=» NEXTREC(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4d}
0x7087…70d4 Line {l1=0x4b, l2=» WHILE (IER=0) AND (REGLI.OPERANR=OPERANR) AND (REGLI.ORDRENR=ORDRENR)«, l3=0x4b}
0x70d4…70fe Line {l1=0x28, l2=» AND (REGLI.EMNENR=EMNENR) DO«, l3=0x28}
0x70fe…710b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x710b…712d Line {l1=0x20, l2=» IF REGLI.DATO(1)>99 THEN«, l3=0x20}
0x712d…713c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x713c…715d Line {l1=0x1f, l2=» ATID:=ATID+REGLI.TID;«, l3=0x1f}
0x715d…717e Line {l1=0x1f, l2=» ALØN:=ALØN+REGLI.LØN;«, l3=0x1f}
0x717e…71a8 Line {l1=0x28, l2=» AMÆNGDE:=AMÆNGDE+REGLI.MÆNGDE «, l3=0x28}
0x71a8…71b5 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x71b5…71c3 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x71c3…71d2 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x71d2…7218 Line {l1=0x44, l2=» IF (LINES>44) OR ((CH IN JA) AND (LINES>20)) THEN HEADING;«, l3=0x44}
0x7218…7235 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0x7235…7260 Line {l1=0x29, l2=» WRITE(LIST,REGLI.MEDARBNR:10,«, l3=0x29}
0x7260…72a3 Line {l1=0x41, l2=» REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,«, l3=0x41}
0x72a3…72cb Line {l1=0x26, l2=» REGLI.TID:13:2)«, l3=0x26}
0x72cb…72db Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x72db…7301 Line {l1=0x24, l2=» WRITE(REGLI.MEDARBNR:10,«, l3=0x24}
0x7301…733f Line {l1=0x3c, l2=» REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,«, l3=0x3c}
0x733f…7363 Line {l1=0x22, l2=» REGLI.TID:13:2);«, l3=0x22}
0x7363…7389 Line {l1=0x24, l2=» IF REGLI.MÆNGDE<>0.0 THEN «, l3=0x24}
0x7389…73a8 Line {l1=0x1d, l2=» IF CH IN NEJ THEN«, l3=0x1d}
0x73a8…73df Line {l1=0x35, l2=» WRITE(LIST,REGLI.TID/REGLI.MÆNGDE:11:4)«, l3=0x35}
0x73df…73f1 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x73f1…7423 Line {l1=0x30, l2=» WRITE(REGLI.TID/REGLI.MÆNGDE:11:4)«, l3=0x30}
0x7423…7433 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x7433…7452 Line {l1=0x1d, l2=» IF CH IN NEJ THEN«, l3=0x1d}
0x7452…7474 Line {l1=0x20, l2=» WRITE(LIST,'-':11)«, l3=0x20}
0x7474…7486 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x7486…74a4 Line {l1=0x1c, l2=» WRITE('-':11);«, l3=0x1c}
0x74a4…74c1 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0x74c1…74fd Line {l1=0x3a, l2=» WRITELN(LIST,REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2)«, l3=0x3a}
0x74fd…750d Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x750d…7545 Line {l1=0x36, l2=» WRITELN(REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2);«, l3=0x36}
0x7545…7560 Line {l1=0x19, l2=» LINES:=LINES+1;«, l3=0x19}
0x7560…7581 Line {l1=0x1f, l2=» TTID:=TTID+REGLI.TID;«, l3=0x1f}
0x7581…75a2 Line {l1=0x1f, l2=» TLØN:=TLØN+REGLI.LØN;«, l3=0x1f}
0x75a2…75cb Line {l1=0x27, l2=» TMÆNGDE:=TMÆNGDE+REGLI.MÆNGDE«, l3=0x27}
0x75cb…75d9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x75d9…75f3 Line {l1=0x18, l2=» NEXTREC(REGLI.A)«, l3=0x18}
0x75f3…75ff Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x75ff…7636 Line {l1=0x35, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x35}
0x7636…766c Line {l1=0x34, l2=» (*UDSKRIV TOTAL, GENERER ELLER CHECK TOTALPOST*)«, l3=0x34}
0x766c…7685 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x7685…7692 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7692…76b1 Line {l1=0x1d, l2=» WRITELN(LIST,STREG:65);«, l3=0x1d}
0x76b1…76e6 Line {l1=0x33, l2=» WRITE(LIST,'REALISERET OPTALT',TTID:13:2);«, l3=0x33}
0x76e6…7720 Line {l1=0x38, l2=» IF TMÆNGDE<>0.0 THEN WRITE(LIST,TTID/TMÆNGDE:11:4)«, l3=0x38}
0x7720…7740 Line {l1=0x1e, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x1e}
0x7740…776d Line {l1=0x2b, l2=» WRITELN(LIST,TLØN:12:2,TMÆNGDE:9:-2);«, l3=0x2b}
0x776d…77a2 Line {l1=0x33, l2=» WRITE(LIST,'REALISERET INDTASTET',ATID:13:2);«, l3=0x33}
0x77a2…77dd Line {l1=0x39, l2=» IF AMÆNGDE<>0.0 THEN WRITE(LIST,ATID/AMÆNGDE:11:4) «, l3=0x39}
0x77dd…77fd Line {l1=0x1e, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x1e}
0x77fd…7820 Line {l1=0x21, l2=» WRITELN(LIST,AMÆNGDE:21:-2)«, l3=0x21}
0x7820…782b Line {l1=0x09, l2=» END«, l3=0x09}
0x782b…7837 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x7837…7844 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7844…785e Line {l1=0x18, l2=» WRITELN(STREG:65);«, l3=0x18}
0x785e…788e Line {l1=0x2e, l2=» WRITE('REALISERET OPTALT',TTID:13:2);«, l3=0x2e}
0x788e…78c3 Line {l1=0x33, l2=» IF TMÆNGDE<>0.0 THEN WRITE(TTID/TMÆNGDE:11:4)«, l3=0x33}
0x78c3…78de Line {l1=0x19, l2=» ELSE WRITE('-':11);«, l3=0x19}
0x78de…7906 Line {l1=0x26, l2=» WRITELN(TLØN:12:2,TMÆNGDE:9:-2);«, l3=0x26}
0x7906…7936 Line {l1=0x2e, l2=» WRITE('REALISERET INDTASTET',ATID:13:2);«, l3=0x2e}
0x7936…796c Line {l1=0x34, l2=» IF AMÆNGDE<>0.0 THEN WRITE(ATID/AMÆNGDE:11:4) «, l3=0x34}
0x796c…7987 Line {l1=0x19, l2=» ELSE WRITE('-':11);«, l3=0x19}
0x7987…79a5 Line {l1=0x1c, l2=» WRITELN(AMÆNGDE:21:-2)«, l3=0x1c}
0x79a5…79b1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x79b1…79d5 Line {l1=0x22, l2=» IF ATID=0.0 THEN ATID:=TTID;«, l3=0x22}
0x79d5…79f9 Line {l1=0x22, l2=» IF ALØN=0.0 THEN ALØN:=TLØN;«, l3=0x22}
0x79f9…7a26 Line {l1=0x2b, l2=» IF AMÆNGDE=0.0 THEN AMÆNGDE:=TMÆNGDE;«, l3=0x2b}
0x7a26…7a3d Line {l1=0x15, l2=» LINES:=LINES+3 «, l3=0x15}
0x7a3d…7a43 Line {l1=0x04, l2=»END;«, l3=0x04}
0x7a43…7a4b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x7a4b…7a60 Line {l1=0x13, l2=»PROCEDURE ENKELTOP;«, l3=0x13}
0x7a60…7a67 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x7a67…7a7a Line {l1=0x11, l2=» WITH OMVPROD DO«, l3=0x11}
0x7a7a…7a83 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x7a83…7a9b Line {l1=0x16, l2=» ORDRENR:=ORDRE.NR;«, l3=0x16}
0x7a9b…7ab6 Line {l1=0x19, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x19}
0x7ab6…7acf Line {l1=0x17, l2=» OPERANR:=POST.OPNR;«, l3=0x17}
0x7acf…7ae1 Line {l1=0x10, l2=» SEKVENSN:=0;«, l3=0x10}
0x7ae1…7b23 Line {l1=0x40, l2=» NEXTREC(A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(A);IER:=0;«, l3=0x40}
0x7b23…7b58 Line {l1=0x33, l2=» IF (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR)«, l3=0x33}
0x7b58…7b7d Line {l1=0x23, l2=» AND (OPERANR=POST.OPNR) THEN«, l3=0x23}
0x7b7d…7b8f Line {l1=0x10, l2=» WITH PROD DO«, l3=0x10}
0x7b8f…7b9a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x7b9a…7bbd Line {l1=0x21, l2=» SEKVENSN:=OMVPROD.SEKVENSN;«, l3=0x21}
0x7bbd…7bde Line {l1=0x1f, l2=» OPERANR:=OMVPROD.OPERANR;«, l3=0x1f}
0x7bde…7bfa Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x7bfa…7c23 Line {l1=0x27, l2=» REGLINIE(ORDRENR,EMNENR,OPERANR);«, l3=0x27}
0x7c23…7c3c Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x7c3c…7c49 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7c49…7c73 Line {l1=0x28, l2=» WRITE(LIST,'KALKULERET',' ':13);«, l3=0x28}
0x7c73…7c91 Line {l1=0x1c, l2=» IF PROD.STKH<=0 THEN«, l3=0x1c}
0x7c91…7cbe Line {l1=0x2b, l2=» WRITE(LIST,-PROD.STKH/100.0:10:2,«, l3=0x2b}
0x7cbe…7cfa Line {l1=0x3a, l2=» -PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x3a}
0x7cfa…7d08 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x7d08…7d4f Line {l1=0x45, l2=» WRITE(LIST,ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x45}
0x7d4f…7d7b Line {l1=0x2a, l2=» WRITELN(LIST,ORDRE.ANTALBES:21:-2)«, l3=0x2a}
0x7d7b…7d86 Line {l1=0x09, l2=» END«, l3=0x09}
0x7d86…7d92 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x7d92…7d9f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7d9f…7dc4 Line {l1=0x23, l2=» WRITE('KALKULERET',' ':13);«, l3=0x23}
0x7dc4…7de2 Line {l1=0x1c, l2=» IF PROD.STKH<=0 THEN«, l3=0x1c}
0x7de2…7e2f Line {l1=0x4b, l2=» WRITE(-PROD.STKH/100.0:10:2,-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x4b}
0x7e2f…7e3d Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x7e3d…7e7f Line {l1=0x40, l2=» WRITE(ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x40}
0x7e7f…7ea6 Line {l1=0x25, l2=» WRITELN(ORDRE.ANTALBES:21:-2)«, l3=0x25}
0x7ea6…7eb2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x7eb2…7ec8 Line {l1=0x14, l2=» LINES:=LINES+1«, l3=0x14}
0x7ec8…7ed1 Line {l1=0x07, l2=» END«, l3=0x07}
0x7ed1…7edb Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x7edb…7eee Line {l1=0x11, l2=» WITH REGLI DO«, l3=0x11}
0x7eee…7ef9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x7ef9…7f09 Line {l1=0x0e, l2=» HEADING;«, l3=0x0e}
0x7f09…7f22 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x7f22…7f5d Line {l1=0x39, l2=» WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER')«, l3=0x39}
0x7f5d…7f69 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x7f69…7fa0 Line {l1=0x35, l2=» WRITELN('IKKEKALKULEREDE REGISTRERINGSLINIER');«, l3=0x35}
0x7fa0…7fb7 Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x7fb7…7fd1 Line {l1=0x18, l2=» ORDRENR:=ORDRE.NR;«, l3=0x18}
0x7fd1…7fee Line {l1=0x1b, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x1b}
0x7fee…8009 Line {l1=0x19, l2=» OPERANR:=POST.OPNR;«, l3=0x19}
0x8009…801d Line {l1=0x12, l2=» MEDARBNR:=0;«, l3=0x12}
0x801d…8033 Line {l1=0x14, l2=» DATO:=LONGNUL;«, l3=0x14}
0x8033…8076 Line {l1=0x41, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;«, l3=0x41}
0x8076…80af Line {l1=0x37, l2=» IF (ORDRENR=ORDRE.NR) AND (OPERANR=POST.OPNR) AND«, l3=0x37}
0x80af…80d4 Line {l1=0x23, l2=» (EMNENR=ORDRE.EMNENR) THEN«, l3=0x23}
0x80d4…80fe Line {l1=0x28, l2=» REGLINIE(ORDRENR,EMNENR,OPERANR)«, l3=0x28}
0x80fe…8107 Line {l1=0x07, l2=» END«, l3=0x07}
0x8107…810e Line {l1=0x05, l2=» END«, l3=0x05}
0x810e…8114 Line {l1=0x04, l2=»END;«, l3=0x04}
0x8114…811c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x811c…8133 Line {l1=0x15, l2=»BEGIN (*ORDRESTATUS*)«, l3=0x15}
0x8133…8141 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x8141…8151 Line {l1=0x0e, l2=» WITH PROD DO«, l3=0x0e}
0x8151…815a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x815a…8172 Line {l1=0x16, l2=» ORDRENR:=ORDRE.NR;«, l3=0x16}
0x8172…818d Line {l1=0x19, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x19}
0x818d…81a6 Line {l1=0x17, l2=» IF POST.OPNR>0 THEN«, l3=0x17}
0x81a6…81b6 Line {l1=0x0e, l2=» ENKELTOP«, l3=0x0e}
0x81b6…81c0 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x81c0…81cb Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x81cb…81df Line {l1=0x12, l2=» SEKVENSN:=0;«, l3=0x12}
0x81df…81f2 Line {l1=0x11, l2=» OPERANR:=0;«, l3=0x11}
0x81f2…8235 Line {l1=0x41, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;«, l3=0x41}
0x8235…827b Line {l1=0x44, l2=» WHILE (IER=0) AND (ORDRENR=ORDRE.NR) AND (EMNENR=ORDRE.EMNENR)«, l3=0x44}
0x827b…82a1 Line {l1=0x24, l2=» AND (NOT EOF(OUTPUT)) DO«, l3=0x24}
0x82a1…82ae Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x82ae…82d9 Line {l1=0x29, l2=» REGLINIE(ORDRENR,EMNENR,OPERANR);«, l3=0x29}
0x82d9…82f4 Line {l1=0x19, l2=» IF CH IN NEJ THEN«, l3=0x19}
0x82f4…8303 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x8303…832f Line {l1=0x2a, l2=» WRITE(LIST,'KALKULERET',' ':13);«, l3=0x2a}
0x832f…834f Line {l1=0x1e, l2=» IF PROD.STKH<=0 THEN«, l3=0x1e}
0x834f…837e Line {l1=0x2d, l2=» WRITE(LIST,-PROD.STKH/100.0:10:2,«, l3=0x2d}
0x837e…83bc Line {l1=0x3c, l2=» -PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x3c}
0x83bc…83cc Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x83cc…8415 Line {l1=0x47, l2=» WRITE(LIST,ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x47}
0x8415…8443 Line {l1=0x2c, l2=» WRITELN(LIST,ORDRE.ANTALBES:21:-2)«, l3=0x2c}
0x8443…8450 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x8450…845e Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x845e…846d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x846d…8494 Line {l1=0x25, l2=» WRITE('KALKULERET',' ':13);«, l3=0x25}
0x8494…84b4 Line {l1=0x1e, l2=» IF PROD.STKH<=0 THEN«, l3=0x1e}
0x84b4…8503 Line {l1=0x4d, l2=» WRITE(-PROD.STKH/100.0:10:2,-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x4d}
0x8503…8513 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x8513…8557 Line {l1=0x42, l2=» WRITE(ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x42}
0x8557…8580 Line {l1=0x27, l2=» WRITELN(ORDRE.ANTALBES:21:-2)«, l3=0x27}
0x8580…858e Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x858e…85a7 Line {l1=0x17, l2=» LINES:=LINES+1;«, l3=0x17}
0x85a7…85bb Line {l1=0x12, l2=» NEXTREC(A)«, l3=0x12}
0x85bb…85c7 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x85c7…85f8 Line {l1=0x2f, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2f}
0x85f8…85fd Line {l1=0x03, l2=» «, l3=0x03}
0x85fd…860d Line {l1=0x0e, l2=» HEADING;«, l3=0x0e}
0x860d…8626 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x8626…8661 Line {l1=0x39, l2=» WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER')«, l3=0x39}
0x8661…866d Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x866d…86a4 Line {l1=0x35, l2=» WRITELN('IKKEKALKULEREDE REGISTRERINGSLINIER');«, l3=0x35}
0x86a4…86bb Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x86bb…86db Line {l1=0x1e, l2=» REGLI.ORDRENR:=ORDRE.NR;«, l3=0x1e}
0x86db…86fe Line {l1=0x21, l2=» REGLI.EMNENR:=ORDRE.EMNENR;«, l3=0x21}
0x86fe…8717 Line {l1=0x17, l2=» REGLI.OPERANR:=0;«, l3=0x17}
0x8717…8731 Line {l1=0x18, l2=» REGLI.MEDARBNR:=0;«, l3=0x18}
0x8731…874d Line {l1=0x1a, l2=» REGLI.DATO:=LONGNUL;«, l3=0x1a}
0x874d…879c Line {l1=0x4d, l2=» NEXTREC(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4d}
0x879c…87d3 Line {l1=0x35, l2=» WHILE (IER=0) AND (REGLI.ORDRENR=ORDRE.NR) AND «, l3=0x35}
0x87d3…8815 Line {l1=0x40, l2=» (REGLI.EMNENR=ORDRE.EMNENR) AND (NOT EOF(OUTPUT)) DO«, l3=0x40}
0x8815…8822 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x8822…884b Line {l1=0x27, l2=» OMVPROD.ORDRENR:=REGLI.ORDRENR;«, l3=0x27}
0x884b…8872 Line {l1=0x25, l2=» OMVPROD.EMNENR:=REGLI.EMNENR;«, l3=0x25}
0x8872…889b Line {l1=0x27, l2=» OMVPROD.OPERANR:=REGLI.OPERANR;«, l3=0x27}
0x889b…88b9 Line {l1=0x1c, l2=» OMVPROD.SEKVENSN:=0;«, l3=0x1c}
0x88b9…8908 Line {l1=0x4d, l2=» NEXTREC(OMVPROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(OMVPROD.A);«, l3=0x4d}
0x8908…8919 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x8919…8968 Line {l1=0x4d, l2=» IF (REGLI.OPERANR<>OMVPROD.OPERANR) OR (REGLI.EMNENR<>OMVPROD.EMNENR)«, l3=0x4d}
0x8968…899a Line {l1=0x30, l2=» OR (REGLI.ORDRENR<>OMVPROD.ORDRENR) THEN«, l3=0x30}
0x899a…89d9 Line {l1=0x3d, l2=» REGLINIE(REGLI.ORDRENR,REGLI.EMNENR,REGLI.OPERANR) «, l3=0x3d}
0x89d9…89e7 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x89e7…8a03 Line {l1=0x1a, l2=» NEXTREC(REGLI.A)«, l3=0x1a}
0x8a03…8a0f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x8a0f…8a45 Line {l1=0x34, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A)«, l3=0x34}
0x8a45…8a4f Line {l1=0x08, l2=» END;«, l3=0x08}
0x8a4f…8a66 Line {l1=0x15, l2=» IF CH IN NEJ THEN«, l3=0x15}
0x8a66…8aa7 Line {l1=0x3f, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3f}
0x8aa7…8ad3 Line {l1=0x2a, l2=» ELSE BEGIN WRITE('RETURN ');READLN END«, l3=0x2a}
0x8ad3…8ada Line {l1=0x05, l2=» END«, l3=0x05}
0x8ada…8ae0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x8ae0…8ae8 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x8ae8…8afd Line {l1=0x13, l2=»PROCEDURE RESOMSÆT;«, l3=0x13}
0x8afd…8b19 Line {l1=0x1a, l2=»VAR R:ARRAY(1..4) OF REAL;«, l3=0x1a}
0x8b19…8b36 Line {l1=0x1b, l2=» I:ARRAY(1..12) OF REAL;«, l3=0x1b}
0x8b36…8b39 Line {l1=0x01, l2=» «, l3=0x01}
0x8b39…8b4d Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x8b4d…8b54 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8b54…8b91 Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x8b91…8bd7 Line {l1=0x44, l2=» WRITELN(LIST,'RESSOURCE-OMSÆTNINGSOVERSIGT TYPE',RESS.RESSTYPE:5,«, l3=0x44}
0x8bd7…8bf6 Line {l1=0x1d, l2=» ' ':53,'DATO',«, l3=0x1d}
0x8bf6…8c3c Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x8c3c…8c7e Line {l1=0x40, l2=» WRITELN(LIST,' NR BETEGN SAMOMS SAMDB PRODTIM',«, l3=0x40}
0x8c7e…8cc4 Line {l1=0x44, l2=» ' VEDLTIM OPSTILT OVERTIM REPTIME TOTALTI',«, l3=0x44}
0x8cc4…8ce3 Line {l1=0x1d, l2=» ' DB/P.TIM');«, l3=0x1d}
0x8ce3…8d25 Line {l1=0x40, l2=» WRITELN(LIST,' TIMESATS SAMOMSSÅ SAMDBSÅ PRODTIMS',«, l3=0x40}
0x8d25…8d6b Line {l1=0x44, l2=» ' VEDLTIMS OPSTILTS OVERTIMS REPTIMES TOTALTIS',«, l3=0x44}
0x8d6b…8d8a Line {l1=0x1d, l2=» ' DB/P.TIMS');«, l3=0x1d}
0x8d8a…8d96 Line {l1=0x0a, l2=» LINES:=5«, l3=0x0a}
0x8d96…8d9c Line {l1=0x04, l2=»END;«, l3=0x04}
0x8d9c…8d9f Line {l1=0x01, l2=» «, l3=0x01}
0x8d9f…8db4 Line {l1=0x13, l2=»PROCEDURE PERAFSLT;«, l3=0x13}
0x8db4…8dbb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8dbb…8dcb Line {l1=0x0e, l2=» WITH RESS DO«, l3=0x0e}
0x8dcb…8dd4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x8dd4…8dee Line {l1=0x18, l2=» SAMOMSSÅ:=SAMOMS; «, l3=0x18}
0x8dee…8e08 Line {l1=0x18, l2=» SAMDBSÅ :=SAMDB; «, l3=0x18}
0x8e08…8e1a Line {l1=0x10, l2=» SAMOMS:=0;«, l3=0x10}
0x8e1a…8e2b Line {l1=0x0f, l2=» SAMDB:=0;«, l3=0x0f}
0x8e2b…8e47 Line {l1=0x1a, l2=» PRODTIMS:=PRODTIM; «, l3=0x1a}
0x8e47…8e63 Line {l1=0x1a, l2=» VEDLTIMS:=VEDLTIM; «, l3=0x1a}
0x8e63…8e7f Line {l1=0x1a, l2=» OPSTILTS:=OPSTILT; «, l3=0x1a}
0x8e7f…8e99 Line {l1=0x18, l2=» OVERTIMS:=OVERTIM;«, l3=0x18}
0x8e99…8eb3 Line {l1=0x18, l2=» REPTIMES:=REPTIME;«, l3=0x18}
0x8eb3…8ecd Line {l1=0x18, l2=» TOTALTIS:=TOTALTI;«, l3=0x18}
0x8ecd…8ee0 Line {l1=0x11, l2=» PRODTIM:=0;«, l3=0x11}
0x8ee0…8ef3 Line {l1=0x11, l2=» VEDLTIM:=0;«, l3=0x11}
0x8ef3…8f06 Line {l1=0x11, l2=» OPSTILT:=0;«, l3=0x11}
0x8f06…8f19 Line {l1=0x11, l2=» OVERTIM:=0;«, l3=0x11}
0x8f19…8f2c Line {l1=0x11, l2=» REPTIME:=0;«, l3=0x11}
0x8f2c…8f3f Line {l1=0x11, l2=» TOTALTI:=0;«, l3=0x11}
0x8f3f…8f5a Line {l1=0x19, l2=» PUTREC(A);CHECK0(A)«, l3=0x19}
0x8f5a…8f62 Line {l1=0x06, l2=» END;«, l3=0x06}
0x8f62…8f68 Line {l1=0x04, l2=»END;«, l3=0x04}
0x8f68…8f70 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x8f70…8f77 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8f77…8f8f Line {l1=0x16, l2=» LÆSFELT(PICTURE(4));«, l3=0x16}
0x8f8f…8fa9 Line {l1=0x18, l2=» SKRIVFELT(PICTURE(4));«, l3=0x18}
0x8fa9…8fc9 Line {l1=0x1e, l2=» FOR J:=1 TO 12 DO I(J):=0.0;«, l3=0x1e}
0x8fc9…8fe8 Line {l1=0x1d, l2=» FOR J:=1 TO 4 DO R(J):=0.0;«, l3=0x1d}
0x8fe8…8ff6 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x8ff6…9006 Line {l1=0x0e, l2=» WITH RESS DO«, l3=0x0e}
0x9006…900f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x900f…901b Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x901b…905f Line {l1=0x42, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;«, l3=0x42}
0x905f…908b Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x908b…9096 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x9096…90cc Line {l1=0x34, l2=» IF (RESSTYPE=POST.RTYPE) OR (POST.RTYPE=0) THEN«, l3=0x34}
0x90cc…90d8 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x90d8…90f9 Line {l1=0x1f, l2=» IF LINES>45 THEN HEADING;«, l3=0x1f}
0x90f9…9110 Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0x9110…9126 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x9126…916d Line {l1=0x45, l2=» WRITE(LIST,NR:5,' ',BETEGN,SAMOMS:10:-2,SAMDB:10:-2,PRODTIM:10,«, l3=0x45}
0x916d…91b8 Line {l1=0x49, l2=» VEDLTIM:10,OPSTILT:10,OVERTIM:10,REPTIME:10,TOTALTI:10);«, l3=0x49}
0x91b8…91f5 Line {l1=0x3b, l2=» IF PRODTIM<>0 THEN WRITELN(LIST,SAMDB/PRODTIM:10:-2) «, l3=0x3b}
0x91f5…9217 Line {l1=0x20, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x20}
0x9217…925f Line {l1=0x46, l2=» WRITE(LIST,TSATSF:16:2,SAMOMSSÅ:10:-2,SAMDBSÅ:10:-2,PRODTIMS:10,«, l3=0x46}
0x925f…92af Line {l1=0x4e, l2=» VEDLTIMS:10,OPSTILTS:10,OVERTIMS:10,REPTIMES:10,TOTALTIS:10);«, l3=0x4e}
0x92af…92f0 Line {l1=0x3f, l2=» IF PRODTIMS<>0 THEN WRITELN(LIST,SAMDBSÅ/PRODTIMS:10:-2) «, l3=0x3f}
0x92f0…9312 Line {l1=0x20, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x20}
0x9312…932c Line {l1=0x18, l2=» R(1):=R(1)+SAMOMS;«, l3=0x18}
0x932c…9345 Line {l1=0x17, l2=» R(2):=R(2)+SAMDB;«, l3=0x17}
0x9345…9361 Line {l1=0x1a, l2=» R(3):=R(3)+SAMOMSSÅ;«, l3=0x1a}
0x9361…937c Line {l1=0x19, l2=» R(4):=R(4)+SAMDBSÅ;«, l3=0x19}
0x937c…93ac Line {l1=0x2e, l2=» I(1):=I(1)+PRODTIM; I(7):=I(7)+PRODTIMS;«, l3=0x2e}
0x93ac…93dc Line {l1=0x2e, l2=» I(2):=I(2)+VEDLTIM; I(8):=I(8)+VEDLTIMS;«, l3=0x2e}
0x93dc…940c Line {l1=0x2e, l2=» I(3):=I(3)+OPSTILT; I(9):=I(9)+OPSTILTS;«, l3=0x2e}
0x940c…943e Line {l1=0x30, l2=» I(4):=I(4)+OVERTIM; I(10):=I(10)+OVERTIMS;«, l3=0x30}
0x943e…9470 Line {l1=0x30, l2=» I(5):=I(5)+REPTIME; I(11):=I(11)+REPTIMES;«, l3=0x30}
0x9470…94a2 Line {l1=0x30, l2=» I(6):=I(6)+TOTALTI; I(12):=I(12)+TOTALTIS;«, l3=0x30}
0x94a2…94c3 Line {l1=0x1f, l2=» IF CH IN JA THEN PERAFSLT«, l3=0x1f}
0x94c3…94ce Line {l1=0x09, l2=» END;«, l3=0x09}
0x94ce…94e0 Line {l1=0x10, l2=» NEXTRECX(A)«, l3=0x10}
0x94e0…94ea Line {l1=0x08, l2=» END;«, l3=0x08}
0x94ea…951a Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);«, l3=0x2e}
0x951a…9533 Line {l1=0x17, l2=» PUTREC(A);CHECK0(A)«, l3=0x17}
0x9533…953b Line {l1=0x06, l2=» END;«, l3=0x06}
0x953b…954f Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x954f…9558 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x9558…956b Line {l1=0x11, l2=» LINES:=LINES+3;«, l3=0x11}
0x956b…9587 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:106);«, l3=0x1a}
0x9587…95c6 Line {l1=0x3d, l2=» WRITE(LIST,'TOTAL',' ':11,R(1):10:-2,R(2):10:-2,I(1):10:-2,«, l3=0x3d}
0x95c6…960d Line {l1=0x45, l2=» I(2):10:-2,I(3):10:-2,I(4):10:-2,I(5):10:-2,I(6):10:-2);«, l3=0x45}
0x960d…963f Line {l1=0x30, l2=» IF I(1)<>0 THEN WRITELN(LIST,R(2)/I(1):10:-2) «, l3=0x30}
0x963f…965d Line {l1=0x1c, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x1c}
0x965d…9694 Line {l1=0x35, l2=» WRITE(LIST,' ':16,R(3):10:-2,R(4):10:-2,I(7):10:-2,«, l3=0x35}
0x9694…96de Line {l1=0x48, l2=» I(8):10:-2,I(9):10:-2,I(10):10:-2,I(11):10:-2,I(12):10:-2);«, l3=0x48}
0x96de…9710 Line {l1=0x30, l2=» IF I(7)<>0 THEN WRITELN(LIST,R(4)/I(7):10:-2) «, l3=0x30}
0x9710…972e Line {l1=0x1c, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x1c}
0x972e…9739 Line {l1=0x09, l2=»(*TOTAL*)«, l3=0x09}
0x9739…9776 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x9776…977d Line {l1=0x05, l2=» END«, l3=0x05}
0x977d…9783 Line {l1=0x04, l2=»END;«, l3=0x04}
0x9783…978b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x978b…97a0 Line {l1=0x13, l2=»PROCEDURE RÅVOMSÆT;«, l3=0x13}
0x97a0…97bc Line {l1=0x1a, l2=»VAR R:ARRAY(1..4) OF REAL;«, l3=0x1a}
0x97bc…97bf Line {l1=0x01, l2=» «, l3=0x01}
0x97bf…97d3 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x97d3…97da Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x97da…9817 Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x9817…9852 Line {l1=0x39, l2=» WRITELN(LIST,'RÅVARE-OMSÆTNINGSOVERSIGT',' ':53,'DATO',«, l3=0x39}
0x9852…9892 Line {l1=0x3e, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x3e}
0x9892…98da Line {l1=0x46, l2=» WRITELN(LIST,' NR BETEGN OMSÆT DB KOSTPRIS',«, l3=0x46}
0x98da…9917 Line {l1=0x3b, l2=» ' LAGER KGINDKØB KGFORBRUG SMESVIND');«, l3=0x3b}
0x9917…995f Line {l1=0x46, l2=» WRITELN(LIST,' KGPRIS OMSÆTS DBS KOSTPRSÅ',«, l3=0x46}
0x995f…999c Line {l1=0x3b, l2=» ' MINLAGER KGSOLGT SMEPRIS');«, l3=0x3b}
0x999c…99a8 Line {l1=0x0a, l2=» LINES:=5«, l3=0x0a}
0x99a8…99ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x99ae…99b6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x99b6…99bd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x99bd…99dc Line {l1=0x1d, l2=» FOR J:=1 TO 4 DO R(J):=0.0;«, l3=0x1d}
0x99dc…99ea Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x99ea…99fc Line {l1=0x10, l2=» WITH RÅVARE DO«, l3=0x10}
0x99fc…9a05 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x9a05…9a11 Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x9a11…9a55 Line {l1=0x42, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;«, l3=0x42}
0x9a55…9a81 Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x9a81…9a8c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x9a8c…9aad Line {l1=0x1f, l2=» IF LINES>45 THEN HEADING;«, l3=0x1f}
0x9aad…9ac4 Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0x9ac4…9ada Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x9ada…9b24 Line {l1=0x48, l2=» WRITELN(LIST,NR:5,' ',BETEGN,OMSÆTP:10:-2,DBP:10:-2,KOSTPRIS:10:2,«, l3=0x48}
0x9b24…9b6e Line {l1=0x48, l2=» LAGER:10:-2,KGINDKØB:10:-2,KGFORBRU:10:-2,SMESVIND:10);«, l3=0x48}
0x9b6e…9bbd Line {l1=0x4d, l2=» WRITELN(LIST,' ':12,PRISKG:10:2,OMSÆTSP:10:-2,DBSÅ:10:-2,KOSTPRSÅ:10:2,«, l3=0x4d}
0x9bbd…9bf8 Line {l1=0x39, l2=» MINLAGE:10:-2,KGSOLGT:10:-2,SMEPRIS:20:2);«, l3=0x39}
0x9bf8…9c12 Line {l1=0x18, l2=» R(1):=R(1)+OMSÆTP;«, l3=0x18}
0x9c12…9c29 Line {l1=0x15, l2=» R(2):=R(2)+DBP;«, l3=0x15}
0x9c29…9c44 Line {l1=0x19, l2=» R(3):=R(3)+OMSÆTSP;«, l3=0x19}
0x9c44…9c5c Line {l1=0x16, l2=» R(4):=R(4)+DBSÅ;«, l3=0x16}
0x9c5c…9c74 Line {l1=0x16, l2=» IF CH IN JA THEN«, l3=0x16}
0x9c74…9c81 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x9c81…9ca5 Line {l1=0x22, l2=» OMSÆTSP:=OMSÆTP;OMSÆTP:=0;«, l3=0x22}
0x9ca5…9cc0 Line {l1=0x19, l2=» DBSÅ:=DBP;DBP:=0;«, l3=0x19}
0x9cc0…9cdd Line {l1=0x1b, l2=» KOSTPRSÅ:=KOSTPRIS;«, l3=0x1b}
0x9cdd…9cfa Line {l1=0x1b, l2=» PUTREC(A);CHECK0(A)«, l3=0x1b}
0x9cfa…9d06 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x9d06…9d19 Line {l1=0x11, l2=» NEXTRECX(A)«, l3=0x11}
0x9d19…9d23 Line {l1=0x08, l2=» END;«, l3=0x08}
0x9d23…9d53 Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);«, l3=0x2e}
0x9d53…9d6c Line {l1=0x17, l2=» PUTREC(A);CHECK0(A)«, l3=0x17}
0x9d6c…9d74 Line {l1=0x06, l2=» END;«, l3=0x06}
0x9d74…9d88 Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x9d88…9d91 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x9d91…9da4 Line {l1=0x11, l2=» LINES:=LINES+3;«, l3=0x11}
0x9da4…9dbf Line {l1=0x19, l2=» WRITELN(LIST,STREG:92);«, l3=0x19}
0x9dbf…9df6 Line {l1=0x35, l2=» WRITELN(LIST,'TOTAL',' ':17,R(1):10:-2,R(2):10:-2);«, l3=0x35}
0x9df6…9e25 Line {l1=0x2d, l2=» WRITELN(LIST,' ':22,R(3):10:-2,R(4):10:-2);«, l3=0x2d}
0x9e25…9e30 Line {l1=0x09, l2=»(*TOTAL*)«, l3=0x09}
0x9e30…9e6d Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x9e6d…9e74 Line {l1=0x05, l2=» END«, l3=0x05}
0x9e74…9e7a Line {l1=0x04, l2=»END;«, l3=0x04}
0x9e7a…9e82 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x9e82…9e97 Line {l1=0x13, l2=»PROCEDURE EMNOMSÆT;«, l3=0x13}
0x9e97…9eb3 Line {l1=0x1a, l2=»VAR R:ARRAY(1..4) OF REAL;«, l3=0x1a}
0x9eb3…9eb6 Line {l1=0x01, l2=» «, l3=0x01}
0x9eb6…9eca Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x9eca…9ed1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x9ed1…9f0e Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x9f0e…9f47 Line {l1=0x37, l2=» WRITELN(LIST,'EMNE-OMSÆTNINGSOVERSIGT',' ':49,'DATO',«, l3=0x37}
0x9f47…9f87 Line {l1=0x3e, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x3e}
0x9f87…9fd3 Line {l1=0x4a, l2=» WRITELN(LIST,' NR BETEGN KUNDENR SAMSALG',«, l3=0x4a}
0x9fd3…a006 Line {l1=0x31, l2=» ' DÆKBID SVIND STKHSA');«, l3=0x31}
0xa006…a052 Line {l1=0x4a, l2=» WRITELN(LIST,' SAMSALGS',«, l3=0x4a}
0xa052…a085 Line {l1=0x31, l2=» ' DÆKBIDSÅ SMELTTIL STKHBA');«, l3=0x31}
0xa085…a091 Line {l1=0x0a, l2=» LINES:=5«, l3=0x0a}
0xa091…a097 Line {l1=0x04, l2=»END;«, l3=0x04}
0xa097…a09f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xa09f…a0a6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xa0a6…a0c5 Line {l1=0x1d, l2=» FOR J:=1 TO 4 DO R(J):=0.0;«, l3=0x1d}
0xa0c5…a0d3 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0xa0d3…a0e3 Line {l1=0x0e, l2=» WITH EMNE DO«, l3=0x0e}
0xa0e3…a0ec Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0xa0ec…a0f8 Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0xa0f8…a13c Line {l1=0x42, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;«, l3=0x42}
0xa13c…a168 Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0xa168…a173 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0xa173…a194 Line {l1=0x1f, l2=» IF LINES>45 THEN HEADING;«, l3=0x1f}
0xa194…a1ab Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0xa1ab…a1c1 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0xa1c1…a20a Line {l1=0x47, l2=» WRITELN(LIST,NR:5,' ',BETEGN,KUNDENR(1)*10000.0+KUNDENR(2):10:-2,«, l3=0x47}
0xa20a…a24e Line {l1=0x42, l2=» SAMSALG:10:-2,DÆKBID:10:-2,SVIND:10,STKHSA:10);«, l3=0x42}
0xa24e…a26a Line {l1=0x1a, l2=» WRITELN(LIST,' ':46,«, l3=0x1a}
0xa26a…a2b4 Line {l1=0x48, l2=» SAMSALGS:10:-2,DÆKBIDSÅ:10:-2,SMELTTIL:10,STKHBA:10);«, l3=0x48}
0xa2b4…a2cf Line {l1=0x19, l2=» R(1):=R(1)+SAMSALG;«, l3=0x19}
0xa2cf…a2e9 Line {l1=0x18, l2=» R(2):=R(2)+DÆKBID;«, l3=0x18}
0xa2e9…a305 Line {l1=0x1a, l2=» R(3):=R(3)+SAMSALGS;«, l3=0x1a}
0xa305…a321 Line {l1=0x1a, l2=» R(4):=R(4)+DÆKBIDSÅ;«, l3=0x1a}
0xa321…a339 Line {l1=0x16, l2=» IF CH IN JA THEN«, l3=0x16}
0xa339…a346 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0xa346…a36d Line {l1=0x25, l2=» SAMSALGS:=SAMSALG;SAMSALG:=0;«, l3=0x25}
0xa36d…a392 Line {l1=0x23, l2=» DÆKBIDSÅ:=DÆKBID;DÆKBID:=0;«, l3=0x23}
0xa392…a3af Line {l1=0x1b, l2=» PUTREC(A);CHECK0(A)«, l3=0x1b}
0xa3af…a3bb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xa3bb…a3ce Line {l1=0x11, l2=» NEXTRECX(A)«, l3=0x11}
0xa3ce…a3d8 Line {l1=0x08, l2=» END;«, l3=0x08}
0xa3d8…a408 Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);«, l3=0x2e}
0xa408…a421 Line {l1=0x17, l2=» PUTREC(A);CHECK0(A)«, l3=0x17}
0xa421…a429 Line {l1=0x06, l2=» END;«, l3=0x06}
0xa429…a43d Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0xa43d…a446 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0xa446…a459 Line {l1=0x11, l2=» LINES:=LINES+3;«, l3=0x11}
0xa459…a474 Line {l1=0x19, l2=» WRITELN(LIST,STREG:86);«, l3=0x19}
0xa474…a4ab Line {l1=0x35, l2=» WRITELN(LIST,'TOTAL',' ':41,R(1):10:-2,R(2):10:-2);«, l3=0x35}
0xa4ab…a4da Line {l1=0x2d, l2=» WRITELN(LIST,' ':46,R(3):10:-2,R(4):10:-2);«, l3=0x2d}
0xa4da…a4e5 Line {l1=0x09, l2=»(*TOTAL*)«, l3=0x09}
0xa4e5…a522 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0xa522…a529 Line {l1=0x05, l2=» END«, l3=0x05}
0xa529…a52f Line {l1=0x04, l2=»END;«, l3=0x04}
0xa52f…a532 Line {l1=0x01, l2=» «, l3=0x01}
0xa532…a547 Line {l1=0x13, l2=»PROCEDURE VÆLGLIST;«, l3=0x13}
0xa547…a54e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xa54e…a560 Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0xa560…a57d Line {l1=0x1b, l2=» 1:FORKALKULATION;«, l3=0x1b}
0xa57d…a594 Line {l1=0x15, l2=» 2:RUTEKORT;«, l3=0x15}
0xa594…a5b3 Line {l1=0x1d, l2=» 3:PRODUKTIONSORDRE;«, l3=0x1d}
0xa5b3…a5ca Line {l1=0x15, l2=» 4:EMNELIST;«, l3=0x15}
0xa5ca…a5e1 Line {l1=0x15, l2=» 5:FORMLIST;«, l3=0x15}
0xa5e1…a5f8 Line {l1=0x15, l2=» 6:ORDRLIST;«, l3=0x15}
0xa5f8…a60f Line {l1=0x15, l2=» 7:KUNOLIST;«, l3=0x15}
0xa60f…a629 Line {l1=0x18, l2=» 8:ORDRESTATUS;«, l3=0x18}
0xa629…a640 Line {l1=0x15, l2=» 9:RESOMSÆT;«, l3=0x15}
0xa640…a658 Line {l1=0x16, l2=» 10:RÅVOMSÆT;«, l3=0x16}
0xa658…a670 Line {l1=0x16, l2=» 11:EMNOMSÆT «, l3=0x16}
0xa670…a677 Line {l1=0x05, l2=» END«, l3=0x05}
0xa677…a67d Line {l1=0x04, l2=»END;«, l3=0x04}
0xa67d…a685 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xa685…a699 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0xa699…a6a9 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0xa6a9…a6b3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0xa6b3…a6c6 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0xa6c6…a6e8 Line {l1=0x20, l2=» WRITELN('1 Forkalkulation');«, l3=0x20}
0xa6e8…a704 Line {l1=0x1a, l2=» WRITELN('2 Rutekort');«, l3=0x1a}
0xa704…a728 Line {l1=0x22, l2=» WRITELN('3 Produktionsordre');«, l3=0x22}
0xa728…a74d Line {l1=0x23, l2=» WRITELN('4 Emnespecifikation');«, l3=0x23}
0xa74d…a777 Line {l1=0x28, l2=» WRITELN('5 Formregistreringsliste');«, l3=0x28}
0xa777…a798 Line {l1=0x1f, l2=» WRITELN('6 Ordreoversigt');«, l3=0x1f}
0xa798…a7be Line {l1=0x24, l2=» WRITELN('7 Kundeordreoversigt');«, l3=0x24}
0xa7be…a7dd Line {l1=0x1d, l2=» WRITELN('8 Ordrestatus');«, l3=0x1d}
0xa7dd…a80d Line {l1=0x2e, l2=» WRITELN('9 Ressource-omsætningsoversigt');«, l3=0x2e}
0xa80d…a83b Line {l1=0x2c, l2=» WRITELN('10 Råvare-omsætningsoversigt');«, l3=0x2c}
0xa83b…a867 Line {l1=0x2a, l2=» WRITELN('11 Emne-omsætningsoversigt');«, l3=0x2a}
0xa867…a875 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0xa875…a88f Line {l1=0x18, l2=» WRITE('Vælg 0-11 ');«, l3=0x18}
0xa88f…a89c Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0xa89c…a8bf Line {l1=0x21, l2=» IF NOT EOLN THEN READ(OPTION)«, l3=0x21}
0xa8bf…a8f0 Line {l1=0x2f, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.0..11.));«, l3=0x2f}
0xa8f0…a914 Line {l1=0x22, l2=» IF OPTION=0 THEN EXIT(MAINTAIN);«, l3=0x22}
0xa914…a91e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0xa91e…a930 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0xa930…a93d Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0xa93d…a951 Line {l1=0x12, l2=» CASE OPTION OF«, l3=0x12}
0xa951…a961 Line {l1=0x0e, l2=» 1,2,3,6,8:«, l3=0x0e}
0xa961…a96e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0xa96e…a98c Line {l1=0x1c, l2=» LÆSFELT(PICTURE(2));«, l3=0x1c}
0xa98c…a9ac Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(2));«, l3=0x1e}
0xa9ac…a9cc Line {l1=0x1e, l2=» IF POST.ORDRENR=0 THEN«, l3=0x1e}
0xa9cc…a9db Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xa9db…a9fa Line {l1=0x1d, l2=» POST.TORDRE:=32000;«, l3=0x1d}
0xa9fa…aa15 Line {l1=0x19, l2=» POST.EMNENR:=0;«, l3=0x19}
0xaa15…aa32 Line {l1=0x1b, l2=» POST.TEMNE:=32000«, l3=0x1b}
0xaa32…aa3f Line {l1=0x0b, l2=» END«, l3=0x0b}
0xaa3f…aa4d Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0xaa4d…aa5c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xaa5c…aa7c Line {l1=0x1e, l2=» LÆSFELT(PICTURE(1));«, l3=0x1e}
0xaa7c…aa9e Line {l1=0x20, l2=» SKRIVFELT(PICTURE(1));«, l3=0x20}
0xaa9e…aac4 Line {l1=0x24, l2=» POST.TORDRE:=POST.ORDRENR;«, l3=0x24}
0xaac4…aae4 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(7));«, l3=0x1e}
0xaae4…ab06 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(7));«, l3=0x20}
0xab06…ab27 Line {l1=0x1f, l2=» IF POST.TORDRE=0 THEN«, l3=0x1f}
0xab27…ab38 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xab38…ab59 Line {l1=0x1f, l2=» POST.TORDRE:=32000;«, l3=0x1f}
0xab59…ab78 Line {l1=0x1d, l2=» POST.TEMNE:=32000«, l3=0x1d}
0xab78…ab87 Line {l1=0x0d, l2=» END«, l3=0x0d}
0xab87…ab97 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0xab97…aba8 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xaba8…abce Line {l1=0x24, l2=» POST.TEMNE:=POST.EMNENR;«, l3=0x24}
0xabce…abf0 Line {l1=0x20, l2=» LÆSFELT(PICTURE(6));«, l3=0x20}
0xabf0…ac13 Line {l1=0x21, l2=» SKRIVFELT(PICTURE(6))«, l3=0x21}
0xac13…ac22 Line {l1=0x0d, l2=» END«, l3=0x0d}
0xac22…ac30 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xac30…ac48 Line {l1=0x16, l2=» POST.ANTEX:=1;«, l3=0x16}
0xac48…ac66 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(5));«, l3=0x1c}
0xac66…ac86 Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(5));«, l3=0x1e}
0xac86…ac9d Line {l1=0x15, l2=» POST.OPNR:=0;«, l3=0x15}
0xac9d…acb7 Line {l1=0x18, l2=» IF OPTION=8 THEN«, l3=0x18}
0xacb7…acc6 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xacc6…ace6 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(9));«, l3=0x1e}
0xace6…ad08 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(9));«, l3=0x20}
0xad08…ad2c Line {l1=0x22, l2=» CH:=QJN('Skærmudskrift')«, l3=0x22}
0xad2c…ad39 Line {l1=0x0b, l2=» END«, l3=0x0b}
0xad39…ad50 Line {l1=0x15, l2=» ELSE CH:='N';«, l3=0x15}
0xad50…ad53 Line {l1=0x01, l2=» «, l3=0x01}
0xad53…ad74 Line {l1=0x1f, l2=» ORDRE.NR:=POST.ORDRENR;«, l3=0x1f}
0xad74…ad98 Line {l1=0x22, l2=» ORDRE.EMNENR:=POST.EMNENR;«, l3=0x22}
0xad98…addf Line {l1=0x45, l2=» GETREC(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);«, l3=0x45}
0xaddf…adf8 Line {l1=0x17, l2=» IF IER=-6 THEN «, l3=0x17}
0xadf8…ae07 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xae07…ae53 Line {l1=0x4a, l2=» NEXTREC(ORDRE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(ORDRE.A);«, l3=0x4a}
0xae53…ae75 Line {l1=0x20, l2=» IF IER=-1 THEN IER:=0 «, l3=0x20}
0xae75…ae83 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xae83…ae86 Line {l1=0x01, l2=» «, l3=0x01}
0xae86…aebd Line {l1=0x35, l2=» IF (CH IN NEJ) AND (OPTION=6) THEN LINES:=51;«, l3=0x35}
0xaebd…aec0 Line {l1=0x01, l2=» «, l3=0x01}
0xaec0…af0e Line {l1=0x4c, l2=» WHILE (IER=0) AND ((ORDRE.NR<POST.TORDRE) OR ((ORDRE.NR=POST.TORDRE)«, l3=0x4c}
0xaf0e…af57 Line {l1=0x47, l2=» AND (ORDRE.EMNENR<=POST.TEMNE))) AND (NOT EOF(OUTPUT)) DO«, l3=0x47}
0xaf57…af66 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xaf66…af7f Line {l1=0x17, l2=» WITH KUNDE DO«, l3=0x17}
0xaf7f…af90 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xaf90…afb0 Line {l1=0x1e, l2=» NR:=ORDRE.KUNDENR;«, l3=0x1e}
0xafb0…afef Line {l1=0x3d, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x3d}
0xafef…b00e Line {l1=0x1d, l2=» KUNFOUND:=(IER=0)«, l3=0x1d}
0xb00e…b01e Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb01e…b029 Line {l1=0x09, l2=» «, l3=0x09}
0xb029…b041 Line {l1=0x16, l2=» WITH EMNE DO«, l3=0x16}
0xb041…b052 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb052…b071 Line {l1=0x1d, l2=» NR:=ORDRE.EMNENR;«, l3=0x1d}
0xb071…b092 Line {l1=0x1f, l2=» GETREC(A);CHECK0(A)«, l3=0x1f}
0xb092…b0a2 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb0a2…b0a5 Line {l1=0x01, l2=» «, l3=0x01}
0xb0a5…b0c2 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0xb0c2…b0dc Line {l1=0x18, l2=» CASE OPTION OF«, l3=0x18}
0xb0dc…b0fc Line {l1=0x1e, l2=» 1,6,8:FORMULAR(1);«, l3=0x1e}
0xb0fc…b119 Line {l1=0x1b, l2=» 2,3:FORMULAR(2)«, l3=0x1b}
0xb119…b129 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb129…b147 Line {l1=0x1c, l2=» ANTEX:=POST.ANTEX;«, l3=0x1c}
0xb147…b17b Line {l1=0x32, l2=» WHILE (ANTEX>0) AND (NOT EOF(OUTPUT)) DO«, l3=0x32}
0xb17b…b18c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb18c…b1a3 Line {l1=0x15, l2=» VÆLGLIST;«, l3=0x15}
0xb1a3…b1bf Line {l1=0x1a, l2=» ANTEX:=ANTEX-1«, l3=0x1a}
0xb1bf…b1cf Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb1cf…b1eb Line {l1=0x1a, l2=» NEXTREC(ORDRE.A)«, l3=0x1a}
0xb1eb…b1f9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xb1f9…b225 Line {l1=0x2a, l2=» IF (CH IN NEJ) AND (OPTION=6) THEN«, l3=0x2a}
0xb225…b268 Line {l1=0x41, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x41}
0xb268…b2a0 Line {l1=0x36, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A)«, l3=0x36}
0xb2a0…b2ac Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xb2ac…b2b1 Line {l1=0x03, l2=» «, l3=0x03}
0xb2b1…b2c0 Line {l1=0x0d, l2=» 4,7:BEGIN«, l3=0x0d}
0xb2c0…b2e0 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(3));«, l3=0x1e}
0xb2e0…b302 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(3));«, l3=0x20}
0xb302…b32a Line {l1=0x26, l2=» IF POST.KUNDENR=LONGNUL THEN«, l3=0x26}
0xb32a…b33b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb33b…b35e Line {l1=0x21, l2=» POST.TKUNDE(1):=9999;«, l3=0x21}
0xb35e…b380 Line {l1=0x20, l2=» POST.TKUNDE(2):=9999«, l3=0x20}
0xb380…b38f Line {l1=0x0d, l2=» END«, l3=0x0d}
0xb38f…b39f Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0xb39f…b3b0 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb3b0…b3d8 Line {l1=0x26, l2=» POST.TKUNDE:=POST.KUNDENR;«, l3=0x26}
0xb3d8…b3fa Line {l1=0x20, l2=» LÆSFELT(PICTURE(8));«, l3=0x20}
0xb3fa…b41e Line {l1=0x22, l2=» SKRIVFELT(PICTURE(8));«, l3=0x22}
0xb41e…b447 Line {l1=0x27, l2=» IF POST.TKUNDE=LONGNUL THEN«, l3=0x27}
0xb447…b45a Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0xb45a…b47f Line {l1=0x23, l2=» POST.TKUNDE(1):=9999;«, l3=0x23}
0xb47f…b4a3 Line {l1=0x22, l2=» POST.TKUNDE(2):=9999«, l3=0x22}
0xb4a3…b4b4 Line {l1=0x0f, l2=» END«, l3=0x0f}
0xb4b4…b4c4 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb4c4…b4de Line {l1=0x18, l2=» POST.ANTEX:=1;«, l3=0x18}
0xb4de…b4fe Line {l1=0x1e, l2=» LÆSFELT(PICTURE(5));«, l3=0x1e}
0xb4fe…b520 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(5));«, l3=0x20}
0xb520…b53b Line {l1=0x19, l2=» POST.OPNR:=599;«, l3=0x19}
0xb53b…b557 Line {l1=0x1a, l2=» IF OPTION=7 THEN«, l3=0x1a}
0xb557…b568 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb568…b58a Line {l1=0x20, l2=» LÆSFELT(PICTURE(9));«, l3=0x20}
0xb58a…b5ae Line {l1=0x22, l2=» SKRIVFELT(PICTURE(9));«, l3=0x22}
0xb5ae…b5d4 Line {l1=0x24, l2=» CH:=QJN('Skærmudskrift')«, l3=0x24}
0xb5d4…b5e3 Line {l1=0x0d, l2=» END«, l3=0x0d}
0xb5e3…b5fc Line {l1=0x17, l2=» ELSE CH:='N';«, l3=0x17}
0xb5fc…b61f Line {l1=0x21, l2=» KUNDE.NR:=POST.KUNDENR;«, l3=0x21}
0xb61f…b668 Line {l1=0x47, l2=» GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);«, l3=0x47}
0xb668…b683 Line {l1=0x19, l2=» IF IER=-6 THEN «, l3=0x19}
0xb683…b694 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb694…b6e2 Line {l1=0x4c, l2=» NEXTREC(KUNDE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(KUNDE.A);«, l3=0x4c}
0xb6e2…b706 Line {l1=0x22, l2=» IF IER=-1 THEN IER:=0 «, l3=0x22}
0xb706…b716 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb716…b719 Line {l1=0x01, l2=» «, l3=0x01}
0xb719…b736 Line {l1=0x1b, l2=» WHILE (IER=0) AND«, l3=0x1b}
0xb736…b766 Line {l1=0x2e, l2=» (KUNDE.NR(1)*10000.0+KUNDE.NR(2)<=«, l3=0x2e}
0xb766…b79a Line {l1=0x32, l2=» POST.TKUNDE(1)*10000.0+POST.TKUNDE(2))«, l3=0x32}
0xb79a…b7c0 Line {l1=0x24, l2=» AND (NOT EOF(OUTPUT)) DO«, l3=0x24}
0xb7c0…b7d1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xb7d1…b7fd Line {l1=0x2a, l2=» IF CH IN NEJ THEN FORMULAR(1);«, l3=0x2a}
0xb7fd…b81d Line {l1=0x1e, l2=» ANTEX:=POST.ANTEX;«, l3=0x1e}
0xb81d…b853 Line {l1=0x34, l2=» WHILE (ANTEX>0) AND (NOT EOF(OUTPUT)) DO«, l3=0x34}
0xb853…b866 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0xb866…b87f Line {l1=0x17, l2=» VÆLGLIST;«, l3=0x17}
0xb87f…b89d Line {l1=0x1c, l2=» ANTEX:=ANTEX-1«, l3=0x1c}
0xb89d…b8af Line {l1=0x10, l2=» END;«, l3=0x10}
0xb8af…b8cd Line {l1=0x1c, l2=» NEXTREC(KUNDE.A)«, l3=0x1c}
0xb8cd…b8dd Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xb8dd…b917 Line {l1=0x38, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(KUNDE.A)«, l3=0x38}
0xb917…b925 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xb925…b935 Line {l1=0x0e, l2=» 5,9,10,11:«, l3=0x0e}
0xb935…b942 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0xb942…b956 Line {l1=0x12, l2=» FORMULAR(1);«, l3=0x12}
0xb956…b979 Line {l1=0x21, l2=» IF OPTION IN (.9..11.) THEN«, l3=0x21}
0xb979…b9c8 Line {l1=0x4d, l2=» CH:=QJN('Ønskes periodeafslutning med nulstilling af omsætningstal');«, l3=0x4d}
0xb9c8…b9d8 Line {l1=0x0e, l2=» VÆLGLIST«, l3=0x0e}
0xb9d8…b9e3 Line {l1=0x09, l2=» END«, l3=0x09}
0xb9e3…b9ed Line {l1=0x08, l2=» END;«, l3=0x08}
0xb9ed…ba19 Line {l1=0x2a, l2=» UNTIL QJN('Flere af samme slags') IN NEJ«, l3=0x2a}
0xba19…ba1f Line {l1=0x04, l2=»END;«, l3=0x04}
0xba1f…ba27 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xba27…ba3a Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0xba3a…ba4c Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0xba4c…ba5e Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0xba5e…ba72 Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0xba72…ba87 Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0xba87…ba9b Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0xba9b…baaa Line {l1=0x0d, l2=» AKTFORM:=0;«, l3=0x0d}
0xbaaa…bab6 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0xbab6…bac2 Line {l1=0x0a, l2=» MODE:=3;«, l3=0x0a}
0xbac2…bacd Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0xbacd…bae4 Line {l1=0x15, l2=» STREG(0):=CHR(116);«, l3=0x15}
0xbae4…bb03 Line {l1=0x1d, l2=» FILLCHAR(STREG(1),116,'-');«, l3=0x1d}
0xbb03…bb19 Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0xbb19…bb2c Line {l1=0x11, l2=» KUNDE.A(-4):=0;«, l3=0x11}
0xbb2c…bb42 Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0xbb42…bb56 Line {l1=0x12, l2=» RÅVARE.A(-4):=0;«, l3=0x12}
0xbb56…bb6c Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0xbb6c…bb80 Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0xbb80…bb9f Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0xbb9f…bbbe Line {l1=0x1d, l2=» ORDRE.A(-4):=0; «, l3=0x1d}
0xbbbe…bbdd Line {l1=0x1d, l2=» REGLI.A(-4):=0; «, l3=0x1d}
0xbbdd…bbfc Line {l1=0x1d, l2=» KUNEMNE.A(-4):=0; «, l3=0x1d}
0xbbfc…bc1b Line {l1=0x1d, l2=» OMVPROD.A(-4):=0; «, l3=0x1d}
0xbc1b…bc3a Line {l1=0x1d, l2=» KUNORDRE.A(-4):=0; «, l3=0x1d}
0xbc3a…bc59 Line {l1=0x1d, l2=» EMNIFORM.A(-4):=0; «, l3=0x1d}
0xbc59…bc6d Line {l1=0x12, l2=» UGEDAG.A(-4):=0;«, l3=0x12}
0xbc6d…bc82 Line {l1=0x13, l2=» ARBEDAG.A(-4):=0;«, l3=0x13}
0xbc82…bc98 Line {l1=0x14, l2=» ORDTEKST.A(-4):=0;«, l3=0x14}
0xbc98…bcaf Line {l1=0x15, l2=» ORDTEKST.A(-3):=25;«, l3=0x15}
0xbcaf…bcc4 Line {l1=0x13, l2=» UGEDAG.A(-3):=21;«, l3=0x13}
0xbcc4…bcda Line {l1=0x14, l2=» ARBEDAG.A(-3):=22;«, l3=0x14}
0xbcda…bcf0 Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0xbcf0…bd03 Line {l1=0x11, l2=» KUNDE.A(-3):=1;«, l3=0x11}
0xbd03…bd19 Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0xbd19…bd2d Line {l1=0x12, l2=» RÅVARE.A(-3):=5;«, l3=0x12}
0xbd2d…bd43 Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0xbd43…bd57 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0xbd57…bd6f Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0xbd6f…bd87 Line {l1=0x16, l2=» ORDRE.A(-3):=10; «, l3=0x16}
0xbd87…bd9f Line {l1=0x16, l2=» REGLI.A(-3):=16; «, l3=0x16}
0xbd9f…bdb7 Line {l1=0x16, l2=» KUNEMNE.A(-3):=19; «, l3=0x16}
0xbdb7…bdcf Line {l1=0x16, l2=» OMVPROD.A(-3):=13; «, l3=0x16}
0xbdcf…bde7 Line {l1=0x16, l2=» KUNORDRE.A(-3):=18; «, l3=0x16}
0xbde7…bdff Line {l1=0x16, l2=» EMNIFORM.A(-3):=20; «, l3=0x16}
0xbdff…be0a Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0xbe0a…be38 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0xbe38…be5f Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0xbe5f…be70 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0xbe70…be96 Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0xbe96…beab Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0xbeab…bed7 Line {l1=0x2a, l2=» IOPEN(RESS.A); CHECK0(RESS.A); «, l3=0x2a}
0xbed7…bf03 Line {l1=0x2a, l2=» IOPEN(KUNDE.A); CHECK0(KUNDE.A); «, l3=0x2a}
0xbf03…bf2f Line {l1=0x2a, l2=» IOPEN(EMNE.A); CHECK0(EMNE.A); «, l3=0x2a}
0xbf2f…bf5b Line {l1=0x2a, l2=» IOPEN(RÅVARE.A); CHECK0(RÅVARE.A); «, l3=0x2a}
0xbf5b…bf87 Line {l1=0x2a, l2=» IOPEN(OPERA.A); CHECK0(OPERA.A); «, l3=0x2a}
0xbf87…bfb3 Line {l1=0x2a, l2=» IOPEN(ORDRE.A); CHECK0(ORDRE.A); «, l3=0x2a}
0xbfb3…bfdf Line {l1=0x2a, l2=» IOPEN(REGLI.A); CHECK0(REGLI.A); «, l3=0x2a}
0xbfdf…c00b Line {l1=0x2a, l2=» IOPEN(KUNEMNE.A); CHECK0(KUNEMNE.A); «, l3=0x2a}
0xc00b…c037 Line {l1=0x2a, l2=» IOPEN(OMVPROD.A); CHECK0(OMVPROD.A); «, l3=0x2a}
0xc037…c063 Line {l1=0x2a, l2=» IOPEN(KUNORDRE.A); CHECK0(KUNORDRE.A); «, l3=0x2a}
0xc063…c08f Line {l1=0x2a, l2=» IOPEN(EMNIFORM.A); CHECK0(EMNIFORM.A); «, l3=0x2a}
0xc08f…c0bb Line {l1=0x2a, l2=» IOPEN(PROD.A); CHECK0(PROD.A); «, l3=0x2a}
0xc0bb…c0e7 Line {l1=0x2a, l2=» IOPEN(UGEDAG.A); CHECK0(UGEDAG.A); «, l3=0x2a}
0xc0e7…c113 Line {l1=0x2a, l2=» IOPEN(ARBEDAG.A); CHECK0(ARBEDAG.A); «, l3=0x2a}
0xc113…c141 Line {l1=0x2c, l2=» IOPEN(ORDTEKST.A); CHECK0(ORDTEKST.A); «, l3=0x2c}
0xc141…c14b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0xc14b…c15d Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0xc15d…c171 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0xc171…c1a4 Line {l1=0x31, l2=» WRITELN('U D S K R I F T S - P R O G R A M');«, l3=0x31}
0xc1a4…c1c6 Line {l1=0x20, l2=» CH:=QJN('Flere udskrifter');«, l3=0x20}
0xc1c6…c1dd Line {l1=0x15, l2=» IF CH IN JA THEN «, l3=0x15}
0xc1dd…c1f3 Line {l1=0x14, l2=» IF RESPRINT THEN«, l3=0x14}
0xc1f3…c1fe Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0xc1fe…c20f Line {l1=0x0f, l2=» MAINTAIN;«, l3=0x0f}
0xc20f…c21d Line {l1=0x0c, l2=» FREEPR«, l3=0x0c}
0xc21d…c226 Line {l1=0x07, l2=» END«, l3=0x07}
0xc226…c23a Line {l1=0x12, l2=» UNTIL CH IN NEJ;«, l3=0x12}
0xc23a…c251 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0xc251…c265 Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0xc265…c27c Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0xc27c…c291 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0xc291…c2a8 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0xc2a8…c2c0 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0xc2c0…c2d8 Line {l1=0x16, l2=» ICLOSE(REGLI.A); «, l3=0x16}
0xc2d8…c2ef Line {l1=0x15, l2=» ICLOSE(KUNEMNE.A); «, l3=0x15}
0xc2ef…c306 Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0xc306…c31d Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0xc31d…c334 Line {l1=0x15, l2=» ICLOSE(EMNIFORM.A);«, l3=0x15}
0xc334…c348 Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0xc348…c35d Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0xc35d…c373 Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0xc373…c38a Line {l1=0x15, l2=» ICLOSE(ORDTEKST.A);«, l3=0x15}
0xc38a…c3b3 Line {l1=0x27, l2=» (*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x27}
0xc3b3…c3c3 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0xc3c3…c3c9 Line {l1=0x04, l2=»END;«, l3=0x04}
0xc3c9…c3d1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xc3d1…c3d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xc3d8…c3f2 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0xc3f2…c40a Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0xc40a…c420 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0xc420…c430 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0xc430…c439 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0xc439…c45c Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0xc45c…c468 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0xc468…c4b8 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0xc4b8…c4c8 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0xc4c8…c508 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0xc508…c558 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0xc558…c571 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0xc571…c58b Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0xc58b…c5a9 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0xc5a9…c5ba Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0xc5ba…c5db Line {l1=0x1f, l2=» DESCNAVN:='UDSKDESC:P2:05:J';«, l3=0x1f}
0xc5db…c5e7 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0xc5e7…c5ff Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0xc5ff…c618 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0xc618…c636 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0xc636…c64b Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0xc64b…c673 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0xc673…c695 Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0xc695…c6ca Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0xc6ca…c6d0 Line {l1=0x04, l2=»END.«, l3=0x04}
0xc6d0…c6e0 00 00 41 52 4d 5e 28 49 29 3b 26 20 20 20 43 48 ┆ ARM^(I);& CH┆
0xc6e0…c700 41 49 4e 28 27 48 4f 56 45 44 20 20 20 2a 31 27 2c 46 4e 41 56 4e 2c 51 55 51 29 3b 20 33 20 20 ┆AIN('HOVED *1',FNAVN,QUQ); 3 ┆
0xc700…c720 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 ┆IF IORESULT<>0 THEN WRITELN('IOR┆
0xc720…c740 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 ┆ESULT ',IORESULT)3 END. ┆
0xc740…c760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3f…]
0xcf40…cf60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆