|
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: 28128 (0x6de0)
Types: TextFile
Notes: Mikados_K
Names: »3EDITFIL.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »3EDITFIL.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;
USERNIVEAU:NIVEAU;
QUQ:^INTEGER;
I:INTEGER;
FNAVN:STRING;
(*$P*)
PROCEDURE REGVEDL;
CONST MAXFELTER=30;
MAXNØGLER=9;
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;
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 VINF,MAXF,GLAF,FARF,OLIF,HOVF,KOMF,SYSF:ISF;
VINZ:VINDUEZONE;
MAXZ:MAXMÅLZONE;
GLAZ,FARZ:GLASZONE;
OLIZ:OLINIEZONE;
HOVZ:HOVEDZONE;
KOMZ:KOMBIZONE;
SYSZ:SYSZONE;
VINDUE:VINDUEPOST;
MAXMÅL:MAXMÅLPOST;
GLAS,FARVE:GLASPOST;
OLINIE:OLINIEPOST;
HOVED:HOVEDPOST;
KOMBI:KOMBIPOST;
SYSTEM:SYSPOST;
FELT:NFELT;
HUSKNIV:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;
CH:STRING(1);
LINE:STRING;
RESULT:REAL;
HOVED: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*)
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);
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);
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)
END;
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$P*)
PROCEDURE MOVETOLINE(VAR F:NFELT);
VAR CH:STRING(1);
TAL,DECS,I:INTEGER;
RESULT,DM,DD:REAL;
BEGIN
CH:=' ';
CASE F^.FELTTYPE OF
HELTAL:BEGIN
LINE:='';
TAL:=ABS(HOVED.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 HOVED.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)
END;
DOBBTAL:BEGIN
LINE:='';
RESULT:=ABS(HOVED.A(F^.INDEKS)*10000.0+HOVED.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 HOVED.A(F^.INDEKS)*10000.0+HOVED.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):=HOVED.AA(I);
LINE:=CONCAT(LINE,CH)
END
END;
REEL:BEGIN
RESULT:=ABS(HOVED.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 HOVED.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)
END
END
END;
(*$P*)
PROCEDURE SKRIVFELT(VAR F:NFELT);
BEGIN
IF USERNIVEAU>=F^.KIKKENIVEAU THEN
BEGIN
GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);
WRITE(F^.LEDETEKST,' ');
MOVETOLINE(F);
WRITELN(LINE);
END
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,MODULC:INTEGER;
CPN:ARRAY (1..10) OF 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;
CPR:
IF LENGTH(LINE)=10 THEN
BEGIN
FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;
DAT0:=CPN(1)*10+CPN(2);
MÅNED:=CPN(3)*10+CPN(4);
ÅR:=CPN(5)*10+CPN(6);
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;
IF NOT BUMMED THEN
BEGIN
MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+
CPN(8)*3+CPN(9)*2+CPN(10);
IF MODULC MOD 11<>0 THEN BUMMED:=TRUE
END
END
ELSE BUMMED:=TRUE;
END
END;
(*$P*)
(*$L+*)
(*PROCEDURE LÆSFELT*)
BEGIN
REPEAT
BUMMED:=FALSE;
VAL:=F^.NÆSTEVAL;
LÆSLINIE;
IF HOVED 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 HOVED) THEN
CASE FELTNR OF
1:BEGIN
MAPOST.MEDARBEJDERNR:=TAL;
GETREC(MAZ.H,MAF,MAPOST.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR(MAZ.H.FILENAME);
BUMMED:=(IER=-6)
END
END
*)
END
UNTIL NOT BUMMED;
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
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR CH:STRING(1);
ENHEDER,CENTIMER:INTEGER;
LØN:REAL;
FUNCTION RUND(R:REAL):REAL;
VAR R1:REAL;
BEGIN
R1:=TRUNC(R/10000.0);
R1:=R1*10000.0;
RUND:=ROUND(R-R1)+R1
END;
BEGIN
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';
GOTOXY(1,23);
WRITELN('Rigtig ordre J/N');
GOTOXY(18,23);EDIT(CH)
UNTIL (CH='J') OR (CH='N');
IF CH='J' THEN
BEGIN
FELTNR:=2; LÆSFELT(PICTURE(FELTNR)); SKRIVFELT(PICTURE(FELTNR));
REPEAT
REPEAT
GOTOXY(1,23);
WRITELN('Ændring af feltnr (0 for færdig)',' ':47);
GOTOXY(34,23);
READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);
IF FELTNR IN (.2..15.) THEN
BEGIN
LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR))
END
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
GOTOXY(1,23);
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));
FELTNR:=3;LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR));
FOR FELTNR:=5 TO 15 DO BEGIN LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR))
END;
CLEARSCREEN;
FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));
REPEAT
REPEAT
GOTOXY(1,23);
WRITELN('Ændring af feltnr (0 for færdig)',' ':47);
GOTOXY(34,23);
READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)
UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);
IF FELTNR IN (.2..15.) THEN
BEGIN
LÆSFELT(PICTURE(FELTNR));
SKRIVFELT(PICTURE(FELTNR))
END
UNTIL FELTNR=0;
INSERT(HOVZ.H,HOVF,HOVED.A);
IF IER<>0 THEN ERROR(HOVZ.H.FILENAME)
END;
END;
(*$L-*)
(*$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);
WRITELN('Flere tilbud/ordrer J/N');
GOTOXY(28,23);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;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END;
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…00c9 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x00c9…00df Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x00df…00f2 Line {l1=0x11, l2=» I:INTEGER;«, l3=0x11}
0x00f2…0108 Line {l1=0x14, l2=» FNAVN:STRING;«, l3=0x14}
0x0108…0110 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0110…0124 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x0124…0139 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0139…014d Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x014d…0162 Line {l1=0x13, l2=» MVINDUEZ=292;«, l3=0x13}
0x0162…0177 Line {l1=0x13, l2=» MMAXMÅLZ=259;«, l3=0x13}
0x0177…018a Line {l1=0x11, l2=» MGLASZ=245;«, l3=0x11}
0x018a…019e Line {l1=0x12, l2=» MFARVEZ=245;«, l3=0x12}
0x019e…01b3 Line {l1=0x13, l2=» MOLINIEZ=344;«, l3=0x13}
0x01b3…01c8 Line {l1=0x13, l2=» MORDREHZ=331;«, l3=0x13}
0x01c8…01dc Line {l1=0x12, l2=» MKOMBIZ=241;«, l3=0x12}
0x01dc…01ee Line {l1=0x10, l2=» MSYSZ=243;«, l3=0x10}
0x01ee…01fd Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x01fd…0210 Line {l1=0x11, l2=»VINDUEZONE=RECORD«, l3=0x11}
0x0210…0227 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0227…0254 Line {l1=0x2b, l2=» T:ARRAY(1..MVINDUEZ) OF INTEGER;«, l3=0x2b}
0x0254…025a Line {l1=0x04, l2=»END;«, l3=0x04}
0x025a…025d Line {l1=0x01, l2=» «, l3=0x01}
0x025d…0270 Line {l1=0x11, l2=»MAXMÅLZONE=RECORD«, l3=0x11}
0x0270…0287 Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x0287…02b4 Line {l1=0x2b, l2=» T:ARRAY(1..MMAXMÅLZ) OF INTEGER;«, l3=0x2b}
0x02b4…02ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x02ba…02bd Line {l1=0x01, l2=» «, l3=0x01}
0x02bd…02ce Line {l1=0x0f, l2=»GLASZONE=RECORD«, l3=0x0f}
0x02ce…02e3 Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x02e3…030c Line {l1=0x27, l2=» T:ARRAY(1..MGLASZ) OF INTEGER;«, l3=0x27}
0x030c…0312 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0312…0315 Line {l1=0x01, l2=» «, l3=0x01}
0x0315…0328 Line {l1=0x11, l2=»OLINIEZONE=RECORD«, l3=0x11}
0x0328…033f Line {l1=0x15, l2=» H:ISFHEAD;«, l3=0x15}
0x033f…036c Line {l1=0x2b, l2=» T:ARRAY(1..MOLINIEZ) OF INTEGER;«, l3=0x2b}
0x036c…0372 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0372…0375 Line {l1=0x01, l2=» «, l3=0x01}
0x0375…0387 Line {l1=0x10, l2=»HOVEDZONE=RECORD«, l3=0x10}
0x0387…039d Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x039d…03c9 Line {l1=0x2a, l2=» T:ARRAY(1..MORDREHZ) OF INTEGER;«, l3=0x2a}
0x03c9…03cf Line {l1=0x04, l2=»END;«, l3=0x04}
0x03cf…03d2 Line {l1=0x01, l2=» «, l3=0x01}
0x03d2…03e4 Line {l1=0x10, l2=»KOMBIZONE=RECORD«, l3=0x10}
0x03e4…03fa Line {l1=0x14, l2=» H:ISFHEAD;«, l3=0x14}
0x03fa…0425 Line {l1=0x29, l2=» T:ARRAY(1..MKOMBIZ) OF INTEGER;«, l3=0x29}
0x0425…042b Line {l1=0x04, l2=»END;«, l3=0x04}
0x042b…042e Line {l1=0x01, l2=» «, l3=0x01}
0x042e…043e Line {l1=0x0e, l2=»SYSZONE=RECORD«, l3=0x0e}
0x043e…0452 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0452…0479 Line {l1=0x25, l2=» T:ARRAY(1..MSYSZ) OF INTEGER;«, l3=0x25}
0x0479…047f Line {l1=0x04, l2=»END;«, l3=0x04}
0x047f…04a5 Line {l1=0x24, l2=»ARAR=PACKED ARRAY(-11..-10) OF CHAR;«, l3=0x24}
0x04a5…04c0 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x04c0…04de Line {l1=0x1c, l2=»AR13=ARRAY(1..3) OF INTEGER;«, l3=0x1c}
0x04de…04fc Line {l1=0x1c, l2=»AR14=ARRAY(1..4) OF INTEGER;«, l3=0x1c}
0x04fc…051a Line {l1=0x1c, l2=»AR15=ARRAY(1..5) OF INTEGER;«, l3=0x1c}
0x051a…0538 Line {l1=0x1c, l2=»AR19=ARRAY(1..9) OF INTEGER;«, l3=0x1c}
0x0538…053b Line {l1=0x01, l2=» «, l3=0x01}
0x053b…055c Line {l1=0x1f, l2=»DOBBINT=ARRAY(1..2) OF INTEGER;«, l3=0x1f}
0x055c…055f Line {l1=0x01, l2=» «, l3=0x01}
0x055f…0581 Line {l1=0x20, l2=»TEK=PACKED ARRAY(1..30) OF CHAR;«, l3=0x20}
0x0581…0584 Line {l1=0x01, l2=» «, l3=0x01}
0x0584…0597 Line {l1=0x11, l2=»VINDUEPOST=RECORD«, l3=0x11}
0x0597…05ac Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x05ac…05be Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x05be…05d3 Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x05d3…05e3 Line {l1=0x0e, l2=» (*NR,«, l3=0x0e}
0x05e3…05f7 Line {l1=0x12, l2=» KARMNR,«, l3=0x12}
0x05f7…0613 Line {l1=0x1a, l2=» MAXMÅL:INTEGER;«, l3=0x1a}
0x0613…063e Line {l1=0x29, l2=» RAMME:ARRAY(1..16) OF INTEGER;«, l3=0x29}
0x063e…0657 Line {l1=0x17, l2=» BESLAG:AR14;«, l3=0x17}
0x0657…066b Line {l1=0x12, l2=» BREDDE,«, l3=0x12}
0x066b…0685 Line {l1=0x18, l2=» HØJDE:AR13;*)«, l3=0x18}
0x0685…06ad Line {l1=0x26, l2=» C:ARRAY (1..29) OF INTEGER;«, l3=0x26}
0x06ad…06c3 Line {l1=0x14, l2=» TEKST:TEK«, l3=0x14}
0x06c3…06c9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06c9…06cc Line {l1=0x01, l2=» «, l3=0x01}
0x06cc…06df Line {l1=0x11, l2=»MAXMÅLPOST=RECORD«, l3=0x11}
0x06df…06f4 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x06f4…0706 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x0706…071b Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x071b…072e Line {l1=0x11, l2=» (*AREAL,«, l3=0x11}
0x072e…0749 Line {l1=0x19, l2=» BHFORHOL:REAL;«, l3=0x19}
0x0749…0759 Line {l1=0x0e, l2=» NR,«, l3=0x0e}
0x0759…076d Line {l1=0x12, l2=» BREDDE,«, l3=0x12}
0x076d…078a Line {l1=0x1b, l2=» HØJDE:INTEGER;*)«, l3=0x1b}
0x078a…07b2 Line {l1=0x26, l2=» C:ARRAY (1..11) OF INTEGER;«, l3=0x26}
0x07b2…07c8 Line {l1=0x14, l2=» TEKST:TEK«, l3=0x14}
0x07c8…07ce Line {l1=0x04, l2=»END;«, l3=0x04}
0x07ce…07df Line {l1=0x0f, l2=»GLASPOST=RECORD«, l3=0x0f}
0x07df…07f2 Line {l1=0x11, l2=» AA:ARAR;«, l3=0x11}
0x07f2…0802 Line {l1=0x0e, l2=» A:AR;«, l3=0x0e}
0x0802…0815 Line {l1=0x11, l2=» AAA:RAR;«, l3=0x11}
0x0815…0823 Line {l1=0x0c, l2=» (*NR,«, l3=0x0c}
0x0823…083d Line {l1=0x18, l2=» KODE:INTEGER;*)«, l3=0x18}
0x083d…0862 Line {l1=0x23, l2=» C:ARRAY (1..2) OF INTEGER;«, l3=0x23}
0x0862…0876 Line {l1=0x12, l2=» TEKST:TEK«, l3=0x12}
0x0876…087c Line {l1=0x04, l2=»END;«, l3=0x04}
0x087c…087f Line {l1=0x01, l2=» «, l3=0x01}
0x087f…0892 Line {l1=0x11, l2=»OLINIEPOST=RECORD«, l3=0x11}
0x0892…08a7 Line {l1=0x13, l2=» AA:ARAR;«, l3=0x13}
0x08a7…08b9 Line {l1=0x10, l2=» A:AR;«, l3=0x10}
0x08b9…08ce Line {l1=0x13, l2=» AAA:RAR;«, l3=0x13}
0x08ce…08e4 Line {l1=0x14, l2=» (*KOSTPRIS,«, l3=0x14}
0x08e4…08fa Line {l1=0x14, l2=» SALGPRIS,«, l3=0x14}
0x08fa…0912 Line {l1=0x16, l2=» RABAT:REAL;«, l3=0x16}
0x0912…0927 Line {l1=0x13, l2=» ORDRENR,«, l3=0x13}
0x0927…093d Line {l1=0x14, l2=» POSITION,«, l3=0x14}
0x093d…0950 Line {l1=0x11, l2=» ANTAL,«, l3=0x11}
0x0950…0966 Line {l1=0x14, l2=» VINDUENR,«, l3=0x14}
0x0966…097a Line {l1=0x12, l2=» FARVE1,«, l3=0x12}
0x097a…098e Line {l1=0x12, l2=» FARVE2,«, l3=0x12}
0x098e…09a4 Line {l1=0x14, l2=» RAMMENR1,«, l3=0x14}
0x09a4…09ba Line {l1=0x14, l2=» GLASART1,«, l3=0x14}
0x09ba…09d0 Line {l1=0x14, l2=» RAMMENR2,«, l3=0x14}
0x09d0…09e6 Line {l1=0x14, l2=» GLASART2,«, l3=0x14}
0x09e6…09fc Line {l1=0x14, l2=» RAMMENR3,«, l3=0x14}
0x09fc…0a12 Line {l1=0x14, l2=» GLASART3,«, l3=0x14}
0x0a12…0a28 Line {l1=0x14, l2=» BLAMBRED,«, l3=0x14}
0x0a28…0a46 Line {l1=0x1c, l2=» BLAMHØJD:INTEGER;«, l3=0x1c}
0x0a46…0a5f Line {l1=0x17, l2=» BREDDE:AR13;«, l3=0x17}
0x0a5f…0a77 Line {l1=0x16, l2=» HØJDE:AR13;«, l3=0x16}
0x0a77…0a91 Line {l1=0x18, l2=» HÆNGSEL:AR14;«, l3=0x18}
0x0a91…0aad Line {l1=0x1a, l2=» MONTER:INTEGER;«, l3=0x1a}
0x0aad…0acb Line {l1=0x1c, l2=» STATUS:INTEGER;*)«, l3=0x1c}
0x0acb…0af2 Line {l1=0x25, l2=» C:ARRAY (1..38) OF INTEGER«, l3=0x25}
0x0af2…0af8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0af8…0b0a Line {l1=0x10, l2=»HOVEDPOST=RECORD«, l3=0x10}
0x0b0a…0b1e Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0b1e…0b2f Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0b2f…0b43 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0b43…0b5a Line {l1=0x15, l2=» (*NR:INTEGER;«, l3=0x15}
0x0b5a…0b73 Line {l1=0x17, l2=» DATO:DOBBINT;«, l3=0x17}
0x0b73…0b90 Line {l1=0x1b, l2=» TILBUDNR:INTEGER;«, l3=0x1b}
0x0b90…0bae Line {l1=0x1c, l2=» TLBUDDATO:DOBBINT;«, l3=0x1c}
0x0bae…0bc9 Line {l1=0x19, l2=» SAGSNR:INTEGER;«, l3=0x19}
0x0bc9…0bdd Line {l1=0x12, l2=» KUNDENR,«, l3=0x12}
0x0bdd…0bf8 Line {l1=0x19, l2=» POSTNR:DOBBINT;«, l3=0x19}
0x0bf8…0c0c Line {l1=0x12, l2=» LEVTERM,«, l3=0x12}
0x0c0c…0c27 Line {l1=0x19, l2=» STATUS:INTEGER;«, l3=0x19}
0x0c27…0c3d Line {l1=0x14, l2=» KUNDENAVN,«, l3=0x14}
0x0c3d…0c4e Line {l1=0x0f, l2=» GADE,«, l3=0x0f}
0x0c4e…0c5d Line {l1=0x0d, l2=» BY,«, l3=0x0d}
0x0c5d…0c75 Line {l1=0x16, l2=» KONTAKT:TEK;«, l3=0x16}
0x0c75…0ca5 Line {l1=0x2e, l2=» TELEFON:PACKED ARRAY(1..10) OF CHAR;«, l3=0x2e}
0x0ca5…0cbd Line {l1=0x16, l2=» LEVSTED:TEK;«, l3=0x16}
0x0cbd…0cee Line {l1=0x2f, l2=» INITIAL:PACKED ARRAY(1..4) OF CHAR;*)«, l3=0x2f}
0x0cee…0d14 Line {l1=0x24, l2=» C:ARRAY (1..95) OF INTEGER«, l3=0x24}
0x0d14…0d1a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d1a…0d2c Line {l1=0x10, l2=»KOMBIPOST=RECORD«, l3=0x10}
0x0d2c…0d40 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0d40…0d51 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0d51…0d65 Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0d65…0d74 Line {l1=0x0d, l2=» (*NR,«, l3=0x0d}
0x0d74…0d8b Line {l1=0x15, l2=» KARMPROFIL,«, l3=0x15}
0x0d8b…0d9d Line {l1=0x10, l2=» POST1,«, l3=0x10}
0x0d9d…0daf Line {l1=0x10, l2=» POST2,«, l3=0x10}
0x0daf…0dc7 Line {l1=0x16, l2=» RAMMEPROFIL,«, l3=0x16}
0x0dc7…0de6 Line {l1=0x1d, l2=» F3PROFIL:INTEGER;*)«, l3=0x1d}
0x0de6…0e0b Line {l1=0x23, l2=» C:ARRAY (1..6) OF INTEGER«, l3=0x23}
0x0e0b…0e11 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e11…0e21 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0e21…0e35 Line {l1=0x12, l2=» AA:ARAR;«, l3=0x12}
0x0e35…0e46 Line {l1=0x0f, l2=» A:AR;«, l3=0x0f}
0x0e46…0e5a Line {l1=0x12, l2=» AAA:RAR;«, l3=0x12}
0x0e5a…0e69 Line {l1=0x0d, l2=» (*NR,«, l3=0x0d}
0x0e69…0e7d Line {l1=0x12, l2=» ORDRENR,«, l3=0x12}
0x0e7d…0e9f Line {l1=0x20, l2=» SDAT1,SDAT2:INTEGER;*)«, l3=0x20}
0x0e9f…0ec4 Line {l1=0x23, l2=» C:ARRAY (1..4) OF INTEGER«, l3=0x23}
0x0ec4…0eca Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eca…0ee3 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0ee3…0ef4 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x0ef4…0f04 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x0f04…0f0a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f0a…0f2e Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x0f2e…0f5f Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x0f5f…0f86 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0f86…0f9e Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x0f9e…0fb2 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0fb2…0fca Line {l1=0x16, l2=» FELTNAVN:STRING(8);«, l3=0x16}
0x0fca…0ff0 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x0ff0…0ffe Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x0ffe…1019 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x1019…103d Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x103d…1054 Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x1054…1075 Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x1075…1089 Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x1089…109d Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x109d…10b1 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x10b1…10cc Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x10cc…10e4 Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x10e4…1102 Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x1102…1110 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x1110…1131 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x1131…1155 Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x1155…1185 Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x1185…11a8 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x11a8…11bc Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x11bc…11c2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x11c2…11e4 Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x11e4…1216 Line {l1=0x30, l2=»VAR VINF,MAXF,GLAF,FARF,OLIF,HOVF,KOMF,SYSF:ISF;«, l3=0x30}
0x1216…122c Line {l1=0x14, l2=» VINZ:VINDUEZONE;«, l3=0x14}
0x122c…1242 Line {l1=0x14, l2=» MAXZ:MAXMÅLZONE;«, l3=0x14}
0x1242…125b Line {l1=0x17, l2=» GLAZ,FARZ:GLASZONE;«, l3=0x17}
0x125b…1271 Line {l1=0x14, l2=» OLIZ:OLINIEZONE;«, l3=0x14}
0x1271…1286 Line {l1=0x13, l2=» HOVZ:HOVEDZONE;«, l3=0x13}
0x1286…129b Line {l1=0x13, l2=» KOMZ:KOMBIZONE;«, l3=0x13}
0x129b…12ae Line {l1=0x11, l2=» SYSZ:SYSZONE;«, l3=0x11}
0x12ae…12c6 Line {l1=0x16, l2=» VINDUE:VINDUEPOST;«, l3=0x16}
0x12c6…12de Line {l1=0x16, l2=» MAXMÅL:MAXMÅLPOST;«, l3=0x16}
0x12de…12f8 Line {l1=0x18, l2=» GLAS,FARVE:GLASPOST;«, l3=0x18}
0x12f8…1310 Line {l1=0x16, l2=» OLINIE:OLINIEPOST;«, l3=0x16}
0x1310…1326 Line {l1=0x14, l2=» HOVED:HOVEDPOST;«, l3=0x14}
0x1326…133c Line {l1=0x14, l2=» KOMBI:KOMBIPOST;«, l3=0x14}
0x133c…1351 Line {l1=0x13, l2=» SYSTEM:SYSPOST;«, l3=0x13}
0x1351…1362 Line {l1=0x0f, l2=» FELT:NFELT;«, l3=0x0f}
0x1362…1377 Line {l1=0x13, l2=» HUSKNIV:NIVEAU;«, l3=0x13}
0x1377…13a3 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x13a3…13d9 Line {l1=0x34, l2=» LINES,OPTION,IER,I,J,ANTALFELTER,FELTNR:INTEGER;«, l3=0x34}
0x13d9…13ec Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x13ec…13fe Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x13fe…1410 Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x1410…1424 Line {l1=0x12, l2=» HOVED:BOOLEAN;«, l3=0x12}
0x1424…142c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x142c…1458 Line {l1=0x2a, l2=»SEGMENT PROCEDURE LÆSDESC(DESCNR:INTEGER);«, l3=0x2a}
0x1458…146e Line {l1=0x14, l2=»VAR DESCNAVN:STRING;«, l3=0x14}
0x146e…1481 Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x1481…1488 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1488…149c Line {l1=0x12, l2=» IF DESCNR=1 THEN«, l3=0x12}
0x149c…14bd Line {l1=0x1f, l2=» DESCNAVN:='OINDDESC:P2:0:J'«, l3=0x1f}
0x14bd…14c5 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x14c5…14e7 Line {l1=0x20, l2=» DESCNAVN:='OLITDESC:P2:0:J';«, l3=0x20}
0x14e7…1502 Line {l1=0x19, l2=» REWRITE(FFIL,DESCNAVN);«, l3=0x19}
0x1502…1505 Line {l1=0x01, l2=» «, l3=0x01}
0x1505…1513 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x1513…151c Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x151c…1539 Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x1539…1542 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1542…154f Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x154f…156b Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x156b…1594 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x1594…15ce Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x15ce…15d8 Line {l1=0x08, l2=» END;«, l3=0x08}
0x15d8…15ef Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x15ef…1608 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x1608…1613 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1613…162e Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x162e…164f Line {l1=0x1f, l2=» FELTNAVN:=FFIL^.FELTNAVN;«, l3=0x1f}
0x164f…1670 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x1670…1691 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x1691…16b0 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x16b0…16cf Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x16cf…16f6 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x16f6…171d Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x171d…1740 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x1740…1765 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x1765…1788 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x1788…17a9 Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x17a9…17c6 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x17c6…17e3 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x17e3…1800 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x1800…182d Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x182d…1851 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x1851…185e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x185e…1872 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x1872…1889 Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x1889…18af Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x18af…18ca Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x18ca…1903 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x1903…1934 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x1934…1964 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x1964…197e Line {l1=0x18, l2=» END;«, l3=0x18}
0x197e…1999 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x1999…19d2 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x19d2…1a20 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x1a20…1a6d Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x1a6d…1a87 Line {l1=0x18, l2=» END;«, l3=0x18}
0x1a87…1aa2 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x1aa2…1adb Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x1adb…1b0e Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x1b0e…1b40 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x1b40…1b5a Line {l1=0x18, l2=» END;«, l3=0x18}
0x1b5a…1b8a Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x1b8a…1b98 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1b98…1bb7 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x1bb7…1bda Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x1bda…1c0e Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x1c0e…1c1a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1c1a…1c35 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x1c35…1c3f Line {l1=0x08, l2=» END;«, l3=0x08}
0x1c3f…1c4e Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x1c4e…1c56 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1c56…1c66 Line {l1=0x0e, l2=» CLOSE(FFIL);«, l3=0x0e}
0x1c66…1c78 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x1c78…1c7e Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c7e…1c86 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c86…1c8f Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1c8f…1ca1 Line {l1=0x10, l2=»(*$R-,IFORWARD*)«, l3=0x10}
0x1ca1…1cae Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x1cae…1cbc Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x1cbc…1ce7 Line {l1=0x29, l2=»SEGMENT PROCEDURE ERROR(VAR FIL:FILNAVN);«, l3=0x29}
0x1ce7…1cee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1cee…1d23 Line {l1=0x33, l2=» WRITELN('FEJL I REGISTER ',FIL,' FEJLKODE ',IER);«, l3=0x33}
0x1d23…1d3b Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x1d3b…1d53 Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x1d53…1d6b Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x1d6b…1d7c Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x1d7c…1d82 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d82…1dad Line {l1=0x29, l2=»SEGMENT PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x29}
0x1dad…1dbd Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1dbd…1dc4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1dc4…1dd5 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x1dd5…1e24 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x1e24…1e54 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1e54…1e8d Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1e8d…1ea9 Line {l1=0x1a, l2=» IF I<>0 THEN ERROR(FIL);«, l3=0x1a}
0x1ea9…1eb8 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1eb8…1ebe Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ebe…1ec6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1ec6…1edf Line {l1=0x17, l2=»SEGMENT PROCEDURE INIT;«, l3=0x17}
0x1edf…1ee6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ee6…1ef6 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1ef6…1f16 Line {l1=0x1e, l2=» HOVZ.H.FILENAME:='ORDREHOV';«, l3=0x1e}
0x1f16…1f36 Line {l1=0x1e, l2=» FNAVN:='ORDREHOV:P2:0000:I';«, l3=0x1e}
0x1f36…1f4e Line {l1=0x16, l2=» REWRITE(HOVF,FNAVN);«, l3=0x16}
0x1f4e…1f91 Line {l1=0x41, l2=» IOPEN(HOVZ.H,HOVF,SKRIV);IF IER<>0 THEN OFEJL(HOVZ.H.FILENAME);«, l3=0x41}
0x1f91…1fb1 Line {l1=0x1e, l2=» OLIZ.H.FILENAME:='OLINIE ';«, l3=0x1e}
0x1fb1…1fcf Line {l1=0x1c, l2=» FNAVN:='OLINIE:P2:0000:I';«, l3=0x1c}
0x1fcf…1fe7 Line {l1=0x16, l2=» REWRITE(OLIF,FNAVN);«, l3=0x16}
0x1fe7…202a Line {l1=0x41, l2=» IOPEN(OLIZ.H,OLIF,SKRIV);IF IER<>0 THEN OFEJL(OLIZ.H.FILENAME);«, l3=0x41}
0x202a…204a Line {l1=0x1e, l2=» SYSZ.H.FILENAME:='SYSREG ';«, l3=0x1e}
0x204a…2068 Line {l1=0x1c, l2=» FNAVN:='SYSREG:P2:0000:I';«, l3=0x1c}
0x2068…2080 Line {l1=0x16, l2=» REWRITE(SYSF,FNAVN);«, l3=0x16}
0x2080…20c3 Line {l1=0x41, l2=» IOPEN(SYSZ.H,SYSF,SKRIV);IF IER<>0 THEN OFEJL(SYSZ.H.FILENAME);«, l3=0x41}
0x20c3…20e3 Line {l1=0x1e, l2=» VINZ.H.FILENAME:='VINDUE ';«, l3=0x1e}
0x20e3…2101 Line {l1=0x1c, l2=» FNAVN:='VINDUE:P2:0000:I';«, l3=0x1c}
0x2101…2119 Line {l1=0x16, l2=» REWRITE(VINF,FNAVN);«, l3=0x16}
0x2119…215a Line {l1=0x3f, l2=» IOPEN(VINZ.H,VINF,LÆS);IF IER<>0 THEN OFEJL(VINZ.H.FILENAME);«, l3=0x3f}
0x215a…217a Line {l1=0x1e, l2=» MAXZ.H.FILENAME:='MAXMÅL ';«, l3=0x1e}
0x217a…2198 Line {l1=0x1c, l2=» FNAVN:='MAXMÅL:P2:0000:I';«, l3=0x1c}
0x2198…21b0 Line {l1=0x16, l2=» REWRITE(MAXF,FNAVN);«, l3=0x16}
0x21b0…21f1 Line {l1=0x3f, l2=» IOPEN(MAXZ.H,MAXF,LÆS);IF IER<>0 THEN OFEJL(MAXZ.H.FILENAME);«, l3=0x3f}
0x21f1…2211 Line {l1=0x1e, l2=» GLAZ.H.FILENAME:='GLAS ';«, l3=0x1e}
0x2211…222d Line {l1=0x1a, l2=» FNAVN:='GLAS:P2:0000:I';«, l3=0x1a}
0x222d…2245 Line {l1=0x16, l2=» REWRITE(GLAF,FNAVN);«, l3=0x16}
0x2245…2286 Line {l1=0x3f, l2=» IOPEN(GLAZ.H,GLAF,LÆS);IF IER<>0 THEN OFEJL(GLAZ.H.FILENAME);«, l3=0x3f}
0x2286…22a6 Line {l1=0x1e, l2=» FARZ.H.FILENAME:='FARVE ';«, l3=0x1e}
0x22a6…22c3 Line {l1=0x1b, l2=» FNAVN:='FARVE:P2:0000:I';«, l3=0x1b}
0x22c3…22db Line {l1=0x16, l2=» REWRITE(FARF,FNAVN);«, l3=0x16}
0x22db…231c Line {l1=0x3f, l2=» IOPEN(FARZ.H,FARF,LÆS);IF IER<>0 THEN OFEJL(FARZ.H.FILENAME);«, l3=0x3f}
0x231c…233c Line {l1=0x1e, l2=» KOMZ.H.FILENAME:='KOMBINAT';«, l3=0x1e}
0x233c…235c Line {l1=0x1e, l2=» FNAVN:='KOMBINAT:P2:0000:I';«, l3=0x1e}
0x235c…2374 Line {l1=0x16, l2=» REWRITE(KOMF,FNAVN);«, l3=0x16}
0x2374…23b4 Line {l1=0x3e, l2=» IOPEN(KOMZ.H,KOMF,LÆS);IF IER<>0 THEN OFEJL(KOMZ.H.FILENAME)«, l3=0x3e}
0x23b4…23ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x23ba…23ca Line {l1=0x0e, l2=»(*$IEXCOMCOP*)«, l3=0x0e}
0x23ca…23d7 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x23d7…23e7 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x23e7…23f7 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x23f7…2406 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x2406…2414 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x2414…2422 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x2422…2431 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x2431…243f Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x243f…2447 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2447…246b Line {l1=0x22, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT);«, l3=0x22}
0x246b…247e Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x247e…2497 Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x2497…24af Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x24af…24b6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x24b6…24c2 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x24c2…24dd Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x24dd…24f1 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x24f1…250b Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x250b…2539 Line {l1=0x2c, l2=» TAL:=ABS(HOVED.A(F^.INDEKS));«, l3=0x2c}
0x2539…2550 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2550…257d Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x257d…25a6 Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x25a6…25c8 Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x25c8…25e5 Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x25e5…262d Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x262d…2671 Line {l1=0x42, l2=» IF HOVED.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)«, l3=0x42}
0x2671…2684 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2684…2698 Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x2698…26b2 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x26b2…2700 Line {l1=0x4c, l2=» RESULT:=ABS(HOVED.A(F^.INDEKS)*10000.0+HOVED.A(F^.INDEKS+1));«, l3=0x4c}
0x2700…2721 Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x2721…2738 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2738…2762 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2762…278e Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x278e…27aa Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x27aa…27d4 Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x27d4…27eb Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x27eb…280c Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x280c…2835 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2835…285f Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x285f…288b Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x288b…28a9 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x28a9…28c8 Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x28c8…2910 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x2910…295c Line {l1=0x4a, l2=» IF HOVED.A(F^.INDEKS)*10000.0+HOVED.A(F^.INDEKS+1)<0.0 THEN«, l3=0x4a}
0x295c…2985 Line {l1=0x27, l2=» LINE:=CONCAT('-',LINE)«, l3=0x27}
0x2985…2998 Line {l1=0x11, l2=» END;«, l3=0x11}
0x2998…29ac Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x29ac…29c6 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x29c6…2a03 Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x2a03…2a19 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2a19…2a3f Line {l1=0x24, l2=» CH(1):=HOVED.AA(I);«, l3=0x24}
0x2a3f…2a67 Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x2a67…2a7b Line {l1=0x12, l2=» END«, l3=0x12}
0x2a7b…2a8e Line {l1=0x11, l2=» END;«, l3=0x11}
0x2a8e…2aa2 Line {l1=0x12, l2=» REEL:BEGIN«, l3=0x12}
0x2aa2…2ad5 Line {l1=0x31, l2=» RESULT:=ABS(HOVED.AAA(F^.INDEKS));«, l3=0x31}
0x2ad5…2af3 Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x2af3…2b12 Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x2b12…2b2c Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x2b2c…2b41 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2b41…2b57 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2b57…2b72 Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x2b72…2bc0 Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x2bc0…2bd5 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2bd5…2bef Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x2bef…2c13 Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x2c13…2c29 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2c29…2c4f Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x2c4f…2c68 Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x2c68…2c94 Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x2c94…2cc2 Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x2cc2…2ce2 Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x2ce2…2d18 Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x2d18…2d2c Line {l1=0x12, l2=» END«, l3=0x12}
0x2d2c…2d41 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x2d41…2d57 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x2d57…2d72 Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x2d72…2daa Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x2daa…2dd4 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2dd4…2e00 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2e00…2e1e Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2e1e…2e33 Line {l1=0x13, l2=» END;«, l3=0x13}
0x2e33…2e4a Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x2e4a…2e6b Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x2e6b…2e94 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x2e94…2ecc Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x2ecc…2ef6 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x2ef6…2f22 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x2f22…2f40 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x2f40…2f5f Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x2f5f…2fa7 Line {l1=0x46, l2=» IF HOVED.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)«, l3=0x46}
0x2fa7…2fb9 Line {l1=0x10, l2=» END«, l3=0x10}
0x2fb9…2fc4 Line {l1=0x09, l2=» END«, l3=0x09}
0x2fc4…2fca Line {l1=0x04, l2=»END;«, l3=0x04}
0x2fca…2fd2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2fd2…2ff5 Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x2ff5…2ffc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2ffc…3021 Line {l1=0x23, l2=» IF USERNIVEAU>=F^.KIKKENIVEAU THEN«, l3=0x23}
0x3021…3029 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3029…304b Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x304b…3067 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x3067…3079 Line {l1=0x10, l2=» MOVETOLINE(F);«, l3=0x10}
0x3079…308b Line {l1=0x10, l2=» WRITELN(LINE);«, l3=0x10}
0x308b…3091 Line {l1=0x04, l2=» END«, l3=0x04}
0x3091…3097 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3097…309f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x309f…30c0 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x30c0…30d9 Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x30d9…30e9 Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x30e9…30fe Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x30fe…3101 Line {l1=0x01, l2=» «, l3=0x01}
0x3101…3109 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3109…311e Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x311e…312f Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x312f…314c Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x314c…315a Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x315a…315d Line {l1=0x01, l2=» «, l3=0x01}
0x315d…3164 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3164…316e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x316e…317e Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x317e…3190 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x3190…319d Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x319d…31ab Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x31ab…31c7 Line {l1=0x1a, l2=» GOTOXY(1,F^.INDPOS.Y);«, l3=0x1a}
0x31c7…31dd Line {l1=0x14, l2=» WRITELN(' ':79);«, l3=0x14}
0x31dd…3203 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x3203…323d Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x323d…327a Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x327a…328a Line {l1=0x0e, l2=» LINE:='0';«, l3=0x0e}
0x328a…32a5 Line {l1=0x19, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x19}
0x32a5…32e8 Line {l1=0x41, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1);«, l3=0x41}
0x32e8…3301 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x3301…3309 Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x3309…332e Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x332e…3339 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3339…334a Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x334a…3371 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x3371…338e Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x338e…33b0 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x33b0…33be Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x33be…33e0 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x33e0…33ea Line {l1=0x08, l2=» END;«, l3=0x08}
0x33ea…33fb Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x33fb…3417 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3417…3422 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3422…342f Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x342f…3442 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x3442…345d Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x345d…346a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x346a…3480 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x3480…348e Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x348e…349a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x349a…34b9 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x34b9…34c6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34c6…34d9 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x34d9…34ea Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x34ea…3519 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x3519…3528 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3528…353e Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x353e…3559 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3559…3567 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x3567…3592 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x3592…359e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x359e…35bd Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x35bd…35cf Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x35cf…35ea Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x35ea…3636 Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x3636…3666 Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x3666…367b Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x367b…36a8 Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x36a8…36d9 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x36d9…36ec Line {l1=0x11, l2=» END«, l3=0x11}
0x36ec…370a Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x370a…3715 Line {l1=0x09, l2=» END«, l3=0x09}
0x3715…372d Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x372d…3734 Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x3734…3750 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x3750…375b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x375b…3768 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x3768…377b Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x377b…378c Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x378c…37a7 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x37a7…37b4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37b4…37ca Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x37ca…37d8 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x37d8…37e4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x37e4…3812 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x3812…381f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x381f…3832 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x3832…3843 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x3843…386c Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x386c…3899 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x3899…38a7 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x38a7…38d7 Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x38d7…38ea Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x38ea…38f8 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x38f8…3907 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3907…391d Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x391d…3938 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3938…3945 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3945…3951 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3951…3961 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x3961…3980 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x3980…398d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x398d…399e Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x399e…39b4 Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x39b4…39dd Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x39dd…39ec Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x39ec…3a1c Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x3a1c…3a34 Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x3a34…3a41 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3a41…3a4f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3a4f…3a5e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3a5e…3a74 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x3a74…3a8f Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x3a8f…3a9c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3a9c…3aa8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3aa8…3ac7 Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x3ac7…3aec Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x3aec…3af5 Line {l1=0x07, l2=» END«, l3=0x07}
0x3af5…3b08 Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x3b08…3b11 Line {l1=0x07, l2=» END«, l3=0x07}
0x3b11…3b1d Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x3b1d…3b23 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3b23…3b2b Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x3b2b…3b40 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x3b40…3b65 Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x3b65…3b88 Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x3b88…3b8f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3b8f…3bae Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x3bae…3bbc Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x3bbc…3bed Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x3bed…3bfb Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x3bfb…3c3b Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x3c3b…3c7a Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x3c7a…3c88 Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x3c88…3cc1 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x3cc1…3cca Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x3cca…3ce6 Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x3ce6…3cf1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3cf1…3d22 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x3d22…3d56 Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x3d56…3d89 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x3d89…3dd7 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3dd7…3df1 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3df1…3e06 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3e06…3e35 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x3e35…3e80 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x3e80…3e8b Line {l1=0x09, l2=» END«, l3=0x09}
0x3e8b…3e94 Line {l1=0x07, l2=» END«, l3=0x07}
0x3e94…3eac Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x3eac…3eb4 Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x3eb4…3ed1 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x3ed1…3edc Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3edc…3f0e Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x3f0e…3f2d Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x3f2d…3f4d Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x3f4d…3f6a Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x3f6a…3fb8 Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x3fb8…3fd2 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x3fd2…3fe7 Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x3fe7…4016 Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x4016…4060 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x4060…406c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x406c…4086 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x4086…4093 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4093…40e2 Line {l1=0x4d, l2=» MODULC:=CPN(1)*4+CPN(2)*3+CPN(3)*2+CPN(4)*7+CPN(5)*6+CPN(6)*5+CPN(7)*4+«, l3=0x4d}
0x40e2…410c Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x410c…413b Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x413b…4146 Line {l1=0x09, l2=» END«, l3=0x09}
0x4146…414f Line {l1=0x07, l2=» END«, l3=0x07}
0x414f…4167 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x4167…416e Line {l1=0x05, l2=» END«, l3=0x05}
0x416e…4174 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4174…417c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x417c…4185 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x4185…419c Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x419c…41a3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x41a3…41ad Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x41ad…41c1 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x41c1…41d8 Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x41d8…41e7 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x41e7…41fa Line {l1=0x11, l2=» IF HOVED THEN«, l3=0x11}
0x41fa…4205 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4205…423e Line {l1=0x37, l2=» IF (RESULT=0.0) AND ((FELTNR=2) OR (FELTNR=4)) THEN«, l3=0x37}
0x423e…4249 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4249…425a Line {l1=0x0f, l2=» VAL:=NIL;«, l3=0x0f}
0x425a…4273 Line {l1=0x17, l2=» TAL:=SYSTEM.A(3);«, l3=0x17}
0x4273…428c Line {l1=0x17, l2=» TAL1:=SYSTEM.A(4)«, l3=0x17}
0x428c…4295 Line {l1=0x07, l2=» END«, l3=0x07}
[…0x1…]
0x429e…42a8 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x42a8…42b3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x42b3…42e2 Line {l1=0x2d, l2=» IF (FELTNR=2) AND (TAL=0) THEN VAL:=NIL«, l3=0x2d}
0x42e2…42ec Line {l1=0x08, l2=» END;«, l3=0x08}
0x42ec…4316 Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x4316…4321 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4321…4332 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x4332…434c Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x434c…4356 Line {l1=0x08, l2=» END;«, l3=0x08}
0x4356…4380 Line {l1=0x28, l2=» IF (NOT BUMMED) AND (NOT HOVED) THEN«, l3=0x28}
0x4380…4394 Line {l1=0x12, l2=» CASE FELTNR OF«, l3=0x12}
0x4394…43a1 Line {l1=0x0b, l2=» 1:BEGIN«, l3=0x0b}
0x43a1…43c5 Line {l1=0x22, l2=» MAPOST.MEDARBEJDERNR:=TAL;«, l3=0x22}
0x43c5…43ea Line {l1=0x23, l2=» GETREC(MAZ.H,MAF,MAPOST.A);«, l3=0x23}
0x43ea…4429 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(MAZ.H.FILENAME);«, l3=0x3d}
0x4429…4443 Line {l1=0x18, l2=» BUMMED:=(IER=-6)«, l3=0x18}
0x4443…444e Line {l1=0x09, l2=» END«, l3=0x09}
0x444e…4457 Line {l1=0x07, l2=» END«, l3=0x07}
0x4457…445d Line {l1=0x04, l2=» *)«, l3=0x04}
0x445d…4466 Line {l1=0x07, l2=» END«, l3=0x07}
0x4466…447b Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x447b…448d Line {l1=0x10, l2=» CASE FELTNR OF«, l3=0x10}
0x448d…44b6 Line {l1=0x27, l2=» 1,3,5,14,16: HOVED.A(F^.INDEKS):=TAL;«, l3=0x27}
0x44b6…44c7 Line {l1=0x0f, l2=» 2,4,6,9:BEGIN«, l3=0x0f}
0x44c7…44ed Line {l1=0x24, l2=» HOVED.A(F^.INDEKS):=TAL;«, l3=0x24}
0x44ed…4515 Line {l1=0x26, l2=» HOVED.A(F^.INDEKS+1):=TAL1«, l3=0x26}
0x4515…4525 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4525…4554 Line {l1=0x2d, l2=» 7,8,10,11,12,13,15:FOR I:=1 TO F^.LÆNGDE DO«, l3=0x2d}
0x4554…458e Line {l1=0x38, l2=» HOVED.AA(I+F^.INDEKS-1):=LINE(I)«, l3=0x38}
0x458e…4595 Line {l1=0x05, l2=» END«, l3=0x05}
0x4595…459b Line {l1=0x04, l2=»END;«, l3=0x04}
0x459b…45a3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x45a3…45b8 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x45b8…45cb Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x45cb…45ea Line {l1=0x1d, l2=» ENHEDER,CENTIMER:INTEGER;«, l3=0x1d}
0x45ea…45f9 Line {l1=0x0d, l2=» LØN:REAL;«, l3=0x0d}
0x45f9…4616 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x4616…4624 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x4624…462b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x462b…4644 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x4644…4657 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x4657…466f Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x466f…4675 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4675…467c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x467c…468c Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x468c…469b Line {l1=0x0d, l2=» FELTNR:=16;«, l3=0x0d}
0x469b…46b8 Line {l1=0x1b, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1b}
0x46b8…46d1 Line {l1=0x17, l2=» IF HOVED.A(13)=1 THEN«, l3=0x17}
0x46d1…46e6 Line {l1=0x13, l2=» BEGIN (*ORDRE*)«, l3=0x13}
0x46e6…46f6 Line {l1=0x0e, l2=» FELTNR:=1;«, l3=0x0e}
0x46f6…4715 Line {l1=0x1d, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x1d}
0x4715…472f Line {l1=0x18, l2=» IF HOVED.A(1)>0 THEN«, l3=0x18}
0x472f…473a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x473a…475e Line {l1=0x22, l2=» GETREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x22}
0x475e…479c Line {l1=0x3c, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR(HOVZ.H.FILENAME);«, l3=0x3c}
0x479c…47c7 Line {l1=0x29, l2=» IF (IER=0) AND (HOVED.A(13)=0) THEN«, l3=0x29}
0x47c7…47ef Line {l1=0x26, l2=» BEGIN (*ORDREN VAR OPRETTET*)«, l3=0x26}
0x47ef…4805 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x4805…481e Line {l1=0x17, l2=» HOVED.A(13):=1;«, l3=0x17}
0x481e…485a Line {l1=0x3a, l2=» FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));«, l3=0x3a}
0x485a…486a Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x486a…487e Line {l1=0x12, l2=» CH:='J';«, l3=0x12}
0x487e…4897 Line {l1=0x17, l2=» GOTOXY(1,23);«, l3=0x17}
0x4897…48bf Line {l1=0x26, l2=» WRITELN('Rigtig ordre J/N');«, l3=0x26}
0x48bf…48e1 Line {l1=0x20, l2=» GOTOXY(18,23);EDIT(CH)«, l3=0x20}
0x48e1…4906 Line {l1=0x23, l2=» UNTIL (CH='J') OR (CH='N');«, l3=0x23}
0x4906…491e Line {l1=0x16, l2=» IF CH='J' THEN«, l3=0x16}
0x491e…492d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x492d…4979 Line {l1=0x4a, l2=» FELTNR:=2; LÆSFELT(PICTURE(FELTNR)); SKRIVFELT(PICTURE(FELTNR));«, l3=0x4a}
0x4979…498b Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x498b…499f Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x499f…49bc Line {l1=0x1b, l2=» GOTOXY(1,23);«, l3=0x1b}
0x49bc…49ff Line {l1=0x41, l2=» WRITELN('Ændring af feltnr (0 for færdig)',' ':47);«, l3=0x41}
0x49ff…4a1d Line {l1=0x1c, l2=» GOTOXY(34,23);«, l3=0x1c}
0x4a1d…4a62 Line {l1=0x43, l2=» READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)«, l3=0x43}
0x4a62…4aa4 Line {l1=0x40, l2=» UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);«, l3=0x40}
0x4aa4…4acd Line {l1=0x27, l2=» IF FELTNR IN (.2..15.) THEN«, l3=0x27}
0x4acd…4ae0 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4ae0…4b09 Line {l1=0x27, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x27}
0x4b09…4b33 Line {l1=0x28, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x28}
0x4b33…4b44 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4b44…4b60 Line {l1=0x1a, l2=» UNTIL FELTNR=0;«, l3=0x1a}
0x4b60…4b88 Line {l1=0x26, l2=» PUTREC(HOVZ.H,HOVF,HOVED.A);«, l3=0x26}
0x4b88…4bba Line {l1=0x30, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME);«, l3=0x30}
0x4bba…4bef Line {l1=0x33, l2=» OLINIE.A(13):=HOVED.A(1);OLINIE.A(14):=0;«, l3=0x33}
0x4bef…4c19 Line {l1=0x28, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x28}
0x4c19…4c54 Line {l1=0x39, l2=» IF IER<>-1 THEN ERROR(OLIZ.H.FILENAME); IER:=0;«, l3=0x39}
0x4c54…4c8e Line {l1=0x38, l2=» WHILE (IER=0) AND (OLINIE.A(13)=HOVED.A(1)) DO«, l3=0x38}
0x4c8e…4c9f Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x4c9f…4cbd Line {l1=0x1c, l2=» OLINIE.A(38):=1;«, l3=0x1c}
0x4cbd…4ce8 Line {l1=0x29, l2=» PUTREC(OLIZ.H,OLIF,OLINIE.A);«, l3=0x29}
0x4ce8…4d1c Line {l1=0x32, l2=» IF IER<>0 THEN ERROR(OLIZ.H.FILENAME);«, l3=0x32}
0x4d1c…4d47 Line {l1=0x29, l2=» NEXTREC(OLIZ.H,OLIF,OLINIE.A)«, l3=0x29}
0x4d47…4d57 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x4d57…4da6 Line {l1=0x4d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR(OLIZ.H.FILENAME)«, l3=0x4d}
0x4da6…4db3 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x4db3…4dbe Line {l1=0x09, l2=» END«, l3=0x09}
0x4dbe…4dca Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x4dca…4dd7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4dd7…4dee Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x4dee…4e07 Line {l1=0x17, l2=» IF IER=-6 THEN«, l3=0x17}
0x4e07…4e41 Line {l1=0x38, l2=» WRITE('Tilbuddet findes ikke, RETURN ')«, l3=0x38}
0x4e41…4e4f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x4e4f…4e8a Line {l1=0x39, l2=» WRITE('Ordren er allerede inde, RETURN ');«, l3=0x39}
0x4e8a…4e9a Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x4e9a…4ea6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x4ea6…4eaf Line {l1=0x07, l2=» END«, l3=0x07}
0x4eaf…4eb7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x4eb7…4ee5 Line {l1=0x2c, l2=» IF (HOVED.A(13)=0) OR (HOVED.A(1)=0) THEN«, l3=0x2c}
0x4ee5…4eee Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4eee…4f0d Line {l1=0x1d, l2=» HOVED.A(1):= SYSTEM.A(2);«, l3=0x1d}
0x4f0d…4f2e Line {l1=0x1f, l2=» SYSTEM.A(2):=SYSTEM.A(2)+1;«, l3=0x1f}
0x4f2e…4f49 Line {l1=0x19, l2=» IF HOVED.A(13)=1 THEN«, l3=0x19}
0x4f49…4f54 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4f54…4f7f Line {l1=0x29, l2=» FELTNR:=2;LÆSFELT(PICTURE(FELTNR));«, l3=0x29}
0x4f7f…4f95 Line {l1=0x14, l2=» HOVED.A(5):=0;«, l3=0x14}
0x4f95…4faa Line {l1=0x13, l2=» HOVED.A(6):=0«, l3=0x13}
0x4faa…4fb3 Line {l1=0x07, l2=» END«, l3=0x07}
0x4fb3…4fbd Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x4fbd…4fc8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4fc8…4ff3 Line {l1=0x29, l2=» FELTNR:=4;LÆSFELT(PICTURE(FELTNR));«, l3=0x29}
0x4ff3…5009 Line {l1=0x14, l2=» HOVED.A(2):=0;«, l3=0x14}
0x5009…501e Line {l1=0x13, l2=» HOVED.A(3):=0«, l3=0x13}
0x501e…5028 Line {l1=0x08, l2=» END;«, l3=0x08}
0x5028…5049 Line {l1=0x1f, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x1f}
0x5049…5072 Line {l1=0x27, l2=» FELTNR:=3;LÆSFELT(PICTURE(FELTNR));«, l3=0x27}
0x5072…5093 Line {l1=0x1f, l2=» SKRIVFELT(PICTURE(FELTNR));«, l3=0x1f}
0x5093…50cf Line {l1=0x3a, l2=» FOR FELTNR:=5 TO 15 DO BEGIN LÆSFELT(PICTURE(FELTNR));«, l3=0x3a}
0x50cf…510c Line {l1=0x3b, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x3b}
0x510c…512d Line {l1=0x1f, l2=» END;«, l3=0x1f}
0x512d…513f Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x513f…5177 Line {l1=0x36, l2=» FOR FELTNR:=1 TO 16 DO SKRIVFELT(PICTURE(FELTNR));«, l3=0x36}
0x5177…5183 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x5183…5191 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x5191…51a8 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x51a8…51e5 Line {l1=0x3b, l2=» WRITELN('Ændring af feltnr (0 for færdig)',' ':47);«, l3=0x3b}
0x51e5…51fd Line {l1=0x16, l2=» GOTOXY(34,23);«, l3=0x16}
0x51fd…523c Line {l1=0x3d, l2=» READLN; IF EOLN THEN SETIORESULT(-1)ELSE READ(FELTNR)«, l3=0x3d}
0x523c…5278 Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND (FELTNR>=0) AND (FELTNR<=15);«, l3=0x3a}
0x5278…529b Line {l1=0x21, l2=» IF FELTNR IN (.2..15.) THEN«, l3=0x21}
0x529b…52a8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x52a8…52cb Line {l1=0x21, l2=» LÆSFELT(PICTURE(FELTNR));«, l3=0x21}
0x52cb…52ef Line {l1=0x22, l2=» SKRIVFELT(PICTURE(FELTNR))«, l3=0x22}
0x52ef…52fa Line {l1=0x09, l2=» END«, l3=0x09}
0x52fa…5310 Line {l1=0x14, l2=» UNTIL FELTNR=0;«, l3=0x14}
0x5310…5332 Line {l1=0x20, l2=» INSERT(HOVZ.H,HOVF,HOVED.A);«, l3=0x20}
0x5332…535d Line {l1=0x29, l2=» IF IER<>0 THEN ERROR(HOVZ.H.FILENAME)«, l3=0x29}
0x535d…5365 Line {l1=0x06, l2=» END;«, l3=0x06}
0x5365…536b Line {l1=0x04, l2=»END;«, l3=0x04}
0x536b…5374 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x5374…537c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x537c…5383 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5383…538c Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x538c…539f Line {l1=0x11, l2=» SYSTEM.A(1):=1;«, l3=0x11}
0x539f…53c0 Line {l1=0x1f, l2=» GETREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x53c0…53ea Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x53ea…53f4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x53f4…5406 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x5406…5414 Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x5414…5427 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x5427…5450 Line {l1=0x27, l2=» WRITELN('Flere tilbud/ordrer J/N');«, l3=0x27}
0x5450…546d Line {l1=0x1b, l2=» GOTOXY(28,23);EDIT(CH);«, l3=0x1b}
0x546d…548a Line {l1=0x1b, l2=» IF CH='J' THEN MAINTAIN«, l3=0x1b}
0x548a…549b Line {l1=0x0f, l2=» UNTIL CH='N';«, l3=0x0f}
0x549b…54bc Line {l1=0x1f, l2=» PUTREC(SYSZ.H,SYSF,SYSTEM.A);«, l3=0x1f}
0x54bc…54e6 Line {l1=0x28, l2=» IF IER<>0 THEN ERROR(SYSZ.H.FILENAME);«, l3=0x28}
0x54e6…54fe Line {l1=0x16, l2=» ICLOSE(HOVZ.H,HOVF);«, l3=0x16}
0x54fe…5516 Line {l1=0x16, l2=» ICLOSE(OLIZ.H,OLIF);«, l3=0x16}
0x5516…552e Line {l1=0x16, l2=» ICLOSE(SYSZ.H,SYSF);«, l3=0x16}
0x552e…5548 Line {l1=0x18, l2=» WRITELN('ICLOSE ',IER)«, l3=0x18}
0x5548…554e Line {l1=0x04, l2=»END;«, l3=0x04}
0x554e…5556 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x5556…555d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x555d…5575 Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x5575…558b Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x558b…559b Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x559b…55a4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x55a4…55c7 Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x55c7…55d3 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x55d3…55db Line {l1=0x06, l2=» END;«, l3=0x06}
0x55db…55e7 Line {l1=0x0a, l2=» REGVEDL;«, l3=0x0a}
0x55e7…55f6 Line {l1=0x0d, l2=» FNAVN:=' ';«, l3=0x0d}
0x55f6…560d Line {l1=0x15, l2=» FNAVN(1):=PARM^(1);«, l3=0x15}
0x560d…5643 Line {l1=0x34, l2=» CHAIN('L *1',CONCAT('HOVED:P2,',FNAVN),QUQ);«, l3=0x34}
0x5643…5678 Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x5678…567e Line {l1=0x04, l2=»END.«, l3=0x04}
0x567e…5680 00 00 ┆ ┆
0x5680…56a0 34 33 30 20 49 46 20 45 33 3d 31 20 54 48 45 4e 20 12 08 38 34 34 30 20 4a 3d 31 08 0c 38 34 35 ┆430 IF E3=1 THEN 8440 J=1 845┆
0x56a0…56c0 30 20 52 45 50 45 41 54 20 0c 26 38 34 36 30 20 49 46 20 41 31 28 4a 29 3d 46 38 20 4f 52 20 41 ┆0 REPEAT &8460 IF A1(J)=F8 OR A┆
0x56c0…56e0 31 28 4a 29 3d 2d 31 20 54 48 45 4e 20 4a 3d 54 49 26 0a 38 34 37 30 20 4a 3d 4a 2b 31 0a 0e 38 ┆1(J)=-1 THEN J=TI& 8470 J=J+1 8┆
0x56e0…5700 34 38 30 20 55 4e 54 49 4c 20 4a 3e 33 0e 12 38 34 39 30 20 49 46 20 4a 3d 45 4c 20 54 48 45 4e ┆480 UNTIL J>3 8490 IF J=EL THEN┆
0x5700…5720 20 12 13 38 35 30 30 20 45 58 45 43 20 42 45 52 45 47 4e 4c 5c 4e 13 0b 38 35 32 30 20 45 4e 44 ┆ 8500 EXEC BEREGNLØN 8520 END┆
0x5720…5740 49 46 20 0b 0b 38 35 33 30 20 45 4e 44 49 46 20 0b 12 38 35 34 30 20 49 46 20 45 34 3d 31 20 54 ┆IF 8530 ENDIF 8540 IF E4=1 T┆
0x5740…5760 48 45 4e 20 12 17 38 35 35 30 20 4b 33 3d 4f 52 44 28 44 32 24 28 32 32 29 29 2d 34 38 17 12 38 ┆HEN 8550 K3=ORD(D2$(22))-48 8┆
0x5760…5780 35 36 30 20 49 46 20 4b 33 3c 34 20 54 48 45 4e 20 12 24 38 35 37 30 20 49 46 20 41 32 28 4b 33 ┆560 IF K3<4 THEN $8570 IF A2(K3┆
0x5780…57a0 29 3d 46 38 20 4f 52 20 41 32 28 4b 33 29 3d 2d 31 20 54 48 45 4e 20 24 15 38 35 38 30 20 45 58 ┆)=F8 OR A2(K3)=-1 THEN $ 8580 EX┆
0x57a0…57c0 45 43 20 42 45 52 45 47 4e 46 45 52 49 45 15 09 38 35 39 30 20 4b 39 3d 31 09 0b 38 36 30 30 20 ┆EC BEREGNFERIE 8590 K9=1 8600 ┆
0x57c0…57e0 45 4e 44 49 46 20 0b 0b 38 36 31 30 20 45 4e 44 49 46 20 0b 0b 38 36 32 30 20 45 4e 44 49 46 20 ┆ENDIF 8610 ENDIF 8620 ENDIF ┆
0x57e0…5800 0b 12 38 36 33 30 20 49 46 20 45 35 3d 31 20 54 48 45 4e 20 12 17 38 36 34 30 20 4b 33 3d 4f 52 ┆ 8630 IF E5=1 THEN 8640 K3=OR┆
0x5800…5820 44 28 44 32 24 28 32 33 29 29 2d 34 38 17 12 38 36 35 30 20 49 46 20 4b 33 3c 34 20 54 48 45 4e ┆D(D2$(23))-48 8650 IF K3<4 THEN┆
0x5820…5840 20 12 24 38 36 36 30 20 49 46 20 41 33 28 4b 33 29 3d 46 38 20 4f 52 20 41 33 28 4b 33 29 3d 2d ┆ $8660 IF A3(K3)=F8 OR A3(K3)=-┆
0x5840…5860 31 20 54 48 45 4e 20 24 12 38 36 37 30 20 45 58 45 43 20 42 45 52 45 47 4e 53 48 12 09 38 36 38 ┆1 THEN $ 8670 EXEC BEREGNSH 868┆
0x5860…5880 30 20 4c 34 3d 31 09 0b 38 36 39 30 20 45 4e 44 49 46 20 0b 0b 38 37 30 30 20 45 4e 44 49 46 20 ┆0 L4=1 8690 ENDIF 8700 ENDIF ┆
0x5880…58a0 0b 0b 38 37 31 30 20 45 4e 44 49 46 20 0b 15 38 37 32 30 20 49 46 20 4b 39 2a 4c 34 3d 31 20 54 ┆ 8710 ENDIF 8720 IF K9*L4=1 T┆
0x58a0…58c0 48 45 4e 20 15 1a 38 37 33 30 20 45 58 45 43 20 43 28 30 2c 43 30 24 2c 43 32 24 2c 43 33 24 29 ┆HEN 8730 EXEC C(0,C0$,C2$,C3$)┆
0x58c0…58e0 1a 1a 38 37 33 31 20 45 58 45 43 20 43 28 34 2c 43 33 24 2c 42 33 24 2c 43 33 24 29 1a 13 38 37 ┆ 8731 EXEC C(4,C3$,B3$,C3$) 87┆
0x58e0…5900 33 32 20 49 46 20 53 49 3c 3e 30 20 54 48 45 4e 20 13 1a 38 37 34 30 20 45 58 45 43 20 43 28 32 ┆32 IF SI<>0 THEN 8740 EXEC C(2┆
0x5900…5920 2c 43 30 24 2c 42 34 24 2c 43 34 24 29 1a 1a 38 37 35 30 20 45 58 45 43 20 43 28 33 2c 43 34 24 ┆,C0$,B4$,C4$) 8750 EXEC C(3,C4$┆
0x5920…5940 2c 43 33 24 2c 43 34 24 29 1a 1a 38 37 36 30 20 45 58 45 43 20 43 28 34 2c 43 34 24 2c 42 34 24 ┆,C3$,C4$) 8760 EXEC C(4,C4$,B4$┆
0x5940…5960 2c 43 33 24 29 1a 19 38 37 37 30 20 49 46 20 53 49 3d 32 20 54 48 45 4e 20 43 34 24 3d 42 34 24 ┆,C3$) 8770 IF SI=2 THEN C4$=B4$┆
0x5960…5980 19 0a 38 37 37 31 20 45 4c 53 45 20 0a 0c 38 37 37 32 20 43 34 24 3d 42 33 24 0c 0b 38 37 37 33 ┆ 8771 ELSE 8772 C4$=B3$ 8773┆
0x5980…59a0 20 45 4e 44 49 46 20 0b 0b 38 37 38 30 20 50 52 49 4e 54 20 0b 34 38 37 39 30 20 50 52 49 4e 54 ┆ ENDIF 8780 PRINT 48790 PRINT┆
0x59a0…59c0 20 22 4e 65 74 74 6f 66 65 72 69 65 70 65 6e 67 65 6e 65 20 75 64 67 7c 72 20 22 3b 43 34 24 28 ┆ "Nettoferiepengene udgør ";C4$(┆
0x59c0…59e0 36 2c 45 4c 29 3b 22 20 25 22 34 0c 38 38 30 30 20 4a 36 3d 4a 36 2b 32 0c 0b 38 38 31 30 20 45 ┆6,EL);" %"4 8800 J6=J6+2 8810 E┆
0x59e0…5a00 4e 44 49 46 20 0b 18 38 38 31 35 20 49 46 20 4b 32 2b 4b 39 2b 4c 34 3e 30 20 54 48 45 4e 20 18 ┆NDIF 8815 IF K2+K9+L4>0 THEN ┆
0x5a00…5a20 13 38 38 32 30 20 45 58 45 43 20 53 4b 52 49 56 42 55 4e 44 13 16 38 38 33 30 20 45 58 45 43 20 ┆ 8820 EXEC SKRIVBUND 8830 EXEC ┆
0x5a20…5a40 55 44 4c 5c 4e 4d 4f 44 28 46 38 29 16 0f 38 38 34 30 20 45 58 45 43 20 55 44 54 5b 4c 0f 13 38 ┆UDLØNMOD(F8) 8840 EXEC UDTÆL 8┆
0x5a40…5a60 38 34 33 20 50 55 54 20 44 39 24 3a 46 38 2c 43 37 24 13 10 38 38 34 34 20 50 55 54 20 44 39 24 ┆843 PUT D9$:F8,C7$ 8844 PUT D9$┆
0x5a60…5a80 3a 43 38 24 10 0b 38 38 34 35 20 45 4e 44 49 46 20 0b 12 38 38 34 36 20 49 46 20 4b 32 3d 31 20 ┆:C8$ 8845 ENDIF 8846 IF K2=1 ┆
0x5a80…5aa0 54 48 45 4e 20 12 13 38 38 34 37 20 50 55 54 20 45 30 24 3a 46 38 2c 42 36 24 13 14 38 38 34 38 ┆THEN 8847 PUT E0$:F8,B6$ 8848┆
0x5aa0…5ac0 20 50 55 54 20 45 30 24 3a 46 38 2c 42 36 31 24 14 0b 38 38 34 39 20 45 4e 44 49 46 20 0b 0b 38 ┆ PUT E0$:F8,B61$ 8849 ENDIF 8┆
0x5ac0…5ae0 38 35 30 20 45 4e 44 49 46 20 0b 11 38 38 36 30 20 55 4e 54 49 4c 20 46 38 3d 3e 49 39 11 15 38 ┆850 ENDIF 8860 UNTIL F8=>I9 8┆
0x5ae0…5b00 38 36 31 20 50 55 54 20 44 39 24 3a 49 39 2b 31 2c 43 37 24 15 36 38 38 36 32 20 50 55 54 20 44 ┆861 PUT D9$:I9+1,C7$ 68862 PUT D┆
0x5b00…5b20 39 24 3a 45 32 24 28 31 29 2c 45 32 24 28 32 29 2c 45 32 24 28 33 29 2c 45 32 24 28 34 29 2c 45 ┆9$:E2$(1),E2$(2),E2$(3),E2$(4),E┆
0x5b20…5b40 32 24 28 35 29 2c 45 32 24 28 36 29 36 39 38 38 36 34 20 50 55 54 20 44 39 24 3a 45 32 24 28 37 ┆2$(5),E2$(6)698864 PUT D9$:E2$(7┆
0x5b40…5b60 29 2c 45 32 24 28 38 29 2c 45 32 24 28 39 29 2c 45 32 24 28 54 49 29 2c 45 32 24 28 45 4c 29 2c ┆),E2$(8),E2$(9),E2$(TI),E2$(EL),┆
0x5b60…5b80 45 32 24 28 31 32 29 39 2c 38 38 36 36 20 50 55 54 20 44 39 24 3a 45 32 24 28 31 33 29 2c 45 32 ┆E2$(12)9,8866 PUT D9$:E2$(13),E2┆
0x5b80…5ba0 24 28 31 34 29 2c 45 32 24 28 31 35 29 2c 45 32 24 28 31 36 29 2c 10 38 38 36 37 20 45 4e 44 46 ┆$(14),E2$(15),E2$(16), 8867 ENDF┆
0x5ba0…5bc0 49 4c 45 20 45 30 24 10 10 38 38 36 38 20 45 4e 44 46 49 4c 45 20 45 31 24 10 0b 38 38 37 30 20 ┆ILE E0$ 8868 ENDFILE E1$ 8870 ┆
0x5bc0…5be0 43 4c 4f 53 45 20 0b 1c 38 38 38 30 20 43 48 41 49 4e 20 22 50 36 34 31 32 31 30 3a 4a 4f 55 52 ┆CLOSE 8880 CHAIN "P641210:JOUR┆
0x5be0…5c00 4e 41 4c 22 1c 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NAL" ┆
0x5c00…5c20 20 20 20 20 20 20 20 20 20 20 45 44 49 54 45 52 49 4e 47 3a 35 2c 4d 2e 20 20 20 20 20 20 20 20 ┆ EDITERING:5,M. ┆
0x5c20…5c40 20 20 20 20 20 20 27 20 27 3a 35 2c 4e 49 56 45 41 55 44 28 4f 52 44 28 5b 4e 44 52 45 4e 49 56 ┆ ' ':5,NIVEAUD(ORD(ÆNDRENIV┆
0x5c40…5c60 45 41 55 29 29 2c 2e 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 27 3a 31 31 2d 4c ┆EAU)),.M ' ':11-L┆
0x5c60…5c80 45 4e 47 54 48 28 4e 49 56 45 41 55 44 28 4f 52 44 28 5b 4e 44 52 45 4e 49 56 45 41 55 29 29 29 ┆ENGTH(NIVEAUD(ORD(ÆNDRENIVEAU)))┆
0x5c80…5ca0 2c 55 44 50 4f 53 2e 58 3a 35 2c 55 44 50 4f 53 2e 59 3a 35 2c 4d 4d 20 20 20 20 20 20 20 20 20 ┆,UDPOS.X:5,UDPOS.Y:5,MM ┆
0x5ca0…5cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5cc0…5ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 4e 47 44 45 3a 37 2c 46 4f 52 41 4e 30 ┆ LÆNGDE:7,FORAN0┆
0x5ce0…5d00 3a 37 29 3b 4d 2d 20 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 35 2c 46 54 59 ┆:7);M- WRITE(LIST,' ':5,FTY┆
0x5d00…5d20 50 45 44 28 4f 52 44 28 46 45 4c 54 54 59 50 45 29 29 2c 2d 3b 20 20 20 20 20 20 20 20 20 20 20 ┆PED(ORD(FELTTYPE)),-; ┆
0x5d20…5d40 20 27 20 27 3a 31 31 2d 4c 45 4e 47 54 48 28 46 54 59 50 45 44 28 4f 52 44 28 46 45 4c 54 54 59 ┆ ' ':11-LENGTH(FTYPED(ORD(FELTTY┆
0x5d40…5d60 50 45 29 29 29 2c 49 4e 44 45 4b 53 3a 34 29 3b 3b 43 20 20 20 20 20 20 49 46 20 46 45 4c 54 54 ┆PE))),INDEKS:4);;C IF FELTT┆
0x5d60…5d80 59 50 45 3d 52 45 45 4c 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 44 45 43 3a 31 ┆YPE=REEL THEN WRITELN(LIST,DEC:1┆
0x5d80…5da0 32 29 20 45 4c 53 45 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 29 43 08 20 20 20 20 45 4e 44 3b 08 ┆2) ELSE WRITELN(LIST)C END; ┆
0x5da0…5dc0 19 20 20 20 20 46 45 4c 54 3a 3d 46 45 4c 54 5e 2e 4e 5b 53 54 45 56 41 4c 3b 19 16 20 20 20 20 ┆ FELT:=FELT^.NÆSTEVAL; ┆
0x5dc0…5de0 57 48 49 4c 45 20 46 45 4c 54 3c 3e 4e 49 4c 20 44 4f 16 09 20 20 20 20 42 45 47 49 4e 09 3a 20 ┆WHILE FELT<>NIL DO BEGIN : ┆
0x5de0…5e00 20 20 20 20 20 57 52 49 54 45 28 4c 49 53 54 2c 27 20 27 3a 31 35 2c 56 54 59 50 45 44 28 4f 52 ┆ WRITE(LIST,' ':15,VTYPED(OR┆
0x5e00…5e20 44 28 46 45 4c 54 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 29 29 2c 3a 3e 20 20 20 20 20 ┆D(FELT^.VALIDITETSTYPE)),:> ┆
0x5e20…5e40 20 20 20 20 20 20 20 27 20 27 3a 31 35 2d 4c 45 4e 47 54 48 28 56 54 59 50 45 44 28 4f 52 44 28 ┆ ' ':15-LENGTH(VTYPED(ORD(┆
0x5e40…5e60 46 45 4c 54 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 29 29 29 29 3b 3e 22 20 20 20 20 20 ┆FELT^.VALIDITETSTYPE))));>" ┆
0x5e60…5e80 20 43 41 53 45 20 46 45 4c 54 5e 2e 56 41 4c 49 44 49 54 45 54 53 54 59 50 45 20 4f 46 22 38 20 ┆ CASE FELT^.VALIDITETSTYPE OF"8 ┆
0x5e80…5ea0 20 20 20 20 20 48 49 4e 54 45 52 56 41 4c 3a 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 46 45 4c 54 ┆ HINTERVAL:WRITELN(LIST,FELT┆
0x5ea0…5ec0 5e 2e 4d 49 4e 3a 31 32 2c 46 45 4c 54 5e 2e 4d 41 58 3a 31 37 29 3b 38 41 20 20 20 20 20 20 44 ┆^.MIN:12,FELT^.MAX:17);8A D┆
0x5ec0…5ee0 49 4e 54 45 52 56 41 4c 3a 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 46 45 4c 54 5e 2e 4d 49 4e 31 ┆INTERVAL:WRITELN(LIST,FELT^.MIN1┆
0x5ee0…5f00 2a 31 30 30 30 30 2e 30 2b 46 45 4c 54 5e 2e 4d 49 4e 32 3a 31 32 3a 2d 32 2c 41 49 20 20 20 20 ┆*10000.0+FELT^.MIN2:12:-2,AI ┆
0x5f00…5f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5f20…5f40 46 45 4c 54 5e 2e 4d 41 58 31 2a 31 30 30 30 30 2e 30 2b 46 45 4c 54 5e 2e 4d 41 58 32 3a 31 37 ┆FELT^.MAX1*10000.0+FELT^.MAX2:17┆
0x5f40…5f60 3a 2d 32 29 3b 49 3e 20 20 20 20 20 20 52 49 4e 54 45 52 56 41 4c 3a 57 52 49 54 45 4c 4e 28 4c ┆:-2);I> RINTERVAL:WRITELN(L┆
0x5f60…5f80 49 53 54 2c 46 45 4c 54 5e 2e 52 4d 49 4e 3a 31 32 3a 32 2c 46 45 4c 54 5e 2e 52 4d 41 58 3a 31 ┆IST,FELT^.RMIN:12:2,FELT^.RMAX:1┆
0x5f80…5fa0 37 3a 32 29 3b 3e 1d 20 20 20 20 20 20 44 41 54 4f 2c 43 50 52 3a 20 57 52 49 54 45 4c 4e 28 4c ┆7:2);> DATO,CPR: WRITELN(L┆
0x5fa0…5fc0 49 53 54 29 1d 0a 20 20 20 20 20 20 45 4e 44 3b 0a 1a 20 20 20 20 20 20 46 45 4c 54 3a 3d 46 45 ┆IST) END; FELT:=FE┆
0x5fc0…5fe0 4c 54 5e 2e 4e 5b 53 54 45 56 41 4c 1a 08 20 20 20 20 45 4e 44 3b 08 11 20 20 20 20 57 52 49 54 ┆LT^.NÆSTEVAL END; WRIT┆
0x5fe0…6000 45 4c 4e 28 4c 49 53 54 29 11 06 20 20 45 4e 44 3b 06 0c 20 20 50 41 47 45 28 4c 49 53 54 29 0c ┆ELN(LIST) END; PAGE(LIST) ┆
0x6000…6020 04 45 4e 44 3b 04 06 28 2a 24 50 2a 29 06 10 28 2a 48 4f 56 45 44 50 52 4f 47 52 41 4d 2a 29 10 ┆ END; (*$P*) (*HOVEDPROGRAM*) ┆
0x6020…6040 05 42 45 47 49 4e 05 07 20 20 49 4e 49 54 3b 07 16 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 55 ┆ BEGIN INIT; USERNIVEAU:=U┆
0x6040…6060 4d 55 4c 49 55 53 3b 16 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 11 20 20 41 4e 54 41 4c ┆MULIUS; CLEARSCREEN; ANTAL┆
0x6060…6080 46 45 4c 54 45 52 3a 3d 30 3b 11 10 20 20 46 4e 41 56 4e 3a 3d 27 4e 4f 4e 45 27 3b 10 17 20 20 ┆FELTER:=0; FNAVN:='NONE'; ┆
0x6080…60a0 57 52 49 54 45 4c 4e 28 27 49 6e 70 75 74 2d 66 69 6c 27 29 3b 17 0f 20 20 47 4f 54 4f 58 59 28 ┆WRITELN('Input-fil'); GOTOXY(┆
0x60a0…60c0 31 31 2c 31 29 3b 0f 11 20 20 45 44 49 54 28 46 4e 41 56 4e 3a 31 36 29 3b 11 27 20 20 49 46 20 ┆11,1); EDIT(FNAVN:16); ' IF ┆
0x60c0…60e0 50 4f 53 28 27 4e 4f 4e 45 27 2c 46 4e 41 56 4e 29 3c 3e 31 20 54 48 45 4e 20 4c 5b 53 44 45 53 ┆POS('NONE',FNAVN)<>1 THEN LÆSDES┆
0x60e0…6100 43 3b 27 08 20 20 52 45 50 45 41 54 08 10 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 10 2e ┆C;' REPEAT CLEARSCREEN; .┆
0x6100…6120 20 20 20 20 57 52 49 54 45 4c 4e 28 27 31 20 4f 70 62 79 67 6e 69 6e 67 20 61 66 20 66 65 6c 74 ┆ WRITELN('1 Opbygning af felt┆
0x6120…6140 62 65 73 6b 72 69 76 65 6c 73 65 27 29 3b 2e 39 20 20 20 20 57 52 49 54 45 4c 4e 28 27 32 20 5b ┆beskrivelse');.9 WRITELN('2 Æ┆
0x6140…6160 6e 64 72 69 6e 67 20 61 66 20 65 6b 73 69 73 74 65 72 65 6e 64 65 20 66 65 6c 74 62 65 73 6b 72 ┆ndring af eksisterende feltbeskr┆
0x6160…6180 69 76 65 6c 73 65 27 29 3b 39 1c 20 20 20 20 57 52 49 54 45 4c 4e 28 27 33 20 53 69 6d 75 6c 65 ┆ivelse');9 WRITELN('3 Simule┆
0x6180…61a0 72 69 6e 67 27 29 3b 1c 27 20 20 20 20 57 52 49 54 45 4c 4e 28 27 34 20 4f 70 72 65 74 74 65 6c ┆ring'); ' WRITELN('4 Oprettel┆
0x61a0…61c0 73 65 20 61 66 20 64 61 74 61 66 69 6c 27 29 3b 27 34 20 20 20 20 57 52 49 54 45 4c 4e 28 27 35 ┆se af datafil');'4 WRITELN('5┆
0x61c0…61e0 20 50 72 69 6e 74 65 72 75 64 73 6b 72 69 66 74 20 61 66 20 66 65 6c 74 62 65 73 6b 72 69 76 65 ┆ Printerudskrift af feltbeskrive┆
0x61e0…6200 6c 73 65 27 29 3b 34 18 20 20 20 20 57 52 49 54 45 4c 4e 28 27 56 7b 6c 67 20 30 2d 35 27 29 3b ┆lse');4 WRITELN('Vælg 0-5');┆
0x6200…6220 18 0a 20 20 20 20 52 45 50 45 41 54 0a 13 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 32 2c 36 29 ┆ REPEAT GOTOXY(12,6)┆
0x6220…6240 3b 13 14 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 14 1c 20 20 20 20 55 4e 54 ┆; READLN;READ(I) UNT┆
0x6240…6260 49 4c 20 28 49 3e 3d 30 29 20 41 4e 44 20 28 49 3c 3d 35 29 3b 1c 0d 20 20 20 20 43 41 53 45 20 ┆IL (I>=0) AND (I<=5); CASE ┆
0x6260…6280 49 20 4f 46 0d 0f 20 20 20 20 31 3a 43 52 45 41 54 45 50 44 3b 0f 0d 20 20 20 20 32 3a 4d 41 49 ┆I OF 1:CREATEPD; 2:MAI┆
0x6280…62a0 4e 50 44 3b 0d 0b 20 20 20 20 33 3a 42 45 47 49 4e 0b 10 20 20 20 20 20 20 20 20 4e 55 4c 50 4f ┆NPD; 3:BEGIN NULPO┆
0x62a0…62c0 53 54 3b 10 12 20 20 20 20 20 20 20 20 53 4b 52 49 56 50 4f 53 54 3b 12 0e 20 20 20 20 20 20 20 ┆ST; SKRIVPOST; ┆
0x62c0…62e0 20 52 45 50 45 41 54 0e 11 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 11 24 20 20 20 20 ┆ REPEAT READLN; $ ┆
0x62e0…6300 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 46 45 4c 54 45 52 20 44 4f ┆ FOR I:=1 TO ANTALFELTER DO┆
0x6300…6320 24 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 49 29 ┆$ LÆSFELT(PICTURE(I)┆
0x6320…6340 29 3b 20 19 20 20 20 20 20 20 20 20 20 20 52 45 41 44 4c 4e 3b 52 45 41 44 28 49 29 3b 19 21 20 ┆); READLN;READ(I); ! ┆
0x6340…6360 20 20 20 20 20 20 20 20 20 49 46 20 49 3c 3e 2d 31 20 54 48 45 4e 20 53 4b 52 49 56 50 4f 53 54 ┆ IF I<>-1 THEN SKRIVPOST┆
0x6360…6380 21 12 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 49 3d 2d 31 12 0a 20 20 20 20 20 20 45 4e 44 3b ┆! UNTIL I=-1 END;┆
0x6380…63a0 0a 0c 20 20 20 20 34 3a 4f 50 52 45 54 3b 0c 0e 20 20 20 20 35 3a 4c 49 53 54 44 45 53 43 0e 07 ┆ 4:OPRET; 5:LISTDESC ┆
0x63a0…63c0 20 20 20 20 45 4e 44 07 0c 20 20 55 4e 54 49 4c 20 49 3d 30 3b 0c 0e 20 20 43 4c 45 41 52 53 43 ┆ END UNTIL I=0; CLEARSC┆
0x63c0…63e0 52 45 45 4e 3b 0e 18 20 20 57 52 49 54 45 4c 4e 28 27 4f 75 74 70 75 74 2d 66 69 6c 27 29 3b 18 ┆REEN; WRITELN('Output-fil'); ┆
0x63e0…6400 0f 20 20 47 4f 54 4f 58 59 28 31 32 2c 31 29 3b 0f 11 20 20 45 44 49 54 28 46 4e 41 56 4e 3a 31 ┆ GOTOXY(12,1); EDIT(FNAVN:1┆
0x6400…6420 36 29 3b 11 2e 20 20 49 46 20 46 4e 41 56 4e 3c 3e 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6); . IF FNAVN<>' ┆
0x6420…6440 20 20 27 20 54 48 45 4e 20 53 4b 52 49 56 44 45 53 43 3b 2e 01 20 01 01 20 01 04 45 4e 44 2e 04 ┆ ' THEN SKRIVDESC;. END. ┆
0x6440…6460 00 00 2e 31 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 4d 2c 30 31 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆ .1 *********M,0110 REM *******┆
0x6460…6480 2a 2a 2a 2a 2a 20 20 4d 45 4e 55 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2c 25 30 31 ┆***** MENU ***************,%01┆
0x6480…64a0 32 30 20 44 49 4d 20 53 56 24 28 32 29 2c 46 49 4c 4e 24 28 31 37 29 2c 44 41 54 41 50 4c 24 28 ┆20 DIM SV$(2),FILN$(17),DATAPL$(┆
0x64a0…64c0 31 37 29 25 12 30 31 33 30 20 44 41 54 41 50 4c 24 3d 22 54 46 3a 22 12 0b 30 31 34 30 20 43 4c ┆17)% 0130 DATAPL$="TF:" 0140 CL┆
0x64c0…64e0 45 41 52 20 0b 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 10 30 31 36 30 20 43 55 52 53 4f 52 20 ┆EAR 0150 REPEAT 0160 CURSOR ┆
0x64e0…6500 31 35 2c 32 10 26 30 31 37 30 20 50 52 49 4e 54 20 22 4d 45 4e 55 20 46 4f 52 20 42 55 44 47 45 ┆15,2 &0170 PRINT "MENU FOR BUDGE┆
0x6500…6520 54 53 49 4d 55 4c 45 52 49 4e 47 22 26 0f 30 31 38 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 2c 30 ┆TSIMULERING"& 0180 CURSOR 1,4 ,0┆
0x6520…6540 31 39 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 49 6e 64 6b 6f 64 6e 69 6e 67 22 3b 54 ┆190 PRINT TAB(10);"Indkodning";T┆
0x6540…6560 41 42 28 35 30 29 3b 22 69 6b 22 2c 2c 30 32 30 30 20 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b ┆AB(50);"ik",,0200 PRINT TAB(10);┆
0x6560…6580 22 53 69 6d 75 6c 65 72 69 6e 67 22 3b 54 41 42 28 35 30 29 3b 22 73 69 22 2c 2d 30 32 31 30 20 ┆"Simulering";TAB(50);"si",-0210 ┆
0x6580…65a0 50 52 49 4e 54 20 54 41 42 28 31 30 29 3b 22 55 64 73 6b 72 69 76 6e 69 6e 67 22 3b 54 41 42 28 ┆PRINT TAB(10);"Udskrivning";TAB(┆
0x65a0…65c0 35 30 29 3b 22 75 73 22 2d 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 29 30 32 33 30 20 49 4e 50 55 ┆50);"us"- 0220 PRINT )0230 INPU┆
0x65c0…65e0 54 20 22 49 6e 64 74 61 73 74 20 66 75 6e 6b 74 69 6f 6e 73 6b 6f 64 65 20 3a 20 22 2c 53 56 24 ┆T "Indtast funktionskode : ",SV$┆
0x65e0…6600 29 0b 30 32 34 30 20 43 4c 45 41 52 20 0b 11 30 32 35 30 20 43 41 53 45 20 53 56 24 20 4f 46 20 ┆) 0240 CLEAR 0250 CASE SV$ OF ┆
0x6600…6620 11 13 30 32 36 30 20 57 48 45 4e 20 22 49 4b 22 2c 22 69 6b 22 13 1c 30 32 37 30 20 46 49 4c 4e ┆ 0260 WHEN "IK","ik" 0270 FILN┆
0x6620…6640 24 3d 44 41 54 41 50 4c 24 2b 22 53 49 4d 49 4e 44 4b 22 1c 10 30 32 38 30 20 43 48 41 49 4e 20 ┆$=DATAPL$+"SIMINDK" 0280 CHAIN ┆
0x6640…6660 46 49 4c 4e 24 10 13 30 32 39 30 20 57 48 45 4e 20 22 53 49 22 2c 22 73 69 22 13 1a 30 33 30 30 ┆FILN$ 0290 WHEN "SI","si" 0300┆
0x6660…6680 20 46 49 4c 4e 24 3d 44 41 54 41 50 4c 24 2b 22 53 49 4d 55 4c 22 1a 10 30 33 31 30 20 43 48 41 ┆ FILN$=DATAPL$+"SIMUL" 0310 CHA┆
0x6680…66a0 49 4e 20 46 49 4c 4e 24 10 13 30 33 32 30 20 57 48 45 4e 20 22 55 53 22 2c 22 75 73 22 13 1d 30 ┆IN FILN$ 0320 WHEN "US","us" 0┆
0x66a0…66c0 33 33 30 20 46 49 4c 4e 24 3d 44 41 54 41 50 4c 24 2b 22 53 49 4d 55 44 53 4b 52 22 1d 10 30 33 ┆330 FILN$=DATAPL$+"SIMUDSKR" 03┆
0x66c0…66e0 34 30 20 43 48 41 49 4e 20 46 49 4c 4e 24 10 0d 30 33 35 30 20 45 4e 44 43 41 53 45 20 0d 0e 30 ┆40 CHAIN FILN$ 0350 ENDCASE 0┆
0x66e0…6700 00 49 4d 4d 45 4e 55 20 4b 42 01 03 00 00 00 00 92 00 0c 92 00 12 41 92 00 20 00 00 00 00 00 00 ┆ IMMENU KB A ┆
0x6700…6720 33 36 30 20 55 4e 54 49 4c 20 31 3d 30 0e 00 00 20 54 45 4b 4e 49 4b 20 41 2f 53 20 3a 20 42 55 ┆360 UNTIL 1=0 TEKNIK A/S : BU┆
0x6720…6740 44 47 45 54 53 49 4d 55 4c 45 52 49 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆DGETSIMULERING **************** ┆
0x6740…6760 52 32 2e 31 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 4d 2c 30 31 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆R2.1 *********M,0110 REM *******┆
0x6760…6780 2a 2a 2a 2a 2a 20 20 4d 45 4e 55 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2c 25 30 31 ┆***** MENU ***************,%01┆
0x6780…67a0 32 30 20 44 49 4d 20 53 56 24 28 32 29 2c 46 49 4c 4e 24 28 31 37 29 2c 44 41 54 41 50 4c 24 28 ┆20 DIM SV$(2),FILN$(17),DATAPL$(┆
0x67a0…67c0 31 37 29 25 12 30 31 33 30 20 44 41 54 41 50 4c 24 3d 22 54 46 3a 22 12 0b 30 31 34 30 20 43 4c ┆17)% 0130 DATAPL$="TF:" 0140 CL┆
0x67c0…67e0 45 41 52 20 0b 0c 30 31 35 30 20 52 45 50 45 41 54 20 0c 10 30 31 36 30 20 43 55 52 53 4f 52 20 ┆EAR 0150 REPEAT 0160 CURSOR ┆
0x67e0…6800 43 20 52 45 4f 52 47 5f 4f 52 44 52 45 15 12 34 33 32 30 20 46 4f 52 20 4a 3d 31 20 54 4f 20 31 ┆C REORG_ORDRE 4320 FOR J=1 TO 1┆
0x6800…6820 30 12 18 34 33 33 30 20 45 58 45 43 20 42 45 4e 59 54 5f 4f 52 44 52 45 28 4a 29 18 0b 34 33 34 ┆0 4330 EXEC BENYT_ORDRE(J) 434┆
0x6820…6840 30 20 4e 45 58 54 20 4a 0b 0b 34 33 35 30 20 45 4e 44 49 46 20 0b 0b 34 33 36 30 20 45 4e 44 49 ┆0 NEXT J 4350 ENDIF 4360 ENDI┆
0x6840…6860 46 20 0b 18 34 33 37 30 20 49 46 20 53 56 41 52 48 24 3d 22 61 22 20 54 48 45 4e 20 18 12 34 33 ┆F 4370 IF SVARH$="a" THEN 43┆
0x6860…6880 38 30 20 46 4f 52 20 4a 3d 31 20 54 4f 20 31 30 12 2c 34 33 39 30 20 49 46 20 4f 4e 52 28 4a 29 ┆80 FOR J=1 TO 10 ,4390 IF ONR(J)┆
0x6880…68a0 3c 3e 30 20 54 48 45 4e 20 45 58 45 43 20 53 4c 45 54 5f 45 4e 5f 4f 52 44 52 45 28 4a 29 2c 0b ┆<>0 THEN EXEC SLET_EN_ORDRE(J), ┆
0x68a0…68c0 34 34 30 30 20 4e 45 58 54 20 4a 0b 0d 34 34 31 30 20 4f 53 4c 24 3d 22 53 22 0d 18 34 34 32 30 ┆4400 NEXT J 4410 OSL$="S" 4420┆
0x68c0…68e0 20 45 58 45 43 20 53 4b 52 49 56 5f 48 4f 56 45 44 4f 50 4c 18 0b 34 34 33 30 20 45 4e 44 49 46 ┆ EXEC SKRIV_HOVEDOPL 4430 ENDIF┆
0x68e0…6900 20 0b 13 34 34 34 30 20 57 48 45 4e 20 22 4f 50 22 2c 22 6f 70 22 13 1a 34 34 35 30 20 45 58 45 ┆ 4440 WHEN "OP","op" 4450 EXE┆
0x6900…6920 43 20 45 44 49 54 5f 48 4f 56 45 44 4f 50 4c 28 37 29 1a 1a 34 34 36 30 20 45 58 45 43 20 45 44 ┆C EDIT_HOVEDOPL(7) 4460 EXEC ED┆
0x6920…6940 49 54 5f 48 4f 56 45 44 4f 50 4c 28 38 29 1a 1a 34 34 37 30 20 49 46 20 4f 42 24 3d 22 20 20 20 ┆IT_HOVEDOPL(8) 4470 IF OB$=" ┆
0x6940…6960 20 20 20 22 20 54 48 45 4e 20 1a 12 34 34 38 30 20 4f 42 24 28 31 3a 32 29 3d 22 31 35 22 12 1a ┆ " THEN 4480 OB$(1:2)="15" ┆
0x6960…6980 34 34 39 30 20 48 4a 4c 50 3d 41 53 43 28 48 44 41 54 4f 24 28 33 3a 34 29 29 1a 17 34 35 30 30 ┆4490 HJLP=ASC(HDATO$(3:4)) 4500┆
0x6980…69a0 20 49 46 20 48 4a 4c 50 3e 31 31 39 39 20 54 48 45 4e 20 17 19 34 35 31 30 20 48 4a 4c 50 3d 28 ┆ IF HJLP>1199 THEN 4510 HJLP=(┆
0x69a0…69c0 48 4a 4c 50 2b 31 30 31 29 2d 31 32 30 30 19 0a 34 35 32 30 20 45 4c 53 45 20 0a 12 34 35 33 30 ┆HJLP+101)-1200 4520 ELSE 4530┆
0x69c0…69e0 20 48 4a 4c 50 3d 48 4a 4c 50 2b 31 30 30 12 0b 34 35 34 30 20 45 4e 44 49 46 20 0b 1b 34 35 c7 ┆ HJLP=HJLP+100 4540 ENDIF 45 ┆
0x69e0…6a00 00 49 4d 55 4c 20 20 20 42 41 0a 0a 00 93 00 02 00 00 00 93 00 02 00 00 00 ff 00 00 00 00 00 00 ┆ IMUL BA ┆
0x6a00…6a20 4d a1 82 64 00 89 53 59 53 54 45 4d 20 54 45 4b 4e 49 4b 20 41 2f 53 20 3a 20 42 55 44 47 45 54 ┆M d SYSTEM TEKNIK A/S : BUDGET┆
0x6a20…6a40 53 49 4d 55 4c 45 52 49 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 52 32 2e 31 ┆SIMULERING **************** R2.1┆
0x6a40…6a60 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ff db 82 6e 4d 4d 00 89 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ********* nMM **************┆
0x6a60…6a80 2a 2a 2a 2a 2a 2a 20 20 53 49 4d 55 4c 45 52 49 4e 47 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****** SIMULERING ************┆
0x6a80…6aa0 2a 2a 2a 2a 2a 2a ff 13 83 78 00 89 49 4e 54 45 47 45 52 20 41 31 2c 41 32 2c 41 33 2c 4d 4d 41 ┆****** x INTEGER A1,A2,A3,MMA┆
0x6aa0…6ac0 34 2c 41 35 2c 41 36 2c 41 37 2c 41 38 2c 41 39 2c 41 31 30 2c 41 31 31 2c 41 31 32 2c 41 31 33 ┆4,A5,A6,A7,A8,A9,A10,A11,A12,A13┆
0x6ac0…6ae0 ff 4b 83 82 00 89 49 4e 54 45 47 45 52 20 42 31 2c 42 32 2c 42 33 2c 42 34 2c 42 35 2c 42 36 2c ┆ K INTEGER B1,B2,B3,B4,B5,B6,┆
0x6ae0…6b00 42 37 2c 42 38 2c 42 39 2c 42 31 30 4d 4d 2c 42 31 31 2c 42 31 32 2c 42 31 33 ff 83 83 8c 00 89 ┆B7,B8,B9,B10MM,B11,B12,B13 ┆
0x6b00…6b20 49 4e 54 45 47 45 52 20 43 31 2c 43 32 2c 43 33 2c 43 34 2c 43 35 2c 43 36 2c 43 37 2c 43 38 2c ┆INTEGER C1,C2,C3,C4,C5,C6,C7,C8,┆
0x6b20…6b40 43 39 2c 43 31 30 2c 43 31 31 2c 43 31 32 2c 43 31 33 ff bb 83 96 00 89 49 4e 54 4d 4d 45 47 45 ┆C9,C10,C11,C12,C13 INTMMEGE┆
0x6b40…6b60 52 20 44 31 2c 44 32 2c 44 33 2c 44 34 2c 44 35 2c 44 36 2c 44 37 2c 44 38 2c 44 39 2c 44 31 30 ┆R D1,D2,D3,D4,D5,D6,D7,D8,D9,D10┆
0x6b60…6b80 2c 44 31 31 2c 44 31 32 2c 44 31 33 ff e0 83 a0 00 89 49 4e 54 45 47 45 52 20 41 28 31 33 29 2c ┆,D11,D12,D13 INTEGER A(13),┆
0x6b80…6ba0 42 28 31 33 29 2c 43 28 31 33 4d 4d 29 2c 44 28 31 33 29 ff ff 83 aa 00 89 49 4e 54 45 47 45 52 ┆B(13),C(13MM),D(13) INTEGER┆
0x6ba0…6bc0 20 58 2c 59 2c 5a 2c 57 2c 51 2c 50 2c 46 2c 47 2c 52 ff 31 84 b4 00 89 49 4e 54 45 47 45 52 20 ┆ X,Y,Z,W,Q,P,F,G,R 1 INTEGER ┆
0x6bc0…6be0 49 2c 4d 44 2c 44 47 2c 4b 54 4f 2c 42 45 4c 2c 55 44 2c 49 58 2c 4e 55 4c 4d 4d 2c 46 4f 52 54 ┆I,MD,DG,KTO,BEL,UD,IX,NULMM,FORT┆
0x6be0…6c00 45 47 4e 2c 53 4c ff 57 84 be 00 89 44 42 4c 52 45 41 4c 20 42 45 4c 41 2c 42 45 4c 42 2c 42 45 ┆EGN,SL W DBLREAL BELA,BELB,BE┆
0x6c00…6c20 4c 43 2c 42 45 4c 44 2c 53 41 54 53 ff c4 84 c8 00 87 44 41 54 41 50 4c ef ed 31 37 fe 00 00 88 ┆LC,BELD,SATS DATAPL 17 ┆
0x6c20…6c40 05 ee ec 53 56 ef ed 32 4d 4d fe 00 00 80 02 ee ec 46 49 4c 4e ef ed 31 37 fe 00 00 88 05 ee ec ┆ SV 2MM FILN 17 ┆
0x6c40…6c60 4d ef ed 31 fe 00 00 80 01 ee ec 46 49 4c 4b 54 4f ef ed 31 37 fe 00 00 88 05 ee ec 54 41 42 ef ┆M 1 FILKTO 17 TAB ┆
0x6c60…6c80 ed 35 30 fe 00 00 c8 06 ee ec 49 4e 44 45 58 ef ed 31 30 30 30 fe 00 4d 4d 00 fa 0a ee ff 03 85 ┆ 50 INDEX 1000 MM ┆
0x6c80…6ca0 d2 00 87 5d 46 ef ed 31 fe 00 00 80 01 ee ec 49 4e 44 45 58 46 ef ed 31 37 fe 00 00 88 05 ee ec ┆ ÅF 1 INDEXF 17 ┆
0x6ca0…6cc0 47 58 ef ed 31 fe 00 00 80 01 ee ec 50 52 47 52 50 4c ef ed 31 37 fe 00 00 88 05 ee ff 70 85 dc ┆GX 1 PRGRPL 17 p ┆
0x6cc0…6ce0 00 87 4b 41 ef ed 4d 4d 31 30 fe 00 00 a0 04 ee ec 4b 42 ef ed 31 30 fe 00 00 a0 04 ee ec 4b 43 ┆ KA MM10 KB 10 KC┆
0x6ce0…6d00 ef ed 31 30 fe 00 00 a0 04 ee ec 4b 44 ef ed 31 30 fe 00 00 a0 04 ee ec 4e 41 ef ed 33 30 fe 00 ┆ 10 KD 10 NA 30 ┆
0x6d00…6d20 00 f0 05 ee ec 4e 42 ef ed 33 30 fe 00 00 f0 05 ee ec 4e 43 ef 4d 4d ed 33 30 fe 00 00 f0 05 ee ┆ NB 30 NC MM 30 ┆
0x6d20…6d40 ec 4e 44 ef ed 33 30 fe 00 00 f0 05 ee ff 76 85 e6 00 a0 ff 88 85 f0 00 44 41 54 41 50 4c ef dc ┆ ND 30 v DATAPL ┆
0x6d40…6d60 22 54 46 3a 22 ff 9a 85 fa 00 50 52 47 52 50 4c ef dc 22 54 46 3a 22 ff a5 85 04 01 4d ef dc 22 ┆"TF:" PRGRPL "TF:" M "┆
0x6d60…6d80 57 22 ff c1 4d 4d 85 0e 01 49 4e 44 45 58 46 ef dc 44 41 54 41 50 4c ef f1 22 49 4e 44 45 58 22 ┆W" MM INDEXF DATAPL "INDEX"┆
0x6d80…6da0 ff db 85 18 01 9d 5d 42 4e 45 5f 46 49 4c ed 49 4e 44 45 58 46 ef ec 4d ef ee ff f3 85 22 01 83 ┆ ÅBNE_FIL INDEXF M " ┆
0x6da0…6dc0 4b 54 4f dc 31 fe 00 00 80 01 b7 32 30 fe 00 00 a0 05 ff 4d 4d 09 86 2c 01 a9 49 4e 44 45 58 46 ┆KTO 1 20 MM , INDEXF┆
0x6dc0…6de0 ef ec 4b 54 4f f0 54 41 42 ef ff 2b 86 36 01 49 dc ed 4b 54 4f e3 31 fe 00 00 80 01 ee e4 35 00 ┆ KTO TAB + 6 I KTO 1 5 ┆