|
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: 11232 (0x2be0)
Types: TextFile
Notes: Mikados_K
Names: »MOVETOLI.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »MOVETOLI.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »MOVETOLI.K«
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:=''; (*$R-*)
TAL:=ABS(POST.A(F^.INDEKS)); (*$R+*)
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); (*$R-*)
IF POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE) (*$R+*)
END;
DOBBTAL:BEGIN
LINE:=''; (*$R-*)
RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1));
(*$R+*)
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);
(*$R-*)
IF POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1)<0.0 THEN
LINE:=CONCAT('-',LINE) (*$R+*)
END;
TEKST:BEGIN
LINE:='';
FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO
BEGIN (*$R-*)
CH(1):=POST.AA(I); (*$R+*)
LINE:=CONCAT(LINE,CH)
END
END;
REEL:BEGIN (*$R-*)
RESULT:=ABS(POST.AAA(F^.INDEKS)); (*$R+*)
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; (*$R-*)
IF POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE) (*$R+*)
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 (*$R-*)
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):=' '; (*$R+*)
END
END
END;
PROCEDURE SKRIVFELT(VAR F:NFELT);
BEGIN
IF USERNIVEAU>=F^.KIKKENIVEAU THEN
BEGIN
GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);
WRITE(F^.LEDETEKST,' ');
IF (F^.FELTTYPE=REEL) AND (F^.EDITERING=0) THEN
(*$R-*)
IF F^.DEC>0 THEN
WRITELN(POST.AAA(F^.INDEKS):F^.LÆNGDE:F^.DEC)
ELSE
WRITELN(POST.AAA(F^.INDEKS):F^.LÆNGDE:-2)
(*$R+*)
ELSE
BEGIN
MOVETOLINE(F);
WRITELN(LINE)
END
END
END;
PROCEDURE SKRIVPOST;
VAR I:INTEGER;
BEGIN
CLEARSCREEN;
FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));
END;
PROCEDURE PRINTPOST;
VAR I:INTEGER;
BEGIN
FOR I:=1 TO ANTALFELTER DO
IF USERNIVEAU>=PICTURE(I)^.KIKKENIVEAU THEN
BEGIN
WRITE(LIST,PICTURE(I)^.LEDETEKST,' ');
MOVETOLINE(PICTURE(I));
LINES:=LINES+1;
WRITELN(LIST,LINE)
END
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);
IF (F^.INDPOS.Y=23) AND (F^.INDPOS.X=1) THEN
BEGIN
WRITELN(' ':79);
GOTOXY(F^.INDPOS.X,F^.INDPOS.Y)
END;
WRITE(' ':LENGTH(F^.LEDETEKST)+LENGTH(F^.FØLGETEKST)+F^.LÆNGDE+2);
GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);
WRITE(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); (*$R-*)
WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1) (*$R+*)
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 (*$R-*)
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) (*$R+*)
END
END
END;
(*$P*)
0x0000…0024 Line {l1=0x22, l2=»PROCEDURE MOVETOLINE(VAR F:NFELT);«, l3=0x22}
0x0024…0037 Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0037…0050 Line {l1=0x17, l2=» TAL,DECS,I:INTEGER;«, l3=0x17}
0x0050…0068 Line {l1=0x16, l2=» RESULT,DM,DD:REAL;«, l3=0x16}
0x0068…006f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x006f…007b Line {l1=0x0a, l2=» CH:=' ';«, l3=0x0a}
0x007b…0096 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x0096…00aa Line {l1=0x12, l2=» HELTAL:BEGIN«, l3=0x12}
0x00aa…00fa Line {l1=0x4e, l2=» LINE:=''; (*$R-*)«, l3=0x4e}
0x00fa…014a Line {l1=0x4e, l2=» TAL:=ABS(POST.A(F^.INDEKS)); (*$R+*)«, l3=0x4e}
0x014a…0161 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x0161…018e Line {l1=0x2b, l2=» CH(1):=CHR(TAL MOD 10+48);«, l3=0x2b}
0x018e…01b7 Line {l1=0x27, l2=» LINE:=CONCAT(CH,LINE);«, l3=0x27}
0x01b7…01d9 Line {l1=0x20, l2=» TAL:=TAL DIV 10«, l3=0x20}
0x01d9…01f6 Line {l1=0x1b, l2=» UNTIL TAL=0;«, l3=0x1b}
0x01f6…0246 Line {l1=0x4e, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE); (*$R-*)«, l3=0x4e}
0x0246…0296 Line {l1=0x4e, l2=» IF POST.A(F^.INDEKS)<0 THEN LINE:=CONCAT('-',LINE) (*$R+*)«, l3=0x4e}
0x0296…02a9 Line {l1=0x11, l2=» END;«, l3=0x11}
0x02a9…02bd Line {l1=0x12, l2=» DOBBTAL:BEGIN«, l3=0x12}
0x02bd…030d Line {l1=0x4e, l2=» LINE:=''; (*$R-*)«, l3=0x4e}
0x030d…0359 Line {l1=0x4a, l2=» RESULT:=ABS(POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1));«, l3=0x4a}
0x0359…03a9 Line {l1=0x4e, l2=» (*$R+*)«, l3=0x4e}
0x03a9…03ca Line {l1=0x1f, l2=» DM:=100000000.0;«, l3=0x1f}
0x03ca…03e1 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x03e1…040b Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x040b…0437 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x0437…0453 Line {l1=0x1a, l2=» DM:=DM/10«, l3=0x1a}
0x0453…047d Line {l1=0x28, l2=» UNTIL (I>48) OR (DM<1.0);«, l3=0x28}
0x047d…0494 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x0494…04b5 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x04b5…04de Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x04de…0508 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x0508…0534 Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x0534…0552 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x0552…0571 Line {l1=0x1d, l2=» UNTIL DM<0.09;«, l3=0x1d}
0x0571…05b9 Line {l1=0x46, l2=» WHILE LENGTH(LINE)<F^.FORAN0 DO LINE:=CONCAT('0',LINE);«, l3=0x46}
0x05b9…0609 Line {l1=0x4e, l2=» (*$R-*)«, l3=0x4e}
0x0609…0653 Line {l1=0x48, l2=» IF POST.A(F^.INDEKS)*10000.0+POST.A(F^.INDEKS+1)<0.0 THEN«, l3=0x48}
0x0653…06a3 Line {l1=0x4e, l2=» LINE:=CONCAT('-',LINE) (*$R+*)«, l3=0x4e}
0x06a3…06b6 Line {l1=0x11, l2=» END;«, l3=0x11}
0x06b6…06ca Line {l1=0x12, l2=» TEKST:BEGIN«, l3=0x12}
0x06ca…06e4 Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x06e4…0721 Line {l1=0x3b, l2=» FOR I:=F^.INDEKS TO F^.INDEKS+F^.LÆNGDE-1 DO«, l3=0x3b}
0x0721…0771 Line {l1=0x4e, l2=» BEGIN (*$R-*)«, l3=0x4e}
0x0771…07c1 Line {l1=0x4e, l2=» CH(1):=POST.AA(I); (*$R+*)«, l3=0x4e}
0x07c1…07e9 Line {l1=0x26, l2=» LINE:=CONCAT(LINE,CH)«, l3=0x26}
0x07e9…07fd Line {l1=0x12, l2=» END«, l3=0x12}
0x07fd…0810 Line {l1=0x11, l2=» END;«, l3=0x11}
0x0810…0860 Line {l1=0x4e, l2=» REEL:BEGIN (*$R-*)«, l3=0x4e}
0x0860…08b0 Line {l1=0x4e, l2=» RESULT:=ABS(POST.AAA(F^.INDEKS)); (*$R+*)«, l3=0x4e}
0x08b0…08ce Line {l1=0x1c, l2=» DECS:=F^.DEC;«, l3=0x1c}
0x08ce…08ed Line {l1=0x1d, l2=» IF DECS=0 THEN«, l3=0x1d}
0x08ed…0907 Line {l1=0x18, l2=» DD:=0.0«, l3=0x18}
0x0907…091c Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x091c…0932 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x0932…094d Line {l1=0x19, l2=» DD:=0.1;«, l3=0x19}
0x094d…099b Line {l1=0x4c, l2=» FOR I:=1 TO DECS DO BEGIN RESULT:=RESULT*10.0;DD:=DD*10 END«, l3=0x4c}
0x099b…09b0 Line {l1=0x13, l2=» END;«, l3=0x13}
0x09b0…09ca Line {l1=0x18, l2=» LINE:='';«, l3=0x18}
0x09ca…09ee Line {l1=0x22, l2=» IF F^.FORAN0=0 THEN«, l3=0x22}
0x09ee…0a04 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x0a04…0a2a Line {l1=0x24, l2=» DM:=100000000000.0;«, l3=0x24}
0x0a2a…0a43 Line {l1=0x17, l2=» REPEAT«, l3=0x17}
0x0a43…0a6f Line {l1=0x2a, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x2a}
0x0a6f…0a9d Line {l1=0x2c, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2c}
0x0a9d…0abd Line {l1=0x1e, l2=» DM:=DM/10.0«, l3=0x1e}
0x0abd…0af3 Line {l1=0x34, l2=» UNTIL (I>48) OR (DM<1.0) OR (DM=DD)«, l3=0x34}
0x0af3…0b07 Line {l1=0x12, l2=» END«, l3=0x12}
0x0b07…0b1c Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x0b1c…0b32 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x0b32…0b4d Line {l1=0x19, l2=» DM:=1.0;«, l3=0x19}
0x0b4d…0b85 Line {l1=0x36, l2=» FOR I:=2 TO F^.FORAN0 DO DM:=DM*10.0;«, l3=0x36}
0x0b85…0baf Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x0baf…0bdb Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x0bdb…0bf9 Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x0bf9…0c0e Line {l1=0x13, l2=» END;«, l3=0x13}
0x0c0e…0c25 Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x0c25…0c46 Line {l1=0x1f, l2=» CH(1):=CHR(I);«, l3=0x1f}
0x0c46…0c6f Line {l1=0x27, l2=» LINE:=CONCAT(LINE,CH);«, l3=0x27}
0x0c6f…0ca7 Line {l1=0x36, l2=» IF DM=DD THEN LINE:=CONCAT(LINE,'.');«, l3=0x36}
0x0ca7…0cd1 Line {l1=0x28, l2=» I:=TRUNC(RESULT/DM)+48;«, l3=0x28}
0x0cd1…0cfd Line {l1=0x2a, l2=» RESULT:=RESULT-DM*(I-48);«, l3=0x2a}
0x0cfd…0d1b Line {l1=0x1c, l2=» DM:=DM/10.0«, l3=0x1c}
0x0d1b…0d6b Line {l1=0x4e, l2=» UNTIL DM<0.09; (*$R-*)«, l3=0x4e}
0x0d6b…0dbb Line {l1=0x4e, l2=» IF POST.AAA(F^.INDEKS)<0.0 THEN LINE:=CONCAT('-',LINE) (*$R+*)«, l3=0x4e}
0x0dbb…0dcd Line {l1=0x10, l2=» END«, l3=0x10}
0x0dcd…0dd8 Line {l1=0x09, l2=» END«, l3=0x09}
0x0dd8…0dde Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dde…0de6 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0de6…0dfa Line {l1=0x12, l2=»PROCEDURE NULPOST;«, l3=0x12}
0x0dfa…0e0c Line {l1=0x10, l2=»VAR I,J:INTEGER;«, l3=0x10}
0x0e0c…0e13 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e13…0e45 Line {l1=0x30, l2=» FOR J:=1 TO ANTALFELTER DO WITH PICTURE(J)^ DO«, l3=0x30}
0x0e45…0e4e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0e4e…0e9e Line {l1=0x4e, l2=» CASE FELTTYPE OF (*$R-*)«, l3=0x4e}
0x0e9e…0ee7 Line {l1=0x47, l2=» HELTAL:POST.A(INDEKS):=0; «, l3=0x47}
0x0ee7…0efa Line {l1=0x11, l2=» DOBBTAL:BEGIN«, l3=0x11}
0x0efa…0f1c Line {l1=0x20, l2=» POST.A(INDEKS):=0;«, l3=0x20}
0x0f1c…0f3f Line {l1=0x21, l2=» POST.A(INDEKS+1):=0«, l3=0x21}
0x0f3f…0f51 Line {l1=0x10, l2=» END;«, l3=0x10}
0x0f51…0f72 Line {l1=0x1f, l2=» REEL:POST.AAA(INDEKS):=0.0;«, l3=0x1f}
0x0f72…0fbb Line {l1=0x47, l2=» TEKST:FOR I:=INDEKS TO LÆNGDE+INDEKS-1 DO «, l3=0x47}
0x0fbb…100b Line {l1=0x4e, l2=» POST.AA(I):=' '; (*$R+*)«, l3=0x4e}
0x100b…1014 Line {l1=0x07, l2=» END«, l3=0x07}
0x1014…101b Line {l1=0x05, l2=» END«, l3=0x05}
0x101b…1021 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1021…1024 Line {l1=0x01, l2=» «, l3=0x01}
0x1024…1047 Line {l1=0x21, l2=»PROCEDURE SKRIVFELT(VAR F:NFELT);«, l3=0x21}
0x1047…104e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x104e…1073 Line {l1=0x23, l2=» IF USERNIVEAU>=F^.KIKKENIVEAU THEN«, l3=0x23}
0x1073…107b Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x107b…109d Line {l1=0x20, l2=» GOTOXY(F^.UDPOS.X,F^.UDPOS.Y);«, l3=0x20}
0x109d…10b9 Line {l1=0x1a, l2=» WRITE(F^.LEDETEKST,' ');«, l3=0x1a}
0x10b9…10ec Line {l1=0x31, l2=» IF (F^.FELTTYPE=REEL) AND (F^.EDITERING=0) THEN«, l3=0x31}
0x10ec…113b Line {l1=0x4d, l2=» (*$R-*)«, l3=0x4d}
0x113b…1150 Line {l1=0x13, l2=» IF F^.DEC>0 THEN«, l3=0x13}
0x1150…1183 Line {l1=0x31, l2=» WRITELN(POST.AAA(F^.INDEKS):F^.LÆNGDE:F^.DEC)«, l3=0x31}
0x1183…118c Line {l1=0x07, l2=» ELSE«, l3=0x07}
0x118c…11bb Line {l1=0x2d, l2=» WRITELN(POST.AAA(F^.INDEKS):F^.LÆNGDE:-2)«, l3=0x2d}
0x11bb…120a Line {l1=0x4d, l2=» (*$R+*)«, l3=0x4d}
0x120a…1212 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1212…121b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x121b…122f Line {l1=0x12, l2=» MOVETOLINE(F);«, l3=0x12}
0x122f…1243 Line {l1=0x12, l2=» WRITELN(LINE) «, l3=0x12}
0x1243…124a Line {l1=0x05, l2=» END«, l3=0x05}
0x124a…1250 Line {l1=0x04, l2=» END«, l3=0x04}
0x1250…1256 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1256…1259 Line {l1=0x01, l2=» «, l3=0x01}
0x1259…126f Line {l1=0x14, l2=»PROCEDURE SKRIVPOST;«, l3=0x14}
0x126f…127f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x127f…1286 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1286…1296 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1296…12cb Line {l1=0x33, l2=» FOR I:=1 TO ANTALFELTER DO SKRIVFELT(PICTURE(I));«, l3=0x33}
0x12cb…12d1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x12d1…12d4 Line {l1=0x01, l2=» «, l3=0x01}
0x12d4…12ea Line {l1=0x14, l2=»PROCEDURE PRINTPOST;«, l3=0x14}
0x12ea…12fa Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x12fa…1301 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1301…131f Line {l1=0x1c, l2=» FOR I:=1 TO ANTALFELTER DO«, l3=0x1c}
0x131f…134e Line {l1=0x2d, l2=» IF USERNIVEAU>=PICTURE(I)^.KIKKENIVEAU THEN«, l3=0x2d}
0x134e…1357 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1357…1383 Line {l1=0x2a, l2=» WRITE(LIST,PICTURE(I)^.LEDETEKST,' ');«, l3=0x2a}
0x1383…13a0 Line {l1=0x1b, l2=» MOVETOLINE(PICTURE(I));«, l3=0x1b}
0x13a0…13b5 Line {l1=0x13, l2=» LINES:=LINES+1;«, l3=0x13}
0x13b5…13cd Line {l1=0x16, l2=» WRITELN(LIST,LINE)«, l3=0x16}
0x13cd…13d4 Line {l1=0x05, l2=» END«, l3=0x05}
0x13d4…13da Line {l1=0x04, l2=»END;«, l3=0x04}
0x13da…13e2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x13e2…1403 Line {l1=0x1f, l2=»PROCEDURE LÆSFELT(VAR F:NFELT);«, l3=0x1f}
0x1403…141c Line {l1=0x17, l2=»VAR I,TAL,TAL1:INTEGER;«, l3=0x17}
0x141c…142c Line {l1=0x0e, l2=» VAL:NFELT;«, l3=0x0e}
0x142c…143e Line {l1=0x10, l2=» RESULT:REAL;«, l3=0x10}
0x143e…1453 Line {l1=0x13, l2=» BUMMED:BOOLEAN;«, l3=0x13}
0x1453…1456 Line {l1=0x01, l2=» «, l3=0x01}
0x1456…145e Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x145e…1473 Line {l1=0x13, l2=»PROCEDURE LÆSLINIE;«, l3=0x13}
0x1473…1484 Line {l1=0x0f, l2=»VAR OK:BOOLEAN;«, l3=0x0f}
0x1484…14a1 Line {l1=0x1b, l2=» DECS,I,FORTEGN:INTEGER;«, l3=0x1b}
0x14a1…14af Line {l1=0x0c, l2=» DM:REAL;«, l3=0x0c}
0x14af…14b2 Line {l1=0x01, l2=» «, l3=0x01}
0x14b2…14b9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x14b9…14c3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x14c3…14d3 Line {l1=0x0e, l2=» OK:=FALSE;«, l3=0x0e}
0x14d3…14e5 Line {l1=0x10, l2=» RESULT:=0.0;«, l3=0x10}
0x14e5…14f2 Line {l1=0x0b, l2=» TAL:=0;«, l3=0x0b}
0x14f2…1500 Line {l1=0x0c, l2=» TAL1:=0;«, l3=0x0c}
0x1500…1526 Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x1526…1558 Line {l1=0x30, l2=» IF (F^.INDPOS.Y=23) AND (F^.INDPOS.X=1) THEN«, l3=0x30}
0x1558…1563 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1563…157b Line {l1=0x16, l2=» WRITELN(' ':79);«, l3=0x16}
0x157b…15a3 Line {l1=0x26, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y) «, l3=0x26}
0x15a3…15ad Line {l1=0x08, l2=» END;«, l3=0x08}
0x15ad…15f5 Line {l1=0x46, l2=» WRITE(' ':LENGTH(F^.LEDETEKST)+LENGTH(F^.FØLGETEKST)+F^.LÆNGDE+2);«, l3=0x46}
0x15f5…161b Line {l1=0x24, l2=» GOTOXY(F^.INDPOS.X,F^.INDPOS.Y);«, l3=0x24}
0x161b…1653 Line {l1=0x36, l2=» WRITE(F^.LEDETEKST,' ':F^.LÆNGDE+2,F^.FØLGETEKST);«, l3=0x36}
0x1653…1690 Line {l1=0x3b, l2=» GOTOXY(F^.INDPOS.X+LENGTH(F^.LEDETEKST)+1,F^.INDPOS.Y);«, l3=0x3b}
0x1690…16ac Line {l1=0x1a, l2=» IF F^.EDITERING=0 THEN«, l3=0x1a}
0x16ac…16b7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x16b7…16d0 Line {l1=0x17, l2=» READLN;READ(LINE)«, l3=0x17}
0x16d0…16d9 Line {l1=0x07, l2=» END«, l3=0x07}
0x16d9…16e3 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x16e3…16ee Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x16ee…1704 Line {l1=0x14, l2=» MOVETOLINE(F);«, l3=0x14}
0x1704…1754 Line {l1=0x4e, l2=» EDIT(LINE:F^.LÆNGDE); (*$R-*)«, l3=0x4e}
0x1754…17a4 Line {l1=0x4e, l2=» WHILE LINE(LENGTH(LINE))=' ' DO LINE(0):=CHR(ORD(LINE(0))-1) (*$R+*)«, l3=0x4e}
0x17a4…17ae Line {l1=0x08, l2=» END;«, l3=0x08}
0x17ae…17c7 Line {l1=0x17, l2=» CASE F^.FELTTYPE OF«, l3=0x17}
0x17c7…17cf Line {l1=0x06, l2=»TEKST:«, l3=0x06}
0x17cf…17f4 Line {l1=0x23, l2=» IF LENGTH(LINE)<=F^.LÆNGDE THEN«, l3=0x23}
0x17f4…17ff Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x17ff…1810 Line {l1=0x0f, l2=» OK:=TRUE;«, l3=0x0f}
0x1810…1837 Line {l1=0x25, l2=» WHILE LENGTH(LINE)<F^.LÆNGDE DO«, l3=0x25}
0x1837…1855 Line {l1=0x1c, l2=» IF F^.FORAN0>=0 THEN«, l3=0x1c}
0x1855…1877 Line {l1=0x20, l2=» LINE:=CONCAT(LINE,' ')«, l3=0x20}
0x1877…1885 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1885…18a7 Line {l1=0x20, l2=» LINE:=CONCAT(' ',LINE)«, l3=0x20}
0x18a7…18b1 Line {l1=0x08, l2=» END;«, l3=0x08}
0x18b1…18c2 Line {l1=0x0f, l2=»HELTAL,DOBBTAL:«, l3=0x0f}
0x18c2…18de Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x18de…18e9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x18e9…18f6 Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x18f6…1909 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x1909…1924 Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x1924…1931 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1931…1947 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x1947…1955 Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x1955…1961 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1961…1980 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x1980…198d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x198d…19a0 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x19a0…19b1 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x19b1…19e0 Line {l1=0x2d, l2=» IF NOT (LINE(I) IN (.'0'..'9'.)) THEN«, l3=0x2d}
0x19e0…19ef Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x19ef…1a05 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1a05…1a20 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1a20…1a2e Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1a2e…1a59 Line {l1=0x29, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x29}
0x1a59…1a65 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1a65…1a84 Line {l1=0x1d, l2=» RESULT:=RESULT*FORTEGN;«, l3=0x1d}
0x1a84…1a96 Line {l1=0x10, l2=» IF OK THEN«, l3=0x10}
0x1a96…1ab1 Line {l1=0x19, l2=» CASE F^.FELTTYPE OF«, l3=0x19}
0x1ab1…1afd Line {l1=0x4a, l2=» HELTAL:IF ABS(RESULT)<=32767 THEN TAL:=TRUNC(RESULT) ELSE OK:=FALSE;«, l3=0x4a}
0x1afd…1b2d Line {l1=0x2e, l2=» DOBBTAL:IF ABS(RESULT)<=327679999.0 THEN«, l3=0x2e}
0x1b2d…1b42 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x1b42…1b6f Line {l1=0x2b, l2=» TAL:=TRUNC(RESULT/10000.0);«, l3=0x2b}
0x1b6f…1ba0 Line {l1=0x2f, l2=» TAL1:=TRUNC(RESULT-10000.0*TAL)«, l3=0x2f}
0x1ba0…1bb3 Line {l1=0x11, l2=» END«, l3=0x11}
0x1bb3…1bd1 Line {l1=0x1c, l2=» ELSE OK:=FALSE«, l3=0x1c}
0x1bd1…1bdc Line {l1=0x09, l2=» END«, l3=0x09}
0x1bdc…1bf4 Line {l1=0x16, l2=» END ELSE OK:=TRUE;«, l3=0x16}
0x1bf4…1bfb Line {l1=0x05, l2=»REEL:«, l3=0x05}
0x1bfb…1c17 Line {l1=0x1a, l2=» IF LENGTH(LINE)>0 THEN«, l3=0x1a}
0x1c17…1c22 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1c22…1c2f Line {l1=0x0b, l2=» I:=0;«, l3=0x0b}
0x1c2f…1c42 Line {l1=0x11, l2=» FORTEGN:=1;«, l3=0x11}
0x1c42…1c53 Line {l1=0x0f, l2=» DECS:=-1;«, l3=0x0f}
0x1c53…1c6e Line {l1=0x19, l2=» IF LINE(1)='-' THEN«, l3=0x19}
0x1c6e…1c7b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c7b…1c91 Line {l1=0x14, l2=» FORTEGN:=-1;«, l3=0x14}
0x1c91…1c9f Line {l1=0x0c, l2=» I:=1«, l3=0x0c}
0x1c9f…1cab Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1cab…1cd9 Line {l1=0x2c, l2=» WHILE (LENGTH(LINE)>I) AND (DECS<0) DO«, l3=0x2c}
0x1cd9…1ce6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1ce6…1cf9 Line {l1=0x11, l2=» OK:=TRUE;«, l3=0x11}
0x1cf9…1d0a Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1d0a…1d33 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x1d33…1d60 Line {l1=0x2b, l2=» RESULT:=10*RESULT+ORD(LINE(I))-48«, l3=0x2b}
0x1d60…1d6e Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1d6e…1d9e Line {l1=0x2e, l2=» IF (LINE(I)='.') OR (LINE(I)=',') THEN«, l3=0x2e}
0x1d9e…1db1 Line {l1=0x11, l2=» DECS:=0«, l3=0x11}
0x1db1…1dbf Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1dbf…1dce Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1dce…1de4 Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1de4…1dff Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1dff…1e0c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1e0c…1e18 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1e18…1e28 Line {l1=0x0e, l2=» DM:=1.0;«, l3=0x0e}
0x1e28…1e47 Line {l1=0x1d, l2=» WHILE LENGTH(LINE)>I DO«, l3=0x1d}
0x1e47…1e54 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1e54…1e65 Line {l1=0x0f, l2=» I:=I+1;«, l3=0x0f}
0x1e65…1e7b Line {l1=0x14, l2=» DM:=DM/10.0;«, l3=0x14}
0x1e7b…1ea4 Line {l1=0x27, l2=» IF LINE(I) IN (.'0'..'9'.) THEN«, l3=0x27}
0x1ea4…1eb3 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1eb3…1ee3 Line {l1=0x2e, l2=» RESULT:=RESULT+DM*(ORD(LINE(I))-48);«, l3=0x2e}
0x1ee3…1efb Line {l1=0x16, l2=» DECS:=DECS+1«, l3=0x16}
0x1efb…1f08 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1f08…1f16 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1f16…1f25 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1f25…1f3b Line {l1=0x14, l2=» OK:=FALSE;«, l3=0x14}
0x1f3b…1f56 Line {l1=0x19, l2=» I:=LENGTH(LINE)«, l3=0x19}
0x1f56…1f63 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1f63…1f6f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1f6f…1f8e Line {l1=0x1d, l2=» RESULT:=FORTEGN*RESULT;«, l3=0x1d}
0x1f8e…1fb3 Line {l1=0x23, l2=» IF DECS>F^.DEC THEN OK:=FALSE«, l3=0x23}
0x1fb3…1fbc Line {l1=0x07, l2=» END«, l3=0x07}
0x1fbc…1fcf Line {l1=0x11, l2=» ELSE OK:=TRUE«, l3=0x11}
0x1fcf…1fd8 Line {l1=0x07, l2=» END«, l3=0x07}
0x1fd8…1fe4 Line {l1=0x0a, l2=» UNTIL OK«, l3=0x0a}
0x1fe4…1fea Line {l1=0x04, l2=»END;«, l3=0x04}
0x1fea…1ff2 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1ff2…2007 Line {l1=0x13, l2=»PROCEDURE CHECKVAL;«, l3=0x13}
0x2007…202c Line {l1=0x23, l2=»VAR I,DAT0,MÅNED,ÅR,MODULC:INTEGER;«, l3=0x23}
0x202c…204f Line {l1=0x21, l2=» CPN:ARRAY (1..10) OF INTEGER;«, l3=0x21}
0x204f…2056 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2056…2075 Line {l1=0x1d, l2=» CASE VAL^.VALIDITETSTYPE OF«, l3=0x1d}
0x2075…2083 Line {l1=0x0c, l2=» HINTERVAL:«, l3=0x0c}
0x2083…20b4 Line {l1=0x2f, l2=» BUMMED:=((TAL<VAL^.MIN) OR (TAL>VAL^.MAX));«, l3=0x2f}
0x20b4…20c2 Line {l1=0x0c, l2=» DINTERVAL:«, l3=0x0c}
0x20c2…2102 Line {l1=0x3e, l2=» BUMMED:=((TAL*10000.0+TAL1<VAL^.MIN1*10000.0+VAL^.MIN2) OR«, l3=0x3e}
0x2102…2141 Line {l1=0x3d, l2=» (TAL*10000.0+TAL1>VAL^.MAX1*10000.0+VAL^.MAX2));«, l3=0x3d}
0x2141…214f Line {l1=0x0c, l2=» RINTERVAL:«, l3=0x0c}
0x214f…2188 Line {l1=0x37, l2=» BUMMED:=((RESULT<VAL^.RMIN) OR (RESULT>VAL^.RMAX));«, l3=0x37}
0x2188…2191 Line {l1=0x07, l2=» DATO:«, l3=0x07}
0x2191…21ad Line {l1=0x1a, l2=» IF LENGTH(LINE)=6 THEN«, l3=0x1a}
0x21ad…21b8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x21b8…21e9 Line {l1=0x2f, l2=» ÅR:=10*(ORD(LINE(1))-48)+ORD(LINE(2))-48;«, l3=0x2f}
0x21e9…221d Line {l1=0x32, l2=» MÅNED:=10*(ORD(LINE(3))-48)+ORD(LINE(4))-48;«, l3=0x32}
0x221d…2250 Line {l1=0x31, l2=» DAT0:=10*(ORD(LINE(5))-48)+ORD(LINE(6))-48;«, l3=0x31}
0x2250…229e Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x229e…22b8 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x22b8…22cd Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x22cd…22fc Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x22fc…2347 Line {l1=0x49, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4 <>0)) THEN BUMMED:=TRUE«, l3=0x49}
0x2347…2352 Line {l1=0x09, l2=» END«, l3=0x09}
0x2352…235b Line {l1=0x07, l2=» END«, l3=0x07}
0x235b…2373 Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x2373…237b Line {l1=0x06, l2=» CPR:«, l3=0x06}
0x237b…2398 Line {l1=0x1b, l2=» IF LENGTH(LINE)=10 THEN«, l3=0x1b}
0x2398…23a3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x23a3…23d5 Line {l1=0x30, l2=» FOR I:=1 TO 10 DO CPN(I):=ORD(LINE(I))-48;«, l3=0x30}
0x23d5…23f4 Line {l1=0x1d, l2=» DAT0:=CPN(1)*10+CPN(2);«, l3=0x1d}
0x23f4…2414 Line {l1=0x1e, l2=» MÅNED:=CPN(3)*10+CPN(4);«, l3=0x1e}
0x2414…2431 Line {l1=0x1b, l2=» ÅR:=CPN(5)*10+CPN(6);«, l3=0x1b}
0x2431…247f Line {l1=0x4c, l2=» IF (DAT0<1) OR (MÅNED<1) OR (MÅNED>12) OR (DAT0>31) THEN BUMMED:=TRUE;«, l3=0x4c}
0x247f…2499 Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x2499…24ae Line {l1=0x13, l2=» CASE MÅNED OF«, l3=0x13}
0x24ae…24dd Line {l1=0x2d, l2=» 4,6,9,11: IF DAT0>30 THEN BUMMED:=TRUE;«, l3=0x2d}
0x24dd…2527 Line {l1=0x48, l2=» 2: IF (DAT0>29) OR ((DAT0=29) AND (ÅR MOD 4<>0)) THEN BUMMED:=TRUE«, l3=0x48}
0x2527…2533 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2533…254d Line {l1=0x18, l2=» IF NOT BUMMED THEN«, l3=0x18}
0x254d…255a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x255a…25a9 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}
0x25a9…25d3 Line {l1=0x28, l2=» CPN(8)*3+CPN(9)*2+CPN(10);«, l3=0x28}
0x25d3…2602 Line {l1=0x2d, l2=» IF MODULC MOD 11<>0 THEN BUMMED:=TRUE«, l3=0x2d}
0x2602…260d Line {l1=0x09, l2=» END«, l3=0x09}
0x260d…2616 Line {l1=0x07, l2=» END«, l3=0x07}
0x2616…262e Line {l1=0x16, l2=» ELSE BUMMED:=TRUE;«, l3=0x16}
0x262e…2635 Line {l1=0x05, l2=» END«, l3=0x05}
0x2635…263b Line {l1=0x04, l2=»END;«, l3=0x04}
0x263b…2643 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2643…265a Line {l1=0x15, l2=»(*PROCEDURE LÆSFELT*)«, l3=0x15}
0x265a…2661 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2661…2686 Line {l1=0x23, l2=» IF USERNIVEAU>=F^.ÆNDRENIVEAU THEN«, l3=0x23}
0x2686…268e Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x268e…2698 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2698…26a7 Line {l1=0x0d, l2=» LÆSLINIE;«, l3=0x0d}
0x26a7…26be Line {l1=0x15, l2=» VAL:=F^.NÆSTEVAL;«, l3=0x15}
0x26be…26d2 Line {l1=0x12, l2=» BUMMED:=FALSE;«, l3=0x12}
0x26d2…26fc Line {l1=0x28, l2=» WHILE (VAL<>NIL) AND (NOT BUMMED) DO«, l3=0x28}
0x26fc…2707 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2707…2718 Line {l1=0x0f, l2=» CHECKVAL;«, l3=0x0f}
0x2718…2732 Line {l1=0x18, l2=» VAL:=VAL^.NÆSTEVAL«, l3=0x18}
0x2732…273b Line {l1=0x07, l2=» END«, l3=0x07}
0x273b…2750 Line {l1=0x13, l2=» UNTIL NOT BUMMED;«, l3=0x13}
0x2750…27a0 Line {l1=0x4e, l2=» CASE F^.FELTTYPE OF (*$R-*)«, l3=0x4e}
0x27a0…27e9 Line {l1=0x47, l2=» HELTAL:POST.A(F^.INDEKS):=TAL; «, l3=0x47}
0x27e9…27fa Line {l1=0x0f, l2=» DOBBTAL:BEGIN«, l3=0x0f}
0x27fa…281f Line {l1=0x23, l2=» POST.A(F^.INDEKS):=TAL;«, l3=0x23}
0x281f…2846 Line {l1=0x25, l2=» POST.A(F^.INDEKS+1):=TAL1«, l3=0x25}
0x2846…2856 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2856…287b Line {l1=0x23, l2=» REEL:POST.AAA(F^.INDEKS):=RESULT;«, l3=0x23}
0x287b…28c4 Line {l1=0x47, l2=» TEKST:FOR I:=1 TO F^.LÆNGDE DO «, l3=0x47}
0x28c4…2914 Line {l1=0x4e, l2=» POST.AA(I+F^.INDEKS-1):=LINE(I) (*$R+*)«, l3=0x4e}
0x2914…291b Line {l1=0x05, l2=» END«, l3=0x05}
0x291b…2921 Line {l1=0x04, l2=» END«, l3=0x04}
0x2921…2927 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2927…292f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x292f…2940 00 00 30 2b 00 38 33 30 32 32 00 00 00 00 00 10 eb ┆ 0+ 83022 ┆
0x2940…2960 29 00 30 2b 00 39 37 2c 38 39 2b 00 34 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 ┆) 0+ 97,89+ 4 0+ ┆
0x2960…2980 30 2b 00 30 2b 00 30 2b 00 30 2b 00 20 20 20 35 34 37 36 2c 34 36 2b 00 00 00 10 eb 29 00 30 2b ┆0+ 0+ 0+ 0+ 5476,46+ ) 0+┆
0x2980…29a0 00 39 37 2c 38 39 2b 00 34 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 20 20 20 35 ┆ 97,89+ 4 0+ 5┆
0x29a0…29c0 35 34 37 2c 30 39 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 00 00 10 eb 29 00 30 2b 00 39 37 2c ┆547,09+ 0+ 0+ 0+ 0+ ) 0+ 97,┆
0x29c0…29e0 38 39 2b 00 34 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 30 2b 00 30 2b 00 30 2b ┆89+ 4 0+ 0+ 0+ 0+┆
0x29e0…2a00 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 30 2b 00 00 00 10 eb 29 00 30 2b 00 39 37 2c 38 39 2b 00 ┆ 0+ 0+ 0+ 0+ 0+ ) 0+ 97,89+ ┆
0x2a00…2a20 34 00 20 20 20 20 20 20 20 20 20 20 30 2b 00 00 00 00 00 00 10 eb 0f 00 46 41 2e 20 46 59 4e 42 ┆4 0+ FA. FYNB┆
0x2a20…2a40 4f 45 20 4c 5b 44 45 52 56 41 52 45 52 00 20 20 20 20 31 37 35 38 2c 30 32 2b 00 32 00 20 20 20 ┆OE LÆDERVARER 1758,02+ 2 ┆
0x2a40…2a60 31 33 33 34 34 2c 38 30 2b 00 00 00 00 00 00 00 30 2b 00 30 2b 00 30 2b 00 0d ee 20 00 30 00 30 ┆13344,80+ 0+ 0+ 0+ 0 0┆
0x2a60…2a80 2b 00 45 52 56 41 52 45 52 00 20 20 20 20 31 37 35 38 2c 30 32 2b 00 32 00 20 20 20 31 33 33 34 ┆+ ERVARER 1758,02+ 2 1334┆
0x2a80…2aa0 34 2c 38 30 2b 00 00 00 00 00 00 00 54 4f 52 56 45 54 20 31 32 00 30 37 2d 38 32 30 30 34 31 00 ┆4,80+ TORVET 12 07-820041 ┆
0x2aa0…2ac0 00 00 00 00 10 eb 11 00 30 2b 00 37 35 38 2c 30 32 2b 00 32 00 20 20 20 31 33 33 34 34 2c 38 30 ┆ 0+ 758,02+ 2 13344,80┆
0x2ac0…2ae0 2b 00 00 00 00 00 00 00 4c 45 4d 56 49 47 00 30 2b 00 30 2b 00 30 2b 00 30 34 31 00 00 00 00 63 ┆+ LEMVIG 0+ 0+ 0+ 041 c┆
0x2ae0…2b00 53 54 4f 50 20 20 20 20 52 41 00 03 00 00 00 00 00 00 00 4f 00 01 00 00 00 ff 00 00 00 00 00 00 ┆STOP RA O ┆
0x2b00…2b20 13 02 53 54 4f 50 20 20 20 20 02 48 00 01 00 00 00 00 00 00 13 0c 05 49 4e 54 45 52 20 20 20 01 ┆ STOP H INTER ┆
0x2b20…2b40 00 00 0c 0c 05 53 45 4e 44 4d 20 20 20 02 00 00 0c 0c 05 52 45 43 45 49 56 20 20 03 00 00 0c 0c ┆ SENDM RECEIV ┆
0x2b40…2b60 05 52 45 53 45 52 56 20 20 04 00 00 0c 0c 05 52 45 4c 45 41 53 20 20 05 00 00 0c 09 08 53 54 4f ┆ RESERV RELEAS STO┆
0x2b60…2b80 50 20 20 20 20 09 05 0b 01 00 00 00 05 05 0b 02 00 00 00 05 05 0b 03 00 00 00 05 05 0b 04 00 00 ┆P ┆
0x2b80…2ba0 00 05 05 0b 05 00 00 00 05 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 ┆ ┆
0x2ba0…2bc0 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 ┆ ┆
0x2bc0…2be0 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 08 00 00 03 03 63 ┆ c┆