|
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: 26208 (0x6660)
Types: TextFile
Notes: Mikados_K
Names: »NBTORDRE.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTORDRE.K«
PROGRAM ORDREINDTASTNING;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
VAR PARM:^PARMARRAY;
QUQ:^INTEGER;
I:INTEGER;
FNAVN:STRING;
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=26;
MVINDUEZ=292;
MMAXMÅLZ=259;
MGLASZ=245;
MFARVEZ=245;
MOLINIEZ=344;
MORDREHZ=331;
MKOMBIZ=241;
MSYSZ=243;
(*$IISFHEAD*)
VINDUEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MVINDUEZ) OF INTEGER;
END;
MAXMÅLZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MMAXMÅLZ) OF INTEGER;
END;
GLASZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MGLASZ) OF INTEGER;
END;
OLINIEZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MOLINIEZ) OF INTEGER;
END;
HOVEDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MORDREHZ) OF INTEGER;
END;
KOMBIZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MKOMBIZ) OF INTEGER;
END;
SYSZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..MSYSZ) OF INTEGER;
END;
ARAR=PACKED ARRAY(-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
AR13=ARRAY(1..3) OF INTEGER;
AR14=ARRAY(1..4) OF INTEGER;
AR15=ARRAY(1..5) OF INTEGER;
AR19=ARRAY(1..9) OF INTEGER;
DOBBINT=ARRAY(1..2) OF INTEGER;
TEK=PACKED ARRAY(1..30) OF CHAR;
VINDUEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*NR,
KARMNR,
MAXMÅL:INTEGER;
RAMME:ARRAY(1..16) OF INTEGER;
BESLAG:AR14;
BREDDE,
HØJDE:AR13;*)
C:ARRAY (1..29) OF INTEGER;
TEKST:TEK
END;
MAXMÅLPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*AREAL,
BHFORHOL:REAL;
NR,
BREDDE,
HØJDE:INTEGER;*)
C:ARRAY (1..11) OF INTEGER;
TEKST:TEK
END;
GLASPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*NR,
KODE:INTEGER;*)
C:ARRAY (1..2) OF INTEGER;
TEKST:TEK
END;
OLINIEPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*KOSTPRIS,
SALGPRIS,
RABAT:REAL;
ORDRENR,
POSITION,
ANTAL,
VINDUENR,
FARVE1,
FARVE2,
RAMMENR1,
GLASART1,
RAMMENR2,
GLASART2,
RAMMENR3,
GLASART3,
BLAMBRED,
BLAMHØJD:INTEGER;
BREDDE:AR13;
HØJDE:AR13;
HÆNGSEL:AR14;
MONTER:INTEGER;
STATUS:INTEGER;*)
C:ARRAY (1..38) OF INTEGER
END;
HOVEDPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*NR:INTEGER;
DATO:DOBBINT;
TILBUDNR:INTEGER;
TLBUDDATO:DOBBINT;
SAGSNR:INTEGER;
KUNDENR,
POSTNR:DOBBINT;
LEVTERM,
STATUS:INTEGER;
KUNDENAVN,
GADE,
BY,
KONTAKT:TEK;
TELEFON:PACKED ARRAY(1..10) OF CHAR;
LEVSTED:TEK;
INITIAL:PACKED ARRAY(1..4) OF CHAR;*)
C:ARRAY (1..95) OF INTEGER
END;
KOMBIPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*NR,
KARMPROFIL,
POST1,
POST2,
RAMMEPROFIL,
F3PROFIL:INTEGER;*)
C:ARRAY (1..6) OF INTEGER
END;
SYSPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
(*NR,
ORDRENR,
SDAT1,SDAT2:INTEGER;*)
C:ARRAY (1..4) OF INTEGER
END;
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(31);
INDEKS:INTEGER;
LÆNGDE:INTEGER;
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;
FELTFIL=FILE OF FELTBESKRIVELSE;
VAR MAXF,VINF,GLAF,FARF,OLIF,HOVF,KOMF,SYSF:ISF;
VINZ:VINDUEZONE;
GLAZ,FARZ:GLASZONE;
OLIZ:OLINIEZONE;
HOVZ:HOVEDZONE;
KOMZ:KOMBIZONE;
SYSZ:SYSZONE;
MAXZ:MAXMÅLZONE;
MAXMÅL:MAXMÅLPOST;
VINDUE:VINDUEPOST;
GLAS,FARVE:GLASPOST;
OLINIE:OLINIEPOST;
HOVED:HOVEDPOST;
KOMBI:KOMBIPOST;
SYSTEM:SYSPOST;
FELT:NFELT;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;
CH:STRING(1);
LINE:STRING;
RESULT:REAL;
HOVEDE:BOOLEAN;
(*$P*)
SEGMENT PROCEDURE LÆSDESC(DESCNR:INTEGER);
VAR DESCNAVN:STRING;
FFIL:FELTFIL;
BEGIN
IF DESCNR=1 THEN
DESCNAVN:='OINDDESC:P2:0:J'
ELSE
DESCNAVN:='OLITDESC:P2:0:J';
REWRITE(FFIL,DESCNAVN);
GET(FFIL);
I:=0;
WHILE FFIL^.INDPOS.X>0 DO
BEGIN
I:=I+1;
CASE FFIL^.FELTTYPE OF
REEL:NEW(PICTURE(I),FELTDESC,REEL);
HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)
END;
FELT:=PICTURE(I);
WITH PICTURE(I)^ DO
BEGIN
DESCTYPE:=FELTDESC;
FELTNAVN:=FFIL^.FELTNAVN;
INDPOS.X:=FFIL^.INDPOS.X;
INDPOS.Y:=FFIL^.INDPOS.Y;
UDPOS.X:=FFIL^.UDPOS.X;
UDPOS.Y:=FFIL^.UDPOS.Y;
KIKKENIVEAU:=FFIL^.KIKKENIVEAU;
ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;
LEDETEKST:=FFIL^.LEDETEKST;
FØLGETEKST:=FFIL^.FØLGETEKST;
EDITERING:=FFIL^.EDITERING;
FELTTYPE:=FFIL^.FELTTYPE;
INDEKS:=FFIL^.INDEKS;
LÆNGDE:=FFIL^.LÆNGDE;
FORAN0:=FFIL^.FORAN0;
IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;
WHILE FFIL^.NÆSTEVAL<>NIL DO
BEGIN
GET(FFIL);
WITH FELT^ DO
CASE FFIL^.VALIDITETSTYPE OF
HINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,HINTERVAL);
NÆSTEVAL^.MIN:=FFIL^.MIN;
NÆSTEVAL^.MAX:=FFIL^.MAX
END;
DINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,DINTERVAL);
NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;
NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2
END;
RINTERVAL:BEGIN
NEW(NÆSTEVAL,VALIDESC,RINTERVAL);
NÆSTEVAL^.RMIN:=FFIL^.RMIN;
NÆSTEVAL^.RMAX:=FFIL^.RMAX
END;
DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)
END;
FELT:=FELT^.NÆSTEVAL;
FELT^.DESCTYPE:=VALIDESC;
FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE
END;
FELT^.NÆSTEVAL:=NIL
END;
GET(FFIL)
END;
CLOSE(FFIL);
ANTALFELTER:=I
END;
(*$P*)
(*$L-*)
(*$R-,IFORWARD*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$L+*)
SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);
BEGIN
WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);
ICLOSE(HOVZ.H,HOVF);
ICLOSE(OLIZ.H,OLIF);
ICLOSE(SYSZ.H,SYSF);
EXIT(REGVEDL)
END;
SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR(FIL);
CLEARSCREEN
END;
(*$P*)
SEGMENT PROCEDURE INIT;
BEGIN
CLEARSCREEN;
HOVZ.H.FILENAME:='ORDREHOV';
FNAVN:='ORDREHOV:P2:0000:I';
REWRITE(HOVF,FNAVN);
IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);
OLIZ.H.FILENAME:='OLINIE ';
FNAVN:='OLINIE:P2:0000:I';
REWRITE(OLIF,FNAVN);
IOPEN(OLIZ.H,OLIF,SKRIV);IF IER<>0 THEN OFEJL(OLIZ.H.FILENAME);
SYSZ.H.FILENAME:='SYSREG ';
FNAVN:='SYSREG:P2:0000:I';
REWRITE(SYSF,FNAVN);
IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);
VINZ.H.FILENAME:='VINDUE ';
FNAVN:='VINDUE:P2:0000:I';
REWRITE(VINF,FNAVN);
IOPEN(VINZ.H,VINF,LÆS);IF IER<>0 THEN OFEJL(VINZ.H.FILENAME);
GLAZ.H.FILENAME:='GLAS ';
FNAVN:='GLAS:P2:0000:I';
REWRITE(GLAF,FNAVN);
IOPEN(GLAZ.H,GLAF,LÆS);IF IER<>0 THEN OFEJL(GLAZ.H.FILENAME);
FARZ.H.FILENAME:='FARVE ';
FNAVN:='FARVE:P2:0000:I';
REWRITE(FARF,FNAVN);
IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);
KOMZ.H.FILENAME:='KOMBINAT';
FNAVN:='KOMBINAT:P2:0000:I';
REWRITE(KOMF,FNAVN);
IOPEN(KOMZ.H,KOMF,LÆS);IF IER<>0 THEN OFEJL(KOMZ.H.FILENAME);
MAXZ.H.FILENAME:='MAXMÅL ';
FNAVN:='MAXMÅL:P2:0000:I';
REWRITE(MAXF,FNAVN);
IOPEN(MAXZ.H,MAXF,LÆS);IF IER<>0 THEN OFEJL(MAXZ.H.FILENAME)
END;
(*$L-*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$L+*)
(*$P*)
PROCEDURE MOVETOLINE(VAR F:NFELT;VAR A:AR;VAR AA:ARAR;VAR AAA:RAR);
VAR CH:STRING(1);
TAL,DECS,I:INTEGER;
RESULT,DM,DD:REAL;
BEGIN
CH:=' ';
CASE F^.FELTTYPE OF
HELTAL:BEGIN
LINE:='';
TAL:=ABS(A(F^.INDEKS));
REPEAT
CH(1):=CHR(TAL MOD 10+48);
LINE:=CONCAT(CH,LINE);
TAL:=TAL DIV 10
UNTIL TAL=0;
WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);
IF A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)
END;
DOBBTAL:BEGIN
LINE:='';
RESULT:=ABS(A(F^.INDEKS)*10000.0+A(F^.INDEKS+1));
DM:=100000000.0;
REPEAT
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10
UNTIL (I>48) OR (DM<1.0);
REPEAT
CH(1):=CHR(I);
LINE:=CONCAT(LINE,CH);
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
UNTIL DM<0.09;
WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);
IF A(F^.INDEKS)*10000.0+A(F^.INDEKS+1)<0.0 THEN
LINE:=CONCAT('-',LINE)
END;
TEKST:BEGIN
LINE:='';
FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO
BEGIN
CH(1):=AA(I);
LINE:=CONCAT(LINE,CH)
END
END;
REEL:BEGIN
RESULT:=ABS(AAA(F^.INDEKS));
DECS:=F^.DEC;
IF DECS=0 THEN
DD:=0.0
ELSE
BEGIN
DD:=0.1;
FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END
END;
LINE:='';
IF F^.FORAN0=0 THEN
BEGIN
DM:=100000000000.0;
REPEAT
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
UNTIL (I>48) OR (DM<1.0) OR (DM=DD)
END
ELSE
BEGIN
DM:=1.0;
FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
END;
REPEAT
CH(1):=CHR(I);
LINE:=CONCAT(LINE,CH);
IF DM=DD THEN LINE:=CONCAT(LINE,'.');
I:=TRUNC(RESULT/DM)+48;
RESULT:=RESULT-DM*(I-48);
DM:=DM/10.0
UNTIL DM<0.09;
IF AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)
END
END
END;
(*$P*)
PROCEDURE SKRIVFELT(VAR F:NFELT);
BEGIN
GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);
WRITE(F^.LEDETEKST,' ');
IF HOVEDE THEN
MOVETOLINE(F,HOVED.A,HOVED.AA,HOVED.AAA)
ELSE
MOVETOLINE(F,OLINIE.A,OLINIE.AA,OLINIE.AAA);
WRITELN(LINE);
END;
PROCEDURE D23;
BEGIN
GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)
END;
(*$P*)
PROCEDURE LÆSFELT(VAR F:NFELT);
VAR I,TAL,TAL1:INTEGER;
VAL:NFELT;
BUMMED:BOOLEAN;
(*$P*)
PROCEDURE LÆSLINIE;
VAR OK:BOOLEAN;
DECS,I,FORTEGN:INTEGER;
DM:REAL;
BEGIN
REPEAT
OK:=FALSE;
RESULT:=0.0;
TAL:=0;
TAL1:=0;
GOTOXY(1,F^.INDPOS.Y);
WRITELN(' ':79);
GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);
WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);
GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);
LINE:='0';
EDIT(LINE:F^.LÆNGDE);
WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);
CASE F^.FELTTYPE OF
TEKST:
IF LENGTH(LINE)<=F^.LÆNGDE THEN
BEGIN
OK:=TRUE;
WHILE LENGTH(LINE)<F^.LÆNGDE DO
IF F^.FORAN0=0 THEN
LINE:=CONCAT(LINE,' ')
ELSE
LINE:=CONCAT(' ',LINE)
END;
HELTAL,DOBBTAL:
IF LENGTH(LINE)>0 THEN
BEGIN
I:=0;
FORTEGN:=1;
IF LINE(1)='-' THEN
BEGIN
FORTEGN:=-1;
I:=1
END;
WHILE LENGTH(LINE)>I DO
BEGIN
OK:=TRUE;
I:=I+1;
IF NOT (LINE(I) IN (.'0'..'9'.)) THEN
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END;
RESULT:=10*RESULT+ORD(LINE(I))-48
END;
RESULT:=RESULT*FORTEGN;
IF OK THEN
CASE F^.FELTTYPE OF
HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;
DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN
BEGIN
TAL:=TRUNC(RESULT/10000.0);
TAL1:=TRUNC(RESULT-10000.0*TAL)
END
ELSE OK:=FALSE
END
END ELSE OK:=TRUE;
REEL:
IF LENGTH(LINE)>0 THEN
BEGIN
I:=0;
FORTEGN:=1;
DECS:=-1;
IF LINE(1)='-' THEN
BEGIN
FORTEGN:=-1;
I:=1
END;
WHILE (LENGTH(LINE)>I) AND (DECS<0) DO
BEGIN
OK:=TRUE;
I:=I+1;
IF LINE(I) IN (.'0'..'9'.) THEN
RESULT:=10*RESULT+ORD(LINE(I))-48
ELSE
IF (LINE(I)='.') OR (LINE(I)=',') THEN
DECS:=0
ELSE
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END
END;
DM:=1.0;
WHILE LENGTH(LINE)>I DO
BEGIN
I:=I+1;
DM:=DM/10.0;
IF LINE(I) IN (.'0'..'9'.) THEN
BEGIN
RESULT:=RESULT+DM*(ORD(LINE(I))-48);
DECS:=DECS+1
END
ELSE
BEGIN
OK:=FALSE;
I:=LENGTH(LINE)
END
END;
RESULT:=FORTEGN*RESULT;
IF DECS>F^.DEC THEN OK:=FALSE
END
ELSE OK:=TRUE
END
UNTIL OK
END;
(*$P*)
PROCEDURE CHECKVAL;
VAR I,DAT0,MÅNED,ÅR:INTEGER;
BEGIN
CASE VAL^.VALIDITETSTYPE OF
HINTERVAL:
BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));
DINTERVAL:
BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR
(TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));
RINTERVAL:
BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));
DATO:
IF LENGTH(LINE)=6 THEN
BEGIN
ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;
MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;
DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;
IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;
IF NOT BUMMED THEN
CASE MÅNED OF
4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;
2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE;
END
END;
(*$P*)
(*PROCEDURE LÆSFELT*)
BEGIN
REPEAT
BUMMED:=FALSE;
VAL:=F^.NÆSTEVAL;
LÆSLINIE;
IF HOVEDE THEN
BEGIN
IF (RESULT=0.0) AND ((FELTNR=2) OR (FELTNR=4)) THEN
BEGIN
VAL:=NIL;
TAL:=SYSTEM.A(3);
TAL1:=SYSTEM.A(4)
END
END
ELSE
BEGIN
IF (FELTNR=2) AND (TAL=0) THEN VAL:=NIL
END;
WHILE (VAL<>NIL) AND (NOT BUMMED) DO
BEGIN
CHECKVAL;
VAL:=VAL^.NÆSTEVAL
END;
IF (NOT BUMMED) AND (NOT HOVEDE) THEN
BEGIN
D23;
CASE FELTNR OF
4,5:IF TAL=0 THEN TAL:=OLINIE.A(17) ELSE
BEGIN
FARVE.A(1):=TAL;
GETREC(FARZ.H,FARF,FARVE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(FARZ.H.FILENAME);
IF IER=-6 THEN
BEGIN
BUMMED:=TRUE;
WRITE('Farve findes ikke, RETURN');READLN
END
ELSE
BEGIN
CH:='J';
WRITE(FARVE.TEKST,' Rigtig farve J/N ');EDIT(CH);
IF CH<>'J' THEN BUMMED:=TRUE
END
END;
7,9,10:IF TAL>0 THEN
BEGIN
GLAS.A(1):=TAL;
GETREC(GLAZ.H,GLAF,GLAS.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(GLAZ.H.FILENAME);
IF IER=-6 THEN
BEGIN
BUMMED:=TRUE;
WRITE('Glas findes ikke, RETURN');READLN
END
ELSE
BEGIN
CH:='J';
WRITE(GLAS.TEKST,' Rigtig glas J/N ');EDIT(CH);
IF CH<>'J' THEN BUMMED:=TRUE
END
END;
6,8:IF TAL>0 THEN BUMMED:=(VINDUE.A(TAL+3)=0);
2:IF TAL>0 THEN
BEGIN
VINDUE.A(1):=TAL MOD 1000;
GETREC(VINZ.H,VINF,VINDUE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(VINZ.H.FILENAME);
IF IER=-6 THEN
BEGIN
WRITE('Vindue/dør findes ikke, RETURN');
READLN;BUMMED:=TRUE
END
ELSE
BEGIN
CH:='J';
WRITE(VINDUE.TEKST,' Rigtigt vindue J/N ');EDIT(CH);
IF CH='J' THEN
BEGIN
KOMBI.A(1):=TAL DIV 1000;
GETREC(KOMZ.H,KOMF,KOMBI.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(KOMZ.H.FILENAME);
D23;
IF IER=-6 THEN
BEGIN
WRITE('Profilkombinationen findes ikke, RETURN');
READLN;BUMMED:=TRUE
END
ELSE
BEGIN
WRITE(KOMBI.A(2):5,KOMBI.A(3):5,KOMBI.A(4):5,KOMBI.A(5):5,
KOMBI.A(6):5,' Rigtig kombination J/N ');EDIT(CH);
IF CH<>'J' THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE
END
END
END
END
UNTIL NOT BUMMED;
IF HOVEDE THEN
CASE FELTNR OF
1,3,5,14,16: HOVED.A(F^.INDEKS):=TAL;
2,4,6,9:BEGIN
HOVED.A(F^.INDEKS):=TAL;
HOVED.A(F^.INDEKS+1):=TAL1
END;
7,8,10,11,12,13,15:FOR I:=1 TO F^.LÆNGDE DO
HOVED.AA(I+F^.INDEKS-1):=LINE(I)
END
ELSE
IF FELTNR IN (.23..24.) THEN
OLINIE.AAA(F^.INDEKS):=RESULT
ELSE OLINIE.A(F^.INDEKS):=TAL
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR POSNR:INTEGER;
PROCEDURE Q(I:INTEGER);
BEGIN
FELTNR:=I;
LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR))
END;
(*$P*)
PROCEDURE OLINPROC;
PROCEDURE CHECKMAXMÅL;
VAR R:REAL;
BEGIN
CH:='J';
R:=OLINIE.A(25)/1000.0*OLINIE.A(26)/1000.0;
IF R>MAXMÅL.AAA(1) THEN
BEGIN
D23;
WRITE('Max-areal overskredet OK J/N ');EDIT(CH);
IF CH<>'J' THEN EXIT(CHECKMAXMÅL)
END;
R:=1.0*OLINIE.A(25)/OLINIE.A(26);
IF R>MAXMÅL.AAA(2) THEN
BEGIN
D23;
WRITE('Max-bredde/højde-forhold overskredet OK J/N ');EDIT(CH);
IF CH<>'J' THEN EXIT(CHECKMAXMÅL)
END;
IF OLINIE.A(25)>MAXMÅL.A(10) THEN
BEGIN
D23;
WRITE('Max-bredde overskredet OK J/N ');EDIT(CH);
IF CH<>'J' THEN EXIT(CHECKMAXMÅL)
END;
IF OLINIE.A(26)>MAXMÅL.A(11) THEN
BEGIN
D23;
WRITE('Max-højde overskredet OK J/N ');EDIT(CH);
IF CH<>'J' THEN EXIT(CHECKMAXMÅL)
END
END;
(*$P*)
BEGIN (*PROCEDURE OLINPROC*)
FELTNR:=2;
CLEARSCREEN;
LÆSFELT(PICTURE(FELTNR));
WHILE OLINIE.A(16)>0 DO
BEGIN
SKRIVFELT(PICTURE(FELTNR));
OLINIE.A(14):=POSNR;
POSNR:=POSNR+1;
Q(1);Q(4);Q(5);
FOR I:=19 TO 24 DO OLINIE.A(I):=0;
Q(10);
IF OLINIE.A(24)=0 THEN
BEGIN
Q(6);
IF OLINIE.A(19)>0 THEN
BEGIN
Q(7);Q(8);
IF OLINIE.A(20)>0 THEN Q(9)
END;
REPEAT Q(10) UNTIL OLINIE.A(24)>0
END;
MAXMÅL.A(9):=VINDUE.A(3);
GETREC(MAXZ.H,MAXF,MAXMÅL.A);IF IER<>0 THEN ERROR(MAXZ.H.FILENAME);
REPEAT
Q(11);Q(12);
CHECKMAXMÅL
UNTIL CH='J';
FOR I:=27 TO 36 DO OLINIE.A(I):=0;
FOR I:=24 TO 26 DO
IF VINDUE.A(I)=1 THEN Q(13+2*(I-24)) ELSE I:=27;
FOR I:=27 TO 29 DO
IF VINDUE.A(I)=1 THEN Q(14+2*(I-27)) ELSE I:=30;
FOR I:=20 TO 23 DO
IF VINDUE.A(I)=1 THEN Q(I-1);
Q(3);Q(23);Q(24);
OLINIE.A(13):=HOVED.A(1);
OLINIE.A(38):=HOVED.A(13);
OLINIE.AAA(1):=0.0;
D23;CH:='J';
WRITE('Ordrelinie OK J/N ');EDIT(CH);
IF CH='J' THEN
BEGIN
INSERT(OLIZ.H,OLIF,OLINIE.A);
IF IER<>0 THEN ERROR(OLIZ.H.FILENAME)
END
ELSE POSNR:=POSNR-1;
FELTNR:=2;
CLEARSCREEN;
LÆSFELT(PICTURE(FELTNR))
END
END;
(*$P*)
BEGIN (*PROCEDURE MAINTAIN*)
(*$XT*) WRITELN('MEMAVAIL1 ',MEMAVAIL); (*$X-*)
MARK(QUQ);
LÆSDESC(1);
(*$XT*) WRITELN('MEMAVAIL2 ',MEMAVAIL); (*$X-*)
HOVEDE:=TRUE;
CLEARSCREEN;
FELTNR:=16;
LÆSFELT(PICTURE(FELTNR));
IF HOVED.A(13)=1 THEN
BEGIN (*ORDRE*)
FELTNR:=1;
LÆSFELT(PICTURE(FELTNR));
IF HOVED.A(1)>0 THEN
BEGIN
GETREC(HOVZ.H,HOVF,HOVED.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(HOVZ.H.FILENAME);
IF (IER=0) AND (HOVED.A(13)=0) THEN
BEGIN (*ORDREN VAR OPRETTET*)
CLEARSCREEN;
HOVED.A(13):=1;
FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));
REPEAT
CH:='J';
D23;
WRITE('Rigtig ordre J/N ');
EDIT(CH)
UNTIL (CH='J') OR (CH='N');
IF CH='J' THEN
BEGIN
Q(2);
REPEAT
REPEAT
D23;
WRITE('Ændring af feltnr (0 for færdig) ');
READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);
IF FELTNR IN (.2..15.) THEN Q(FELTNR)
UNTIL FELTNR=0;
PUTREC(HOVZ.H,HOVF,HOVED.A);
IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);
OLINIE.A(13):=HOVED.A(1);OLINIE.A(14):=0;
NEXTREC(OLIZ.H,OLIF,OLINIE.A);
IF IER<>-1 THEN ERROR(OLIZ.H.FILENAME); IER:=0;
WHILE (IER=0) AND (OLINIE.A(13)=HOVED.A(1)) DO
BEGIN
OLINIE.A(38):=1;
PUTREC(OLIZ.H,OLIF,OLINIE.A);
IF IER<>0 THEN ERROR(OLIZ.H.FILENAME);
NEXTREC(OLIZ.H,OLIF,OLINIE.A)
END;
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(OLIZ.H.FILENAME)
END
END
ELSE
BEGIN
D23;
IF IER=-6 THEN
WRITE('Tilbuddet findes ikke, RETURN')
ELSE
WRITE('Ordren er allerede inde, RETURN');
READLN
END;
END
END;
IF (HOVED.A(13)=0) OR (HOVED.A(1)=0) THEN
BEGIN
HOVED.A(1):= SYSTEM.A(2);
SYSTEM.A(2):=SYSTEM.A(2)+1;
IF HOVED.A(13)=1 THEN
BEGIN
FELTNR:=2;LÆSFELT(PICTURE(FELTNR));
HOVED.A(5):=0;
HOVED.A(6):=0
END
ELSE
BEGIN
FELTNR:=4;LÆSFELT(PICTURE(FELTNR));
HOVED.A(2):=0;
HOVED.A(3):=0
END;
SKRIVFELT(PICTURE(FELTNR));
Q(3);
FOR FELTNR:=5 TO 15 DO Q(FELTNR);
CLEARSCREEN;
FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));
REPEAT
REPEAT
D23;
WRITE('Ændring af feltnr (0 for færdig) ');
READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);
IF FELTNR IN (.2..15.) THEN Q(FELTNR)
UNTIL FELTNR=0;
INSERT(HOVZ.H,HOVF,HOVED.A);
IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);
RELEASE(QUQ);
(*$XT*) WRITELN('MEMAVAIL3 ',MEMAVAIL); (*$X-*)
LÆSDESC(2);
(*$XT*) WRITELN('MEMAVAIL4 ',MEMAVAIL); (*$X-*)
HOVEDE:=FALSE;
POSNR:=1;
OLINPROC
END;
(*$XT*) WRITELN('MEMAVAIL5 ',MEMAVAIL); (*$X-*)
RELEASE(QUQ);
(*$XT*) WRITELN('MEMAVAIL6 ',MEMAVAIL); (*$X-*)
END;
(*$P*)
BEGIN
INIT;
SYSTEM.A(1):=1;
GETREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);
REPEAT
CLEARSCREEN;
CH:='J';
GOTOXY(1,23);
WRITE('Flere tilbud/ordrer J/N ');
EDIT(CH);
IF CH='J' THEN MAINTAIN
UNTIL CH='N';
PUTREC(SYSZ.H,SYSF,SYSTEM.A);
IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);
ICLOSE(HOVZ.H,HOVF);
ICLOSE(OLIZ.H,OLIF);
ICLOSE(SYSZ.H,SYSF);
WRITELN('ICLOSE ',IER)
END;
(*$P*)
BEGIN
I:=ORD(PARM^(1))-48;
REGVEDL;
FNAVN:=' ';
FNAVN(1):=PARM^(1);
CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…001b Line {l1=0x19, l2=»PROGRAM ORDREINDTASTNING;«, l3=0x19}
0x001b…0021 Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x0021…004a Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x004a…0095 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x0095…00ae Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x00ae…00c4 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x00c4…00d7 Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x00d7…00ed Line {l1=0x14, l2=» FNAVN:STRING;«, l3=0x14}
0x00ed…00f5 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x00f5…0109 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0109…011e Line {l1=0x13, l2=»CONST MAXFELTER=26;«, l3=0x13}
0x011e…0133 Line {l1=0x13, l2=» MVINDUEZ=292;«, l3=0x13}
0x0133…0148 Line {l1=0x13, l2=» MMAXMÅLZ=259;«, l3=0x13}
0x0148…015b Line {l1=0x11, l2=» MGLASZ=245;«, l3=0x11}
0x015b…016f Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x016f…0184 Line {l1=0x13, l2=» MOLINIEZ=344;«, l3=0x13}
0x0184…0199 Line {l1=0x13, l2=» MORDREHZ=331;«, l3=0x13}
0x0199…01ad Line {l1=0x12, l2=» MKOMBIZ=241;«, l3=0x12}
0x01ad…01bf Line {l1=0x10, l2=» MSYSZ=243;«, l3=0x10}
0x01bf…01ce Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x01ce…01e1 Line {l1=0x11, l2=»VINDUEZONE=RECORD«, l3=0x11}
0x01e1…01f8 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x01f8…0225 Line {l1=0x2b, l2=» T:ARRAY(1..MVINDUEZ) OF INTEGER;«, l3=0x2b}
0x0225…022b Line {l1=0x04, l2=»END;«, l3=0x04}
0x022b…022e Line {l1=0x01, l2=» «, l3=0x01}
0x022e…0241 Line {l1=0x11, l2=»MAXMÅLZONE=RECORD«, l3=0x11}
0x0241…0258 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0258…0285 Line {l1=0x2b, l2=» T:ARRAY(1..MMAXMÅLZ) OF INTEGER;«, l3=0x2b}
0x0285…028b Line {l1=0x04, l2=»END;«, l3=0x04}
0x028b…028e Line {l1=0x01, l2=» «, l3=0x01}
0x028e…029f Line {l1=0x0f, l2=»GLASZONE=RECORD«, l3=0x0f}
0x029f…02b4 Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x02b4…02dd Line {l1=0x27, l2=» T:ARRAY(1..MGLASZ) OF INTEGER;«, l3=0x27}
0x02dd…02e3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02e3…02e6 Line {l1=0x01, l2=» «, l3=0x01}
0x02e6…02f9 Line {l1=0x11, l2=»OLINIEZONE=RECORD«, l3=0x11}
0x02f9…0310 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0310…033d Line {l1=0x2b, l2=» T:ARRAY(1..MOLINIEZ) OF INTEGER;«, l3=0x2b}
0x033d…0343 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0343…0346 Line {l1=0x01, l2=» «, l3=0x01}
0x0346…0358 Line {l1=0x10, l2=»HOVEDZONE=RECORD«, l3=0x10}
0x0358…036e Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x036e…039a Line {l1=0x2a, l2=» T:ARRAY(1..MORDREHZ) OF INTEGER;«, l3=0x2a}
0x039a…03a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03a0…03a3 Line {l1=0x01, l2=» «, l3=0x01}
0x03a3…03b5 Line {l1=0x10, l2=»KOMBIZONE=RECORD«, l3=0x10}
0x03b5…03cb Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x03cb…03f6 Line {l1=0x29, l2=» T:ARRAY(1..MKOMBIZ) OF INTEGER;«, l3=0x29}
0x03f6…03fc Line {l1=0x04, l2=»END;«, l3=0x04}
0x03fc…03ff Line {l1=0x01, l2=» «, l3=0x01}
0x03ff…040f Line {l1=0x0e, l2=»SYSZONE=RECORD«, l3=0x0e}
0x040f…0423 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0423…044a Line {l1=0x25, l2=» T:ARRAY(1..MSYSZ) OF INTEGER;«, l3=0x25}
0x044a…0450 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0450…0476 Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x0476…0491 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0491…04af Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x04af…04cd Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x04cd…04eb Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x04eb…0509 Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x0509…050c Line {l1=0x01, l2=» «, l3=0x01}
0x050c…052d Line {l1=0x1f, l2=»DOBBINT=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x052d…0530 Line {l1=0x01, l2=» «, l3=0x01}
0x0530…0552 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x0552…0555 Line {l1=0x01, l2=» «, l3=0x01}
0x0555…0568 Line {l1=0x11, l2=»VINDUEPOST=RECORD«, l3=0x11}
0x0568…057d Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x057d…058f Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x058f…05a4 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x05a4…05b4 Line {l1=0x0e, l2=» (*NR,«, l3=0x0e}
0x05b4…05c8 Line {l1=0x12, l2=» KARMNR,«, l3=0x12}
0x05c8…05e4 Line {l1=0x1a, l2=» MAXMÅL:INTEGER;«, l3=0x1a}
0x05e4…060f Line {l1=0x29, l2=» RAMME:ARRAY(1..16) OF INTEGER;«, l3=0x29}
0x060f…0628 Line {l1=0x17, l2=» BESLAG:AR14;«, l3=0x17}
0x0628…063c Line {l1=0x12, l2=» BREDDE,«, l3=0x12}
0x063c…0656 Line {l1=0x18, l2=» HØJDE:AR13;*)«, l3=0x18}
0x0656…067e Line {l1=0x26, l2=» C:ARRAY (1..29) OF INTEGER;«, l3=0x26}
0x067e…0694 Line {l1=0x14, l2=» TEKST:TEK«, l3=0x14}
0x0694…069a Line {l1=0x04, l2=»END;«, l3=0x04}
0x069a…069d Line {l1=0x01, l2=» «, l3=0x01}
0x069d…06b0 Line {l1=0x11, l2=»MAXMÅLPOST=RECORD«, l3=0x11}
0x06b0…06c5 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x06c5…06d7 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x06d7…06ec Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x06ec…06ff Line {l1=0x11, l2=» (*AREAL,«, l3=0x11}
0x06ff…071a Line {l1=0x19, l2=» BHFORHOL:REAL;«, l3=0x19}
0x071a…072a Line {l1=0x0e, l2=» NR,«, l3=0x0e}
0x072a…073e Line {l1=0x12, l2=» BREDDE,«, l3=0x12}
0x073e…075b Line {l1=0x1b, l2=» HØJDE:INTEGER;*)«, l3=0x1b}
0x075b…0783 Line {l1=0x26, l2=» C:ARRAY (1..11) OF INTEGER;«, l3=0x26}
0x0783…0799 Line {l1=0x14, l2=» TEKST:TEK«, l3=0x14}
0x0799…079f Line {l1=0x04, l2=»END;«, l3=0x04}
0x079f…07b0 Line {l1=0x0f, l2=»GLASPOST=RECORD«, l3=0x0f}
0x07b0…07c3 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x07c3…07d3 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x07d3…07e6 Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x07e6…07f4 Line {l1=0x0c, l2=» (*NR,«, l3=0x0c}
0x07f4…080e Line {l1=0x18, l2=» KODE:INTEGER;*)«, l3=0x18}
0x080e…0833 Line {l1=0x23, l2=» C:ARRAY (1..2) OF INTEGER;«, l3=0x23}
0x0833…0847 Line {l1=0x12, l2=» TEKST:TEK«, l3=0x12}
0x0847…084d Line {l1=0x04, l2=»END;«, l3=0x04}
0x084d…0850 Line {l1=0x01, l2=» «, l3=0x01}
0x0850…0863 Line {l1=0x11, l2=»OLINIEPOST=RECORD«, l3=0x11}
0x0863…0878 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x0878…088a Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x088a…089f Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x089f…08b5 Line {l1=0x14, l2=» (*KOSTPRIS,«, l3=0x14}
0x08b5…08cb Line {l1=0x14, l2=» SALGPRIS,«, l3=0x14}
0x08cb…08e3 Line {l1=0x16, l2=» RABAT:REAL;«, l3=0x16}
0x08e3…08f8 Line {l1=0x13, l2=» ORDRENR,«, l3=0x13}
0x08f8…090e Line {l1=0x14, l2=» POSITION,«, l3=0x14}
0x090e…0921 Line {l1=0x11, l2=» ANTAL,«, l3=0x11}
0x0921…0937 Line {l1=0x14, l2=» VINDUENR,«, l3=0x14}
0x0937…094b Line {l1=0x12, l2=» FARVE1,«, l3=0x12}
0x094b…095f Line {l1=0x12, l2=» FARVE2,«, l3=0x12}
0x095f…0975 Line {l1=0x14, l2=» RAMMENR1,«, l3=0x14}
0x0975…098b Line {l1=0x14, l2=» GLASART1,«, l3=0x14}
0x098b…09a1 Line {l1=0x14, l2=» RAMMENR2,«, l3=0x14}
0x09a1…09b7 Line {l1=0x14, l2=» GLASART2,«, l3=0x14}
0x09b7…09cd Line {l1=0x14, l2=» RAMMENR3,«, l3=0x14}
0x09cd…09e3 Line {l1=0x14, l2=» GLASART3,«, l3=0x14}
0x09e3…09f9 Line {l1=0x14, l2=» BLAMBRED,«, l3=0x14}
0x09f9…0a17 Line {l1=0x1c, l2=» BLAMHØJD:INTEGER;«, l3=0x1c}
0x0a17…0a30 Line {l1=0x17, l2=» BREDDE:AR13;«, l3=0x17}
0x0a30…0a48 Line {l1=0x16, l2=» HØJDE:AR13;«, l3=0x16}
0x0a48…0a62 Line {l1=0x18, l2=» HÆNGSEL:AR14;«, l3=0x18}
0x0a62…0a7e Line {l1=0x1a, l2=» MONTER:INTEGER;«, l3=0x1a}
0x0a7e…0a9c Line {l1=0x1c, l2=» STATUS:INTEGER;*)«, l3=0x1c}
0x0a9c…0ac3 Line {l1=0x25, l2=» C:ARRAY (1..38) OF INTEGER«, l3=0x25}
0x0ac3…0ac9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ac9…0adb Line {l1=0x10, l2=»HOVEDPOST=RECORD«, l3=0x10}
0x0adb…0aef Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0aef…0b00 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0b00…0b14 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0b14…0b2b Line {l1=0x15, l2=» (*NR:INTEGER;«, l3=0x15}
0x0b2b…0b44 Line {l1=0x17, l2=» DATO:DOBBINT;«, l3=0x17}
0x0b44…0b61 Line {l1=0x1b, l2=» TILBUDNR:INTEGER;«, l3=0x1b}
0x0b61…0b7f Line {l1=0x1c, l2=» TLBUDDATO:DOBBINT;«, l3=0x1c}
0x0b7f…0b9a Line {l1=0x19, l2=» SAGSNR:INTEGER;«, l3=0x19}
0x0b9a…0bae Line {l1=0x12, l2=» KUNDENR,«, l3=0x12}
0x0bae…0bc9 Line {l1=0x19, l2=» POSTNR:DOBBINT;«, l3=0x19}
0x0bc9…0bdd Line {l1=0x12, l2=» LEVTERM,«, l3=0x12}
0x0bdd…0bf8 Line {l1=0x19, l2=» STATUS:INTEGER;«, l3=0x19}
0x0bf8…0c0e Line {l1=0x14, l2=» KUNDENAVN,«, l3=0x14}
0x0c0e…0c1f Line {l1=0x0f, l2=» GADE,«, l3=0x0f}
0x0c1f…0c2e Line {l1=0x0d, l2=» BY,«, l3=0x0d}
0x0c2e…0c46 Line {l1=0x16, l2=» KONTAKT:TEK;«, l3=0x16}
0x0c46…0c76 Line {l1=0x2e, l2=» TELEFON:PACKED ARRAY(1..10) OF CHAR;«, l3=0x2e}
0x0c76…0c8e Line {l1=0x16, l2=» LEVSTED:TEK;«, l3=0x16}
0x0c8e…0cbf Line {l1=0x2f, l2=» INITIAL:PACKED ARRAY(1..4) OF CHAR;*)«, l3=0x2f}
0x0cbf…0ce5 Line {l1=0x24, l2=» C:ARRAY (1..95) OF INTEGER«, l3=0x24}
0x0ce5…0ceb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ceb…0cfd Line {l1=0x10, l2=»KOMBIPOST=RECORD«, l3=0x10}
0x0cfd…0d11 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0d11…0d22 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0d22…0d36 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0d36…0d45 Line {l1=0x0d, l2=» (*NR,«, l3=0x0d}
0x0d45…0d5c Line {l1=0x15, l2=» KARMPROFIL,«, l3=0x15}
0x0d5c…0d6e Line {l1=0x10, l2=» POST1,«, l3=0x10}
0x0d6e…0d80 Line {l1=0x10, l2=» POST2,«, l3=0x10}
0x0d80…0d98 Line {l1=0x16, l2=» RAMMEPROFIL,«, l3=0x16}
0x0d98…0db7 Line {l1=0x1d, l2=» F3PROFIL:INTEGER;*)«, l3=0x1d}
0x0db7…0ddc Line {l1=0x23, l2=» C:ARRAY (1..6) OF INTEGER«, l3=0x23}
0x0ddc…0de2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0de2…0df2 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0df2…0e06 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0e06…0e17 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0e17…0e2b Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0e2b…0e3a Line {l1=0x0d, l2=» (*NR,«, l3=0x0d}
0x0e3a…0e4e Line {l1=0x12, l2=» ORDRENR,«, l3=0x12}
0x0e4e…0e70 Line {l1=0x20, l2=» SDAT1,SDAT2:INTEGER;*)«, l3=0x20}
0x0e70…0e95 Line {l1=0x23, l2=» C:ARRAY (1..4) OF INTEGER«, l3=0x23}
0x0e95…0e9b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e9b…0eb4 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0eb4…0ec5 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0ec5…0ed5 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0ed5…0edb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0edb…0eff Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0eff…0f30 Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0f30…0f57 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0f57…0f6f Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0f6f…0f83 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0f83…0f9b Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0f9b…0fc1 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0fc1…0fcf Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0fcf…0fea Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x0fea…100e Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x100e…1025 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x1025…104a Line {l1=0x23, l2=» LEDETEKST,FØLGETEKST:STRING(31);«, l3=0x23}
0x104a…105e Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x105e…1072 Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x1072…1086 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x1086…10a1 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x10a1…10b9 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x10b9…10d7 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x10d7…10e5 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x10e5…1106 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x1106…112a Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x112a…115a Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x115a…117d Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x117d…1191 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x1191…1197 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1197…11b9 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x11b9…11eb Line {l1=0x30, l2=»VAR MAXF,VINF,GLAF,FARF,OLIF,HOVF,KOMF,SYSF:ISF;«, l3=0x30}
0x11eb…1201 Line {l1=0x14, l2=» VINZ:VINDUEZONE;«, l3=0x14}
0x1201…121a Line {l1=0x17, l2=» GLAZ,FARZ:GLASZONE;«, l3=0x17}
0x121a…1230 Line {l1=0x14, l2=» OLIZ:OLINIEZONE;«, l3=0x14}
0x1230…1245 Line {l1=0x13, l2=» HOVZ:HOVEDZONE;«, l3=0x13}
0x1245…125a Line {l1=0x13, l2=» KOMZ:KOMBIZONE;«, l3=0x13}
0x125a…126d Line {l1=0x11, l2=» SYSZ:SYSZONE;«, l3=0x11}
0x126d…1283 Line {l1=0x14, l2=» MAXZ:MAXMÅLZONE;«, l3=0x14}
0x1283…129b Line {l1=0x16, l2=» MAXMÅL:MAXMÅLPOST;«, l3=0x16}
0x129b…12b3 Line {l1=0x16, l2=» VINDUE:VINDUEPOST;«, l3=0x16}
0x12b3…12cd Line {l1=0x18, l2=» GLAS,FARVE:GLASPOST;«, l3=0x18}
0x12cd…12e5 Line {l1=0x16, l2=» OLINIE:OLINIEPOST;«, l3=0x16}
0x12e5…12fb Line {l1=0x14, l2=» HOVED:HOVEDPOST;«, l3=0x14}
0x12fb…1311 Line {l1=0x14, l2=» KOMBI:KOMBIPOST;«, l3=0x14}
0x1311…1326 Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x1326…1337 Line {l1=0x0f, l2=» FELT:NFELT;«, l3=0x0f}
0x1337…1363 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x1363…1399 Line {l1=0x34, l2=» LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;«, l3=0x34}
0x1399…13ac Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x13ac…13be Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x13be…13d0 Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x13d0…13e5 Line {l1=0x13, l2=» HOVEDE:BOOLEAN;«, l3=0x13}
0x13e5…13ed Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x13ed…1419 Line {l1=0x2a, l2=»SEGMENT PROCEDURE LÆSDESC(DESCNR:INTEGER);«, l3=0x2a}
0x1419…142f Line {l1=0x14, l2=»VAR DESCNAVN:STRING;«, l3=0x14}
0x142f…1442 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x1442…1449 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1449…145d Line {l1=0x12, l2=» IF DESCNR=1 THEN«, l3=0x12}
0x145d…147e Line {l1=0x1f, l2=» DESCNAVN:='OINDDESC:P2:0:J'«, l3=0x1f}
0x147e…1486 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1486…14a8 Line {l1=0x20, l2=» DESCNAVN:='OLITDESC:P2:0:J';«, l3=0x20}
0x14a8…14c3 Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x14c3…14c6 Line {l1=0x01, l2=» «, l3=0x01}
0x14c6…14d4 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x14d4…14dd Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x14dd…14fa Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x14fa…1503 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1503…1510 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x1510…152c Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x152c…1555 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x1555…158f Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x158f…1599 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1599…15b0 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x15b0…15c9 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x15c9…15d4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x15d4…15ef Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x15ef…1610 Line {l1=0x1f, l2=» FELTNAVN:=FFIL^.FELTNAVN;«, l3=0x1f}
0x1610…1631 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x1631…1652 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x1652…1671 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x1671…1690 Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x1690…16b7 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x16b7…16de Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x16de…1701 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x1701…1726 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x1726…1749 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x1749…176a Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x176a…1787 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x1787…17a4 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x17a4…17c1 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x17c1…17ee Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x17ee…1812 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1812…181f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x181f…1833 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x1833…184a Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x184a…1870 Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x1870…188b Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x188b…18c4 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x18c4…18f5 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x18f5…1925 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x1925…193f Line {l1=0x18, l2=» END;«, l3=0x18}
0x193f…195a Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x195a…1993 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x1993…19e1 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x19e1…1a2e Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x1a2e…1a48 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1a48…1a63 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x1a63…1a9c Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x1a9c…1acf Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x1acf…1b01 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x1b01…1b1b Line {l1=0x18, l2=» END;«, l3=0x18}
0x1b1b…1b4b Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x1b4b…1b59 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1b59…1b78 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x1b78…1b9b Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x1b9b…1bcf Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x1bcf…1bdb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1bdb…1bf6 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x1bf6…1c00 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1c00…1c0f Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x1c0f…1c17 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1c17…1c27 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x1c27…1c39 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x1c39…1c3f Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c3f…1c47 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c47…1c50 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1c50…1c62 Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x1c62…1c6f Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x1c6f…1c7d Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x1c7d…1c86 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x1c86…1cb1 Line {l1=0x29, l2=»SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x29}
0x1cb1…1cb8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1cb8…1ced Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x1ced…1d05 Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x1d05…1d1d Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x1d1d…1d35 Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x1d35…1d46 Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1d46…1d4c Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d4c…1d77 Line {l1=0x29, l2=»SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x29}
0x1d77…1d87 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1d87…1d8e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d8e…1d9f Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x1d9f…1dee Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x1dee…1e1e Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1e1e…1e57 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1e57…1e73 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x1e73…1e82 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1e82…1e88 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e88…1e90 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1e90…1ea9 Line {l1=0x17, l2=»SEGMENT PROCEDURE INIT;«, l3=0x17}
0x1ea9…1eb0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1eb0…1ec0 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1ec0…1ee0 Line {l1=0x1e, l2=» HOVZ.H.FILENAME:='ORDREHOV';«, l3=0x1e}
0x1ee0…1f00 Line {l1=0x1e, l2=» FNAVN:='ORDREHOV:P2:0000:I';«, l3=0x1e}
0x1f00…1f18 Line {l1=0x16, l2=» REWRITE(HOVF,FNAVN);«, l3=0x16}
0x1f18…1f5b Line {l1=0x41, l2=» IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);«, l3=0x41}
0x1f5b…1f7b Line {l1=0x1e, l2=» OLIZ.H.FILENAME:='OLINIE ';«, l3=0x1e}
0x1f7b…1f99 Line {l1=0x1c, l2=» FNAVN:='OLINIE:P2:0000:I';«, l3=0x1c}
0x1f99…1fb1 Line {l1=0x16, l2=» REWRITE(OLIF,FNAVN);«, l3=0x16}
0x1fb1…1ff4 Line {l1=0x41, l2=» IOPEN(OLIZ.H,OLIF,SKRIV);IF IER<>0 THEN OFEJL(OLIZ.H.FILENAME);«, l3=0x41}
0x1ff4…2014 Line {l1=0x1e, l2=» SYSZ.H.FILENAME:='SYSREG ';«, l3=0x1e}
0x2014…2032 Line {l1=0x1c, l2=» FNAVN:='SYSREG:P2:0000:I';«, l3=0x1c}
0x2032…204a Line {l1=0x16, l2=» REWRITE(SYSF,FNAVN);«, l3=0x16}
0x204a…208d Line {l1=0x41, l2=» IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);«, l3=0x41}
0x208d…20ad Line {l1=0x1e, l2=» VINZ.H.FILENAME:='VINDUE ';«, l3=0x1e}
0x20ad…20cb Line {l1=0x1c, l2=» FNAVN:='VINDUE:P2:0000:I';«, l3=0x1c}
0x20cb…20e3 Line {l1=0x16, l2=» REWRITE(VINF,FNAVN);«, l3=0x16}
0x20e3…2124 Line {l1=0x3f, l2=» IOPEN(VINZ.H,VINF,LÆS);IF IER<>0 THEN OFEJL(VINZ.H.FILENAME);«, l3=0x3f}
0x2124…2144 Line {l1=0x1e, l2=» GLAZ.H.FILENAME:='GLAS ';«, l3=0x1e}
0x2144…2160 Line {l1=0x1a, l2=» FNAVN:='GLAS:P2:0000:I';«, l3=0x1a}
0x2160…2178 Line {l1=0x16, l2=» REWRITE(GLAF,FNAVN);«, l3=0x16}
0x2178…21b9 Line {l1=0x3f, l2=» IOPEN(GLAZ.H,GLAF,LÆS);IF IER<>0 THEN OFEJL(GLAZ.H.FILENAME);«, l3=0x3f}
0x21b9…21d9 Line {l1=0x1e, l2=» FARZ.H.FILENAME:='FARVE ';«, l3=0x1e}
0x21d9…21f6 Line {l1=0x1b, l2=» FNAVN:='FARVE:P2:0000:I';«, l3=0x1b}
0x21f6…220e Line {l1=0x16, l2=» REWRITE(FARF,FNAVN);«, l3=0x16}
0x220e…224f Line {l1=0x3f, l2=» IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);«, l3=0x3f}
0x224f…226f Line {l1=0x1e, l2=» KOMZ.H.FILENAME:='KOMBINAT';«, l3=0x1e}
0x226f…228f Line {l1=0x1e, l2=» FNAVN:='KOMBINAT:P2:0000:I';«, l3=0x1e}
0x228f…22a7 Line {l1=0x16, l2=» REWRITE(KOMF,FNAVN);«, l3=0x16}
0x22a7…22e8 Line {l1=0x3f, l2=» IOPEN(KOMZ.H,KOMF,LÆS);IF IER<>0 THEN OFEJL(KOMZ.H.FILENAME);«, l3=0x3f}
0x22e8…2308 Line {l1=0x1e, l2=» MAXZ.H.FILENAME:='MAXMÅL ';«, l3=0x1e}
0x2308…2326 Line {l1=0x1c, l2=» FNAVN:='MAXMÅL:P2:0000:I';«, l3=0x1c}
0x2326…233e Line {l1=0x16, l2=» REWRITE(MAXF,FNAVN);«, l3=0x16}
0x233e…237e Line {l1=0x3e, l2=» IOPEN(MAXZ.H,MAXF,LÆS);IF IER<>0 THEN OFEJL(MAXZ.H.FILENAME)«, l3=0x3e}
0x237e…2384 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2384…238d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x238d…239d Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x239d…23aa Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x23aa…23ba Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x23ba…23ca Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x23ca…23d9 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x23d9…23e7 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x23e7…23f5 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x23f5…2404 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x2404…240d Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x240d…2415 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2415…245a Line {l1=0x43, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT;VAR A:AR;VAR AA:ARAR;VAR AAA:RAR);«, l3=0x43}
0x245a…246d Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x246d…2486 Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x2486…249e Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x249e…24a5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x24a5…24b1 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x24b1…24cc Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x24cc…24e0 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x24e0…24fa Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x24fa…2522 Line {l1=0x26, l2=» TAL:=ABS(A(F^.INDEKS));«, l3=0x26}
0x2522…2539 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2539…2566 Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x2566…258f Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x258f…25b1 Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x25b1…25ce Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x25ce…2616 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x2616…2654 Line {l1=0x3c, l2=» IF A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)«, l3=0x3c}
0x2654…2667 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2667…267b Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x267b…2695 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2695…26d7 Line {l1=0x40, l2=» RESULT:=ABS(A(F^.INDEKS)*10000.0+A(F^.INDEKS+1));«, l3=0x40}
0x26d7…26f8 Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x26f8…270f Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x270f…2739 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2739…2765 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2765…2781 Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x2781…27ab Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x27ab…27c2 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x27c2…27e3 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x27e3…280c Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x280c…2836 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2836…2862 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2862…2880 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2880…289f Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x289f…28e7 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x28e7…2927 Line {l1=0x3e, l2=» IF A(F^.INDEKS)*10000.0+A(F^.INDEKS+1)<0.0 THEN«, l3=0x3e}
0x2927…2950 Line {l1=0x27, l2=» LINE:=CONCAT('-',LINE)«, l3=0x27}
0x2950…2963 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2963…2977 Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x2977…2991 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2991…29ce Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x29ce…29e4 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x29e4…2a04 Line {l1=0x1e, l2=» CH(1):=AA(I);«, l3=0x1e}
0x2a04…2a2c Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x2a2c…2a40 Line {l1=0x12, l2=» END«, l3=0x12}
0x2a40…2a53 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2a53…2a67 Line {l1=0x12, l2=» REEL:BEGIN«, l3=0x12}
0x2a67…2a94 Line {l1=0x2b, l2=» RESULT:=ABS(AAA(F^.INDEKS));«, l3=0x2b}
0x2a94…2ab2 Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x2ab2…2ad1 Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x2ad1…2aeb Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x2aeb…2b00 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2b00…2b16 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2b16…2b31 Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x2b31…2b7f Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x2b7f…2b94 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2b94…2bae Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2bae…2bd2 Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x2bd2…2be8 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2be8…2c0e Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x2c0e…2c27 Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x2c27…2c53 Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x2c53…2c81 Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x2c81…2ca1 Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x2ca1…2cd7 Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x2cd7…2ceb Line {l1=0x12, l2=» END«, l3=0x12}
0x2ceb…2d00 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2d00…2d16 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2d16…2d31 Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x2d31…2d69 Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x2d69…2d93 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2d93…2dbf Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2dbf…2ddd Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2ddd…2df2 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2df2…2e09 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2e09…2e2a Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x2e2a…2e53 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2e53…2e8b Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x2e8b…2eb5 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2eb5…2ee1 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2ee1…2eff Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2eff…2f1e Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x2f1e…2f60 Line {l1=0x40, l2=» IF AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)«, l3=0x40}
0x2f60…2f72 Line {l1=0x10, l2=» END«, l3=0x10}
0x2f72…2f7d Line {l1=0x09, l2=» END«, l3=0x09}
0x2f7d…2f83 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2f83…2f8b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2f8b…2fae Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x2fae…2fb5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2fb5…2fd7 Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x2fd7…2ff3 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x2ff3…3005 Line {l1=0x10, l2=» IF HOVEDE THEN«, l3=0x10}
0x3005…3033 Line {l1=0x2c, l2=» MOVETOLINE(F,HOVED.A,HOVED.AA,HOVED.AAA)«, l3=0x2c}
0x3033…303b Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x303b…306d Line {l1=0x30, l2=» MOVETOLINE(F,OLINIE.A,OLINIE.AA,OLINIE.AAA);«, l3=0x30}
0x306d…307f Line {l1=0x10, l2=» WRITELN(LINE);«, l3=0x10}
0x307f…3085 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3085…3095 Line {l1=0x0e, l2=»PROCEDURE D23;«, l3=0x0e}
0x3095…309c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x309c…30c9 Line {l1=0x2b, l2=» GOTOXY(1,23);WRITELN(' ':79);GOTOXY(1,23)«, l3=0x2b}
0x30c9…30cf Line {l1=0x04, l2=»END;«, l3=0x04}
0x30cf…30d7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x30d7…30f8 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x30f8…3111 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x3111…3121 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x3121…3136 Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x3136…3139 Line {l1=0x01, l2=» «, l3=0x01}
0x3139…3141 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3141…3156 Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x3156…3167 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x3167…3184 Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x3184…3192 Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x3192…3195 Line {l1=0x01, l2=» «, l3=0x01}
0x3195…319c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x319c…31a6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x31a6…31b6 Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x31b6…31c8 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x31c8…31d5 Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x31d5…31e3 Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x31e3…31ff Line {l1=0x1a, l2=» GOTOXY(1,F^.INDPOS.Y);«, l3=0x1a}
0x31ff…3215 Line {l1=0x14, l2=» WRITELN(' ':79);«, l3=0x14}
0x3215…323b Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x323b…3275 Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x3275…32b2 Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x32b2…32c2 Line {l1=0x0e, l2=» LINE:='0';«, l3=0x0e}
0x32c2…32dd Line {l1=0x19, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x19}
0x32dd…3320 Line {l1=0x41, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);«, l3=0x41}
0x3320…3339 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x3339…3341 Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x3341…3366 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x3366…3371 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3371…3382 Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x3382…33a9 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x33a9…33c6 Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x33c6…33e8 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x33e8…33f6 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x33f6…3418 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x3418…3422 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3422…3433 Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x3433…344f Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x344f…345a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x345a…3467 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x3467…347a Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x347a…3495 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x3495…34a2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34a2…34b8 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x34b8…34c6 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x34c6…34d2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x34d2…34f1 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x34f1…34fe Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34fe…3511 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x3511…3522 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3522…3551 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x3551…3560 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3560…3576 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3576…3591 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3591…359f Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x359f…35ca Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x35ca…35d6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x35d6…35f5 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x35f5…3607 Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x3607…3622 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x3622…366e Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x366e…369e Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x369e…36b3 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x36b3…36e0 Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x36e0…3711 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x3711…3724 Line {l1=0x11, l2=» END«, l3=0x11}
0x3724…3742 Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x3742…374d Line {l1=0x09, l2=» END«, l3=0x09}
0x374d…3765 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x3765…376c Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x376c…3788 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3788…3793 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3793…37a0 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x37a0…37b3 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x37b3…37c4 Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x37c4…37df Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x37df…37ec Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37ec…3802 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x3802…3810 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x3810…381c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x381c…384a Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x384a…3857 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3857…386a Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x386a…387b Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x387b…38a4 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x38a4…38d1 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x38d1…38df Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x38df…390f Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x390f…3922 Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x3922…3930 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3930…393f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x393f…3955 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3955…3970 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3970…397d Line {l1=0x0b, l2=» END«, l3=0x0b}
0x397d…3989 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3989…3999 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x3999…39b8 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x39b8…39c5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x39c5…39d6 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x39d6…39ec Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x39ec…3a15 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x3a15…3a24 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3a24…3a54 Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x3a54…3a6c Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x3a6c…3a79 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3a79…3a87 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3a87…3a96 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3a96…3aac Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3aac…3ac7 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3ac7…3ad4 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3ad4…3ae0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3ae0…3aff Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x3aff…3b24 Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x3b24…3b2d Line {l1=0x07, l2=» END«, l3=0x07}
0x3b2d…3b40 Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x3b40…3b49 Line {l1=0x07, l2=» END«, l3=0x07}
0x3b49…3b55 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x3b55…3b5b Line {l1=0x04, l2=»END;«, l3=0x04}
0x3b5b…3b63 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3b63…3b78 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x3b78…3b96 Line {l1=0x1c, l2=»VAR I,DAT0,MÅNED,ÅR:INTEGER;«, l3=0x1c}
0x3b96…3b9d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3b9d…3bbc Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x3bbc…3bca Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x3bca…3bfb Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x3bfb…3c09 Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x3c09…3c49 Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x3c49…3c88 Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x3c88…3c96 Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x3c96…3ccf Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x3ccf…3cd8 Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x3cd8…3cf4 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x3cf4…3cff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3cff…3d30 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x3d30…3d64 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x3d64…3d97 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x3d97…3de5 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3de5…3dff Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3dff…3e14 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3e14…3e43 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x3e43…3e8e Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x3e8e…3e99 Line {l1=0x09, l2=» END«, l3=0x09}
0x3e99…3ea2 Line {l1=0x07, l2=» END«, l3=0x07}
0x3ea2…3eba Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x3eba…3ec1 Line {l1=0x05, l2=» END«, l3=0x05}
0x3ec1…3ec7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3ec7…3ecf Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3ecf…3ee6 Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x3ee6…3eed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3eed…3ef7 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3ef7…3f0b Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x3f0b…3f22 Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x3f22…3f31 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x3f31…3f45 Line {l1=0x12, l2=» IF HOVEDE THEN«, l3=0x12}
0x3f45…3f50 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3f50…3f89 Line {l1=0x37, l2=» IF (RESULT=0.0) AND ((FELTNR=2) OR (FELTNR=4)) THEN«, l3=0x37}
0x3f89…3f94 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3f94…3fa5 Line {l1=0x0f, l2=» VAL:=NIL;«, l3=0x0f}
0x3fa5…3fbe Line {l1=0x17, l2=» TAL:=SYSTEM.A(3);«, l3=0x17}
0x3fbe…3fd7 Line {l1=0x17, l2=» TAL1:=SYSTEM.A(4)«, l3=0x17}
0x3fd7…3fe0 Line {l1=0x07, l2=» END«, l3=0x07}
[…0x1…]
0x3fe9…3ff3 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3ff3…3ffe Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3ffe…402d Line {l1=0x2d, l2=» IF (FELTNR=2) AND (TAL=0) THEN VAL:=NIL«, l3=0x2d}
0x402d…4037 Line {l1=0x08, l2=» END;«, l3=0x08}
0x4037…4061 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x4061…406c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x406c…407d Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x407d…4097 Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x4097…40a1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x40a1…40cc Line {l1=0x29, l2=» IF (NOT BUMMED) AND (NOT HOVEDE) THEN«, l3=0x29}
0x40cc…40d7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x40d7…40e1 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x40e1…40f5 Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x40f5…4123 Line {l1=0x2c, l2=» 4,5:IF TAL=0 THEN TAL:=OLINIE.A(17) ELSE«, l3=0x2c}
0x4123…4132 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4132…414e Line {l1=0x1a, l2=» FARVE.A(1):=TAL;«, l3=0x1a}
0x414e…4176 Line {l1=0x26, l2=» GETREC(FARZ.H,FARF,FARVE.A);«, l3=0x26}
0x4176…41b8 Line {l1=0x40, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(FARZ.H.FILENAME);«, l3=0x40}
0x41b8…41d2 Line {l1=0x18, l2=» IF IER=-6 THEN«, l3=0x18}
0x41d2…41e3 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x41e3…41fe Line {l1=0x19, l2=» BUMMED:=TRUE;«, l3=0x19}
0x41fe…4235 Line {l1=0x35, l2=» WRITE('Farve findes ikke, RETURN');READLN«, l3=0x35}
0x4235…4244 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4244…4254 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x4254…4265 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4265…427b Line {l1=0x14, l2=» CH:='J';«, l3=0x14}
0x427b…42ba Line {l1=0x3d, l2=» WRITE(FARVE.TEKST,' Rigtig farve J/N ');EDIT(CH);«, l3=0x3d}
0x42ba…42e4 Line {l1=0x28, l2=» IF CH<>'J' THEN BUMMED:=TRUE«, l3=0x28}
0x42e4…42f3 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x42f3…4301 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x4301…431b Line {l1=0x18, l2=» 7,9,10:IF TAL>0 THEN«, l3=0x18}
0x431b…432a Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x432a…4345 Line {l1=0x19, l2=» GLAS.A(1):=TAL;«, l3=0x19}
0x4345…436c Line {l1=0x25, l2=» GETREC(GLAZ.H,GLAF,GLAS.A);«, l3=0x25}
0x436c…43ae Line {l1=0x40, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(GLAZ.H.FILENAME);«, l3=0x40}
0x43ae…43c8 Line {l1=0x18, l2=» IF IER=-6 THEN«, l3=0x18}
0x43c8…43d9 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x43d9…43f4 Line {l1=0x19, l2=» BUMMED:=TRUE;«, l3=0x19}
0x43f4…442a Line {l1=0x34, l2=» WRITE('Glas findes ikke, RETURN');READLN«, l3=0x34}
0x442a…4439 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4439…4449 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x4449…445a Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x445a…4470 Line {l1=0x14, l2=» CH:='J';«, l3=0x14}
0x4470…44ad Line {l1=0x3b, l2=» WRITE(GLAS.TEKST,' Rigtig glas J/N ');EDIT(CH);«, l3=0x3b}
0x44ad…44d7 Line {l1=0x28, l2=» IF CH<>'J' THEN BUMMED:=TRUE«, l3=0x28}
0x44d7…44e6 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x44e6…44f4 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x44f4…4528 Line {l1=0x32, l2=» 6,8:IF TAL>0 THEN BUMMED:=(VINDUE.A(TAL+3)=0);«, l3=0x32}
0x4528…453d Line {l1=0x13, l2=» 2:IF TAL>0 THEN«, l3=0x13}
0x453d…454a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x454a…456e Line {l1=0x22, l2=» VINDUE.A(1):=TAL MOD 1000;«, l3=0x22}
0x456e…4595 Line {l1=0x25, l2=» GETREC(VINZ.H,VINF,VINDUE.A);«, l3=0x25}
0x4595…45d5 Line {l1=0x3e, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(VINZ.H.FILENAME);«, l3=0x3e}
0x45d5…45ed Line {l1=0x16, l2=» IF IER=-6 THEN«, l3=0x16}
0x45ed…45fc Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x45fc…4630 Line {l1=0x32, l2=» WRITE('Vindue/dør findes ikke, RETURN');«, l3=0x32}
0x4630…464f Line {l1=0x1d, l2=» READLN;BUMMED:=TRUE«, l3=0x1d}
0x464f…465c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x465c…466a Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x466a…4679 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x4679…468d Line {l1=0x12, l2=» CH:='J';«, l3=0x12}
0x468d…46cd Line {l1=0x3e, l2=» WRITE(VINDUE.TEKST,' Rigtigt vindue J/N ');EDIT(CH);«, l3=0x3e}
0x46cd…46e7 Line {l1=0x18, l2=» IF CH='J' THEN«, l3=0x18}
0x46e7…46f8 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x46f8…471f Line {l1=0x25, l2=» KOMBI.A(1):=TAL DIV 1000;«, l3=0x25}
0x471f…4749 Line {l1=0x28, l2=» GETREC(KOMZ.H,KOMF,KOMBI.A);«, l3=0x28}
0x4749…478d Line {l1=0x42, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(KOMZ.H.FILENAME);«, l3=0x42}
0x478d…479f Line {l1=0x10, l2=» D23;«, l3=0x10}
0x479f…47bb Line {l1=0x1a, l2=» IF IER=-6 THEN«, l3=0x1a}
0x47bb…47ce Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x47ce…480f Line {l1=0x3f, l2=» WRITE('Profilkombinationen findes ikke, RETURN');«, l3=0x3f}
0x480f…4832 Line {l1=0x21, l2=» READLN;BUMMED:=TRUE«, l3=0x21}
0x4832…4843 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4843…4855 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x4855…4868 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4868…48b2 Line {l1=0x48, l2=» WRITE(KOMBI.A(2):5,KOMBI.A(3):5,KOMBI.A(4):5,KOMBI.A(5):5,«, l3=0x48}
0x48b2…48fa Line {l1=0x46, l2=» KOMBI.A(6):5,' Rigtig kombination J/N ');EDIT(CH);«, l3=0x46}
0x48fa…4926 Line {l1=0x2a, l2=» IF CH<>'J' THEN BUMMED:=TRUE«, l3=0x2a}
0x4926…4937 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4937…4946 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x4946…4963 Line {l1=0x1b, l2=» ELSE BUMMED:=TRUE«, l3=0x1b}
0x4963…4970 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4970…497b Line {l1=0x09, l2=» END«, l3=0x09}
0x497b…4984 Line {l1=0x07, l2=» END«, l3=0x07}
[…0x1…]
0x498d…49a2 Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x49a2…49b4 Line {l1=0x10, l2=» IF HOVEDE THEN«, l3=0x10}
0x49b4…49c6 Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x49c6…49ef Line {l1=0x27, l2=» 1,3,5,14,16: HOVED.A(F^.INDEKS):=TAL;«, l3=0x27}
0x49ef…4a00 Line {l1=0x0f, l2=» 2,4,6,9:BEGIN«, l3=0x0f}
0x4a00…4a26 Line {l1=0x24, l2=» HOVED.A(F^.INDEKS):=TAL;«, l3=0x24}
0x4a26…4a4e Line {l1=0x26, l2=» HOVED.A(F^.INDEKS+1):=TAL1«, l3=0x26}
0x4a4e…4a5e Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4a5e…4a8d Line {l1=0x2d, l2=» 7,8,10,11,12,13,15:FOR I:=1 TO F^.LÆNGDE DO«, l3=0x2d}
0x4a8d…4ac7 Line {l1=0x38, l2=» HOVED.AA(I+F^.INDEKS-1):=LINE(I)«, l3=0x38}
0x4ac7…4ace Line {l1=0x05, l2=» END«, l3=0x05}
0x4ace…4ad6 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x4ad6…4af8 Line {l1=0x20, l2=» IF FELTNR IN (.23..24.) THEN«, l3=0x20}
0x4af8…4b1d Line {l1=0x23, l2=» OLINIE.AAA(F^.INDEKS):=RESULT«, l3=0x23}
0x4b1d…4b40 Line {l1=0x21, l2=» ELSE OLINIE.A(F^.INDEKS):=TAL«, l3=0x21}
0x4b40…4b46 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4b46…4b4e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4b4e…4b63 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x4b63…4b77 Line {l1=0x12, l2=»VAR POSNR:INTEGER;«, l3=0x12}
0x4b77…4b90 Line {l1=0x17, l2=»PROCEDURE Q(I:INTEGER);«, l3=0x17}
0x4b90…4b97 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4b97…4ba5 Line {l1=0x0c, l2=» FELTNR:=I;«, l3=0x0c}
0x4ba5…4bc2 Line {l1=0x1b, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1b}
0x4bc2…4be0 Line {l1=0x1c, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x1c}
0x4be0…4be6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4be6…4be9 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x4bec…4bf4 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4bf4…4c09 Line {l1=0x13, l2=»PROCEDURE OLINPROC;«, l3=0x13}
0x4c09…4c21 Line {l1=0x16, l2=»PROCEDURE CHECKMAXMÅL;«, l3=0x16}
0x4c21…4c2e Line {l1=0x0b, l2=»VAR R:REAL;«, l3=0x0b}
0x4c2e…4c35 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4c35…4c41 Line {l1=0x0a, l2=» CH:='J';«, l3=0x0a}
0x4c41…4c70 Line {l1=0x2d, l2=» R:=OLINIE.A(25)/1000.0*OLINIE.A(26)/1000.0;«, l3=0x2d}
0x4c70…4c8b Line {l1=0x19, l2=» IF R>MAXMÅL.AAA(1) THEN«, l3=0x19}
0x4c8b…4c94 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4c94…4c9e Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4c9e…4cd4 Line {l1=0x34, l2=» WRITE('Max-areal overskredet OK J/N ');EDIT(CH);«, l3=0x34}
0x4cd4…4cfb Line {l1=0x25, l2=» IF CH<>'J' THEN EXIT(CHECKMAXMÅL)«, l3=0x25}
0x4cfb…4d03 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4d03…4d28 Line {l1=0x23, l2=» R:=1.0*OLINIE.A(25)/OLINIE.A(26);«, l3=0x23}
0x4d28…4d43 Line {l1=0x19, l2=» IF R>MAXMÅL.AAA(2) THEN«, l3=0x19}
0x4d43…4d4c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4d4c…4d56 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4d56…4d9b Line {l1=0x43, l2=» WRITE('Max-bredde/højde-forhold overskredet OK J/N ');EDIT(CH);«, l3=0x43}
0x4d9b…4dc2 Line {l1=0x25, l2=» IF CH<>'J' THEN EXIT(CHECKMAXMÅL)«, l3=0x25}
0x4dc2…4dca Line {l1=0x06, l2=» END;«, l3=0x06}
0x4dca…4def Line {l1=0x23, l2=» IF OLINIE.A(25)>MAXMÅL.A(10) THEN«, l3=0x23}
0x4def…4df8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4df8…4e02 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4e02…4e39 Line {l1=0x35, l2=» WRITE('Max-bredde overskredet OK J/N ');EDIT(CH);«, l3=0x35}
0x4e39…4e60 Line {l1=0x25, l2=» IF CH<>'J' THEN EXIT(CHECKMAXMÅL)«, l3=0x25}
0x4e60…4e68 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4e68…4e8d Line {l1=0x23, l2=» IF OLINIE.A(26)>MAXMÅL.A(11) THEN«, l3=0x23}
0x4e8d…4e96 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4e96…4ea0 Line {l1=0x08, l2=» D23;«, l3=0x08}
0x4ea0…4ed6 Line {l1=0x34, l2=» WRITE('Max-højde overskredet OK J/N ');EDIT(CH);«, l3=0x34}
0x4ed6…4efd Line {l1=0x25, l2=» IF CH<>'J' THEN EXIT(CHECKMAXMÅL)«, l3=0x25}
0x4efd…4f04 Line {l1=0x05, l2=» END«, l3=0x05}
0x4f04…4f0a Line {l1=0x04, l2=»END;«, l3=0x04}
0x4f0a…4f12 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x4f12…4f30 Line {l1=0x1c, l2=»BEGIN (*PROCEDURE OLINPROC*)«, l3=0x1c}
0x4f30…4f3e Line {l1=0x0c, l2=» FELTNR:=2;«, l3=0x0c}
0x4f3e…4f4e Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x4f4e…4f6b Line {l1=0x1b, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1b}
0x4f6b…4f86 Line {l1=0x19, l2=» WHILE OLINIE.A(16)>0 DO«, l3=0x19}
0x4f86…4f8f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4f8f…4fb0 Line {l1=0x1f, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x1f}
0x4fb0…4fca Line {l1=0x18, l2=» OLINIE.A(14):=POSNR;«, l3=0x18}
0x4fca…4fdf Line {l1=0x13, l2=» POSNR:=POSNR+1;«, l3=0x13}
0x4fdf…4ff4 Line {l1=0x13, l2=» Q(1);Q(4);Q(5);«, l3=0x13}
0x4ff4…501c Line {l1=0x26, l2=» FOR I:=19 TO 24 DO OLINIE.A(I):=0;«, l3=0x26}
0x501c…5028 Line {l1=0x0a, l2=» Q(10);«, l3=0x0a}
0x5028…5044 Line {l1=0x1a, l2=» IF OLINIE.A(24)=0 THEN«, l3=0x1a}
0x5044…504f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x504f…505c Line {l1=0x0b, l2=» Q(6);«, l3=0x0b}
0x505c…507a Line {l1=0x1c, l2=» IF OLINIE.A(19)>0 THEN«, l3=0x1c}
0x507a…5087 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5087…509b Line {l1=0x12, l2=» Q(7);Q(8);«, l3=0x12}
0x509b…50c0 Line {l1=0x23, l2=» IF OLINIE.A(20)>0 THEN Q(9)«, l3=0x23}
0x50c0…50cc Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x50cc…50f5 Line {l1=0x27, l2=» REPEAT Q(10) UNTIL OLINIE.A(24)>0«, l3=0x27}
0x50f5…50ff Line {l1=0x08, l2=» END;«, l3=0x08}
0x50ff…511e Line {l1=0x1d, l2=» MAXMÅL.A(9):=VINDUE.A(3);«, l3=0x1d}
0x511e…5167 Line {l1=0x47, l2=» GETREC(MAXZ.H,MAXF,MAXMÅL.A);IF IER<>0 THEN ERROR(MAXZ.H.FILENAME);«, l3=0x47}
0x5167…5173 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x5173…5187 Line {l1=0x12, l2=» Q(11);Q(12);«, l3=0x12}
0x5187…519a Line {l1=0x11, l2=» CHECKMAXMÅL«, l3=0x11}
0x519a…51ad Line {l1=0x11, l2=» UNTIL CH='J';«, l3=0x11}
0x51ad…51d5 Line {l1=0x26, l2=» FOR I:=27 TO 36 DO OLINIE.A(I):=0;«, l3=0x26}
0x51d5…51ed Line {l1=0x16, l2=» FOR I:=24 TO 26 DO«, l3=0x16}
0x51ed…5223 Line {l1=0x34, l2=» IF VINDUE.A(I)=1 THEN Q(13+2*(I-24)) ELSE I:=27;«, l3=0x34}
0x5223…523b Line {l1=0x16, l2=» FOR I:=27 TO 29 DO«, l3=0x16}
0x523b…5271 Line {l1=0x34, l2=» IF VINDUE.A(I)=1 THEN Q(14+2*(I-27)) ELSE I:=30;«, l3=0x34}
0x5271…5289 Line {l1=0x16, l2=» FOR I:=20 TO 23 DO«, l3=0x16}
0x5289…52ac Line {l1=0x21, l2=» IF VINDUE.A(I)=1 THEN Q(I-1);«, l3=0x21}
0x52ac…52c3 Line {l1=0x15, l2=» Q(3);Q(23);Q(24);«, l3=0x15}
0x52c3…52e2 Line {l1=0x1d, l2=» OLINIE.A(13):=HOVED.A(1);«, l3=0x1d}
0x52e2…5302 Line {l1=0x1e, l2=» OLINIE.A(38):=HOVED.A(13);«, l3=0x1e}
0x5302…531b Line {l1=0x17, l2=» OLINIE.AAA(1):=0.0;«, l3=0x17}
0x531b…532d Line {l1=0x10, l2=» D23;CH:='J';«, l3=0x10}
0x532d…5358 Line {l1=0x29, l2=» WRITE('Ordrelinie OK J/N ');EDIT(CH);«, l3=0x29}
0x5358…536c Line {l1=0x12, l2=» IF CH='J' THEN«, l3=0x12}
0x536c…5377 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5377…539c Line {l1=0x23, l2=» INSERT(OLIZ.H,OLIF,OLINIE.A);«, l3=0x23}
0x539c…53c9 Line {l1=0x2b, l2=» IF IER<>0 THEN ERROR(OLIZ.H.FILENAME)«, l3=0x2b}
0x53c9…53d2 Line {l1=0x07, l2=» END«, l3=0x07}
0x53d2…53ec Line {l1=0x18, l2=» ELSE POSNR:=POSNR-1;«, l3=0x18}
0x53ec…53fc Line {l1=0x0e, l2=» FELTNR:=2;«, l3=0x0e}
0x53fc…540e Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x540e…542c Line {l1=0x1c, l2=» LÆSFELT(PICTURE(FELTNR))«, l3=0x1c}
0x542c…5433 Line {l1=0x05, l2=» END«, l3=0x05}
0x5433…5439 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5439…5441 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5441…545f Line {l1=0x1c, l2=»BEGIN (*PROCEDURE MAINTAIN*)«, l3=0x1c}
0x545f…5492 Line {l1=0x31, l2=» (*$XT*) WRITELN('MEMAVAIL1 ',MEMAVAIL); (*$X-*)«, l3=0x31}
0x5492…54a0 Line {l1=0x0c, l2=» MARK(QUQ);«, l3=0x0c}
0x54a0…54af Line {l1=0x0d, l2=» LÆSDESC(1);«, l3=0x0d}
0x54af…54e2 Line {l1=0x31, l2=» (*$XT*) WRITELN('MEMAVAIL2 ',MEMAVAIL); (*$X-*)«, l3=0x31}
0x54e2…54f3 Line {l1=0x0f, l2=» HOVEDE:=TRUE;«, l3=0x0f}
0x54f3…5503 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x5503…5512 Line {l1=0x0d, l2=» FELTNR:=16;«, l3=0x0d}
0x5512…552f Line {l1=0x1b, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1b}
0x552f…5548 Line {l1=0x17, l2=» IF HOVED.A(13)=1 THEN«, l3=0x17}
0x5548…555d Line {l1=0x13, l2=» BEGIN (*ORDRE*)«, l3=0x13}
0x555d…556d Line {l1=0x0e, l2=» FELTNR:=1;«, l3=0x0e}
0x556d…558c Line {l1=0x1d, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1d}
0x558c…55a6 Line {l1=0x18, l2=» IF HOVED.A(1)>0 THEN«, l3=0x18}
0x55a6…55b1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x55b1…55d5 Line {l1=0x22, l2=» GETREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x22}
0x55d5…5613 Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(HOVZ.H.FILENAME);«, l3=0x3c}
0x5613…563e Line {l1=0x29, l2=» IF (IER=0) AND (HOVED.A(13)=0) THEN«, l3=0x29}
0x563e…5666 Line {l1=0x26, l2=» BEGIN (*ORDREN VAR OPRETTET*)«, l3=0x26}
0x5666…567c Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x567c…5695 Line {l1=0x17, l2=» HOVED.A(13):=1;«, l3=0x17}
0x5695…56d1 Line {l1=0x3a, l2=» FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));«, l3=0x3a}
0x56d1…56e1 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x56e1…56f5 Line {l1=0x12, l2=» CH:='J';«, l3=0x12}
0x56f5…5705 Line {l1=0x0e, l2=» D23;«, l3=0x0e}
0x5705…572c Line {l1=0x25, l2=» WRITE('Rigtig ordre J/N ');«, l3=0x25}
0x572c…5740 Line {l1=0x12, l2=» EDIT(CH)«, l3=0x12}
0x5740…5765 Line {l1=0x23, l2=» UNTIL (CH='J') OR (CH='N');«, l3=0x23}
0x5765…577d Line {l1=0x16, l2=» IF CH='J' THEN«, l3=0x16}
0x577d…578c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x578c…579d Line {l1=0x0f, l2=» Q(2);«, l3=0x0f}
0x579d…57af Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x57af…57c3 Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x57c3…57d7 Line {l1=0x12, l2=» D23;«, l3=0x12}
0x57d7…5812 Line {l1=0x39, l2=» WRITE('Ændring af feltnr (0 for færdig) ');«, l3=0x39}
0x5812…5857 Line {l1=0x43, l2=» READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)«, l3=0x43}
0x5857…5899 Line {l1=0x40, l2=» UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);«, l3=0x40}
0x5899…58cc Line {l1=0x31, l2=» IF FELTNR IN (.2..15.) THEN Q(FELTNR)«, l3=0x31}
0x58cc…58e8 Line {l1=0x1a, l2=» UNTIL FELTNR=0;«, l3=0x1a}
0x58e8…5910 Line {l1=0x26, l2=» PUTREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x26}
0x5910…5942 Line {l1=0x30, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);«, l3=0x30}
0x5942…5977 Line {l1=0x33, l2=» OLINIE.A(13):=HOVED.A(1);OLINIE.A(14):=0;«, l3=0x33}
0x5977…59a1 Line {l1=0x28, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x28}
0x59a1…59dc Line {l1=0x39, l2=» IF IER<>-1 THEN ERROR(OLIZ.H.FILENAME); IER:=0;«, l3=0x39}
0x59dc…5a16 Line {l1=0x38, l2=» WHILE (IER=0) AND (OLINIE.A(13)=HOVED.A(1)) DO«, l3=0x38}
0x5a16…5a27 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x5a27…5a45 Line {l1=0x1c, l2=» OLINIE.A(38):=1;«, l3=0x1c}
0x5a45…5a70 Line {l1=0x29, l2=» PUTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x29}
0x5a70…5aa4 Line {l1=0x32, l2=» IF IER<>0 THEN ERROR(OLIZ.H.FILENAME);«, l3=0x32}
0x5aa4…5acf Line {l1=0x29, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A)«, l3=0x29}
0x5acf…5adf Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x5adf…5b2e Line {l1=0x4d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(OLIZ.H.FILENAME)«, l3=0x4d}
0x5b2e…5b3b Line {l1=0x0b, l2=» END«, l3=0x0b}
0x5b3b…5b46 Line {l1=0x09, l2=» END«, l3=0x09}
0x5b46…5b52 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x5b52…5b5f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x5b5f…5b6d Line {l1=0x0c, l2=» D23;«, l3=0x0c}
0x5b6d…5b86 Line {l1=0x17, l2=» IF IER=-6 THEN«, l3=0x17}
0x5b86…5bb8 Line {l1=0x30, l2=» WRITE('Tilbuddet findes ikke, RETURN')«, l3=0x30}
0x5bb8…5bc6 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x5bc6…5bfb Line {l1=0x33, l2=» WRITE('Ordren er allerede inde, RETURN');«, l3=0x33}
0x5bfb…5c0b Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x5c0b…5c17 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x5c17…5c20 Line {l1=0x07, l2=» END«, l3=0x07}
0x5c20…5c28 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5c28…5c56 Line {l1=0x2c, l2=» IF (HOVED.A(13)=0) OR (HOVED.A(1)=0) THEN«, l3=0x2c}
0x5c56…5c5f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5c5f…5c7e Line {l1=0x1d, l2=» HOVED.A(1):= SYSTEM.A(2);«, l3=0x1d}
0x5c7e…5c9f Line {l1=0x1f, l2=» SYSTEM.A(2):=SYSTEM.A(2)+1;«, l3=0x1f}
0x5c9f…5cba Line {l1=0x19, l2=» IF HOVED.A(13)=1 THEN«, l3=0x19}
0x5cba…5cc5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5cc5…5cf0 Line {l1=0x29, l2=» FELTNR:=2;LÆSFELT(PICTURE(FELTNR));«, l3=0x29}
0x5cf0…5d06 Line {l1=0x14, l2=» HOVED.A(5):=0;«, l3=0x14}
0x5d06…5d1b Line {l1=0x13, l2=» HOVED.A(6):=0«, l3=0x13}
0x5d1b…5d24 Line {l1=0x07, l2=» END«, l3=0x07}
0x5d24…5d2e Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x5d2e…5d39 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x5d39…5d64 Line {l1=0x29, l2=» FELTNR:=4;LÆSFELT(PICTURE(FELTNR));«, l3=0x29}
0x5d64…5d7a Line {l1=0x14, l2=» HOVED.A(2):=0;«, l3=0x14}
0x5d7a…5d8f Line {l1=0x13, l2=» HOVED.A(3):=0«, l3=0x13}
0x5d8f…5d99 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5d99…5dba Line {l1=0x1f, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x1f}
0x5dba…5dc5 Line {l1=0x09, l2=» Q(3);«, l3=0x09}
0x5dc5…5dec Line {l1=0x25, l2=» FOR FELTNR:=5 TO 15 DO Q(FELTNR);«, l3=0x25}
0x5dec…5dfe Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x5dfe…5e36 Line {l1=0x36, l2=» FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));«, l3=0x36}
0x5e36…5e42 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x5e42…5e50 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x5e50…5e5e Line {l1=0x0c, l2=» D23;«, l3=0x0c}
0x5e5e…5e93 Line {l1=0x33, l2=» WRITE('Ændring af feltnr (0 for færdig) ');«, l3=0x33}
0x5e93…5ed2 Line {l1=0x3d, l2=» READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)«, l3=0x3d}
0x5ed2…5f0e Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);«, l3=0x3a}
0x5f0e…5f3b Line {l1=0x2b, l2=» IF FELTNR IN (.2..15.) THEN Q(FELTNR)«, l3=0x2b}
0x5f3b…5f51 Line {l1=0x14, l2=» UNTIL FELTNR=0;«, l3=0x14}
0x5f51…5f73 Line {l1=0x20, l2=» INSERT(HOVZ.H,HOVF,HOVED.A);«, l3=0x20}
0x5f73…5f9f Line {l1=0x2a, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);«, l3=0x2a}
0x5f9f…5fb2 Line {l1=0x11, l2=» RELEASE(QUQ);«, l3=0x11}
0x5fb2…5fe7 Line {l1=0x33, l2=» (*$XT*) WRITELN('MEMAVAIL3 ',MEMAVAIL); (*$X-*)«, l3=0x33}
0x5fe7…5ff8 Line {l1=0x0f, l2=» LÆSDESC(2);«, l3=0x0f}
0x5ff8…602d Line {l1=0x33, l2=» (*$XT*) WRITELN('MEMAVAIL4 ',MEMAVAIL); (*$X-*)«, l3=0x33}
0x602d…6041 Line {l1=0x12, l2=» HOVEDE:=FALSE;«, l3=0x12}
0x6041…6050 Line {l1=0x0d, l2=» POSNR:=1;«, l3=0x0d}
0x6050…605e Line {l1=0x0c, l2=» OLINPROC«, l3=0x0c}
0x605e…6066 Line {l1=0x06, l2=» END;«, l3=0x06}
0x6066…6099 Line {l1=0x31, l2=» (*$XT*) WRITELN('MEMAVAIL5 ',MEMAVAIL); (*$X-*)«, l3=0x31}
0x6099…60aa Line {l1=0x0f, l2=» RELEASE(QUQ);«, l3=0x0f}
0x60aa…60dd Line {l1=0x31, l2=» (*$XT*) WRITELN('MEMAVAIL6 ',MEMAVAIL); (*$X-*)«, l3=0x31}
0x60dd…60e3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x60e3…60eb Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x60eb…60f2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x60f2…60fb Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x60fb…610e Line {l1=0x11, l2=» SYSTEM.A(1):=1;«, l3=0x11}
0x610e…612f Line {l1=0x1f, l2=» GETREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x612f…6159 Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x6159…6163 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x6163…6175 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x6175…6183 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x6183…6196 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x6196…61be Line {l1=0x26, l2=» WRITE('Flere tilbud/ordrer J/N ');«, l3=0x26}
0x61be…61cd Line {l1=0x0d, l2=» EDIT(CH);«, l3=0x0d}
0x61cd…61ea Line {l1=0x1b, l2=» IF CH='J' THEN MAINTAIN«, l3=0x1b}
0x61ea…61fb Line {l1=0x0f, l2=» UNTIL CH='N';«, l3=0x0f}
0x61fb…621c Line {l1=0x1f, l2=» PUTREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x621c…6246 Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x6246…625e Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x625e…6276 Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x6276…628e Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x628e…62a8 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x62a8…62ae Line {l1=0x04, l2=»END;«, l3=0x04}
0x62ae…62b6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x62b6…62bd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x62bd…62d5 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x62d5…62e1 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x62e1…62f0 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x62f0…6307 Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x6307…633d Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x633d…6372 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x6372…6378 Line {l1=0x04, l2=»END.«, l3=0x04}
0x6378…6380 00 00 20 54 48 45 4e 20 ┆ THEN ┆
0x6380…63a0 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 ┆WRITELN('IORESULT ',IORESULT)3 E┆
0x63a0…63c0 4e 44 2e 04 00 00 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 5e 28 31 29 3b 15 34 20 20 43 48 ┆ND. ESULT)3 END. ^(1); 4 CH┆
0x63c0…63e0 41 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 2c 43 4f 4e 43 41 54 28 27 48 4f 56 45 44 3a 50 ┆AIN('L *1',CONCAT('HOVED:P┆
0x63e0…6400 32 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 3b 34 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c ┆2,',FNAVN),QUQ);43 IF IORESULT<┆
0x6400…6420 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 ┆>0 THEN WRITELN('IORESULT ',IORE┆
0x6420…6440 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 3b 0f 1f 20 20 50 55 54 52 45 43 28 53 59 53 5a 2e 48 ┆SULT)3 END. ; PUTREC(SYSZ.H┆
0x6440…6460 2c 53 59 53 46 2c 53 59 53 54 45 4d 2e 41 29 3b 1f 28 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 ┆,SYSF,SYSTEM.A); ( IF IER<>0 TH┆
0x6460…6480 45 4e 20 45 52 52 4f 52 28 53 59 53 5a 2e 48 2e 46 49 4c 45 4e 41 4d 45 29 3b 28 16 20 20 49 43 ┆EN ERROR(SYSZ.H.FILENAME);( IC┆
0x6480…64a0 4c 4f 53 45 28 48 4f 56 5a 2e 48 2c 48 4f 56 46 29 3b 16 16 20 20 49 43 4c 4f 53 45 28 4f 4c 49 ┆LOSE(HOVZ.H,HOVF); ICLOSE(OLI┆
0x64a0…64c0 5a 2e 48 2c 4f 4c 49 46 29 3b 16 16 20 20 49 43 4c 4f 53 45 28 53 59 53 5a 2e 48 2c 53 59 53 46 ┆Z.H,OLIF); ICLOSE(SYSZ.H,SYSF┆
0x64c0…64e0 29 3b 16 18 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 18 04 45 4e ┆); WRITELN('ICLOSE ',IER) EN┆
0x64e0…6500 44 3b 04 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 16 20 20 49 3a 3d 4f 52 44 28 50 41 52 4d ┆D; (*$P*) BEGIN I:=ORD(PARM┆
0x6500…6520 5e 28 31 29 29 2d 34 38 3b 16 14 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 4d 45 4e 49 47 3b 14 ┆^(1))-48; USERNIVEAU:=MENIG; ┆
0x6520…6540 0e 20 20 57 48 49 4c 45 20 49 3e 30 20 44 4f 0e 07 20 20 42 45 47 49 4e 07 21 20 20 20 20 55 53 ┆ WHILE I>0 DO BEGIN ! US┆
0x6540…6560 45 52 4e 49 56 45 41 55 3a 3d 53 55 43 43 28 55 53 45 52 4e 49 56 45 41 55 29 3b 21 0a 20 20 20 ┆ERNIVEAU:=SUCC(USERNIVEAU);! ┆
0x6560…6580 20 49 3a 3d 49 2d 31 0a 06 20 20 45 4e 44 3b 06 0a 20 20 52 45 47 56 45 44 4c 3b 0a 0d 20 20 46 ┆ I:=I-1 END; REGVEDL; F┆
0x6580…65a0 4e 41 56 4e 3a 3d 27 20 27 3b 0d 15 20 20 46 4e 41 56 4e 28 31 29 3a 3d 50 41 52 4d 5e 28 31 29 ┆NAVN:=' '; FNAVN(1):=PARM^(1)┆
0x65a0…65c0 3b 15 34 20 20 43 48 41 49 4e 28 27 4c 20 20 20 20 20 20 20 2a 31 27 2c 43 4f 4e 43 41 54 28 27 ┆; 4 CHAIN('L *1',CONCAT('┆
0x65c0…65e0 48 4f 56 45 44 3a 50 32 2c 27 2c 46 4e 41 56 4e 29 2c 51 55 51 29 3b 34 33 20 20 49 46 20 49 4f ┆HOVED:P2,',FNAVN),QUQ);43 IF IO┆
0x65e0…6600 52 45 53 55 4c 54 3c 3e 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 ┆RESULT<>0 THEN WRITELN('IORESULT┆
0x6600…6620 20 27 2c 49 4f 52 45 53 55 4c 54 29 33 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ',IORESULT)3 END. ┆
0x6620…6640 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 ┆ ┆
[…0x1…]