|
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: 35392 (0x8a40)
Types: TextFile
Notes: Mikados_K
Names: »LIMORDRE.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMORDRE.K«
PROGRAM LIMORDRE;
(*ORDREREGISTRERING, ORDRESPECIFIK FORKALKULATION,
UDSKRIFT AF FORKALKULATION*)
(*$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;
REGRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
GRUPNR,
NR :INTEGER
END;
EMNEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ÅRSFORBR,
NETTOVÆG,
BRUTTOVÆ,
SAMSALG,
DÆKBID,
DÆKBIDSÅ,
SAMSALGS :REAL;
NR,
FORMNR :INTEGER;
KUNDENR :LONGINT;
MASKINE :INTEGER;
TILDATO :LONGINT;
MATNR,
SVIND,
SMELTTIL,
STKHSA,
STKHBA :INTEGER;
BEMÆRK,
BETEGN,
ALTERNP :PACKED ARRAY (1..30) OF CHAR;
TEGNNR :PACKED ARRAY (1..20) OF CHAR
END;
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;
MEDAPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TIMESATS,
PERSTIME,
TOTTIMLØ,
PRODTIME,
AKKORDLØ,
AKKORDAR :REAL;
NR,
AFDELING :INTEGER;
NAVN :PACKED ARRAY (1..30) 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;
LØNGPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TIMESATS :REAL;
NR :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;
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;
OMVPPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
ORDRENR,
SEKVENSN,
OPERANR,
EMNENR :INTEGER
END;
FORKPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KRSTK :REAL;
EMNENR,
SEKVENSN,
OPERANR,
LØNTYPE,
STKH,
RESS1,
RESS2,
RESS3,
RESS4,
RESS5 :INTEGER;
ORDRENR:INTEGER;
KUNDENR:LONGINT;
ØLEVTERM:INTEGER;
INIT:PACKED ARRAY (1..4) OF CHAR;
KUORDNR:PACKED ARRAY (1..16) 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;
(*$P*)
VAR FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
OPTION,LINES,
I,J,ANTALFELTER:INTEGER;
LINE:STRING;
RESS:RESSPOST;
KUNDE:KUNDPOST;
RESSGRUP:REGRPOST;
EMNE:EMNEPOST;
RÅVARE:RÅVAPOST;
MEDARB:MEDAPOST;
OPERA:OPERPOST;
LØNGRUP:LØNGPOST;
PROD:PRODPOST;
OMVPROD:OMVPPOST;
ORDRE:ORDRPOST;
ORDTEKST:OTEXPOST;
KUNEMNE:KUNEPOST;
KUNORDRE:KUNOPOST;
EMNIFORM:EMNFPOST;
POST:FORKPOST;
SYSTEM:SYSRPOST;
LONGNUL:LONGINT;
CH:CHAR;
NEJ,JA,JAOGNEJ:SET OF CHAR;
RESSTEXT:ARRAY (10..13) OF PACKED ARRAY (1..10) OF CHAR;
(*$P*)
(*$L-*)
FUNCTION QJN(S:STRING):CHAR;
VAR CH:STRING(1);
BEGIN
REPEAT
D(23,1);
WRITE(S,' J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
QJN:=CH(1);
D(23,1)
END;
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D(23,1);
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
ICLOSE(RESS.A);
ICLOSE(KUNDE.A);
ICLOSE(RESSGRUP.A);
ICLOSE(EMNE.A);
ICLOSE(RÅVARE.A);
ICLOSE(MEDARB.A);
ICLOSE(OPERA.A);
ICLOSE(LØNGRUP.A);
ICLOSE(POST.A);
ICLOSE(OMVPROD.A);
ICLOSE(ORDRE.A);
ICLOSE(KUNEMNE.A);
ICLOSE(KUNORDRE.A);
ICLOSE(EMNIFORM.A);
ICLOSE(PROD.A);
ICLOSE(ORDTEKST.A);
ICLOSE(SYSTEM.A);
EXIT(REGVEDL)
END;
PROCEDURE CHECK0(VAR REC:AR);
BEGIN
IF IER<>0 THEN ERROR(REC)
END;
(*$P*)
(*$L-*)
(*$IRLÆSDESC*)
(*$P*)
(*$IMOVETOLI*)
(*$P*)
(*$L+*)
PROCEDURE MAINTAIN;
VAR CH:CHAR;
FELTNR:INTEGER;
KALKULER:BOOLEAN;
(*
PROCEDURE SKRIVLINIE;
VAR J:INTEGER;
HKRSTK:REAL;
BEGIN
WITH POST DO
BEGIN
SKRIVFELT(PICTURE(1));
SKRIVFELT(PICTURE(2));
SKRIVFELT(PICTURE(3));
OPERA.NR:=OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=0 THEN BEGIN GOTOXY(25,6);WRITE(OPERA.BETEGN) END;
GOTOXY(1,7);
WRITE(' 4 Stk/h :');
IF STKH<0 THEN WRITE('T');
WRITE(ABS(STKH));
HKRSTK:=KRSTK;KRSTK:=0.0;
FOR J:=5 TO 9 DO SKRIVFELT(PICTURE(J));
KRSTK:=HKRSTK;
IF LØNTYPE>0 THEN SKRIVFELT(PICTURE(4+LØNTYPE));
GOTOXY(1,13);
FOR J:=10 TO 13 DO
BEGIN
WRITE(J:2,' ',RESSTEXT(J),' :');
CASE J OF
10:IF RESS1<0 THEN WRITELN('*',-RESS1:6) ELSE WRITELN(RESS1:7);
11:IF RESS2<0 THEN WRITELN('*',-RESS2:6) ELSE WRITELN(RESS2:7);
12:IF RESS3<0 THEN WRITELN('*',-RESS3:6) ELSE WRITELN(RESS3:7);
13:IF RESS4<0 THEN WRITELN('*',-RESS4:6) ELSE WRITELN(RESS4:7)
END
END
END
END;
*)
(*$P*)
(*
PROCEDURE ÆNDLINIE(FELTNR:INTEGER);
VAR CH:CHAR;
RESSURS:INTEGER;
BEGIN
WITH POST DO
BEGIN
IF FELTNR IN (.5..9.) THEN
BEGIN
KRSTK:=0.0;
IF LØNTYPE>0 THEN SKRIVFELT(PICTURE(LØNTYPE+4));
LØNTYPE:=FELTNR-4
END;
IF FELTNR IN (.5..7.) THEN BEGIN LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR))
END;
CASE FELTNR OF
4:BEGIN
REPEAT
STKH:=0;
D(23,1);
WRITE(' Stk/h ');
READLN;
IF NOT EOLN THEN
BEGIN
IF INPUT^ IN (.'T','t'.) THEN READ(CH);
IF INPUT^ IN (.'0'..'9'.) THEN READ(STKH);
IF CH IN (.'T','t'.) THEN STKH:=-STKH
END
UNTIL STKH<>0;
GOTOXY(17,7);
IF STKH<0 THEN WRITE('T',-STKH) ELSE WRITE(STKH)
END;
8:REPEAT
LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR));
LØNGRUP.NR:=TRUNC(KRSTK);
GETREC(LØNGRUP.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(LØNGRUP.A);
IF IER=-6 THEN NONEXIST('Løngruppe')
UNTIL IER=0;
9:REPEAT
LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR));
MEDARB.NR:=TRUNC(KRSTK);
GETREC(MEDARB.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(MEDARB.A);
IF IER=-6 THEN NONEXIST('Medarbejder')
UNTIL IER=0;
10,11,12,13:
BEGIN
REPEAT
CH:='Æ';
D(23,1);
WRITE(FELTNR:2,' ',RESSTEXT(FELTNR),' :');
READLN;
IF EOLN THEN
BEGIN
CH:='Å';
RESSURS:=0
END
ELSE
IF INPUT^='*' THEN
BEGIN
READ(CH);
IF INPUT^ IN (.'0'..'9'.) THEN
BEGIN
READ(RESSURS);
RESSURS:=-RESSURS;
RESSGRUP.GRUPNR:=-RESSURS;
RESSGRUP.NR:=-1;
NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(RESSGRUP.A);
IF RESSGRUP.GRUPNR<>-RESSURS THEN
NONEXIST('Ressourcegruppe')
ELSE CH:='Å'
END
END
ELSE
BEGIN
IF INPUT^ IN (.'0'..'9'.) THEN
BEGIN
READ(RESSURS);
IF RESSURS<>0 THEN
BEGIN
RESS.NR:=RESSURS;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=-6 THEN NONEXIST('Ressource')
ELSE CH:='Å'
END ELSE CH:='Å'
END
END
UNTIL CH='Å';
GOTOXY(1,FELTNR+3);
WRITE(FELTNR:2,' ',RESSTEXT(FELTNR),' :');
IF RESSURS<0 THEN WRITE('*',-RESSURS:6) ELSE WRITE(RESSURS:7);
CASE FELTNR OF
10:RESS1:=RESSURS;
11:RESS2:=RESSURS;
12:RESS3:=RESSURS;
13:RESS4:=RESSURS
END
END
END
END
END;
*)
(*$P*)
PROCEDURE TILPASFORK;
VAR FELTNR:INTEGER;
PROCEDURE FIXSATS(VAR RESSURS:INTEGER;VAR OMKOST:REAL);
VAR SATS:REAL;
BEGIN
IF RESSURS>0 THEN
BEGIN
RESS.NR:=RESSURS;
GETREC(RESS.A);IF IER<>0 THEN ERROR(RESS.A);
SATS:=RESS.TSATSF
END
ELSE
IF RESSURS<0 THEN
BEGIN
RESSGRUP.GRUPNR:=-RESSURS;
RESSGRUP.NR:=-1;
NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(RESSGRUP.A);IER:=0;
RESS.NR:=RESSGRUP.NR;
GETREC(RESS.A);IF IER<>0 THEN ERROR(RESS.A);
SATS:=RESS.TSATSF
END
ELSE SATS:=0.0;
IF SATS<>0.0 THEN
WITH PROD,ORDRE DO
BEGIN
IF STKH<=0 THEN
OMKOST:=-STKH*SATS/ANTALBES/100.0+OMKOST
ELSE
OMKOST:=SATS/STKH+OMKOST;
KRSTK:=KRSTK+SATS
END
END;
(*$P*)
BEGIN (*TILPASFORK*)
POST.EMNENR:=EMNE.NR;
POST.SEKVENSN:=0;
POST.OPERANR:=0;
NEXTREC(POST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST.A);IER:=0;
WHILE (IER=0) AND (POST.EMNENR=EMNE.NR) DO
BEGIN
(*
CLEARSCREEN;
SKRIVLINIE;
IF QJN('Skal operationen med') IN JA THEN
BEGIN
REPEAT
REPEAT
D(23,1);
WRITE('Ændring af feltnr 4-13, 0 for færdig ');
READLN;READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR IN (.0,4..13.));
IF FELTNR>0 THEN ÆNDLINIE(FELTNR)
UNTIL FELTNR=0;
*)
PROD.ORDRENR:=ORDRE.NR;
PROD.EMNENR:=ORDRE.EMNENR;
PROD.SEKVENSN:=POST.SEKVENSN;
PROD.OPERANR:=POST.OPERANR;
PROD.STKH:=POST.STKH;
PROD.REAANTAL:=0.0;
PROD.STARTTID:=0;
PROD.OPERAFSL:=0;
PROD.RESS1:=POST.RESS1;
PROD.RESS2:=POST.RESS2;
PROD.RESS3:=POST.RESS3;
PROD.RESS4:=POST.RESS4;
PROD.RESS5:=POST.RESS5;
CASE POST.LØNTYPE OF
1:IF POST.STKH<0 THEN
PROD.KRSTK:=-POST.KRSTK/POST.STKH/100.0
ELSE
PROD.KRSTK:=POST.KRSTK*POST.STKH;
2:PROD.KRSTK:=POST.KRSTK;
3:PROD.KRSTK:=SYSTEM.AKKTIME(TRUNC(POST.KRSTK));
4:BEGIN
LØNGRUP.NR:=TRUNC(POST.KRSTK);
GETREC(LØNGRUP.A);IF IER<>0 THEN ERROR(LØNGRUP.A);
PROD.KRSTK:=LØNGRUP.TIMESATS
END;
5:BEGIN
MEDARB.NR:=TRUNC(POST.KRSTK);
GETREC(MEDARB.A);IF IER<>0 THEN ERROR(MEDARB.A);
PROD.KRSTK:=MEDARB.TIMESATS
END
END;
IF PROD.STKH<=0 THEN
BEGIN
PROD.VARIGHED:=ROUND(-PROD.STKH/100.0+0.499);
ORDRE.LØNOMK:=-PROD.STKH*PROD.KRSTK/ORDRE.ANTALBES/100.0+ORDRE.LØNOMK
END
ELSE
BEGIN
PROD.VARIGHED:=ROUND(ORDRE.ANTALBES/PROD.STKH+0.499);
ORDRE.LØNOMK:=PROD.KRSTK/PROD.STKH+ORDRE.LØNOMK
END;
FIXSATS(PROD.RESS1,ORDRE.MASKINOM);(*MASKINE*)
FIXSATS(PROD.RESS2,ORDRE.LØNOMK); (*OPERATØR*)
FIXSATS(PROD.RESS3,ORDRE.MASKINOM);(*VÆRKTØJ*)
FIXSATS(PROD.RESS4,ORDRE.MASKINOM);(*HJÆLPEVÆRKTØJ*)
INSERT(PROD.A);IF IER<>0 THEN ERROR(PROD.A);
OMVPROD.ORDRENR:=PROD.ORDRENR;
OMVPROD.SEKVENSN:=PROD.SEKVENSN;
OMVPROD.OPERANR:=PROD.OPERANR;
OMVPROD.EMNENR:=PROD.EMNENR;
INSERT(OMVPROD.A);IF IER<>0 THEN ERROR(OMVPROD.A)
(*END*);
NEXTREC(POST.A)
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST.A)
END;
(*$P*)
PROCEDURE BEREGNMAT;
VAR SMELT,FORBRUG,OMK:REAL;
BEGIN
RÅVARE.NR:=EMNE.MATNR;
GETREC(RÅVARE.A);IF IER<>0 THEN ERROR(RÅVARE.A);
WITH RÅVARE,EMNE DO
BEGIN
SMELT:=NETTOVÆG*(1000.0+SVIND)/1000.0*(1000.0+SMELTTIL)/1000.0*
(1000.0+SMESVIND)/1000.0;
OMK:=SMELT*SMEPRIS/1000.0;
(*WRITELN(LIST,'SMELTEOMKOSTNINGER',SMELT:7:3,' g a',SMEPRIS:5:2,
' Kr pr. g',OMK:8:3);*)
ORDRE.SMEOMK:=OMK;
FORBRUG:=SMELT-NETTOVÆG*(1000.0+SVIND)/1000.0*SMELTTIL/1000.0;
OMK:=FORBRUG*KOSTPRIS/1000.0;
(*WRITELN(LIST,'MATERIALEFORBRUG ',FORBRUG:7:3,' g a',KOSTPRIS:5:2,
' Kr pr. g',OMK:8:3);*)
ORDRE.MATFORB:=OMK;
ORDRE.MATOMK:=ORDRE.SMEOMK+OMK
END
END;
(*$P*)
PROCEDURE FORKALKULATION;
VAR LINES:INTEGER;
EMNFOUND,KUNFOUND:BOOLEAN;
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');
IF EMNFOUND THEN
WRITE(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6)
ELSE WRITE(LIST,'IKKE OPRETTET':66);
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,'---------------------------------------------------------',
'------------');
WRITELN(LIST,'TOTAL',' ':35,TTPSTK:8:3,TTOTTID:7:2,TKRPSTK:14:3);
WRITELN(LIST);
IF LINES>34 THEN HEADING;
(*IF KALKULER THEN BEREGNMAT
ELSE
BEGIN*)
WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3);
WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3)
(*END*);
WRITELN(LIST,' ':45,'----------------');
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,'----------------');
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,'--------');
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*)
(*
REPEAT
CH:=QJN('Ønskes testprint');
IF CH IN JA THEN
BEGIN
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WRITELN(LIST,' ':35,'XXXXXX');
FOR LINES:=6 TO 51 DO WRITELN(LIST)
END
UNTIL CH IN NEJ;
*)
LINES:=51;
WITH PROD 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);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);
EMNFOUND:=(IER=0)
END;
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;
BOTTOM;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)
END
END;
(*$P*)
PROCEDURE OPRETORDRE;
VAR I,ANTALEMN:INTEGER;
PROCEDURE OHOVED(VAR I:INTEGER);
BEGIN
LÆSFELT(PICTURE(I));
SKRIVFELT(PICTURE(I));
CASE I OF
12:ORDRE.ANTALBES:=POST.KRSTK;
13:ORDRE.SALGSPRI:=POST.KRSTK;
14:ORDRE.ØNSKLEV:=POST.ØLEVTERM;
15:ORDRE.INITIALE:=POST.INIT;
16:ORDRE.KUNDORDR:=POST.KUORDNR
END
END;
(*$P*)
PROCEDURE VÆLGFELT(FRA:INTEGER);
VAR I:INTEGER;
BEGIN
REPEAT
REPEAT
D(23,1);
WRITE('Ændring af felt',FRA:2,'-7, 0 for færdig ');
READLN;
READ(I)
UNTIL (IORESULT=0) AND ((I IN (.0,4..7.)) OR (I=FRA));
I:=I+9;
IF I>9 THEN OHOVED(I)
UNTIL I=9
END;
PROCEDURE COMMENT;
VAR COMLINE:STRING(70);
I:INTEGER;
BEGIN
WITH ORDTEKST DO
BEGIN
NR:=ORDRE.NR;
EMNENR:=ORDRE.EMNENR;
(*$R-*)
COMLINE(0):=CHR(70);
(*$R+*)
D(22,2);
WRITE('Indtast kommentarlinier. Slut med "." i position 1');
I:=0;
REPEAT
I:=I+1;
FILLCHAR(COMLINE(2),69,' ');
COMLINE(1):='.';
GOTOXY(1,23);
EDIT(COMLINE);
IF COMLINE(1)<>'.' THEN
BEGIN
MOVELEFT(COMLINE(1),TEKST,70);
LBNR:=I;
INSERT(A);IF IER<>0 THEN ERROR(A)
END ELSE I:=10
UNTIL I=10;
D(22,2)
END
END;
(*$P*)
(*$L+*)
BEGIN (*OPRETORDRE*)
REPEAT
LÆSFELT(PICTURE(11));
SKRIVFELT(PICTURE(11));
KUNDE.NR:=POST.KUNDENR;
GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);
IF IER=-6 THEN NONEXIST('Kunden')
UNTIL IER=0;
GOTOXY(40,5);WRITELN(KUNDE.NAVN);
IF QJN('Rigtig kunde') IN JA THEN
BEGIN
GOTOXY(1,6);
WRITELN('Kundens emner');
KUNEMNE.KUNDENR:=KUNDE.NR;
KUNEMNE.EMNENR:=0;
NEXTREC(KUNEMNE.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(KUNEMNE.A);
IER:=0;
ANTALEMN:=0;
WHILE (IER=0) AND (KUNEMNE.KUNDENR=KUNDE.NR) DO
BEGIN
WRITE(KUNEMNE.EMNENR:10);
ANTALEMN:=ANTALEMN+1;
IF ANTALEMN MOD 7=0 THEN WRITELN;
NEXTREC(KUNEMNE.A)
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(KUNEMNE.A);
REPEAT
LÆSFELT(PICTURE(1));
SKRIVFELT(PICTURE(1));
IF POST.EMNENR=0 THEN EXIT(OPRETORDRE);
EMNE.NR:=POST.EMNENR;
GETREC(EMNE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(EMNE.A);
IF IER=-6 THEN NONEXIST('Emnet');
IF EMNE.KUNDENR<>KUNDE.NR THEN
BEGIN
NONEXIST('Emne-kunde');
IER:=-6
END
UNTIL IER=0;
D(6,(ANTALEMN-1) DIV 7+2);
WRITELN('Emner i formen');
EMNIFORM.FORMNR:=EMNE.FORMNR;
EMNIFORM.EMNENR:=0;
NEXTREC(EMNIFORM.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(EMNIFORM.A);
IER:=0;
ANTALEMN:=0;
WHILE (IER=0) AND (EMNIFORM.FORMNR=EMNE.FORMNR) DO
BEGIN
EMNE.NR:=EMNIFORM.EMNENR;
ANTALEMN:=ANTALEMN+1;
GETREC(EMNE.A);IF IER<>0 THEN ERROR(EMNE.A);
WRITELN(EMNE.NR:6,' ',EMNE.BEMÆRK);
NEXTREC(EMNIFORM.A)
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(EMNIFORM.A);
IF ANTALEMN>1 THEN
BEGIN
D(23,1);
WRITE('Bemærk flere emner i form, RETURN ');
READLN;
D(23,1)
END;
D(6,ANTALEMN+1);
EMNE.NR:=POST.EMNENR;
GETREC(EMNE.A);IF IER<>0 THEN ERROR(EMNE.A);
ORDRE.KUNDENR:=KUNDE.NR;
ORDRE.EMNENR:=EMNE.NR;
ORDRE.REGDATO:=SYSTEM.DAGSDATO;
ORDRE.BEKRÆLEV:=0;
LÆSFELT(PICTURE(10));
IF POST.ORDRENR>0 THEN
ORDRE.NR:=POST.ORDRENR
ELSE
BEGIN
GETRECX(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);
ORDRE.NR:=SYSTEM.ORDRENR;
POST.ORDRENR:=ORDRE.NR;
SYSTEM.ORDRENR:=SYSTEM.ORDRENR+1;
PUTREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A)
END;
SKRIVFELT(PICTURE(10));
POST.INIT:=' ';
POST.KUORDNR:=' ';
FOR I:=12 TO 16 DO OHOVED(I);
VÆLGFELT(3);
COMMENT;
KUNORDRE.ORDRENR:=ORDRE.NR;
KUNORDRE.KUNDENR:=ORDRE.KUNDENR;
KUNORDRE.EMNENR:=ORDRE.EMNENR;
INSERT(KUNORDRE.A);IF NOT (-IER IN (.0.)) THEN ERROR(KUNORDRE.A);
ORDRE.MATOMK:=0.0;
ORDRE.LØNOMK:=0.0;
ORDRE.MASKINOM:=0.0;
ORDRE.SMEOMK:=0.0;
ORDRE.MATFORB:=0.0;
TILPASFORK;
KALKULER:=TRUE;
(*
REPEAT
FORKALKULATION;
CH:=QJN('Kalkulation færdig');
IF CH IN NEJ THEN
BEGIN
CLEARSCREEN;
SKRIVFELT(PICTURE(1));
POST.KRSTK:=ORDRE.ANTALBES;
FOR I:=10 TO 12 DO SKRIVFELT(PICTURE(I));
POST.KRSTK:=ORDRE.SALGSPRI;
FOR I:=13 TO 16 DO SKRIVFELT(PICTURE(I));
VÆLGFELT(4)
END
UNTIL CH IN JA;
*)
BEREGNMAT;
INSERT(ORDRE.A);IF IER<>0 THEN ERROR(ORDRE.A)
END
END;
(*$P*)
PROCEDURE SLETORDRE;
BEGIN
IF QJN('Sletning korrekt') IN JA THEN
BEGIN
KUNORDRE.ORDRENR:=ORDRE.NR;
KUNORDRE.KUNDENR:=ORDRE.KUNDENR;
KUNORDRE.EMNENR:=ORDRE.EMNENR;
GETRECX(KUNORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNORDRE.A);
DELETE(KUNORDRE.A);IF NOT (-IER IN (.0.)) THEN ERROR(KUNORDRE.A);
PROD.ORDRENR:=ORDRE.NR;
PROD.EMNENR:=ORDRE.EMNENR;
PROD.SEKVENSN:=0;
PROD.OPERANR:=0;
NEXTRECX(PROD.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(PROD.A);IER:=0;
WHILE (PROD.ORDRENR=ORDRE.NR) AND (PROD.EMNENR=ORDRE.EMNENR) AND
(IER=0) DO DELETEX(PROD.A);
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(PROD.A);
GETREC(PROD.A);IF IER<>0 THEN ERROR(PROD.A);
OMVPROD.ORDRENR:=ORDRE.NR;
OMVPROD.EMNENR:=ORDRE.EMNENR;
OMVPROD.SEKVENSN:=0;
OMVPROD.OPERANR:=0;
NEXTRECX(OMVPROD.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(OMVPROD.A);IER:=0;
WHILE (OMVPROD.ORDRENR=ORDRE.NR) AND (OMVPROD.EMNENR=ORDRE.EMNENR) AND
(IER=0) DO DELETEX(OMVPROD.A);
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(OMVPROD.A);
GETREC(OMVPROD.A);IF IER<>0 THEN ERROR(OMVPROD.A);
ORDTEKST.NR:=ORDRE.NR;
ORDTEKST.EMNENR:=ORDRE.EMNENR;
ORDTEKST.LBNR:=0;
NEXTRECX(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN
ERROR(ORDTEKST.A);IER:=0;
WHILE (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR) AND
(IER=0) DO DELETEX(ORDTEKST.A);
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);
GETREC(ORDTEKST.A);IF IER<>0 THEN ERROR(ORDTEKST.A);
DELETE(ORDRE.A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A)
END
ELSE
OPTION:=0
END;
(*$P*)
BEGIN (*MAINTAIN*)
CLEARSCREEN;
KALKULER:=FALSE;
REPEAT
GOTOXY(1,20);
WRITELN('1 Oprettelse af ny ordre');
WRITELN('2 Sletning af ordre');
WRITELN('3 Udskrift af forkalkulation');
D(23,1);
WRITE('Vælg 1-3 ');
READLN;
IF NOT EOLN THEN READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION IN (.1..3.));
D(20,4);
IF OPTION IN (.2..3.) THEN
BEGIN
LÆSFELT(PICTURE(10));SKRIVFELT(PICTURE(10));
ORDRE.NR:=POST.ORDRENR;
ORDRE.EMNENR:=0;
NEXTRECX(ORDRE.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ORDRE.A);IER:=0;
CH:='N';
IF ORDRE.NR<>POST.ORDRENR THEN BEGIN NONEXIST('Ordren');OPTION:=-1 END
ELSE
WHILE (IER=0) AND (ORDRE.NR=POST.ORDRENR) AND (CH IN NEJ) DO
BEGIN
CLEARSCREEN;
POST.ORDRENR:=ORDRE.NR;
POST.KUNDENR:=ORDRE.KUNDENR;
POST.EMNENR:=ORDRE.EMNENR;
POST.ØLEVTERM:=ORDRE.ØNSKLEV;
POST.INIT:=ORDRE.INITIALE;
POST.KUORDNR:=ORDRE.KUNDORDR;
POST.KRSTK:=ORDRE.ANTALBES;
SKRIVFELT(PICTURE(1));
FOR I:=10 TO 12 DO SKRIVFELT(PICTURE(I));
POST.KRSTK:=ORDRE.SALGSPRI;
FOR I:=13 TO 16 DO SKRIVFELT(PICTURE(I));
WITH ORDRE DO
BEGIN
GOTOXY(40,8);WRITE('Bekr. levterm',BEKRÆLEV:5);
GOTOXY(1,11);WRITELN('Reg. dato',
REGDATO(1)*10000.0+REGDATO(2):10:-2);
WRITELN('SMELTEOMKOSTNINGER',' ':25,SMEOMK:8:3);
WRITELN('MATERIALEFORBRUG ',' ':25,MATFORB:8:3);
WRITELN(' ':43,'----------------');
WRITELN('MAT.-OMKOSTNINGER ',' ':25,MATOMK:8:3,MATOMK:8:3);
WRITELN('LØNOMKOSTNINGER ',' ':33,LØNOMK:8:3);
WRITELN('MASKINOMKOSTNINGER',' ':33,MASKINOM:8:3);
WRITELN(' ':51,'----------------');
WRITELN('EMNEPRIS ',' ':33,MATOMK+
LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3);
WRITELN('DÆKNINGSBIDRAG ',' ':33,-MATOMK+
SALGSPRI-LØNOMK-MASKINOM:16:3);
WRITELN(' ':59,'--------');
WRITELN('SALGSPRIS ',' ':33,SALGSPRI:16:3)
END;
CH:=QJN('Rigtig ordre');
IF CH IN NEJ THEN NEXTRECX(ORDRE.A)
END;
IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ORDRE.A);
IF ORDRE.NR<>POST.ORDRENR THEN OPTION:=0
END;
IF (OPTION=2) AND (ORDRE.BEKRÆLEV<>0) THEN
BEGIN
D(23,1);
WRITE('Ordren er indgået i planlægningen og må ikke slettes, RETURN ');
OPTION:=0;
READLN
END;
CASE OPTION OF
1:(*IF RESPRINT THEN BEGIN*) OPRETORDRE;(*FREEPR END;*)
2:SLETORDRE;
3:IF RESPRINT THEN BEGIN FORKALKULATION;FREEPR END
END;
IF OPTION=0 THEN
BEGIN GETREC(ORDRE.A);IF IER<>0 THEN ERROR(ORDRE.A) END (*FJERN XSTATUS*)
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
RESSTEXT(10):='Maskine ';
RESSTEXT(11):='Operatør ';
RESSTEXT(12):='Værktøj ';
RESSTEXT(13):='Hjælpeværk';
CLEARSCREEN;
LÆSDESC;
MODE:=3;(*SKRIV*)
(*$R-*)
RESS.A(-4):=0;
KUNDE.A(-4):=0;
RESSGRUP.A(-4):=0;
EMNE.A(-4):=0;
RÅVARE.A(-4):=0;
MEDARB.A(-4):=0;
OPERA.A(-4):=0;
LØNGRUP.A(-4):=0;
POST.A(-4):=0;
SYSTEM.A(-4):=0;
PROD.A(-4):=0;
OMVPROD.A(-4):=0;
ORDRE.A(-4):=0;
KUNEMNE.A(-4):=0;
KUNORDRE.A(-4):=0;
EMNIFORM.A(-4):=0;
ORDTEKST.A(-4):=0;
RESS.A(-3):=4;
KUNDE.A(-3):=1;
RESSGRUP.A(-3):=3;
EMNE.A(-3):=2;
RÅVARE.A(-3):=5;
MEDARB.A(-3):=7;
OPERA.A(-3):=6;
LØNGRUP.A(-3):=8;
POST.A(-3):=11;
SYSTEM.A(-3):=9;
PROD.A(-3):=14;
OMVPROD.A(-3):=13;
ORDRE.A(-3):=10;
KUNEMNE.A(-3):=19;
KUNORDRE.A(-3):=18;
EMNIFORM.A(-3):=20;
ORDTEKST.A(-3):=25;
(*$R+*)
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
IOPEN(RESS.A); IF IER<>0 THEN ERROR(RESS.A);
IOPEN(KUNDE.A); IF IER<>0 THEN ERROR(KUNDE.A);
IOPEN(RESSGRUP.A);IF IER<>0 THEN ERROR(RESSGRUP.A);
IOPEN(EMNE.A); IF IER<>0 THEN ERROR(EMNE.A);
IOPEN(RÅVARE.A); IF IER<>0 THEN ERROR(RÅVARE.A);
IOPEN(MEDARB.A); IF IER<>0 THEN ERROR(MEDARB.A);
IOPEN(OPERA.A); IF IER<>0 THEN ERROR(OPERA.A);
IOPEN(LØNGRUP.A); IF IER<>0 THEN ERROR(LØNGRUP.A);
IOPEN(POST.A); IF IER<>0 THEN ERROR(POST.A);
IOPEN(OMVPROD.A); IF IER<>0 THEN ERROR(OMVPROD.A);
IOPEN(ORDRE.A); IF IER<>0 THEN ERROR(ORDRE.A);
IOPEN(KUNEMNE.A); IF IER<>0 THEN ERROR(KUNEMNE.A);
IOPEN(KUNORDRE.A);IF IER<>0 THEN ERROR(KUNORDRE.A);
IOPEN(EMNIFORM.A);IF IER<>0 THEN ERROR(EMNIFORM.A);
IOPEN(PROD.A); IF IER<>0 THEN ERROR(PROD.A);
IOPEN(ORDTEKST.A);IF IER<>0 THEN ERROR(ORDTEKST.A);
IOPEN(SYSTEM.A); IF IER<>0 THEN ERROR(SYSTEM.A);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);
REPEAT
CLEARSCREEN;
GOTOXY(10,10);
WRITELN('O R D R E S P E C I F I K F O R K A L K U L A T I O N');
CH:=QJN('Flere forkalkulationer');
IF CH IN JA THEN MAINTAIN
UNTIL CH IN NEJ;
ICLOSE(RESS.A);
ICLOSE(KUNDE.A);
ICLOSE(RESSGRUP.A);
ICLOSE(EMNE.A);
ICLOSE(RÅVARE.A);
ICLOSE(MEDARB.A);
ICLOSE(OPERA.A);
ICLOSE(LØNGRUP.A);
ICLOSE(POST.A);
ICLOSE(OMVPROD.A);
ICLOSE(ORDRE.A);
ICLOSE(KUNEMNE.A);
ICLOSE(KUNORDRE.A);
ICLOSE(EMNIFORM.A);
ICLOSE(PROD.A);
ICLOSE(ORDTEKST.A);
ICLOSE(SYSTEM.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*)
FILNR:=11;
DESCNAVN:='ORDRFORK:P2:05:J';
REGNAVN:='FORKALKULATION';
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 LIMORDRE;«, l3=0x11}
0x0013…0047 Line {l1=0x32, l2=»(*ORDREREGISTRERING, ORDRESPECIFIK FORKALKULATION,«, l3=0x32}
0x0047…0067 Line {l1=0x1e, l2=» UDSKRIFT AF FORKALKULATION*)«, l3=0x1e}
0x0067…0070 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0070…0088 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x0088…0090 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0090…00a4 Line {l1=0x12, l2=» PROGRAMNR=4;«, l3=0x12}
0x00a4…00aa Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x00aa…00d3 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00d3…011e Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x011e…0136 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x0136…0181 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0181…0195 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0195…01ab Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x01ab…01bf Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x01bf…0208 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x0208…0258 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x0258…02a2 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x02a2…02b3 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x02b3…02d5 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02d5…02f4 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02f4…0303 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x0303…0322 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0322…033b Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x033b…0356 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x0356…036c Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x036c…0382 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0382…03ab Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x03ab…03c4 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x03c4…03ef Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x03ef…0405 Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x0405…041f Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x041f…0430 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0430…0443 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x0443…045c Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x045c…0474 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0474…047c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x047c…0485 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0485…04a3 Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x04a3…04b3 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x04b3…04ba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04ba…04cc Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x04cc…04f2 Line {l1=0x24, l2=» FOR I:=1 TO NR DO WRITELN(' ':79);«, l3=0x24}
0x04f2…0503 Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x0503…0509 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0509…0528 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x0528…052f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x052f…053b Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x053b…0560 Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x0560…0573 Line {l1=0x11, l2=» READLN;D(23,1) «, l3=0x11}
0x0573…0579 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0579…059f Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x059f…05a6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05a6…05b2 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x05b2…05d4 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x05d4…05de Line {l1=0x08, l2=» READLN«, l3=0x08}
0x05de…05e4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05e4…05ec Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05ec…0623 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0623…064a Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x064a…0655 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0655…068d Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x068d…0698 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0698…06cc Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x06cc…0701 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x0701…070c Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x070c…0743 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x0743…076a Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x076a…0775 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0775…07ad Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x07ad…07d4 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x07d4…07df Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07df…0814 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x0814…081f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x081f…082f Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x082f…0837 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0837…0844 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x0844…0854 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x0854…085c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x085c…0870 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0870…0885 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0885…088d Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x088d…0893 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0893…08ac Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x08ac…08bd Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x08bd…08cd Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x08cd…08d3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08d3…08f7 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x08f7…0928 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0928…094f Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x094f…0967 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0967…097b Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x097b…0993 Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0993…09b9 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x09b9…09c7 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x09c7…09e2 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x09e2…0a06 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x0a06…0a1d Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x0a1d…0a3e Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x0a3e…0a4a Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x0a4a…0a56 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a56…0a61 Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a61…0a75 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a75…0a90 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0a90…0aa8 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0aa8…0ac6 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0ac6…0ad4 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0ad4…0af5 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0af5…0b19 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0b19…0b49 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0b49…0b6c Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b6c…0b80 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b80…0b86 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b86…0bad Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0bad…0bc8 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0bc8…0bec Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0bec…0c19 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0c19…0c21 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0c21…0c2a Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0c2a…0c3b Line {l1=0x0f, l2=»RESSPOST=RECORD«, l3=0x0f}
0x0c3b…0c47 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0c47…0c50 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0c50…0c5c Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0c5c…0c67 Line {l1=0x09, l2=» TSATSF,«, l3=0x09}
0x0c67…0c72 Line {l1=0x09, l2=» SAMOMS,«, l3=0x09}
0x0c72…0c7f Line {l1=0x0b, l2=» SAMOMSSÅ,«, l3=0x0b}
0x0c7f…0c89 Line {l1=0x08, l2=» SAMDB,«, l3=0x08}
0x0c89…0c95 Line {l1=0x0a, l2=» SAMDBSÅ,«, l3=0x0a}
0x0c95…0ca2 Line {l1=0x0b, l2=» KØBSPRIS,«, l3=0x0b}
0x0ca2…0cc0 Line {l1=0x1c, l2=» SALGSPRI :REAL;«, l3=0x1c}
0x0cc0…0cc7 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0cc7…0cd3 Line {l1=0x0a, l2=» AFDELNR,«, l3=0x0a}
0x0cd3…0cdf Line {l1=0x0a, l2=» PRODTIM,«, l3=0x0a}
0x0cdf…0ceb Line {l1=0x0a, l2=» VEDLTIM,«, l3=0x0a}
0x0ceb…0cf7 Line {l1=0x0a, l2=» OPSTILT,«, l3=0x0a}
0x0cf7…0d03 Line {l1=0x0a, l2=» OVERTIM,«, l3=0x0a}
0x0d03…0d0f Line {l1=0x0a, l2=» REPTIME,«, l3=0x0a}
0x0d0f…0d1b Line {l1=0x0a, l2=» TOTALTI,«, l3=0x0a}
0x0d1b…0d28 Line {l1=0x0b, l2=» PRODTIMS,«, l3=0x0b}
0x0d28…0d35 Line {l1=0x0b, l2=» VEDLTIMS,«, l3=0x0b}
0x0d35…0d42 Line {l1=0x0b, l2=» OPSTILTS,«, l3=0x0b}
0x0d42…0d4f Line {l1=0x0b, l2=» OVERTIMS,«, l3=0x0b}
0x0d4f…0d5c Line {l1=0x0b, l2=» REPTIMES,«, l3=0x0b}
0x0d5c…0d7d Line {l1=0x1f, l2=» TOTALTIS, «, l3=0x1f}
0x0d7d…0d9d Line {l1=0x1e, l2=» RESSTYPE :INTEGER;«, l3=0x1e}
0x0d9d…0dbd Line {l1=0x1e, l2=» DATOFLEV :LONGINT;«, l3=0x1e}
0x0dbd…0ddd Line {l1=0x1e, l2=» HYLDENR :INTEGER;«, l3=0x1e}
0x0ddd…0e11 Line {l1=0x32, l2=» BETEGN :PACKED ARRAY (1..10) OF CHAR«, l3=0x32}
0x0e11…0e17 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e17…0e28 Line {l1=0x0f, l2=»KUNDPOST=RECORD«, l3=0x0f}
0x0e28…0e34 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0e34…0e3d Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0e3d…0e49 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0e49…0e69 Line {l1=0x1e, l2=» NR :LONGINT;«, l3=0x1e}
0x0e69…0e9e Line {l1=0x33, l2=» NAVN :PACKED ARRAY (1..26) OF CHAR;«, l3=0x33}
0x0e9e…0eab Line {l1=0x0b, l2=» KONTAKT1,«, l3=0x0b}
0x0eab…0eb8 Line {l1=0x0b, l2=» KONTAKT2,«, l3=0x0b}
0x0eb8…0ec5 Line {l1=0x0b, l2=» KONTAKT3,«, l3=0x0b}
0x0ec5…0ef9 Line {l1=0x32, l2=» KONTAKT4 :PACKED ARRAY (1..30) OF CHAR«, l3=0x32}
0x0ef9…0eff Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eff…0f10 Line {l1=0x0f, l2=»REGRPOST=RECORD«, l3=0x0f}
0x0f10…0f1c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0f1c…0f25 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0f25…0f31 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0f31…0f3c Line {l1=0x09, l2=» GRUPNR,«, l3=0x09}
0x0f3c…0f5c Line {l1=0x1e, l2=» NR :INTEGER «, l3=0x1e}
0x0f5c…0f62 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f62…0f73 Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x0f73…0f7f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0f7f…0f88 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0f88…0f94 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0f94…0fa1 Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x0fa1…0fae Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x0fae…0fbb Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x0fbb…0fc7 Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x0fc7…0fd2 Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x0fd2…0fdf Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x0fdf…0ffb Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x0ffb…1002 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x1002…1021 Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x1021…1040 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x1040…105f Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x105f…107e Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x107e…1088 Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x1088…1092 Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x1092…109f Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x109f…10aa Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x10aa…10c9 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x10c9…10d4 Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x10d4…10df Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x10df…1113 Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x1113…1146 Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x1146…114c Line {l1=0x04, l2=»END;«, l3=0x04}
0x114c…115d Line {l1=0x0f, l2=»RÅVAPOST=RECORD«, l3=0x0f}
0x115d…1169 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1169…1172 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1172…117e Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x117e…1189 Line {l1=0x09, l2=» PRISKG,«, l3=0x09}
0x1189…1194 Line {l1=0x09, l2=» OMSÆTP,«, l3=0x09}
0x1194…119c Line {l1=0x06, l2=» DBP,«, l3=0x06}
0x119c…11a9 Line {l1=0x0b, l2=» KOSTPRIS,«, l3=0x0b}
0x11a9…11b5 Line {l1=0x0a, l2=» OMSÆTSP,«, l3=0x0a}
0x11b5…11c1 Line {l1=0x0a, l2=» DBSÅ, «, l3=0x0a}
0x11c1…11ce Line {l1=0x0b, l2=» KOSTPRSÅ,«, l3=0x0b}
0x11ce…11dc Line {l1=0x0c, l2=» LAGER, «, l3=0x0c}
0x11dc…11ea Line {l1=0x0c, l2=» MINLAGE, «, l3=0x0c}
0x11ea…11f8 Line {l1=0x0c, l2=» RESERVER, «, l3=0x0c}
0x11f8…1207 Line {l1=0x0d, l2=» SMEPRIS, «, l3=0x0d}
0x1207…1216 Line {l1=0x0d, l2=» KGINDKØB, «, l3=0x0d}
0x1216…1225 Line {l1=0x0d, l2=» KGFORBRU, «, l3=0x0d}
0x1225…1244 Line {l1=0x1d, l2=» KGSOLGT :REAL; «, l3=0x1d}
0x1244…124b Line {l1=0x05, l2=» NR,«, l3=0x05}
0x124b…1256 Line {l1=0x09, l2=» LEVUGE,«, l3=0x09}
0x1256…1275 Line {l1=0x1d, l2=» SMESVIND :INTEGER;«, l3=0x1d}
0x1275…12a8 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..16) OF CHAR«, l3=0x31}
0x12a8…12ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x12ae…12bf Line {l1=0x0f, l2=»MEDAPOST=RECORD«, l3=0x0f}
0x12bf…12cb Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x12cb…12d4 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x12d4…12e0 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x12e0…12ed Line {l1=0x0b, l2=» TIMESATS,«, l3=0x0b}
0x12ed…12fa Line {l1=0x0b, l2=» PERSTIME,«, l3=0x0b}
0x12fa…1307 Line {l1=0x0b, l2=» TOTTIMLØ,«, l3=0x0b}
0x1307…1314 Line {l1=0x0b, l2=» PRODTIME,«, l3=0x0b}
0x1314…1321 Line {l1=0x0b, l2=» AKKORDLØ,«, l3=0x0b}
0x1321…133d Line {l1=0x1a, l2=» AKKORDAR :REAL;«, l3=0x1a}
0x133d…1344 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x1344…1363 Line {l1=0x1d, l2=» AFDELING :INTEGER;«, l3=0x1d}
0x1363…1396 Line {l1=0x31, l2=» NAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x1396…139c Line {l1=0x04, l2=»END;«, l3=0x04}
0x139c…13ad Line {l1=0x0f, l2=»OPERPOST=RECORD«, l3=0x0f}
0x13ad…13b9 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x13b9…13c2 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x13c2…13ce Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x13ce…13ea Line {l1=0x1a, l2=» TILLÆG :REAL;«, l3=0x1a}
0x13ea…13f1 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x13f1…13fc Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x13fc…141b Line {l1=0x1d, l2=» REBELAS :INTEGER;«, l3=0x1d}
0x141b…144e Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x144e…1454 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1454…1465 Line {l1=0x0f, l2=»LØNGPOST=RECORD«, l3=0x0f}
0x1465…1471 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1471…147a Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x147a…1486 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1486…14a2 Line {l1=0x1a, l2=» TIMESATS :REAL;«, l3=0x1a}
0x14a2…14c1 Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x14c1…14f4 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x14f4…14fa Line {l1=0x04, l2=»END;«, l3=0x04}
0x14fa…150b Line {l1=0x0f, l2=»PRODPOST=RECORD«, l3=0x0f}
0x150b…1517 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1517…1520 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1520…152c Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x152c…1561 Line {l1=0x33, l2=» KRSTK, (*SAMLET TIMESATS FOR ALLE RESSOURCER*)«, l3=0x33}
0x1561…157d Line {l1=0x1a, l2=» REAANTAL :REAL;«, l3=0x1a}
0x157d…1589 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1589…1596 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x1596…15a2 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x15a2…15af Line {l1=0x0b, l2=» STARTTID,«, l3=0x0b}
0x15af…15bc Line {l1=0x0b, l2=» OPERAFSL,«, l3=0x0b}
0x15bc…15c5 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x15c5…15cf Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x15cf…15d9 Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x15d9…15e3 Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x15e3…15ed Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x15ed…15f7 Line {l1=0x08, l2=» RESS5,«, l3=0x08}
0x15f7…1602 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x1602…1621 Line {l1=0x1d, l2=» VARIGHED :INTEGER «, l3=0x1d}
0x1621…1627 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1627…1638 Line {l1=0x0f, l2=»EMNFPOST=RECORD«, l3=0x0f}
0x1638…1644 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1644…164d Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x164d…1659 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1659…1664 Line {l1=0x09, l2=» FORMNR,«, l3=0x09}
0x1664…1683 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x1683…1689 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1689…169a Line {l1=0x0f, l2=»KUNEPOST=RECORD«, l3=0x0f}
0x169a…16a6 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x16a6…16af Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x16af…16bb Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x16bb…16da Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x16da…16f9 Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x16f9…16ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x16ff…1710 Line {l1=0x0f, l2=»ORDRPOST=RECORD«, l3=0x0f}
0x1710…171c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x171c…1725 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1725…1731 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1731…173e Line {l1=0x0b, l2=» ANTALBES,«, l3=0x0b}
0x173e…174b Line {l1=0x0b, l2=» SALGSPRI,«, l3=0x0b}
0x174b…1756 Line {l1=0x09, l2=» MATOMK,«, l3=0x09}
0x1756…1761 Line {l1=0x09, l2=» LØNOMK,«, l3=0x09}
0x1761…176e Line {l1=0x0b, l2=» MASKINOM,«, l3=0x0b}
0x176e…1779 Line {l1=0x09, l2=» SMEOMK,«, l3=0x09}
0x1779…1795 Line {l1=0x1a, l2=» MATFORB :REAL;«, l3=0x1a}
0x1795…17b4 Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x17b4…17d3 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x17d3…17f2 Line {l1=0x1d, l2=» EMNENR :INTEGER;«, l3=0x1d}
0x17f2…1811 Line {l1=0x1d, l2=» REGDATO :LONGINT;«, l3=0x1d}
0x1811…181d Line {l1=0x0a, l2=» ØNSKLEV,«, l3=0x0a}
0x181d…183c Line {l1=0x1d, l2=» BEKRÆLEV :INTEGER;«, l3=0x1d}
0x183c…1870 Line {l1=0x32, l2=» KUNDORDR :PACKED ARRAY (1..16) OF CHAR;«, l3=0x32}
0x1870…18a3 Line {l1=0x31, l2=» INITIALE :PACKED ARRAY (1..4) OF CHAR «, l3=0x31}
0x18a3…18a9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x18a9…18ba Line {l1=0x0f, l2=»OTEXPOST=RECORD«, l3=0x0f}
0x18ba…18c6 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x18c6…18cf Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x18cf…18db Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x18db…18e2 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x18e2…18ed Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x18ed…190c Line {l1=0x1d, l2=» LBNR :INTEGER;«, l3=0x1d}
0x190c…193f Line {l1=0x31, l2=» TEKST :PACKED ARRAY (1..70) OF CHAR«, l3=0x31}
0x193f…1945 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1945…1956 Line {l1=0x0f, l2=»OMVPPOST=RECORD«, l3=0x0f}
0x1956…1962 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1962…196b Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x196b…1977 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1977…1983 Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1983…1990 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x1990…199c Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x199c…19bb Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x19bb…19c1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x19c1…19d2 Line {l1=0x0f, l2=»FORKPOST=RECORD«, l3=0x0f}
0x19d2…19de Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x19de…19e7 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x19e7…19f3 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x19f3…1a0f Line {l1=0x1a, l2=» KRSTK :REAL;«, l3=0x1a}
0x1a0f…1a1a Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x1a1a…1a27 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x1a27…1a33 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1a33…1a3f Line {l1=0x0a, l2=» LØNTYPE,«, l3=0x0a}
0x1a3f…1a48 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x1a48…1a52 Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x1a52…1a5c Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x1a5c…1a66 Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x1a66…1a70 Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x1a70…1a8f Line {l1=0x1d, l2=» RESS5 :INTEGER;«, l3=0x1d}
0x1a8f…1aa3 Line {l1=0x12, l2=» ORDRENR:INTEGER;«, l3=0x12}
0x1aa3…1ab7 Line {l1=0x12, l2=» KUNDENR:LONGINT;«, l3=0x12}
0x1ab7…1acc Line {l1=0x13, l2=» ØLEVTERM:INTEGER;«, l3=0x13}
0x1acc…1af1 Line {l1=0x23, l2=» INIT:PACKED ARRAY (1..4) OF CHAR;«, l3=0x23}
0x1af1…1b19 Line {l1=0x26, l2=» KUORDNR:PACKED ARRAY (1..16) OF CHAR«, l3=0x26}
0x1b19…1b1f Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b1f…1b30 Line {l1=0x0f, l2=»KUNOPOST=RECORD«, l3=0x0f}
0x1b30…1b3c Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1b3c…1b45 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1b45…1b51 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1b51…1b70 Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x1b70…1b7c Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x1b7c…1b9b Line {l1=0x1d, l2=» EMNENR :INTEGER «, l3=0x1d}
0x1b9b…1ba1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ba1…1bb2 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x1bb2…1bbe Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1bbe…1bc7 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1bc7…1bd3 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1bd3…1bfe Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x1bfe…1c1c Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x1c1c…1c3a Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x1c3a…1c58 Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x1c58…1c6e Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x1c6e…1c8c Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x1c8c…1c92 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c92…1c9a Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c9a…1cab Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x1cab…1cc0 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1cc0…1cec Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1cec…1cff Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x1cff…1d1d Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x1d1d…1d2f Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x1d2f…1d43 Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x1d43…1d58 Line {l1=0x13, l2=» KUNDE:KUNDPOST;«, l3=0x13}
0x1d58…1d70 Line {l1=0x16, l2=» RESSGRUP:REGRPOST;«, l3=0x16}
0x1d70…1d84 Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x1d84…1d9a Line {l1=0x14, l2=» RÅVARE:RÅVAPOST;«, l3=0x14}
0x1d9a…1db0 Line {l1=0x14, l2=» MEDARB:MEDAPOST;«, l3=0x14}
0x1db0…1dc5 Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x1dc5…1ddc Line {l1=0x15, l2=» LØNGRUP:LØNGPOST;«, l3=0x15}
0x1ddc…1df0 Line {l1=0x12, l2=» PROD:PRODPOST;«, l3=0x12}
0x1df0…1e07 Line {l1=0x15, l2=» OMVPROD:OMVPPOST;«, l3=0x15}
0x1e07…1e1c Line {l1=0x13, l2=» ORDRE:ORDRPOST;«, l3=0x13}
0x1e1c…1e34 Line {l1=0x16, l2=» ORDTEKST:OTEXPOST;«, l3=0x16}
0x1e34…1e4b Line {l1=0x15, l2=» KUNEMNE:KUNEPOST;«, l3=0x15}
0x1e4b…1e63 Line {l1=0x16, l2=» KUNORDRE:KUNOPOST;«, l3=0x16}
0x1e63…1e7b Line {l1=0x16, l2=» EMNIFORM:EMNFPOST;«, l3=0x16}
0x1e7b…1e8f Line {l1=0x12, l2=» POST:FORKPOST;«, l3=0x12}
0x1e8f…1ea5 Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x1ea5…1ebb Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x1ebb…1ec9 Line {l1=0x0c, l2=» CH:CHAR;«, l3=0x0c}
0x1ec9…1eea Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x1eea…1f28 Line {l1=0x3c, l2=» RESSTEXT:ARRAY (10..13) OF PACKED ARRAY (1..10) OF CHAR;«, l3=0x3c}
0x1f28…1f30 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1f30…1f39 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1f39…1f57 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x1f57…1f6a Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1f6a…1f71 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1f71…1f7b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1f7b…1f89 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x1f89…1fa0 Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x1fa0…1fae Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x1fae…1fbc Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x1fbc…1fd7 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x1fd7…1fe6 Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x1fe6…1ff2 Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x1ff2…1ff8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ff8…2016 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x2016…2029 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x2029…2039 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x2039…2040 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2040…204c Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x204c…209a Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x209a…20e8 Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x20e8…20fd Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x20fd…212d Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x212d…2144 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x2144…2158 Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x2158…216f Line {l1=0x15, l2=» ICLOSE(RESSGRUP.A);«, l3=0x15}
0x216f…2186 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x2186…219b Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x219b…21b2 Line {l1=0x15, l2=» ICLOSE(MEDARB.A); «, l3=0x15}
0x21b2…21c9 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x21c9…21e0 Line {l1=0x15, l2=» ICLOSE(LØNGRUP.A); «, l3=0x15}
0x21e0…21f4 Line {l1=0x12, l2=» ICLOSE(POST.A); «, l3=0x12}
0x21f4…220b Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x220b…2223 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x2223…223a Line {l1=0x15, l2=» ICLOSE(KUNEMNE.A); «, l3=0x15}
0x223a…2251 Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0x2251…2268 Line {l1=0x15, l2=» ICLOSE(EMNIFORM.A);«, l3=0x15}
0x2268…227c Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x227c…2293 Line {l1=0x15, l2=» ICLOSE(ORDTEKST.A);«, l3=0x15}
0x2293…22a8 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x22a8…22b9 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x22b9…22bf Line {l1=0x04, l2=»END;«, l3=0x04}
0x22bf…22de Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x22de…22e5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x22e5…2302 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x2302…2308 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2308…2310 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2310…2319 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2319…2329 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x2329…2331 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2331…2341 Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x2341…2349 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2349…2352 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x2352…2367 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x2367…2375 Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x2375…238a Line {l1=0x13, l2=» FELTNR:INTEGER;«, l3=0x13}
0x238a…23a1 Line {l1=0x15, l2=» KALKULER:BOOLEAN;«, l3=0x15}
0x23a1…23a4 Line {l1=0x01, l2=» «, l3=0x01}
0x23a4…23a8 Line {l1=0x02, l2=»(*«, l3=0x02}
0x23a8…23bf Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x23bf…23cf Line {l1=0x0e, l2=»VAR J:INTEGER;«, l3=0x0e}
0x23cf…23e1 Line {l1=0x10, l2=» HKRSTK:REAL;«, l3=0x10}
0x23e1…23e8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x23e8…23f8 Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x23f8…2401 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2401…241d Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1a}
0x241d…2439 Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(2));«, l3=0x1a}
0x2439…2455 Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(3));«, l3=0x1a}
0x2455…246d Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x246d…24b0 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x24b0…24ef Line {l1=0x3d, l2=» IF IER=0 THEN BEGIN GOTOXY(25,6);WRITE(OPERA.BETEGN) END;«, l3=0x3d}
0x24ef…2501 Line {l1=0x10, l2=» GOTOXY(1,7);«, l3=0x10}
0x2501…2521 Line {l1=0x1e, l2=» WRITE(' 4 Stk/h :');«, l3=0x1e}
0x2521…2541 Line {l1=0x1e, l2=» IF STKH<0 THEN WRITE('T');«, l3=0x1e}
0x2541…2558 Line {l1=0x15, l2=» WRITE(ABS(STKH));«, l3=0x15}
0x2558…2577 Line {l1=0x1d, l2=» HKRSTK:=KRSTK;KRSTK:=0.0;«, l3=0x1d}
0x2577…25a4 Line {l1=0x2b, l2=» FOR J:=5 TO 9 DO SKRIVFELT(PICTURE(J));«, l3=0x2b}
0x25a4…25b8 Line {l1=0x12, l2=» KRSTK:=HKRSTK;«, l3=0x12}
0x25b8…25ee Line {l1=0x34, l2=» IF LØNTYPE>0 THEN SKRIVFELT(PICTURE(4+LØNTYPE));«, l3=0x34}
0x25ee…2601 Line {l1=0x11, l2=» GOTOXY(1,13);«, l3=0x11}
0x2601…2619 Line {l1=0x16, l2=» FOR J:=10 TO 13 DO«, l3=0x16}
0x2619…2624 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2624…264d Line {l1=0x27, l2=» WRITE(J:2,' ',RESSTEXT(J),' :');«, l3=0x27}
0x264d…265e Line {l1=0x0f, l2=» CASE J OF«, l3=0x0f}
0x265e…26a5 Line {l1=0x45, l2=» 10:IF RESS1<0 THEN WRITELN('*',-RESS1:6) ELSE WRITELN(RESS1:7);«, l3=0x45}
0x26a5…26ec Line {l1=0x45, l2=» 11:IF RESS2<0 THEN WRITELN('*',-RESS2:6) ELSE WRITELN(RESS2:7);«, l3=0x45}
0x26ec…2733 Line {l1=0x45, l2=» 12:IF RESS3<0 THEN WRITELN('*',-RESS3:6) ELSE WRITELN(RESS3:7);«, l3=0x45}
0x2733…277a Line {l1=0x45, l2=» 13:IF RESS4<0 THEN WRITELN('*',-RESS4:6) ELSE WRITELN(RESS4:7) «, l3=0x45}
0x277a…2785 Line {l1=0x09, l2=» END«, l3=0x09}
0x2785…278e Line {l1=0x07, l2=» END«, l3=0x07}
0x278e…2795 Line {l1=0x05, l2=» END«, l3=0x05}
0x2795…279b Line {l1=0x04, l2=»END;«, l3=0x04}
0x279b…279f Line {l1=0x02, l2=»*)«, l3=0x02}
0x279f…27a7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x27a7…27ab Line {l1=0x02, l2=»(*«, l3=0x02}
0x27ab…27d0 Line {l1=0x23, l2=»PROCEDURE ÆNDLINIE(FELTNR:INTEGER);«, l3=0x23}
0x27d0…27de Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x27de…27f4 Line {l1=0x14, l2=» RESSURS:INTEGER;«, l3=0x14}
0x27f4…27fb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x27fb…280a Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x280a…2812 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x2812…2830 Line {l1=0x1c, l2=» IF FELTNR IN (.5..9.) THEN«, l3=0x1c}
0x2830…2839 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2839…284a Line {l1=0x0f, l2=» KRSTK:=0.0;«, l3=0x0f}
0x284a…2880 Line {l1=0x34, l2=» IF LØNTYPE>0 THEN SKRIVFELT(PICTURE(LØNTYPE+4));«, l3=0x34}
0x2880…2897 Line {l1=0x15, l2=» LØNTYPE:=FELTNR-4«, l3=0x15}
0x2897…289f Line {l1=0x06, l2=» END;«, l3=0x06}
0x289f…28dd Line {l1=0x3c, l2=» IF FELTNR IN (.5..7.) THEN BEGIN LÆSFELT(PICTURE(FELTNR));«, l3=0x3c}
0x28dd…291c Line {l1=0x3d, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x3d}
0x291c…2941 Line {l1=0x23, l2=» END;«, l3=0x23}
0x2941…2953 Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x2953…295e Line {l1=0x09, l2=» 4:BEGIN«, l3=0x09}
0x295e…296a Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x296a…297a Line {l1=0x0e, l2=» STKH:=0;«, l3=0x0e}
0x297a…298a Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x298a…29a3 Line {l1=0x17, l2=» WRITE(' Stk/h ');«, l3=0x17}
0x29a3…29b2 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x29b2…29ca Line {l1=0x16, l2=» IF NOT EOLN THEN«, l3=0x16}
0x29ca…29d7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x29d7…2a08 Line {l1=0x2f, l2=» IF INPUT^ IN (.'T','t'.) THEN READ(CH);«, l3=0x2f}
0x2a08…2a3e Line {l1=0x34, l2=» IF INPUT^ IN (.'0'..'9'.) THEN READ(STKH); «, l3=0x34}
0x2a3e…2a6d Line {l1=0x2d, l2=» IF CH IN (.'T','t'.) THEN STKH:=-STKH«, l3=0x2d}
0x2a6d…2a78 Line {l1=0x09, l2=» END«, l3=0x09}
0x2a78…2a8c Line {l1=0x12, l2=» UNTIL STKH<>0;«, l3=0x12}
0x2a8c…2a9f Line {l1=0x11, l2=» GOTOXY(17,7);«, l3=0x11}
0x2a9f…2ad6 Line {l1=0x35, l2=» IF STKH<0 THEN WRITE('T',-STKH) ELSE WRITE(STKH) «, l3=0x35}
0x2ad6…2ae0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2ae0…2aec Line {l1=0x0a, l2=» 8:REPEAT«, l3=0x0a}
0x2aec…2b0f Line {l1=0x21, l2=» LÆSFELT(PICTURE(FELTNR)); «, l3=0x21}
0x2b0f…2b32 Line {l1=0x21, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x21}
0x2b32…2b53 Line {l1=0x1f, l2=» LØNGRUP.NR:=TRUNC(KRSTK);«, l3=0x1f}
0x2b53…2b9c Line {l1=0x47, l2=» GETREC(LØNGRUP.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(LØNGRUP.A);«, l3=0x47}
0x2b9c…2bc8 Line {l1=0x2a, l2=» IF IER=-6 THEN NONEXIST('Løngruppe')«, l3=0x2a}
0x2bc8…2bda Line {l1=0x10, l2=» UNTIL IER=0;«, l3=0x10}
0x2bda…2be6 Line {l1=0x0a, l2=» 9:REPEAT«, l3=0x0a}
0x2be6…2c09 Line {l1=0x21, l2=» LÆSFELT(PICTURE(FELTNR)); «, l3=0x21}
0x2c09…2c2c Line {l1=0x21, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x21}
0x2c2c…2c4c Line {l1=0x1e, l2=» MEDARB.NR:=TRUNC(KRSTK);«, l3=0x1e}
0x2c4c…2c93 Line {l1=0x45, l2=» GETREC(MEDARB.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(MEDARB.A);«, l3=0x45}
0x2c93…2cc1 Line {l1=0x2c, l2=» IF IER=-6 THEN NONEXIST('Medarbejder')«, l3=0x2c}
0x2cc1…2cd3 Line {l1=0x10, l2=» UNTIL IER=0;«, l3=0x10}
0x2cd3…2ce3 Line {l1=0x0e, l2=» 10,11,12,13:«, l3=0x0e}
0x2ce3…2cee Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2cee…2cfa Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2cfa…2d0a Line {l1=0x0e, l2=» CH:='Æ';«, l3=0x0e}
0x2d0a…2d1a Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x2d1a…2d4d Line {l1=0x31, l2=» WRITE(FELTNR:2,' ',RESSTEXT(FELTNR),' :');«, l3=0x31}
0x2d4d…2d5c Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2d5c…2d70 Line {l1=0x12, l2=» IF EOLN THEN«, l3=0x12}
0x2d70…2d7d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2d7d…2d8f Line {l1=0x10, l2=» CH:='Å';«, l3=0x10}
0x2d8f…2da3 Line {l1=0x12, l2=» RESSURS:=0«, l3=0x12}
0x2da3…2dae Line {l1=0x09, l2=» END«, l3=0x09}
0x2dae…2dba Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2dba…2dd4 Line {l1=0x18, l2=» IF INPUT^='*' THEN«, l3=0x18}
0x2dd4…2de1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2de1…2df4 Line {l1=0x11, l2=» READ(CH);«, l3=0x11}
0x2df4…2e1c Line {l1=0x26, l2=» IF INPUT^ IN (.'0'..'9'.) THEN«, l3=0x26}
0x2e1c…2e2b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2e2b…2e45 Line {l1=0x18, l2=» READ(RESSURS);«, l3=0x18}
0x2e45…2e63 Line {l1=0x1c, l2=» RESSURS:=-RESSURS;«, l3=0x1c}
0x2e63…2e89 Line {l1=0x24, l2=» RESSGRUP.GRUPNR:=-RESSURS;«, l3=0x24}
0x2e89…2ea5 Line {l1=0x1a, l2=» RESSGRUP.NR:=-1;«, l3=0x1a}
0x2ea5…2ee4 Line {l1=0x3d, l2=» NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x3d}
0x2ee4…2f22 Line {l1=0x3c, l2=» ERROR(RESSGRUP.A);«, l3=0x3c}
0x2f22…2f4f Line {l1=0x2b, l2=» IF RESSGRUP.GRUPNR<>-RESSURS THEN«, l3=0x2b}
0x2f4f…2f78 Line {l1=0x27, l2=» NONEXIST('Ressourcegruppe')«, l3=0x27}
0x2f78…2f90 Line {l1=0x16, l2=» ELSE CH:='Å'«, l3=0x16}
0x2f90…2f9d Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2f9d…2fa8 Line {l1=0x09, l2=» END«, l3=0x09}
0x2fa8…2fb4 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2fb4…2fc1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2fc1…2fe9 Line {l1=0x26, l2=» IF INPUT^ IN (.'0'..'9'.) THEN«, l3=0x26}
0x2fe9…2ff8 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2ff8…3012 Line {l1=0x18, l2=» READ(RESSURS);«, l3=0x18}
0x3012…3030 Line {l1=0x1c, l2=» IF RESSURS<>0 THEN«, l3=0x1c}
0x3030…3041 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3041…3060 Line {l1=0x1d, l2=» RESS.NR:=RESSURS;«, l3=0x1d}
0x3060…30a9 Line {l1=0x47, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x47}
0x30a9…30db Line {l1=0x30, l2=» IF IER=-6 THEN NONEXIST('Ressource')«, l3=0x30}
0x30db…30f5 Line {l1=0x18, l2=» ELSE CH:='Å'«, l3=0x18}
0x30f5…3111 Line {l1=0x1a, l2=» END ELSE CH:='Å'«, l3=0x1a}
0x3111…311e Line {l1=0x0b, l2=» END«, l3=0x0b}
0x311e…312a Line {l1=0x0a, l2=» END «, l3=0x0a}
0x312a…313d Line {l1=0x11, l2=» UNTIL CH='Å';«, l3=0x11}
0x313d…3156 Line {l1=0x17, l2=» GOTOXY(1,FELTNR+3);«, l3=0x17}
0x3156…3187 Line {l1=0x2f, l2=» WRITE(FELTNR:2,' ',RESSTEXT(FELTNR),' :');«, l3=0x2f}
0x3187…31cb Line {l1=0x42, l2=» IF RESSURS<0 THEN WRITE('*',-RESSURS:6) ELSE WRITE(RESSURS:7);«, l3=0x42}
0x31cb…31df Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x31df…31f7 Line {l1=0x16, l2=» 10:RESS1:=RESSURS;«, l3=0x16}
0x31f7…320f Line {l1=0x16, l2=» 11:RESS2:=RESSURS;«, l3=0x16}
0x320f…3227 Line {l1=0x16, l2=» 12:RESS3:=RESSURS;«, l3=0x16}
0x3227…323f Line {l1=0x16, l2=» 13:RESS4:=RESSURS «, l3=0x16}
0x323f…3248 Line {l1=0x07, l2=» END«, l3=0x07}
[…0x1…]
0x3251…3258 Line {l1=0x05, l2=» END«, l3=0x05}
0x3258…325e Line {l1=0x04, l2=» END«, l3=0x04}
0x325e…3264 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3264…3268 Line {l1=0x02, l2=»*)«, l3=0x02}
0x3268…3270 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3270…3287 Line {l1=0x15, l2=»PROCEDURE TILPASFORK;«, l3=0x15}
0x3287…329c Line {l1=0x13, l2=»VAR FELTNR:INTEGER;«, l3=0x13}
0x329c…329f Line {l1=0x01, l2=» «, l3=0x01}
0x329f…32d8 Line {l1=0x37, l2=»PROCEDURE FIXSATS(VAR RESSURS:INTEGER;VAR OMKOST:REAL);«, l3=0x37}
0x32d8…32e8 Line {l1=0x0e, l2=»VAR SATS:REAL;«, l3=0x0e}
0x32e8…32ef Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x32ef…3304 Line {l1=0x13, l2=» IF RESSURS>0 THEN«, l3=0x13}
0x3304…330d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x330d…3324 Line {l1=0x15, l2=» RESS.NR:=RESSURS;«, l3=0x15}
0x3324…3356 Line {l1=0x30, l2=» GETREC(RESS.A);IF IER<>0 THEN ERROR(RESS.A);«, l3=0x30}
0x3356…336d Line {l1=0x15, l2=» SATS:=RESS.TSATSF«, l3=0x15}
0x336d…3374 Line {l1=0x05, l2=» END«, l3=0x05}
0x3374…337d Line {l1=0x07, l2=» ELSE «, l3=0x07}
0x337d…3392 Line {l1=0x13, l2=» IF RESSURS<0 THEN«, l3=0x13}
0x3392…339b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x339b…33bb Line {l1=0x1e, l2=» RESSGRUP.GRUPNR:=-RESSURS;«, l3=0x1e}
0x33bb…33d1 Line {l1=0x14, l2=» RESSGRUP.NR:=-1;«, l3=0x14}
0x33d1…340a Line {l1=0x37, l2=» NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x37}
0x340a…344b Line {l1=0x3f, l2=» ERROR(RESSGRUP.A);IER:=0;«, l3=0x3f}
0x344b…3466 Line {l1=0x19, l2=» RESS.NR:=RESSGRUP.NR;«, l3=0x19}
0x3466…3498 Line {l1=0x30, l2=» GETREC(RESS.A);IF IER<>0 THEN ERROR(RESS.A);«, l3=0x30}
0x3498…34af Line {l1=0x15, l2=» SATS:=RESS.TSATSF«, l3=0x15}
0x34af…34b6 Line {l1=0x05, l2=» END«, l3=0x05}
0x34b6…34c9 Line {l1=0x11, l2=» ELSE SATS:=0.0;«, l3=0x11}
0x34c9…34de Line {l1=0x13, l2=» IF SATS<>0.0 THEN«, l3=0x13}
0x34de…34f4 Line {l1=0x14, l2=» WITH PROD,ORDRE DO«, l3=0x14}
0x34f4…34fd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x34fd…3512 Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x3512…3542 Line {l1=0x2e, l2=» OMKOST:=-STKH*SATS/ANTALBES/100.0+OMKOST«, l3=0x2e}
0x3542…354d Line {l1=0x09, l2=» ELSE «, l3=0x09}
0x354d…356e Line {l1=0x1f, l2=» OMKOST:=SATS/STKH+OMKOST;«, l3=0x1f}
0x356e…3585 Line {l1=0x15, l2=» KRSTK:=KRSTK+SATS«, l3=0x15}
0x3585…358d Line {l1=0x06, l2=» END «, l3=0x06}
0x358d…3593 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3593…359b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x359b…35b1 Line {l1=0x14, l2=»BEGIN (*TILPASFORK*)«, l3=0x14}
0x35b1…35ca Line {l1=0x17, l2=» POST.EMNENR:=EMNE.NR;«, l3=0x17}
0x35ca…35df Line {l1=0x13, l2=» POST.SEKVENSN:=0;«, l3=0x13}
0x35df…35f3 Line {l1=0x12, l2=» POST.OPERANR:=0;«, l3=0x12}
0x35f3…363c Line {l1=0x47, l2=» NEXTREC(POST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST.A);IER:=0;«, l3=0x47}
0x363c…366a Line {l1=0x2c, l2=» WHILE (IER=0) AND (POST.EMNENR=EMNE.NR) DO«, l3=0x2c}
0x366a…3673 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3673…367b Line {l1=0x06, l2=» (*«, l3=0x06}
0x367b…368d Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x368d…369e Line {l1=0x0f, l2=» SKRIVLINIE;«, l3=0x0f}
0x369e…36cd Line {l1=0x2d, l2=» IF QJN('Skal operationen med') IN JA THEN«, l3=0x2d}
0x36cd…36d8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x36d8…36e6 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x36e6…36f6 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x36f6…370a Line {l1=0x12, l2=» D(23,1);«, l3=0x12}
0x370a…3745 Line {l1=0x39, l2=» WRITE('Ændring af feltnr 4-13, 0 for færdig ');«, l3=0x39}
0x3745…3764 Line {l1=0x1d, l2=» READLN;READ(FELTNR)«, l3=0x1d}
0x3764…379d Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND (FELTNR IN (.0,4..13.));«, l3=0x37}
0x379d…37c8 Line {l1=0x29, l2=» IF FELTNR>0 THEN ÆNDLINIE(FELTNR)«, l3=0x29}
0x37c8…37df Line {l1=0x15, l2=» UNTIL FELTNR=0;«, l3=0x15}
0x37df…37e9 Line {l1=0x08, l2=» *)«, l3=0x08}
0x37e9…3808 Line {l1=0x1d, l2=» PROD.ORDRENR:=ORDRE.NR;«, l3=0x1d}
0x3808…382a Line {l1=0x20, l2=» PROD.EMNENR:=ORDRE.EMNENR;«, l3=0x20}
0x382a…384f Line {l1=0x23, l2=» PROD.SEKVENSN:=POST.SEKVENSN;«, l3=0x23}
0x384f…3872 Line {l1=0x21, l2=» PROD.OPERANR:=POST.OPERANR;«, l3=0x21}
0x3872…388f Line {l1=0x1b, l2=» PROD.STKH:=POST.STKH;«, l3=0x1b}
0x388f…38aa Line {l1=0x19, l2=» PROD.REAANTAL:=0.0;«, l3=0x19}
0x38aa…38c3 Line {l1=0x17, l2=» PROD.STARTTID:=0;«, l3=0x17}
0x38c3…38dc Line {l1=0x17, l2=» PROD.OPERAFSL:=0;«, l3=0x17}
0x38dc…38fb Line {l1=0x1d, l2=» PROD.RESS1:=POST.RESS1;«, l3=0x1d}
0x38fb…391a Line {l1=0x1d, l2=» PROD.RESS2:=POST.RESS2;«, l3=0x1d}
0x391a…3939 Line {l1=0x1d, l2=» PROD.RESS3:=POST.RESS3;«, l3=0x1d}
0x3939…3958 Line {l1=0x1d, l2=» PROD.RESS4:=POST.RESS4;«, l3=0x1d}
0x3958…3977 Line {l1=0x1d, l2=» PROD.RESS5:=POST.RESS5;«, l3=0x1d}
0x3977…3993 Line {l1=0x1a, l2=» CASE POST.LØNTYPE OF«, l3=0x1a}
0x3993…39b0 Line {l1=0x1b, l2=» 1:IF POST.STKH<0 THEN«, l3=0x1b}
0x39b0…39e3 Line {l1=0x31, l2=» PROD.KRSTK:=-POST.KRSTK/POST.STKH/100.0«, l3=0x31}
0x39e3…39f1 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x39f1…3a1e Line {l1=0x2b, l2=» PROD.KRSTK:=POST.KRSTK*POST.STKH;«, l3=0x2b}
0x3a1e…3a3f Line {l1=0x1f, l2=» 2:PROD.KRSTK:=POST.KRSTK;«, l3=0x1f}
0x3a3f…3a77 Line {l1=0x36, l2=» 3:PROD.KRSTK:=SYSTEM.AKKTIME(TRUNC(POST.KRSTK));«, l3=0x36}
0x3a77…3a86 Line {l1=0x0d, l2=» 4:BEGIN«, l3=0x0d}
0x3a86…3ab0 Line {l1=0x28, l2=» LØNGRUP.NR:=TRUNC(POST.KRSTK);«, l3=0x28}
0x3ab0…3aee Line {l1=0x3c, l2=» GETREC(LØNGRUP.A);IF IER<>0 THEN ERROR(LØNGRUP.A);«, l3=0x3c}
0x3aee…3b17 Line {l1=0x27, l2=» PROD.KRSTK:=LØNGRUP.TIMESATS «, l3=0x27}
0x3b17…3b25 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3b25…3b34 Line {l1=0x0d, l2=» 5:BEGIN«, l3=0x0d}
0x3b34…3b5d Line {l1=0x27, l2=» MEDARB.NR:=TRUNC(POST.KRSTK);«, l3=0x27}
0x3b5d…3b99 Line {l1=0x3a, l2=» GETREC(MEDARB.A);IF IER<>0 THEN ERROR(MEDARB.A);«, l3=0x3a}
0x3b99…3bc1 Line {l1=0x26, l2=» PROD.KRSTK:=MEDARB.TIMESATS «, l3=0x26}
0x3bc1…3bcf Line {l1=0x0c, l2=» END «, l3=0x0c}
0x3bcf…3bdb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3bdb…3bf7 Line {l1=0x1a, l2=» IF PROD.STKH<=0 THEN«, l3=0x1a}
0x3bf7…3c04 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3c04…3c3b Line {l1=0x35, l2=» PROD.VARIGHED:=ROUND(-PROD.STKH/100.0+0.499);«, l3=0x35}
0x3c3b…3c8a Line {l1=0x4d, l2=» ORDRE.LØNOMK:=-PROD.STKH*PROD.KRSTK/ORDRE.ANTALBES/100.0+ORDRE.LØNOMK«, l3=0x4d}
0x3c8a…3c95 Line {l1=0x09, l2=» END«, l3=0x09}
0x3c95…3ca2 Line {l1=0x0b, l2=» ELSE «, l3=0x0b}
0x3ca2…3caf Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3caf…3cee Line {l1=0x3d, l2=» PROD.VARIGHED:=ROUND(ORDRE.ANTALBES/PROD.STKH+0.499);«, l3=0x3d}
0x3cee…3d28 Line {l1=0x38, l2=» ORDRE.LØNOMK:=PROD.KRSTK/PROD.STKH+ORDRE.LØNOMK «, l3=0x38}
0x3d28…3d34 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3d34…3d6a Line {l1=0x34, l2=» FIXSATS(PROD.RESS1,ORDRE.MASKINOM);(*MASKINE*)«, l3=0x34}
0x3d6a…3da1 Line {l1=0x35, l2=» FIXSATS(PROD.RESS2,ORDRE.LØNOMK); (*OPERATØR*)«, l3=0x35}
0x3da1…3dd7 Line {l1=0x34, l2=» FIXSATS(PROD.RESS3,ORDRE.MASKINOM);(*VÆRKTØJ*)«, l3=0x34}
0x3dd7…3e13 Line {l1=0x3a, l2=» FIXSATS(PROD.RESS4,ORDRE.MASKINOM);(*HJÆLPEVÆRKTØJ*)«, l3=0x3a}
0x3e13…3e47 Line {l1=0x32, l2=» INSERT(PROD.A);IF IER<>0 THEN ERROR(PROD.A);«, l3=0x32}
0x3e47…3e6d Line {l1=0x24, l2=» OMVPROD.ORDRENR:=PROD.ORDRENR;«, l3=0x24}
0x3e6d…3e95 Line {l1=0x26, l2=» OMVPROD.SEKVENSN:=PROD.SEKVENSN;«, l3=0x26}
0x3e95…3ebb Line {l1=0x24, l2=» OMVPROD.OPERANR:=PROD.OPERANR;«, l3=0x24}
0x3ebb…3edf Line {l1=0x22, l2=» OMVPROD.EMNENR:=PROD.EMNENR;«, l3=0x22}
0x3edf…3f18 Line {l1=0x37, l2=» INSERT(OMVPROD.A);IF IER<>0 THEN ERROR(OMVPROD.A)«, l3=0x37}
0x3f18…3f24 Line {l1=0x0a, l2=» (*END*);«, l3=0x0a}
0x3f24…3f39 Line {l1=0x13, l2=» NEXTREC(POST.A)«, l3=0x13}
0x3f39…3f41 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3f41…3f73 Line {l1=0x30, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(POST.A)«, l3=0x30}
0x3f73…3f79 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3f79…3f81 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3f81…3f97 Line {l1=0x14, l2=»PROCEDURE BEREGNMAT;«, l3=0x14}
0x3f97…3fb4 Line {l1=0x1b, l2=»VAR SMELT,FORBRUG,OMK:REAL;«, l3=0x1b}
0x3fb4…3fb7 Line {l1=0x01, l2=» «, l3=0x01}
0x3fb7…3fbe Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3fbe…3fd8 Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x3fd8…400c Line {l1=0x32, l2=» GETREC(RÅVARE.A);IF IER<>0 THEN ERROR(RÅVARE.A);«, l3=0x32}
0x400c…4023 Line {l1=0x15, l2=» WITH RÅVARE,EMNE DO«, l3=0x15}
0x4023…402c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x402c…4071 Line {l1=0x43, l2=» SMELT:=NETTOVÆG*(1000.0+SVIND)/1000.0*(1000.0+SMELTTIL)/1000.0*«, l3=0x43}
0x4071…4097 Line {l1=0x24, l2=» (1000.0+SMESVIND)/1000.0;«, l3=0x24}
0x4097…40b7 Line {l1=0x1e, l2=» OMK:=SMELT*SMEPRIS/1000.0;«, l3=0x1e}
0x40b7…40fc Line {l1=0x43, l2=» (*WRITELN(LIST,'SMELTEOMKOSTNINGER',SMELT:7:3,' g a',SMEPRIS:5:2,«, l3=0x43}
0x40fc…4126 Line {l1=0x28, l2=» ' Kr pr. g',OMK:8:3);*)«, l3=0x28}
0x4126…413e Line {l1=0x16, l2=» ORDRE.SMEOMK:=OMK;«, l3=0x16}
0x413e…4182 Line {l1=0x42, l2=» FORBRUG:=SMELT-NETTOVÆG*(1000.0+SVIND)/1000.0*SMELTTIL/1000.0;«, l3=0x42}
0x4182…41a5 Line {l1=0x21, l2=» OMK:=FORBRUG*KOSTPRIS/1000.0;«, l3=0x21}
0x41a5…41ed Line {l1=0x46, l2=» (*WRITELN(LIST,'MATERIALEFORBRUG ',FORBRUG:7:3,' g a',KOSTPRIS:5:2,«, l3=0x46}
0x41ed…4217 Line {l1=0x28, l2=» ' Kr pr. g',OMK:8:3);*)«, l3=0x28}
0x4217…4230 Line {l1=0x17, l2=» ORDRE.MATFORB:=OMK;«, l3=0x17}
0x4230…4254 Line {l1=0x22, l2=» ORDRE.MATOMK:=ORDRE.SMEOMK+OMK«, l3=0x22}
0x4254…425b Line {l1=0x05, l2=» END«, l3=0x05}
0x425b…425e Line {l1=0x01, l2=» «, l3=0x01}
0x425e…4264 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4264…426c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x426c…4289 Line {l1=0x1b, l2=»PROCEDURE FORKALKULATION; «, l3=0x1b}
0x4289…429d Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x429d…42bd Line {l1=0x1e, l2=» EMNFOUND,KUNFOUND:BOOLEAN;«, l3=0x1e}
0x42bd…42df Line {l1=0x20, l2=» TTPSTK,TTOTTID,TKRPSTK:REAL;«, l3=0x20}
0x42df…42e2 Line {l1=0x01, l2=» «, l3=0x01}
0x42e2…42f6 Line {l1=0x12, l2=»PROCEDURE HEADING;«, l3=0x12}
0x42f6…42fd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x42fd…433a Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x433a…4361 Line {l1=0x25, l2=» FOR LINES:=1 TO 2 DO WRITELN(LIST);«, l3=0x25}
0x4361…43a9 Line {l1=0x46, l2=» WRITELN(LIST,' ':52,'kunde-ordrenr',' ':6,'linimatic ordrenr',' ':5,«, l3=0x46}
0x43a9…43d1 Line {l1=0x26, l2=» 'emnenr',' ':6,'dato');«, l3=0x26}
0x43d1…4409 Line {l1=0x36, l2=» WRITELN(LIST,'FORKALKULATION',' ':38,ORDRE.KUNDORDR,«, l3=0x36}
0x4409…4436 Line {l1=0x2b, l2=» ORDRE.NR:20,ORDRE.EMNENR:11,«, l3=0x2b}
0x4436…447c Line {l1=0x44, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):10:-2);«, l3=0x44}
0x447c…44bb Line {l1=0x3d, l2=» WRITELN(LIST,'tegn. nr',' ':22,'benævnelse',' ':26,'kunde',«, l3=0x3d}
0x44bb…44de Line {l1=0x21, l2=» ' ':31,'kundenr');«, l3=0x21}
0x44de…44f2 Line {l1=0x12, l2=» IF EMNFOUND THEN«, l3=0x12}
0x44f2…4529 Line {l1=0x35, l2=» WRITE(LIST,EMNE.TEGNNR,' ':10,EMNE.BETEGN,' ':6) «, l3=0x35}
0x4529…4551 Line {l1=0x26, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':66);«, l3=0x26}
0x4551…457c Line {l1=0x29, l2=» IF KUNFOUND THEN WRITE(LIST,KUNDE.NAVN)«, l3=0x29}
0x457c…45a4 Line {l1=0x26, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':26);«, l3=0x26}
0x45a4…45e6 Line {l1=0x40, l2=» WRITELN(LIST,ORDRE.KUNDENR(1)*10000.0+ORDRE.KUNDENR(2):17:-2);«, l3=0x40}
0x45e6…45f8 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x45f8…4643 Line {l1=0x49, l2=» WRITELN(LIST,'op op- betegnelse antal a mas- stk tid total',«, l3=0x49}
0x4643…4666 Line {l1=0x21, l2=» ' time kr');«, l3=0x21}
0x4666…46b1 Line {l1=0x49, l2=» WRITELN(LIST,'nr art kine /h /stk tid',«, l3=0x49}
0x46b1…46d4 Line {l1=0x21, l2=» ' sats /stk');«, l3=0x21}
0x46d4…46e6 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x46e6…46f4 Line {l1=0x0c, l2=» LINES:=10 «, l3=0x0c}
0x46f4…46fa Line {l1=0x04, l2=»END;«, l3=0x04}
0x46fa…470d Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x470d…4714 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4714…4725 Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x4725…472e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x472e…477d Line {l1=0x4d, l2=» WRITELN(LIST,'---------------------------------------------------------',«, l3=0x4d}
0x477d…47a0 Line {l1=0x21, l2=» '------------');«, l3=0x21}
0x47a0…47e7 Line {l1=0x45, l2=» WRITELN(LIST,'TOTAL',' ':35,TTPSTK:8:3,TTOTTID:7:2,TKRPSTK:14:3);«, l3=0x45}
0x47e7…47fb Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x47fb…481a Line {l1=0x1d, l2=» IF LINES>34 THEN HEADING;«, l3=0x1d}
0x481a…483a Line {l1=0x1e, l2=» (*IF KALKULER THEN BEREGNMAT«, l3=0x1e}
0x483a…4844 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4844…4851 Line {l1=0x0b, l2=» BEGIN*)«, l3=0x0b}
0x4851…488e Line {l1=0x3b, l2=» WRITELN(LIST,'SMELTEOMKOSTNINGER',' ':27,SMEOMK:8:3);«, l3=0x3b}
0x488e…48cb Line {l1=0x3b, l2=» WRITELN(LIST,'MATERIALEFORBRUG ',' ':27,MATFORB:8:3)«, l3=0x3b}
0x48cb…48d7 Line {l1=0x0a, l2=» (*END*);«, l3=0x0a}
0x48d7…4905 Line {l1=0x2c, l2=» WRITELN(LIST,' ':45,'----------------');«, l3=0x2c}
0x4905…494b Line {l1=0x44, l2=» WRITELN(LIST,'MAT.-OMKOSTNINGER ',' ':27,MATOMK:8:3,MATOMK:8:3);«, l3=0x44}
0x494b…4986 Line {l1=0x39, l2=» WRITELN(LIST,'LØNOMKOSTNINGER ',' ':35,LØNOMK:8:3);«, l3=0x39}
0x4986…49c3 Line {l1=0x3b, l2=» WRITELN(LIST,'MASKINOMKOSTNINGER',' ':35,MASKINOM:8:3);«, l3=0x3b}
0x49c3…49f1 Line {l1=0x2c, l2=» WRITELN(LIST,' ':53,'----------------');«, l3=0x2c}
0x49f1…4a27 Line {l1=0x34, l2=» WRITELN(LIST,'EMNEPRIS ',' ':35,MATOMK+«, l3=0x34}
0x4a27…4a6a Line {l1=0x41, l2=» LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3);«, l3=0x41}
0x4a6a…4aa1 Line {l1=0x35, l2=» WRITELN(LIST,'DÆKNINGSBIDRAG ',' ':35,-MATOMK+«, l3=0x35}
0x4aa1…4ad8 Line {l1=0x35, l2=» SALGSPRI-LØNOMK-MASKINOM:16:3);«, l3=0x35}
0x4ad8…4afe Line {l1=0x24, l2=» WRITELN(LIST,' ':61,'--------');«, l3=0x24}
0x4afe…4b3c Line {l1=0x3c, l2=» WRITELN(LIST,'SALGSPRIS ',' ':35,SALGSPRI:16:3);«, l3=0x3c}
0x4b3c…4b62 Line {l1=0x24, l2=» WRITELN(LIST,' ':61,'========') «, l3=0x24}
0x4b62…4b6a Line {l1=0x06, l2=» END;«, l3=0x06}
0x4b6a…4b7e Line {l1=0x12, l2=» LINES:=LINES+15;«, l3=0x12}
0x4b7e…4bbb Line {l1=0x3b, l2=» WHILE LINES<51 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3b}
0x4bbb…4bc1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4bc1…4bc9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4bc9…4be3 Line {l1=0x18, l2=»BEGIN (*FORKALKULATION*)«, l3=0x18}
0x4be3…4be8 Line {l1=0x03, l2=» (*«, l3=0x03}
0x4be8…4bf1 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x4bf1…4c12 Line {l1=0x1f, l2=» CH:=QJN('Ønskes testprint');«, l3=0x1f}
0x4c12…4c27 Line {l1=0x13, l2=» IF CH IN JA THEN«, l3=0x13}
0x4c27…4c31 Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x4c31…4c5b Line {l1=0x28, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x28}
0x4c5b…4c80 Line {l1=0x23, l2=» WRITELN(LIST,' ':35,'XXXXXX');«, l3=0x23}
0x4c80…4caa Line {l1=0x28, l2=» FOR LINES:=6 TO 51 DO WRITELN(LIST)«, l3=0x28}
0x4caa…4cb3 Line {l1=0x07, l2=» END «, l3=0x07}
0x4cb3…4cc6 Line {l1=0x11, l2=» UNTIL CH IN NEJ;«, l3=0x11}
0x4cc6…4ccb Line {l1=0x03, l2=» *)«, l3=0x03}
0x4ccb…4cd8 Line {l1=0x0b, l2=» LINES:=51;«, l3=0x0b}
0x4cd8…4ce7 Line {l1=0x0d, l2=» WITH PROD DO«, l3=0x0d}
0x4ce7…4cef Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x4cef…4cf2 Line {l1=0x01, l2=» «, l3=0x01}
0x4cf2…4d03 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x4d03…4d0c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4d0c…4d22 Line {l1=0x14, l2=» NR:=ORDRE.KUNDENR;«, l3=0x14}
0x4d22…4d57 Line {l1=0x33, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x33}
0x4d57…4d6c Line {l1=0x13, l2=» KUNFOUND:=(IER=0)«, l3=0x13}
0x4d6c…4d74 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4d74…4d77 Line {l1=0x01, l2=» «, l3=0x01}
0x4d77…4d87 Line {l1=0x0e, l2=» WITH EMNE DO«, l3=0x0e}
0x4d87…4d90 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4d90…4da5 Line {l1=0x13, l2=» NR:=ORDRE.EMNENR;«, l3=0x13}
0x4da5…4dda Line {l1=0x33, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x33}
0x4dda…4def Line {l1=0x13, l2=» EMNFOUND:=(IER=0)«, l3=0x13}
0x4def…4df7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4df7…4dfa Line {l1=0x01, l2=» «, l3=0x01}
0x4dfa…4e0a Line {l1=0x0e, l2=» TTPSTK:=0.0;«, l3=0x0e}
0x4e0a…4e1b Line {l1=0x0f, l2=» TTOTTID:=0.0;«, l3=0x0f}
0x4e1b…4e2c Line {l1=0x0f, l2=» TKRPSTK:=0.0;«, l3=0x0f}
0x4e2c…4e2f Line {l1=0x01, l2=» «, l3=0x01}
0x4e2f…4e45 Line {l1=0x14, l2=» ORDRENR:=ORDRE.NR;«, l3=0x14}
0x4e45…4e5e Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x4e5e…4e6e Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x4e6e…4e7d Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x4e7d…4eb5 Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x4eb5…4ec0 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x4ec0…4f05 Line {l1=0x43, l2=» WHILE (IER=0) AND (EMNENR=ORDRE.EMNENR) AND (ORDRENR=ORDRE.NR) DO«, l3=0x43}
0x4f05…4f0e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4f0e…4f2d Line {l1=0x1d, l2=» IF LINES>48 THEN HEADING;«, l3=0x1d}
0x4f2d…4f42 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x4f42…4f6d Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x4f6d…4f80 Line {l1=0x11, l2=» WITH OPERA DO«, l3=0x11}
0x4f80…4f8b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4f8b…4f9f Line {l1=0x12, l2=» NR:=OPERANR;«, l3=0x12}
0x4f9f…4fd8 Line {l1=0x37, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x37}
0x4fd8…5003 Line {l1=0x29, l2=» IF IER=0 THEN WRITE(LIST,BETEGN:17)«, l3=0x29}
0x5003…502f Line {l1=0x2a, l2=» ELSE WRITE(LIST,'IKKE OPRETTET':17) «, l3=0x2a}
0x502f…5039 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5039…505f Line {l1=0x24, l2=» WRITE(LIST,ORDRE.ANTALBES:6:-2);«, l3=0x24}
0x505f…5074 Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x5074…5086 Line {l1=0x10, l2=» WITH RESS DO«, l3=0x10}
0x5086…5091 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5091…50a3 Line {l1=0x10, l2=» NR:=RESS1;«, l3=0x10}
0x50a3…50dc Line {l1=0x37, l2=» GETREC(A);IF NOT (-IER IN (.0,6.)) THEN ERROR(A);«, l3=0x37}
0x50dc…50f1 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x50f1…5115 Line {l1=0x22, l2=» WRITE(LIST,AFDELNR:2,NR:5)«, l3=0x22}
0x5115…513a Line {l1=0x23, l2=» ELSE WRITE(LIST,'UO',RESS1:5)«, l3=0x23}
0x513a…5143 Line {l1=0x07, l2=» END«, l3=0x07}
0x5143…514d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x514d…5174 Line {l1=0x25, l2=» IF RESS1=0 THEN WRITE(LIST,' ':7)«, l3=0x25}
0x5174…519a Line {l1=0x24, l2=» ELSE WRITE(LIST,' *',-RESS1:4);«, l3=0x24}
0x519a…51af Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x51af…51ba Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x51ba…51de Line {l1=0x22, l2=» TTOTTID:=TTOTTID-STKH/100.0;«, l3=0x22}
0x51de…5202 Line {l1=0x22, l2=» WRITE(LIST,-STKH/100.0:18:2)«, l3=0x22}
0x5202…520b Line {l1=0x07, l2=» END«, l3=0x07}
0x520b…5215 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5215…5220 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5220…523e Line {l1=0x1c, l2=» TTPSTK:=TTPSTK+1/STKH;«, l3=0x1c}
0x523e…526b Line {l1=0x2b, l2=» TTOTTID:=TTOTTID+ORDRE.ANTALBES/STKH;«, l3=0x2b}
0x526b…52a9 Line {l1=0x3c, l2=» WRITE(LIST,STKH:5,1/STKH:6:3,ORDRE.ANTALBES/STKH:7:2) «, l3=0x3c}
0x52a9…52b3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x52b3…52cf Line {l1=0x1a, l2=» WRITE(LIST,KRSTK:8:2);«, l3=0x1a}
0x52cf…52e4 Line {l1=0x13, l2=» IF STKH<=0 THEN«, l3=0x13}
0x52e4…52ef Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x52ef…5328 Line {l1=0x37, l2=» TKRPSTK:=TKRPSTK-STKH*KRSTK/ORDRE.ANTALBES/100.0;«, l3=0x37}
0x5328…5362 Line {l1=0x38, l2=» WRITELN(LIST,-STKH*KRSTK/ORDRE.ANTALBES/100.0:6:3)«, l3=0x38}
0x5362…536b Line {l1=0x07, l2=» END«, l3=0x07}
0x536b…5375 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5375…5380 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5380…53a4 Line {l1=0x22, l2=» TKRPSTK:=TKRPSTK+KRSTK/STKH;«, l3=0x22}
0x53a4…53c9 Line {l1=0x23, l2=» WRITELN(LIST,KRSTK/STKH:6:3) «, l3=0x23}
0x53c9…53d3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x53d3…53e3 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x53e3…53eb Line {l1=0x06, l2=» END;«, l3=0x06}
0x53eb…53f6 Line {l1=0x09, l2=» BOTTOM;«, l3=0x09}
0x53f6…5422 Line {l1=0x2a, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)«, l3=0x2a}
0x5422…5428 Line {l1=0x04, l2=» END«, l3=0x04}
0x5428…542e Line {l1=0x04, l2=»END;«, l3=0x04}
0x542e…5436 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5436…544d Line {l1=0x15, l2=»PROCEDURE OPRETORDRE;«, l3=0x15}
0x544d…5466 Line {l1=0x17, l2=»VAR I,ANTALEMN:INTEGER;«, l3=0x17}
0x5466…5469 Line {l1=0x01, l2=» «, l3=0x01}
0x5469…548b Line {l1=0x20, l2=»PROCEDURE OHOVED(VAR I:INTEGER);«, l3=0x20}
0x548b…5492 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5492…54aa Line {l1=0x16, l2=» LÆSFELT(PICTURE(I));«, l3=0x16}
0x54aa…54c4 Line {l1=0x18, l2=» SKRIVFELT(PICTURE(I));«, l3=0x18}
0x54c4…54d1 Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x54d1…54f3 Line {l1=0x20, l2=» 12:ORDRE.ANTALBES:=POST.KRSTK;«, l3=0x20}
0x54f3…5515 Line {l1=0x20, l2=» 13:ORDRE.SALGSPRI:=POST.KRSTK;«, l3=0x20}
0x5515…5539 Line {l1=0x22, l2=» 14:ORDRE.ØNSKLEV:=POST.ØLEVTERM;«, l3=0x22}
0x5539…555b Line {l1=0x20, l2=» 15:ORDRE.INITIALE:=POST.INIT; «, l3=0x20}
0x555b…557e Line {l1=0x21, l2=» 16:ORDRE.KUNDORDR:=POST.KUORDNR«, l3=0x21}
0x557e…5585 Line {l1=0x05, l2=» END«, l3=0x05}
0x5585…558b Line {l1=0x04, l2=»END;«, l3=0x04}
0x558b…5593 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5593…55b5 Line {l1=0x20, l2=»PROCEDURE VÆLGFELT(FRA:INTEGER);«, l3=0x20}
0x55b5…55c5 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x55c5…55cc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x55cc…55d6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x55d6…55e2 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x55e2…55f2 Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x55f2…562d Line {l1=0x39, l2=» WRITE('Ændring af felt',FRA:2,'-7, 0 for færdig ');«, l3=0x39}
0x562d…563c Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x563c…564b Line {l1=0x0d, l2=» READ(I)«, l3=0x0d}
0x564b…5687 Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND ((I IN (.0,4..7.)) OR (I=FRA));«, l3=0x3a}
0x5687…5694 Line {l1=0x0b, l2=» I:=I+9;«, l3=0x0b}
0x5694…56b0 Line {l1=0x1a, l2=» IF I>9 THEN OHOVED(I) «, l3=0x1a}
0x56b0…56be Line {l1=0x0c, l2=» UNTIL I=9 «, l3=0x0c}
0x56be…56c4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x56c4…56c7 Line {l1=0x01, l2=» «, l3=0x01}
0x56c7…56db Line {l1=0x12, l2=»PROCEDURE COMMENT;«, l3=0x12}
0x56db…56f4 Line {l1=0x17, l2=»VAR COMLINE:STRING(70);«, l3=0x17}
0x56f4…5704 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x5704…570b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x570b…571e Line {l1=0x11, l2=» WITH ORDTEKST DO«, l3=0x11}
0x571e…5726 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x5726…5737 Line {l1=0x0f, l2=» NR:=ORDRE.NR;«, l3=0x0f}
0x5737…5750 Line {l1=0x17, l2=» EMNENR:=ORDRE.EMNENR;«, l3=0x17}
0x5750…575b Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x575b…5773 Line {l1=0x16, l2=» COMLINE(0):=CHR(70);«, l3=0x16}
0x5773…577e Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x577e…578a Line {l1=0x0a, l2=» D(22,2);«, l3=0x0a}
0x578a…57ca Line {l1=0x3e, l2=» WRITE('Indtast kommentarlinier. Slut med "." i position 1');«, l3=0x3e}
0x57ca…57d3 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x57d3…57dd Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x57dd…57ea Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x57ea…580c Line {l1=0x20, l2=» FILLCHAR(COMLINE(2),69,' ');«, l3=0x20}
0x580c…5822 Line {l1=0x14, l2=» COMLINE(1):='.';«, l3=0x14}
0x5822…5835 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x5835…5849 Line {l1=0x12, l2=» EDIT(COMLINE);«, l3=0x12}
0x5849…5866 Line {l1=0x1b, l2=» IF COMLINE(1)<>'.' THEN«, l3=0x1b}
0x5866…5871 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5871…5897 Line {l1=0x24, l2=» MOVELEFT(COMLINE(1),TEKST,70);«, l3=0x24}
0x5897…58a7 Line {l1=0x0e, l2=» LBNR:=I;«, l3=0x0e}
0x58a7…58d0 Line {l1=0x27, l2=» INSERT(A);IF IER<>0 THEN ERROR(A)«, l3=0x27}
0x58d0…58e4 Line {l1=0x12, l2=» END ELSE I:=10«, l3=0x12}
0x58e4…58f3 Line {l1=0x0d, l2=» UNTIL I=10;«, l3=0x0d}
0x58f3…58fe Line {l1=0x09, l2=» D(22,2)«, l3=0x09}
0x58fe…5904 Line {l1=0x04, l2=» END«, l3=0x04}
0x5904…590a Line {l1=0x04, l2=»END;«, l3=0x04}
0x590a…5912 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5912…591b Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x591b…5931 Line {l1=0x14, l2=»BEGIN (*OPRETORDRE*)«, l3=0x14}
0x5931…5934 Line {l1=0x01, l2=» «, l3=0x01}
0x5934…593e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x593e…5959 Line {l1=0x19, l2=» LÆSFELT(PICTURE(11));«, l3=0x19}
0x5959…5976 Line {l1=0x1b, l2=» SKRIVFELT(PICTURE(11));«, l3=0x1b}
0x5976…5993 Line {l1=0x1b, l2=» KUNDE.NR:=POST.KUNDENR;«, l3=0x1b}
0x5993…59d6 Line {l1=0x41, l2=» GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);«, l3=0x41}
0x59d6…59fd Line {l1=0x25, l2=» IF IER=-6 THEN NONEXIST('Kunden')«, l3=0x25}
0x59fd…5a0d Line {l1=0x0e, l2=» UNTIL IER=0;«, l3=0x0e}
0x5a0d…5a32 Line {l1=0x23, l2=» GOTOXY(40,5);WRITELN(KUNDE.NAVN);«, l3=0x23}
0x5a32…5a35 Line {l1=0x01, l2=» «, l3=0x01}
0x5a35…5a5a Line {l1=0x23, l2=» IF QJN('Rigtig kunde') IN JA THEN«, l3=0x23}
0x5a5a…5a63 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5a63…5a66 Line {l1=0x01, l2=» «, l3=0x01}
0x5a66…5a78 Line {l1=0x10, l2=» GOTOXY(1,6);«, l3=0x10}
0x5a78…5a97 Line {l1=0x1d, l2=» WRITELN('Kundens emner');«, l3=0x1d}
0x5a97…5ab7 Line {l1=0x1e, l2=» KUNEMNE.KUNDENR:=KUNDE.NR;«, l3=0x1e}
0x5ab7…5acf Line {l1=0x16, l2=» KUNEMNE.EMNENR:=0;«, l3=0x16}
0x5acf…5b1a Line {l1=0x49, l2=» NEXTREC(KUNEMNE.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(KUNEMNE.A);«, l3=0x49}
0x5b1a…5b27 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x5b27…5b39 Line {l1=0x10, l2=» ANTALEMN:=0;«, l3=0x10}
0x5b39…5b6e Line {l1=0x33, l2=» WHILE (IER=0) AND (KUNEMNE.KUNDENR=KUNDE.NR) DO«, l3=0x33}
0x5b6e…5b79 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5b79…5b9a Line {l1=0x1f, l2=» WRITE(KUNEMNE.EMNENR:10);«, l3=0x1f}
0x5b9a…5bb7 Line {l1=0x1b, l2=» ANTALEMN:=ANTALEMN+1;«, l3=0x1b}
0x5bb7…5be0 Line {l1=0x27, l2=» IF ANTALEMN MOD 7=0 THEN WRITELN;«, l3=0x27}
0x5be0…5bfa Line {l1=0x18, l2=» NEXTREC(KUNEMNE.A)«, l3=0x18}
0x5bfa…5c04 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5c04…5c3c Line {l1=0x36, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(KUNEMNE.A);«, l3=0x36}
0x5c3c…5c3f Line {l1=0x01, l2=» «, l3=0x01}
0x5c3f…5c4b Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x5c4b…5c67 Line {l1=0x1a, l2=» LÆSFELT(PICTURE(1));«, l3=0x1a}
0x5c67…5c85 Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1c}
0x5c85…5cb4 Line {l1=0x2d, l2=» IF POST.EMNENR=0 THEN EXIT(OPRETORDRE);«, l3=0x2d}
0x5cb4…5cd1 Line {l1=0x1b, l2=» EMNE.NR:=POST.EMNENR;«, l3=0x1b}
0x5cd1…5d14 Line {l1=0x41, l2=» GETREC(EMNE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(EMNE.A);«, l3=0x41}
0x5d14…5d3d Line {l1=0x27, l2=» IF IER=-6 THEN NONEXIST('Emnet');«, l3=0x27}
0x5d3d…5d63 Line {l1=0x24, l2=» IF EMNE.KUNDENR<>KUNDE.NR THEN«, l3=0x24}
0x5d63…5d70 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5d70…5d91 Line {l1=0x1f, l2=» NONEXIST('Emne-kunde');«, l3=0x1f}
0x5d91…5da2 Line {l1=0x0f, l2=» IER:=-6«, l3=0x0f}
0x5da2…5dad Line {l1=0x09, l2=» END«, l3=0x09}
0x5dad…5dbf Line {l1=0x10, l2=» UNTIL IER=0;«, l3=0x10}
0x5dbf…5ddf Line {l1=0x1e, l2=» D(6,(ANTALEMN-1) DIV 7+2);«, l3=0x1e}
0x5ddf…5dff Line {l1=0x1e, l2=» WRITELN('Emner i formen');«, l3=0x1e}
0x5dff…5e02 Line {l1=0x01, l2=» «, l3=0x01}
0x5e02…5e25 Line {l1=0x21, l2=» EMNIFORM.FORMNR:=EMNE.FORMNR;«, l3=0x21}
0x5e25…5e3e Line {l1=0x17, l2=» EMNIFORM.EMNENR:=0;«, l3=0x17}
0x5e3e…5e8b Line {l1=0x4b, l2=» NEXTREC(EMNIFORM.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(EMNIFORM.A);«, l3=0x4b}
0x5e8b…5e98 Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x5e98…5eaa Line {l1=0x10, l2=» ANTALEMN:=0;«, l3=0x10}
0x5eaa…5ee2 Line {l1=0x36, l2=» WHILE (IER=0) AND (EMNIFORM.FORMNR=EMNE.FORMNR) DO«, l3=0x36}
0x5ee2…5eed Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5eed…5f0e Line {l1=0x1f, l2=» EMNE.NR:=EMNIFORM.EMNENR;«, l3=0x1f}
0x5f0e…5f2b Line {l1=0x1b, l2=» ANTALEMN:=ANTALEMN+1;«, l3=0x1b}
0x5f2b…5f5f Line {l1=0x32, l2=» GETREC(EMNE.A);IF IER<>0 THEN ERROR(EMNE.A);«, l3=0x32}
0x5f5f…5f8a Line {l1=0x29, l2=» WRITELN(EMNE.NR:6,' ',EMNE.BEMÆRK);«, l3=0x29}
0x5f8a…5fa5 Line {l1=0x19, l2=» NEXTREC(EMNIFORM.A)«, l3=0x19}
0x5fa5…5faf Line {l1=0x08, l2=» END;«, l3=0x08}
0x5faf…5fe8 Line {l1=0x37, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(EMNIFORM.A);«, l3=0x37}
0x5fe8…6000 Line {l1=0x16, l2=» IF ANTALEMN>1 THEN«, l3=0x16}
0x6000…600b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x600b…601b Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x601b…604f Line {l1=0x32, l2=» WRITE('Bemærk flere emner i form, RETURN ');«, l3=0x32}
0x604f…605e Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x605e…606d Line {l1=0x0d, l2=» D(23,1)«, l3=0x0d}
0x606d…6077 Line {l1=0x08, l2=» END;«, l3=0x08}
0x6077…608d Line {l1=0x14, l2=» D(6,ANTALEMN+1);«, l3=0x14}
0x608d…6090 Line {l1=0x01, l2=» «, l3=0x01}
0x6090…60ab Line {l1=0x19, l2=» EMNE.NR:=POST.EMNENR;«, l3=0x19}
0x60ab…60dd Line {l1=0x30, l2=» GETREC(EMNE.A);IF IER<>0 THEN ERROR(EMNE.A);«, l3=0x30}
0x60dd…60fb Line {l1=0x1c, l2=» ORDRE.KUNDENR:=KUNDE.NR;«, l3=0x1c}
0x60fb…6117 Line {l1=0x1a, l2=» ORDRE.EMNENR:=EMNE.NR;«, l3=0x1a}
0x6117…613c Line {l1=0x23, l2=» ORDRE.REGDATO:=SYSTEM.DAGSDATO;«, l3=0x23}
0x613c…6154 Line {l1=0x16, l2=» ORDRE.BEKRÆLEV:=0;«, l3=0x16}
0x6154…6157 Line {l1=0x01, l2=» «, l3=0x01}
0x6157…6172 Line {l1=0x19, l2=» LÆSFELT(PICTURE(10));«, l3=0x19}
0x6172…618e Line {l1=0x1a, l2=» IF POST.ORDRENR>0 THEN«, l3=0x1a}
0x618e…61ac Line {l1=0x1c, l2=» ORDRE.NR:=POST.ORDRENR«, l3=0x1c}
0x61ac…61b6 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x61b6…61c1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x61c1…61fa Line {l1=0x37, l2=» GETRECX(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);«, l3=0x37}
0x61fa…621b Line {l1=0x1f, l2=» ORDRE.NR:=SYSTEM.ORDRENR;«, l3=0x1f}
0x621b…623a Line {l1=0x1d, l2=» POST.ORDRENR:=ORDRE.NR;«, l3=0x1d}
0x623a…6263 Line {l1=0x27, l2=» SYSTEM.ORDRENR:=SYSTEM.ORDRENR+1;«, l3=0x27}
0x6263…629a Line {l1=0x35, l2=» PUTREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A)«, l3=0x35}
0x629a…62a4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x62a4…62c1 Line {l1=0x1b, l2=» SKRIVFELT(PICTURE(10));«, l3=0x1b}
0x62c1…62c4 Line {l1=0x01, l2=» «, l3=0x01}
0x62c4…62dc Line {l1=0x16, l2=» POST.INIT:=' ';«, l3=0x16}
0x62dc…6303 Line {l1=0x25, l2=» POST.KUORDNR:=' ';«, l3=0x25}
0x6303…6326 Line {l1=0x21, l2=» FOR I:=12 TO 16 DO OHOVED(I);«, l3=0x21}
0x6326…6338 Line {l1=0x10, l2=» VÆLGFELT(3);«, l3=0x10}
0x6338…633b Line {l1=0x01, l2=» «, l3=0x01}
0x633b…6349 Line {l1=0x0c, l2=» COMMENT;«, l3=0x0c}
0x6349…634c Line {l1=0x01, l2=» «, l3=0x01}
0x634c…636d Line {l1=0x1f, l2=» KUNORDRE.ORDRENR:=ORDRE.NR;«, l3=0x1f}
0x636d…6393 Line {l1=0x24, l2=» KUNORDRE.KUNDENR:=ORDRE.KUNDENR;«, l3=0x24}
0x6393…63b7 Line {l1=0x22, l2=» KUNORDRE.EMNENR:=ORDRE.EMNENR;«, l3=0x22}
0x63b7…63fe Line {l1=0x45, l2=» INSERT(KUNORDRE.A);IF NOT (-IER IN (.0.)) THEN ERROR(KUNORDRE.A);«, l3=0x45}
0x63fe…6401 Line {l1=0x01, l2=» «, l3=0x01}
0x6401…6419 Line {l1=0x16, l2=» ORDRE.MATOMK:=0.0;«, l3=0x16}
0x6419…6431 Line {l1=0x16, l2=» ORDRE.LØNOMK:=0.0;«, l3=0x16}
0x6431…644b Line {l1=0x18, l2=» ORDRE.MASKINOM:=0.0;«, l3=0x18}
0x644b…6463 Line {l1=0x16, l2=» ORDRE.SMEOMK:=0.0;«, l3=0x16}
0x6463…647c Line {l1=0x17, l2=» ORDRE.MATFORB:=0.0;«, l3=0x17}
0x647c…647f Line {l1=0x01, l2=» «, l3=0x01}
0x647f…6490 Line {l1=0x0f, l2=» TILPASFORK;«, l3=0x0f}
0x6490…6493 Line {l1=0x01, l2=» «, l3=0x01}
0x6493…64a8 Line {l1=0x13, l2=» KALKULER:=TRUE;«, l3=0x13}
0x64a8…64b0 Line {l1=0x06, l2=» (*«, l3=0x06}
0x64b0…64bc Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x64bc…64d3 Line {l1=0x15, l2=» FORKALKULATION;«, l3=0x15}
0x64d3…64f9 Line {l1=0x24, l2=» CH:=QJN('Kalkulation færdig');«, l3=0x24}
0x64f9…6512 Line {l1=0x17, l2=» IF CH IN NEJ THEN«, l3=0x17}
0x6512…651f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x651f…6535 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x6535…6555 Line {l1=0x1e, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1e}
0x6555…657a Line {l1=0x23, l2=» POST.KRSTK:=ORDRE.ANTALBES;«, l3=0x23}
0x657a…65ad Line {l1=0x31, l2=» FOR I:=10 TO 12 DO SKRIVFELT(PICTURE(I));«, l3=0x31}
0x65ad…65d2 Line {l1=0x23, l2=» POST.KRSTK:=ORDRE.SALGSPRI;«, l3=0x23}
0x65d2…6605 Line {l1=0x31, l2=» FOR I:=13 TO 16 DO SKRIVFELT(PICTURE(I));«, l3=0x31}
0x6605…661a Line {l1=0x13, l2=» VÆLGFELT(4)«, l3=0x13}
0x661a…6625 Line {l1=0x09, l2=» END«, l3=0x09}
0x6625…663a Line {l1=0x13, l2=» UNTIL CH IN JA;«, l3=0x13}
0x663a…6642 Line {l1=0x06, l2=» *)«, l3=0x06}
0x6642…6652 Line {l1=0x0e, l2=» BEREGNMAT;«, l3=0x0e}
0x6652…6655 Line {l1=0x01, l2=» «, l3=0x01}
0x6655…6688 Line {l1=0x31, l2=» INSERT(ORDRE.A);IF IER<>0 THEN ERROR(ORDRE.A)«, l3=0x31}
0x6688…668f Line {l1=0x05, l2=» END«, l3=0x05}
0x668f…6695 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6695…669d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x669d…66b3 Line {l1=0x14, l2=»PROCEDURE SLETORDRE;«, l3=0x14}
0x66b3…66ba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x66ba…66e3 Line {l1=0x27, l2=» IF QJN('Sletning korrekt') IN JA THEN«, l3=0x27}
0x66e3…66ec Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x66ec…66ef Line {l1=0x01, l2=» «, l3=0x01}
0x66ef…6710 Line {l1=0x1f, l2=» KUNORDRE.ORDRENR:=ORDRE.NR;«, l3=0x1f}
0x6710…6736 Line {l1=0x24, l2=» KUNORDRE.KUNDENR:=ORDRE.KUNDENR;«, l3=0x24}
0x6736…675a Line {l1=0x22, l2=» KUNORDRE.EMNENR:=ORDRE.EMNENR;«, l3=0x22}
0x675a…67a4 Line {l1=0x48, l2=» GETRECX(KUNORDRE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNORDRE.A);«, l3=0x48}
0x67a4…67eb Line {l1=0x45, l2=» DELETE(KUNORDRE.A);IF NOT (-IER IN (.0.)) THEN ERROR(KUNORDRE.A);«, l3=0x45}
0x67eb…67ee Line {l1=0x01, l2=» «, l3=0x01}
0x67ee…680b Line {l1=0x1b, l2=» PROD.ORDRENR:=ORDRE.NR;«, l3=0x1b}
0x680b…682b Line {l1=0x1e, l2=» PROD.EMNENR:=ORDRE.EMNENR;«, l3=0x1e}
0x682b…6842 Line {l1=0x15, l2=» PROD.SEKVENSN:=0;«, l3=0x15}
0x6842…6858 Line {l1=0x14, l2=» PROD.OPERANR:=0;«, l3=0x14}
0x6858…68a4 Line {l1=0x4a, l2=» NEXTRECX(PROD.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(PROD.A);IER:=0;«, l3=0x4a}
0x68a4…68ea Line {l1=0x44, l2=» WHILE (PROD.ORDRENR=ORDRE.NR) AND (PROD.EMNENR=ORDRE.EMNENR) AND«, l3=0x44}
0x68ea…6911 Line {l1=0x25, l2=» (IER=0) DO DELETEX(PROD.A);«, l3=0x25}
0x6911…6945 Line {l1=0x32, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(PROD.A);«, l3=0x32}
0x6945…6977 Line {l1=0x30, l2=» GETREC(PROD.A);IF IER<>0 THEN ERROR(PROD.A);«, l3=0x30}
0x6977…697c Line {l1=0x03, l2=» «, l3=0x03}
0x697c…699c Line {l1=0x1e, l2=» OMVPROD.ORDRENR:=ORDRE.NR;«, l3=0x1e}
0x699c…69bf Line {l1=0x21, l2=» OMVPROD.EMNENR:=ORDRE.EMNENR;«, l3=0x21}
0x69bf…69d9 Line {l1=0x18, l2=» OMVPROD.SEKVENSN:=0;«, l3=0x18}
0x69d9…69f2 Line {l1=0x17, l2=» OMVPROD.OPERANR:=0;«, l3=0x17}
0x69f2…6a2b Line {l1=0x37, l2=» NEXTRECX(OMVPROD.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x37}
0x6a2b…6a5d Line {l1=0x30, l2=» ERROR(OMVPROD.A);IER:=0;«, l3=0x30}
0x6a5d…6aa9 Line {l1=0x4a, l2=» WHILE (OMVPROD.ORDRENR=ORDRE.NR) AND (OMVPROD.EMNENR=ORDRE.EMNENR) AND«, l3=0x4a}
0x6aa9…6ad3 Line {l1=0x28, l2=» (IER=0) DO DELETEX(OMVPROD.A);«, l3=0x28}
0x6ad3…6b0a Line {l1=0x35, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(OMVPROD.A);«, l3=0x35}
0x6b0a…6b42 Line {l1=0x36, l2=» GETREC(OMVPROD.A);IF IER<>0 THEN ERROR(OMVPROD.A);«, l3=0x36}
0x6b42…6b47 Line {l1=0x03, l2=» «, l3=0x03}
0x6b47…6b63 Line {l1=0x1a, l2=» ORDTEKST.NR:=ORDRE.NR;«, l3=0x1a}
0x6b63…6b87 Line {l1=0x22, l2=» ORDTEKST.EMNENR:=ORDRE.EMNENR;«, l3=0x22}
0x6b87…6b9e Line {l1=0x15, l2=» ORDTEKST.LBNR:=0;«, l3=0x15}
0x6b9e…6bd8 Line {l1=0x38, l2=» NEXTRECX(ORDTEKST.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x38}
0x6bd8…6c0b Line {l1=0x31, l2=» ERROR(ORDTEKST.A);IER:=0;«, l3=0x31}
0x6c0b…6c54 Line {l1=0x47, l2=» WHILE (ORDTEKST.NR=ORDRE.NR) AND (ORDTEKST.EMNENR=ORDRE.EMNENR) AND«, l3=0x47}
0x6c54…6c7f Line {l1=0x29, l2=» (IER=0) DO DELETEX(ORDTEKST.A);«, l3=0x29}
0x6c7f…6cb7 Line {l1=0x36, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDTEKST.A);«, l3=0x36}
0x6cb7…6cf1 Line {l1=0x38, l2=» GETREC(ORDTEKST.A);IF IER<>0 THEN ERROR(ORDTEKST.A);«, l3=0x38}
0x6cf1…6cf4 Line {l1=0x01, l2=» «, l3=0x01}
0x6cf4…6d39 Line {l1=0x43, l2=» DELETE(ORDRE.A);IF NOT (-IER IN (.0,2,9.)) THEN ERROR(ORDRE.A) «, l3=0x43}
0x6d39…6d3c Line {l1=0x01, l2=» «, l3=0x01}
0x6d3c…6d43 Line {l1=0x05, l2=» END«, l3=0x05}
0x6d43…6d4b Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x6d4b…6d5a Line {l1=0x0d, l2=» OPTION:=0«, l3=0x0d}
0x6d5a…6d60 Line {l1=0x04, l2=»END;«, l3=0x04}
0x6d60…6d68 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x6d68…6d7c Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x6d7c…6d8c Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x6d8c…6da0 Line {l1=0x12, l2=» KALKULER:=FALSE;«, l3=0x12}
0x6da0…6daa Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6daa…6dbd Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x6dbd…6de7 Line {l1=0x28, l2=» WRITELN('1 Oprettelse af ny ordre');«, l3=0x28}
0x6de7…6e0c Line {l1=0x23, l2=» WRITELN('2 Sletning af ordre');«, l3=0x23}
0x6e0c…6e3a Line {l1=0x2c, l2=» WRITELN('3 Udskrift af forkalkulation');«, l3=0x2c}
0x6e3a…6e48 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x6e48…6e61 Line {l1=0x17, l2=» WRITE('Vælg 1-3 ');«, l3=0x17}
0x6e61…6e6e Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x6e6e…6e91 Line {l1=0x21, l2=» IF NOT EOLN THEN READ(OPTION)«, l3=0x21}
0x6e91…6ec1 Line {l1=0x2e, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.1..3.));«, l3=0x2e}
0x6ec1…6ecd Line {l1=0x0a, l2=» D(20,4);«, l3=0x0a}
0x6ecd…6eeb Line {l1=0x1c, l2=» IF OPTION IN (.2..3.) THEN«, l3=0x1c}
0x6eeb…6ef4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6ef4…6f26 Line {l1=0x30, l2=» LÆSFELT(PICTURE(10));SKRIVFELT(PICTURE(10));«, l3=0x30}
0x6f26…6f43 Line {l1=0x1b, l2=» ORDRE.NR:=POST.ORDRENR;«, l3=0x1b}
0x6f43…6f59 Line {l1=0x14, l2=» ORDRE.EMNENR:=0;«, l3=0x14}
0x6f59…6fa8 Line {l1=0x4d, l2=» NEXTRECX(ORDRE.A);IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ORDRE.A);IER:=0;«, l3=0x4d}
0x6fa8…6fb6 Line {l1=0x0c, l2=» CH:='N';«, l3=0x0c}
0x6fb6…7002 Line {l1=0x4a, l2=» IF ORDRE.NR<>POST.ORDRENR THEN BEGIN NONEXIST('Ordren');OPTION:=-1 END«, l3=0x4a}
0x7002…700c Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x700c…704e Line {l1=0x40, l2=» WHILE (IER=0) AND (ORDRE.NR=POST.ORDRENR) AND (CH IN NEJ) DO«, l3=0x40}
0x704e…7059 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x7059…706d Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x706d…708c Line {l1=0x1d, l2=» POST.ORDRENR:=ORDRE.NR;«, l3=0x1d}
0x708c…70b0 Line {l1=0x22, l2=» POST.KUNDENR:=ORDRE.KUNDENR;«, l3=0x22}
0x70b0…70d2 Line {l1=0x20, l2=» POST.EMNENR:=ORDRE.EMNENR;«, l3=0x20}
0x70d2…70f7 Line {l1=0x23, l2=» POST.ØLEVTERM:=ORDRE.ØNSKLEV;«, l3=0x23}
0x70f7…7119 Line {l1=0x20, l2=» POST.INIT:=ORDRE.INITIALE;«, l3=0x20}
0x7119…713e Line {l1=0x23, l2=» POST.KUORDNR:=ORDRE.KUNDORDR;«, l3=0x23}
0x713e…7161 Line {l1=0x21, l2=» POST.KRSTK:=ORDRE.ANTALBES;«, l3=0x21}
0x7161…717f Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1c}
0x717f…71b0 Line {l1=0x2f, l2=» FOR I:=10 TO 12 DO SKRIVFELT(PICTURE(I));«, l3=0x2f}
0x71b0…71d3 Line {l1=0x21, l2=» POST.KRSTK:=ORDRE.SALGSPRI;«, l3=0x21}
0x71d3…7204 Line {l1=0x2f, l2=» FOR I:=13 TO 16 DO SKRIVFELT(PICTURE(I));«, l3=0x2f}
0x7204…7219 Line {l1=0x13, l2=» WITH ORDRE DO«, l3=0x13}
0x7219…7226 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x7226…7260 Line {l1=0x38, l2=» GOTOXY(40,8);WRITE('Bekr. levterm',BEKRÆLEV:5);«, l3=0x38}
0x7260…728c Line {l1=0x2a, l2=» GOTOXY(1,11);WRITELN('Reg. dato',«, l3=0x2a}
0x728c…72d1 Line {l1=0x43, l2=» REGDATO(1)*10000.0+REGDATO(2):10:-2);«, l3=0x43}
0x72d1…730c Line {l1=0x39, l2=» WRITELN('SMELTEOMKOSTNINGER',' ':25,SMEOMK:8:3);«, l3=0x39}
0x730c…7348 Line {l1=0x3a, l2=» WRITELN('MATERIALEFORBRUG ',' ':25,MATFORB:8:3);«, l3=0x3a}
0x7348…7376 Line {l1=0x2c, l2=» WRITELN(' ':43,'----------------');«, l3=0x2c}
0x7376…73bc Line {l1=0x44, l2=» WRITELN('MAT.-OMKOSTNINGER ',' ':25,MATOMK:8:3,MATOMK:8:3);«, l3=0x44}
0x73bc…73f7 Line {l1=0x39, l2=» WRITELN('LØNOMKOSTNINGER ',' ':33,LØNOMK:8:3);«, l3=0x39}
0x73f7…7434 Line {l1=0x3b, l2=» WRITELN('MASKINOMKOSTNINGER',' ':33,MASKINOM:8:3);«, l3=0x3b}
0x7434…7462 Line {l1=0x2c, l2=» WRITELN(' ':51,'----------------');«, l3=0x2c}
0x7462…7498 Line {l1=0x34, l2=» WRITELN('EMNEPRIS ',' ':33,MATOMK+«, l3=0x34}
0x7498…74db Line {l1=0x41, l2=» LØNOMK+MASKINOM:8:3,MATOMK+LØNOMK+MASKINOM:8:3);«, l3=0x41}
0x74db…7512 Line {l1=0x35, l2=» WRITELN('DÆKNINGSBIDRAG ',' ':33,-MATOMK+«, l3=0x35}
0x7512…7549 Line {l1=0x35, l2=» SALGSPRI-LØNOMK-MASKINOM:16:3);«, l3=0x35}
0x7549…756f Line {l1=0x24, l2=» WRITELN(' ':59,'--------');«, l3=0x24}
0x756f…75ad Line {l1=0x3c, l2=» WRITELN('SALGSPRIS ',' ':33,SALGSPRI:16:3) «, l3=0x3c}
0x75ad…75b9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x75b9…75d9 Line {l1=0x1e, l2=» CH:=QJN('Rigtig ordre');«, l3=0x1e}
0x75d9…7604 Line {l1=0x29, l2=» IF CH IN NEJ THEN NEXTRECX(ORDRE.A)«, l3=0x29}
0x7604…760e Line {l1=0x08, l2=» END;«, l3=0x08}
0x760e…7644 Line {l1=0x34, l2=» IF NOT (-IER IN (.0..2,9.)) THEN ERROR(ORDRE.A);«, l3=0x34}
0x7644…7673 Line {l1=0x2d, l2=» IF ORDRE.NR<>POST.ORDRENR THEN OPTION:=0 «, l3=0x2d}
0x7673…767b Line {l1=0x06, l2=» END;«, l3=0x06}
0x767b…76a9 Line {l1=0x2c, l2=» IF (OPTION=2) AND (ORDRE.BEKRÆLEV<>0) THEN«, l3=0x2c}
0x76a9…76b2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x76b2…76c0 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x76c0…770d Line {l1=0x4b, l2=» WRITE('Ordren er indgået i planlægningen og må ikke slettes, RETURN ');«, l3=0x4b}
0x770d…771d Line {l1=0x0e, l2=» OPTION:=0;«, l3=0x0e}
0x771d…7729 Line {l1=0x0a, l2=» READLN«, l3=0x0a}
0x7729…7731 Line {l1=0x06, l2=» END;«, l3=0x06}
0x7731…7743 Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x7743…777e Line {l1=0x39, l2=» 1:(*IF RESPRINT THEN BEGIN*) OPRETORDRE;(*FREEPR END;*)«, l3=0x39}
0x777e…778e Line {l1=0x0e, l2=» 2:SLETORDRE;«, l3=0x0e}
0x778e…77c4 Line {l1=0x34, l2=» 3:IF RESPRINT THEN BEGIN FORKALKULATION;FREEPR END«, l3=0x34}
0x77c4…77cc Line {l1=0x06, l2=» END;«, l3=0x06}
0x77cc…77cf Line {l1=0x01, l2=» «, l3=0x01}
0x77cf…77e3 Line {l1=0x12, l2=» IF OPTION=0 THEN«, l3=0x12}
0x77e3…7830 Line {l1=0x4b, l2=» BEGIN GETREC(ORDRE.A);IF IER<>0 THEN ERROR(ORDRE.A) END (*FJERN XSTATUS*)«, l3=0x4b}
0x7830…7833 Line {l1=0x01, l2=» «, l3=0x01}
0x7833…7839 Line {l1=0x04, l2=»END;«, l3=0x04}
0x7839…7841 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x7841…7854 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x7854…7866 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x7866…7878 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x7878…788c Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x788c…78a1 Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x78a1…78b5 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x78b5…78d4 Line {l1=0x1d, l2=» RESSTEXT(10):='Maskine ';«, l3=0x1d}
0x78d4…78f3 Line {l1=0x1d, l2=» RESSTEXT(11):='Operatør ';«, l3=0x1d}
0x78f3…7912 Line {l1=0x1d, l2=» RESSTEXT(12):='Værktøj ';«, l3=0x1d}
0x7912…7931 Line {l1=0x1d, l2=» RESSTEXT(13):='Hjælpeværk';«, l3=0x1d}
0x7931…7941 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x7941…794d Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x794d…7962 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x7962…796d Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x796d…7983 Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0x7983…7996 Line {l1=0x11, l2=» KUNDE.A(-4):=0;«, l3=0x11}
0x7996…79ac Line {l1=0x14, l2=» RESSGRUP.A(-4):=0;«, l3=0x14}
0x79ac…79c2 Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0x79c2…79d6 Line {l1=0x12, l2=» RÅVARE.A(-4):=0;«, l3=0x12}
0x79d6…79ec Line {l1=0x14, l2=» MEDARB.A(-4):=0; «, l3=0x14}
0x79ec…7a02 Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0x7a02…7a18 Line {l1=0x14, l2=» LØNGRUP.A(-4):=0; «, l3=0x14}
0x7a18…7a2b Line {l1=0x11, l2=» POST.A(-4):=0; «, l3=0x11}
0x7a2b…7a3f Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x7a3f…7a5e Line {l1=0x1d, l2=» PROD.A(-4):=0; «, l3=0x1d}
0x7a5e…7a7d Line {l1=0x1d, l2=» OMVPROD.A(-4):=0; «, l3=0x1d}
0x7a7d…7a9c Line {l1=0x1d, l2=» ORDRE.A(-4):=0; «, l3=0x1d}
0x7a9c…7abb Line {l1=0x1d, l2=» KUNEMNE.A(-4):=0; «, l3=0x1d}
0x7abb…7ada Line {l1=0x1d, l2=» KUNORDRE.A(-4):=0; «, l3=0x1d}
0x7ada…7af9 Line {l1=0x1d, l2=» EMNIFORM.A(-4):=0; «, l3=0x1d}
0x7af9…7b18 Line {l1=0x1d, l2=» ORDTEKST.A(-4):=0; «, l3=0x1d}
0x7b18…7b2e Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0x7b2e…7b41 Line {l1=0x11, l2=» KUNDE.A(-3):=1;«, l3=0x11}
0x7b41…7b57 Line {l1=0x14, l2=» RESSGRUP.A(-3):=3;«, l3=0x14}
0x7b57…7b6d Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0x7b6d…7b81 Line {l1=0x12, l2=» RÅVARE.A(-3):=5;«, l3=0x12}
0x7b81…7b97 Line {l1=0x14, l2=» MEDARB.A(-3):=7; «, l3=0x14}
0x7b97…7bad Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0x7bad…7bc3 Line {l1=0x14, l2=» LØNGRUP.A(-3):=8; «, l3=0x14}
0x7bc3…7bd7 Line {l1=0x12, l2=» POST.A(-3):=11; «, l3=0x12}
0x7bd7…7beb Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x7beb…7c03 Line {l1=0x16, l2=» PROD.A(-3):=14; «, l3=0x16}
0x7c03…7c1b Line {l1=0x16, l2=» OMVPROD.A(-3):=13; «, l3=0x16}
0x7c1b…7c33 Line {l1=0x16, l2=» ORDRE.A(-3):=10; «, l3=0x16}
0x7c33…7c4b Line {l1=0x16, l2=» KUNEMNE.A(-3):=19; «, l3=0x16}
0x7c4b…7c63 Line {l1=0x16, l2=» KUNORDRE.A(-3):=18; «, l3=0x16}
0x7c63…7c7b Line {l1=0x16, l2=» EMNIFORM.A(-3):=20; «, l3=0x16}
0x7c7b…7c93 Line {l1=0x16, l2=» ORDTEKST.A(-3):=25; «, l3=0x16}
0x7c93…7c9e Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x7c9e…7ccc Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x7ccc…7d04 Line {l1=0x36, l2=» IOPEN(RESS.A); IF IER<>0 THEN ERROR(RESS.A); «, l3=0x36}
0x7d04…7d3c Line {l1=0x36, l2=» IOPEN(KUNDE.A); IF IER<>0 THEN ERROR(KUNDE.A); «, l3=0x36}
0x7d3c…7d74 Line {l1=0x36, l2=» IOPEN(RESSGRUP.A);IF IER<>0 THEN ERROR(RESSGRUP.A); «, l3=0x36}
0x7d74…7dac Line {l1=0x36, l2=» IOPEN(EMNE.A); IF IER<>0 THEN ERROR(EMNE.A); «, l3=0x36}
0x7dac…7de4 Line {l1=0x36, l2=» IOPEN(RÅVARE.A); IF IER<>0 THEN ERROR(RÅVARE.A); «, l3=0x36}
0x7de4…7e1c Line {l1=0x36, l2=» IOPEN(MEDARB.A); IF IER<>0 THEN ERROR(MEDARB.A); «, l3=0x36}
0x7e1c…7e54 Line {l1=0x36, l2=» IOPEN(OPERA.A); IF IER<>0 THEN ERROR(OPERA.A); «, l3=0x36}
0x7e54…7e8c Line {l1=0x36, l2=» IOPEN(LØNGRUP.A); IF IER<>0 THEN ERROR(LØNGRUP.A); «, l3=0x36}
0x7e8c…7ec4 Line {l1=0x36, l2=» IOPEN(POST.A); IF IER<>0 THEN ERROR(POST.A); «, l3=0x36}
0x7ec4…7efc Line {l1=0x36, l2=» IOPEN(OMVPROD.A); IF IER<>0 THEN ERROR(OMVPROD.A); «, l3=0x36}
0x7efc…7f35 Line {l1=0x37, l2=» IOPEN(ORDRE.A); IF IER<>0 THEN ERROR(ORDRE.A); «, l3=0x37}
0x7f35…7f6d Line {l1=0x36, l2=» IOPEN(KUNEMNE.A); IF IER<>0 THEN ERROR(KUNEMNE.A); «, l3=0x36}
0x7f6d…7fa5 Line {l1=0x36, l2=» IOPEN(KUNORDRE.A);IF IER<>0 THEN ERROR(KUNORDRE.A); «, l3=0x36}
0x7fa5…7fdd Line {l1=0x36, l2=» IOPEN(EMNIFORM.A);IF IER<>0 THEN ERROR(EMNIFORM.A); «, l3=0x36}
0x7fdd…8015 Line {l1=0x36, l2=» IOPEN(PROD.A); IF IER<>0 THEN ERROR(PROD.A); «, l3=0x36}
0x8015…804d Line {l1=0x36, l2=» IOPEN(ORDTEKST.A);IF IER<>0 THEN ERROR(ORDTEKST.A); «, l3=0x36}
0x804d…8083 Line {l1=0x34, l2=» IOPEN(SYSTEM.A); IF IER<>0 THEN ERROR(SYSTEM.A); «, l3=0x34}
0x8083…8094 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x8094…80c8 Line {l1=0x32, l2=» GETREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);«, l3=0x32}
0x80c8…80d2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x80d2…80e4 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x80e4…80f8 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x80f8…8141 Line {l1=0x47, l2=» WRITELN('O R D R E S P E C I F I K F O R K A L K U L A T I O N');«, l3=0x47}
0x8141…8169 Line {l1=0x26, l2=» CH:=QJN('Flere forkalkulationer');«, l3=0x26}
0x8169…8189 Line {l1=0x1e, l2=» IF CH IN JA THEN MAINTAIN «, l3=0x1e}
0x8189…819d Line {l1=0x12, l2=» UNTIL CH IN NEJ;«, l3=0x12}
0x819d…81b4 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x81b4…81c8 Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x81c8…81df Line {l1=0x15, l2=» ICLOSE(RESSGRUP.A);«, l3=0x15}
0x81df…81f6 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x81f6…820b Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x820b…8222 Line {l1=0x15, l2=» ICLOSE(MEDARB.A); «, l3=0x15}
0x8222…8239 Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x8239…8250 Line {l1=0x15, l2=» ICLOSE(LØNGRUP.A); «, l3=0x15}
0x8250…8264 Line {l1=0x12, l2=» ICLOSE(POST.A); «, l3=0x12}
0x8264…827b Line {l1=0x15, l2=» ICLOSE(OMVPROD.A); «, l3=0x15}
0x827b…8293 Line {l1=0x16, l2=» ICLOSE(ORDRE.A); «, l3=0x16}
0x8293…82aa Line {l1=0x15, l2=» ICLOSE(KUNEMNE.A); «, l3=0x15}
0x82aa…82c1 Line {l1=0x15, l2=» ICLOSE(KUNORDRE.A);«, l3=0x15}
0x82c1…82d8 Line {l1=0x15, l2=» ICLOSE(EMNIFORM.A);«, l3=0x15}
0x82d8…82ec Line {l1=0x12, l2=» ICLOSE(PROD.A); «, l3=0x12}
0x82ec…8303 Line {l1=0x15, l2=» ICLOSE(ORDTEKST.A);«, l3=0x15}
0x8303…8318 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x8318…8341 Line {l1=0x27, l2=» (*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x27}
0x8341…8351 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x8351…8357 Line {l1=0x04, l2=»END;«, l3=0x04}
0x8357…835f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x835f…8366 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x8366…8380 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x8380…8398 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x8398…83ae Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x83ae…83be Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x83be…83c7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x83c7…83ea Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x83ea…83f6 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x83f6…8446 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x8446…8456 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x8456…8496 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x8496…84e6 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x84e6…84ff Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x84ff…8519 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x8519…8537 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x8537…8548 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x8548…8556 Line {l1=0x0c, l2=» FILNR:=11;«, l3=0x0c}
0x8556…8577 Line {l1=0x1f, l2=» DESCNAVN:='ORDRFORK:P2:05:J';«, l3=0x1f}
0x8577…8595 Line {l1=0x1c, l2=» REGNAVN:='FORKALKULATION';«, l3=0x1c}
0x8595…85a1 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x85a1…85b9 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x85b9…85d2 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x85d2…85f0 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x85f0…8605 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x8605…862d Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x862d…864f Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x864f…8684 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x8684…868a Line {l1=0x04, l2=»END.«, l3=0x04}
0x868a…86a0 00 00 6c 75 6e 64 20 20 20 20 20 00 20 20 20 20 20 20 20 20 20 20 ┆ lund ┆
0x86a0…86c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x86c0…86e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 32 00 00 00 00 00 85 00 00 00 00 00 00 00 00 ┆ 2 ┆
0x86e0…8700 02 73 10 00 00 00 00 86 02 00 69 1f 00 00 00 00 00 00 00 00 04 00 00 00 00 00 01 00 1f 00 01 00 ┆ s i ┆
0x8700…8720 52 00 f5 03 01 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 52 65 69 6e 65 72 ┆R Reiner┆
0x8720…8740 20 54 68 69 65 6c 20 57 6f 68 6e 62 65 64 61 72 66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Thiel Wohnbedarf ┆
0x8740…8760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 68 65 69 6e 2d 6d 6f 73 65 6c 73 74 72 ┆ Rhein-moselstr┆
0x8760…8780 61 73 73 65 20 32 35 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 ┆asse 25 ┆
0x8780…87a0 20 20 20 20 44 2d 35 34 30 31 20 45 6d 6d 65 6c 68 61 75 73 65 6e 20 20 20 20 20 20 20 fe 30 36 ┆ D-5401 Emmelhausen 06┆
0x87a0…87c0 37 34 37 37 39 32 35 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆7477925 ┆
0x87c0…87e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x87e0…8800 05 40 00 00 00 00 00 85 00 00 00 00 00 00 00 00 02 00 6a 1f 00 00 00 00 00 00 00 00 04 00 00 00 ┆ @ j ┆
0x8800…8820 00 00 01 00 00 00 00 00 53 00 69 04 01 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 20 20 ┆ S i ┆
0x8820…8840 20 20 52 65 69 6e 68 61 72 64 20 5a 75 6c 6b 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Reinhard Zulke ┆
0x8840…8860 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 4b 6f 68 6c 65 6e ┆ Kohlen┆
0x8860…8880 6b 61 6d 70 20 32 36 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 ┆kamp 26 ┆
0x8880…88a0 20 20 20 20 20 20 20 20 20 20 20 20 44 2d 34 33 33 33 20 20 4d 75 6c 68 65 69 6d 2d 52 75 68 72 ┆ D-4333 Mulheim-Ruhr┆
0x88a0…88c0 20 20 20 20 20 00 2d 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ - ┆
0x88c0…88e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 82 19 20 00 00 00 86 ┆ ┆
0x88e0…8900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 57 14 00 00 00 00 86 6f 68 6e 62 65 64 61 72 ┆ W ohnbedar┆
0x8900…8920 66 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 ┆f ┆
0x8920…8940 20 20 52 68 65 69 6e 2d 6d 6f 73 65 6c 73 74 72 61 73 73 65 20 32 35 20 20 20 20 20 20 20 20 20 ┆ Rhein-moselstrasse 25 ┆
0x8940…8960 02 00 ed 1f 00 00 00 00 00 00 00 00 04 00 00 00 00 00 01 00 00 00 00 00 54 00 6a 02 01 00 01 00 ┆ T j ┆
0x8960…8980 00 00 01 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 52 65 6e 61 74 65 20 4b 61 69 73 65 72 20 ┆ Renate Kaiser ┆
0x8980…89a0 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 ┆ ┆
0x89a0…89c0 20 20 20 20 20 20 20 20 20 20 42 75 72 67 65 72 73 74 72 2e 20 32 20 20 20 20 20 20 20 20 20 20 ┆ Burgerstr. 2 ┆
0x89c0…89e0 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 44 2d 35 36 ┆ D-56┆
0x89e0…8a00 33 30 20 20 52 65 6d 73 63 68 65 69 64 20 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 ┆30 Remscheid - ┆
0x8a00…8a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 93 75 70 00 00 00 86 ┆ up ┆
0x8a20…8a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 74 04 00 00 00 00 86 00 00 00 00 00 00 00 63 ┆ t c┆