|
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: 27808 (0x6ca0)
Types: TextFile
Notes: Mikados_K
Names: »LIMFORKA.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMFORKA.K«
PROGRAM LIMFORKA;
(*OPRETTELSE AF GENEREL FORKALKULATION,
UDSKRIFT AF OPERATIONSKORT*)
(*$L-*)
CONST MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=3;
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 D23;
BEGIN
GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)
END;
PROCEDURE NONEXIST(S:STRING);
BEGIN
D23;
WRITE(S,' findes ikke, RETURN ');
READLN
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D23;
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*)
(*$L+*)
(*$P*)
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;
OMVFPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
EMNENR,
SEKVNR,
OPERANR :INTEGER
END;
FORKPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
KRSTK :REAL;
EMNENR,
SEKVENSN,
OPERANR,
LØNTYPE,
STKH,
RESS1,
RESS2,
RESS3,
RESS4,
RESS5 :INTEGER
END;
SYSRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
AKKTIME1,
AKKTIME2,
AKKTIME3,
AKKTIME4,
AKKTIME5,
AKKTIME6,
AKKTIME7,
AKKTIME8,
AKKTIME9 :REAL;
NR :INTEGER;
DAGSDATO,
PERSTDAT :LONGINT;
ARBTIMDA,
ORDRENR :INTEGER
END;
(*$P*)
(*$L-*)
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;
OMVEMNE:OMVFPOST;
POST:FORKPOST;
SYSTEM:SYSRPOST;
LONGNUL:LONGINT;
CH:STRING(1);
NEJ,JA,JAOGNEJ:SET OF CHAR;
RESSTEXT:ARRAY (10..13) OF PACKED ARRAY (1..10) OF CHAR;
(*$P*)
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D23;
(*$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(OMVEMNE.A);
ICLOSE(POST.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:STRING(1);
FELTNR:INTEGER;
PROCEDURE SKRIVEMNE;
BEGIN
WITH EMNE DO
BEGIN
GOTOXY(1,1);
WRITELN('Kundenr',
KUNDENR(1)*10000.0+KUNDENR(2):6:-2,' Emnenr',NR:6,
' Formnr',FORMNR:5);
WRITELN('Tegningsnr ',TEGNNR,' Benævnelse ',BETEGN)
END
END;
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 SLETOMV;
BEGIN
OMVEMNE.EMNENR:=POST.EMNENR;
OMVEMNE.SEKVNR:=POST.SEKVENSN;
OMVEMNE.OPERANR:=POST.OPERANR;
GETRECX(OMVEMNE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OMVEMNE.A);
IF IER=0 THEN
BEGIN
DELETE(OMVEMNE.A);IF NOT (-IER IN (.0,9.)) THEN ERROR(OMVEMNE.A)
END
END;
PROCEDURE SLETLINIE;
BEGIN
SLETOMV;
DELETEX(POST.A);IF NOT (-IER IN (.0,9.)) THEN ERROR(POST.A)
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 (.2,3.)) AND (SEKVENSN>0) THEN SLETOMV;
IF FELTNR IN (.2,5..7.) THEN BEGIN LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR))
END;
CASE FELTNR OF
3:REPEAT
LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR));
OPERA.NR:=OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=-6 THEN NONEXIST('Operation')
UNTIL IER=0;
4:BEGIN
REPEAT
STKH:=0;
D23;
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:='Æ';
D23;
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;
IF FELTNR IN (.2,3.) THEN
BEGIN
OMVEMNE.EMNENR:=EMNENR;
OMVEMNE.SEKVNR:=SEKVENSN;
OMVEMNE.OPERANR:=OPERANR;
INSERT(OMVEMNE.A);IF IER<>0 THEN ERROR(OMVEMNE.A);
END
END
END;
(*$P*)
PROCEDURE OPRETLINIE;
BEGIN
SKRIVLINIE;
ÆNDLINIE(2);
ÆNDLINIE(4);
REPEAT
D23;
WRITE('Vælg feltnr 5-9 ');
READLN;
IF NOT EOLN THEN READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR IN (.5..9.));
ÆNDLINIE(FELTNR);
FOR FELTNR:=10 TO 13 DO ÆNDLINIE(FELTNR);
SKRIVLINIE;
REPEAT
REPEAT
D23;
WRITE('Feltnr 2-13, 0 for færdig ');
READLN;
IF NOT EOLN THEN READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR IN (.0,2..13.));
IF FELTNR>0 THEN ÆNDLINIE(FELTNR)
UNTIL FELTNR=0;
INSERT(POST.A);IF IER<>0 THEN ERROR(POST.A)
END;
(*$P*)
PROCEDURE SOPERATIONSKORT;
VAR LINES,HYLDE:INTEGER;
KUNFOUND,RÅVFOUND:BOOLEAN;
BEGIN
LINES:=23;
WITH POST DO
BEGIN
KUNDE.NR:=EMNE.KUNDENR;
GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);
KUNFOUND:=(IER=0);
RÅVARE.NR:=EMNE.MATNR;
GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);
RÅVFOUND:=(IER=0);
EMNENR:=EMNE.NR;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (EMNENR=EMNE.NR) DO
BEGIN
IF LINES>21 THEN
BEGIN
CLEARSCREEN;
WITH EMNE DO
BEGIN
WRITELN(' ':12,'OPERATIONSKORT',
KUNDENR(1)*10000.0+KUNDENR(2):15:-2,NR:21);
WRITE(TEGNNR,' ',BETEGN,' ');
IF KUNFOUND THEN WRITELN(KUNDE.NAVN)
ELSE WRITELN('IKKE OPRETTET');
IF RÅVFOUND THEN WRITE(RÅVARE.BETEGN)
ELSE WRITE('IKKE OPRETTET ');
WRITELN(NETTOVÆG:8:2,BRUTTOVÆ:9:2,' ':32,
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):6:-2)
END;
WRITELN(' ':48,'stk/h total værkt hjvt hyld');
LINES:=4
END;
LINES:=LINES+1;
WRITE(SEKVENSN:2,OPERANR:4,' ');
OPERA.NR:=OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=0 THEN WRITE(OPERA.BETEGN:24)
ELSE WRITE('IKKE OPRETTET ');
IF RESS1>0 THEN
BEGIN
RESS.NR:=RESS1;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN
WRITE(RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)
ELSE WRITE(RESS1:7,' UOPRETTET')
END
ELSE
IF RESS1=0 THEN WRITE(' ':17)
ELSE WRITE(' *',-RESS1:4,' ':10);
IF STKH<0 THEN
WRITE(-STKH/100.0:12:2,' ')
ELSE WRITE(STKH:5,' ':9);
HYLDE:=0;
IF RESS3>0 THEN
BEGIN
WRITE(RESS3:5);
RESS.NR:=RESS3;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN HYLDE:=RESS.HYLDENR
END
ELSE
IF RESS3=0 THEN WRITE(' ':5)
ELSE WRITE('*',-RESS3:4);
IF RESS4>0 THEN
BEGIN
WRITE(RESS4:5);
IF HYLDE=0 THEN
BEGIN
RESS.NR:=RESS4;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN HYLDE:=RESS.HYLDENR
END
END
ELSE
IF RESS4=0 THEN WRITE(' ':5)
ELSE WRITE('*',-RESS4:4);
IF HYLDE>0 THEN WRITELN(HYLDE:5)
ELSE
WRITELN;
NEXTREC(A);
IF LINES=22 THEN
BEGIN
D23;
WRITE('RETURN ');READLN
END
END;
IF LINES<22 THEN
D23;WRITE('RETURN ');READLN;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)
END
END;
(*$P*)
PROCEDURE OPERATIONSKORT;
VAR LINES,HYLDE:INTEGER;
KUNFOUND,RÅVFOUND:BOOLEAN;
BEGIN
REPEAT
REPEAT
D23;
WRITE('Ønskes testprint, J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
IF CH(1) IN JA THEN
BEGIN
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WRITELN(LIST,' ':35,'XXXXXX');
FOR LINES:=6 TO 72 DO WRITELN(LIST)
END
UNTIL CH(1) IN NEJ;
LINES:=72;
WITH POST DO
BEGIN
KUNDE.NR:=EMNE.KUNDENR;
GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);
KUNFOUND:=(IER=0);
RÅVARE.NR:=EMNE.MATNR;
GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);
RÅVFOUND:=(IER=0);
EMNENR:=EMNE.NR;
SEKVENSN:=0;
OPERANR:=0;
NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (EMNENR=EMNE.NR) DO
BEGIN
IF LINES>68 THEN
BEGIN
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WITH EMNE DO
BEGIN
WRITELN(LIST,' ':12,'OPERATIONSKORT',
KUNDENR(1)*10000.0+KUNDENR(2):15:-2,NR:21);
FOR LINES:=6 TO 8 DO WRITELN(LIST);
WRITE(LIST,TEGNNR,' ',BETEGN,' ');
IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)
ELSE WRITELN(LIST,'IKKE OPRETTET');
FOR LINES:=10 TO 12 DO WRITELN(LIST);
IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)
ELSE WRITE(LIST,'IKKE OPRETTET ');
WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,' ':32,
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):6:-2)
END;
WRITELN(LIST);
WRITELN(LIST,' ':48,'stk/h total værkt hjvt hyld');
LINES:=15
END;
LINES:=LINES+2;
WRITELN(LIST);
WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');
OPERA.NR:=OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)
ELSE WRITE(LIST,'IKKE OPRETTET ');
IF RESS1>0 THEN
BEGIN
RESS.NR:=RESS1;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN
WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)
ELSE WRITE(LIST,RESS1:7,' UOPRETTET')
END
ELSE
IF RESS1=0 THEN WRITE(LIST,' ':17)
ELSE WRITE(LIST,' *',-RESS1:4,' ':10);
IF STKH<0 THEN
WRITE(LIST,-STKH/100.0:12:2,' ')
ELSE WRITE(LIST,STKH:5,' ':9);
HYLDE:=0;
IF RESS3>0 THEN
BEGIN
WRITE(LIST,RESS3:5);
RESS.NR:=RESS3;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN HYLDE:=RESS.HYLDENR
END
ELSE
IF RESS3=0 THEN WRITE(LIST,' ':5)
ELSE WRITE(LIST,'*',-RESS3:4);
IF RESS4>0 THEN
BEGIN
WRITE(LIST,RESS4:5);
IF HYLDE=0 THEN
BEGIN
RESS.NR:=RESS4;
GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);
IF IER=0 THEN HYLDE:=RESS.HYLDENR
END
END
ELSE
IF RESS4=0 THEN WRITE(LIST,' ':5)
ELSE WRITE(LIST,'*',-RESS4:4);
IF HYLDE>0 THEN WRITELN(LIST,HYLDE:5)
ELSE
WRITELN(LIST);
NEXTREC(A)
END;
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)
END
END;
(*$P*)
BEGIN (*MAINTAIN*)
CLEARSCREEN;
LÆSFELT(PICTURE(1));
EMNE.NR:=POST.EMNENR;
GETREC(EMNE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(EMNE.A);
IF IER=-6 THEN BEGIN NONEXIST('Emne'); EXIT(MAINTAIN) END;
SKRIVEMNE;
REPEAT
D23;
WRITE('Rigtigt emne J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
IF CH(1) IN NEJ THEN EXIT(MAINTAIN);
REPEAT
GOTOXY(1,19);
WRITELN('1 Oprettelse/ændring af forkalkulation');
WRITELN('2 Sletning af eksisterende forkalkulation');
WRITELN('3 Udskrivning af operationskort');
WRITELN('4 Skærmudskrift af operationskort');
D23;
WRITE('Vælg 1-4 ');
READLN;
IF NOT EOLN THEN READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION IN (.1..4.));
CASE OPTION OF
1:REPEAT
NULPOST;
POST.LØNTYPE:=0;
POST.RESS1:=0;
POST.RESS2:=0;
POST.RESS3:=0;
POST.RESS4:=0;
POST.RESS5:=0;
POST.EMNENR:=EMNE.NR;
REPEAT
CLEARSCREEN;
SKRIVEMNE;
GOTOXY(1,10);
WRITELN('0 Færdig');
WRITELN('1 Tilføjelse af ny operation');
WRITELN('2 Ændring af eksisterende operation');
WRITELN('3 Sletning af eksisterende operation');
GOTOXY(1,17);
WRITE('Vælg 0-3 ');
READLN;IF EOLN THEN OPTION:=0 ELSE READ(OPTION)
UNTIL (IORESULT=0) AND (OPTION IN (.0..3.));
IF OPTION=0 THEN EXIT(MAINTAIN);
CLEARSCREEN;
LÆSFELT(PICTURE(3));
OPERA.NR:=POST.OPERANR;
GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);
IF IER=-6 THEN NONEXIST('Operationen')
ELSE
BEGIN
OMVEMNE.EMNENR:=POST.EMNENR;
OMVEMNE.OPERANR:=POST.OPERANR;
OMVEMNE.SEKVNR:=0;
NEXTREC(OMVEMNE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(OMVEMNE.A);
IF (OPTION=1) AND (OMVEMNE.EMNENR=POST.EMNENR)
AND (OMVEMNE.OPERANR=POST.OPERANR) THEN
BEGIN
OPTION:=-1;
D23;
WRITE('Operationen er på forkalkulationen, RETURN ');
READLN
END;
IF (OPTION IN (.2,3.)) AND ((OMVEMNE.EMNENR<>POST.EMNENR)
OR (OMVEMNE.OPERANR<>POST.OPERANR)) THEN
BEGIN
OPTION:=-1;
D23;
WRITE('Operationen er ikke på forkalkulationen, RETURN ');
READLN
END;
IF OPTION>0 THEN BEGIN CLEARSCREEN;SKRIVEMNE END;
CASE OPTION OF
1:OPRETLINIE;
2,3:BEGIN
POST.SEKVENSN:=OMVEMNE.SEKVNR;
GETRECX(POST.A);IF IER<>0 THEN ERROR(POST.A);
SKRIVLINIE;
IF OPTION=2 THEN
REPEAT
REPEAT
D23;
WRITE('Feltnr 4-14, 0 for færdig ');
READLN;
READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR IN (.0,4..14.));
IF FELTNR>0 THEN ÆNDLINIE(FELTNR)
ELSE
BEGIN
PUTREC(POST.A);
IF IER<>0 THEN ERROR(POST.A)
END
UNTIL FELTNR=0
ELSE
BEGIN
REPEAT
D23;
WRITE('Sletning rigtig, J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JA+NEJ;
IF CH(1) IN JA THEN
BEGIN
SLETLINIE;
PUTREC(POST.A);IF IER<>0 THEN ERROR(POST.A)
END
END
END
END;
END
UNTIL OPTION=0;
2:BEGIN
REPEAT
D23;
WRITE('Sletning rigtig, J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JA+NEJ;
IF CH(1) IN JA THEN
BEGIN
POST.SEKVENSN:=0;
POST.OPERANR:=0;
NEXTRECX(POST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST.A);
WHILE POST.EMNENR=EMNE.NR DO SLETLINIE;
PUTREC(POST.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(POST.A)
END
END;
3:IF RESPRINT THEN
BEGIN
OPERATIONSKORT;
FREEPR
END;
4:SOPERATIONSKORT
END
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;
OMVEMNE.A(-4):=0;
POST.A(-4):=0;
SYSTEM.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;
OMVEMNE.A(-3):=12;
POST.A(-3):=11;
SYSTEM.A(-3):=9;
(*$R+*)
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
IOPEN(SYSTEM.A); IF IER<>0 THEN ERROR(SYSTEM.A);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);
ICLOSE(SYSTEM.A);
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(OMVEMNE.A); IF IER<>0 THEN ERROR(OMVEMNE.A);
IOPEN(POST.A); IF IER<>0 THEN ERROR(POST.A);
REPEAT
CLEARSCREEN;
GOTOXY(10,10);
WRITELN('G E N E R E L F O R K A L K U L A T I O N');
REPEAT
GOTOXY(10,12);
WRITE('Flere forkalkulationer J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JA+NEJ;
IF CH(1) IN JA THEN MAINTAIN
UNTIL CH(1) 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(OMVEMNE.A);
ICLOSE(POST.A);
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN
END;
(*$P*)
(*$L-*)
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:='FORKPESC: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 LIMFORKA;«, l3=0x11}
0x0013…003c Line {l1=0x27, l2=»(*OPRETTELSE AF GENEREL FORKALKULATION,«, l3=0x27}
0x003c…005c Line {l1=0x1e, l2=» UDSKRIFT AF OPERATIONSKORT*)«, l3=0x1e}
0x005c…0065 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0065…007d Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x007d…0085 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0085…0099 Line {l1=0x12, l2=» PROGRAMNR=3;«, l3=0x12}
0x0099…009f Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x009f…00c8 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00c8…0113 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0113…012b Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x012b…0176 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0176…018a Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x018a…01a0 Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x01a0…01b4 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x01b4…01fd Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01fd…024d Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x024d…0297 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0297…02a8 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x02a8…02ca Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02ca…02e9 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02e9…02f8 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02f8…0317 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0317…0330 Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x0330…034b Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x034b…0361 Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x0361…0377 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0377…03a0 Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x03a0…03b9 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x03b9…03e4 Line {l1=0x29, l2=» FNAVN,REGNAVN,DESCNAVN:STRING(18);«, l3=0x29}
0x03e4…03fa Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03fa…0414 Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x0414…0425 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0425…0438 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x0438…0451 Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x0451…0469 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0469…0471 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0471…047a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x047a…048a Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x048a…0491 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0491…04be Line {l1=0x2b, l2=» GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)«, l3=0x2b}
0x04be…04c4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04c4…04e3 Line {l1=0x1d, l2=»PROCEDURE NONEXIST(S:STRING);«, l3=0x1d}
0x04e3…04ea Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04ea…04f2 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x04f2…0517 Line {l1=0x23, l2=» WRITE(S,' findes ikke, RETURN ');«, l3=0x23}
0x0517…0521 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x0521…0527 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0527…054d Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x054d…0554 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0554…055c Line {l1=0x06, l2=» D23;«, l3=0x06}
0x055c…057e Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x057e…0588 Line {l1=0x08, l2=» READLN«, l3=0x08}
0x0588…058e Line {l1=0x04, l2=»END;«, l3=0x04}
0x058e…0596 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0596…05cd Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x05cd…05f4 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x05f4…05ff Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x05ff…0637 Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x0637…0642 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0642…0676 Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x0676…06ab Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x06ab…06b6 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06b6…06ed Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x06ed…0714 Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x0714…071f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x071f…0757 Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x0757…077e Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x077e…0789 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0789…07be Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x07be…07c9 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x07c9…07d9 Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x07d9…07e1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07e1…07ee Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x07ee…07fe Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x07fe…0806 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0806…081a Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x081a…082f Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x082f…0837 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0837…083d Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x083d…0856 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0856…0867 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0867…0877 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0877…087d Line {l1=0x04, l2=»END;«, l3=0x04}
0x087d…08a1 Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x08a1…08d2 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x08d2…08f9 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x08f9…0911 Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0911…0925 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0925…093d Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x093d…0963 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0963…0971 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0971…098c Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x098c…09b0 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x09b0…09c7 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x09c7…09e8 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x09e8…09f4 Line {l1=0x0a, l2=» INDEKS,«, l3=0x0a}
0x09f4…0a00 Line {l1=0x0a, l2=» LÆNGDE,«, l3=0x0a}
0x0a00…0a0b Line {l1=0x09, l2=» HÆGTE,«, l3=0x09}
0x0a0b…0a1f Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0a1f…0a3a Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0a3a…0a52 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x0a52…0a70 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x0a70…0a7e Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x0a7e…0a9f Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x0a9f…0ac3 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x0ac3…0af3 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x0af3…0b16 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0b16…0b2a Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0b2a…0b30 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b30…0b57 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0b57…0b72 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0b72…0b96 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0b96…0bc3 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0bc3…0bcc Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0bcc…0bd4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0bd4…0be5 Line {l1=0x0f, l2=»RESSPOST=RECORD«, l3=0x0f}
0x0be5…0bf1 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0bf1…0bfa Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0bfa…0c06 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0c06…0c11 Line {l1=0x09, l2=» TSATSF,«, l3=0x09}
0x0c11…0c1c Line {l1=0x09, l2=» SAMOMS,«, l3=0x09}
0x0c1c…0c29 Line {l1=0x0b, l2=» SAMOMSSÅ,«, l3=0x0b}
0x0c29…0c33 Line {l1=0x08, l2=» SAMDB,«, l3=0x08}
0x0c33…0c3f Line {l1=0x0a, l2=» SAMDBSÅ,«, l3=0x0a}
0x0c3f…0c4c Line {l1=0x0b, l2=» KØBSPRIS,«, l3=0x0b}
0x0c4c…0c6a Line {l1=0x1c, l2=» SALGSPRI :REAL;«, l3=0x1c}
0x0c6a…0c71 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0c71…0c7d Line {l1=0x0a, l2=» AFDELNR,«, l3=0x0a}
0x0c7d…0c89 Line {l1=0x0a, l2=» PRODTIM,«, l3=0x0a}
0x0c89…0c95 Line {l1=0x0a, l2=» VEDLTIM,«, l3=0x0a}
0x0c95…0ca1 Line {l1=0x0a, l2=» OPSTILT,«, l3=0x0a}
0x0ca1…0cad Line {l1=0x0a, l2=» OVERTIM,«, l3=0x0a}
0x0cad…0cb9 Line {l1=0x0a, l2=» REPTIME,«, l3=0x0a}
0x0cb9…0cc5 Line {l1=0x0a, l2=» TOTALTI,«, l3=0x0a}
0x0cc5…0cd2 Line {l1=0x0b, l2=» PRODTIMS,«, l3=0x0b}
0x0cd2…0cdf Line {l1=0x0b, l2=» VEDLTIMS,«, l3=0x0b}
0x0cdf…0cec Line {l1=0x0b, l2=» OPSTILTS,«, l3=0x0b}
0x0cec…0cf9 Line {l1=0x0b, l2=» OVERTIMS,«, l3=0x0b}
0x0cf9…0d06 Line {l1=0x0b, l2=» REPTIMES,«, l3=0x0b}
0x0d06…0d27 Line {l1=0x1f, l2=» TOTALTIS, «, l3=0x1f}
0x0d27…0d47 Line {l1=0x1e, l2=» RESSTYPE :INTEGER;«, l3=0x1e}
0x0d47…0d67 Line {l1=0x1e, l2=» DATOFLEV :LONGINT;«, l3=0x1e}
0x0d67…0d87 Line {l1=0x1e, l2=» HYLDENR :INTEGER;«, l3=0x1e}
0x0d87…0dbb Line {l1=0x32, l2=» BETEGN :PACKED ARRAY (1..10) OF CHAR«, l3=0x32}
0x0dbb…0dc1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dc1…0dd2 Line {l1=0x0f, l2=»KUNDPOST=RECORD«, l3=0x0f}
0x0dd2…0dde Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0dde…0de7 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0de7…0df3 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0df3…0e13 Line {l1=0x1e, l2=» NR :LONGINT;«, l3=0x1e}
0x0e13…0e48 Line {l1=0x33, l2=» NAVN :PACKED ARRAY (1..26) OF CHAR;«, l3=0x33}
0x0e48…0e55 Line {l1=0x0b, l2=» KONTAKT1,«, l3=0x0b}
0x0e55…0e62 Line {l1=0x0b, l2=» KONTAKT2,«, l3=0x0b}
0x0e62…0e6f Line {l1=0x0b, l2=» KONTAKT3,«, l3=0x0b}
0x0e6f…0ea3 Line {l1=0x32, l2=» KONTAKT4 :PACKED ARRAY (1..30) OF CHAR«, l3=0x32}
0x0ea3…0ea9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ea9…0eba Line {l1=0x0f, l2=»REGRPOST=RECORD«, l3=0x0f}
0x0eba…0ec6 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0ec6…0ecf Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0ecf…0edb Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0edb…0ee6 Line {l1=0x09, l2=» GRUPNR,«, l3=0x09}
0x0ee6…0f06 Line {l1=0x1e, l2=» NR :INTEGER «, l3=0x1e}
0x0f06…0f0c Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f0c…0f1d Line {l1=0x0f, l2=»EMNEPOST=RECORD«, l3=0x0f}
0x0f1d…0f29 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0f29…0f32 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0f32…0f3e Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0f3e…0f4b Line {l1=0x0b, l2=» ÅRSFORBR,«, l3=0x0b}
0x0f4b…0f58 Line {l1=0x0b, l2=» NETTOVÆG,«, l3=0x0b}
0x0f58…0f65 Line {l1=0x0b, l2=» BRUTTOVÆ,«, l3=0x0b}
0x0f65…0f71 Line {l1=0x0a, l2=» SAMSALG,«, l3=0x0a}
0x0f71…0f7c Line {l1=0x09, l2=» DÆKBID,«, l3=0x09}
0x0f7c…0f89 Line {l1=0x0b, l2=» DÆKBIDSÅ,«, l3=0x0b}
0x0f89…0fa5 Line {l1=0x1a, l2=» SAMSALGS :REAL;«, l3=0x1a}
0x0fa5…0fac Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0fac…0fcb Line {l1=0x1d, l2=» FORMNR :INTEGER;«, l3=0x1d}
0x0fcb…0fea Line {l1=0x1d, l2=» KUNDENR :LONGINT;«, l3=0x1d}
0x0fea…1009 Line {l1=0x1d, l2=» MASKINE :INTEGER;«, l3=0x1d}
0x1009…1028 Line {l1=0x1d, l2=» TILDATO :LONGINT;«, l3=0x1d}
0x1028…1032 Line {l1=0x08, l2=» MATNR,«, l3=0x08}
0x1032…103c Line {l1=0x08, l2=» SVIND,«, l3=0x08}
0x103c…1049 Line {l1=0x0b, l2=» SMELTTIL,«, l3=0x0b}
0x1049…1054 Line {l1=0x09, l2=» STKHSA,«, l3=0x09}
0x1054…1073 Line {l1=0x1d, l2=» STKHBA :INTEGER;«, l3=0x1d}
0x1073…107e Line {l1=0x09, l2=» BEMÆRK,«, l3=0x09}
0x107e…1089 Line {l1=0x09, l2=» BETEGN,«, l3=0x09}
0x1089…10bd Line {l1=0x32, l2=» ALTERNP :PACKED ARRAY (1..30) OF CHAR;«, l3=0x32}
0x10bd…10f0 Line {l1=0x31, l2=» TEGNNR :PACKED ARRAY (1..20) OF CHAR«, l3=0x31}
0x10f0…10f6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x10f6…1107 Line {l1=0x0f, l2=»RÅVAPOST=RECORD«, l3=0x0f}
0x1107…1113 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1113…111c Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x111c…1128 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1128…1133 Line {l1=0x09, l2=» PRISKG,«, l3=0x09}
0x1133…113e Line {l1=0x09, l2=» OMSÆTP,«, l3=0x09}
0x113e…1146 Line {l1=0x06, l2=» DBP,«, l3=0x06}
0x1146…1153 Line {l1=0x0b, l2=» KOSTPRIS,«, l3=0x0b}
0x1153…115f Line {l1=0x0a, l2=» OMSÆTSP,«, l3=0x0a}
0x115f…116b Line {l1=0x0a, l2=» DBSÅ, «, l3=0x0a}
0x116b…1178 Line {l1=0x0b, l2=» KOSTPRSÅ,«, l3=0x0b}
0x1178…1186 Line {l1=0x0c, l2=» LAGER, «, l3=0x0c}
0x1186…1194 Line {l1=0x0c, l2=» MINLAGE, «, l3=0x0c}
0x1194…11a2 Line {l1=0x0c, l2=» RESERVER, «, l3=0x0c}
0x11a2…11b1 Line {l1=0x0d, l2=» SMEPRIS, «, l3=0x0d}
0x11b1…11c0 Line {l1=0x0d, l2=» KGINDKØB, «, l3=0x0d}
0x11c0…11cf Line {l1=0x0d, l2=» KGFORBRU, «, l3=0x0d}
0x11cf…11ee Line {l1=0x1d, l2=» KGSOLGT :REAL; «, l3=0x1d}
0x11ee…11f5 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x11f5…1200 Line {l1=0x09, l2=» LEVUGE,«, l3=0x09}
0x1200…121f Line {l1=0x1d, l2=» SMESVIND :INTEGER;«, l3=0x1d}
0x121f…1252 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..16) OF CHAR«, l3=0x31}
0x1252…1258 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1258…1269 Line {l1=0x0f, l2=»MEDAPOST=RECORD«, l3=0x0f}
0x1269…1275 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1275…127e Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x127e…128a Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x128a…1297 Line {l1=0x0b, l2=» TIMESATS,«, l3=0x0b}
0x1297…12a4 Line {l1=0x0b, l2=» PERSTIME,«, l3=0x0b}
0x12a4…12b1 Line {l1=0x0b, l2=» TOTTIMLØ,«, l3=0x0b}
0x12b1…12be Line {l1=0x0b, l2=» PRODTIME,«, l3=0x0b}
0x12be…12cb Line {l1=0x0b, l2=» AKKORDLØ,«, l3=0x0b}
0x12cb…12e7 Line {l1=0x1a, l2=» AKKORDAR :REAL;«, l3=0x1a}
0x12e7…12ee Line {l1=0x05, l2=» NR,«, l3=0x05}
0x12ee…130d Line {l1=0x1d, l2=» AFDELING :INTEGER;«, l3=0x1d}
0x130d…1340 Line {l1=0x31, l2=» NAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x1340…1346 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1346…1357 Line {l1=0x0f, l2=»OPERPOST=RECORD«, l3=0x0f}
0x1357…1363 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1363…136c Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x136c…1378 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1378…1394 Line {l1=0x1a, l2=» TILLÆG :REAL;«, l3=0x1a}
0x1394…139b Line {l1=0x05, l2=» NR,«, l3=0x05}
0x139b…13a6 Line {l1=0x09, l2=» GRUPPE,«, l3=0x09}
0x13a6…13c5 Line {l1=0x1d, l2=» REBELAS :INTEGER;«, l3=0x1d}
0x13c5…13f8 Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x13f8…13fe Line {l1=0x04, l2=»END;«, l3=0x04}
0x13fe…140f Line {l1=0x0f, l2=»LØNGPOST=RECORD«, l3=0x0f}
0x140f…141b Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x141b…1424 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1424…1430 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1430…144c Line {l1=0x1a, l2=» TIMESATS :REAL;«, l3=0x1a}
0x144c…146b Line {l1=0x1d, l2=» NR :INTEGER;«, l3=0x1d}
0x146b…149e Line {l1=0x31, l2=» BETEGN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x149e…14a4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14a4…14b5 Line {l1=0x0f, l2=»OMVFPOST=RECORD«, l3=0x0f}
0x14b5…14c1 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x14c1…14ca Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x14ca…14d6 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x14d6…14e1 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x14e1…14ec Line {l1=0x09, l2=» SEKVNR,«, l3=0x09}
0x14ec…150b Line {l1=0x1d, l2=» OPERANR :INTEGER «, l3=0x1d}
0x150b…1511 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1511…1522 Line {l1=0x0f, l2=»FORKPOST=RECORD«, l3=0x0f}
0x1522…152e Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x152e…1537 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x1537…1543 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1543…155f Line {l1=0x1a, l2=» KRSTK :REAL;«, l3=0x1a}
0x155f…156a Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x156a…1577 Line {l1=0x0b, l2=» SEKVENSN,«, l3=0x0b}
0x1577…1583 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x1583…158f Line {l1=0x0a, l2=» LØNTYPE,«, l3=0x0a}
0x158f…1598 Line {l1=0x07, l2=» STKH,«, l3=0x07}
0x1598…15a2 Line {l1=0x08, l2=» RESS1,«, l3=0x08}
0x15a2…15ac Line {l1=0x08, l2=» RESS2,«, l3=0x08}
0x15ac…15b6 Line {l1=0x08, l2=» RESS3,«, l3=0x08}
0x15b6…15c0 Line {l1=0x08, l2=» RESS4,«, l3=0x08}
0x15c0…15df Line {l1=0x1d, l2=» RESS5 :INTEGER «, l3=0x1d}
0x15df…15e5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x15e5…15f6 Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x15f6…1602 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x1602…160b Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x160b…1617 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x1617…1624 Line {l1=0x0b, l2=» AKKTIME1,«, l3=0x0b}
0x1624…1631 Line {l1=0x0b, l2=» AKKTIME2,«, l3=0x0b}
0x1631…163e Line {l1=0x0b, l2=» AKKTIME3,«, l3=0x0b}
0x163e…164b Line {l1=0x0b, l2=» AKKTIME4,«, l3=0x0b}
0x164b…1658 Line {l1=0x0b, l2=» AKKTIME5,«, l3=0x0b}
0x1658…1665 Line {l1=0x0b, l2=» AKKTIME6,«, l3=0x0b}
0x1665…1672 Line {l1=0x0b, l2=» AKKTIME7,«, l3=0x0b}
0x1672…167f Line {l1=0x0b, l2=» AKKTIME8,«, l3=0x0b}
0x167f…169a Line {l1=0x19, l2=» AKKTIME9 :REAL;«, l3=0x19}
0x169a…16b8 Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x16b8…16d6 Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x16d6…16f4 Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x16f4…170a Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x170a…1728 Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x1728…172e Line {l1=0x04, l2=»END;«, l3=0x04}
0x172e…1736 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1736…173f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x173f…1750 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x1750…1765 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1765…1791 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1791…17a4 Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x17a4…17c2 Line {l1=0x1c, l2=» I,J,ANTALFELTER:INTEGER;«, l3=0x1c}
0x17c2…17d4 Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x17d4…17e8 Line {l1=0x12, l2=» RESS:RESSPOST;«, l3=0x12}
0x17e8…17fd Line {l1=0x13, l2=» KUNDE:KUNDPOST;«, l3=0x13}
0x17fd…1815 Line {l1=0x16, l2=» RESSGRUP:REGRPOST;«, l3=0x16}
0x1815…1829 Line {l1=0x12, l2=» EMNE:EMNEPOST;«, l3=0x12}
0x1829…183f Line {l1=0x14, l2=» RÅVARE:RÅVAPOST;«, l3=0x14}
0x183f…1855 Line {l1=0x14, l2=» MEDARB:MEDAPOST;«, l3=0x14}
0x1855…186a Line {l1=0x13, l2=» OPERA:OPERPOST;«, l3=0x13}
0x186a…1881 Line {l1=0x15, l2=» LØNGRUP:LØNGPOST;«, l3=0x15}
0x1881…1898 Line {l1=0x15, l2=» OMVEMNE:OMVFPOST;«, l3=0x15}
0x1898…18ac Line {l1=0x12, l2=» POST:FORKPOST;«, l3=0x12}
0x18ac…18c2 Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x18c2…18d8 Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x18d8…18eb Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x18eb…190c Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x190c…194a Line {l1=0x3c, l2=» RESSTEXT:ARRAY (10..13) OF PACKED ARRAY (1..10) OF CHAR;«, l3=0x3c}
0x194a…1952 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1952…1970 Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x1970…1983 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1983…1993 Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x1993…199a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x199a…19a2 Line {l1=0x06, l2=» D23;«, l3=0x06}
0x19a2…19f0 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x19f0…1a3e Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x1a3e…1a53 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x1a53…1a83 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x1a83…1a9a Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x1a9a…1aae Line {l1=0x12, l2=» ICLOSE(KUNDE.A);«, l3=0x12}
0x1aae…1ac5 Line {l1=0x15, l2=» ICLOSE(RESSGRUP.A);«, l3=0x15}
0x1ac5…1adc Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x1adc…1af1 Line {l1=0x13, l2=» ICLOSE(RÅVARE.A);«, l3=0x13}
0x1af1…1b08 Line {l1=0x15, l2=» ICLOSE(MEDARB.A); «, l3=0x15}
0x1b08…1b1f Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x1b1f…1b36 Line {l1=0x15, l2=» ICLOSE(LØNGRUP.A); «, l3=0x15}
0x1b36…1b4d Line {l1=0x15, l2=» ICLOSE(OMVEMNE.A); «, l3=0x15}
0x1b4d…1b61 Line {l1=0x12, l2=» ICLOSE(POST.A); «, l3=0x12}
0x1b61…1b72 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1b72…1b78 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b78…1b97 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x1b97…1b9e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b9e…1bbb Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x1bbb…1bc1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bc1…1bc9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1bc9…1bd2 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1bd2…1be2 Line {l1=0x0e, l2=»(*$IRLÆSDESC*)«, l3=0x0e}
0x1be2…1bea Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1bea…1bfa Line {l1=0x0e, l2=»(*$IMOVETOLI*)«, l3=0x0e}
0x1bfa…1c02 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c02…1c0b Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1c0b…1c20 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1c20…1c33 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x1c33…1c48 Line {l1=0x13, l2=» FELTNR:INTEGER;«, l3=0x13}
0x1c48…1c4b Line {l1=0x01, l2=» «, l3=0x01}
0x1c4b…1c61 Line {l1=0x14, l2=»PROCEDURE SKRIVEMNE;«, l3=0x14}
0x1c61…1c68 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c68…1c78 Line {l1=0x0e, l2=» WITH EMNE DO«, l3=0x0e}
0x1c78…1c81 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c81…1c93 Line {l1=0x10, l2=» GOTOXY(1,1);«, l3=0x10}
0x1c93…1cab Line {l1=0x16, l2=» WRITELN('Kundenr',«, l3=0x16}
0x1cab…1ced Line {l1=0x40, l2=» KUNDENR(1)*10000.0+KUNDENR(2):6:-2,' Emnenr',NR:6, «, l3=0x40}
0x1ced…1d0f Line {l1=0x20, l2=» ' Formnr',FORMNR:5);«, l3=0x20}
0x1d0f…1d4a Line {l1=0x39, l2=» WRITELN('Tegningsnr ',TEGNNR,' Benævnelse ',BETEGN) «, l3=0x39}
0x1d4a…1d51 Line {l1=0x05, l2=» END«, l3=0x05}
0x1d51…1d57 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d57…1d5a Line {l1=0x01, l2=» «, l3=0x01}
0x1d5a…1d71 Line {l1=0x15, l2=»PROCEDURE SKRIVLINIE;«, l3=0x15}
0x1d71…1d81 Line {l1=0x0e, l2=»VAR J:INTEGER;«, l3=0x0e}
0x1d81…1d93 Line {l1=0x10, l2=» HKRSTK:REAL;«, l3=0x10}
0x1d93…1d9a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d9a…1daa Line {l1=0x0e, l2=» WITH POST DO«, l3=0x0e}
0x1daa…1db3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1db3…1dcf Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(1));«, l3=0x1a}
0x1dcf…1deb Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(2));«, l3=0x1a}
0x1deb…1e07 Line {l1=0x1a, l2=» SKRIVFELT(PICTURE(3));«, l3=0x1a}
0x1e07…1e1f Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x1e1f…1e62 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x1e62…1ea1 Line {l1=0x3d, l2=» IF IER=0 THEN BEGIN GOTOXY(25,6);WRITE(OPERA.BETEGN) END;«, l3=0x3d}
0x1ea1…1eb3 Line {l1=0x10, l2=» GOTOXY(1,7);«, l3=0x10}
0x1eb3…1ed3 Line {l1=0x1e, l2=» WRITE(' 4 Stk/h :');«, l3=0x1e}
0x1ed3…1ef3 Line {l1=0x1e, l2=» IF STKH<0 THEN WRITE('T');«, l3=0x1e}
0x1ef3…1f0a Line {l1=0x15, l2=» WRITE(ABS(STKH));«, l3=0x15}
0x1f0a…1f29 Line {l1=0x1d, l2=» HKRSTK:=KRSTK;KRSTK:=0.0;«, l3=0x1d}
0x1f29…1f56 Line {l1=0x2b, l2=» FOR J:=5 TO 9 DO SKRIVFELT(PICTURE(J));«, l3=0x2b}
0x1f56…1f6a Line {l1=0x12, l2=» KRSTK:=HKRSTK;«, l3=0x12}
0x1f6a…1fa0 Line {l1=0x34, l2=» IF LØNTYPE>0 THEN SKRIVFELT(PICTURE(4+LØNTYPE));«, l3=0x34}
0x1fa0…1fb3 Line {l1=0x11, l2=» GOTOXY(1,13);«, l3=0x11}
0x1fb3…1fcb Line {l1=0x16, l2=» FOR J:=10 TO 13 DO«, l3=0x16}
0x1fcb…1fd6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1fd6…1fff Line {l1=0x27, l2=» WRITE(J:2,' ',RESSTEXT(J),' :');«, l3=0x27}
0x1fff…2010 Line {l1=0x0f, l2=» CASE J OF«, l3=0x0f}
0x2010…2057 Line {l1=0x45, l2=» 10:IF RESS1<0 THEN WRITELN('*',-RESS1:6) ELSE WRITELN(RESS1:7);«, l3=0x45}
0x2057…209e Line {l1=0x45, l2=» 11:IF RESS2<0 THEN WRITELN('*',-RESS2:6) ELSE WRITELN(RESS2:7);«, l3=0x45}
0x209e…20e5 Line {l1=0x45, l2=» 12:IF RESS3<0 THEN WRITELN('*',-RESS3:6) ELSE WRITELN(RESS3:7);«, l3=0x45}
0x20e5…212c Line {l1=0x45, l2=» 13:IF RESS4<0 THEN WRITELN('*',-RESS4:6) ELSE WRITELN(RESS4:7) «, l3=0x45}
0x212c…2137 Line {l1=0x09, l2=» END«, l3=0x09}
0x2137…2140 Line {l1=0x07, l2=» END«, l3=0x07}
0x2140…2147 Line {l1=0x05, l2=» END«, l3=0x05}
0x2147…214d Line {l1=0x04, l2=»END;«, l3=0x04}
0x214d…2155 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2155…2169 Line {l1=0x12, l2=»PROCEDURE SLETOMV;«, l3=0x12}
0x2169…2170 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2170…2190 Line {l1=0x1e, l2=» OMVEMNE.EMNENR:=POST.EMNENR;«, l3=0x1e}
0x2190…21b3 Line {l1=0x21, l2=» OMVEMNE.SEKVNR:=POST.SEKVENSN; «, l3=0x21}
0x21b3…21d5 Line {l1=0x20, l2=» OMVEMNE.OPERANR:=POST.OPERANR;«, l3=0x20}
0x21d5…221b Line {l1=0x44, l2=» GETRECX(OMVEMNE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OMVEMNE.A);«, l3=0x44}
0x221b…222c Line {l1=0x0f, l2=» IF IER=0 THEN«, l3=0x0f}
0x222c…2235 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2235…227c Line {l1=0x45, l2=» DELETE(OMVEMNE.A);IF NOT (-IER IN (.0,9.)) THEN ERROR(OMVEMNE.A) «, l3=0x45}
0x227c…2284 Line {l1=0x06, l2=» END «, l3=0x06}
0x2284…228a Line {l1=0x04, l2=»END;«, l3=0x04}
0x228a…228d Line {l1=0x01, l2=» «, l3=0x01}
0x228d…22dc Line {l1=0x4d, l2=»PROCEDURE SLETLINIE; «, l3=0x4d}
0x22dc…2306 Line {l1=0x28, l2=»BEGIN «, l3=0x28}
0x2306…2312 Line {l1=0x0a, l2=» SLETOMV;«, l3=0x0a}
0x2312…2352 Line {l1=0x3e, l2=» DELETEX(POST.A);IF NOT (-IER IN (.0,9.)) THEN ERROR(POST.A) «, l3=0x3e}
0x2352…2358 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2358…2360 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2360…2385 Line {l1=0x23, l2=»PROCEDURE ÆNDLINIE(FELTNR:INTEGER);«, l3=0x23}
0x2385…2393 Line {l1=0x0c, l2=»VAR CH:CHAR;«, l3=0x0c}
0x2393…23a9 Line {l1=0x14, l2=» RESSURS:INTEGER;«, l3=0x14}
0x23a9…23b0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x23b0…23bf Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x23bf…23c7 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x23c7…23e5 Line {l1=0x1c, l2=» IF FELTNR IN (.5..9.) THEN«, l3=0x1c}
0x23e5…23ee Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x23ee…23ff Line {l1=0x0f, l2=» KRSTK:=0.0;«, l3=0x0f}
0x23ff…2435 Line {l1=0x34, l2=» IF LØNTYPE>0 THEN SKRIVFELT(PICTURE(LØNTYPE+4));«, l3=0x34}
0x2435…244c Line {l1=0x15, l2=» LØNTYPE:=FELTNR-4«, l3=0x15}
0x244c…2454 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2454…248d Line {l1=0x37, l2=» IF (FELTNR IN (.2,3.)) AND (SEKVENSN>0) THEN SLETOMV;«, l3=0x37}
0x248d…24cd Line {l1=0x3e, l2=» IF FELTNR IN (.2,5..7.) THEN BEGIN LÆSFELT(PICTURE(FELTNR));«, l3=0x3e}
0x24cd…250e Line {l1=0x3f, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x3f}
0x250e…2533 Line {l1=0x23, l2=» END;«, l3=0x23}
0x2533…2545 Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x2545…2551 Line {l1=0x0a, l2=» 3:REPEAT«, l3=0x0a}
0x2551…2572 Line {l1=0x1f, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1f}
0x2572…2595 Line {l1=0x21, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x21}
0x2595…25af Line {l1=0x18, l2=» OPERA.NR:=OPERANR;«, l3=0x18}
0x25af…25f5 Line {l1=0x44, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A); «, l3=0x44}
0x25f5…2621 Line {l1=0x2a, l2=» IF IER=-6 THEN NONEXIST('Operation')«, l3=0x2a}
0x2621…2633 Line {l1=0x10, l2=» UNTIL IER=0;«, l3=0x10}
0x2633…263e Line {l1=0x09, l2=» 4:BEGIN«, l3=0x09}
0x263e…264a Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x264a…265a Line {l1=0x0e, l2=» STKH:=0;«, l3=0x0e}
0x265a…2666 Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x2666…267f Line {l1=0x17, l2=» WRITE(' Stk/h ');«, l3=0x17}
0x267f…268e Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x268e…26a6 Line {l1=0x16, l2=» IF NOT EOLN THEN«, l3=0x16}
0x26a6…26b3 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x26b3…26e4 Line {l1=0x2f, l2=» IF INPUT^ IN (.'T','t'.) THEN READ(CH);«, l3=0x2f}
0x26e4…271a Line {l1=0x34, l2=» IF INPUT^ IN (.'0'..'9'.) THEN READ(STKH); «, l3=0x34}
0x271a…2749 Line {l1=0x2d, l2=» IF CH IN (.'T','t'.) THEN STKH:=-STKH«, l3=0x2d}
0x2749…2754 Line {l1=0x09, l2=» END«, l3=0x09}
0x2754…2768 Line {l1=0x12, l2=» UNTIL STKH<>0;«, l3=0x12}
0x2768…277b Line {l1=0x11, l2=» GOTOXY(17,7);«, l3=0x11}
0x277b…27b2 Line {l1=0x35, l2=» IF STKH<0 THEN WRITE('T',-STKH) ELSE WRITE(STKH) «, l3=0x35}
0x27b2…27bc Line {l1=0x08, l2=» END;«, l3=0x08}
0x27bc…27c8 Line {l1=0x0a, l2=» 8:REPEAT«, l3=0x0a}
0x27c8…27eb Line {l1=0x21, l2=» LÆSFELT(PICTURE(FELTNR)); «, l3=0x21}
0x27eb…280e Line {l1=0x21, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x21}
0x280e…282f Line {l1=0x1f, l2=» LØNGRUP.NR:=TRUNC(KRSTK);«, l3=0x1f}
0x282f…2878 Line {l1=0x47, l2=» GETREC(LØNGRUP.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(LØNGRUP.A);«, l3=0x47}
0x2878…28a4 Line {l1=0x2a, l2=» IF IER=-6 THEN NONEXIST('Løngruppe')«, l3=0x2a}
0x28a4…28b6 Line {l1=0x10, l2=» UNTIL IER=0;«, l3=0x10}
0x28b6…28c2 Line {l1=0x0a, l2=» 9:REPEAT«, l3=0x0a}
0x28c2…28e5 Line {l1=0x21, l2=» LÆSFELT(PICTURE(FELTNR)); «, l3=0x21}
0x28e5…2908 Line {l1=0x21, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x21}
0x2908…2928 Line {l1=0x1e, l2=» MEDARB.NR:=TRUNC(KRSTK);«, l3=0x1e}
0x2928…296f Line {l1=0x45, l2=» GETREC(MEDARB.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(MEDARB.A);«, l3=0x45}
0x296f…299d Line {l1=0x2c, l2=» IF IER=-6 THEN NONEXIST('Medarbejder')«, l3=0x2c}
0x299d…29af Line {l1=0x10, l2=» UNTIL IER=0;«, l3=0x10}
0x29af…29bf Line {l1=0x0e, l2=» 10,11,12,13:«, l3=0x0e}
0x29bf…29ca Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x29ca…29d6 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x29d6…29e6 Line {l1=0x0e, l2=» CH:='Æ';«, l3=0x0e}
0x29e6…29f2 Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x29f2…2a25 Line {l1=0x31, l2=» WRITE(FELTNR:2,' ',RESSTEXT(FELTNR),' :');«, l3=0x31}
0x2a25…2a34 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x2a34…2a48 Line {l1=0x12, l2=» IF EOLN THEN«, l3=0x12}
0x2a48…2a55 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2a55…2a67 Line {l1=0x10, l2=» CH:='Å';«, l3=0x10}
0x2a67…2a7b Line {l1=0x12, l2=» RESSURS:=0«, l3=0x12}
0x2a7b…2a86 Line {l1=0x09, l2=» END«, l3=0x09}
0x2a86…2a92 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2a92…2aac Line {l1=0x18, l2=» IF INPUT^='*' THEN«, l3=0x18}
0x2aac…2ab9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2ab9…2acc Line {l1=0x11, l2=» READ(CH);«, l3=0x11}
0x2acc…2af4 Line {l1=0x26, l2=» IF INPUT^ IN (.'0'..'9'.) THEN«, l3=0x26}
0x2af4…2b03 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2b03…2b1d Line {l1=0x18, l2=» READ(RESSURS);«, l3=0x18}
0x2b1d…2b3b Line {l1=0x1c, l2=» RESSURS:=-RESSURS;«, l3=0x1c}
0x2b3b…2b61 Line {l1=0x24, l2=» RESSGRUP.GRUPNR:=-RESSURS;«, l3=0x24}
0x2b61…2b7d Line {l1=0x1a, l2=» RESSGRUP.NR:=-1;«, l3=0x1a}
0x2b7d…2bbc Line {l1=0x3d, l2=» NEXTREC(RESSGRUP.A);IF NOT (-IER IN (.1,2,9.)) THEN«, l3=0x3d}
0x2bbc…2bfa Line {l1=0x3c, l2=» ERROR(RESSGRUP.A);«, l3=0x3c}
0x2bfa…2c27 Line {l1=0x2b, l2=» IF RESSGRUP.GRUPNR<>-RESSURS THEN«, l3=0x2b}
0x2c27…2c50 Line {l1=0x27, l2=» NONEXIST('Ressourcegruppe')«, l3=0x27}
0x2c50…2c68 Line {l1=0x16, l2=» ELSE CH:='Å'«, l3=0x16}
0x2c68…2c75 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2c75…2c80 Line {l1=0x09, l2=» END«, l3=0x09}
0x2c80…2c8c Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2c8c…2c99 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2c99…2cc1 Line {l1=0x26, l2=» IF INPUT^ IN (.'0'..'9'.) THEN«, l3=0x26}
0x2cc1…2cd0 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2cd0…2cea Line {l1=0x18, l2=» READ(RESSURS);«, l3=0x18}
0x2cea…2d08 Line {l1=0x1c, l2=» IF RESSURS<>0 THEN«, l3=0x1c}
0x2d08…2d19 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2d19…2d38 Line {l1=0x1d, l2=» RESS.NR:=RESSURS;«, l3=0x1d}
0x2d38…2d81 Line {l1=0x47, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x47}
0x2d81…2db3 Line {l1=0x30, l2=» IF IER=-6 THEN NONEXIST('Ressource')«, l3=0x30}
0x2db3…2dcd Line {l1=0x18, l2=» ELSE CH:='Å'«, l3=0x18}
0x2dcd…2de9 Line {l1=0x1a, l2=» END ELSE CH:='Å'«, l3=0x1a}
0x2de9…2df6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2df6…2e02 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x2e02…2e15 Line {l1=0x11, l2=» UNTIL CH='Å';«, l3=0x11}
0x2e15…2e2e Line {l1=0x17, l2=» GOTOXY(1,FELTNR+3);«, l3=0x17}
0x2e2e…2e5f Line {l1=0x2f, l2=» WRITE(FELTNR:2,' ',RESSTEXT(FELTNR),' :');«, l3=0x2f}
0x2e5f…2ea3 Line {l1=0x42, l2=» IF RESSURS<0 THEN WRITE('*',-RESSURS:6) ELSE WRITE(RESSURS:7);«, l3=0x42}
0x2ea3…2eb7 Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x2eb7…2ecf Line {l1=0x16, l2=» 10:RESS1:=RESSURS;«, l3=0x16}
0x2ecf…2ee7 Line {l1=0x16, l2=» 11:RESS2:=RESSURS;«, l3=0x16}
0x2ee7…2eff Line {l1=0x16, l2=» 12:RESS3:=RESSURS;«, l3=0x16}
0x2eff…2f17 Line {l1=0x16, l2=» 13:RESS4:=RESSURS «, l3=0x16}
0x2f17…2f20 Line {l1=0x07, l2=» END«, l3=0x07}
[…0x1…]
0x2f29…2f31 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2f31…2f4e Line {l1=0x1b, l2=» IF FELTNR IN (.2,3.) THEN«, l3=0x1b}
0x2f4e…2f57 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2f57…2f74 Line {l1=0x1b, l2=» OMVEMNE.EMNENR:=EMNENR;«, l3=0x1b}
0x2f74…2f94 Line {l1=0x1e, l2=» OMVEMNE.SEKVNR:=SEKVENSN; «, l3=0x1e}
0x2f94…2fb3 Line {l1=0x1d, l2=» OMVEMNE.OPERANR:=OPERANR;«, l3=0x1d}
0x2fb3…2feb Line {l1=0x36, l2=» INSERT(OMVEMNE.A);IF IER<>0 THEN ERROR(OMVEMNE.A);«, l3=0x36}
0x2feb…2ff3 Line {l1=0x06, l2=» END «, l3=0x06}
0x2ff3…2ff9 Line {l1=0x04, l2=» END«, l3=0x04}
0x2ff9…2fff Line {l1=0x04, l2=»END;«, l3=0x04}
0x2fff…3007 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3007…301e Line {l1=0x15, l2=»PROCEDURE OPRETLINIE;«, l3=0x15}
0x301e…3025 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3025…3034 Line {l1=0x0d, l2=» SKRIVLINIE;«, l3=0x0d}
0x3034…3044 Line {l1=0x0e, l2=» ÆNDLINIE(2);«, l3=0x0e}
0x3044…3054 Line {l1=0x0e, l2=» ÆNDLINIE(4);«, l3=0x0e}
0x3054…305e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x305e…3067 Line {l1=0x07, l2=» D23;«, l3=0x07}
0x3067…3086 Line {l1=0x1d, l2=» WRITE('Vælg feltnr 5-9 ');«, l3=0x1d}
0x3086…3092 Line {l1=0x0a, l2=» READLN;«, l3=0x0a}
0x3092…30b4 Line {l1=0x20, l2=» IF NOT EOLN THEN READ(FELTNR)«, l3=0x20}
0x30b4…30e4 Line {l1=0x2e, l2=» UNTIL (IORESULT=0) AND (FELTNR IN (.5..9.));«, l3=0x2e}
0x30e4…30f9 Line {l1=0x13, l2=» ÆNDLINIE(FELTNR);«, l3=0x13}
0x30f9…3126 Line {l1=0x2b, l2=» FOR FELTNR:=10 TO 13 DO ÆNDLINIE(FELTNR);«, l3=0x2b}
0x3126…3135 Line {l1=0x0d, l2=» SKRIVLINIE;«, l3=0x0d}
0x3135…313f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x313f…314a Line {l1=0x09, l2=» REPEAT«, l3=0x09}
0x314a…3154 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x3154…317e Line {l1=0x28, l2=» WRITE('Feltnr 2-13, 0 for færdig ');«, l3=0x28}
0x317e…318b Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x318b…31ae Line {l1=0x21, l2=» IF NOT EOLN THEN READ(FELTNR)«, l3=0x21}
0x31ae…31e2 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (FELTNR IN (.0,2..13.));«, l3=0x32}
0x31e2…3208 Line {l1=0x24, l2=» IF FELTNR>0 THEN ÆNDLINIE(FELTNR)«, l3=0x24}
0x3208…321b Line {l1=0x11, l2=» UNTIL FELTNR=0;«, l3=0x11}
0x321b…324a Line {l1=0x2d, l2=» INSERT(POST.A);IF IER<>0 THEN ERROR(POST.A)«, l3=0x2d}
0x324a…3250 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3250…3258 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3258…3274 Line {l1=0x1a, l2=»PROCEDURE SOPERATIONSKORT;«, l3=0x1a}
0x3274…328e Line {l1=0x18, l2=»VAR LINES,HYLDE:INTEGER;«, l3=0x18}
0x328e…32ae Line {l1=0x1e, l2=» KUNFOUND,RÅVFOUND:BOOLEAN;«, l3=0x1e}
0x32ae…32b5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x32b5…32c2 Line {l1=0x0b, l2=» LINES:=23;«, l3=0x0b}
0x32c2…32d1 Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x32d1…32d9 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x32d9…32f4 Line {l1=0x19, l2=» KUNDE.NR:=EMNE.KUNDENR;«, l3=0x19}
0x32f4…3335 Line {l1=0x3f, l2=» GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);«, l3=0x3f}
0x3335…334b Line {l1=0x14, l2=» KUNFOUND:=(IER=0);«, l3=0x14}
0x334b…3365 Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x3365…33a8 Line {l1=0x41, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x41}
0x33a8…33be Line {l1=0x14, l2=» RÅVFOUND:=(IER=0);«, l3=0x14}
0x33be…33d2 Line {l1=0x12, l2=» EMNENR:=EMNE.NR;«, l3=0x12}
0x33d2…33e2 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x33e2…33f1 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x33f1…3429 Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x3429…3434 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x3434…345d Line {l1=0x27, l2=» WHILE (IER=0) AND (EMNENR=EMNE.NR) DO«, l3=0x27}
0x345d…3466 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3466…347c Line {l1=0x14, l2=» IF LINES>21 THEN«, l3=0x14}
0x347c…3487 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3487…349b Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x349b…34af Line {l1=0x12, l2=» WITH EMNE DO«, l3=0x12}
0x34af…34bc Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34bc…34e6 Line {l1=0x28, l2=» WRITELN(' ':12,'OPERATIONSKORT',«, l3=0x28}
0x34e6…3528 Line {l1=0x40, l2=» KUNDENR(1)*10000.0+KUNDENR(2):15:-2,NR:21);«, l3=0x40}
0x3528…354f Line {l1=0x25, l2=» WRITE(TEGNNR,' ',BETEGN,' ');«, l3=0x25}
0x354f…357d Line {l1=0x2c, l2=» IF KUNFOUND THEN WRITELN(KUNDE.NAVN)«, l3=0x2c}
0x357d…35a7 Line {l1=0x28, l2=» ELSE WRITELN('IKKE OPRETTET');«, l3=0x28}
0x35a7…35d6 Line {l1=0x2d, l2=» IF RÅVFOUND THEN WRITE(RÅVARE.BETEGN)«, l3=0x2d}
0x35d6…3601 Line {l1=0x29, l2=» ELSE WRITE('IKKE OPRETTET ');«, l3=0x29}
0x3601…3634 Line {l1=0x31, l2=» WRITELN(NETTOVÆG:8:2,BRUTTOVÆ:9:2,' ':32,«, l3=0x31}
0x3634…367e Line {l1=0x48, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):6:-2)«, l3=0x48}
0x367e…368a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x368a…36c2 Line {l1=0x36, l2=» WRITELN(' ':48,'stk/h total værkt hjvt hyld');«, l3=0x36}
0x36c2…36d4 Line {l1=0x10, l2=» LINES:=4 «, l3=0x10}
0x36d4…36de Line {l1=0x08, l2=» END;«, l3=0x08}
0x36de…36f3 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x36f3…3719 Line {l1=0x24, l2=» WRITE(SEKVENSN:2,OPERANR:4,' ');«, l3=0x24}
0x3719…3731 Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x3731…3774 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x3774…379e Line {l1=0x28, l2=» IF IER=0 THEN WRITE(OPERA.BETEGN:24)«, l3=0x28}
0x379e…37cb Line {l1=0x2b, l2=» ELSE WRITE('IKKE OPRETTET ');«, l3=0x2b}
0x37cb…37e0 Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x37e0…37eb Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x37eb…3802 Line {l1=0x15, l2=» RESS.NR:=RESS1;«, l3=0x15}
0x3802…3845 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x3845…385a Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x385a…3895 Line {l1=0x39, l2=» WRITE(RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)«, l3=0x39}
0x3895…38be Line {l1=0x27, l2=» ELSE WRITE(RESS1:7,' UOPRETTET') «, l3=0x27}
0x38be…38c7 Line {l1=0x07, l2=» END«, l3=0x07}
0x38c7…38d1 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x38d1…38f4 Line {l1=0x21, l2=» IF RESS1=0 THEN WRITE(' ':17)«, l3=0x21}
0x38f4…391c Line {l1=0x26, l2=» ELSE WRITE(' *',-RESS1:4,' ':10);«, l3=0x26}
0x391c…3930 Line {l1=0x12, l2=» IF STKH<0 THEN«, l3=0x12}
0x3930…3954 Line {l1=0x22, l2=» WRITE(-STKH/100.0:12:2,' ')«, l3=0x22}
0x3954…3973 Line {l1=0x1d, l2=» ELSE WRITE(STKH:5,' ':9);«, l3=0x1d}
0x3973…3982 Line {l1=0x0d, l2=» HYLDE:=0;«, l3=0x0d}
0x3982…3997 Line {l1=0x13, l2=» IF RESS3>0 THEN«, l3=0x13}
0x3997…39a2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x39a2…39b9 Line {l1=0x15, l2=» WRITE(RESS3:5);«, l3=0x15}
0x39b9…39d0 Line {l1=0x15, l2=» RESS.NR:=RESS3;«, l3=0x15}
0x39d0…3a13 Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x3a13…3a3c Line {l1=0x27, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x27}
0x3a3c…3a45 Line {l1=0x07, l2=» END«, l3=0x07}
0x3a45…3a4f Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3a4f…3a71 Line {l1=0x20, l2=» IF RESS3=0 THEN WRITE(' ':5)«, l3=0x20}
0x3a71…3a90 Line {l1=0x1d, l2=» ELSE WRITE('*',-RESS3:4);«, l3=0x1d}
0x3a90…3aa5 Line {l1=0x13, l2=» IF RESS4>0 THEN«, l3=0x13}
0x3aa5…3ab0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3ab0…3ac7 Line {l1=0x15, l2=» WRITE(RESS4:5);«, l3=0x15}
0x3ac7…3ade Line {l1=0x15, l2=» IF HYLDE=0 THEN«, l3=0x15}
0x3ade…3aeb Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3aeb…3b04 Line {l1=0x17, l2=» RESS.NR:=RESS4;«, l3=0x17}
0x3b04…3b49 Line {l1=0x43, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x43}
0x3b49…3b74 Line {l1=0x29, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x29}
0x3b74…3b7f Line {l1=0x09, l2=» END«, l3=0x09}
0x3b7f…3b88 Line {l1=0x07, l2=» END«, l3=0x07}
0x3b88…3b92 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3b92…3bb4 Line {l1=0x20, l2=» IF RESS4=0 THEN WRITE(' ':5)«, l3=0x20}
0x3bb4…3bd3 Line {l1=0x1d, l2=» ELSE WRITE('*',-RESS4:4);«, l3=0x1d}
0x3bd3…3bf9 Line {l1=0x24, l2=» IF HYLDE>0 THEN WRITELN(HYLDE:5)«, l3=0x24}
0x3bf9…3c03 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3c03…3c11 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x3c11…3c22 Line {l1=0x0f, l2=» NEXTREC(A);«, l3=0x0f}
0x3c22…3c38 Line {l1=0x14, l2=» IF LINES=22 THEN«, l3=0x14}
0x3c38…3c43 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3c43…3c4f Line {l1=0x0a, l2=» D23;«, l3=0x0a}
0x3c4f…3c6e Line {l1=0x1d, l2=» WRITE('RETURN ');READLN«, l3=0x1d}
0x3c6e…3c77 Line {l1=0x07, l2=» END«, l3=0x07}
0x3c77…3c7f Line {l1=0x06, l2=» END;«, l3=0x06}
0x3c7f…3c93 Line {l1=0x12, l2=» IF LINES<22 THEN«, l3=0x12}
0x3c93…3cb3 Line {l1=0x1e, l2=» D23;WRITE('RETURN ');READLN;«, l3=0x1e}
0x3cb3…3cdf Line {l1=0x2a, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)«, l3=0x2a}
0x3cdf…3ce5 Line {l1=0x04, l2=» END«, l3=0x04}
0x3ce5…3ceb Line {l1=0x04, l2=»END;«, l3=0x04}
0x3ceb…3cf3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3cf3…3d0e Line {l1=0x19, l2=»PROCEDURE OPERATIONSKORT;«, l3=0x19}
0x3d0e…3d28 Line {l1=0x18, l2=»VAR LINES,HYLDE:INTEGER;«, l3=0x18}
0x3d28…3d48 Line {l1=0x1e, l2=» KUNFOUND,RÅVFOUND:BOOLEAN;«, l3=0x1e}
0x3d48…3d4f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3d4f…3d58 Line {l1=0x07, l2=» REPEAT«, l3=0x07}
0x3d58…3d63 Line {l1=0x09, l2=» REPEAT«, l3=0x09}
0x3d63…3d6e Line {l1=0x09, l2=» D23;«, l3=0x09}
0x3d6e…3d95 Line {l1=0x25, l2=» WRITE('Ønskes testprint, J/N ');«, l3=0x25}
0x3d95…3da4 Line {l1=0x0d, l2=» CH:='J';«, l3=0x0d}
0x3da4…3db3 Line {l1=0x0d, l2=» EDIT(CH)«, l3=0x0d}
0x3db3…3dcf Line {l1=0x1a, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x1a}
0x3dcf…3de7 Line {l1=0x16, l2=» IF CH(1) IN JA THEN«, l3=0x16}
0x3de7…3df1 Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x3df1…3e1b Line {l1=0x28, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x28}
0x3e1b…3e40 Line {l1=0x23, l2=» WRITELN(LIST,' ':35,'XXXXXX');«, l3=0x23}
0x3e40…3e6a Line {l1=0x28, l2=» FOR LINES:=6 TO 72 DO WRITELN(LIST)«, l3=0x28}
0x3e6a…3e73 Line {l1=0x07, l2=» END «, l3=0x07}
0x3e73…3e89 Line {l1=0x14, l2=» UNTIL CH(1) IN NEJ;«, l3=0x14}
0x3e89…3e96 Line {l1=0x0b, l2=» LINES:=72;«, l3=0x0b}
0x3e96…3ea5 Line {l1=0x0d, l2=» WITH POST DO«, l3=0x0d}
0x3ea5…3ead Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3ead…3ec8 Line {l1=0x19, l2=» KUNDE.NR:=EMNE.KUNDENR;«, l3=0x19}
0x3ec8…3f09 Line {l1=0x3f, l2=» GETREC(KUNDE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(KUNDE.A);«, l3=0x3f}
0x3f09…3f1f Line {l1=0x14, l2=» KUNFOUND:=(IER=0);«, l3=0x14}
0x3f1f…3f39 Line {l1=0x18, l2=» RÅVARE.NR:=EMNE.MATNR;«, l3=0x18}
0x3f39…3f7c Line {l1=0x41, l2=» GETREC(RÅVARE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RÅVARE.A);«, l3=0x41}
0x3f7c…3f92 Line {l1=0x14, l2=» RÅVFOUND:=(IER=0);«, l3=0x14}
0x3f92…3fa6 Line {l1=0x12, l2=» EMNENR:=EMNE.NR;«, l3=0x12}
0x3fa6…3fb6 Line {l1=0x0e, l2=» SEKVENSN:=0;«, l3=0x0e}
0x3fb6…3fc5 Line {l1=0x0d, l2=» OPERANR:=0;«, l3=0x0d}
0x3fc5…3ffd Line {l1=0x36, l2=» NEXTREC(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x36}
0x3ffd…4008 Line {l1=0x09, l2=» IER:=0;«, l3=0x09}
0x4008…4031 Line {l1=0x27, l2=» WHILE (IER=0) AND (EMNENR=EMNE.NR) DO«, l3=0x27}
0x4031…403a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x403a…4050 Line {l1=0x14, l2=» IF LINES>68 THEN«, l3=0x14}
0x4050…405b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x405b…409c Line {l1=0x3f, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3f}
0x409c…40c7 Line {l1=0x29, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x29}
0x40c7…40db Line {l1=0x12, l2=» WITH EMNE DO«, l3=0x12}
0x40db…40e8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x40e8…4117 Line {l1=0x2d, l2=» WRITELN(LIST,' ':12,'OPERATIONSKORT',«, l3=0x2d}
0x4117…4159 Line {l1=0x40, l2=» KUNDENR(1)*10000.0+KUNDENR(2):15:-2,NR:21);«, l3=0x40}
0x4159…4186 Line {l1=0x2b, l2=» FOR LINES:=6 TO 8 DO WRITELN(LIST);«, l3=0x2b}
0x4186…41b2 Line {l1=0x2a, l2=» WRITE(LIST,TEGNNR,' ',BETEGN,' ');«, l3=0x2a}
0x41b2…41e5 Line {l1=0x31, l2=» IF KUNFOUND THEN WRITELN(LIST,KUNDE.NAVN)«, l3=0x31}
0x41e5…4214 Line {l1=0x2d, l2=» ELSE WRITELN(LIST,'IKKE OPRETTET');«, l3=0x2d}
0x4214…4243 Line {l1=0x2d, l2=» FOR LINES:=10 TO 12 DO WRITELN(LIST);«, l3=0x2d}
0x4243…4277 Line {l1=0x32, l2=» IF RÅVFOUND THEN WRITE(LIST,RÅVARE.BETEGN)«, l3=0x32}
0x4277…42a7 Line {l1=0x2e, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x2e}
0x42a7…42df Line {l1=0x36, l2=» WRITELN(LIST,NETTOVÆG:8:2,BRUTTOVÆ:9:2,' ':32,«, l3=0x36}
0x42df…4329 Line {l1=0x48, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):6:-2)«, l3=0x48}
0x4329…4335 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4335…434b Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x434b…4388 Line {l1=0x3b, l2=» WRITELN(LIST,' ':48,'stk/h total værkt hjvt hyld');«, l3=0x3b}
0x4388…439a Line {l1=0x10, l2=» LINES:=15 «, l3=0x10}
0x439a…43a4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x43a4…43b9 Line {l1=0x13, l2=» LINES:=LINES+2;«, l3=0x13}
0x43b9…43cd Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x43cd…43f8 Line {l1=0x29, l2=» WRITE(LIST,SEKVENSN:2,OPERANR:4,' ');«, l3=0x29}
0x43f8…4410 Line {l1=0x16, l2=» OPERA.NR:=OPERANR;«, l3=0x16}
0x4410…4453 Line {l1=0x41, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x41}
0x4453…4482 Line {l1=0x2d, l2=» IF IER=0 THEN WRITE(LIST,OPERA.BETEGN:24)«, l3=0x2d}
0x4482…44b4 Line {l1=0x30, l2=» ELSE WRITE(LIST,'IKKE OPRETTET ');«, l3=0x30}
0x44b4…44c9 Line {l1=0x13, l2=» IF RESS1>0 THEN«, l3=0x13}
0x44c9…44d4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x44d4…44eb Line {l1=0x15, l2=» RESS.NR:=RESS1;«, l3=0x15}
0x44eb…452e Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x452e…4543 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x4543…4583 Line {l1=0x3e, l2=» WRITE(LIST,RESS.AFDELNR:2,RESS.NR:5,' ',RESS.BETEGN:9)«, l3=0x3e}
0x4583…45b1 Line {l1=0x2c, l2=» ELSE WRITE(LIST,RESS1:7,' UOPRETTET') «, l3=0x2c}
0x45b1…45ba Line {l1=0x07, l2=» END«, l3=0x07}
0x45ba…45c4 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x45c4…45ec Line {l1=0x26, l2=» IF RESS1=0 THEN WRITE(LIST,' ':17)«, l3=0x26}
0x45ec…4619 Line {l1=0x2b, l2=» ELSE WRITE(LIST,' *',-RESS1:4,' ':10);«, l3=0x2b}
0x4619…462d Line {l1=0x12, l2=» IF STKH<0 THEN«, l3=0x12}
0x462d…4656 Line {l1=0x27, l2=» WRITE(LIST,-STKH/100.0:12:2,' ')«, l3=0x27}
0x4656…467a Line {l1=0x22, l2=» ELSE WRITE(LIST,STKH:5,' ':9);«, l3=0x22}
0x467a…4689 Line {l1=0x0d, l2=» HYLDE:=0;«, l3=0x0d}
0x4689…469e Line {l1=0x13, l2=» IF RESS3>0 THEN«, l3=0x13}
0x469e…46a9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x46a9…46c5 Line {l1=0x1a, l2=» WRITE(LIST,RESS3:5);«, l3=0x1a}
0x46c5…46dc Line {l1=0x15, l2=» RESS.NR:=RESS3;«, l3=0x15}
0x46dc…471f Line {l1=0x41, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x41}
0x471f…4748 Line {l1=0x27, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x27}
0x4748…4751 Line {l1=0x07, l2=» END«, l3=0x07}
0x4751…475b Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x475b…4782 Line {l1=0x25, l2=» IF RESS3=0 THEN WRITE(LIST,' ':5)«, l3=0x25}
0x4782…47a6 Line {l1=0x22, l2=» ELSE WRITE(LIST,'*',-RESS3:4);«, l3=0x22}
0x47a6…47bb Line {l1=0x13, l2=» IF RESS4>0 THEN«, l3=0x13}
0x47bb…47c6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x47c6…47e2 Line {l1=0x1a, l2=» WRITE(LIST,RESS4:5);«, l3=0x1a}
0x47e2…47f9 Line {l1=0x15, l2=» IF HYLDE=0 THEN«, l3=0x15}
0x47f9…4806 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4806…481f Line {l1=0x17, l2=» RESS.NR:=RESS4;«, l3=0x17}
0x481f…4864 Line {l1=0x43, l2=» GETREC(RESS.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(RESS.A);«, l3=0x43}
0x4864…488f Line {l1=0x29, l2=» IF IER=0 THEN HYLDE:=RESS.HYLDENR«, l3=0x29}
0x488f…489a Line {l1=0x09, l2=» END«, l3=0x09}
0x489a…48a3 Line {l1=0x07, l2=» END«, l3=0x07}
0x48a3…48ad Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x48ad…48d4 Line {l1=0x25, l2=» IF RESS4=0 THEN WRITE(LIST,' ':5)«, l3=0x25}
0x48d4…48f8 Line {l1=0x22, l2=» ELSE WRITE(LIST,'*',-RESS4:4);«, l3=0x22}
0x48f8…4923 Line {l1=0x29, l2=» IF HYLDE>0 THEN WRITELN(LIST,HYLDE:5)«, l3=0x29}
0x4923…492d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x492d…4941 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x4941…4951 Line {l1=0x0e, l2=» NEXTREC(A)«, l3=0x0e}
0x4951…4959 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4959…4996 Line {l1=0x3b, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END;«, l3=0x3b}
0x4996…49c2 Line {l1=0x2a, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A)«, l3=0x2a}
0x49c2…49c8 Line {l1=0x04, l2=» END«, l3=0x04}
0x49c8…49ce Line {l1=0x04, l2=»END;«, l3=0x04}
0x49ce…49d6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x49d6…49ea Line {l1=0x12, l2=»BEGIN (*MAINTAIN*)«, l3=0x12}
0x49ea…49fa Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x49fa…4a12 Line {l1=0x16, l2=» LÆSFELT(PICTURE(1));«, l3=0x16}
0x4a12…4a2b Line {l1=0x17, l2=» EMNE.NR:=POST.EMNENR;«, l3=0x17}
0x4a2b…4a6a Line {l1=0x3d, l2=» GETREC(EMNE.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(EMNE.A);«, l3=0x3d}
0x4a6a…4aa8 Line {l1=0x3c, l2=» IF IER=-6 THEN BEGIN NONEXIST('Emne'); EXIT(MAINTAIN) END;«, l3=0x3c}
0x4aa8…4ab6 Line {l1=0x0c, l2=» SKRIVEMNE;«, l3=0x0c}
0x4ab6…4ac0 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4ac0…4aca Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4aca…4aeb Line {l1=0x1f, l2=» WRITE('Rigtigt emne J/N ');«, l3=0x1f}
0x4aeb…4af9 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x4af9…4b07 Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x4b07…4b22 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x4b22…4b4a Line {l1=0x26, l2=» IF CH(1) IN NEJ THEN EXIT(MAINTAIN);«, l3=0x26}
0x4b4a…4b54 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x4b54…4b67 Line {l1=0x11, l2=» GOTOXY(1,19);«, l3=0x11}
0x4b67…4b9f Line {l1=0x36, l2=» WRITELN('1 Oprettelse/ændring af forkalkulation');«, l3=0x36}
0x4b9f…4bda Line {l1=0x39, l2=» WRITELN('2 Sletning af eksisterende forkalkulation');«, l3=0x39}
0x4bda…4c0b Line {l1=0x2f, l2=» WRITELN('3 Udskrivning af operationskort');«, l3=0x2f}
0x4c0b…4c3e Line {l1=0x31, l2=» WRITELN('4 Skærmudskrift af operationskort');«, l3=0x31}
0x4c3e…4c48 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4c48…4c61 Line {l1=0x17, l2=» WRITE('Vælg 1-4 ');«, l3=0x17}
0x4c61…4c6e Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x4c6e…4c91 Line {l1=0x21, l2=» IF NOT EOLN THEN READ(OPTION)«, l3=0x21}
0x4c91…4cc1 Line {l1=0x2e, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.1..4.));«, l3=0x2e}
0x4cc1…4cd3 Line {l1=0x10, l2=» CASE OPTION OF«, l3=0x10}
0x4cd3…4d10 Line {l1=0x3b, l2=» 1:REPEAT «, l3=0x3b}
0x4d10…4d1f Line {l1=0x0d, l2=» NULPOST;«, l3=0x0d}
0x4d1f…4d36 Line {l1=0x15, l2=» POST.LØNTYPE:=0;«, l3=0x15}
0x4d36…4d4b Line {l1=0x13, l2=» POST.RESS1:=0;«, l3=0x13}
0x4d4b…4d60 Line {l1=0x13, l2=» POST.RESS2:=0;«, l3=0x13}
0x4d60…4d75 Line {l1=0x13, l2=» POST.RESS3:=0;«, l3=0x13}
0x4d75…4d8a Line {l1=0x13, l2=» POST.RESS4:=0;«, l3=0x13}
0x4d8a…4d9f Line {l1=0x13, l2=» POST.RESS5:=0;«, l3=0x13}
0x4d9f…4dbb Line {l1=0x1a, l2=» POST.EMNENR:=EMNE.NR;«, l3=0x1a}
0x4dbb…4dc8 Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x4dc8…4e05 Line {l1=0x3b, l2=» CLEARSCREEN; «, l3=0x3b}
0x4e05…4e17 Line {l1=0x10, l2=» SKRIVEMNE;«, l3=0x10}
0x4e17…4e54 Line {l1=0x3b, l2=» GOTOXY(1,10); «, l3=0x3b}
0x4e54…4e70 Line {l1=0x1a, l2=» WRITELN('0 Færdig');«, l3=0x1a}
0x4e70…4ea8 Line {l1=0x36, l2=» WRITELN('1 Tilføjelse af ny operation'); «, l3=0x36}
0x4ea8…4edf Line {l1=0x35, l2=» WRITELN('2 Ændring af eksisterende operation');«, l3=0x35}
0x4edf…4f17 Line {l1=0x36, l2=» WRITELN('3 Sletning af eksisterende operation');«, l3=0x36}
0x4f17…4f54 Line {l1=0x3b, l2=» GOTOXY(1,17); «, l3=0x3b}
0x4f54…4f91 Line {l1=0x3b, l2=» WRITE('Vælg 0-3 '); «, l3=0x3b}
0x4f91…4fde Line {l1=0x4b, l2=» READLN;IF EOLN THEN OPTION:=0 ELSE READ(OPTION) «, l3=0x4b}
0x4fde…501c Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND (OPTION IN (.0..3.)); «, l3=0x3c}
0x501c…5043 Line {l1=0x25, l2=» IF OPTION=0 THEN EXIT(MAINTAIN);«, l3=0x25}
0x5043…5056 Line {l1=0x11, l2=» CLEARSCREEN;«, l3=0x11}
0x5056…5071 Line {l1=0x19, l2=» LÆSFELT(PICTURE(3));«, l3=0x19}
0x5071…508f Line {l1=0x1c, l2=» OPERA.NR:=POST.OPERANR;«, l3=0x1c}
0x508f…50d3 Line {l1=0x42, l2=» GETREC(OPERA.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(OPERA.A);«, l3=0x42}
0x50d3…5100 Line {l1=0x2b, l2=» IF IER=-6 THEN NONEXIST('Operationen')«, l3=0x2b}
0x5100…510b Line {l1=0x09, l2=» ELSE«, l3=0x09}
0x510b…5117 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x5117…513b Line {l1=0x22, l2=» OMVEMNE.EMNENR:=POST.EMNENR;«, l3=0x22}
0x513b…5161 Line {l1=0x24, l2=» OMVEMNE.OPERANR:=POST.OPERANR;«, l3=0x24}
0x5161…517b Line {l1=0x18, l2=» OMVEMNE.SEKVNR:=0;«, l3=0x18}
0x517b…51c7 Line {l1=0x4a, l2=» NEXTREC(OMVEMNE.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(OMVEMNE.A);«, l3=0x4a}
0x51c7…51fd Line {l1=0x34, l2=» IF (OPTION=1) AND (OMVEMNE.EMNENR=POST.EMNENR)«, l3=0x34}
0x51fd…5230 Line {l1=0x31, l2=» AND (OMVEMNE.OPERANR=POST.OPERANR) THEN«, l3=0x31}
0x5230…523d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x523d…5252 Line {l1=0x13, l2=» OPTION:=-1;«, l3=0x13}
0x5252…5260 Line {l1=0x0c, l2=» D23;«, l3=0x0c}
0x5260…529f Line {l1=0x3d, l2=» WRITE('Operationen er på forkalkulationen, RETURN ');«, l3=0x3d}
0x529f…52af Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x52af…52bb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x52bb…52fc Line {l1=0x3f, l2=» IF (OPTION IN (.2,3.)) AND ((OMVEMNE.EMNENR<>POST.EMNENR)«, l3=0x3f}
0x52fc…5330 Line {l1=0x32, l2=» OR (OMVEMNE.OPERANR<>POST.OPERANR)) THEN«, l3=0x32}
0x5330…533d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x533d…5352 Line {l1=0x13, l2=» OPTION:=-1;«, l3=0x13}
0x5352…5360 Line {l1=0x0c, l2=» D23;«, l3=0x0c}
0x5360…53a4 Line {l1=0x42, l2=» WRITE('Operationen er ikke på forkalkulationen, RETURN ');«, l3=0x42}
0x53a4…53b4 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x53b4…53c0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x53c0…53f9 Line {l1=0x37, l2=» IF OPTION>0 THEN BEGIN CLEARSCREEN;SKRIVEMNE END;«, l3=0x37}
0x53f9…540f Line {l1=0x14, l2=» CASE OPTION OF«, l3=0x14}
0x540f…5424 Line {l1=0x13, l2=» 1:OPRETLINIE;«, l3=0x13}
0x5424…5435 Line {l1=0x0f, l2=» 2,3:BEGIN«, l3=0x0f}
0x5435…5461 Line {l1=0x2a, l2=» POST.SEKVENSN:=OMVEMNE.SEKVNR;«, l3=0x2a}
0x5461…549c Line {l1=0x39, l2=» GETRECX(POST.A);IF IER<>0 THEN ERROR(POST.A);«, l3=0x39}
0x549c…54b5 Line {l1=0x17, l2=» SKRIVLINIE;«, l3=0x17}
0x54b5…54d3 Line {l1=0x1c, l2=» IF OPTION=2 THEN«, l3=0x1c}
0x54d3…54e7 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x54e7…54fc Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x54fc…5510 Line {l1=0x12, l2=» D23;«, l3=0x12}
0x5510…5544 Line {l1=0x32, l2=» WRITE('Feltnr 4-14, 0 for færdig ');«, l3=0x32}
0x5544…555b Line {l1=0x15, l2=» READLN;«, l3=0x15}
0x555b…5577 Line {l1=0x1a, l2=» READ(FELTNR)«, l3=0x1a}
0x5577…55b5 Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND (FELTNR IN (.0,4..14.));«, l3=0x3c}
0x55b5…55e5 Line {l1=0x2e, l2=» IF FELTNR>0 THEN ÆNDLINIE(FELTNR)«, l3=0x2e}
0x55e5…55f8 Line {l1=0x11, l2=» ELSE«, l3=0x11}
0x55f8…560c Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x560c…562c Line {l1=0x1e, l2=» PUTREC(POST.A);«, l3=0x1e}
0x562c…5659 Line {l1=0x2b, l2=» IF IER<>0 THEN ERROR(POST.A)«, l3=0x2b}
0x5659…566b Line {l1=0x10, l2=» END«, l3=0x10}
0x566b…5687 Line {l1=0x1a, l2=» UNTIL FELTNR=0«, l3=0x1a}
0x5687…5699 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x5699…56ac Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x56ac…56df Line {l1=0x31, l2=» REPEAT «, l3=0x31}
0x56df…5712 Line {l1=0x31, l2=» D23; «, l3=0x31}
0x5712…5743 Line {l1=0x2f, l2=» WRITE('Sletning rigtig, J/N ');«, l3=0x2f}
0x5743…5776 Line {l1=0x31, l2=» CH:='J'; «, l3=0x31}
0x5776…57a9 Line {l1=0x31, l2=» EDIT(CH) «, l3=0x31}
0x57a9…57cf Line {l1=0x24, l2=» UNTIL CH(1) IN JA+NEJ;«, l3=0x24}
0x57cf…57f2 Line {l1=0x21, l2=» IF CH(1) IN JA THEN«, l3=0x21}
0x57f2…5807 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x5807…5823 Line {l1=0x1a, l2=» SLETLINIE;«, l3=0x1a}
0x5823…5861 Line {l1=0x3c, l2=» PUTREC(POST.A);IF IER<>0 THEN ERROR(POST.A) «, l3=0x3c}
0x5861…5874 Line {l1=0x11, l2=» END«, l3=0x11}
0x5874…5885 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x5885…5894 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x5894…58a0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x58a0…58aa Line {l1=0x08, l2=» END«, l3=0x08}
0x58aa…58bf Line {l1=0x13, l2=» UNTIL OPTION=0;«, l3=0x13}
0x58bf…58ca Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x58ca…58f5 Line {l1=0x29, l2=» REPEAT «, l3=0x29}
0x58f5…5920 Line {l1=0x29, l2=» D23; «, l3=0x29}
0x5920…594b Line {l1=0x29, l2=» WRITE('Sletning rigtig, J/N '); «, l3=0x29}
0x594b…5976 Line {l1=0x29, l2=» CH:='J'; «, l3=0x29}
0x5976…59a1 Line {l1=0x29, l2=» EDIT(CH) «, l3=0x29}
0x59a1…59bf Line {l1=0x1c, l2=» UNTIL CH(1) IN JA+NEJ;«, l3=0x1c}
0x59bf…59da Line {l1=0x19, l2=» IF CH(1) IN JA THEN«, l3=0x19}
0x59da…59e7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x59e7…5a02 Line {l1=0x19, l2=» POST.SEKVENSN:=0;«, l3=0x19}
0x5a02…5a1c Line {l1=0x18, l2=» POST.OPERANR:=0;«, l3=0x18}
0x5a1c…5a65 Line {l1=0x47, l2=» NEXTRECX(POST.A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(POST.A);«, l3=0x47}
0x5a65…5a96 Line {l1=0x2f, l2=» WHILE POST.EMNENR=EMNE.NR DO SLETLINIE;«, l3=0x2f}
0x5a96…5adb Line {l1=0x43, l2=» PUTREC(POST.A);IF NOT (-IER IN (.0,6.)) THEN ERROR(POST.A) «, l3=0x43}
0x5adb…5ae6 Line {l1=0x09, l2=» END«, l3=0x09}
0x5ae6…5af0 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5af0…5b07 Line {l1=0x15, l2=» 3:IF RESPRINT THEN «, l3=0x15}
0x5b07…5b12 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5b12…5b29 Line {l1=0x15, l2=» OPERATIONSKORT;«, l3=0x15}
0x5b29…5b37 Line {l1=0x0c, l2=» FREEPR«, l3=0x0c}
0x5b37…5b41 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5b41…5b56 Line {l1=0x13, l2=» 4:SOPERATIONSKORT«, l3=0x13}
0x5b56…5b5d Line {l1=0x05, l2=» END«, l3=0x05}
0x5b5d…5b63 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5b63…5b6b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5b6b…5b7e Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x5b7e…5b90 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x5b90…5ba2 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x5ba2…5bb6 Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x5bb6…5bcb Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x5bcb…5bdf Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x5bdf…5bfe Line {l1=0x1d, l2=» RESSTEXT(10):='Maskine ';«, l3=0x1d}
0x5bfe…5c1d Line {l1=0x1d, l2=» RESSTEXT(11):='Operatør ';«, l3=0x1d}
0x5c1d…5c3c Line {l1=0x1d, l2=» RESSTEXT(12):='Værktøj ';«, l3=0x1d}
0x5c3c…5c5b Line {l1=0x1d, l2=» RESSTEXT(13):='Hjælpeværk';«, l3=0x1d}
0x5c5b…5c6b Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x5c6b…5c77 Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x5c77…5c8c Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x5c8c…5c97 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x5c97…5cad Line {l1=0x14, l2=» RESS.A(-4):=0; «, l3=0x14}
0x5cad…5cc0 Line {l1=0x11, l2=» KUNDE.A(-4):=0;«, l3=0x11}
0x5cc0…5cd6 Line {l1=0x14, l2=» RESSGRUP.A(-4):=0;«, l3=0x14}
0x5cd6…5cec Line {l1=0x14, l2=» EMNE.A(-4):=0; «, l3=0x14}
0x5cec…5d00 Line {l1=0x12, l2=» RÅVARE.A(-4):=0;«, l3=0x12}
0x5d00…5d16 Line {l1=0x14, l2=» MEDARB.A(-4):=0; «, l3=0x14}
0x5d16…5d2c Line {l1=0x14, l2=» OPERA.A(-4):=0; «, l3=0x14}
0x5d2c…5d42 Line {l1=0x14, l2=» LØNGRUP.A(-4):=0; «, l3=0x14}
0x5d42…5d58 Line {l1=0x14, l2=» OMVEMNE.A(-4):=0; «, l3=0x14}
0x5d58…5d6b Line {l1=0x11, l2=» POST.A(-4):=0; «, l3=0x11}
0x5d6b…5d7f Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x5d7f…5d95 Line {l1=0x14, l2=» RESS.A(-3):=4; «, l3=0x14}
0x5d95…5da8 Line {l1=0x11, l2=» KUNDE.A(-3):=1;«, l3=0x11}
0x5da8…5dbe Line {l1=0x14, l2=» RESSGRUP.A(-3):=3;«, l3=0x14}
0x5dbe…5dd4 Line {l1=0x14, l2=» EMNE.A(-3):=2; «, l3=0x14}
0x5dd4…5de8 Line {l1=0x12, l2=» RÅVARE.A(-3):=5;«, l3=0x12}
0x5de8…5dfe Line {l1=0x14, l2=» MEDARB.A(-3):=7; «, l3=0x14}
0x5dfe…5e14 Line {l1=0x14, l2=» OPERA.A(-3):=6; «, l3=0x14}
0x5e14…5e2a Line {l1=0x14, l2=» LØNGRUP.A(-3):=8; «, l3=0x14}
0x5e2a…5e41 Line {l1=0x15, l2=» OMVEMNE.A(-3):=12; «, l3=0x15}
0x5e41…5e55 Line {l1=0x12, l2=» POST.A(-3):=11; «, l3=0x12}
0x5e55…5e69 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x5e69…5e74 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x5e74…5ea2 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x5ea2…5ed7 Line {l1=0x33, l2=» IOPEN(SYSTEM.A); IF IER<>0 THEN ERROR(SYSTEM.A); «, l3=0x33}
0x5ed7…5ee8 Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x5ee8…5f1c Line {l1=0x32, l2=» GETREC(SYSTEM.A);IF IER<>0 THEN ERROR(SYSTEM.A);«, l3=0x32}
0x5f1c…5f31 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x5f31…5f68 Line {l1=0x35, l2=» IOPEN(RESS.A); IF IER<>0 THEN ERROR(RESS.A); «, l3=0x35}
0x5f68…5f9f Line {l1=0x35, l2=» IOPEN(KUNDE.A); IF IER<>0 THEN ERROR(KUNDE.A); «, l3=0x35}
0x5f9f…5fd6 Line {l1=0x35, l2=» IOPEN(RESSGRUP.A);IF IER<>0 THEN ERROR(RESSGRUP.A);«, l3=0x35}
0x5fd6…600d Line {l1=0x35, l2=» IOPEN(EMNE.A); IF IER<>0 THEN ERROR(EMNE.A); «, l3=0x35}
0x600d…6044 Line {l1=0x35, l2=» IOPEN(RÅVARE.A); IF IER<>0 THEN ERROR(RÅVARE.A); «, l3=0x35}
0x6044…607b Line {l1=0x35, l2=» IOPEN(MEDARB.A); IF IER<>0 THEN ERROR(MEDARB.A); «, l3=0x35}
0x607b…60b2 Line {l1=0x35, l2=» IOPEN(OPERA.A); IF IER<>0 THEN ERROR(OPERA.A); «, l3=0x35}
0x60b2…60e9 Line {l1=0x35, l2=» IOPEN(LØNGRUP.A); IF IER<>0 THEN ERROR(LØNGRUP.A); «, l3=0x35}
0x60e9…6120 Line {l1=0x35, l2=» IOPEN(OMVEMNE.A); IF IER<>0 THEN ERROR(OMVEMNE.A); «, l3=0x35}
0x6120…6157 Line {l1=0x35, l2=» IOPEN(POST.A); IF IER<>0 THEN ERROR(POST.A); «, l3=0x35}
0x6157…6161 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6161…6173 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x6173…6187 Line {l1=0x12, l2=» GOTOXY(10,10);«, l3=0x12}
0x6187…61c4 Line {l1=0x3b, l2=» WRITELN('G E N E R E L F O R K A L K U L A T I O N');«, l3=0x3b}
0x61c4…61d0 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x61d0…61e6 Line {l1=0x14, l2=» GOTOXY(10,12);«, l3=0x14}
0x61e6…6213 Line {l1=0x2b, l2=» WRITE('Flere forkalkulationer J/N ');«, l3=0x2b}
0x6213…6223 Line {l1=0x0e, l2=» CH:='J';«, l3=0x0e}
0x6223…6233 Line {l1=0x0e, l2=» EDIT(CH)«, l3=0x0e}
0x6233…624f Line {l1=0x1a, l2=» UNTIL CH(1) IN JA+NEJ;«, l3=0x1a}
0x624f…6272 Line {l1=0x21, l2=» IF CH(1) IN JA THEN MAINTAIN «, l3=0x21}
0x6272…6289 Line {l1=0x15, l2=» UNTIL CH(1) IN NEJ;«, l3=0x15}
0x6289…62a0 Line {l1=0x15, l2=» ICLOSE(RESS.A); «, l3=0x15}
0x62a0…62b7 Line {l1=0x15, l2=» ICLOSE(KUNDE.A); «, l3=0x15}
0x62b7…62ce Line {l1=0x15, l2=» ICLOSE(RESSGRUP.A);«, l3=0x15}
0x62ce…62e5 Line {l1=0x15, l2=» ICLOSE(EMNE.A); «, l3=0x15}
0x62e5…62fc Line {l1=0x15, l2=» ICLOSE(RÅVARE.A); «, l3=0x15}
0x62fc…6313 Line {l1=0x15, l2=» ICLOSE(MEDARB.A); «, l3=0x15}
0x6313…632a Line {l1=0x15, l2=» ICLOSE(OPERA.A); «, l3=0x15}
0x632a…6341 Line {l1=0x15, l2=» ICLOSE(LØNGRUP.A); «, l3=0x15}
0x6341…6358 Line {l1=0x15, l2=» ICLOSE(OMVEMNE.A); «, l3=0x15}
0x6358…636f Line {l1=0x15, l2=» ICLOSE(POST.A); «, l3=0x15}
0x636f…6398 Line {l1=0x27, l2=» (*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x27}
0x6398…63a8 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x63a8…63ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x63ae…63b6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x63b6…63bf Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x63bf…63c6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x63c6…63e0 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x63e0…63f8 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x63f8…640e Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x640e…641e Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x641e…6427 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6427…644a Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x644a…6456 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x6456…64a6 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x64a6…64b6 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x64b6…64f6 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x64f6…6546 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x6546…655f Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x655f…6579 Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x6579…6597 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x6597…65a8 Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x65a8…65b6 Line {l1=0x0c, l2=» FILNR:=11;«, l3=0x0c}
0x65b6…65d7 Line {l1=0x1f, l2=» DESCNAVN:='FORKPESC:P2:05:J';«, l3=0x1f}
0x65d7…65f5 Line {l1=0x1c, l2=» REGNAVN:='FORKALKULATION';«, l3=0x1c}
0x65f5…6601 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x6601…6619 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x6619…6632 Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x6632…6650 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x6650…6665 Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x6665…668d Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x668d…66af Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x66af…66e4 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x66e4…66ea Line {l1=0x04, l2=»END.«, l3=0x04}
0x66ea…6700 00 00 52 29 3b 1c 0f 28 2a 40 40 54 49 4c 50 41 53 53 45 53 2a 29 ┆ R); (*@@TILPASSES*)┆
0x6700…6720 0f 0c 20 20 46 49 4c 4e 52 3a 3d 31 31 3b 0c 1f 20 20 44 45 53 43 4e 41 56 4e 3a 3d 27 46 4f 52 ┆ FILNR:=11; DESCNAVN:='FOR┆
0x6720…6740 4b 50 45 53 43 3a 50 32 3a 30 35 3a 4a 27 3b 1f 1c 20 20 52 45 47 4e 41 56 4e 3a 3d 27 46 4f 52 ┆KPESC:P2:05:J'; REGNAVN:='FOR┆
0x6740…6760 4b 41 4c 4b 55 4c 41 54 49 4f 4e 27 3b 1c 0a 20 20 52 45 47 56 45 44 4c 3b 0a 16 20 20 55 44 46 ┆KALKULATION'; REGVEDL; UDF┆
0x6760…6780 5c 52 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 55 44 46 5c 52 54 28 50 41 46 4d ┆ØR(PAFMELD,SNYD); UDFØRT(PAFM┆
0x6780…67a0 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 ┆ELD,SNYD); IF IER<>0 THEN BAD┆
0x67a0…67c0 28 32 2c 49 45 52 29 3b 1c 13 20 20 46 4e 41 56 4e 3a 3d 27 20 20 20 20 20 20 20 27 3b 13 26 20 ┆(2,IER); FNAVN:=' '; & ┆
0x67c0…67e0 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 4e 28 49 29 3a 3d 50 41 52 4d ┆ FOR I:=1 TO 7 DO FNAVN(I):=PARM┆
0x67e0…6800 5e 28 49 29 3b 26 20 20 20 43 48 41 49 4e 28 27 48 4f 56 45 44 20 20 20 2a 31 27 2c 46 4e 41 56 ┆^(I);& CHAIN('HOVED *1',FNAV┆
0x6800…6820 4e 2c 51 55 51 29 3b 20 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 ┆N,QUQ); 3 IF IORESULT<>0 THEN W┆
0x6820…6840 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e ┆RITELN('IORESULT ',IORESULT)3 EN┆
0x6840…6860 44 2e 04 00 00 53 28 49 29 3e 31 20 54 48 45 4e 1e 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆D. S(I)>1 THEN WRITELN(┆
0x6860…6880 27 4f 56 45 52 4c 41 50 4e 49 4e 47 27 2c 49 3a 35 29 20 08 20 20 20 20 45 4c 53 45 08 34 20 20 ┆'OVERLAPNING',I:5) ELSE 4 ┆
0x6880…68a0 20 20 20 20 49 46 20 50 4f 53 54 2e 43 4f 4e 54 45 4e 54 53 28 49 29 3c 31 20 54 48 45 4e 20 57 ┆ IF POST.CONTENTS(I)<1 THEN W┆
0x68a0…68c0 53 4b 5b 52 4d 42 49 4c 4b 43 02 0a 00 1a 01 1e a2 00 17 1a 01 1e 41 54 01 20 00 00 00 00 00 00 ┆SKÆRMBILKC AT ┆
0x68c0…68e0 52 49 54 45 4c 4e 28 27 48 55 4c 27 2c 49 3a 35 29 3b 34 20 20 20 46 4f 52 20 49 3a 3d 52 45 43 ┆RITELN('HUL',I:5);4 FOR I:=REC┆
0x68e0…6900 53 49 5a 45 2b 31 20 54 4f 20 4d 41 58 50 4f 53 54 20 44 4f 20 37 20 20 20 20 49 46 20 50 4f 53 ┆SIZE+1 TO MAXPOST DO 7 IF POS┆
0x6900…6920 54 2e 43 4f 4e 54 45 4e 54 53 28 49 29 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 46 ┆T.CONTENTS(I)<>0 THEN WRITELN('F┆
0x6920…6940 4f 52 42 49 45 52 27 2c 49 3a 35 29 3b 37 3a 20 20 49 46 20 4f 55 54 4f 46 52 41 4e 47 45 3e 30 ┆ORBIER',I:5);7: IF OUTOFRANGE>0┆
0x6940…6960 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 4f 55 54 4f 46 52 41 4e 47 45 27 2c 4f 55 54 4f 46 ┆ THEN WRITELN('OUTOFRANGE',OUTOF┆
0x6960…6980 52 41 4e 47 45 3a 35 29 3b 3a 40 20 20 49 46 20 46 4b 45 59 53 3e 30 20 54 48 45 4e 20 57 52 49 ┆RANGE:5);:@ IF FKEYS>0 THEN WRI┆
0x6980…69a0 54 45 4c 4e 28 27 49 4b 4b 45 2d 49 4d 50 4c 45 4d 45 4e 54 45 52 45 44 45 20 4e 5c 47 4c 45 52 ┆TELN('IKKE-IMPLEMENTEREDE NØGLER┆
0x69a0…69c0 27 2c 46 4b 45 59 53 3a 35 29 3b 40 1e 20 20 57 52 49 54 45 4c 4e 28 27 4e 7c 67 6c 65 62 65 73 ┆',FKEYS:5);@ WRITELN('Nøglebes┆
0x69c0…69e0 6b 72 69 76 65 6c 73 65 27 29 3b 1e 18 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4b 45 59 46 4c ┆krivelse'); FOR I:=1 TO KEYFL┆
0x69e0…6a00 44 53 20 44 4f 18 3d 20 20 20 20 57 52 49 54 45 4c 4e 28 4b 45 59 44 45 53 43 28 49 2c 31 29 3a ┆DS DO = WRITELN(KEYDESC(I,1):┆
0x6a00…6a20 31 30 2c 4b 45 59 44 45 53 43 28 49 2c 32 29 3a 31 30 2c 4b 45 59 44 45 53 43 28 49 2c 33 29 3a ┆10,KEYDESC(I,2):10,KEYDESC(I,3):┆
0x6a20…6a40 31 30 29 3b 3d 08 20 20 52 45 50 45 41 54 08 11 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 32 29 ┆10);= REPEAT GOTOXY(1,22)┆
0x6a40…6a60 3b 11 2a 20 20 20 20 57 52 49 54 45 28 27 46 61 6c 64 65 6e 64 65 20 6f 72 64 65 6e 20 66 6f 72 ┆; * WRITE('Faldende orden for┆
0x6a60…6a80 20 6e 7c 67 6c 65 20 6e 72 20 27 29 3b 2a 0b 20 20 20 20 52 45 41 44 4c 4e 3b 0b 23 20 20 20 20 ┆ nøgle nr ');* READLN; # ┆
0x6a80…6aa0 49 46 20 45 4f 4c 4e 20 54 48 45 4e 20 49 3a 3d 30 20 45 4c 53 45 20 52 45 41 44 28 49 29 3b 23 ┆IF EOLN THEN I:=0 ELSE READ(I);#┆
0x6aa0…6ac0 3e 20 20 20 20 49 46 20 28 49 3e 30 29 20 41 4e 44 20 28 49 3c 3d 4b 45 59 46 4c 44 53 29 20 54 ┆> IF (I>0) AND (I<=KEYFLDS) T┆
0x6ac0…6ae0 48 45 4e 20 4b 45 59 44 45 53 43 28 49 2c 33 29 3a 3d 2d 4b 45 59 44 45 53 43 28 49 2c 33 29 3e ┆HEN KEYDESC(I,3):=-KEYDESC(I,3)>┆
0x6ae0…6b00 11 20 20 55 4e 54 49 4c 20 49 3d 30 3b 49 3a 3d 31 3b 11 0f 20 20 47 4f 54 4f 58 59 28 31 2c 32 ┆ UNTIL I=0;I:=1; GOTOXY(1,2┆
0x6b00…6b20 33 29 3b 0f 25 20 20 57 52 49 54 45 4c 4e 28 27 53 6b 61 6c 20 66 69 6c 65 6e 20 6f 70 72 65 74 ┆3); % WRITELN('Skal filen opret┆
0x6b20…6b40 74 65 73 20 4a 2f 4e 27 29 3b 25 10 20 20 47 4f 54 4f 58 59 28 32 37 2c 32 33 29 3b 10 0a 20 20 ┆tes J/N');% GOTOXY(27,23); ┆
0x6b40…6b60 43 48 3a 3d 27 4e 27 3b 0a 0b 20 20 45 44 49 54 28 43 48 29 3b 0b 10 20 20 49 46 20 43 48 3d 27 ┆CH:='N'; EDIT(CH); IF CH='┆
0x6b60…6b80 4a 27 20 54 48 45 4e 10 07 20 20 42 45 47 49 4e 07 48 20 20 20 20 43 52 45 41 54 45 28 46 49 4c ┆J' THEN BEGIN H CREATE(FIL┆
0x6b80…6ba0 4e 41 56 4e 2c 4e 52 45 43 2c 52 45 43 53 49 5a 45 2c 4b 45 59 46 4c 44 53 2c 4b 45 59 44 45 53 ┆NAVN,NREC,RECSIZE,KEYFLDS,KEYDES┆
0x6ba0…6bc0 43 2c 49 53 46 46 49 4c 45 53 5e 2e 5a 4f 4e 45 53 49 5a 45 2c 49 45 52 29 3b 48 2e 20 20 20 20 ┆C,ISFFILES^.ZONESIZE,IER);H. ┆
0x6bc0…6be0 46 4e 41 56 4e 3a 3d 43 4f 4e 43 41 54 28 43 4f 50 59 28 46 49 4c 4e 41 56 4e 2c 31 2c 34 29 2c ┆FNAVN:=CONCAT(COPY(FILNAVN,1,4),┆
0x6be0…6c00 27 44 45 53 43 3a 50 27 29 3b 2e 45 20 20 20 20 46 4e 41 56 4e 3a 3d 43 4f 4e 43 41 54 28 46 4e ┆'DESC:P');.E FNAVN:=CONCAT(FN┆
0x6c00…6c20 41 56 4e 2c 43 4f 50 59 28 46 49 4c 4e 41 56 4e 2c 50 4f 53 28 27 3a 50 27 2c 46 49 4c 4e 41 56 ┆AVN,COPY(FILNAVN,POS(':P',FILNAV┆
0x6c20…6c40 4e 29 2b 32 2c 31 29 2c 27 3a 30 35 3a 4a 27 29 3b 45 1a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆N)+2,1),':05:J');E WRITELN('┆
0x6c40…6c60 49 45 52 20 3a 20 27 2c 49 45 52 29 3b 1a 1f 20 20 20 20 49 53 46 46 49 4c 45 53 5e 2e 46 49 4c ┆IER : ',IER); ISFFILES^.FIL┆
0x6c60…6c80 4e 41 56 4e 3a 3d 46 49 4c 4e 41 56 4e 3b 1f 1e 20 20 20 20 49 53 46 46 49 4c 45 53 5e 2e 44 45 ┆NAVN:=FILNAVN; ISFFILES^.DE┆
0x6c80…6ca0 53 43 4e 41 56 4e 3a 3d 46 4e 41 56 4e 3b 1e 20 20 20 20 20 53 45 45 4b 28 49 53 46 46 49 4c 63 ┆SCNAVN:=FNAVN; SEEK(ISFFILc┆