|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »TOLDSORT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »TOLDSORT.K«
PROGRAM TOLDSORT;
CONST TOPMARG=11; LMARG=9; DK=8;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
FAKPOST= RECORD
FORSEND:INTEGER;
EMBAL,FRAGT:REAL;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;
ORDRELIN: ARRAY(1..15) OF PLUOLINE
END;
FAKFILE=FILE OF FAKPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
TOLDLINE=RECORD
TOLDPNR:REAL;
OPRLAND:INTEGER;
PLUOLIN:PLUOLINE
END;
VAR FVAR : ISF;
SEXPFIL,EXPFIL :FAKFILE;
VZ:VZONE;
VARE:VPOST;
FNAVN:STRING(20);
TOLDORDR:ARRAY (1..60) OF TOLDLINE;
TOLDLIN:TOLDLINE;
IER,I,J,K,L
:INTEGER;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
BEGIN
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='EXPREG:P2:30:I';
REWRITE(EXPFIL,FNAVN);
FNAVN:='SEXPREG:P2:30:I';
REWRITE(SEXPFIL,FNAVN);
GET(EXPFIL);
WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO
BEGIN
J:=1;
REPEAT
FOR I:=1 TO 15 DO
WITH EXPFIL^.ORDRELIN(I) DO
IF VNR(1)>1 THEN
BEGIN
VARE.HELTAL(1):=VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
WITH TOLDORDR(J) DO
BEGIN
TOLDPNR:=VARE.REELTAL(3);
OPRLAND:=VARE.HELTAL(3);
PLUOLIN:=EXPFIL^.ORDRELIN(I)
END;
J:=J+1
END;
IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0
UNTIL I=0;
J:=J-1;
IF J>60 THEN ERROR;
FOR I:=1 TO J DO
BEGIN
K:=I;
FOR L:=I+1 TO J DO
IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR
((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND
(TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;
IF K<>I THEN
BEGIN
TOLDLIN:=TOLDORDR(I);
TOLDORDR(I):=TOLDORDR(K);
TOLDORDR(K):=TOLDLIN
END
END;
FOR I:=1 TO J DO
BEGIN
IF I MOD 15 = 1 THEN
BEGIN
IF I<>1 THEN PUT(SEXPFIL);
SEXPFIL^.HEAD:=EXPFIL^.HEAD;
SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;
SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;
SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;
SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);
SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);
SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);
SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);
IF J-I<15 THEN SEXPFIL^.HEAD(5):=99
ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1
END;
SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN
END;
I:=J+1;
WHILE I MOD 15 <> 1 DO
BEGIN
SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;
I:=I+1
END;
PUT(SEXPFIL);
GET(EXPFIL)
END;
SEXPFIL^.HEAD(1):=0;
SEXPFIL^.HEAD(2):=0;
PUT(SEXPFIL);
ICLOSE(VZ.H,FVAR);
CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM TOLDSORT;«, l3=0x11}
0x0013…0035 Line {l1=0x20, l2=»CONST TOPMARG=11; LMARG=9; DK=8;«, l3=0x20}
0x0035…0045 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0045…0054 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0054…006a Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x006a…0094 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0094…00dd Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00dd…00fe Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00fe…0139 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0139…015a Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x015a…0182 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0182…01c8 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01c8…020c Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x020c…0214 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0214…0228 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0228…024f Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x024f…0270 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0270…0284 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0284…028c Line {l1=0x06, l2=» END;«, l3=0x06}
0x028c…029d Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x029d…02b6 Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x02b6…02d0 Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x02d0…02f7 Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x02f7…0332 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0332…036e Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x036e…0399 Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x0399…039f Line {l1=0x04, l2=»END;«, l3=0x04}
0x039f…03b9 Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x03b9…03c9 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x03c9…03dd Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x03dd…0401 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0401…0409 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0409…040d Line {l1=0x02, l2=» «, l3=0x02}
0x040d…041e Line {l1=0x0f, l2=»TOLDLINE=RECORD«, l3=0x0f}
0x041e…0434 Line {l1=0x14, l2=» TOLDPNR:REAL;«, l3=0x14}
0x0434…044d Line {l1=0x17, l2=» OPRLAND:INTEGER;«, l3=0x17}
0x044d…0466 Line {l1=0x17, l2=» PLUOLIN:PLUOLINE«, l3=0x17}
0x0466…046c Line {l1=0x04, l2=»END;«, l3=0x04}
0x046c…048b Line {l1=0x1d, l2=» VAR FVAR : ISF;«, l3=0x1d}
0x048b…04ad Line {l1=0x20, l2=» SEXPFIL,EXPFIL :FAKFILE;«, l3=0x20}
0x04ad…04c0 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x04c0…04d5 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x04d5…04f0 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x04f0…051d Line {l1=0x2b, l2=» TOLDORDR:ARRAY (1..60) OF TOLDLINE;«, l3=0x2b}
0x051d…0538 Line {l1=0x19, l2=» TOLDLIN:TOLDLINE;«, l3=0x19}
0x0538…054d Line {l1=0x13, l2=» IER,I,J,K,L«, l3=0x13}
0x054d…0570 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0570…0587 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0587…0590 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0590…05a4 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x05a4…05b2 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x05b2…05c3 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x05c3…05d4 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x05d4…05e3 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x05e3…05f2 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x05f2…05ff Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x05ff…0612 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0612…061a Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x061a…063f Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x063f…0656 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0656…0672 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0672…0681 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0681…0688 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0688…068f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x068f…06ae Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x06ae…06c6 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x06c6…06f6 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x06f6…06f9 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x06fc…0718 Line {l1=0x1a, l2=» FNAVN:='EXPREG:P2:30:I';«, l3=0x1a}
0x0718…0732 Line {l1=0x18, l2=» REWRITE(EXPFIL,FNAVN);«, l3=0x18}
0x0732…0735 Line {l1=0x01, l2=» «, l3=0x01}
0x0735…0752 Line {l1=0x1b, l2=» FNAVN:='SEXPREG:P2:30:I';«, l3=0x1b}
0x0752…076d Line {l1=0x19, l2=» REWRITE(SEXPFIL,FNAVN);«, l3=0x19}
0x076d…0770 Line {l1=0x01, l2=» «, l3=0x01}
0x0770…0780 Line {l1=0x0e, l2=» GET(EXPFIL);«, l3=0x0e}
0x0780…07b9 Line {l1=0x37, l2=» WHILE (EXPFIL^.HEAD(1)<>0) OR (EXPFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x07b9…07c2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x07c2…07cd Line {l1=0x09, l2=» J:=1;«, l3=0x09}
0x07cd…07d9 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x07d9…07f2 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x07f2…0815 Line {l1=0x21, l2=» WITH EXPFIL^.ORDRELIN(I) DO«, l3=0x21}
0x0815…082d Line {l1=0x16, l2=» IF VNR(1)>1 THEN«, l3=0x16}
0x082d…083a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x083a…085b Line {l1=0x1f, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x1f}
0x085b…087e Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x087e…08ad Line {l1=0x2d, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x2d}
0x08ad…08ca Line {l1=0x1b, l2=» WITH TOLDORDR(J) DO«, l3=0x1b}
0x08ca…08d9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x08d9…08fe Line {l1=0x23, l2=» TOLDPNR:=VARE.REELTAL(3);«, l3=0x23}
0x08fe…0922 Line {l1=0x22, l2=» OPRLAND:=VARE.HELTAL(3);«, l3=0x22}
0x0922…094a Line {l1=0x26, l2=» PLUOLIN:=EXPFIL^.ORDRELIN(I)«, l3=0x26}
0x094a…0958 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0958…0968 Line {l1=0x0e, l2=» J:=J+1«, l3=0x0e}
0x0968…0974 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0974…09ad Line {l1=0x37, l2=» IF EXPFIL^.HEAD(5)<>99 THEN GET(EXPFIL) ELSE I:=0«, l3=0x37}
0x09ad…09bd Line {l1=0x0e, l2=» UNTIL I=0;«, l3=0x0e}
0x09bd…09ca Line {l1=0x0b, l2=» J:=J-1;«, l3=0x0b}
0x09ca…09e3 Line {l1=0x17, l2=» IF J>60 THEN ERROR;«, l3=0x17}
0x09e3…09f9 Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x09f9…0a04 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0a04…0a11 Line {l1=0x0b, l2=» K:=I;«, l3=0x0b}
0x0a11…0a2b Line {l1=0x18, l2=» FOR L:=I+1 TO J DO«, l3=0x18}
0x0a2b…0a64 Line {l1=0x37, l2=» IF (TOLDORDR(L).TOLDPNR<TOLDORDR(K).TOLDPNR) OR«, l3=0x37}
0x0a64…0a9e Line {l1=0x38, l2=» ((TOLDORDR(L).TOLDPNR=TOLDORDR(K).TOLDPNR) AND«, l3=0x38}
0x0a9e…0ae0 Line {l1=0x40, l2=» (TOLDORDR(L).OPRLAND<TOLDORDR(K).OPRLAND)) THEN K:=L;«, l3=0x40}
0x0ae0…0af4 Line {l1=0x12, l2=» IF K<>I THEN«, l3=0x12}
0x0af4…0b01 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b01…0b20 Line {l1=0x1d, l2=» TOLDLIN:=TOLDORDR(I);«, l3=0x1d}
0x0b20…0b43 Line {l1=0x21, l2=» TOLDORDR(I):=TOLDORDR(K);«, l3=0x21}
0x0b43…0b61 Line {l1=0x1c, l2=» TOLDORDR(K):=TOLDLIN«, l3=0x1c}
0x0b61…0b6c Line {l1=0x09, l2=» END«, l3=0x09}
0x0b6c…0b76 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0b76…0b8c Line {l1=0x14, l2=» FOR I:=1 TO J DO«, l3=0x14}
0x0b8c…0b97 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0b97…0bb3 Line {l1=0x1a, l2=» IF I MOD 15 = 1 THEN«, l3=0x1a}
0x0bb3…0bc0 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0bc0…0be4 Line {l1=0x22, l2=» IF I<>1 THEN PUT(SEXPFIL);«, l3=0x22}
0x0be4…0c0a Line {l1=0x24, l2=» SEXPFIL^.HEAD:=EXPFIL^.HEAD;«, l3=0x24}
0x0c0a…0c36 Line {l1=0x2a, l2=» SEXPFIL^.FORSEND:=EXPFIL^.FORSEND;«, l3=0x2a}
0x0c36…0c5e Line {l1=0x26, l2=» SEXPFIL^.EMBAL:=EXPFIL^.EMBAL;«, l3=0x26}
0x0c5e…0c86 Line {l1=0x26, l2=» SEXPFIL^.FRAGT:=EXPFIL^.FRAGT;«, l3=0x26}
0x0c86…0cb2 Line {l1=0x2a, l2=» SEXPFIL^.LINE(1):=EXPFIL^.LINE(1);«, l3=0x2a}
0x0cb2…0cde Line {l1=0x2a, l2=» SEXPFIL^.LINE(2):=EXPFIL^.LINE(2);«, l3=0x2a}
0x0cde…0d0c Line {l1=0x2c, l2=» SEXPFIL^.DITTO(1):=EXPFIL^.DITTO(1);«, l3=0x2c}
0x0d0c…0d3a Line {l1=0x2c, l2=» SEXPFIL^.DITTO(2):=EXPFIL^.DITTO(2);«, l3=0x2c}
0x0d3a…0d67 Line {l1=0x2b, l2=» IF J-I<15 THEN SEXPFIL^.HEAD(5):=99«, l3=0x2b}
0x0d67…0d96 Line {l1=0x2d, l2=» ELSE SEXPFIL^.HEAD(5):=I DIV 15 +1«, l3=0x2d}
0x0d96…0da2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0da2…0de2 Line {l1=0x3e, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1):=TOLDORDR(I).PLUOLIN«, l3=0x3e}
0x0de2…0dec Line {l1=0x08, l2=» END;«, l3=0x08}
0x0dec…0df9 Line {l1=0x0b, l2=» I:=J+1;«, l3=0x0b}
0x0df9…0e15 Line {l1=0x1a, l2=» WHILE I MOD 15 <> 1 DO«, l3=0x1a}
0x0e15…0e20 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0e20…0e57 Line {l1=0x35, l2=» SEXPFIL^.ORDRELIN((I-1) MOD 15 + 1).VNR(1):=0;«, l3=0x35}
0x0e57…0e63 Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x0e63…0e6d Line {l1=0x08, l2=» END;«, l3=0x08}
0x0e6d…0e80 Line {l1=0x11, l2=» PUT(SEXPFIL);«, l3=0x11}
0x0e80…0e91 Line {l1=0x0f, l2=» GET(EXPFIL)«, l3=0x0f}
0x0e91…0e99 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e99…0eb1 Line {l1=0x16, l2=» SEXPFIL^.HEAD(1):=0;«, l3=0x16}
0x0eb1…0ec9 Line {l1=0x16, l2=» SEXPFIL^.HEAD(2):=0;«, l3=0x16}
0x0ec9…0eda Line {l1=0x0f, l2=» PUT(SEXPFIL);«, l3=0x0f}
0x0eda…0ef0 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x0ef0…0f1a Line {l1=0x28, l2=» CHAIN('INTRE *1','TOLDFAKT:P1',QUQ);«, l3=0x28}
0x0f1a…0f20 Line {l1=0x04, l2=»END.«, l3=0x04}
0x0f20…0f40 00 00 2e 2e 31 31 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 28 47 20 28 2a 56 41 52 45 4e 52 2c 4c ┆ ..11) OF INTEGER;(G (*VARENR,L┆
0x0f40…0f60 56 52 4e 44 5c 52 2c 4f 50 52 4c 41 4e 44 2c 50 41 4b 45 4e 48 45 44 2c 46 4f 52 56 4c 45 56 55 ┆VRNDØR,OPRLAND,PAKENHED,FORVLEVU┆
0x0f60…0f80 2c 44 41 54 53 42 45 53 31 2c 44 41 54 53 42 45 53 32 2c 44 41 54 53 4f 52 44 31 2c 47 1f 20 20 ┆,DATSBES1,DATSBES2,DATSORD1,G ┆
0x0f80…0fa0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1e…]
0x1360…1380 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆