|
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: 50560 (0xc580)
Types: TextFile
Notes: Mikados_K
Names: »LIMUDSKR.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦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
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;
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',' ':2,
'Ø.lev.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',
' ':16,'Ordnr Antal',
' Ø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);
IF CH IN NEJ THEN
WRITELN(LIST,TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ':3,
BETEGN,' ',ORDRE.NR:7,ORDRE.ANTALBES:10:-2,
ORDRE.ØNSKLEV:11,ORDRE.BEKRÆLEV:11)
ELSE
WRITELN(TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ',
BETEGN:15,ORDRE.NR:5,ORDRE.ANTALBES:6:-2,
ORDRE.ØNSKLEV:5,ORDRE.BEKRÆLEV:5);
LINES:=LINES+1;
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*)
BEGIN (*ORDRESTATUS*)
LINES:=51;
WITH PROD DO
BEGIN
ORDRENR:=POST.ORDRENR;
EMNENR:=POST.EMNENR;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;
WHILE (IER=0) AND (ORDRENR=POST.ORDRENR) AND (EMNENR=POST.EMNENR) DO
BEGIN
REGLINIE(ORDRENR,EMNENR,OPERANR);
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:=POST.ORDRENR;
REGLI.EMNENR:=POST.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=POST.ORDRENR) AND
(REGLI.EMNENR=POST.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);
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));
IF OPTION=8 THEN
CH:=QJN('Skærmudskrift')
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));
IF OPTION=7 THEN
CH:=QJN('Skærmudskrift')
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…1bef Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bef…1bf7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1bf7…1c08 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x1c08…1c1d Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1c1d…1c49 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1c49…1c64 Line {l1=0x19, l2=» OPTION,LINES,AKTFORM,«, l3=0x19}
0x1c64…1c82 Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x1c82…1c94 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1c94…1ca9 Line {l1=0x13, l2=» REGLI:REGLPOST;«, l3=0x13}
0x1ca9…1cbd Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x1cbd…1cd2 Line {l1=0x13, l2=» KUNDE:KUNDPOST;«, l3=0x13}
0x1cd2…1ce6 Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x1ce6…1cfc Line {l1=0x14, l2=» RÅVARE:RÅVAPOST;«, l3=0x14}
0x1cfc…1d11 Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x1d11…1d25 Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x1d25…1d3a Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x1d3a…1d51 Line {l1=0x15, l2=» KUNEMNE:KUNEPOST;«, l3=0x15}
0x1d51…1d69 Line {l1=0x16, l2=» KUNORDRE:KUNOPOST;«, l3=0x16}
0x1d69…1d80 Line {l1=0x15, l2=» OMVPROD:OMVPPOST;«, l3=0x15}
0x1d80…1d98 Line {l1=0x16, l2=» EMNIFORM:EMNFPOST;«, l3=0x16}
0x1d98…1dae Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x1dae…1dc4 Line {l1=0x14, l2=» UGEDAG:UGEDPOST;«, l3=0x14}
0x1dc4…1ddb Line {l1=0x15, l2=» ARBEDAG:ARBEPOST;«, l3=0x15}
0x1ddb…1df3 Line {l1=0x16, l2=» ORDTEKST:OTEXPOST;«, l3=0x16}
0x1df3…1e07 Line {l1=0x12, l2=» POST:UDSKPOST;«, l3=0x12}
0x1e07…1e1d Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x1e1d…1e2b Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x1e2b…1e4c Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x1e4c…1e64 Line {l1=0x16, l2=» STREG:STRING(116);«, l3=0x16}
0x1e64…1e6c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1e6c…1e75 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1e75…1e93 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x1e93…1ea6 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1ea6…1ead Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ead…1eb7 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1eb7…1ec5 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x1ec5…1edc Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x1edc…1eea Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1eea…1ef8 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x1ef8…1f13 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x1f13…1f22 Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x1f22…1f2e Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x1f2e…1f34 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1f34…1f3d Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1f3d…1f5d Line {l1=0x1e, l2=»PROCEDURE FORMULAR(I:INTEGER);«, l3=0x1e}
0x1f5d…1f71 Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x1f71…1f78 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f78…1f9d Line {l1=0x23, l2=» IF AKTFORM=I THEN EXIT(FORMULAR);«, l3=0x23}
0x1f9d…1fac Line {l1=0x0d, l2=» AKTFORM:=I;«, l3=0x0d}
0x1fac…1fb9 Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x1fb9…1fc4 Line {l1=0x09, l2=» 1:BEGIN«, l3=0x09}
0x1fc4…1fd4 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x1fd4…2006 Line {l1=0x30, l2=» WRITE('Monter bredt 8.5" papir, RETURN ');«, l3=0x30}
0x2006…2015 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2015…2043 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x2043…2050 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2050…206e Line {l1=0x1c, l2=» WRITELN(LIST,STREG);«, l3=0x1c}
0x206e…209c Line {l1=0x2c, l2=» FOR LINES:=2 TO 50 DO WRITELN(LIST);«, l3=0x2c}
0x209c…20b9 Line {l1=0x1b, l2=» WRITELN(LIST,STREG)«, l3=0x1b}
0x20b9…20c5 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x20c5…20cf Line {l1=0x08, l2=» END;«, l3=0x08}
0x20cf…20da Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x20da…20ea Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x20ea…211c Line {l1=0x30, l2=» WRITE('Monter generel formular, RETURN ');«, l3=0x30}
0x211c…212b Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x212b…2159 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x2159…2166 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2166…2193 Line {l1=0x2b, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x2b}
0x2193…21ba Line {l1=0x25, l2=» WRITELN(LIST,' ':35,STREG:6);«, l3=0x25}
0x21ba…21e7 Line {l1=0x2b, l2=» FOR LINES:=6 TO 72 DO WRITELN(LIST)«, l3=0x2b}
0x21e7…21f3 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x21f3…21fd Line {l1=0x08, l2=» END;«, l3=0x08}
0x21fd…2208 Line {l1=0x09, l2=» 3:BEGIN«, l3=0x09}
0x2208…2218 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x2218…2249 Line {l1=0x2f, l2=» WRITE('Monter blankt A4 papir, RETURN ');«, l3=0x2f}
0x2249…2258 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2258…2286 Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x2286…2293 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2293…22b4 Line {l1=0x1f, l2=» WRITELN(LIST,STREG:82);«, l3=0x1f}
0x22b4…22e2 Line {l1=0x2c, l2=» FOR LINES:=2 TO 71 DO WRITELN(LIST);«, l3=0x2c}
0x22e2…2302 Line {l1=0x1e, l2=» WRITELN(LIST,STREG:82)«, l3=0x1e}
0x2302…230e Line {l1=0x0a, l2=» END «, l3=0x0a}
0x230e…2317 Line {l1=0x07, l2=» END«, l3=0x07}
0x2317…231e Line {l1=0x05, l2=» END«, l3=0x05}
0x231e…2324 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2324…232d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x232d…234b Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x234b…235e Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x235e…236e Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x236e…2375 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2375…2381 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x2381…23cf Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x23cf…241d Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x241d…2432 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x2432…2462 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x2462…2479 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x2479…248d Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x248d…24a4 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x24a4…24b9 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x24b9…24d0 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x24d0…24e8 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x24e8…2500 Line {l1=0x16, l2=» ICLOSE(REGLI.A); «, l3=0x16}
0x2500…2517 Line {l1=0x15, l2=» ICLOSE(KUNEMNE.A); «, l3=0x15}
0x2517…252e Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x252e…2545 Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0x2545…255c Line {l1=0x15, l2=» ICLOSE(EMNIFORM.A);«, l3=0x15}
0x255c…2570 Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x2570…2585 Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0x2585…259b Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0x259b…25b2 Line {l1=0x15, l2=» ICLOSE(ORDTEKST.A);«, l3=0x15}
0x25b2…25c3 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x25c3…25c9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x25c9…25e8 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x25e8…25ef Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x25ef…260c Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x260c…2612 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2612…261a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x261a…2623 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2623…2633 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x2633…263b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x263b…264b Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x264b…2654 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x2654…265c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x265c…2671 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x2671…267f Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x267f…268e Line {l1=0x0d, l2=» RÅVFOUND,«, l3=0x0d}
0x268e…26a5 Line {l1=0x15, l2=» KUNFOUND:BOOLEAN;«, l3=0x15}
0x26a5…26bf Line {l1=0x18, l2=» ANTEX,LINES:INTEGER;«, l3=0x18}
0x26bf…26c2 Line {l1=0x01, l2=» «, l3=0x01}
0x26c2…26ca Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x26ca…26e7 Line {l1=0x1b, l2=»PROCEDURE FORKALKULATION; «, l3=0x1b}
0x26e7…2709 Line {l1=0x20, l2=»VAR TTPSTK,TTOTTID,TKRPSTK:REAL;«, l3=0x20}
0x2709…270c Line {l1=0x01, l2=» «, l3=0x01}
0x270c…2720 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x2720…2727 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2727…2764 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x2764…278b Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x278b…27d3 Line {l1=0x46, l2=» WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,«, l3=0x46}
0x27d3…27fb Line {l1=0x26, l2=» 'emnenr',' ':6,'dato');«, l3=0x26}
0x27fb…2833 Line {l1=0x36, l2=» WRITELN(LIST,'FORKALKULATION',' ':38,ORDRE.KUNDORDR,«, l3=0x36}
0x2833…2860 Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x2860…28a6 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x28a6…28e5 Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x28e5…2908 Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x2908…293d Line {l1=0x33, l2=» WRITE(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6);«, l3=0x33}
0x293d…2968 Line {l1=0x29, l2=» IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN)«, l3=0x29}
0x2968…2990 Line {l1=0x26, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':26);«, l3=0x26}
0x2990…29d2 Line {l1=0x40, l2=» WRITELN(LIST,ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);«, l3=0x40}
0x29d2…29e4 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x29e4…2a2f Line {l1=0x49, l2=» WRITELN(LIST,'op op- betegnelse antal a mas- stk tid total',«, l3=0x49}
0x2a2f…2a52 Line {l1=0x21, l2=» ' time kr');«, l3=0x21}
0x2a52…2a9d Line {l1=0x49, l2=» WRITELN(LIST,'nr art kine /h /stk tid',«, l3=0x49}
0x2a9d…2ac0 Line {l1=0x21, l2=» ' sats /stk');«, l3=0x21}
0x2ac0…2ad2 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2ad2…2ae0 Line {l1=0x0c, l2=» LINES:=10 «, l3=0x0c}
0x2ae0…2ae6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ae6…2af9 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x2af9…2b00 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2b00…2b11 Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x2b11…2b1a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b1a…2b37 Line {l1=0x1b, l2=» WRITELN(LIST,STREG:69);«, l3=0x1b}
0x2b37…2b7e Line {l1=0x45, l2=» WRITELN(LIST,'TOTAL',' ':35,TTPSTK:8:3,TTOTTID:7:2,TKRPSTK:14:3);«, l3=0x45}
0x2b7e…2b92 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x2b92…2bb1 Line {l1=0x1d, l2=» IF LINES>34 THEN HEADING;«, l3=0x1d}
0x2bb1…2bec Line {l1=0x39, l2=» WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3);«, l3=0x39}
0x2bec…2c28 Line {l1=0x3a, l2=» WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3);«, l3=0x3a}
0x2c28…2c4c Line {l1=0x22, l2=» WRITELN(LIST,' ':45,STREG:16);«, l3=0x22}
0x2c4c…2c92 Line {l1=0x44, l2=» WRITELN(LIST,'MAT.-OMKOSTNINGER ',' ':27,MATOMK:8:3,MATOMK:8:3);«, l3=0x44}
0x2c92…2ccd Line {l1=0x39, l2=» WRITELN(LIST,'LØNOMKOSTNINGER ',' ':35,LØNOMK:8:3);«, l3=0x39}
0x2ccd…2d0a Line {l1=0x3b, l2=» WRITELN(LIST,'MASKINOMKOSTNINGER',' ':35,MASKINOM:8:3);«, l3=0x3b}
0x2d0a…2d2e Line {l1=0x22, l2=» WRITELN(LIST,' ':53,STREG:16);«, l3=0x22}
0x2d2e…2d64 Line {l1=0x34, l2=» WRITELN(LIST,'EMNEPRIS ',' ':35,MATOMK+«, l3=0x34}
0x2d64…2da7 Line {l1=0x41, l2=» LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3);«, l3=0x41}
0x2da7…2dde Line {l1=0x35, l2=» WRITELN(LIST,'DÆKNINGSBIDRAG ',' ':35,-MATOMK+«, l3=0x35}
0x2dde…2e15 Line {l1=0x35, l2=» SALGSPRI-LØNOMK-MASKINOM:16:3);«, l3=0x35}
0x2e15…2e38 Line {l1=0x21, l2=» WRITELN(LIST,' ':61,STREG:8);«, l3=0x21}
0x2e38…2e76 Line {l1=0x3c, l2=» WRITELN(LIST,'SALGSPRIS ',' ':35,SALGSPRI:16:3);«, l3=0x3c}
0x2e76…2e9c Line {l1=0x24, l2=» WRITELN(LIST,' ':61,'========') «, l3=0x24}
0x2e9c…2ea4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2ea4…2eb8 Line {l1=0x12, l2=» LINES:=LINES+15;«, l3=0x12}
0x2eb8…2ef5 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x2ef5…2efb Line {l1=0x04, l2=»END;«, l3=0x04}
0x2efb…2f03 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2f03…2f1d Line {l1=0x18, l2=»BEGIN (*FORKALKULATION*)«, l3=0x18}
0x2f1d…2f2a Line {l1=0x0b, l2=» LINES:=51;«, l3=0x0b}
0x2f2a…2f39 Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x2f39…2f41 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x2f41…2f44 Line {l1=0x01, l2=» «, l3=0x01}
0x2f44…2f54 Line {l1=0x0e, l2=» TTPSTK:=0.0;«, l3=0x0e}
0x2f54…2f65 Line {l1=0x0f, l2=» TTOTTID:=0.0;«, l3=0x0f}
0x2f65…2f76 Line {l1=0x0f, l2=» TKRPSTK:=0.0;«, l3=0x0f}
0x2f76…2f79 Line {l1=0x01, l2=» «, l3=0x01}
0x2f79…2f8f Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x2f8f…2fa8 Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x2fa8…2fb8 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x2fb8…2fc7 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x2fc7…2fff Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x2fff…300a Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x300a…304f Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x304f…3058 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3058…3077 Line {l1=0x1d, l2=» IF LINES>48 THEN HEADING;«, l3=0x1d}
0x3077…308c Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x308c…30b7 Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x30b7…30ca Line {l1=0x11, l2=» WITH OPERA DO«, l3=0x11}
0x30ca…30d5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x30d5…30e9 Line {l1=0x12, l2=» NR:=OPERANR;«, l3=0x12}
0x30e9…3122 Line {l1=0x37, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x37}
0x3122…314d Line {l1=0x29, l2=» IF IER=0 THEN WRITE(LIST,BETEGN:17)«, l3=0x29}
0x314d…3179 Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':17) «, l3=0x2a}
0x3179…3183 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3183…31a9 Line {l1=0x24, l2=» WRITE(LIST,ORDRE.ANTALBES:6:-2);«, l3=0x24}
0x31a9…31be Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x31be…31d0 Line {l1=0x10, l2=» WITH RESS DO«, l3=0x10}
0x31d0…31db Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x31db…31ed Line {l1=0x10, l2=» NR:=RESS1;«, l3=0x10}
0x31ed…3226 Line {l1=0x37, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x37}
0x3226…323b Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x323b…325f Line {l1=0x22, l2=» WRITE(LIST,AFDELNR:2,NR:5)«, l3=0x22}
0x325f…3284 Line {l1=0x23, l2=» ELSE WRITE(LIST,'UO',RESS1:5)«, l3=0x23}
0x3284…328d Line {l1=0x07, l2=» END«, l3=0x07}
0x328d…3297 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3297…32be Line {l1=0x25, l2=» IF RESS1=0 THEN WRITE(LIST,' ':7)«, l3=0x25}
0x32be…32e4 Line {l1=0x24, l2=» ELSE WRITE(LIST,' *',-RESS1:4);«, l3=0x24}
0x32e4…32f9 Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x32f9…3304 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3304…3328 Line {l1=0x22, l2=» TTOTTID:=TTOTTID-STKH/100.0;«, l3=0x22}
0x3328…334c Line {l1=0x22, l2=» WRITE(LIST,-STKH/100.0:18:2)«, l3=0x22}
0x334c…3355 Line {l1=0x07, l2=» END«, l3=0x07}
0x3355…335f Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x335f…336a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x336a…3388 Line {l1=0x1c, l2=» TTPSTK:=TTPSTK+1/STKH;«, l3=0x1c}
0x3388…33b5 Line {l1=0x2b, l2=» TTOTTID:=TTOTTID+ORDRE.ANTALBES/STKH;«, l3=0x2b}
0x33b5…33f3 Line {l1=0x3c, l2=» WRITE(LIST,STKH:5,1/STKH:6:3,ORDRE.ANTALBES/STKH:7:2) «, l3=0x3c}
0x33f3…33fd Line {l1=0x08, l2=» END;«, l3=0x08}
0x33fd…3419 Line {l1=0x1a, l2=» WRITE(LIST,KRSTK:8:2);«, l3=0x1a}
0x3419…342e Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x342e…3439 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3439…3472 Line {l1=0x37, l2=» TKRPSTK:=TKRPSTK-STKH*KRSTK/ORDRE.ANTALBES/100.0;«, l3=0x37}
0x3472…34ac Line {l1=0x38, l2=» WRITELN(LIST,-STKH*KRSTK/ORDRE.ANTALBES/100.0:6:3)«, l3=0x38}
0x34ac…34b5 Line {l1=0x07, l2=» END«, l3=0x07}
0x34b5…34bf Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x34bf…34ca Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x34ca…34ee Line {l1=0x22, l2=» TKRPSTK:=TKRPSTK+KRSTK/STKH;«, l3=0x22}
0x34ee…3513 Line {l1=0x23, l2=» WRITELN(LIST,KRSTK/STKH:6:3) «, l3=0x23}
0x3513…351d Line {l1=0x08, l2=» END;«, l3=0x08}
0x351d…352d Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x352d…3535 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3535…3551 Line {l1=0x1a, l2=» IF LINES<51 THEN BOTTOM;«, l3=0x1a}
0x3551…357e Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2b}
0x357e…3584 Line {l1=0x04, l2=» END«, l3=0x04}
0x3584…358a Line {l1=0x04, l2=»END;«, l3=0x04}
0x358a…3592 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3592…35a7 Line {l1=0x13, l2=»PROCEDURE RUTEKORT;«, l3=0x13}
0x35a7…35ae Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x35ae…35bb Line {l1=0x0b, l2=» LINES:=72;«, l3=0x0b}
0x35bb…35ca Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x35ca…35d2 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x35d2…35d5 Line {l1=0x01, l2=» «, l3=0x01}
0x35d5…35ef Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x35ef…3632 Line {l1=0x41, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x41}
0x3632…3648 Line {l1=0x14, l2=» RÅVFOUND:=(IER=0);«, l3=0x14}
0x3648…364b Line {l1=0x01, l2=» «, l3=0x01}
0x364b…3661 Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x3661…367a Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x367a…368a Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x368a…3699 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x3699…36d1 Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x36d1…36dc Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x36dc…3721 Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x3721…372a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x372a…3740 Line {l1=0x14, l2=» IF LINES>68 THEN«, l3=0x14}
0x3740…374b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x374b…378c Line {l1=0x3f, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3f}
0x378c…37b7 Line {l1=0x29, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x29}
0x37b7…37cb Line {l1=0x12, l2=» WITH EMNE DO«, l3=0x12}
0x37cb…37d8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37d8…3801 Line {l1=0x27, l2=» WRITELN(LIST,' ':12,'RUTEKORT',«, l3=0x27}
0x3801…384f Line {l1=0x4c, l2=» KUNDENR(1)*10000.0+KUNDENR(2):20:-2,' ',ORDRE.KUNDORDR,«, l3=0x4c}
0x384f…3878 Line {l1=0x27, l2=» NR:5,ORDRE.NR:10);«, l3=0x27}
0x3878…38a5 Line {l1=0x2b, l2=» FOR LINES:=6 TO 8 DO WRITELN(LIST);«, l3=0x2b}
0x38a5…38d1 Line {l1=0x2a, l2=» WRITE(LIST,TEGNNR,' ',BETEGN,' ');«, l3=0x2a}
0x38d1…3904 Line {l1=0x31, l2=» IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)«, l3=0x31}
0x3904…3933 Line {l1=0x2d, l2=» ELSE WRITELN(LIST,'IKKE OPRETTET');«, l3=0x2d}
0x3933…3962 Line {l1=0x2d, l2=» FOR LINES:=10 TO 12 DO WRITELN(LIST);«, l3=0x2d}
0x3962…3996 Line {l1=0x32, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x32}
0x3996…39c6 Line {l1=0x2e, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x2e}
0x39c6…39f7 Line {l1=0x2f, l2=» WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,«, l3=0x2f}
0x39f7…3a46 Line {l1=0x4d, l2=» ORDRE.ANTALBES*NETTOVÆG/1000.0:8:2,ORDRE.ANTALBES:12:-2,«, l3=0x4d}
0x3a46…3a7e Line {l1=0x36, l2=» ORDRE.ØNSKLEV:6,ORDRE.BEKRÆLEV:6,«, l3=0x36}
0x3a7e…3ac8 Line {l1=0x48, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2,«, l3=0x48}
0x3ac8…3af0 Line {l1=0x26, l2=» ORDRE.INITIALE:5)«, l3=0x26}
0x3af0…3afc Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3afc…3b12 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x3b12…3b50 Line {l1=0x3c, l2=» WRITELN(LIST,' ':48,' arbnr dato antal');«, l3=0x3c}
0x3b50…3b62 Line {l1=0x10, l2=» LINES:=15 «, l3=0x10}
0x3b62…3b6c Line {l1=0x08, l2=» END;«, l3=0x08}
0x3b6c…3b81 Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x3b81…3b95 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3b95…3bc0 Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x3bc0…3bd8 Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x3bd8…3c1b Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x3c1b…3c4a Line {l1=0x2d, l2=» IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)«, l3=0x2d}
0x3c4a…3c7c Line {l1=0x30, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x30}
0x3c7c…3c91 Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x3c91…3c9c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3c9c…3cb3 Line {l1=0x15, l2=» RESS.NR:=RESS1;«, l3=0x15}
0x3cb3…3cf6 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x3cf6…3d0b Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x3d0b…3d4b Line {l1=0x3e, l2=» WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)«, l3=0x3e}
0x3d4b…3d79 Line {l1=0x2c, l2=» ELSE WRITE(LIST,RESS1:7,' UOPRETTET') «, l3=0x2c}
0x3d79…3d82 Line {l1=0x07, l2=» END«, l3=0x07}
0x3d82…3d8c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3d8c…3db4 Line {l1=0x26, l2=» IF RESS1=0 THEN WRITE(LIST,' ':17)«, l3=0x26}
0x3db4…3de1 Line {l1=0x2b, l2=» ELSE WRITE(LIST,' *',-RESS1:4,' ':10);«, l3=0x2b}
0x3de1…3df5 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x3df5…3e05 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x3e05…3e0d Line {l1=0x06, l2=» END;«, l3=0x06}
0x3e0d…3e4a Line {l1=0x3b, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x3e4a…3e77 Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A) «, l3=0x2b}
0x3e77…3e7d Line {l1=0x04, l2=» END«, l3=0x04}
0x3e7d…3e83 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3e83…3e8b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3e8b…3ea8 Line {l1=0x1b, l2=»PROCEDURE PRODUKTIONSORDRE;«, l3=0x1b}
0x3ea8…3ebc Line {l1=0x12, l2=»VAR HYLDE:INTEGER;«, l3=0x12}
0x3ebc…3ebf Line {l1=0x01, l2=» «, l3=0x01}
0x3ebf…3ed3 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x3ed3…3eda Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3eda…3f17 Line {l1=0x3b, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x3f17…3f3e Line {l1=0x25, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x25}
0x3f3e…3f4e Line {l1=0x0e, l2=» WITH EMNE DO«, l3=0x0e}
0x3f4e…3f57 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3f57…3f84 Line {l1=0x2b, l2=» WRITELN(LIST,' ':12,'PRODUKTIONSORDRE',«, l3=0x2b}
0x3f84…3fce Line {l1=0x48, l2=» KUNDENR(1)*10000.0+KUNDENR(2):12:-2,' ',ORDRE.KUNDORDR,«, l3=0x48}
0x3fce…3ff3 Line {l1=0x23, l2=» NR:5,ORDRE.NR:10);«, l3=0x23}
0x3ff3…401c Line {l1=0x27, l2=» FOR LINES:=6 TO 8 DO WRITELN(LIST);«, l3=0x27}
0x401c…4044 Line {l1=0x26, l2=» WRITE(LIST,TEGNNR,' ',BETEGN,' ');«, l3=0x26}
0x4044…4073 Line {l1=0x2d, l2=» IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)«, l3=0x2d}
0x4073…409e Line {l1=0x29, l2=» ELSE WRITELN(LIST,'IKKE OPRETTET');«, l3=0x29}
0x409e…40c9 Line {l1=0x29, l2=» FOR LINES:=10 TO 12 DO WRITELN(LIST);«, l3=0x29}
0x40c9…40f9 Line {l1=0x2e, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x2e}
0x40f9…4125 Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x2a}
0x4125…4152 Line {l1=0x2b, l2=» WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,«, l3=0x2b}
0x4152…419d Line {l1=0x49, l2=» ORDRE.ANTALBES*NETTOVÆG/1000.0:8:2,ORDRE.ANTALBES:12:-2,«, l3=0x49}
0x419d…41d1 Line {l1=0x32, l2=» ORDRE.ØNSKLEV:6,ORDRE.BEKRÆLEV:6,«, l3=0x32}
0x41d1…4217 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2,«, l3=0x44}
0x4217…423b Line {l1=0x22, l2=» ORDRE.INITIALE:5)«, l3=0x22}
0x423b…4243 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4243…4255 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x4255…428e Line {l1=0x37, l2=» WRITELN(LIST,' ':48,'start varigh værkt hjvt hyld');«, l3=0x37}
0x428e…429c Line {l1=0x0c, l2=» LINES:=15 «, l3=0x0c}
0x429c…42a2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x42a2…42a5 Line {l1=0x01, l2=» «, l3=0x01}
0x42a5…42ac Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x42ac…42b9 Line {l1=0x0b, l2=» LINES:=72;«, l3=0x0b}
0x42b9…42c8 Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x42c8…42d0 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x42d0…42d3 Line {l1=0x01, l2=» «, l3=0x01}
0x42d3…42ed Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x42ed…4330 Line {l1=0x41, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x41}
0x4330…4346 Line {l1=0x14, l2=» RÅVFOUND:=(IER=0);«, l3=0x14}
0x4346…4349 Line {l1=0x01, l2=» «, l3=0x01}
0x4349…435f Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x435f…4378 Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x4378…4388 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x4388…4397 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x4397…43cf Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x43cf…43da Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x43da…441f Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x441f…4428 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4428…4447 Line {l1=0x1d, l2=» IF LINES>68 THEN HEADING;«, l3=0x1d}
0x4447…445c Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x445c…4470 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x4470…449b Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x449b…44b3 Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x44b3…44f6 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x44f6…4525 Line {l1=0x2d, l2=» IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)«, l3=0x2d}
0x4525…4557 Line {l1=0x30, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x30}
0x4557…456c Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x456c…4577 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4577…458e Line {l1=0x15, l2=» RESS.NR:=RESS1;«, l3=0x15}
0x458e…45d1 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x45d1…45e6 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x45e6…4626 Line {l1=0x3e, l2=» WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)«, l3=0x3e}
0x4626…4654 Line {l1=0x2c, l2=» ELSE WRITE(LIST,RESS1:7,' UOPRETTET') «, l3=0x2c}
0x4654…465d Line {l1=0x07, l2=» END«, l3=0x07}
0x465d…4667 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4667…468f Line {l1=0x26, l2=» IF RESS1=0 THEN WRITE(LIST,' ':17)«, l3=0x26}
0x468f…46bc Line {l1=0x2b, l2=» ELSE WRITE(LIST,' *',-RESS1:4,' ':10);«, l3=0x2b}
0x46bc…46d4 Line {l1=0x16, l2=» IF STARTTID>0 THEN«, l3=0x16}
0x46d4…46df Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x46df…4705 Line {l1=0x24, l2=» ARBEDAG.NR:=STARTTID MOD 1000;«, l3=0x24}
0x4705…4731 Line {l1=0x2a, l2=» GETREC(ARBEDAG.A);CHECK0(ARBEDAG.A);«, l3=0x2a}
0x4731…4755 Line {l1=0x22, l2=» UGEDAG.UGENR:=ARBEDAG.UGENR;«, l3=0x22}
0x4755…477f Line {l1=0x28, l2=» GETREC(UGEDAG.A);CHECK0(UGEDAG.A);«, l3=0x28}
0x477f…47ad Line {l1=0x2c, l2=» WRITE(LIST,UGEDAG.UGENR MOD 100:3,'/',«, l3=0x2c}
0x47ad…47dd Line {l1=0x2e, l2=» ARBEDAG.NR-UGEDAG.ARBDAGNR+1)«, l3=0x2e}
0x47dd…47e6 Line {l1=0x07, l2=» END«, l3=0x07}
0x47e6…47f0 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x47f0…480d Line {l1=0x1b, l2=» WRITE(LIST,STARTTID:5);«, l3=0x1b}
0x480d…482f Line {l1=0x20, l2=» WRITE(LIST,VARIGHED:7,' ');«, l3=0x20}
0x482f…483e Line {l1=0x0d, l2=» HYLDE:=0;«, l3=0x0d}
0x483e…4853 Line {l1=0x13, l2=» IF RESS3>0 THEN«, l3=0x13}
0x4853…485e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x485e…487a Line {l1=0x1a, l2=» WRITE(LIST,RESS3:5);«, l3=0x1a}
0x487a…4891 Line {l1=0x15, l2=» RESS.NR:=RESS3;«, l3=0x15}
0x4891…48d4 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x48d4…48fd Line {l1=0x27, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x27}
0x48fd…4906 Line {l1=0x07, l2=» END«, l3=0x07}
0x4906…4910 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4910…4937 Line {l1=0x25, l2=» IF RESS3=0 THEN WRITE(LIST,' ':5)«, l3=0x25}
0x4937…495b Line {l1=0x22, l2=» ELSE WRITE(LIST,'*',-RESS3:4);«, l3=0x22}
0x495b…4970 Line {l1=0x13, l2=» IF RESS4>0 THEN«, l3=0x13}
0x4970…497b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x497b…4997 Line {l1=0x1a, l2=» WRITE(LIST,RESS4:5);«, l3=0x1a}
0x4997…49ae Line {l1=0x15, l2=» IF HYLDE=0 THEN«, l3=0x15}
0x49ae…49bb Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x49bb…49d4 Line {l1=0x17, l2=» RESS.NR:=RESS4;«, l3=0x17}
0x49d4…4a19 Line {l1=0x43, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x43}
0x4a19…4a44 Line {l1=0x29, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x29}
0x4a44…4a4f Line {l1=0x09, l2=» END«, l3=0x09}
0x4a4f…4a58 Line {l1=0x07, l2=» END«, l3=0x07}
0x4a58…4a62 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4a62…4a89 Line {l1=0x25, l2=» IF RESS4=0 THEN WRITE(LIST,' ':5)«, l3=0x25}
0x4a89…4aad Line {l1=0x22, l2=» ELSE WRITE(LIST,'*',-RESS4:4);«, l3=0x22}
0x4aad…4ad8 Line {l1=0x29, l2=» IF HYLDE>0 THEN WRITELN(LIST,HYLDE:5)«, l3=0x29}
0x4ad8…4ae2 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4ae2…4af6 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x4af6…4b06 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x4b06…4b0e Line {l1=0x06, l2=» END;«, l3=0x06}
0x4b0e…4b3b Line {l1=0x2b, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2b}
0x4b3b…4b55 Line {l1=0x18, l2=» ORDTEKST.NR:=ORDRE.NR;«, l3=0x18}
0x4b55…4b77 Line {l1=0x20, l2=» ORDTEKST.EMNENR:=ORDRE.EMNENR;«, l3=0x20}
0x4b77…4b8c Line {l1=0x13, l2=» ORDTEKST.LBNR:=0;«, l3=0x13}
0x4b8c…4bd6 Line {l1=0x48, l2=» NEXTREC(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x48}
0x4bd6…4be1 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x4be1…4c30 Line {l1=0x4d, l2=» WHILE (IER=0) AND (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR)«, l3=0x4d}
0x4c30…4c36 Line {l1=0x04, l2=» DO«, l3=0x04}
0x4c36…4c3f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4c3f…4c5e Line {l1=0x1d, l2=» IF LINES>68 THEN HEADING;«, l3=0x1d}
0x4c5e…4c72 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x4c72…4c9b Line {l1=0x27, l2=» WRITELN(LIST,' ':7,ORDTEKST.TEKST);«, l3=0x27}
0x4c9b…4cb0 Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x4cb0…4cc9 Line {l1=0x17, l2=» NEXTREC(ORDTEKST.A)«, l3=0x17}
0x4cc9…4cd1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4cd1…4d07 Line {l1=0x34, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x34}
0x4d07…4d43 Line {l1=0x3a, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END«, l3=0x3a}
0x4d43…4d49 Line {l1=0x04, l2=» END«, l3=0x04}
0x4d49…4d4f Line {l1=0x04, l2=»END;«, l3=0x04}
0x4d4f…4d57 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4d57…4d6c Line {l1=0x13, l2=»PROCEDURE EMNELIST;«, l3=0x13}
0x4d6c…4d6f Line {l1=0x01, l2=» «, l3=0x01}
0x4d6f…4d83 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x4d83…4d8a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4d8a…4dc7 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x4dc7…4dee Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x4dee…4e1d Line {l1=0x2d, l2=» WRITELN(LIST,'Emnespecifikaton pr. kunde');«, l3=0x2d}
0x4e1d…4e39 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:109);«, l3=0x1a}
0x4e39…4e81 Line {l1=0x46, l2=» WRITELN(LIST,'Kundenr:',KUNDE.NR(1)*10000.0+KUNDE.NR(2):7:-2,' ':12,«, l3=0x46}
0x4e81…4eb5 Line {l1=0x32, l2=» 'Navn: ',KUNDE.NAVN,' ':35,'Dato:',«, l3=0x32}
0x4eb5…4efb Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x4efb…4f17 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:109);«, l3=0x1a}
0x4f17…4f5c Line {l1=0x43, l2=» WRITELN(LIST,' nr Tegn. nr',' ':13,'Betegnelse',' ':21,'Matr.',«, l3=0x43}
0x4f5c…4f9c Line {l1=0x3e, l2=» ' ':17,'vægt',' ':2,'tid SA/BA Værk Maskine');«, l3=0x3e}
0x4f9c…4fb8 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:109);«, l3=0x1a}
0x4fb8…4fc4 Line {l1=0x0a, l2=» LINES:=8«, l3=0x0a}
0x4fc4…4fca Line {l1=0x04, l2=»END;«, l3=0x04}
0x4fca…4fd2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4fd2…4fd9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4fd9…4fe7 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x4fe7…4ffa Line {l1=0x11, l2=» WITH KUNEMNE DO«, l3=0x11}
0x4ffa…5003 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5003…501b Line {l1=0x16, l2=» KUNDENR:=KUNDE.NR;«, l3=0x16}
0x501b…502b Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x502b…5065 Line {l1=0x38, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x38}
0x5065…5072 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x5072…509f Line {l1=0x2b, l2=» WHILE (IER=0) AND (KUNDENR=KUNDE.NR) DO«, l3=0x2b}
0x509f…50b1 Line {l1=0x10, l2=» WITH EMNE DO«, l3=0x10}
0x50b1…50bc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x50bc…50dd Line {l1=0x1f, l2=» IF LINES>48 THEN HEADING;«, l3=0x1f}
0x50dd…50f0 Line {l1=0x11, l2=» NR:=EMNENR;«, l3=0x11}
0x50f0…510c Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x510c…512a Line {l1=0x1c, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x1c}
0x512a…5171 Line {l1=0x45, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x45}
0x5171…518b Line {l1=0x18, l2=» RÅVFOUND:=(IER=0);«, l3=0x18}
0x518b…51be Line {l1=0x31, l2=» WRITE(LIST,NR:5,' ',TEGNNR,' ',BETEGN,' ');«, l3=0x31}
0x51be…51f0 Line {l1=0x30, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x30}
0x51f0…521c Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':16);«, l3=0x2a}
0x521c…5269 Line {l1=0x4b, l2=» WRITELN(LIST,NETTOVÆG:10:2,STKHSA:6,'/',STKHBA:5,FORMNR:5,MASKINE:8);«, l3=0x4b}
0x5269…5280 Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x5280…529a Line {l1=0x18, l2=» NEXTREC(KUNEMNE.A)«, l3=0x18}
0x529a…52a4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x52a4…52d3 Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x52d3…5312 Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3d}
0x5312…5319 Line {l1=0x05, l2=» END«, l3=0x05}
0x5319…531f Line {l1=0x04, l2=»END;«, l3=0x04}
0x531f…5327 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5327…533c Line {l1=0x13, l2=»PROCEDURE FORMLIST;«, l3=0x13}
0x533c…535b Line {l1=0x1d, l2=» «, l3=0x1d}
0x535b…536f Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x536f…5376 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5376…53b3 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x53b3…53da Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x53da…53f2 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x53f2…542b Line {l1=0x37, l2=» WRITELN(LIST,'Formregistreringsliste',' ':79,'Dato:',«, l3=0x37}
0x542b…5471 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x5471…5489 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5489…54ce Line {l1=0x43, l2=» WRITELN(LIST,'Form. Kunde',' ':22,'Emnenr Emne',' ':27,'Tegn.nr',«, l3=0x43}
0x54ce…5502 Line {l1=0x32, l2=» ' ':14,'Bemærkning',' ':10,'Mask');«, l3=0x32}
0x5502…551a Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x551a…5526 Line {l1=0x0a, l2=» LINES:=7«, l3=0x0a}
0x5526…552c Line {l1=0x04, l2=»END;«, l3=0x04}
0x552c…5534 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5534…553b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x553b…5549 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x5549…555d Line {l1=0x12, l2=» WITH EMNIFORM DO«, l3=0x12}
0x555d…5566 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5566…5576 Line {l1=0x0e, l2=» FORMNR:=0;«, l3=0x0e}
0x5576…5586 Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x5586…55c0 Line {l1=0x38, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x38}
0x55c0…55cd Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x55cd…55f9 Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x55f9…560b Line {l1=0x10, l2=» WITH EMNE DO«, l3=0x10}
0x560b…5616 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5616…5637 Line {l1=0x1f, l2=» IF LINES>48 THEN HEADING;«, l3=0x1f}
0x5637…564a Line {l1=0x11, l2=» NR:=EMNENR;«, l3=0x11}
0x564a…5666 Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x5666…5685 Line {l1=0x1d, l2=» KUNDE.NR:=EMNE.KUNDENR;«, l3=0x1d}
0x5685…56ad Line {l1=0x26, l2=» GETREC(KUNDE.A);CHECK0(KUNDE.A);«, l3=0x26}
0x56ad…56df Line {l1=0x30, l2=» WRITELN(LIST,FORMNR:5,' ',KUNDE.NAVN,NR:7,«, l3=0x30}
0x56df…570e Line {l1=0x2d, l2=» ' ',BETEGN,' ',TEGNNR,' ',«, l3=0x2d}
0x570e…5738 Line {l1=0x28, l2=» BEMÆRK:19,MASKINE:5);«, l3=0x28}
0x5738…574f Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x574f…576a Line {l1=0x19, l2=» NEXTREC(EMNIFORM.A)«, l3=0x19}
0x576a…5774 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5774…57a3 Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x57a3…57e2 Line {l1=0x3d, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3d}
0x57e2…57e9 Line {l1=0x05, l2=» END«, l3=0x05}
0x57e9…57ef Line {l1=0x04, l2=»END;«, l3=0x04}
0x57ef…57f7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x57f7…580c Line {l1=0x13, l2=»PROCEDURE ORDRLIST;«, l3=0x13}
0x580c…580f Line {l1=0x01, l2=» «, l3=0x01}
0x580f…5823 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x5823…582a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x582a…5867 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x5867…588e Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x588e…58a6 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x58a6…58d6 Line {l1=0x2e, l2=» WRITELN(LIST,'Ordreoversigt',' ':88,'Dato:',«, l3=0x2e}
0x58d6…591c Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x591c…5934 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5934…5979 Line {l1=0x43, l2=» WRITELN(LIST,'Ordre Kunde',' ':19,'Emnenr Emne',' ':24,'Tegn.nr',«, l3=0x43}
0x5979…59b8 Line {l1=0x3d, l2=» ' ':16,'Antal',' ':2,'Init Dato Mask Øuge');«, l3=0x3d}
0x59b8…59d0 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x59d0…59dc Line {l1=0x0a, l2=» LINES:=7«, l3=0x0a}
0x59dc…59e2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x59e2…59ea Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x59ea…59f1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x59f1…5a07 Line {l1=0x14, l2=» WITH ORDRE,EMNE DO«, l3=0x14}
0x5a07…5a10 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5a10…5a31 Line {l1=0x1f, l2=» IF LINES>48 THEN HEADING;«, l3=0x1f}
0x5a31…5a54 Line {l1=0x21, l2=» WRITE(LIST,ORDRE.NR:5,' ');«, l3=0x21}
0x5a54…5a87 Line {l1=0x31, l2=» IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN:23) «, l3=0x31}
0x5a87…5aba Line {l1=0x31, l2=» ELSE WRITE(LIST,'KUNDEN ER IKKE OPRETTET');«, l3=0x31}
0x5aba…5ad4 Line {l1=0x18, l2=» WRITELN(LIST,NR:7,«, l3=0x18}
0x5ad4…5b02 Line {l1=0x2c, l2=» ' ',BETEGN:27,' ',TEGNNR,«, l3=0x2c}
0x5b02…5b3f Line {l1=0x3b, l2=» ORDRE.ANTALBES:8:-2,' ',ORDRE.INITIALE,«, l3=0x3b}
0x5b3f…5b83 Line {l1=0x42, l2=» ORDRE.REGDATO(1)*10000.0+ORDRE.REGDATO(2):7:-2,«, l3=0x42}
0x5b83…5bb3 Line {l1=0x2e, l2=» MASKINE:5,ORDRE.ØNSKLEV:5);«, l3=0x2e}
0x5bb3…5bc9 Line {l1=0x14, l2=» LINES:=LINES+1«, l3=0x14}
0x5bc9…5bd0 Line {l1=0x05, l2=» END«, l3=0x05}
0x5bd0…5bd6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5bd6…5bde Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5bde…5bf3 Line {l1=0x13, l2=»PROCEDURE KUNOLIST;«, l3=0x13}
0x5bf3…5bf6 Line {l1=0x01, l2=» «, l3=0x01}
0x5bf6…5c0a Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x5c0a…5c11 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5c11…5c25 Line {l1=0x12, l2=» IF CH IN NEJ THEN«, l3=0x12}
0x5c25…5c2d Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x5c2d…5c6a Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x5c6a…5c91 Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x5c91…5cb8 Line {l1=0x25, l2=» WRITELN(LIST,'Kundeordreoversigt');«, l3=0x25}
0x5cb8…5cd0 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5cd0…5d17 Line {l1=0x45, l2=» WRITELN(LIST,'Kundenr:',KUNDE.NR(1)*10000.0+KUNDE.NR(2):7:-2,' ':6,«, l3=0x45}
0x5d17…5d4b Line {l1=0x32, l2=» 'Navn: ',KUNDE.NAVN,' ':48,'Dato:',«, l3=0x32}
0x5d4b…5d91 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x5d91…5da9 Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5da9…5dec Line {l1=0x41, l2=» WRITELN(LIST,'Tegn. nr',' ':13,' Kundens ordrenr Emnenr Emne',«, l3=0x41}
0x5dec…5e1e Line {l1=0x30, l2=» ' ':27,'Ordrenr Antal',' ':2,«, l3=0x30}
0x5e1e…5e47 Line {l1=0x27, l2=» 'Ø.lev.uge B.lev.uge');«, l3=0x27}
0x5e47…5e5f Line {l1=0x16, l2=» WRITELN(LIST,STREG);«, l3=0x16}
0x5e5f…5e6b Line {l1=0x0a, l2=» LINES:=8«, l3=0x0a}
0x5e6b…5e71 Line {l1=0x04, l2=» END«, l3=0x04}
0x5e71…5e78 Line {l1=0x05, l2=» ELSE«, l3=0x05}
0x5e78…5e80 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x5e80…5e94 Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x5e94…5e9d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5e9d…5eb0 Line {l1=0x11, l2=» GOTOXY(1,24);«, l3=0x11}
0x5eb0…5ec7 Line {l1=0x15, l2=» WRITE('RETURN ');«, l3=0x15}
0x5ec7…5ed3 Line {l1=0x0a, l2=» READLN«, l3=0x0a}
0x5ed3…5edb Line {l1=0x06, l2=» END;«, l3=0x06}
0x5edb…5eeb Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x5eeb…5f21 Line {l1=0x34, l2=» WRITELN('Tegn. nr',' ':13,'Kundens ordrenr Emne',«, l3=0x34}
0x5f21…5f42 Line {l1=0x1f, l2=» ' ':16,'Ordnr Antal',«, l3=0x1f}
0x5f42…5f5c Line {l1=0x18, l2=» ' Øuge Buge');«, l3=0x18}
0x5f5c…5f68 Line {l1=0x0a, l2=» LINES:=1«, l3=0x0a}
0x5f68…5f6e Line {l1=0x04, l2=» END«, l3=0x04}
0x5f6e…5f74 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5f74…5f7c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5f7c…5f83 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5f83…5f91 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x5f91…5fa5 Line {l1=0x12, l2=» WITH KUNORDRE DO«, l3=0x12}
0x5fa5…5fae Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5fae…5fc6 Line {l1=0x16, l2=» KUNDENR:=KUNDE.NR;«, l3=0x16}
0x5fc6…5fd7 Line {l1=0x0f, l2=» ORDRENR:=0;«, l3=0x0f}
0x5fd7…5fe7 Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x5fe7…6021 Line {l1=0x38, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x38}
0x6021…602e Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x602e…605b Line {l1=0x2b, l2=» WHILE (IER=0) AND (KUNDENR=KUNDE.NR) DO«, l3=0x2b}
0x605b…606d Line {l1=0x10, l2=» WITH EMNE DO«, l3=0x10}
0x606d…6078 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x6078…60ba Line {l1=0x40, l2=» IF (LINES>48) OR ((CH IN JA) AND (LINES>22)) THEN HEADING;«, l3=0x40}
0x60ba…60cd Line {l1=0x11, l2=» NR:=EMNENR;«, l3=0x11}
0x60cd…60e9 Line {l1=0x1a, l2=» GETREC(A);CHECK0(A);«, l3=0x1a}
0x60e9…6103 Line {l1=0x18, l2=» ORDRE.NR:=ORDRENR;«, l3=0x18}
0x6103…611c Line {l1=0x17, l2=» ORDRE.EMNENR:=NR;«, l3=0x17}
0x611c…6144 Line {l1=0x26, l2=» GETREC(ORDRE.A);CHECK0(ORDRE.A);«, l3=0x26}
0x6144…615d Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x615d…619a Line {l1=0x3b, l2=» WRITELN(LIST,TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ':3,«, l3=0x3b}
0x619a…61dc Line {l1=0x40, l2=» BETEGN,' ',ORDRE.NR:7,ORDRE.ANTALBES:10:-2,«, l3=0x40}
0x61dc…6216 Line {l1=0x38, l2=» ORDRE.ØNSKLEV:11,ORDRE.BEKRÆLEV:11)«, l3=0x38}
0x6216…6222 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x6222…6257 Line {l1=0x33, l2=» WRITELN(TEGNNR,' ',ORDRE.KUNDORDR,NR:5,' ',«, l3=0x33}
0x6257…6297 Line {l1=0x3e, l2=» BETEGN:15,ORDRE.NR:5,ORDRE.ANTALBES:6:-2,«, l3=0x3e}
0x6297…62d0 Line {l1=0x37, l2=» ORDRE.ØNSKLEV:5,ORDRE.BEKRÆLEV:5);«, l3=0x37}
0x62d0…62e7 Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x62e7…6302 Line {l1=0x19, l2=» NEXTREC(KUNORDRE.A)«, l3=0x19}
0x6302…630c Line {l1=0x08, l2=» END;«, l3=0x08}
0x630c…633b Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x633b…6352 Line {l1=0x15, l2=» IF CH IN NEJ THEN«, l3=0x15}
0x6352…6393 Line {l1=0x3f, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3f}
0x6393…63d1 Line {l1=0x3c, l2=» ELSE IF LINES<>51 THEN BEGIN WRITE('RETURN ');READLN END«, l3=0x3c}
0x63d1…63d8 Line {l1=0x05, l2=» END«, l3=0x05}
0x63d8…63de Line {l1=0x04, l2=»END;«, l3=0x04}
0x63de…63e6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x63e6…63fe Line {l1=0x16, l2=»PROCEDURE ORDRESTATUS;«, l3=0x16}
0x63fe…6416 Line {l1=0x16, l2=»VAR TTID,TMÆNGDE,TLØN,«, l3=0x16}
0x6416…6433 Line {l1=0x1b, l2=» ATID,AMÆNGDE,ALØN:REAL;«, l3=0x1b}
0x6433…6447 Line {l1=0x12, l2=» LINES:INTEGER;«, l3=0x12}
0x6447…644a Line {l1=0x01, l2=» «, l3=0x01}
0x644a…645e Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x645e…6465 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6465…6479 Line {l1=0x12, l2=» IF CH IN NEJ THEN«, l3=0x12}
0x6479…6481 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x6481…64be Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x64be…6506 Line {l1=0x46, l2=» WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,«, l3=0x46}
0x6506…652e Line {l1=0x26, l2=» 'emnenr',' ':6,'dato');«, l3=0x26}
0x652e…6563 Line {l1=0x33, l2=» WRITELN(LIST,'ORDRESTATUS',' ':41,ORDRE.KUNDORDR,«, l3=0x33}
0x6563…6590 Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x6590…65d6 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x65d6…6615 Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x6615…6638 Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x6638…666f Line {l1=0x35, l2=» WRITELN(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6, «, l3=0x35}
0x666f…668b Line {l1=0x1a, l2=» KUNDE.NAVN,«, l3=0x1a}
0x668b…66cd Line {l1=0x40, l2=» ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);«, l3=0x40}
0x66cd…66df Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x66df…672b Line {l1=0x4a, l2=» WRITELN(LIST,' MEDARBNR DATO REALISERET REALISERET',«, l3=0x4a}
0x672b…6749 Line {l1=0x1c, l2=» ' ENHEDER');«, l3=0x1c}
0x6749…6796 Line {l1=0x4b, l2=» WRITELN(LIST,' TIDSFORBRUG PR. ENHED LØN');«, l3=0x4b}
0x6796…67a3 Line {l1=0x0b, l2=» LINES:=9 «, l3=0x0b}
0x67a3…67a9 Line {l1=0x04, l2=» END«, l3=0x04}
0x67a9…67b0 Line {l1=0x05, l2=» ELSE«, l3=0x05}
0x67b0…67b8 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x67b8…67cd Line {l1=0x13, l2=» IF LINES<51 THEN «, l3=0x13}
0x67cd…67d6 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x67d6…67e9 Line {l1=0x11, l2=» GOTOXY(1,24);«, l3=0x11}
0x67e9…6800 Line {l1=0x15, l2=» WRITE('RETURN ');«, l3=0x15}
0x6800…680c Line {l1=0x0a, l2=» READLN«, l3=0x0a}
0x680c…6814 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6814…6824 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6824…686b Line {l1=0x45, l2=» WRITELN(' MEDARBNR DATO REALISERET REALISERET',«, l3=0x45}
0x686b…6884 Line {l1=0x17, l2=» ' ENHEDER');«, l3=0x17}
0x6884…68cc Line {l1=0x46, l2=» WRITELN(' TIDSFORBRUG PR. ENHED LØN');«, l3=0x46}
0x68cc…68d9 Line {l1=0x0b, l2=» LINES:=2 «, l3=0x0b}
0x68d9…68df Line {l1=0x04, l2=» END«, l3=0x04}
0x68df…68e5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x68e5…68ed Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x68ed…6922 Line {l1=0x33, l2=»PROCEDURE REGLINIE(ORDRENR,EMNENR,OPERANR:INTEGER);«, l3=0x33}
0x6922…6929 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6929…696b Line {l1=0x40, l2=» IF (LINES>40) OR ((CH IN JA) AND (LINES>16)) THEN HEADING;«, l3=0x40}
0x696b…697d Line {l1=0x10, l2=» TTID:=0.0;«, l3=0x10}
0x697d…698f Line {l1=0x10, l2=» TLØN:=0.0;«, l3=0x10}
0x698f…69a4 Line {l1=0x13, l2=» TMÆNGDE:=0.0;«, l3=0x13}
0x69a4…69b6 Line {l1=0x10, l2=» ATID:=0.0;«, l3=0x10}
0x69b6…69c8 Line {l1=0x10, l2=» ALØN:=0.0;«, l3=0x10}
0x69c8…69dd Line {l1=0x13, l2=» AMÆNGDE:=0.0;«, l3=0x13}
0x69dd…69f7 Line {l1=0x18, l2=» OPERA.NR:=OPERANR;«, l3=0x18}
0x69f7…6a1f Line {l1=0x26, l2=» GETREC(OPERA.A);CHECK0(OPERA.A);«, l3=0x26}
0x6a1f…6a38 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x6a38…6a45 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6a45…6a5d Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x6a5d…6a90 Line {l1=0x31, l2=» WRITELN(LIST,OPERA.NR:4,' ',OPERA.BETEGN)«, l3=0x31}
0x6a90…6a9b Line {l1=0x09, l2=» END«, l3=0x09}
0x6a9b…6aa7 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x6aa7…6ab4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6ab4…6ac6 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x6ac6…6af4 Line {l1=0x2c, l2=» WRITELN(OPERA.NR:4,' ',OPERA.BETEGN)«, l3=0x2c}
0x6af4…6b00 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x6b00…6b17 Line {l1=0x15, l2=» LINES:=LINES+2;«, l3=0x15}
0x6b17…6b36 Line {l1=0x1d, l2=» REGLI.ORDRENR:=ORDRENR;«, l3=0x1d}
0x6b36…6b53 Line {l1=0x1b, l2=» REGLI.EMNENR:=EMNENR;«, l3=0x1b}
0x6b53…6b72 Line {l1=0x1d, l2=» REGLI.OPERANR:=OPERANR;«, l3=0x1d}
0x6b72…6b8c Line {l1=0x18, l2=» REGLI.MEDARBNR:=0;«, l3=0x18}
0x6b8c…6ba8 Line {l1=0x1a, l2=» REGLI.DATO:=LONGNUL;«, l3=0x1a}
0x6ba8…6bf7 Line {l1=0x4d, l2=» NEXTREC(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4d}
0x6bf7…6c44 Line {l1=0x4b, l2=» WHILE (IER=0) AND (REGLI.OPERANR=OPERANR) AND (REGLI.ORDRENR=ORDRENR)«, l3=0x4b}
0x6c44…6c6e Line {l1=0x28, l2=» AND (REGLI.EMNENR=EMNENR) DO«, l3=0x28}
0x6c6e…6c7b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x6c7b…6c9d Line {l1=0x20, l2=» IF REGLI.DATO(1)>99 THEN«, l3=0x20}
0x6c9d…6cac Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x6cac…6ccd Line {l1=0x1f, l2=» ATID:=ATID+REGLI.TID;«, l3=0x1f}
0x6ccd…6cee Line {l1=0x1f, l2=» ALØN:=ALØN+REGLI.LØN;«, l3=0x1f}
0x6cee…6d18 Line {l1=0x28, l2=» AMÆNGDE:=AMÆNGDE+REGLI.MÆNGDE «, l3=0x28}
0x6d18…6d25 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x6d25…6d33 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x6d33…6d42 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x6d42…6d88 Line {l1=0x44, l2=» IF (LINES>44) OR ((CH IN JA) AND (LINES>20)) THEN HEADING;«, l3=0x44}
0x6d88…6da5 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0x6da5…6dd0 Line {l1=0x29, l2=» WRITE(LIST,REGLI.MEDARBNR:10,«, l3=0x29}
0x6dd0…6e13 Line {l1=0x41, l2=» REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,«, l3=0x41}
0x6e13…6e3b Line {l1=0x26, l2=» REGLI.TID:13:2)«, l3=0x26}
0x6e3b…6e4b Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x6e4b…6e71 Line {l1=0x24, l2=» WRITE(REGLI.MEDARBNR:10,«, l3=0x24}
0x6e71…6eaf Line {l1=0x3c, l2=» REGLI.DATO(1)*10000.0+REGLI.DATO(2):10:-2,«, l3=0x3c}
0x6eaf…6ed3 Line {l1=0x22, l2=» REGLI.TID:13:2);«, l3=0x22}
0x6ed3…6ef9 Line {l1=0x24, l2=» IF REGLI.MÆNGDE<>0.0 THEN «, l3=0x24}
0x6ef9…6f18 Line {l1=0x1d, l2=» IF CH IN NEJ THEN«, l3=0x1d}
0x6f18…6f4f Line {l1=0x35, l2=» WRITE(LIST,REGLI.TID/REGLI.MÆNGDE:11:4)«, l3=0x35}
0x6f4f…6f61 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x6f61…6f93 Line {l1=0x30, l2=» WRITE(REGLI.TID/REGLI.MÆNGDE:11:4)«, l3=0x30}
0x6f93…6fa3 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x6fa3…6fc2 Line {l1=0x1d, l2=» IF CH IN NEJ THEN«, l3=0x1d}
0x6fc2…6fe4 Line {l1=0x20, l2=» WRITE(LIST,'-':11)«, l3=0x20}
0x6fe4…6ff6 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x6ff6…7014 Line {l1=0x1c, l2=» WRITE('-':11);«, l3=0x1c}
0x7014…7031 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0x7031…706d Line {l1=0x3a, l2=» WRITELN(LIST,REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2)«, l3=0x3a}
0x706d…707d Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x707d…70b5 Line {l1=0x36, l2=» WRITELN(REGLI.LØN:12:2,REGLI.MÆNGDE:9:-2);«, l3=0x36}
0x70b5…70d0 Line {l1=0x19, l2=» LINES:=LINES+1;«, l3=0x19}
0x70d0…70f1 Line {l1=0x1f, l2=» TTID:=TTID+REGLI.TID;«, l3=0x1f}
0x70f1…7112 Line {l1=0x1f, l2=» TLØN:=TLØN+REGLI.LØN;«, l3=0x1f}
0x7112…713b Line {l1=0x27, l2=» TMÆNGDE:=TMÆNGDE+REGLI.MÆNGDE«, l3=0x27}
0x713b…7149 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x7149…7163 Line {l1=0x18, l2=» NEXTREC(REGLI.A)«, l3=0x18}
0x7163…716f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x716f…71a6 Line {l1=0x35, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x35}
0x71a6…71dc Line {l1=0x34, l2=» (*UDSKRIV TOTAL, GENERER ELLER CHECK TOTALPOST*)«, l3=0x34}
0x71dc…71f5 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x71f5…7202 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7202…7221 Line {l1=0x1d, l2=» WRITELN(LIST,STREG:65);«, l3=0x1d}
0x7221…7256 Line {l1=0x33, l2=» WRITE(LIST,'REALISERET OPTALT',TTID:13:2);«, l3=0x33}
0x7256…7290 Line {l1=0x38, l2=» IF TMÆNGDE<>0.0 THEN WRITE(LIST,TTID/TMÆNGDE:11:4)«, l3=0x38}
0x7290…72b0 Line {l1=0x1e, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x1e}
0x72b0…72dd Line {l1=0x2b, l2=» WRITELN(LIST,TLØN:12:2,TMÆNGDE:9:-2);«, l3=0x2b}
0x72dd…7312 Line {l1=0x33, l2=» WRITE(LIST,'REALISERET INDTASTET',ATID:13:2);«, l3=0x33}
0x7312…734d Line {l1=0x39, l2=» IF AMÆNGDE<>0.0 THEN WRITE(LIST,ATID/AMÆNGDE:11:4) «, l3=0x39}
0x734d…736d Line {l1=0x1e, l2=» ELSE WRITE(LIST,'-':11);«, l3=0x1e}
0x736d…7390 Line {l1=0x21, l2=» WRITELN(LIST,AMÆNGDE:21:-2)«, l3=0x21}
0x7390…739b Line {l1=0x09, l2=» END«, l3=0x09}
0x739b…73a7 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x73a7…73b4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x73b4…73ce Line {l1=0x18, l2=» WRITELN(STREG:65);«, l3=0x18}
0x73ce…73fe Line {l1=0x2e, l2=» WRITE('REALISERET OPTALT',TTID:13:2);«, l3=0x2e}
0x73fe…7433 Line {l1=0x33, l2=» IF TMÆNGDE<>0.0 THEN WRITE(TTID/TMÆNGDE:11:4)«, l3=0x33}
0x7433…744e Line {l1=0x19, l2=» ELSE WRITE('-':11);«, l3=0x19}
0x744e…7476 Line {l1=0x26, l2=» WRITELN(TLØN:12:2,TMÆNGDE:9:-2);«, l3=0x26}
0x7476…74a6 Line {l1=0x2e, l2=» WRITE('REALISERET INDTASTET',ATID:13:2);«, l3=0x2e}
0x74a6…74dc Line {l1=0x34, l2=» IF AMÆNGDE<>0.0 THEN WRITE(ATID/AMÆNGDE:11:4) «, l3=0x34}
0x74dc…74f7 Line {l1=0x19, l2=» ELSE WRITE('-':11);«, l3=0x19}
0x74f7…7515 Line {l1=0x1c, l2=» WRITELN(AMÆNGDE:21:-2)«, l3=0x1c}
0x7515…7521 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x7521…7545 Line {l1=0x22, l2=» IF ATID=0.0 THEN ATID:=TTID;«, l3=0x22}
0x7545…7569 Line {l1=0x22, l2=» IF ALØN=0.0 THEN ALØN:=TLØN;«, l3=0x22}
0x7569…7596 Line {l1=0x2b, l2=» IF AMÆNGDE=0.0 THEN AMÆNGDE:=TMÆNGDE;«, l3=0x2b}
0x7596…75ad Line {l1=0x15, l2=» LINES:=LINES+3 «, l3=0x15}
0x75ad…75b3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x75b3…75bb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x75bb…75d2 Line {l1=0x15, l2=»BEGIN (*ORDRESTATUS*)«, l3=0x15}
0x75d2…75e0 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x75e0…75f0 Line {l1=0x0e, l2=» WITH PROD DO«, l3=0x0e}
0x75f0…75f9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x75f9…7615 Line {l1=0x1a, l2=» ORDRENR:=POST.ORDRENR;«, l3=0x1a}
0x7615…762f Line {l1=0x18, l2=» EMNENR:=POST.EMNENR;«, l3=0x18}
0x762f…7641 Line {l1=0x10, l2=» SEKVENSN:=0;«, l3=0x10}
0x7641…7652 Line {l1=0x0f, l2=» OPERANR:=0;«, l3=0x0f}
0x7652…7693 Line {l1=0x3f, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);IER:=0;«, l3=0x3f}
0x7693…76dd Line {l1=0x48, l2=» WHILE (IER=0) AND (ORDRENR=POST.ORDRENR) AND (EMNENR=POST.EMNENR) DO«, l3=0x48}
0x76dd…76e8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x76e8…7711 Line {l1=0x27, l2=» REGLINIE(ORDRENR,EMNENR,OPERANR);«, l3=0x27}
0x7711…772a Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x772a…7737 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7737…775f Line {l1=0x26, l2=» WRITE(LIST,'KALKULERET',' ':13);«, l3=0x26}
0x775f…777b Line {l1=0x1a, l2=» IF PROD.STKH<=0 THEN«, l3=0x1a}
0x777b…77cb Line {l1=0x4e, l2=» WRITE(LIST,-PROD.STKH/100.0:10:2,-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x4e}
0x77cb…7813 Line {l1=0x46, l2=» ELSE WRITE(LIST,ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x46}
0x7813…783d Line {l1=0x28, l2=» WRITELN(LIST,ORDRE.ANTALBES:21:-2)«, l3=0x28}
0x783d…7848 Line {l1=0x09, l2=» END«, l3=0x09}
0x7848…7854 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x7854…7861 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7861…7884 Line {l1=0x21, l2=» WRITE('KALKULERET',' ':13);«, l3=0x21}
0x7884…78a0 Line {l1=0x1a, l2=» IF PROD.STKH<=0 THEN«, l3=0x1a}
0x78a0…78eb Line {l1=0x49, l2=» WRITE(-PROD.STKH/100.0:10:2,-PROD.STKH/ORDRE.ANTALBES/100.0:11:4)«, l3=0x49}
0x78eb…792e Line {l1=0x41, l2=» ELSE WRITE(ORDRE.ANTALBES/PROD.STKH:10:2,1/PROD.STKH:11:4);«, l3=0x41}
0x792e…7953 Line {l1=0x23, l2=» WRITELN(ORDRE.ANTALBES:21:-2)«, l3=0x23}
0x7953…795f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x795f…7976 Line {l1=0x15, l2=» LINES:=LINES+1;«, l3=0x15}
0x7976…7988 Line {l1=0x10, l2=» NEXTREC(A)«, l3=0x10}
0x7988…7992 Line {l1=0x08, l2=» END;«, l3=0x08}
0x7992…79c1 Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x79c1…79c4 Line {l1=0x01, l2=» «, l3=0x01}
0x79c4…79d2 Line {l1=0x0c, l2=» HEADING;«, l3=0x0c}
0x79d2…79e9 Line {l1=0x15, l2=» IF CH IN NEJ THEN«, l3=0x15}
0x79e9…7a22 Line {l1=0x37, l2=» WRITELN(LIST,'IKKEKALKULEREDE REGISTRERINGSLINIER')«, l3=0x37}
0x7a22…7a2c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x7a2c…7a61 Line {l1=0x33, l2=» WRITELN('IKKEKALKULEREDE REGISTRERINGSLINIER');«, l3=0x33}
0x7a61…7a76 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x7a76…7a98 Line {l1=0x20, l2=» REGLI.ORDRENR:=POST.ORDRENR;«, l3=0x20}
0x7a98…7ab8 Line {l1=0x1e, l2=» REGLI.EMNENR:=POST.EMNENR;«, l3=0x1e}
0x7ab8…7acf Line {l1=0x15, l2=» REGLI.OPERANR:=0;«, l3=0x15}
0x7acf…7ae7 Line {l1=0x16, l2=» REGLI.MEDARBNR:=0;«, l3=0x16}
0x7ae7…7b01 Line {l1=0x18, l2=» REGLI.DATO:=LONGNUL;«, l3=0x18}
0x7b01…7b4e Line {l1=0x4b, l2=» NEXTREC(REGLI.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(REGLI.A);IER:=0;«, l3=0x4b}
0x7b4e…7b87 Line {l1=0x37, l2=» WHILE (IER=0) AND (REGLI.ORDRENR=POST.ORDRENR) AND «, l3=0x37}
0x7b87…7bc6 Line {l1=0x3d, l2=» (REGLI.EMNENR=POST.EMNENR) AND (NOT EOF(OUTPUT)) DO«, l3=0x3d}
0x7bc6…7bd1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x7bd1…7bf8 Line {l1=0x25, l2=» OMVPROD.ORDRENR:=REGLI.ORDRENR;«, l3=0x25}
0x7bf8…7c1d Line {l1=0x23, l2=» OMVPROD.EMNENR:=REGLI.EMNENR;«, l3=0x23}
0x7c1d…7c44 Line {l1=0x25, l2=» OMVPROD.OPERANR:=REGLI.OPERANR;«, l3=0x25}
0x7c44…7c60 Line {l1=0x1a, l2=» OMVPROD.SEKVENSN:=0;«, l3=0x1a}
0x7c60…7cad Line {l1=0x4b, l2=» NEXTREC(OMVPROD.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(OMVPROD.A);«, l3=0x4b}
0x7cad…7cbc Line {l1=0x0d, l2=» IER:=0;«, l3=0x0d}
0x7cbc…7d09 Line {l1=0x4b, l2=» IF (REGLI.OPERANR<>OMVPROD.OPERANR) OR (REGLI.EMNENR<>OMVPROD.EMNENR)«, l3=0x4b}
0x7d09…7d39 Line {l1=0x2e, l2=» OR (REGLI.ORDRENR<>OMVPROD.ORDRENR) THEN«, l3=0x2e}
0x7d39…7d76 Line {l1=0x3b, l2=» REGLINIE(REGLI.ORDRENR,REGLI.EMNENR,REGLI.OPERANR) «, l3=0x3b}
0x7d76…7d82 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x7d82…7d9c Line {l1=0x18, l2=» NEXTREC(REGLI.A)«, l3=0x18}
0x7d9c…7da6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x7da6…7ddb Line {l1=0x33, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(REGLI.A);«, l3=0x33}
0x7ddb…7df2 Line {l1=0x15, l2=» IF CH IN NEJ THEN«, l3=0x15}
0x7df2…7e33 Line {l1=0x3f, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3f}
0x7e33…7e5f Line {l1=0x2a, l2=» ELSE BEGIN WRITE('RETURN ');READLN END«, l3=0x2a}
0x7e5f…7e66 Line {l1=0x05, l2=» END«, l3=0x05}
0x7e66…7e6c Line {l1=0x04, l2=»END;«, l3=0x04}
0x7e6c…7e74 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x7e74…7e89 Line {l1=0x13, l2=»PROCEDURE RESOMSÆT;«, l3=0x13}
0x7e89…7ea5 Line {l1=0x1a, l2=»VAR R:ARRAY(1..4) OF REAL;«, l3=0x1a}
0x7ea5…7ec2 Line {l1=0x1b, l2=» I:ARRAY(1..12) OF REAL;«, l3=0x1b}
0x7ec2…7ec5 Line {l1=0x01, l2=» «, l3=0x01}
0x7ec5…7ed9 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x7ed9…7ee0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x7ee0…7f1d Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x7f1d…7f63 Line {l1=0x44, l2=» WRITELN(LIST,'RESSOURCE-OMSÆTNINGSOVERSIGT TYPE',RESS.RESSTYPE:5,«, l3=0x44}
0x7f63…7f82 Line {l1=0x1d, l2=» ' ':53,'DATO',«, l3=0x1d}
0x7f82…7fc8 Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x7fc8…800a Line {l1=0x40, l2=» WRITELN(LIST,' NR BETEGN SAMOMS SAMDB PRODTIM',«, l3=0x40}
0x800a…8050 Line {l1=0x44, l2=» ' VEDLTIM OPSTILT OVERTIM REPTIME TOTALTI',«, l3=0x44}
0x8050…806f Line {l1=0x1d, l2=» ' DB/P.TIM');«, l3=0x1d}
0x806f…80b1 Line {l1=0x40, l2=» WRITELN(LIST,' TIMESATS SAMOMSSÅ SAMDBSÅ PRODTIMS',«, l3=0x40}
0x80b1…80f7 Line {l1=0x44, l2=» ' VEDLTIMS OPSTILTS OVERTIMS REPTIMES TOTALTIS',«, l3=0x44}
0x80f7…8116 Line {l1=0x1d, l2=» ' DB/P.TIMS');«, l3=0x1d}
0x8116…8122 Line {l1=0x0a, l2=» LINES:=5«, l3=0x0a}
0x8122…8128 Line {l1=0x04, l2=»END;«, l3=0x04}
0x8128…812b Line {l1=0x01, l2=» «, l3=0x01}
0x812b…8140 Line {l1=0x13, l2=»PROCEDURE PERAFSLT;«, l3=0x13}
0x8140…8147 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8147…8157 Line {l1=0x0e, l2=» WITH RESS DO«, l3=0x0e}
0x8157…8160 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x8160…817a Line {l1=0x18, l2=» SAMOMSSÅ:=SAMOMS; «, l3=0x18}
0x817a…8194 Line {l1=0x18, l2=» SAMDBSÅ :=SAMDB; «, l3=0x18}
0x8194…81a6 Line {l1=0x10, l2=» SAMOMS:=0;«, l3=0x10}
0x81a6…81b7 Line {l1=0x0f, l2=» SAMDB:=0;«, l3=0x0f}
0x81b7…81d3 Line {l1=0x1a, l2=» PRODTIMS:=PRODTIM; «, l3=0x1a}
0x81d3…81ef Line {l1=0x1a, l2=» VEDLTIMS:=VEDLTIM; «, l3=0x1a}
0x81ef…820b Line {l1=0x1a, l2=» OPSTILTS:=OPSTILT; «, l3=0x1a}
0x820b…8225 Line {l1=0x18, l2=» OVERTIMS:=OVERTIM;«, l3=0x18}
0x8225…823f Line {l1=0x18, l2=» REPTIMES:=REPTIME;«, l3=0x18}
0x823f…8259 Line {l1=0x18, l2=» TOTALTIS:=TOTALTI;«, l3=0x18}
0x8259…826c Line {l1=0x11, l2=» PRODTIM:=0;«, l3=0x11}
0x826c…827f Line {l1=0x11, l2=» VEDLTIM:=0;«, l3=0x11}
0x827f…8292 Line {l1=0x11, l2=» OPSTILT:=0;«, l3=0x11}
0x8292…82a5 Line {l1=0x11, l2=» OVERTIM:=0;«, l3=0x11}
0x82a5…82b8 Line {l1=0x11, l2=» REPTIME:=0;«, l3=0x11}
0x82b8…82cb Line {l1=0x11, l2=» TOTALTI:=0;«, l3=0x11}
0x82cb…82e6 Line {l1=0x19, l2=» PUTREC(A);CHECK0(A)«, l3=0x19}
0x82e6…82ee Line {l1=0x06, l2=» END;«, l3=0x06}
0x82ee…82f4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x82f4…82fc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x82fc…8303 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8303…831b Line {l1=0x16, l2=» LÆSFELT(PICTURE(4));«, l3=0x16}
0x831b…8335 Line {l1=0x18, l2=» SKRIVFELT(PICTURE(4));«, l3=0x18}
0x8335…8355 Line {l1=0x1e, l2=» FOR J:=1 TO 12 DO I(J):=0.0;«, l3=0x1e}
0x8355…8374 Line {l1=0x1d, l2=» FOR J:=1 TO 4 DO R(J):=0.0;«, l3=0x1d}
0x8374…8382 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x8382…8392 Line {l1=0x0e, l2=» WITH RESS DO«, l3=0x0e}
0x8392…839b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x839b…83a7 Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x83a7…83eb Line {l1=0x42, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;«, l3=0x42}
0x83eb…8417 Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x8417…8422 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x8422…8458 Line {l1=0x34, l2=» IF (RESSTYPE=POST.RTYPE) OR (POST.RTYPE=0) THEN«, l3=0x34}
0x8458…8464 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x8464…8485 Line {l1=0x1f, l2=» IF LINES>45 THEN HEADING;«, l3=0x1f}
0x8485…849c Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0x849c…84b2 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x84b2…84f9 Line {l1=0x45, l2=» WRITE(LIST,NR:5,' ',BETEGN,SAMOMS:10:-2,SAMDB:10:-2,PRODTIM:10,«, l3=0x45}
0x84f9…8544 Line {l1=0x49, l2=» VEDLTIM:10,OPSTILT:10,OVERTIM:10,REPTIME:10,TOTALTI:10);«, l3=0x49}
0x8544…8581 Line {l1=0x3b, l2=» IF PRODTIM<>0 THEN WRITELN(LIST,SAMDB/PRODTIM:10:-2) «, l3=0x3b}
0x8581…85a3 Line {l1=0x20, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x20}
0x85a3…85eb Line {l1=0x46, l2=» WRITE(LIST,TSATSF:16:2,SAMOMSSÅ:10:-2,SAMDBSÅ:10:-2,PRODTIMS:10,«, l3=0x46}
0x85eb…863b Line {l1=0x4e, l2=» VEDLTIMS:10,OPSTILTS:10,OVERTIMS:10,REPTIMES:10,TOTALTIS:10);«, l3=0x4e}
0x863b…867c Line {l1=0x3f, l2=» IF PRODTIMS<>0 THEN WRITELN(LIST,SAMDBSÅ/PRODTIMS:10:-2) «, l3=0x3f}
0x867c…869e Line {l1=0x20, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x20}
0x869e…86b8 Line {l1=0x18, l2=» R(1):=R(1)+SAMOMS;«, l3=0x18}
0x86b8…86d1 Line {l1=0x17, l2=» R(2):=R(2)+SAMDB;«, l3=0x17}
0x86d1…86ed Line {l1=0x1a, l2=» R(3):=R(3)+SAMOMSSÅ;«, l3=0x1a}
0x86ed…8708 Line {l1=0x19, l2=» R(4):=R(4)+SAMDBSÅ;«, l3=0x19}
0x8708…8738 Line {l1=0x2e, l2=» I(1):=I(1)+PRODTIM; I(7):=I(7)+PRODTIMS;«, l3=0x2e}
0x8738…8768 Line {l1=0x2e, l2=» I(2):=I(2)+VEDLTIM; I(8):=I(8)+VEDLTIMS;«, l3=0x2e}
0x8768…8798 Line {l1=0x2e, l2=» I(3):=I(3)+OPSTILT; I(9):=I(9)+OPSTILTS;«, l3=0x2e}
0x8798…87ca Line {l1=0x30, l2=» I(4):=I(4)+OVERTIM; I(10):=I(10)+OVERTIMS;«, l3=0x30}
0x87ca…87fc Line {l1=0x30, l2=» I(5):=I(5)+REPTIME; I(11):=I(11)+REPTIMES;«, l3=0x30}
0x87fc…882e Line {l1=0x30, l2=» I(6):=I(6)+TOTALTI; I(12):=I(12)+TOTALTIS;«, l3=0x30}
0x882e…884f Line {l1=0x1f, l2=» IF CH IN JA THEN PERAFSLT«, l3=0x1f}
0x884f…885a Line {l1=0x09, l2=» END;«, l3=0x09}
0x885a…886c Line {l1=0x10, l2=» NEXTRECX(A)«, l3=0x10}
0x886c…8876 Line {l1=0x08, l2=» END;«, l3=0x08}
0x8876…88a6 Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);«, l3=0x2e}
0x88a6…88bf Line {l1=0x17, l2=» PUTREC(A);CHECK0(A)«, l3=0x17}
0x88bf…88c7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x88c7…88db Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x88db…88e4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x88e4…88f7 Line {l1=0x11, l2=» LINES:=LINES+3;«, l3=0x11}
0x88f7…8913 Line {l1=0x1a, l2=» WRITELN(LIST,STREG:106);«, l3=0x1a}
0x8913…8952 Line {l1=0x3d, l2=» WRITE(LIST,'TOTAL',' ':11,R(1):10:-2,R(2):10:-2,I(1):10:-2,«, l3=0x3d}
0x8952…8999 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}
0x8999…89cb Line {l1=0x30, l2=» IF I(1)<>0 THEN WRITELN(LIST,R(2)/I(1):10:-2) «, l3=0x30}
0x89cb…89e9 Line {l1=0x1c, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x1c}
0x89e9…8a20 Line {l1=0x35, l2=» WRITE(LIST,' ':16,R(3):10:-2,R(4):10:-2,I(7):10:-2,«, l3=0x35}
0x8a20…8a6a 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}
0x8a6a…8a9c Line {l1=0x30, l2=» IF I(7)<>0 THEN WRITELN(LIST,R(4)/I(7):10:-2) «, l3=0x30}
0x8a9c…8aba Line {l1=0x1c, l2=» ELSE WRITELN(LIST,'-':10);«, l3=0x1c}
0x8aba…8ac5 Line {l1=0x09, l2=»(*TOTAL*)«, l3=0x09}
0x8ac5…8b02 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x8b02…8b09 Line {l1=0x05, l2=» END«, l3=0x05}
0x8b09…8b0f Line {l1=0x04, l2=»END;«, l3=0x04}
0x8b0f…8b17 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x8b17…8b2c Line {l1=0x13, l2=»PROCEDURE RÅVOMSÆT;«, l3=0x13}
0x8b2c…8b48 Line {l1=0x1a, l2=»VAR R:ARRAY(1..4) OF REAL;«, l3=0x1a}
0x8b48…8b4b Line {l1=0x01, l2=» «, l3=0x01}
0x8b4b…8b5f Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x8b5f…8b66 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8b66…8ba3 Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x8ba3…8bde Line {l1=0x39, l2=» WRITELN(LIST,'RÅVARE-OMSÆTNINGSOVERSIGT',' ':53,'DATO',«, l3=0x39}
0x8bde…8c1e Line {l1=0x3e, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x3e}
0x8c1e…8c66 Line {l1=0x46, l2=» WRITELN(LIST,' NR BETEGN OMSÆT DB KOSTPRIS',«, l3=0x46}
0x8c66…8ca3 Line {l1=0x3b, l2=» ' LAGER KGINDKØB KGFORBRUG SMESVIND');«, l3=0x3b}
0x8ca3…8ceb Line {l1=0x46, l2=» WRITELN(LIST,' KGPRIS OMSÆTS DBS KOSTPRSÅ',«, l3=0x46}
0x8ceb…8d28 Line {l1=0x3b, l2=» ' MINLAGER KGSOLGT SMEPRIS');«, l3=0x3b}
0x8d28…8d34 Line {l1=0x0a, l2=» LINES:=5«, l3=0x0a}
0x8d34…8d3a Line {l1=0x04, l2=»END;«, l3=0x04}
0x8d3a…8d42 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x8d42…8d49 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8d49…8d68 Line {l1=0x1d, l2=» FOR J:=1 TO 4 DO R(J):=0.0;«, l3=0x1d}
0x8d68…8d76 Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x8d76…8d88 Line {l1=0x10, l2=» WITH RÅVARE DO«, l3=0x10}
0x8d88…8d91 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x8d91…8d9d Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x8d9d…8de1 Line {l1=0x42, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;«, l3=0x42}
0x8de1…8e0d Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x8e0d…8e18 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x8e18…8e39 Line {l1=0x1f, l2=» IF LINES>45 THEN HEADING;«, l3=0x1f}
0x8e39…8e50 Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0x8e50…8e66 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x8e66…8eb0 Line {l1=0x48, l2=» WRITELN(LIST,NR:5,' ',BETEGN,OMSÆTP:10:-2,DBP:10:-2,KOSTPRIS:10:2,«, l3=0x48}
0x8eb0…8efa Line {l1=0x48, l2=» LAGER:10:-2,KGINDKØB:10:-2,KGFORBRU:10:-2,SMESVIND:10);«, l3=0x48}
0x8efa…8f49 Line {l1=0x4d, l2=» WRITELN(LIST,' ':12,PRISKG:10:2,OMSÆTSP:10:-2,DBSÅ:10:-2,KOSTPRSÅ:10:2,«, l3=0x4d}
0x8f49…8f84 Line {l1=0x39, l2=» MINLAGE:10:-2,KGSOLGT:10:-2,SMEPRIS:20:2);«, l3=0x39}
0x8f84…8f9e Line {l1=0x18, l2=» R(1):=R(1)+OMSÆTP;«, l3=0x18}
0x8f9e…8fb5 Line {l1=0x15, l2=» R(2):=R(2)+DBP;«, l3=0x15}
0x8fb5…8fd0 Line {l1=0x19, l2=» R(3):=R(3)+OMSÆTSP;«, l3=0x19}
0x8fd0…8fe8 Line {l1=0x16, l2=» R(4):=R(4)+DBSÅ;«, l3=0x16}
0x8fe8…9000 Line {l1=0x16, l2=» IF CH IN JA THEN«, l3=0x16}
0x9000…900d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x900d…9031 Line {l1=0x22, l2=» OMSÆTSP:=OMSÆTP;OMSÆTP:=0;«, l3=0x22}
0x9031…904c Line {l1=0x19, l2=» DBSÅ:=DBP;DBP:=0;«, l3=0x19}
0x904c…9069 Line {l1=0x1b, l2=» KOSTPRSÅ:=KOSTPRIS;«, l3=0x1b}
0x9069…9086 Line {l1=0x1b, l2=» PUTREC(A);CHECK0(A)«, l3=0x1b}
0x9086…9092 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x9092…90a5 Line {l1=0x11, l2=» NEXTRECX(A)«, l3=0x11}
0x90a5…90af Line {l1=0x08, l2=» END;«, l3=0x08}
0x90af…90df Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);«, l3=0x2e}
0x90df…90f8 Line {l1=0x17, l2=» PUTREC(A);CHECK0(A)«, l3=0x17}
0x90f8…9100 Line {l1=0x06, l2=» END;«, l3=0x06}
0x9100…9114 Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x9114…911d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x911d…9130 Line {l1=0x11, l2=» LINES:=LINES+3;«, l3=0x11}
0x9130…914b Line {l1=0x19, l2=» WRITELN(LIST,STREG:92);«, l3=0x19}
0x914b…9182 Line {l1=0x35, l2=» WRITELN(LIST,'TOTAL',' ':17,R(1):10:-2,R(2):10:-2);«, l3=0x35}
0x9182…91b1 Line {l1=0x2d, l2=» WRITELN(LIST,' ':22,R(3):10:-2,R(4):10:-2);«, l3=0x2d}
0x91b1…91bc Line {l1=0x09, l2=»(*TOTAL*)«, l3=0x09}
0x91bc…91f9 Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x91f9…9200 Line {l1=0x05, l2=» END«, l3=0x05}
0x9200…9206 Line {l1=0x04, l2=»END;«, l3=0x04}
0x9206…920e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x920e…9223 Line {l1=0x13, l2=»PROCEDURE EMNOMSÆT;«, l3=0x13}
0x9223…923f Line {l1=0x1a, l2=»VAR R:ARRAY(1..4) OF REAL;«, l3=0x1a}
0x923f…9242 Line {l1=0x01, l2=» «, l3=0x01}
0x9242…9256 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x9256…925d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x925d…929a Line {l1=0x3b, l2=» WHILE LINES<53 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x929a…92d3 Line {l1=0x37, l2=» WRITELN(LIST,'EMNE-OMSÆTNINGSOVERSIGT',' ':49,'DATO',«, l3=0x37}
0x92d3…9313 Line {l1=0x3e, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x3e}
0x9313…935f Line {l1=0x4a, l2=» WRITELN(LIST,' NR BETEGN KUNDENR SAMSALG',«, l3=0x4a}
0x935f…9392 Line {l1=0x31, l2=» ' DÆKBID SVIND STKHSA');«, l3=0x31}
0x9392…93de Line {l1=0x4a, l2=» WRITELN(LIST,' SAMSALGS',«, l3=0x4a}
0x93de…9411 Line {l1=0x31, l2=» ' DÆKBIDSÅ SMELTTIL STKHBA');«, l3=0x31}
0x9411…941d Line {l1=0x0a, l2=» LINES:=5«, l3=0x0a}
0x941d…9423 Line {l1=0x04, l2=»END;«, l3=0x04}
0x9423…942b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x942b…9432 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x9432…9451 Line {l1=0x1d, l2=» FOR J:=1 TO 4 DO R(J):=0.0;«, l3=0x1d}
0x9451…945f Line {l1=0x0c, l2=» LINES:=51;«, l3=0x0c}
0x945f…946f Line {l1=0x0e, l2=» WITH EMNE DO«, l3=0x0e}
0x946f…9478 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x9478…9484 Line {l1=0x0a, l2=» NR:=0;«, l3=0x0a}
0x9484…94c8 Line {l1=0x42, l2=» NEXTRECX(A);IF NOT (-IER IN (.0..2,9.)) THEN CHECK0(A);IER:=0;«, l3=0x42}
0x94c8…94f4 Line {l1=0x2a, l2=» WHILE (IER=0) AND (NOT EOF(OUTPUT)) DO«, l3=0x2a}
0x94f4…94ff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x94ff…9520 Line {l1=0x1f, l2=» IF LINES>45 THEN HEADING;«, l3=0x1f}
0x9520…9537 Line {l1=0x15, l2=» LINES:=LINES+3;«, l3=0x15}
0x9537…954d Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x954d…9596 Line {l1=0x47, l2=» WRITELN(LIST,NR:5,' ',BETEGN,KUNDENR(1)*10000.0+KUNDENR(2):10:-2,«, l3=0x47}
0x9596…95da Line {l1=0x42, l2=» SAMSALG:10:-2,DÆKBID:10:-2,SVIND:10,STKHSA:10);«, l3=0x42}
0x95da…95f6 Line {l1=0x1a, l2=» WRITELN(LIST,' ':46,«, l3=0x1a}
0x95f6…9640 Line {l1=0x48, l2=» SAMSALGS:10:-2,DÆKBIDSÅ:10:-2,SMELTTIL:10,STKHBA:10);«, l3=0x48}
0x9640…965b Line {l1=0x19, l2=» R(1):=R(1)+SAMSALG;«, l3=0x19}
0x965b…9675 Line {l1=0x18, l2=» R(2):=R(2)+DÆKBID;«, l3=0x18}
0x9675…9691 Line {l1=0x1a, l2=» R(3):=R(3)+SAMSALGS;«, l3=0x1a}
0x9691…96ad Line {l1=0x1a, l2=» R(4):=R(4)+DÆKBIDSÅ;«, l3=0x1a}
0x96ad…96c5 Line {l1=0x16, l2=» IF CH IN JA THEN«, l3=0x16}
0x96c5…96d2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x96d2…96f9 Line {l1=0x25, l2=» SAMSALGS:=SAMSALG;SAMSALG:=0;«, l3=0x25}
0x96f9…971e Line {l1=0x23, l2=» DÆKBIDSÅ:=DÆKBID;DÆKBID:=0;«, l3=0x23}
0x971e…973b Line {l1=0x1b, l2=» PUTREC(A);CHECK0(A)«, l3=0x1b}
0x973b…9747 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x9747…975a Line {l1=0x11, l2=» NEXTRECX(A)«, l3=0x11}
0x975a…9764 Line {l1=0x08, l2=» END;«, l3=0x08}
0x9764…9794 Line {l1=0x2e, l2=» IF NOT (-IER IN (.0,2,9.)) THEN CHECK0(A);«, l3=0x2e}
0x9794…97ad Line {l1=0x17, l2=» PUTREC(A);CHECK0(A)«, l3=0x17}
0x97ad…97b5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x97b5…97c9 Line {l1=0x12, l2=» IF LINES<51 THEN«, l3=0x12}
0x97c9…97d2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x97d2…97e5 Line {l1=0x11, l2=» LINES:=LINES+3;«, l3=0x11}
0x97e5…9800 Line {l1=0x19, l2=» WRITELN(LIST,STREG:86);«, l3=0x19}
0x9800…9837 Line {l1=0x35, l2=» WRITELN(LIST,'TOTAL',' ':41,R(1):10:-2,R(2):10:-2);«, l3=0x35}
0x9837…9866 Line {l1=0x2d, l2=» WRITELN(LIST,' ':46,R(3):10:-2,R(4):10:-2);«, l3=0x2d}
0x9866…9871 Line {l1=0x09, l2=»(*TOTAL*)«, l3=0x09}
0x9871…98ae Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x98ae…98b5 Line {l1=0x05, l2=» END«, l3=0x05}
0x98b5…98bb Line {l1=0x04, l2=»END;«, l3=0x04}
0x98bb…98be Line {l1=0x01, l2=» «, l3=0x01}
0x98be…98d3 Line {l1=0x13, l2=»PROCEDURE VÆLGLIST;«, l3=0x13}
0x98d3…98da Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x98da…98ec Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x98ec…9909 Line {l1=0x1b, l2=» 1:FORKALKULATION;«, l3=0x1b}
0x9909…9920 Line {l1=0x15, l2=» 2:RUTEKORT;«, l3=0x15}
0x9920…993f Line {l1=0x1d, l2=» 3:PRODUKTIONSORDRE;«, l3=0x1d}
0x993f…9956 Line {l1=0x15, l2=» 4:EMNELIST;«, l3=0x15}
0x9956…996d Line {l1=0x15, l2=» 5:FORMLIST;«, l3=0x15}
0x996d…9984 Line {l1=0x15, l2=» 6:ORDRLIST;«, l3=0x15}
0x9984…999b Line {l1=0x15, l2=» 7:KUNOLIST;«, l3=0x15}
0x999b…99b5 Line {l1=0x18, l2=» 8:ORDRESTATUS;«, l3=0x18}
0x99b5…99cc Line {l1=0x15, l2=» 9:RESOMSÆT;«, l3=0x15}
0x99cc…99e4 Line {l1=0x16, l2=» 10:RÅVOMSÆT;«, l3=0x16}
0x99e4…99fc Line {l1=0x16, l2=» 11:EMNOMSÆT «, l3=0x16}
0x99fc…9a03 Line {l1=0x05, l2=» END«, l3=0x05}
0x9a03…9a09 Line {l1=0x04, l2=»END;«, l3=0x04}
0x9a09…9a11 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x9a11…9a25 Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x9a25…9a35 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x9a35…9a3f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x9a3f…9a52 Line {l1=0x11, l2=» GOTOXY(1,10);«, l3=0x11}
0x9a52…9a74 Line {l1=0x20, l2=» WRITELN('1 Forkalkulation');«, l3=0x20}
0x9a74…9a90 Line {l1=0x1a, l2=» WRITELN('2 Rutekort');«, l3=0x1a}
0x9a90…9ab4 Line {l1=0x22, l2=» WRITELN('3 Produktionsordre');«, l3=0x22}
0x9ab4…9ad9 Line {l1=0x23, l2=» WRITELN('4 Emnespecifikation');«, l3=0x23}
0x9ad9…9b03 Line {l1=0x28, l2=» WRITELN('5 Formregistreringsliste');«, l3=0x28}
0x9b03…9b24 Line {l1=0x1f, l2=» WRITELN('6 Ordreoversigt');«, l3=0x1f}
0x9b24…9b4a Line {l1=0x24, l2=» WRITELN('7 Kundeordreoversigt');«, l3=0x24}
0x9b4a…9b69 Line {l1=0x1d, l2=» WRITELN('8 Ordrestatus');«, l3=0x1d}
0x9b69…9b99 Line {l1=0x2e, l2=» WRITELN('9 Ressource-omsætningsoversigt');«, l3=0x2e}
0x9b99…9bc7 Line {l1=0x2c, l2=» WRITELN('10 Råvare-omsætningsoversigt');«, l3=0x2c}
0x9bc7…9bf3 Line {l1=0x2a, l2=» WRITELN('11 Emne-omsætningsoversigt');«, l3=0x2a}
0x9bf3…9c01 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x9c01…9c1b Line {l1=0x18, l2=» WRITE('Vælg 0-11 ');«, l3=0x18}
0x9c1b…9c28 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x9c28…9c4b Line {l1=0x21, l2=» IF NOT EOLN THEN READ(OPTION)«, l3=0x21}
0x9c4b…9c7c Line {l1=0x2f, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.0..11.));«, l3=0x2f}
0x9c7c…9ca0 Line {l1=0x22, l2=» IF OPTION=0 THEN EXIT(MAINTAIN);«, l3=0x22}
0x9ca0…9caa Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x9caa…9cbc Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x9cbc…9cc9 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x9cc9…9cdd Line {l1=0x12, l2=» CASE OPTION OF«, l3=0x12}
0x9cdd…9ced Line {l1=0x0e, l2=» 1,2,3,6,8:«, l3=0x0e}
0x9ced…9cfa Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x9cfa…9d18 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(2));«, l3=0x1c}
0x9d18…9d38 Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(2));«, l3=0x1e}
0x9d38…9d58 Line {l1=0x1e, l2=» IF POST.ORDRENR=0 THEN«, l3=0x1e}
0x9d58…9d67 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x9d67…9d86 Line {l1=0x1d, l2=» POST.TORDRE:=32000;«, l3=0x1d}
0x9d86…9da1 Line {l1=0x19, l2=» POST.EMNENR:=0;«, l3=0x19}
0x9da1…9dbe Line {l1=0x1b, l2=» POST.TEMNE:=32000«, l3=0x1b}
0x9dbe…9dcb Line {l1=0x0b, l2=» END«, l3=0x0b}
0x9dcb…9dd9 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x9dd9…9de8 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x9de8…9e08 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(1));«, l3=0x1e}
0x9e08…9e2a Line {l1=0x20, l2=» SKRIVFELT(PICTURE(1));«, l3=0x20}
0x9e2a…9e50 Line {l1=0x24, l2=» POST.TORDRE:=POST.ORDRENR;«, l3=0x24}
0x9e50…9e70 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(7));«, l3=0x1e}
0x9e70…9e92 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(7));«, l3=0x20}
0x9e92…9eb3 Line {l1=0x1f, l2=» IF POST.TORDRE=0 THEN«, l3=0x1f}
0x9eb3…9ec4 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x9ec4…9ee5 Line {l1=0x1f, l2=» POST.TORDRE:=32000;«, l3=0x1f}
0x9ee5…9f04 Line {l1=0x1d, l2=» POST.TEMNE:=32000«, l3=0x1d}
0x9f04…9f13 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x9f13…9f23 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x9f23…9f34 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x9f34…9f5a Line {l1=0x24, l2=» POST.TEMNE:=POST.EMNENR;«, l3=0x24}
0x9f5a…9f7c Line {l1=0x20, l2=» LÆSFELT(PICTURE(6));«, l3=0x20}
0x9f7c…9f9f Line {l1=0x21, l2=» SKRIVFELT(PICTURE(6))«, l3=0x21}
0x9f9f…9fae Line {l1=0x0d, l2=» END«, l3=0x0d}
0x9fae…9fbc Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x9fbc…9fd4 Line {l1=0x16, l2=» POST.ANTEX:=1;«, l3=0x16}
0x9fd4…9ff2 Line {l1=0x1c, l2=» LÆSFELT(PICTURE(5));«, l3=0x1c}
0x9ff2…a012 Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(5));«, l3=0x1e}
0xa012…a02c Line {l1=0x18, l2=» IF OPTION=8 THEN«, l3=0x18}
0xa02c…a050 Line {l1=0x22, l2=» CH:=QJN('Skærmudskrift')«, l3=0x22}
0xa050…a067 Line {l1=0x15, l2=» ELSE CH:='N';«, l3=0x15}
0xa067…a06a Line {l1=0x01, l2=» «, l3=0x01}
0xa06a…a08b Line {l1=0x1f, l2=» ORDRE.NR:=POST.ORDRENR;«, l3=0x1f}
0xa08b…a0af Line {l1=0x22, l2=» ORDRE.EMNENR:=POST.EMNENR;«, l3=0x22}
0xa0af…a0f6 Line {l1=0x45, l2=» GETREC(ORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(ORDRE.A);«, l3=0x45}
0xa0f6…a10f Line {l1=0x17, l2=» IF IER=-6 THEN «, l3=0x17}
0xa10f…a11e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xa11e…a16a Line {l1=0x4a, l2=» NEXTREC(ORDRE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(ORDRE.A);«, l3=0x4a}
0xa16a…a18c Line {l1=0x20, l2=» IF IER=-1 THEN IER:=0 «, l3=0x20}
0xa18c…a19a Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xa19a…a19d Line {l1=0x01, l2=» «, l3=0x01}
0xa19d…a1d4 Line {l1=0x35, l2=» IF (CH IN NEJ) AND (OPTION=6) THEN LINES:=51;«, l3=0x35}
0xa1d4…a1d7 Line {l1=0x01, l2=» «, l3=0x01}
0xa1d7…a225 Line {l1=0x4c, l2=» WHILE (IER=0) AND ((ORDRE.NR<POST.TORDRE) OR ((ORDRE.NR=POST.TORDRE)«, l3=0x4c}
0xa225…a26e Line {l1=0x47, l2=» AND (ORDRE.EMNENR<=POST.TEMNE))) AND (NOT EOF(OUTPUT)) DO«, l3=0x47}
0xa26e…a27d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0xa27d…a296 Line {l1=0x17, l2=» WITH KUNDE DO«, l3=0x17}
0xa296…a2a7 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xa2a7…a2c7 Line {l1=0x1e, l2=» NR:=ORDRE.KUNDENR;«, l3=0x1e}
0xa2c7…a306 Line {l1=0x3d, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x3d}
0xa306…a325 Line {l1=0x1d, l2=» KUNFOUND:=(IER=0)«, l3=0x1d}
0xa325…a335 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa335…a340 Line {l1=0x09, l2=» «, l3=0x09}
0xa340…a358 Line {l1=0x16, l2=» WITH EMNE DO«, l3=0x16}
0xa358…a369 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xa369…a388 Line {l1=0x1d, l2=» NR:=ORDRE.EMNENR;«, l3=0x1d}
0xa388…a3a9 Line {l1=0x1f, l2=» GETREC(A);CHECK0(A)«, l3=0x1f}
0xa3a9…a3b9 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa3b9…a3bc Line {l1=0x01, l2=» «, l3=0x01}
0xa3bc…a3d9 Line {l1=0x1b, l2=» IF CH IN NEJ THEN«, l3=0x1b}
0xa3d9…a3f3 Line {l1=0x18, l2=» CASE OPTION OF«, l3=0x18}
0xa3f3…a413 Line {l1=0x1e, l2=» 1,6,8:FORMULAR(1);«, l3=0x1e}
0xa413…a430 Line {l1=0x1b, l2=» 2,3:FORMULAR(2)«, l3=0x1b}
0xa430…a440 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa440…a45e Line {l1=0x1c, l2=» ANTEX:=POST.ANTEX;«, l3=0x1c}
0xa45e…a492 Line {l1=0x32, l2=» WHILE (ANTEX>0) AND (NOT EOF(OUTPUT)) DO«, l3=0x32}
0xa492…a4a3 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xa4a3…a4ba Line {l1=0x15, l2=» VÆLGLIST;«, l3=0x15}
0xa4ba…a4d6 Line {l1=0x1a, l2=» ANTEX:=ANTEX-1«, l3=0x1a}
0xa4d6…a4e6 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa4e6…a502 Line {l1=0x1a, l2=» NEXTREC(ORDRE.A)«, l3=0x1a}
0xa502…a510 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xa510…a53c Line {l1=0x2a, l2=» IF (CH IN NEJ) AND (OPTION=6) THEN«, l3=0x2a}
0xa53c…a57f Line {l1=0x41, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x41}
0xa57f…a5b7 Line {l1=0x36, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A)«, l3=0x36}
0xa5b7…a5c3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0xa5c3…a5c8 Line {l1=0x03, l2=» «, l3=0x03}
0xa5c8…a5d7 Line {l1=0x0d, l2=» 4,7:BEGIN«, l3=0x0d}
0xa5d7…a5f7 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(3));«, l3=0x1e}
0xa5f7…a619 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(3));«, l3=0x20}
0xa619…a641 Line {l1=0x26, l2=» IF POST.KUNDENR=LONGNUL THEN«, l3=0x26}
0xa641…a652 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xa652…a675 Line {l1=0x21, l2=» POST.TKUNDE(1):=9999;«, l3=0x21}
0xa675…a697 Line {l1=0x20, l2=» POST.TKUNDE(2):=9999«, l3=0x20}
0xa697…a6a6 Line {l1=0x0d, l2=» END«, l3=0x0d}
0xa6a6…a6b6 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0xa6b6…a6c7 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xa6c7…a6ef Line {l1=0x26, l2=» POST.TKUNDE:=POST.KUNDENR;«, l3=0x26}
0xa6ef…a711 Line {l1=0x20, l2=» LÆSFELT(PICTURE(8));«, l3=0x20}
0xa711…a735 Line {l1=0x22, l2=» SKRIVFELT(PICTURE(8));«, l3=0x22}
0xa735…a75e Line {l1=0x27, l2=» IF POST.TKUNDE=LONGNUL THEN«, l3=0x27}
0xa75e…a771 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0xa771…a796 Line {l1=0x23, l2=» POST.TKUNDE(1):=9999;«, l3=0x23}
0xa796…a7ba Line {l1=0x22, l2=» POST.TKUNDE(2):=9999«, l3=0x22}
0xa7ba…a7cb Line {l1=0x0f, l2=» END«, l3=0x0f}
0xa7cb…a7db Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa7db…a7f5 Line {l1=0x18, l2=» POST.ANTEX:=1;«, l3=0x18}
0xa7f5…a815 Line {l1=0x1e, l2=» LÆSFELT(PICTURE(5));«, l3=0x1e}
0xa815…a837 Line {l1=0x20, l2=» SKRIVFELT(PICTURE(5));«, l3=0x20}
0xa837…a853 Line {l1=0x1a, l2=» IF OPTION=7 THEN«, l3=0x1a}
0xa853…a879 Line {l1=0x24, l2=» CH:=QJN('Skærmudskrift')«, l3=0x24}
0xa879…a892 Line {l1=0x17, l2=» ELSE CH:='N';«, l3=0x17}
0xa892…a8b5 Line {l1=0x21, l2=» KUNDE.NR:=POST.KUNDENR;«, l3=0x21}
0xa8b5…a8fe Line {l1=0x47, l2=» GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);«, l3=0x47}
0xa8fe…a919 Line {l1=0x19, l2=» IF IER=-6 THEN «, l3=0x19}
0xa919…a92a Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xa92a…a978 Line {l1=0x4c, l2=» NEXTREC(KUNDE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(KUNDE.A);«, l3=0x4c}
0xa978…a99c Line {l1=0x22, l2=» IF IER=-1 THEN IER:=0 «, l3=0x22}
0xa99c…a9ac Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xa9ac…a9af Line {l1=0x01, l2=» «, l3=0x01}
0xa9af…a9cc Line {l1=0x1b, l2=» WHILE (IER=0) AND«, l3=0x1b}
0xa9cc…a9fc Line {l1=0x2e, l2=» (KUNDE.NR(1)*10000.0+KUNDE.NR(2)<=«, l3=0x2e}
0xa9fc…aa30 Line {l1=0x32, l2=» POST.TKUNDE(1)*10000.0+POST.TKUNDE(2))«, l3=0x32}
0xaa30…aa56 Line {l1=0x24, l2=» AND (NOT EOF(OUTPUT)) DO«, l3=0x24}
0xaa56…aa67 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0xaa67…aa93 Line {l1=0x2a, l2=» IF CH IN NEJ THEN FORMULAR(1);«, l3=0x2a}
0xaa93…aab3 Line {l1=0x1e, l2=» ANTEX:=POST.ANTEX;«, l3=0x1e}
0xaab3…aae9 Line {l1=0x34, l2=» WHILE (ANTEX>0) AND (NOT EOF(OUTPUT)) DO«, l3=0x34}
0xaae9…aafc Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0xaafc…ab15 Line {l1=0x17, l2=» VÆLGLIST;«, l3=0x17}
0xab15…ab33 Line {l1=0x1c, l2=» ANTEX:=ANTEX-1«, l3=0x1c}
0xab33…ab45 Line {l1=0x10, l2=» END;«, l3=0x10}
0xab45…ab63 Line {l1=0x1c, l2=» NEXTREC(KUNDE.A)«, l3=0x1c}
0xab63…ab73 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0xab73…abad Line {l1=0x38, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(KUNDE.A)«, l3=0x38}
0xabad…abbb Line {l1=0x0c, l2=» END;«, l3=0x0c}
0xabbb…abcb Line {l1=0x0e, l2=» 5,9,10,11:«, l3=0x0e}
0xabcb…abd8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0xabd8…abec Line {l1=0x12, l2=» FORMULAR(1);«, l3=0x12}
0xabec…ac0f Line {l1=0x21, l2=» IF OPTION IN (.9..11.) THEN«, l3=0x21}
0xac0f…ac5e Line {l1=0x4d, l2=» CH:=QJN('Ønskes periodeafslutning med nulstilling af omsætningstal');«, l3=0x4d}
0xac5e…ac6e Line {l1=0x0e, l2=» VÆLGLIST«, l3=0x0e}
0xac6e…ac79 Line {l1=0x09, l2=» END«, l3=0x09}
0xac79…ac83 Line {l1=0x08, l2=» END;«, l3=0x08}
0xac83…acaf Line {l1=0x2a, l2=» UNTIL QJN('Flere af samme slags') IN NEJ«, l3=0x2a}
0xacaf…acb5 Line {l1=0x04, l2=»END;«, l3=0x04}
0xacb5…acbd Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xacbd…acd0 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0xacd0…ace2 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0xace2…acf4 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0xacf4…ad08 Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0xad08…ad1d Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0xad1d…ad31 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0xad31…ad40 Line {l1=0x0d, l2=» AKTFORM:=0;«, l3=0x0d}
0xad40…ad4c Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0xad4c…ad58 Line {l1=0x0a, l2=» MODE:=3;«, l3=0x0a}
0xad58…ad63 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0xad63…ad7a Line {l1=0x15, l2=» STREG(0):=CHR(116);«, l3=0x15}
0xad7a…ad99 Line {l1=0x1d, l2=» FILLCHAR(STREG(1),116,'-');«, l3=0x1d}
0xad99…adaf Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0xadaf…adc2 Line {l1=0x11, l2=» KUNDE.A(-4):=0;«, l3=0x11}
0xadc2…add8 Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0xadd8…adec Line {l1=0x12, l2=» RÅVARE.A(-4):=0;«, l3=0x12}
0xadec…ae02 Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0xae02…ae16 Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0xae16…ae35 Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0xae35…ae54 Line {l1=0x1d, l2=» ORDRE.A(-4):=0; «, l3=0x1d}
0xae54…ae73 Line {l1=0x1d, l2=» REGLI.A(-4):=0; «, l3=0x1d}
0xae73…ae92 Line {l1=0x1d, l2=» KUNEMNE.A(-4):=0; «, l3=0x1d}
0xae92…aeb1 Line {l1=0x1d, l2=» OMVPROD.A(-4):=0; «, l3=0x1d}
0xaeb1…aed0 Line {l1=0x1d, l2=» KUNORDRE.A(-4):=0; «, l3=0x1d}
0xaed0…aeef Line {l1=0x1d, l2=» EMNIFORM.A(-4):=0; «, l3=0x1d}
0xaeef…af03 Line {l1=0x12, l2=» UGEDAG.A(-4):=0;«, l3=0x12}
0xaf03…af18 Line {l1=0x13, l2=» ARBEDAG.A(-4):=0;«, l3=0x13}
0xaf18…af2e Line {l1=0x14, l2=» ORDTEKST.A(-4):=0;«, l3=0x14}
0xaf2e…af45 Line {l1=0x15, l2=» ORDTEKST.A(-3):=25;«, l3=0x15}
0xaf45…af5a Line {l1=0x13, l2=» UGEDAG.A(-3):=21;«, l3=0x13}
0xaf5a…af70 Line {l1=0x14, l2=» ARBEDAG.A(-3):=22;«, l3=0x14}
0xaf70…af86 Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0xaf86…af99 Line {l1=0x11, l2=» KUNDE.A(-3):=1;«, l3=0x11}
0xaf99…afaf Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0xafaf…afc3 Line {l1=0x12, l2=» RÅVARE.A(-3):=5;«, l3=0x12}
0xafc3…afd9 Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0xafd9…afed Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0xafed…b005 Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0xb005…b01d Line {l1=0x16, l2=» ORDRE.A(-3):=10; «, l3=0x16}
0xb01d…b035 Line {l1=0x16, l2=» REGLI.A(-3):=16; «, l3=0x16}
0xb035…b04d Line {l1=0x16, l2=» KUNEMNE.A(-3):=19; «, l3=0x16}
0xb04d…b065 Line {l1=0x16, l2=» OMVPROD.A(-3):=13; «, l3=0x16}
0xb065…b07d Line {l1=0x16, l2=» KUNORDRE.A(-3):=18; «, l3=0x16}
0xb07d…b095 Line {l1=0x16, l2=» EMNIFORM.A(-3):=20; «, l3=0x16}
0xb095…b0a0 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0xb0a0…b0ce Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0xb0ce…b0f5 Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0xb0f5…b106 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0xb106…b12c Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0xb12c…b141 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0xb141…b16d Line {l1=0x2a, l2=» IOPEN(RESS.A); CHECK0(RESS.A); «, l3=0x2a}
0xb16d…b199 Line {l1=0x2a, l2=» IOPEN(KUNDE.A); CHECK0(KUNDE.A); «, l3=0x2a}
0xb199…b1c5 Line {l1=0x2a, l2=» IOPEN(EMNE.A); CHECK0(EMNE.A); «, l3=0x2a}
0xb1c5…b1f1 Line {l1=0x2a, l2=» IOPEN(RÅVARE.A); CHECK0(RÅVARE.A); «, l3=0x2a}
0xb1f1…b21d Line {l1=0x2a, l2=» IOPEN(OPERA.A); CHECK0(OPERA.A); «, l3=0x2a}
0xb21d…b249 Line {l1=0x2a, l2=» IOPEN(ORDRE.A); CHECK0(ORDRE.A); «, l3=0x2a}
0xb249…b275 Line {l1=0x2a, l2=» IOPEN(REGLI.A); CHECK0(REGLI.A); «, l3=0x2a}
0xb275…b2a1 Line {l1=0x2a, l2=» IOPEN(KUNEMNE.A); CHECK0(KUNEMNE.A); «, l3=0x2a}
0xb2a1…b2cd Line {l1=0x2a, l2=» IOPEN(OMVPROD.A); CHECK0(OMVPROD.A); «, l3=0x2a}
0xb2cd…b2f9 Line {l1=0x2a, l2=» IOPEN(KUNORDRE.A); CHECK0(KUNORDRE.A); «, l3=0x2a}
0xb2f9…b325 Line {l1=0x2a, l2=» IOPEN(EMNIFORM.A); CHECK0(EMNIFORM.A); «, l3=0x2a}
0xb325…b351 Line {l1=0x2a, l2=» IOPEN(PROD.A); CHECK0(PROD.A); «, l3=0x2a}
0xb351…b37d Line {l1=0x2a, l2=» IOPEN(UGEDAG.A); CHECK0(UGEDAG.A); «, l3=0x2a}
0xb37d…b3a9 Line {l1=0x2a, l2=» IOPEN(ARBEDAG.A); CHECK0(ARBEDAG.A); «, l3=0x2a}
0xb3a9…b3d7 Line {l1=0x2c, l2=» IOPEN(ORDTEKST.A); CHECK0(ORDTEKST.A); «, l3=0x2c}
0xb3d7…b3e1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0xb3e1…b3f3 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0xb3f3…b407 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0xb407…b43a Line {l1=0x31, l2=» WRITELN('U D S K R I F T S - P R O G R A M');«, l3=0x31}
0xb43a…b45c Line {l1=0x20, l2=» CH:=QJN('Flere udskrifter');«, l3=0x20}
0xb45c…b473 Line {l1=0x15, l2=» IF CH IN JA THEN «, l3=0x15}
0xb473…b489 Line {l1=0x14, l2=» IF RESPRINT THEN«, l3=0x14}
0xb489…b494 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0xb494…b4a5 Line {l1=0x0f, l2=» MAINTAIN;«, l3=0x0f}
0xb4a5…b4b3 Line {l1=0x0c, l2=» FREEPR«, l3=0x0c}
0xb4b3…b4bc Line {l1=0x07, l2=» END«, l3=0x07}
0xb4bc…b4d0 Line {l1=0x12, l2=» UNTIL CH IN NEJ;«, l3=0x12}
0xb4d0…b4e7 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0xb4e7…b4fb Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0xb4fb…b512 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0xb512…b527 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0xb527…b53e Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0xb53e…b556 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0xb556…b56e Line {l1=0x16, l2=» ICLOSE(REGLI.A); «, l3=0x16}
0xb56e…b585 Line {l1=0x15, l2=» ICLOSE(KUNEMNE.A); «, l3=0x15}
0xb585…b59c Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0xb59c…b5b3 Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0xb5b3…b5ca Line {l1=0x15, l2=» ICLOSE(EMNIFORM.A);«, l3=0x15}
0xb5ca…b5de Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0xb5de…b5f3 Line {l1=0x13, l2=» ICLOSE(UGEDAG.A);«, l3=0x13}
0xb5f3…b609 Line {l1=0x14, l2=» ICLOSE(ARBEDAG.A);«, l3=0x14}
0xb609…b620 Line {l1=0x15, l2=» ICLOSE(ORDTEKST.A);«, l3=0x15}
0xb620…b649 Line {l1=0x27, l2=» (*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x27}
0xb649…b659 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0xb659…b65f Line {l1=0x04, l2=»END;«, l3=0x04}
0xb65f…b667 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0xb667…b66e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0xb66e…b688 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0xb688…b6a0 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0xb6a0…b6b6 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0xb6b6…b6c6 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0xb6c6…b6cf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0xb6cf…b6f2 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0xb6f2…b6fe Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0xb6fe…b74e Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0xb74e…b75e Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0xb75e…b79e Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0xb79e…b7ee Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0xb7ee…b807 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0xb807…b821 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0xb821…b83f Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0xb83f…b850 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0xb850…b871 Line {l1=0x1f, l2=» DESCNAVN:='UDSKDESC:P2:05:J';«, l3=0x1f}
0xb871…b87d Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0xb87d…b895 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0xb895…b8ae Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0xb8ae…b8cc Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0xb8cc…b8e1 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0xb8e1…b909 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0xb909…b92b Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0xb92b…b960 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0xb960…b966 Line {l1=0x04, l2=»END.«, l3=0x04}
0xb966…b980 00 00 00 00 20 20 4b 55 4e 44 45 2e 41 28 2d 33 29 3a 3d 31 3b 11 14 20 20 45 ┆ KUNDE.A(-3):=1; E┆
0xb980…b9a0 4d 4e 45 2e 41 28 2d 33 29 3a 3d 32 3b 20 20 20 20 14 12 20 20 52 5d 56 41 52 45 2e 41 28 2d 33 ┆MNE.A(-3):=2; RÅVARE.A(-3┆
0xb9a0…b9c0 29 3a 3d 35 3b 12 14 20 20 4f 50 45 52 41 2e 41 28 2d 33 29 3a 3d 36 3b 20 20 20 14 12 20 20 53 ┆):=5; OPERA.A(-3):=6; S┆
0xb9c0…b9e0 59 53 54 45 4d 2e 41 28 2d 33 29 3a 3d 39 3b 12 16 20 20 50 52 4f 44 2e 41 28 2d 33 29 3a 3d 31 ┆YSTEM.A(-3):=9; PROD.A(-3):=1┆
0xb9e0…ba00 34 3b 20 20 20 20 20 16 16 20 20 4f 52 44 52 45 2e 41 28 2d 33 29 3a 3d 31 30 3b 20 20 20 20 16 ┆4; ORDRE.A(-3):=10; ┆
0xba00…ba20 16 20 20 52 45 47 4c 49 2e 41 28 2d 33 29 3a 3d 31 36 3b 20 20 20 20 16 16 20 20 4b 55 4e 45 4d ┆ REGLI.A(-3):=16; KUNEM┆
0xba20…ba40 4e 45 2e 41 28 2d 33 29 3a 3d 31 39 3b 20 20 16 16 20 20 4f 4d 56 50 52 4f 44 2e 41 28 2d 33 29 ┆NE.A(-3):=19; OMVPROD.A(-3)┆
0xba40…ba60 3a 3d 31 33 3b 20 20 16 16 20 20 4b 55 4e 4f 52 44 52 45 2e 41 28 2d 33 29 3a 3d 31 38 3b 20 16 ┆:=13; KUNORDRE.A(-3):=18; ┆
0xba60…ba80 16 20 20 45 4d 4e 49 46 4f 52 4d 2e 41 28 2d 33 29 3a 3d 32 30 3b 20 16 09 20 20 28 2a 24 52 2b ┆ EMNIFORM.A(-3):=20; (*$R+┆
0xba80…baa0 2a 29 09 2c 20 20 28 2a 40 40 45 56 54 2e 20 5d 42 4e 49 4e 47 20 41 46 20 41 4e 44 52 45 20 41 ┆*) , (*@@EVT. ÅBNING AF ANDRE A┆
0xbaa0…bac0 4e 44 52 45 20 44 41 54 41 46 49 4c 45 52 2a 29 2c 25 20 20 49 4f 50 45 4e 28 53 59 53 54 45 4d ┆NDRE DATAFILER*),% IOPEN(SYSTEM┆
0xbac0…bae0 2e 41 29 3b 20 43 48 45 43 4b 30 28 53 59 53 54 45 4d 2e 41 29 3b 20 25 0f 20 20 53 59 53 54 45 ┆.A); CHECK0(SYSTEM.A); % SYSTE┆
0xbae0…bb00 4d 2e 4e 52 3a 3d 30 3b 0f 24 20 20 47 45 54 52 45 43 28 53 59 53 54 45 4d 2e 41 29 3b 43 48 45 ┆M.NR:=0; $ GETREC(SYSTEM.A);CHE┆
0xbb00…bb20 43 4b 30 28 53 59 53 54 45 4d 2e 41 29 3b 24 13 20 20 49 43 4c 4f 53 45 28 53 59 53 54 45 4d 2e ┆CK0(SYSTEM.A);$ ICLOSE(SYSTEM.┆
0xbb20…bb40 41 29 3b 13 2a 20 20 49 4f 50 45 4e 28 52 45 53 53 2e 41 29 3b 20 20 20 20 20 43 48 45 43 4b 30 ┆A); * IOPEN(RESS.A); CHECK0┆
0xbb40…bb60 28 52 45 53 53 2e 41 29 3b 20 20 20 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 4b 55 4e 44 45 2e 41 ┆(RESS.A); ** IOPEN(KUNDE.A┆
0xbb60…bb80 29 3b 20 20 20 20 43 48 45 43 4b 30 28 4b 55 4e 44 45 2e 41 29 3b 20 20 20 20 20 2a 2a 20 20 49 ┆); CHECK0(KUNDE.A); ** I┆
0xbb80…bba0 4f 50 45 4e 28 45 4d 4e 45 2e 41 29 3b 20 20 20 20 20 43 48 45 43 4b 30 28 45 4d 4e 45 2e 41 29 ┆OPEN(EMNE.A); CHECK0(EMNE.A)┆
0xbba0…bbc0 3b 20 20 20 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 52 5d 56 41 52 45 2e 41 29 3b 20 20 20 43 48 ┆; ** IOPEN(RÅVARE.A); CH┆
0xbbc0…bbe0 45 43 4b 30 28 52 5d 56 41 52 45 2e 41 29 3b 20 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 4f 50 45 ┆ECK0(RÅVARE.A); ** IOPEN(OPE┆
0xbbe0…bc00 52 41 2e 41 29 3b 20 20 20 20 43 48 45 43 4b 30 28 4f 50 45 52 41 2e 41 29 3b 20 20 20 20 20 2a ┆RA.A); CHECK0(OPERA.A); *┆
0xbc00…bc20 2a 20 20 49 4f 50 45 4e 28 4f 52 44 52 45 2e 41 29 3b 20 20 20 20 43 48 45 43 4b 30 28 4f 52 44 ┆* IOPEN(ORDRE.A); CHECK0(ORD┆
0xbc20…bc40 52 45 2e 41 29 3b 20 20 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 52 45 47 4c 49 2e 41 29 3b 20 20 ┆RE.A); ** IOPEN(REGLI.A); ┆
0xbc40…bc60 20 20 43 48 45 43 4b 30 28 52 45 47 4c 49 2e 41 29 3b 20 20 20 20 20 2a 2a 20 20 49 4f 50 45 4e ┆ CHECK0(REGLI.A); ** IOPEN┆
0xbc60…bc80 28 4b 55 4e 45 4d 4e 45 2e 41 29 3b 20 20 43 48 45 43 4b 30 28 4b 55 4e 45 4d 4e 45 2e 41 29 3b ┆(KUNEMNE.A); CHECK0(KUNEMNE.A);┆
0xbc80…bca0 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 4f 4d 56 50 52 4f 44 2e 41 29 3b 20 20 43 48 45 43 4b 30 ┆ ** IOPEN(OMVPROD.A); CHECK0┆
0xbca0…bcc0 28 4f 4d 56 50 52 4f 44 2e 41 29 3b 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 4b 55 4e 4f 52 44 52 ┆(OMVPROD.A); ** IOPEN(KUNORDR┆
0xbcc0…bce0 45 2e 41 29 3b 20 43 48 45 43 4b 30 28 4b 55 4e 4f 52 44 52 45 2e 41 29 3b 20 20 2a 2a 20 20 49 ┆E.A); CHECK0(KUNORDRE.A); ** I┆
0xbce0…bd00 4f 50 45 4e 28 45 4d 4e 49 46 4f 52 4d 2e 41 29 3b 20 43 48 45 43 4b 30 28 45 4d 4e 49 46 4f 52 ┆OPEN(EMNIFORM.A); CHECK0(EMNIFOR┆
0xbd00…bd20 4d 2e 41 29 3b 20 20 2a 2a 20 20 49 4f 50 45 4e 28 50 52 4f 44 2e 41 29 3b 20 20 20 20 20 43 48 ┆M.A); ** IOPEN(PROD.A); CH┆
0xbd20…bd40 45 43 4b 30 28 50 52 4f 44 2e 41 29 3b 20 20 20 20 20 20 2a 2a 20 20 49 4f 50 45 4e 28 55 47 45 ┆ECK0(PROD.A); ** IOPEN(UGE┆
0xbd40…bd60 44 41 47 2e 41 29 3b 20 20 20 43 48 45 43 4b 30 28 55 47 45 44 41 47 2e 41 29 3b 20 20 20 20 2a ┆DAG.A); CHECK0(UGEDAG.A); *┆
0xbd60…bd80 2a 20 20 49 4f 50 45 4e 28 41 52 42 45 44 41 47 2e 41 29 3b 20 20 43 48 45 43 4b 30 28 41 52 42 ┆* IOPEN(ARBEDAG.A); CHECK0(ARB┆
0xbd80…bda0 45 44 41 47 2e 41 29 3b 20 20 20 2a 2c 20 20 49 4f 50 45 4e 28 4f 52 44 54 45 4b 53 54 2e 41 29 ┆EDAG.A); *, IOPEN(ORDTEKST.A)┆
0xbda0…bdc0 3b 20 43 48 45 43 4b 30 28 4f 52 44 54 45 4b 53 54 2e 41 29 3b 20 20 20 20 2c 08 20 20 52 45 50 ┆; CHECK0(ORDTEKST.A); , REP┆
0xbdc0…bde0 45 41 54 08 10 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 10 12 20 20 20 20 47 4f 54 4f 58 ┆EAT CLEARSCREEN; GOTOX┆
0xbde0…be00 59 28 31 30 2c 31 30 29 3b 12 31 20 20 20 20 57 52 49 54 45 4c 4e 28 27 55 20 44 20 53 20 4b 20 ┆Y(10,10); 1 WRITELN('U D S K ┆
0xbe00…be20 52 20 49 20 46 20 54 20 53 20 2d 20 50 20 52 20 4f 20 47 20 52 20 41 20 4d 27 29 3b 31 20 20 20 ┆R I F T S - P R O G R A M');1 ┆
0xbe20…be40 20 20 43 48 3a 3d 51 4a 4e 28 27 46 6c 65 72 65 20 75 64 73 6b 72 69 66 74 65 72 27 29 3b 20 15 ┆ CH:=QJN('Flere udskrifter'); ┆
0xbe40…be60 20 20 20 20 49 46 20 43 48 20 49 4e 20 4a 41 20 54 48 45 4e 20 15 14 20 20 20 20 49 46 20 52 45 ┆ IF CH IN JA THEN IF RE┆
0xbe60…be80 53 50 52 49 4e 54 20 54 48 45 4e 14 09 20 20 20 20 42 45 47 49 4e 09 0f 20 20 20 20 20 20 4d 41 ┆SPRINT THEN BEGIN MA┆
0xbe80…bea0 49 4e 54 41 49 4e 3b 0f 0c 20 20 20 20 20 20 46 52 45 45 50 52 0c 07 20 20 20 20 45 4e 44 07 12 ┆INTAIN; FREEPR END ┆
0xbea0…bec0 20 20 55 4e 54 49 4c 20 43 48 20 49 4e 20 4e 45 4a 3b 12 15 20 20 49 43 4c 4f 53 45 28 52 45 53 ┆ UNTIL CH IN NEJ; ICLOSE(RES┆
0xbec0…bee0 53 2e 41 29 3b 20 20 20 20 15 12 20 20 49 43 4c 4f 53 45 28 4b 55 4e 44 45 2e 41 29 3b 12 15 20 ┆S.A); ICLOSE(KUNDE.A); ┆
0xbee0…bf00 20 49 43 4c 4f 53 45 28 45 4d 4e 45 2e 41 29 3b 20 20 20 20 15 13 20 20 49 43 4c 4f 53 45 28 52 ┆ ICLOSE(EMNE.A); ICLOSE(R┆
0xbf00…bf20 5d 56 41 52 45 2e 41 29 3b 13 15 20 20 49 43 4c 4f 53 45 28 4f 50 45 52 41 2e 41 29 3b 20 20 20 ┆ÅVARE.A); ICLOSE(OPERA.A); ┆
0xbf20…bf40 15 16 20 20 49 43 4c 4f 53 45 28 4f 52 44 52 45 2e 41 29 3b 20 20 20 20 16 16 20 20 49 43 4c 4f ┆ ICLOSE(ORDRE.A); ICLO┆
0xbf40…bf60 53 45 28 52 45 47 4c 49 2e 41 29 3b 20 20 20 20 16 15 20 20 49 43 4c 4f 53 45 28 4b 55 4e 45 4d ┆SE(REGLI.A); ICLOSE(KUNEM┆
0xbf60…bf80 4e 45 2e 41 29 3b 20 15 15 20 20 49 43 4c 4f 53 45 28 4f 4d 56 50 52 4f 44 2e 41 29 3b 20 15 15 ┆NE.A); ICLOSE(OMVPROD.A); ┆
0xbf80…bfa0 20 20 49 43 4c 4f 53 45 28 4b 55 4e 4f 52 44 52 45 2e 41 29 3b 15 15 20 20 49 43 4c 4f 53 45 28 ┆ ICLOSE(KUNORDRE.A); ICLOSE(┆
0xbfa0…bfc0 45 4d 4e 49 46 4f 52 4d 2e 41 29 3b 15 12 20 20 49 43 4c 4f 53 45 28 50 52 4f 44 2e 41 29 3b 20 ┆EMNIFORM.A); ICLOSE(PROD.A); ┆
0xbfc0…bfe0 12 13 20 20 49 43 4c 4f 53 45 28 55 47 45 44 41 47 2e 41 29 3b 13 14 20 20 49 43 4c 4f 53 45 28 ┆ ICLOSE(UGEDAG.A); ICLOSE(┆
0xbfe0…c000 41 52 42 45 44 41 47 2e 41 29 3b 14 15 20 20 49 43 4c 4f 53 45 28 4f 52 44 54 45 4b 53 54 2e 41 ┆ARBEDAG.A); ICLOSE(ORDTEKST.A┆
0xc000…c020 29 3b 15 27 20 20 28 2a 40 40 45 56 54 2e 20 4c 55 4b 4e 49 4e 47 20 41 46 20 41 4e 44 52 45 20 ┆); ' (*@@EVT. LUKNING AF ANDRE ┆
0xc020…c040 44 41 54 41 46 49 4c 45 52 2a 29 27 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 20 0e 04 45 4e 44 ┆DATAFILER*)' CLEARSCREEN END┆
0xc040…c060 3b 04 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 18 20 20 53 45 4d 41 46 4f 52 3a 3d 27 41 4c ┆; (*$P*) BEGIN SEMAFOR:='AL┆
0xc060…c080 4c 4f 43 4f 4d 42 55 46 27 3b 18 16 20 20 49 3a 3d 4f 52 44 28 50 41 52 4d 5e 28 31 29 29 2d 34 ┆LOCOMBUF'; I:=ORD(PARM^(1))-4┆
0xc080…c0a0 38 3b 16 14 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 4d 45 4e 49 47 3b 14 0e 20 20 57 48 49 4c ┆8; USERNIVEAU:=MENIG; WHIL┆
0xc0a0…c0c0 45 20 49 3e 30 20 44 4f 0e 07 20 20 42 45 47 49 4e 07 21 20 20 20 20 55 53 45 52 4e 49 56 45 41 ┆E I>0 DO BEGIN ! USERNIVEA┆
0xc0c0…c0e0 55 3a 3d 53 55 43 43 28 55 53 45 52 4e 49 56 45 41 55 29 3b 21 0a 20 20 20 20 49 3a 3d 49 2d 31 ┆U:=SUCC(USERNIVEAU);! I:=I-1┆
0xc0e0…c100 0a 4e 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ N END; ┆
0xc100…c120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0xc120…c140 20 20 20 20 20 20 20 20 20 28 2a 24 52 2d 2a 29 4e 0e 20 20 53 4e 59 44 28 2d 33 29 3a 3d 30 3b ┆ (*$R-*)N SNYD(-3):=0;┆
0xc140…c160 0e 3e 20 20 46 4f 52 20 49 3a 3d 36 20 44 4f 57 4e 54 4f 20 32 20 44 4f 20 53 4e 59 44 28 2d 33 ┆ > FOR I:=6 DOWNTO 2 DO SNYD(-3┆
0xc160…c180 29 3a 3d 31 30 2a 53 4e 59 44 28 2d 33 29 2b 4f 52 44 28 50 41 52 4d 5e 28 49 29 29 2d 34 38 3b ┆):=10*SNYD(-3)+ORD(PARM^(I))-48;┆
0xc180…c1a0 3e 4e 20 20 49 46 20 50 41 52 4d 5e 28 37 29 3d 27 2d 27 20 54 48 45 4e 20 53 4e 59 44 28 2d 33 ┆>N IF PARM^(7)='-' THEN SNYD(-3┆
0xc1a0…c1c0 29 3a 3d 2d 53 4e 59 44 28 2d 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆):=-SNYD(-3); ┆
0xc1c0…c1e0 20 20 20 20 20 20 20 20 20 28 2a 24 52 2b 2a 29 4e 17 20 20 55 44 46 5c 52 28 50 54 49 4c 4d 45 ┆ (*$R+*)N UDFØR(PTILME┆
0xc1e0…c200 4c 44 2c 53 4e 59 44 29 3b 17 18 20 20 55 44 46 5c 52 54 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 ┆LD,SNYD); UDFØRT(PTILMELD,SNY┆
0xc200…c220 44 29 3b 18 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 31 2c 49 45 52 29 ┆D); IF IER<>0 THEN BAD(1,IER)┆
0xc220…c240 3b 1c 0f 28 2a 40 40 54 49 4c 50 41 53 53 45 53 2a 29 0f 1f 20 20 44 45 53 43 4e 41 56 4e 3a 3d ┆; (*@@TILPASSES*) DESCNAVN:=┆
0xc240…c260 27 55 44 53 4b 44 45 53 43 3a 50 32 3a 30 35 3a 4a 27 3b 1f 0a 20 20 52 45 47 56 45 44 4c 3b 0a ┆'UDSKDESC:P2:05:J'; REGVEDL; ┆
0xc260…c280 16 20 20 55 44 46 5c 52 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 55 44 46 5c 52 ┆ UDFØR(PAFMELD,SNYD); UDFØR┆
0xc280…c2a0 54 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 ┆T(PAFMELD,SNYD); IF IER<>0 TH┆
0xc2a0…c2c0 45 4e 20 42 41 44 28 32 2c 49 45 52 29 3b 1c 13 20 20 46 4e 41 56 4e 3a 3d 27 20 20 20 20 20 20 ┆EN BAD(2,IER); FNAVN:=' ┆
0xc2c0…c2e0 20 27 3b 13 26 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 4e 28 49 29 ┆ '; & FOR I:=1 TO 7 DO FNAVN(I)┆
0xc2e0…c300 3a 3d 50 41 52 4d 5e 28 49 29 3b 26 20 20 20 43 48 41 49 4e 28 27 48 4f 56 45 44 20 20 20 2a 31 ┆:=PARM^(I);& CHAIN('HOVED *1┆
0xc300…c320 27 2c 46 4e 41 56 4e 2c 51 55 51 29 3b 20 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 ┆',FNAVN,QUQ); 3 IF IORESULT<>0 ┆
0xc320…c340 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c ┆THEN WRITELN('IORESULT ',IORESUL┆
0xc340…c360 54 29 33 04 45 4e 44 2e 04 00 00 44 2e 04 00 00 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 ┆T)3 END. D. HEN WRITELN('IOR┆
0xc360…c380 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 20 26 1a 2e 00 2b ┆ESULT ',IORESULT)3 END. & . +┆
0xc380…c3a0 7d d3 21 7c d3 21 97 d3 2a db d5 e6 84 ca 09 50 fe 80 c2 37 50 db d6 3e 01 d3 d5 3a bc 61 5f 16 ┆å !ø ! * P 7P > : a_ ┆
0xc3a0…c3c0 00 21 bc 61 06 1a 0e 00 09 2b 7e 2a 0c 5b 19 5f 19 22 0c 5b c3 f0 4f 3e 00 d3 d6 cd c3 4e c0 3a ┆ ! a +ü* Æ _ " Æ O> N :┆
0xc3c0…c3e0 06 5b e6 ef fe 81 3e 34 c0 d3 2c db 20 21 bc 61 bd c2 5d 50 db 20 bc c2 5d 50 c3 6a 50 3a bc 61 ┆ Æ >4 , ! a ÅP ÅP jP: a┆
0xc3e0…c400 5f 16 00 2a 0c 5b 19 22 0c 5b 3e 00 d3 d5 32 04 5b 2a 0c 5b eb 2a 0e 5b 7d bb 3e 25 c0 7c ba 3e ┆_ * Æ " Æ> 2 Æ* Æ * Æå >% ø >┆
0xc400…c420 25 c0 97 c9 3a 24 ad a7 c8 fe 46 ca 6a ab fe 54 c2 de 50 db d5 e6 84 c8 fe 80 ca c3 50 fe 84 ca ┆% :$ F j T P P ┆
0xc420…c440 c3 50 3e 00 d3 d6 cd c3 4e 3a 06 5b e6 ef fe 81 3a d0 54 ca be 50 f6 20 32 d0 54 c3 c3 50 f6 40 ┆ P> N: Æ : T P 2 T P @┆
0xc440…c460 32 d0 54 3a 04 5b d3 d5 db d6 3a 02 5b e6 07 d3 d6 97 32 24 ad 3a d2 54 f6 01 32 d2 54 c9 97 c9 ┆2 T: Æ : Æ 2$ : T 2 T ┆
0xc460…c480 e5 21 fe 5a 6e 2d e1 ca 7f ac 97 c9 c5 d5 e5 2a da 54 22 4c 5b 21 00 00 22 3f 5b 97 32 41 5b 3c ┆ ! Zn- * T"LÆ! "?Æ 2AÆ<┆
0xc480…c4a0 32 42 5b 21 2c 5b 3e 01 cd d0 00 a7 e1 d1 c1 c8 f6 01 c9 c5 d5 e5 2a da 54 22 4c 5b 21 00 00 22 ┆2BÆ!,Æ> * T"LÆ! "┆
0xc4a0…c4c0 3f 5b 97 32 41 5b 3c 32 42 5b 21 2c 5b 3e 02 cd d0 00 a7 e1 d1 c1 c8 f6 01 c9 d5 7d fe 54 ca 94 ┆?Æ 2AÆ<2BÆ!,Æ> å T ┆
0xc4c0…c4e0 51 eb 21 a0 53 cd ca 00 a7 c2 8f 51 2a c0 53 11 0b 00 19 11 13 00 46 21 8c 53 7e b8 ca 79 51 fe ┆Q ! S Q* S F! Sü yQ ┆
0xc4e0…c500 ff ca 6c 51 23 1d ca 8f 51 c3 5a 51 23 1d ca 8f 51 23 1d ca 8f 51 c3 5a 51 7e fe ff ca 87 51 23 ┆ lQ# Q ZQ# Q# Q ZQü Q#┆
0xc500…c520 1d ca 8f 51 c3 79 51 23 97 7e 2a c0 53 d1 c9 3e 0a a7 d1 c9 97 3e 54 21 10 5b d1 c9 3a fe 5a a7 ┆ Q yQ# ü* S > >T! Æ : Z ┆
0xc520…c540 c2 a7 51 97 3e 01 c9 c5 2a f2 58 eb 21 07 00 19 7e 21 02 00 19 5e 23 56 cd 61 a3 4f 45 7c a7 c2 ┆ Q > * X ! ü! ^#V a OEø ┆
0xc540…c560 fa 51 0b 2a da 54 eb 21 07 00 19 7e 2a 66 5b eb cd 61 a3 5f 3a 68 5b 3c 3c 3c 83 5f 7d ce 00 6f ┆ Q * T ! ü*fÆ a _:hÆ<<< _å o┆
0xc560…c580 7c ce 00 67 79 4c 65 6b 5f 50 cd ff 51 c2 fa 51 7b b2 ca f6 51 23 97 7d c1 c9 3e 27 a7 c1 c9 63 ┆ø gyLek_P Q Qæ Q# å >' c┆