|
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: 15264 (0x3ba0)
Types: TextFile
Notes: Mikados_K
Names: »SKÆRMNIL.K«
└─⟦6b1c9961a⟧ Bits:30008989 INDPERM P1
└─⟦this⟧ »SKÆRMNIL.K«
PROGRAM SKÆRMBILLEDBEHANDLING;
CONST MAXFELTER=30;
MAXNØGLER=9;
TYPE
NFELT=^FELTBESKRIVELSE;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
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;
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;
AR=ARRAY (-4..-4) OF INTEGER;
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
OPERATIONSPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
SALDO,CPR:REAL;
NR:INTEGER;
GRUPPE:INTEGER;
FØSDAG1,FØSDAG2:INTEGER;
NAVN:PACKED ARRAY (1..30) OF CHAR
END;
VAR FELT:NFELT;
USERNIVEAU:NIVEAU;
PICTURE:ARRAY (1..MAXFELTER) OF NFELT;
NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;
I,ANTALFELTER:INTEGER;
LINE:STRING;
POST:OPERATIONSPOST;
FFIL:FELTFIL;
FNAVN:STRING;
(*$R-*)
(*$P*)
PROCEDURE LÆSDESC;
VAR NRNØGLE:INTEGER;
BEGIN
FNAVN:='FELTDESC:P2:30:J';
REWRITE(FFIL,FNAVN);
GET(FFIL);
I:=0;
NRNØGLE:=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);
IF FELT^.ÆNDRENIVEAU=UMULIUS THEN
BEGIN
NRNØGLE:=NRNØGLE+1;
NØGLER(NRNØGLE):=PICTURE(I)
END;
WITH PICTURE(I)^ DO
BEGIN
DESCTYPE:=FELTDESC;
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;
ANTALFELTER:=I
END;
(*$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(POST.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 POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)
END;
DOBBTAL:BEGIN
LINE:='';
RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.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 POST.A(F^.INDEKS)*10000.0+POST.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):=POST.AA(I);
LINE:=CONCAT(LINE,CH)
END
END;
REEL:BEGIN
RESULT:=ABS(POST.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)
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 POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)
END
END
END;
(*$P*)
PROCEDURE NULPOST;
VAR I,J:INTEGER;
BEGIN
FOR J:=1 TO ANTALFELTER DO WITH PICTURE(J)^ DO
BEGIN
CASE FELTTYPE OF
HELTAL:POST.A(INDEKS):=0;
DOBBTAL:BEGIN
POST.A(INDEKS):=0;
POST.A(INDEKS+1):=0
END;
REEL:POST.AAA(INDEKS):=0.0;
TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO
POST.AA(I):=' ';
END
END
END;
PROCEDURE SKRIVFELT(VAR F:NFELT);
VAR I:INTEGER;
R,DF:REAL;
BEGIN
IF USERNIVEAU>=F^.KIKKENIVEAU THEN
BEGIN
GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);
WRITE(F^.LEDETEKST,' ');
MOVETOLINE(F);
WRITELN(LINE);
END
END;
PROCEDURE SKRIVPOST;
VAR I:INTEGER;
BEGIN
CLEARSCREEN;
FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));
END;
(*$P*)
PROCEDURE LÆSFELT(VAR F:NFELT);
VAR I,TAL,TAL1:INTEGER;
VAL:NFELT;
RESULT:REAL;
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(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);
IF F^.EDITERING=0 THEN
BEGIN
READLN;READ(LINE)
END
ELSE
BEGIN
MOVETOLINE(F);
EDIT(LINE:F^.LÆNGDE);
WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1)
END;
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*)
(*PROCEDURE LÆSFELT*)
BEGIN
IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN
BEGIN
REPEAT
LÆSLINIE;
VAL:=F^.NÆSTEVAL;
BUMMED:=FALSE;
WHILE (VAL<>NIL) AND (NOT BUMMED) DO
BEGIN
CHECKVAL;
VAL:=VAL^.NÆSTEVAL
END
UNTIL NOT BUMMED;
CASE F^.FELTTYPE OF
HELTAL:POST.A(F^.INDEKS):=TAL;
DOBBTAL:BEGIN
POST.A(F^.INDEKS):=TAL;
POST.A(F^.INDEKS+1):=TAL1
END;
REEL:POST.AAA(F^.INDEKS):=RESULT;
TEKST:FOR I:=1 TO F^.LÆNGDE DO
POST.AA(I+F^.INDEKS-1):=LINE(I)
END
END
END;
(*$P*)
(*HOVEDPROGRAM*)
BEGIN
(*************************************************************************)
(* *)
(* I N I T I A L I S E R I N G E R *)
(* *)
(*************************************************************************)
USERNIVEAU:=UMULIUS;
POST.SALDO:=-453.47;
POST.CPR:=0101011003.0;
POST.NR:=11;
POST.NAVN:='123456789012345678901234567890';
POST.GRUPPE:=-5;
POST.FØSDAG1:=31;
POST.FØSDAG2:=854;
LÆSDESC;
SKRIVPOST;
REPEAT
READLN;
FOR I:=1 TO ANTALFELTER DO
LÆSFELT(PICTURE(I));
READLN;
SKRIVPOST
UNTIL POST.NR=99;
END.
0x0000…0020 Line {l1=0x1e, l2=»PROGRAM SKÆRMBILLEDBEHANDLING;«, l3=0x1e}
0x0020…0035 Line {l1=0x13, l2=»CONST MAXFELTER=30;«, l3=0x13}
0x0035…0049 Line {l1=0x12, l2=» MAXNØGLER=9;«, l3=0x12}
0x0049…004f Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x004f…0068 Line {l1=0x17, l2=»NFELT=^FELTBESKRIVELSE;«, l3=0x17}
0x0068…00b3 Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x00b3…00c4 Line {l1=0x0f, l2=»SKÆRMPOS=RECORD«, l3=0x0f}
0x00c4…00d4 Line {l1=0x0e, l2=» X,Y:INTEGER«, l3=0x0e}
0x00d4…00da Line {l1=0x04, l2=»END;«, l3=0x04}
0x00da…00fe Line {l1=0x22, l2=»FTYPE=(HELTAL,DOBBTAL,REEL,TEKST);«, l3=0x22}
0x00fe…012f Line {l1=0x2f, l2=»VTYPE=(HINTERVAL,DINTERVAL,RINTERVAL,DATO,CPR);«, l3=0x2f}
0x012f…0156 Line {l1=0x25, l2=»BESKRIVELSESTYPE=(FELTDESC,VALIDESC);«, l3=0x25}
0x0156…016e Line {l1=0x16, l2=»FELTBESKRIVELSE=RECORD«, l3=0x16}
0x016e…0182 Line {l1=0x12, l2=» NÆSTEVAL:NFELT;«, l3=0x12}
0x0182…01a8 Line {l1=0x24, l2=» CASE DESCTYPE:BESKRIVELSESTYPE OF«, l3=0x24}
0x01a8…01b6 Line {l1=0x0c, l2=» FELTDESC:«, l3=0x0c}
0x01b6…01d1 Line {l1=0x19, l2=» (INDPOS,UDPOS:SKÆRMPOS;«, l3=0x19}
0x01d1…01f5 Line {l1=0x22, l2=» KIKKENIVEAU,ÆNDRENIVEAU:NIVEAU;«, l3=0x22}
0x01f5…020c Line {l1=0x15, l2=» EDITERING:INTEGER;«, l3=0x15}
0x020c…022d Line {l1=0x1f, l2=» LEDETEKST,FØLGETEKST:STRING;«, l3=0x1f}
0x022d…0241 Line {l1=0x12, l2=» INDEKS:INTEGER;«, l3=0x12}
0x0241…0255 Line {l1=0x12, l2=» LÆNGDE:INTEGER;«, l3=0x12}
0x0255…0269 Line {l1=0x12, l2=» FORAN0:INTEGER;«, l3=0x12}
0x0269…0284 Line {l1=0x19, l2=» CASE FELTTYPE:FTYPE OF«, l3=0x19}
0x0284…029c Line {l1=0x16, l2=» REEL:(DEC:INTEGER);«, l3=0x16}
0x029c…02ba Line {l1=0x1c, l2=» HELTAL,DOBBTAL,TEKST:());«, l3=0x1c}
0x02ba…02c8 Line {l1=0x0c, l2=» VALIDESC:«, l3=0x0c}
0x02c8…02e9 Line {l1=0x1f, l2=» (CASE VALIDITETSTYPE:VTYPE OF«, l3=0x1f}
0x02e9…030d Line {l1=0x22, l2=» HINTERVAL:(MIN,MAX:INTEGER);«, l3=0x22}
0x030d…033d Line {l1=0x2e, l2=» DINTERVAL:(MIN1,MIN2,MAX1,MAX2:INTEGER);«, l3=0x2e}
0x033d…0360 Line {l1=0x21, l2=» RINTERVAL:(RMIN,RMAX:REAL);«, l3=0x21}
0x0360…0374 Line {l1=0x12, l2=» DATO,CPR:())«, l3=0x12}
0x0374…037a Line {l1=0x04, l2=»END;«, l3=0x04}
0x037a…039c Line {l1=0x20, l2=»FELTFIL=FILE OF FELTBESKRIVELSE;«, l3=0x20}
0x039c…03bb Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x03bb…03e2 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x03e2…03fd Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x03fd…0414 Line {l1=0x15, l2=»OPERATIONSPOST=RECORD«, l3=0x15}
0x0414…0424 Line {l1=0x0e, l2=» AA:ARAR;«, l3=0x0e}
0x0424…0431 Line {l1=0x0b, l2=» A:AR;«, l3=0x0b}
0x0431…0441 Line {l1=0x0e, l2=» AAA:RAR;«, l3=0x0e}
0x0441…0458 Line {l1=0x15, l2=» SALDO,CPR:REAL;«, l3=0x15}
0x0458…046b Line {l1=0x11, l2=» NR:INTEGER;«, l3=0x11}
0x046b…0482 Line {l1=0x15, l2=» GRUPPE:INTEGER;«, l3=0x15}
0x0482…04a2 Line {l1=0x1e, l2=» FØSDAG1,FØSDAG2:INTEGER;«, l3=0x1e}
0x04a2…04cb Line {l1=0x27, l2=» NAVN:PACKED ARRAY (1..30) OF CHAR«, l3=0x27}
0x04cb…04d1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04d1…04e2 Line {l1=0x0f, l2=»VAR FELT:NFELT;«, l3=0x0f}
0x04e2…04fa Line {l1=0x16, l2=» USERNIVEAU:NIVEAU;«, l3=0x16}
0x04fa…0526 Line {l1=0x2a, l2=» PICTURE:ARRAY (1..MAXFELTER) OF NFELT;«, l3=0x2a}
0x0526…0551 Line {l1=0x29, l2=» NØGLER:ARRAY (1..MAXNØGLER) OF NFELT;«, l3=0x29}
0x0551…056d Line {l1=0x1a, l2=» I,ANTALFELTER:INTEGER;«, l3=0x1a}
0x056d…057f Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x057f…0599 Line {l1=0x18, l2=» POST:OPERATIONSPOST;«, l3=0x18}
0x0599…05ac Line {l1=0x11, l2=» FFIL:FELTFIL;«, l3=0x11}
0x05ac…05bf Line {l1=0x11, l2=» FNAVN:STRING;«, l3=0x11}
0x05bf…05c8 Line {l1=0x07, l2=»(*$R-*)«, l3=0x07}
0x05c8…05d0 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x05d0…05e4 Line {l1=0x12, l2=»PROCEDURE LÆSDESC;«, l3=0x12}
0x05e4…05fa Line {l1=0x14, l2=»VAR NRNØGLE:INTEGER;«, l3=0x14}
0x05fa…0601 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0601…061f Line {l1=0x1c, l2=» FNAVN:='FELTDESC:P2:30:J';«, l3=0x1c}
0x061f…0637 Line {l1=0x16, l2=» REWRITE(FFIL,FNAVN);«, l3=0x16}
0x0637…063a Line {l1=0x01, l2=» «, l3=0x01}
0x063a…0648 Line {l1=0x0c, l2=» GET(FFIL);«, l3=0x0c}
0x0648…0651 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x0651…0660 Line {l1=0x0d, l2=» NRNØGLE:=0;«, l3=0x0d}
0x0660…067d Line {l1=0x1b, l2=» WHILE FFIL^.INDPOS.X>0 DO«, l3=0x1b}
0x067d…0686 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0686…0693 Line {l1=0x0b, l2=» I:=I+1;«, l3=0x0b}
0x0693…06af Line {l1=0x1a, l2=» CASE FFIL^.FELTTYPE OF«, l3=0x1a}
0x06af…06d8 Line {l1=0x27, l2=» REEL:NEW(PICTURE(I),FELTDESC,REEL);«, l3=0x27}
0x06d8…0712 Line {l1=0x38, l2=» HELTAL,DOBBTAL,TEKST:NEW(PICTURE(I),FELTDESC,HELTAL)«, l3=0x38}
0x0712…071c Line {l1=0x08, l2=» END;«, l3=0x08}
0x071c…0733 Line {l1=0x15, l2=» FELT:=PICTURE(I);«, l3=0x15}
0x0733…075a Line {l1=0x25, l2=» IF FELT^.ÆNDRENIVEAU=UMULIUS THEN«, l3=0x25}
0x075a…0765 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0765…0780 Line {l1=0x19, l2=» NRNØGLE:=NRNØGLE+1;«, l3=0x19}
0x0780…07a3 Line {l1=0x21, l2=» NØGLER(NRNØGLE):=PICTURE(I)«, l3=0x21}
0x07a3…07ad Line {l1=0x08, l2=» END;«, l3=0x08}
0x07ad…07b0 Line {l1=0x01, l2=» «, l3=0x01}
0x07b0…07c9 Line {l1=0x17, l2=» WITH PICTURE(I)^ DO«, l3=0x17}
0x07c9…07d4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x07d4…07ef Line {l1=0x19, l2=» DESCTYPE:=FELTDESC;«, l3=0x19}
0x07ef…0810 Line {l1=0x1f, l2=» INDPOS.X:=FFIL^.INDPOS.X;«, l3=0x1f}
0x0810…0831 Line {l1=0x1f, l2=» INDPOS.Y:=FFIL^.INDPOS.Y;«, l3=0x1f}
0x0831…0850 Line {l1=0x1d, l2=» UDPOS.X:=FFIL^.UDPOS.X;«, l3=0x1d}
0x0850…086f Line {l1=0x1d, l2=» UDPOS.Y:=FFIL^.UDPOS.Y;«, l3=0x1d}
0x086f…0896 Line {l1=0x25, l2=» KIKKENIVEAU:=FFIL^.KIKKENIVEAU;«, l3=0x25}
0x0896…08bd Line {l1=0x25, l2=» ÆNDRENIVEAU:=FFIL^.ÆNDRENIVEAU;«, l3=0x25}
0x08bd…08e0 Line {l1=0x21, l2=» LEDETEKST:=FFIL^.LEDETEKST;«, l3=0x21}
0x08e0…0905 Line {l1=0x23, l2=» FØLGETEKST:=FFIL^.FØLGETEKST;«, l3=0x23}
0x0905…0928 Line {l1=0x21, l2=» EDITERING:=FFIL^.EDITERING;«, l3=0x21}
0x0928…0949 Line {l1=0x1f, l2=» FELTTYPE:=FFIL^.FELTTYPE;«, l3=0x1f}
0x0949…0966 Line {l1=0x1b, l2=» INDEKS:=FFIL^.INDEKS;«, l3=0x1b}
0x0966…0983 Line {l1=0x1b, l2=» LÆNGDE:=FFIL^.LÆNGDE;«, l3=0x1b}
0x0983…09a0 Line {l1=0x1b, l2=» FORAN0:=FFIL^.FORAN0;«, l3=0x1b}
0x09a0…09cd Line {l1=0x2b, l2=» IF FELTTYPE=REEL THEN DEC:=FFIL^.DEC;«, l3=0x2b}
0x09cd…09f1 Line {l1=0x22, l2=» WHILE FFIL^.NÆSTEVAL<>NIL DO«, l3=0x22}
0x09f1…09fe Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x09fe…0a12 Line {l1=0x12, l2=» GET(FFIL);«, l3=0x12}
0x0a12…0a29 Line {l1=0x15, l2=» WITH FELT^ DO«, l3=0x15}
0x0a29…0a4f Line {l1=0x24, l2=» CASE FFIL^.VALIDITETSTYPE OF«, l3=0x24}
0x0a4f…0a6a Line {l1=0x19, l2=» HINTERVAL:BEGIN«, l3=0x19}
0x0a6a…0aa3 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,HINTERVAL);«, l3=0x37}
0x0aa3…0ad4 Line {l1=0x2f, l2=» NÆSTEVAL^.MIN:=FFIL^.MIN;«, l3=0x2f}
0x0ad4…0b04 Line {l1=0x2e, l2=» NÆSTEVAL^.MAX:=FFIL^.MAX«, l3=0x2e}
0x0b04…0b1e Line {l1=0x18, l2=» END;«, l3=0x18}
0x0b1e…0b39 Line {l1=0x19, l2=» DINTERVAL:BEGIN«, l3=0x19}
0x0b39…0b72 Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,DINTERVAL);«, l3=0x37}
0x0b72…0bc0 Line {l1=0x4c, l2=» NÆSTEVAL^.MIN1:=FFIL^.MIN1;NÆSTEVAL^.MIN2:=FFIL^.MIN2;«, l3=0x4c}
0x0bc0…0c0d Line {l1=0x4b, l2=» NÆSTEVAL^.MAX1:=FFIL^.MAX1;NÆSTEVAL^.MAX2:=FFIL^.MAX2«, l3=0x4b}
0x0c0d…0c27 Line {l1=0x18, l2=» END;«, l3=0x18}
0x0c27…0c42 Line {l1=0x19, l2=» RINTERVAL:BEGIN«, l3=0x19}
0x0c42…0c7b Line {l1=0x37, l2=» NEW(NÆSTEVAL,VALIDESC,RINTERVAL);«, l3=0x37}
0x0c7b…0cae Line {l1=0x31, l2=» NÆSTEVAL^.RMIN:=FFIL^.RMIN;«, l3=0x31}
0x0cae…0ce0 Line {l1=0x30, l2=» NÆSTEVAL^.RMAX:=FFIL^.RMAX«, l3=0x30}
0x0ce0…0cfa Line {l1=0x18, l2=» END;«, l3=0x18}
0x0cfa…0d2a Line {l1=0x2e, l2=» DATO,CPR:NEW(NÆSTEVAL,VALIDESC,DATO)«, l3=0x2e}
0x0d2a…0d38 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0d38…0d57 Line {l1=0x1d, l2=» FELT:=FELT^.NÆSTEVAL;«, l3=0x1d}
0x0d57…0d7a Line {l1=0x21, l2=» FELT^.DESCTYPE:=VALIDESC;«, l3=0x21}
0x0d7a…0dae Line {l1=0x32, l2=» FELT^.VALIDITETSTYPE:=FFIL^.VALIDITETSTYPE«, l3=0x32}
0x0dae…0dba Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0dba…0dd5 Line {l1=0x19, l2=» FELT^.NÆSTEVAL:=NIL«, l3=0x19}
0x0dd5…0ddf Line {l1=0x08, l2=» END;«, l3=0x08}
0x0ddf…0dee Line {l1=0x0d, l2=» GET(FFIL)«, l3=0x0d}
0x0dee…0df6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0df6…0e08 Line {l1=0x10, l2=» ANTALFELTER:=I«, l3=0x10}
0x0e08…0e0e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e0e…0e16 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0e16…0e3a Line {l1=0x22, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT);«, l3=0x22}
0x0e3a…0e4d Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0e4d…0e66 Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x0e66…0e7e Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x0e7e…0e85 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e85…0e91 Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x0e91…0eac Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x0eac…0ec0 Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x0ec0…0eda Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x0eda…0f07 Line {l1=0x2b, l2=» TAL:=ABS(POST.A(F^.INDEKS));«, l3=0x2b}
0x0f07…0f1e Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x0f1e…0f4b Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x0f4b…0f74 Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x0f74…0f96 Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x0f96…0fb3 Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x0fb3…0ffb Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x0ffb…103e Line {l1=0x41, l2=» IF POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE)«, l3=0x41}
0x103e…1051 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1051…1065 Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x1065…107f Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x107f…10cb Line {l1=0x4a, l2=» RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1));«, l3=0x4a}
0x10cb…10ec Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x10ec…1103 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x1103…112d Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x112d…1159 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x1159…1175 Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x1175…119f Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x119f…11b6 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x11b6…11d7 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x11d7…1200 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x1200…122a Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x122a…1256 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x1256…1274 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x1274…1293 Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x1293…12db Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x12db…1325 Line {l1=0x48, l2=» IF POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1)<0.0 THEN«, l3=0x48}
0x1325…134e Line {l1=0x27, l2=» LINE:=CONCAT('-',LINE)«, l3=0x27}
0x134e…1361 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1361…1375 Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x1375…138f Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x138f…13cc Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x13cc…13e2 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x13e2…1407 Line {l1=0x23, l2=» CH(1):=POST.AA(I);«, l3=0x23}
0x1407…142f Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x142f…1443 Line {l1=0x12, l2=» END«, l3=0x12}
0x1443…1456 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1456…146a Line {l1=0x12, l2=» REEL:BEGIN«, l3=0x12}
0x146a…149c Line {l1=0x30, l2=» RESULT:=ABS(POST.AAA(F^.INDEKS));«, l3=0x30}
0x149c…14ba Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x14ba…14d9 Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x14d9…14f3 Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x14f3…1508 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x1508…151e Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x151e…1539 Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x1539…1587 Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x1587…159c Line {l1=0x13, l2=» END;«, l3=0x13}
0x159c…15b6 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x15b6…15da Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x15da…15f0 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x15f0…1616 Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x1616…162f Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x162f…165b Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x165b…1689 Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x1689…16a9 Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x16a9…16d4 Line {l1=0x29, l2=» UNTIL (I>48) OR (DM<1.0)«, l3=0x29}
0x16d4…16e8 Line {l1=0x12, l2=» END«, l3=0x12}
0x16e8…16fd Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x16fd…1713 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1713…172e Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x172e…1766 Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x1766…1790 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x1790…17bc Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x17bc…17da Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x17da…17ef Line {l1=0x13, l2=» END;«, l3=0x13}
0x17ef…1806 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x1806…1827 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x1827…1850 Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x1850…1888 Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x1888…18b2 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x18b2…18de Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x18de…18fc Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x18fc…191b Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x191b…1962 Line {l1=0x45, l2=» IF POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE)«, l3=0x45}
0x1962…1974 Line {l1=0x10, l2=» END«, l3=0x10}
0x1974…197f Line {l1=0x09, l2=» END«, l3=0x09}
0x197f…1985 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1985…198d Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x198d…19a1 Line {l1=0x12, l2=»PROCEDURE NULPOST;«, l3=0x12}
0x19a1…19b3 Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x19b3…19ba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x19ba…19ec Line {l1=0x30, l2=» FOR J:=1 TO ANTALFELTER DO WITH PICTURE(J)^ DO«, l3=0x30}
0x19ec…19f5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x19f5…1a0b Line {l1=0x14, l2=» CASE FELTTYPE OF«, l3=0x14}
0x1a0b…1a2a Line {l1=0x1d, l2=» HELTAL:POST.A(INDEKS):=0;«, l3=0x1d}
0x1a2a…1a3d Line {l1=0x11, l2=» DOBBTAL:BEGIN«, l3=0x11}
0x1a3d…1a5f Line {l1=0x20, l2=» POST.A(INDEKS):=0;«, l3=0x20}
0x1a5f…1a82 Line {l1=0x21, l2=» POST.A(INDEKS+1):=0«, l3=0x21}
0x1a82…1a94 Line {l1=0x10, l2=» END;«, l3=0x10}
0x1a94…1ab5 Line {l1=0x1f, l2=» REEL:POST.AAA(INDEKS):=0.0;«, l3=0x1f}
0x1ab5…1ae4 Line {l1=0x2d, l2=» TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO«, l3=0x2d}
0x1ae4…1b02 Line {l1=0x1c, l2=» POST.AA(I):=' ';«, l3=0x1c}
0x1b02…1b0b Line {l1=0x07, l2=» END«, l3=0x07}
0x1b0b…1b12 Line {l1=0x05, l2=» END«, l3=0x05}
0x1b12…1b18 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b18…1b1b Line {l1=0x01, l2=» «, l3=0x01}
0x1b1b…1b3e Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x1b3e…1b4e Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1b4e…1b5e Line {l1=0x0e, l2=» R,DF:REAL;«, l3=0x0e}
0x1b5e…1b65 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1b65…1b8a Line {l1=0x23, l2=» IF USERNIVEAU>=F^.KIKKENIVEAU THEN«, l3=0x23}
0x1b8a…1b92 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x1b92…1bb4 Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x1bb4…1bd0 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x1bd0…1be2 Line {l1=0x10, l2=» MOVETOLINE(F);«, l3=0x10}
0x1be2…1bf4 Line {l1=0x10, l2=» WRITELN(LINE);«, l3=0x10}
0x1bf4…1bfa Line {l1=0x04, l2=» END«, l3=0x04}
0x1bfa…1c00 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c00…1c03 Line {l1=0x01, l2=» «, l3=0x01}
0x1c03…1c19 Line {l1=0x14, l2=»PROCEDURE SKRIVPOST;«, l3=0x14}
0x1c19…1c29 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1c29…1c30 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c30…1c40 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1c40…1c75 Line {l1=0x33, l2=» FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));«, l3=0x33}
0x1c75…1c7b Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c7b…1c83 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1c83…1ca4 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x1ca4…1cbd Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x1cbd…1ccd Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x1ccd…1cdf Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x1cdf…1cf4 Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x1cf4…1cf7 Line {l1=0x01, l2=» «, l3=0x01}
0x1cf7…1cff Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1cff…1d14 Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x1d14…1d25 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x1d25…1d42 Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x1d42…1d50 Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x1d50…1d53 Line {l1=0x01, l2=» «, l3=0x01}
0x1d53…1d5a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d5a…1d64 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1d64…1d74 Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x1d74…1d86 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x1d86…1d93 Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x1d93…1da1 Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x1da1…1dc7 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x1dc7…1e01 Line {l1=0x38, l2=» WRITELN(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x38}
0x1e01…1e3e Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x1e3e…1e5a Line {l1=0x1a, l2=» IF F^.EDITERING=0 THEN«, l3=0x1a}
0x1e5a…1e65 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1e65…1e7e Line {l1=0x17, l2=» READLN;READ(LINE)«, l3=0x17}
0x1e7e…1e87 Line {l1=0x07, l2=» END«, l3=0x07}
0x1e87…1e91 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1e91…1e9c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1e9c…1eb2 Line {l1=0x14, l2=» MOVETOLINE(F);«, l3=0x14}
0x1eb2…1ecf Line {l1=0x1b, l2=» EDIT(LINE:F^.LÆNGDE);«, l3=0x1b}
0x1ecf…1f13 Line {l1=0x42, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1)«, l3=0x42}
0x1f13…1f1d Line {l1=0x08, l2=» END;«, l3=0x08}
0x1f1d…1f36 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x1f36…1f3e Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x1f3e…1f63 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x1f63…1f6e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1f6e…1f7f Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x1f7f…1fa6 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x1fa6…1fc3 Line {l1=0x1b, l2=» IF F^.FORAN0=0 THEN«, l3=0x1b}
0x1fc3…1fe5 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x1fe5…1ff3 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1ff3…2015 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x2015…201f Line {l1=0x08, l2=» END;«, l3=0x08}
0x201f…2030 Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x2030…204c Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x204c…2057 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2057…2064 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x2064…2077 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x2077…2092 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x2092…209f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x209f…20b5 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x20b5…20c3 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x20c3…20cf Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x20cf…20ee Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x20ee…20fb Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x20fb…210e Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x210e…211f Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x211f…214e Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x214e…215d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x215d…2173 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x2173…218e Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x218e…219c Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x219c…21c7 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x21c7…21d3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x21d3…21f2 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x21f2…2204 Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x2204…221f Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x221f…226b Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x226b…229b Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x229b…22b0 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x22b0…22dd Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x22dd…230e Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x230e…2321 Line {l1=0x11, l2=» END«, l3=0x11}
0x2321…233f Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x233f…234a Line {l1=0x09, l2=» END«, l3=0x09}
0x234a…2362 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x2362…2369 Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x2369…2385 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x2385…2390 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2390…239d Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x239d…23b0 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x23b0…23c1 Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x23c1…23dc Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x23dc…23e9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x23e9…23ff Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x23ff…240d Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x240d…2419 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2419…2447 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x2447…2454 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2454…2467 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x2467…2478 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x2478…24a1 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x24a1…24ce Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x24ce…24dc Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x24dc…250c Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x250c…251f Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x251f…252d Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x252d…253c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x253c…2552 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x2552…256d Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x256d…257a Line {l1=0x0b, l2=» END«, l3=0x0b}
0x257a…2586 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2586…2596 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x2596…25b5 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x25b5…25c2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x25c2…25d3 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x25d3…25e9 Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x25e9…2612 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x2612…2621 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2621…2651 Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x2651…2669 Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x2669…2676 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2676…2684 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2684…2693 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2693…26a9 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x26a9…26c4 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x26c4…26d1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x26d1…26dd Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x26dd…26fc Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x26fc…2721 Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x2721…272a Line {l1=0x07, l2=» END«, l3=0x07}
0x272a…273d Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x273d…2746 Line {l1=0x07, l2=» END«, l3=0x07}
0x2746…2752 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x2752…2758 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2758…2760 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2760…2775 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x2775…279a Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x279a…27bd Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x27bd…27c4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x27c4…27e3 Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x27e3…27f1 Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x27f1…2822 Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x2822…2830 Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x2830…2870 Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x2870…28af Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x28af…28bd Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x28bd…28f6 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x28f6…28ff Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x28ff…291b Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x291b…2926 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2926…2957 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x2957…298b Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x298b…29be Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x29be…2a0c Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x2a0c…2a26 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x2a26…2a3b Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x2a3b…2a6a Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x2a6a…2ab5 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x2ab5…2ac0 Line {l1=0x09, l2=» END«, l3=0x09}
0x2ac0…2ac9 Line {l1=0x07, l2=» END«, l3=0x07}
0x2ac9…2ae1 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x2ae1…2ae9 Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x2ae9…2b06 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x2b06…2b11 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2b11…2b43 Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x2b43…2b62 Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x2b62…2b82 Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x2b82…2b9f Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x2b9f…2bed Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x2bed…2c07 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x2c07…2c1c Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x2c1c…2c4b Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x2c4b…2c95 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x2c95…2ca1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ca1…2cbb Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x2cbb…2cc8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2cc8…2d17 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}
0x2d17…2d41 Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x2d41…2d70 Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x2d70…2d7b Line {l1=0x09, l2=» END«, l3=0x09}
0x2d7b…2d84 Line {l1=0x07, l2=» END«, l3=0x07}
0x2d84…2d9c Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x2d9c…2da3 Line {l1=0x05, l2=» END«, l3=0x05}
0x2da3…2da9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2da9…2db1 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2db1…2dc8 Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x2dc8…2dcf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2dcf…2df4 Line {l1=0x23, l2=» IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN«, l3=0x23}
0x2df4…2dfc Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x2dfc…2e06 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2e06…2e15 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x2e15…2e2c Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x2e2c…2e40 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x2e40…2e6a Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x2e6a…2e75 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2e75…2e86 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x2e86…2ea0 Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x2ea0…2ea9 Line {l1=0x07, l2=» END«, l3=0x07}
0x2ea9…2ebe Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x2ebe…2ed5 Line {l1=0x15, l2=» CASE F^.FELTTYPE OF«, l3=0x15}
0x2ed5…2ef7 Line {l1=0x20, l2=» HELTAL:POST.A(F^.INDEKS):=TAL;«, l3=0x20}
0x2ef7…2f08 Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x2f08…2f2d Line {l1=0x23, l2=» POST.A(F^.INDEKS):=TAL;«, l3=0x23}
0x2f2d…2f54 Line {l1=0x25, l2=» POST.A(F^.INDEKS+1):=TAL1«, l3=0x25}
0x2f54…2f64 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2f64…2f89 Line {l1=0x23, l2=» REEL:POST.AAA(F^.INDEKS):=RESULT;«, l3=0x23}
0x2f89…2fab Line {l1=0x20, l2=» TEKST:FOR I:=1 TO F^.LÆNGDE DO«, l3=0x20}
0x2fab…2fd8 Line {l1=0x2b, l2=» POST.AA(I+F^.INDEKS-1):=LINE(I)«, l3=0x2b}
0x2fd8…2fdf Line {l1=0x05, l2=» END«, l3=0x05}
0x2fdf…2fe5 Line {l1=0x04, l2=» END«, l3=0x04}
0x2fe5…2feb Line {l1=0x04, l2=»END;«, l3=0x04}
0x2feb…2ff3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2ff3…3005 Line {l1=0x10, l2=»(*HOVEDPROGRAM*)«, l3=0x10}
0x3005…300c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x300c…3059 Line {l1=0x4b, l2=»(*************************************************************************)«, l3=0x4b}
0x3059…30a6 Line {l1=0x4b, l2=»(* *)«, l3=0x4b}
0x30a6…30f3 Line {l1=0x4b, l2=»(* I N I T I A L I S E R I N G E R *)«, l3=0x4b}
0x30f3…3140 Line {l1=0x4b, l2=»(* *)«, l3=0x4b}
0x3140…318d Line {l1=0x4b, l2=»(*************************************************************************)«, l3=0x4b}
0x318d…3190 Line {l1=0x01, l2=» «, l3=0x01}
0x3190…31a8 Line {l1=0x16, l2=» USERNIVEAU:=UMULIUS;«, l3=0x16}
0x31a8…31c0 Line {l1=0x16, l2=» POST.SALDO:=-453.47;«, l3=0x16}
0x31c0…31db Line {l1=0x19, l2=» POST.CPR:=0101011003.0;«, l3=0x19}
0x31db…31eb Line {l1=0x0e, l2=» POST.NR:=11;«, l3=0x0e}
0x31eb…321b Line {l1=0x2e, l2=» POST.NAVN:='123456789012345678901234567890';«, l3=0x2e}
0x321b…322f Line {l1=0x12, l2=» POST.GRUPPE:=-5;«, l3=0x12}
0x322f…3244 Line {l1=0x13, l2=» POST.FØSDAG1:=31;«, l3=0x13}
0x3244…325a Line {l1=0x14, l2=» POST.FØSDAG2:=854;«, l3=0x14}
0x325a…325d Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3260…326c Line {l1=0x0a, l2=» LÆSDESC;«, l3=0x0a}
0x326c…327a Line {l1=0x0c, l2=» SKRIVPOST;«, l3=0x0c}
0x327a…3282 Line {l1=0x06, l2=»REPEAT«, l3=0x06}
0x3282…328d Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x328d…32ab Line {l1=0x1c, l2=» FOR I:=1 TO ANTALFELTER DO«, l3=0x1c}
0x32ab…32c5 Line {l1=0x18, l2=» LÆSFELT(PICTURE(I));«, l3=0x18}
0x32c5…32d0 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x32d0…32dd Line {l1=0x0b, l2=» SKRIVPOST«, l3=0x0b}
0x32dd…32f0 Line {l1=0x11, l2=»UNTIL POST.NR=99;«, l3=0x11}
0x32f0…32f3 Line {l1=0x01, l2=» «, l3=0x01}
0x32f3…32f9 Line {l1=0x04, l2=»END.«, l3=0x04}
0x32f9…3300 00 00 00 00 00 00 00 ┆ ┆
0x3300…3320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x43…]
0x3b80…3ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 ┆ ┆