|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »OPRETORD.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »OPRETORD.K«
PROGRAM OPRETFILES;
(*$IISFHEAD*)
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
OLINE = RECORD
VNR :ARRAY (1..2) OF INTEGER;
(*VNR,BESTILT*)
PRIS: REAL
END;
PLUORPOST=RECORD
A:AR;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
(*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,
RESTORDREKODE,RABAT*)
ORDRELIN : ARRAY (1..15) OF PLUOLINE
END;
ORDREPOST = RECORD
A:AR;
(*
KNR1,KNR2,
NR1,NR2,
SIDE,
LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)
HEAD :ARRAY(1..12) OF INTEGER;
LINE: ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
ORDRELIN : ARRAY (1..15) OF OLINE
END;
POSTPOST=RECORD
A:AR;
(*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;
(*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY (1..1000) OF INTEGER
END;
PLUZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..1000) OF INTEGER
END;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL:REAL
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..1000) OF INTEGER
END;
ORDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..1000) OF INTEGER
END;
KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;
VAR FORD,FPLU,FROR,FPOST : ISF;
OZ:ORDZONE;
PZ:PLUZONE;
ORDRE:ORDREPOST;
PLUORD:PLUORPOST;
FNAVN:STRING(20);
RESTORD:RORPOST;
POSTERIN:POSTPOST;
RZ:RORZONE;
PSZ:POSTZONE;
IER,I,J,
NREC,RECSIZE,KEYFLDS :INTEGER;
R:REAL;
KEYDESC:KEYDESCRIPTION;
(*$L-*)
(*$ICREATE*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IINSERT*)
(*$IINITIATE*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(RZ.H,FROR);
ICLOSE(OZ.H,FORD);
ICLOSE(PZ.H,FPLU);
ICLOSE(PSZ.H,FPOST);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE PIP;
BEGIN
FNAVN:='POSTREG:P2';
RECSIZE:=15;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=7;KEYDESC(1,3):=1;
CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN;
REWRITE(FPOST,FNAVN);
IOPEN(PSZ.H,FPOST,SKRIV);IF IER<>0 THEN ERROR;
INITIATE(PSZ.H,FPOST,PSZ.H.NBUC);
FOR I:=1 TO 7 DO WITH POSTERIN DO HELTAL(I):=0;
FOR I:=0 TO PSZ.H.NBUC-1 DO
WITH POSTERIN DO
BEGIN
R:=10000.0+80000.0*I/(PSZ.H.NBUC-1);
HELTAL(1):=TRUNC(R/10000);
HELTAL(2):=TRUNC(R-HELTAL(1)*10000.0);
INSERT(PSZ.H,FPOST,A)
END;
ICLOSE(PSZ.H,FPOST);
END;
BEGIN
CLEARSCREEN;
REPEAT
REPEAT
GOTOXY(1,1);
WRITELN('OPRETTELSE AF REGISTRE, ');
WRITELN('ORDREREG 1, PLUOR 2, RESTORDREREG 3, POSTERINGSREG 4');
READLN;READ(J)
UNTIL (IORESULT=0) AND (J>=0) AND (J<5);
REPEAT
GOTOXY(1,3);WRITELN('ANTAL POSTER');
GOTOXY(20,3);READLN;READ(NREC)
UNTIL (IORESULT=0) AND (NREC>0);
CASE J OF
4:PIP;
1:BEGIN
FNAVN:='ORDRERG:P2';
RECSIZE:=132;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;
CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN;
REWRITE(FORD,FNAVN);
IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;
INITIATE(OZ.H,FORD,OZ.H.NBUC);
FOR I:=1 TO 5 DO WITH ORDRE DO HEAD(I):=0;
FOR I:=0 TO OZ.H.NBUC-1 DO
WITH ORDRE DO
BEGIN
R:=10000.0+80000.0*I/(OZ.H.NBUC-1);
HEAD(1):=TRUNC(R/10000);
HEAD(2):=TRUNC(R-HEAD(1)*10000.0);
INSERT(OZ.H,FORD,A)
END;
ICLOSE(OZ.H,FORD);
END;
2:BEGIN
FNAVN:='PLUOR:P2';
RECSIZE:=147;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;
CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN;
REWRITE(FPLU,FNAVN);
IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;
INITIATE(PZ.H,FPLU,PZ.H.NBUC);
FOR I:=1 TO 5 DO WITH PLUORD DO HEAD(I):=0;
FOR I:=0 TO PZ.H.NBUC-1 DO
WITH PLUORD DO
BEGIN
R:=10000.0+80000.0*I/(PZ.H.NBUC-1);
HEAD(1):=TRUNC(R/10000);
HEAD(2):=TRUNC(R-HEAD(1)*10000.0);
INSERT(PZ.H,FPLU,A)
END;
ICLOSE(PZ.H,FPLU);
END;
3:BEGIN
FNAVN:='RESTREG:P2';
RECSIZE:=9;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=3;KEYDESC(1,3):=1;
CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN;
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;
INITIATE(RZ.H,FROR,RZ.H.NBUC);
RESTORD.HEAD(3):=0;
FOR I:=0 TO RZ.H.NBUC-1 DO
WITH RESTORD DO
BEGIN
R:=10000.0+80000.0*I/(RZ.H.NBUC-1);
HEAD(1):=TRUNC(R/10000);
HEAD(2):=TRUNC(R-HEAD(1)*10000.0);
INSERT(RZ.H,FROR,A)
END;
ICLOSE(RZ.H,FROR);
END
END
UNTIL J=0;
END.
0x0000…0015 Line {l1=0x13, l2=»PROGRAM OPRETFILES;«, l3=0x13}
0x0015…0024 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0024…0038 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0038…005f Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x005f…0080 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0080…0094 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0094…009c Line {l1=0x06, l2=» END;«, l3=0x06}
0x009c…00ad Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x00ad…00d4 Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x00d4…00ed Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x00ed…0101 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0101…0109 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0109…011c Line {l1=0x11, l2=» PLUORPOST=RECORD«, l3=0x11}
0x011c…012b Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x012b…0153 Line {l1=0x26, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x26}
0x0153…018f Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x018f…01d2 Line {l1=0x41, l2=» (*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,«, l3=0x41}
0x01d2…01ec Line {l1=0x18, l2=» RESTORDREKODE,RABAT*)«, l3=0x18}
0x01ec…021a Line {l1=0x2c, l2=» ORDRELIN : ARRAY (1..15) OF PLUOLINE«, l3=0x2c}
0x021a…0222 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0222…0237 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x0237…0246 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0246…024b Line {l1=0x03, l2=» (*«, l3=0x03}
0x024b…025f Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x025f…0271 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x0271…0280 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x0280…02c4 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x02c4…02ec Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x02ec…0329 Line {l1=0x3b, l2=» LINE: ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3b}
0x0329…0354 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x0354…035c Line {l1=0x06, l2=» END;«, l3=0x06}
0x035c…036d Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x036d…037b Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x037b…03ca Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x03ca…03ff Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x03ff…0405 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0405…0416 Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x0416…0429 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0429…044e Line {l1=0x23, l2=» T:ARRAY (1..1000) OF INTEGER«, l3=0x23}
0x044e…0454 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0454…0465 Line {l1=0x0f, l2=» PLUZONE=RECORD«, l3=0x0f}
0x0465…0479 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0479…049e Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x049e…04a6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x04a6…04b7 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x04b7…04c6 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x04c6…04da Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x04da…04e8 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x04e8…0523 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0523…0537 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x0537…053f Line {l1=0x06, l2=» END;«, l3=0x06}
0x053f…0550 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0550…0564 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0564…0589 Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x0589…0591 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0591…05a2 Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x05a2…05b6 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x05b6…05db Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x05db…05e3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x05e3…061c Line {l1=0x37, l2=»KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;«, l3=0x37}
0x061c…0646 Line {l1=0x28, l2=» VAR FORD,FPLU,FROR,FPOST : ISF;«, l3=0x28}
0x0646…065b Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x065b…0670 Line {l1=0x13, l2=» PZ:PLUZONE;«, l3=0x13}
0x0670…068a Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x068a…06a5 Line {l1=0x19, l2=» PLUORD:PLUORPOST;«, l3=0x19}
0x06a5…06c0 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x06c0…06da Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x06da…06f6 Line {l1=0x1a, l2=» POSTERIN:POSTPOST;«, l3=0x1a}
0x06f6…070b Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x070b…0722 Line {l1=0x15, l2=» PSZ:POSTZONE;«, l3=0x15}
0x0722…0734 Line {l1=0x10, l2=» IER,I,J,«, l3=0x10}
0x0734…0758 Line {l1=0x22, l2=» NREC,RECSIZE,KEYFLDS :INTEGER;«, l3=0x22}
0x0758…0765 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0765…0782 Line {l1=0x1b, l2=» KEYDESC:KEYDESCRIPTION;«, l3=0x1b}
0x0782…078b Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x078b…0799 Line {l1=0x0c, l2=»(*$ICREATE*)«, l3=0x0c}
0x0799…07ad Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x07ad…07bb Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x07bb…07c9 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x07c9…07da Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x07da…07eb Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x07eb…07fb Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x07fb…080a Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x080a…0819 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0819…0829 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x0829…0836 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0836…0849 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0849…0851 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0851…0876 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0876…088d Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x088d…08a4 Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x08a4…08bb Line {l1=0x15, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x15}
0x08bb…08d4 Line {l1=0x17, l2=» ICLOSE(PSZ.H,FPOST);«, l3=0x17}
0x08d4…08f0 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x08f0…08ff Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x08ff…0906 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0906…0916 Line {l1=0x0e, l2=»PROCEDURE PIP;«, l3=0x0e}
0x0916…091d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x091d…0935 Line {l1=0x16, l2=» FNAVN:='POSTREG:P2';«, l3=0x16}
0x0935…0945 Line {l1=0x0e, l2=» RECSIZE:=15;«, l3=0x0e}
0x0945…0954 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0954…0988 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=7;KEYDESC(1,3):=1;«, l3=0x32}
0x0988…09bb Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x09bb…09e2 Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x09e2…09fb Line {l1=0x17, l2=» REWRITE(FPOST,FNAVN);«, l3=0x17}
0x09fb…0a2d Line {l1=0x30, l2=» IOPEN(PSZ.H,FPOST,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x30}
0x0a2d…0a52 Line {l1=0x23, l2=» INITIATE(PSZ.H,FPOST,PSZ.H.NBUC);«, l3=0x23}
0x0a52…0a85 Line {l1=0x31, l2=» FOR I:=1 TO 7 DO WITH POSTERIN DO HELTAL(I):=0;«, l3=0x31}
0x0a85…0aa4 Line {l1=0x1d, l2=» FOR I:=0 TO PSZ.H.NBUC-1 DO«, l3=0x1d}
0x0aa4…0ab8 Line {l1=0x12, l2=» WITH POSTERIN DO«, l3=0x12}
0x0ab8…0ac1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ac1…0aee Line {l1=0x2b, l2=» R:=10000.0+80000.0*I/(PSZ.H.NBUC-1);«, l3=0x2b}
0x0aee…0b11 Line {l1=0x21, l2=» HELTAL(1):=TRUNC(R/10000);«, l3=0x21}
0x0b11…0b40 Line {l1=0x2d, l2=» HELTAL(2):=TRUNC(R-HELTAL(1)*10000.0);«, l3=0x2d}
0x0b40…0b5e Line {l1=0x1c, l2=» INSERT(PSZ.H,FPOST,A)«, l3=0x1c}
0x0b5e…0b66 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b66…0b7e Line {l1=0x16, l2=» ICLOSE(PSZ.H,FPOST);«, l3=0x16}
0x0b7e…0b81 Line {l1=0x01, l2=» «, l3=0x01}
0x0b81…0b87 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b87…0b8e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b8e…0b9e Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0b9e…0ba8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0ba8…0bb4 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0bb4…0bc9 Line {l1=0x13, l2=» GOTOXY(1,1);«, l3=0x13}
0x0bc9…0bf6 Line {l1=0x2b, l2=» WRITELN('OPRETTELSE AF REGISTRE, ');«, l3=0x2b}
0x0bf6…0c3f Line {l1=0x47, l2=» WRITELN('ORDREREG 1, PLUOR 2, RESTORDREREG 3, POSTERINGSREG 4');«, l3=0x47}
0x0c3f…0c56 Line {l1=0x15, l2=» READLN;READ(J)«, l3=0x15}
0x0c56…0c84 Line {l1=0x2c, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<5);«, l3=0x2c}
0x0c84…0c90 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0c90…0cbd Line {l1=0x2b, l2=» GOTOXY(1,3);WRITELN('ANTAL POSTER');«, l3=0x2b}
0x0cbd…0ce4 Line {l1=0x25, l2=» GOTOXY(20,3);READLN;READ(NREC)«, l3=0x25}
0x0ce4…0d0a Line {l1=0x24, l2=» UNTIL (IORESULT=0) AND (NREC>0);«, l3=0x24}
0x0d0a…0d19 Line {l1=0x0d, l2=» CASE J OF«, l3=0x0d}
0x0d19…0d21 Line {l1=0x06, l2=»4:PIP;«, l3=0x06}
0x0d21…0d2a Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x0d2a…0d42 Line {l1=0x16, l2=» FNAVN:='ORDRERG:P2';«, l3=0x16}
0x0d42…0d53 Line {l1=0x0f, l2=» RECSIZE:=132;«, l3=0x0f}
0x0d53…0d62 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0d62…0d96 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;«, l3=0x32}
0x0d96…0dc9 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x0dc9…0df0 Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x0df0…0e08 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x0e08…0e38 Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x0e38…0e5a Line {l1=0x20, l2=» INITIATE(OZ.H,FORD,OZ.H.NBUC);«, l3=0x20}
0x0e5a…0e5d Line {l1=0x01, l2=» «, l3=0x01}
0x0e5d…0e8b Line {l1=0x2c, l2=» FOR I:=1 TO 5 DO WITH ORDRE DO HEAD(I):=0;«, l3=0x2c}
0x0e8b…0ea9 Line {l1=0x1c, l2=» FOR I:=0 TO OZ.H.NBUC-1 DO«, l3=0x1c}
0x0ea9…0eba Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x0eba…0ec3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ec3…0eec Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(OZ.H.NBUC-1);«, l3=0x27}
0x0eec…0f0a Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x0f0a…0f32 Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x0f32…0f4b Line {l1=0x17, l2=» INSERT(OZ.H,FORD,A)«, l3=0x17}
0x0f4b…0f53 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0f53…0f69 Line {l1=0x14, l2=» ICLOSE(OZ.H,FORD);«, l3=0x14}
0x0f69…0f71 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0f71…0f7a Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x0f7a…0f90 Line {l1=0x14, l2=» FNAVN:='PLUOR:P2';«, l3=0x14}
0x0f90…0fa1 Line {l1=0x0f, l2=» RECSIZE:=147;«, l3=0x0f}
0x0fa1…0fb0 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0fb0…0fe4 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;«, l3=0x32}
0x0fe4…1017 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x1017…103e Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x103e…1056 Line {l1=0x16, l2=» REWRITE(FPLU,FNAVN);«, l3=0x16}
0x1056…1086 Line {l1=0x2e, l2=» IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x1086…10a8 Line {l1=0x20, l2=» INITIATE(PZ.H,FPLU,PZ.H.NBUC);«, l3=0x20}
0x10a8…10ab Line {l1=0x01, l2=» «, l3=0x01}
0x10ab…10da Line {l1=0x2d, l2=» FOR I:=1 TO 5 DO WITH PLUORD DO HEAD(I):=0;«, l3=0x2d}
0x10da…10f8 Line {l1=0x1c, l2=» FOR I:=0 TO PZ.H.NBUC-1 DO«, l3=0x1c}
0x10f8…110a Line {l1=0x10, l2=» WITH PLUORD DO«, l3=0x10}
0x110a…1113 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1113…113c Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(PZ.H.NBUC-1);«, l3=0x27}
0x113c…115a Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x115a…1182 Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x1182…119b Line {l1=0x17, l2=» INSERT(PZ.H,FPLU,A)«, l3=0x17}
0x119b…11a3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x11a3…11b9 Line {l1=0x14, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x14}
0x11b9…11c1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x11c1…11c4 Line {l1=0x01, l2=» «, l3=0x01}
0x11c4…11cd Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x11cd…11e5 Line {l1=0x16, l2=» FNAVN:='RESTREG:P2';«, l3=0x16}
0x11e5…11f4 Line {l1=0x0d, l2=» RECSIZE:=9;«, l3=0x0d}
0x11f4…1203 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x1203…1237 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=3;KEYDESC(1,3):=1;«, l3=0x32}
0x1237…126a Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x126a…1291 Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x1291…12a9 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x12a9…12d9 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x12d9…12fb Line {l1=0x20, l2=» INITIATE(RZ.H,FROR,RZ.H.NBUC);«, l3=0x20}
0x12fb…12fe Line {l1=0x01, l2=» «, l3=0x01}
0x12fe…1315 Line {l1=0x15, l2=» RESTORD.HEAD(3):=0;«, l3=0x15}
0x1315…1333 Line {l1=0x1c, l2=» FOR I:=0 TO RZ.H.NBUC-1 DO«, l3=0x1c}
0x1333…1346 Line {l1=0x11, l2=» WITH RESTORD DO«, l3=0x11}
0x1346…134f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x134f…1378 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(RZ.H.NBUC-1);«, l3=0x27}
0x1378…1396 Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x1396…13be Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x13be…13d7 Line {l1=0x17, l2=» INSERT(RZ.H,FROR,A)«, l3=0x17}
0x13d7…13df Line {l1=0x06, l2=» END;«, l3=0x06}
0x13df…13f5 Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x13f5…13fc Line {l1=0x05, l2=» END«, l3=0x05}
[…0x1…]
0x1403…140f Line {l1=0x0a, l2=»UNTIL J=0;«, l3=0x0a}
0x140f…1415 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1415…1420 00 00 45 4e 44 3b 06 0f 20 4f 4c ┆ END; OL┆
0x1420…1440 49 4e 45 20 3d 20 52 45 43 4f 52 44 0f 25 20 20 20 20 20 20 20 20 56 4e 52 20 3a 41 52 52 41 59 ┆INE = RECORD % VNR :ARRAY┆
0x1440…1460 20 28 31 2e 2e 32 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 25 17 20 20 20 20 20 20 20 20 28 2a 56 ┆ (1..2) OF INTEGER;% (*V┆
0x1460…1480 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 ┆ ┆
[…0x1f…]