|
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: »QPRETORD.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »QPRETORD.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;
TOLDPOPOST=RECORD
A:AR;
NR1,NR2:INTEGER;
TEKST:PACKED ARRAY (1..30) OF CHAR
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;
TPZONE=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 FTP,FORD,FPLU,FROR,FPOST : ISF;
OZ:ORDZONE;
PZ:PLUZONE;
TPZ:TPZONE;
ORDRE:ORDREPOST;
PLUORD:PLUORPOST;
TOLDPO:TOLDPOPOST;
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;
PROCEDURE PAP;
BEGIN
FNAVN:='TOLDPORG:P2';
RECSIZE:=17;
KEYFLDS:=1;
KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;
CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);
WRITELN(LIST,'IER : ',IER);WRITELN;
REWRITE(FTP,FNAVN);
IOPEN(TPZ.H,FTP,SKRIV);IF IER<>0 THEN ERROR;
INITIATE(TPZ.H,FTP,TPZ.H.NBUC);
TOLDPO.NR1:=0;TOLDPO.NR2:=0;
TOLDPO.TEKST:='TEKST IKKE OPRETTET AF BRUGER.';
FOR I:=0 TO TPZ.H.NBUC-1 DO
WITH TOLDPO DO
BEGIN
R:=1000000.0+9000000.0*I/(TPZ.H.NBUC-1);
NR1:=TRUNC(R/1000);
NR2:=TRUNC(R-NR1*1000.0);
INSERT(TPZ.H,FTP,A)
END;
ICLOSE(TPZ.H,FTP);
END;
BEGIN
CLEARSCREEN;
REPEAT
REPEAT
GOTOXY(1,1);
WRITELN('OPRETTELSE AF REGISTRE, ');
WRITELN('ORDREREG 1, PLUOR 2, RESTORDREREG 3, POSTERINGSREG 4',
'TOLDPNRREG 5');
READLN;READ(J)
UNTIL (IORESULT=0) AND (J>=0) AND (J<6);
REPEAT
GOTOXY(1,3);WRITELN('ANTAL POSTER');
GOTOXY(20,3);READLN;READ(NREC)
UNTIL (IORESULT=0) AND (NREC>0);
CASE J OF
4:PIP;
5:PAP;
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…036f Line {l1=0x11, l2=»TOLDPOPOST=RECORD«, l3=0x11}
0x036f…0378 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0378…038c Line {l1=0x12, l2=» NR1,NR2:INTEGER;«, l3=0x12}
0x038c…03b2 Line {l1=0x24, l2=» TEKST:PACKED ARRAY (1..30) OF CHAR«, l3=0x24}
0x03b2…03b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03b8…03c9 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x03c9…03d7 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03d7…0426 Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x0426…045b Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x045b…0461 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0461…0472 Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x0472…0485 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0485…04aa Line {l1=0x23, l2=» T:ARRAY (1..1000) OF INTEGER«, l3=0x23}
0x04aa…04b0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04b0…04c1 Line {l1=0x0f, l2=» PLUZONE=RECORD«, l3=0x0f}
0x04c1…04d5 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x04d5…04fa Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x04fa…0502 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0502…0511 Line {l1=0x0d, l2=»TPZONE=RECORD«, l3=0x0d}
0x0511…0525 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0525…054a Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x054a…0550 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0550…0561 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0561…0570 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0570…0584 Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x0584…0592 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0592…05cd Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x05cd…05e1 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x05e1…05e9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x05e9…05fa Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x05fa…060e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x060e…0633 Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x0633…063b Line {l1=0x06, l2=» END;«, l3=0x06}
0x063b…064c Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x064c…0660 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0660…0685 Line {l1=0x23, l2=» T:ARRAY(1..1000) OF INTEGER«, l3=0x23}
0x0685…068d Line {l1=0x06, l2=» END;«, l3=0x06}
0x068d…06c6 Line {l1=0x37, l2=»KEYDESCRIPTION=ARRAY (1..9) OF ARRAY (1..3) OF INTEGER;«, l3=0x37}
0x06c6…06f4 Line {l1=0x2c, l2=» VAR FTP,FORD,FPLU,FROR,FPOST : ISF;«, l3=0x2c}
0x06f4…0709 Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x0709…071e Line {l1=0x13, l2=» PZ:PLUZONE;«, l3=0x13}
0x071e…0733 Line {l1=0x13, l2=» TPZ:TPZONE;«, l3=0x13}
0x0733…074d Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x074d…0768 Line {l1=0x19, l2=» PLUORD:PLUORPOST;«, l3=0x19}
0x0768…0784 Line {l1=0x1a, l2=» TOLDPO:TOLDPOPOST;«, l3=0x1a}
0x0784…079f Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x079f…07b9 Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x07b9…07d5 Line {l1=0x1a, l2=» POSTERIN:POSTPOST;«, l3=0x1a}
0x07d5…07ea Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x07ea…0801 Line {l1=0x15, l2=» PSZ:POSTZONE;«, l3=0x15}
0x0801…0813 Line {l1=0x10, l2=» IER,I,J,«, l3=0x10}
0x0813…0837 Line {l1=0x22, l2=» NREC,RECSIZE,KEYFLDS :INTEGER;«, l3=0x22}
0x0837…0844 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0844…0861 Line {l1=0x1b, l2=» KEYDESC:KEYDESCRIPTION;«, l3=0x1b}
0x0861…086a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x086a…0878 Line {l1=0x0c, l2=»(*$ICREATE*)«, l3=0x0c}
0x0878…088c Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x088c…089a Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x089a…08a8 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x08a8…08b9 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x08b9…08ca Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x08ca…08da Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x08da…08e9 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x08e9…08f8 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x08f8…0908 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x0908…0915 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0915…0928 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0928…0930 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0930…0955 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0955…096c Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x096c…0983 Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0983…099a Line {l1=0x15, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x15}
0x099a…09b3 Line {l1=0x17, l2=» ICLOSE(PSZ.H,FPOST);«, l3=0x17}
0x09b3…09cf Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x09cf…09de Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x09de…09e5 Line {l1=0x05, l2=» END;«, l3=0x05}
0x09e5…09f5 Line {l1=0x0e, l2=»PROCEDURE PIP;«, l3=0x0e}
0x09f5…09fc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09fc…0a14 Line {l1=0x16, l2=» FNAVN:='POSTREG:P2';«, l3=0x16}
0x0a14…0a24 Line {l1=0x0e, l2=» RECSIZE:=15;«, l3=0x0e}
0x0a24…0a33 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0a33…0a67 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=7;KEYDESC(1,3):=1;«, l3=0x32}
0x0a67…0a9a Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x0a9a…0ac1 Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x0ac1…0ada Line {l1=0x17, l2=» REWRITE(FPOST,FNAVN);«, l3=0x17}
0x0ada…0b0c Line {l1=0x30, l2=» IOPEN(PSZ.H,FPOST,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x30}
0x0b0c…0b31 Line {l1=0x23, l2=» INITIATE(PSZ.H,FPOST,PSZ.H.NBUC);«, l3=0x23}
0x0b31…0b64 Line {l1=0x31, l2=» FOR I:=1 TO 7 DO WITH POSTERIN DO HELTAL(I):=0;«, l3=0x31}
0x0b64…0b83 Line {l1=0x1d, l2=» FOR I:=0 TO PSZ.H.NBUC-1 DO«, l3=0x1d}
0x0b83…0b97 Line {l1=0x12, l2=» WITH POSTERIN DO«, l3=0x12}
0x0b97…0ba0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ba0…0bcd Line {l1=0x2b, l2=» R:=10000.0+80000.0*I/(PSZ.H.NBUC-1);«, l3=0x2b}
0x0bcd…0bf0 Line {l1=0x21, l2=» HELTAL(1):=TRUNC(R/10000);«, l3=0x21}
0x0bf0…0c1f Line {l1=0x2d, l2=» HELTAL(2):=TRUNC(R-HELTAL(1)*10000.0);«, l3=0x2d}
0x0c1f…0c3d Line {l1=0x1c, l2=» INSERT(PSZ.H,FPOST,A)«, l3=0x1c}
0x0c3d…0c45 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0c45…0c5d Line {l1=0x16, l2=» ICLOSE(PSZ.H,FPOST);«, l3=0x16}
0x0c5d…0c60 Line {l1=0x01, l2=» «, l3=0x01}
0x0c60…0c66 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c66…0c76 Line {l1=0x0e, l2=»PROCEDURE PAP;«, l3=0x0e}
0x0c76…0c7d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c7d…0c96 Line {l1=0x17, l2=» FNAVN:='TOLDPORG:P2';«, l3=0x17}
0x0c96…0ca6 Line {l1=0x0e, l2=» RECSIZE:=17;«, l3=0x0e}
0x0ca6…0cb5 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x0cb5…0ce9 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=2;KEYDESC(1,3):=1;«, l3=0x32}
0x0ce9…0d1c Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x0d1c…0d43 Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x0d43…0d5a Line {l1=0x15, l2=» REWRITE(FTP,FNAVN);«, l3=0x15}
0x0d5a…0d8a Line {l1=0x2e, l2=» IOPEN(TPZ.H,FTP,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x0d8a…0dad Line {l1=0x21, l2=» INITIATE(TPZ.H,FTP,TPZ.H.NBUC);«, l3=0x21}
0x0dad…0dcd Line {l1=0x1e, l2=» TOLDPO.NR1:=0;TOLDPO.NR2:=0;«, l3=0x1e}
0x0dcd…0e00 Line {l1=0x31, l2=» TOLDPO.TEKST:='TEKST IKKE OPRETTET AF BRUGER.';«, l3=0x31}
0x0e00…0e1f Line {l1=0x1d, l2=» FOR I:=0 TO TPZ.H.NBUC-1 DO«, l3=0x1d}
0x0e1f…0e31 Line {l1=0x10, l2=» WITH TOLDPO DO«, l3=0x10}
0x0e31…0e3a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0e3a…0e6b Line {l1=0x2f, l2=» R:=1000000.0+9000000.0*I/(TPZ.H.NBUC-1);«, l3=0x2f}
0x0e6b…0e87 Line {l1=0x1a, l2=» NR1:=TRUNC(R/1000);«, l3=0x1a}
0x0e87…0ea9 Line {l1=0x20, l2=» NR2:=TRUNC(R-NR1*1000.0);«, l3=0x20}
0x0ea9…0ec5 Line {l1=0x1a, l2=» INSERT(TPZ.H,FTP,A)«, l3=0x1a}
0x0ec5…0ecd Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ecd…0ee3 Line {l1=0x14, l2=» ICLOSE(TPZ.H,FTP);«, l3=0x14}
0x0ee3…0ee6 Line {l1=0x01, l2=» «, l3=0x01}
0x0ee6…0eec Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eec…0ef3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ef3…0f03 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0f03…0f0d Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0f0d…0f19 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0f19…0f2e Line {l1=0x13, l2=» GOTOXY(1,1);«, l3=0x13}
0x0f2e…0f5b Line {l1=0x2b, l2=» WRITELN('OPRETTELSE AF REGISTRE, ');«, l3=0x2b}
0x0f5b…0fa3 Line {l1=0x46, l2=» WRITELN('ORDREREG 1, PLUOR 2, RESTORDREREG 3, POSTERINGSREG 4',«, l3=0x46}
0x0fa3…0fc4 Line {l1=0x1f, l2=» 'TOLDPNRREG 5');«, l3=0x1f}
0x0fc4…0fdb Line {l1=0x15, l2=» READLN;READ(J)«, l3=0x15}
0x0fdb…1009 Line {l1=0x2c, l2=» UNTIL (IORESULT=0) AND (J>=0) AND (J<6);«, l3=0x2c}
0x1009…1015 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1015…1042 Line {l1=0x2b, l2=» GOTOXY(1,3);WRITELN('ANTAL POSTER');«, l3=0x2b}
0x1042…1069 Line {l1=0x25, l2=» GOTOXY(20,3);READLN;READ(NREC)«, l3=0x25}
0x1069…108f Line {l1=0x24, l2=» UNTIL (IORESULT=0) AND (NREC>0);«, l3=0x24}
0x108f…109e Line {l1=0x0d, l2=» CASE J OF«, l3=0x0d}
0x109e…10a6 Line {l1=0x06, l2=»4:PIP;«, l3=0x06}
0x10a6…10ae Line {l1=0x06, l2=»5:PAP;«, l3=0x06}
0x10ae…10b7 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x10b7…10cf Line {l1=0x16, l2=» FNAVN:='ORDRERG:P2';«, l3=0x16}
0x10cf…10e0 Line {l1=0x0f, l2=» RECSIZE:=132;«, l3=0x0f}
0x10e0…10ef Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x10ef…1123 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;«, l3=0x32}
0x1123…1156 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x1156…117d Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x117d…1195 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x1195…11c5 Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x11c5…11e7 Line {l1=0x20, l2=» INITIATE(OZ.H,FORD,OZ.H.NBUC);«, l3=0x20}
0x11e7…11ea Line {l1=0x01, l2=» «, l3=0x01}
0x11ea…1218 Line {l1=0x2c, l2=» FOR I:=1 TO 5 DO WITH ORDRE DO HEAD(I):=0;«, l3=0x2c}
0x1218…1236 Line {l1=0x1c, l2=» FOR I:=0 TO OZ.H.NBUC-1 DO«, l3=0x1c}
0x1236…1247 Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x1247…1250 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1250…1279 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(OZ.H.NBUC-1);«, l3=0x27}
0x1279…1297 Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x1297…12bf Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x12bf…12d8 Line {l1=0x17, l2=» INSERT(OZ.H,FORD,A)«, l3=0x17}
0x12d8…12e0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x12e0…12f6 Line {l1=0x14, l2=» ICLOSE(OZ.H,FORD);«, l3=0x14}
0x12f6…12fe Line {l1=0x06, l2=» END;«, l3=0x06}
0x12fe…1307 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x1307…131d Line {l1=0x14, l2=» FNAVN:='PLUOR:P2';«, l3=0x14}
0x131d…132e Line {l1=0x0f, l2=» RECSIZE:=147;«, l3=0x0f}
0x132e…133d Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x133d…1371 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=5;KEYDESC(1,3):=1;«, l3=0x32}
0x1371…13a4 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x13a4…13cb Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x13cb…13e3 Line {l1=0x16, l2=» REWRITE(FPLU,FNAVN);«, l3=0x16}
0x13e3…1413 Line {l1=0x2e, l2=» IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x1413…1435 Line {l1=0x20, l2=» INITIATE(PZ.H,FPLU,PZ.H.NBUC);«, l3=0x20}
0x1435…1438 Line {l1=0x01, l2=» «, l3=0x01}
0x1438…1467 Line {l1=0x2d, l2=» FOR I:=1 TO 5 DO WITH PLUORD DO HEAD(I):=0;«, l3=0x2d}
0x1467…1485 Line {l1=0x1c, l2=» FOR I:=0 TO PZ.H.NBUC-1 DO«, l3=0x1c}
0x1485…1497 Line {l1=0x10, l2=» WITH PLUORD DO«, l3=0x10}
0x1497…14a0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x14a0…14c9 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(PZ.H.NBUC-1);«, l3=0x27}
0x14c9…14e7 Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x14e7…150f Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x150f…1528 Line {l1=0x17, l2=» INSERT(PZ.H,FPLU,A)«, l3=0x17}
0x1528…1530 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1530…1546 Line {l1=0x14, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x14}
0x1546…154e Line {l1=0x06, l2=» END;«, l3=0x06}
0x154e…1551 Line {l1=0x01, l2=» «, l3=0x01}
0x1551…155a Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x155a…1572 Line {l1=0x16, l2=» FNAVN:='RESTREG:P2';«, l3=0x16}
0x1572…1581 Line {l1=0x0d, l2=» RECSIZE:=9;«, l3=0x0d}
0x1581…1590 Line {l1=0x0d, l2=» KEYFLDS:=1;«, l3=0x0d}
0x1590…15c4 Line {l1=0x32, l2=» KEYDESC(1,1):=1;KEYDESC(1,2):=3;KEYDESC(1,3):=1;«, l3=0x32}
0x15c4…15f7 Line {l1=0x31, l2=» CREATE(FNAVN,NREC,RECSIZE,KEYFLDS,KEYDESC,IER);«, l3=0x31}
0x15f7…161e Line {l1=0x25, l2=» WRITELN(LIST,'IER : ',IER);WRITELN;«, l3=0x25}
0x161e…1636 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x1636…1666 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x1666…1688 Line {l1=0x20, l2=» INITIATE(RZ.H,FROR,RZ.H.NBUC);«, l3=0x20}
0x1688…168b Line {l1=0x01, l2=» «, l3=0x01}
0x168b…16a2 Line {l1=0x15, l2=» RESTORD.HEAD(3):=0;«, l3=0x15}
0x16a2…16c0 Line {l1=0x1c, l2=» FOR I:=0 TO RZ.H.NBUC-1 DO«, l3=0x1c}
0x16c0…16d3 Line {l1=0x11, l2=» WITH RESTORD DO«, l3=0x11}
0x16d3…16dc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x16dc…1705 Line {l1=0x27, l2=» R:=10000.0+80000.0*I/(RZ.H.NBUC-1);«, l3=0x27}
0x1705…1723 Line {l1=0x1c, l2=» HEAD(1):=TRUNC(R/10000);«, l3=0x1c}
0x1723…174b Line {l1=0x26, l2=» HEAD(2):=TRUNC(R-HEAD(1)*10000.0);«, l3=0x26}
0x174b…1764 Line {l1=0x17, l2=» INSERT(RZ.H,FROR,A)«, l3=0x17}
0x1764…176c Line {l1=0x06, l2=» END;«, l3=0x06}
0x176c…1782 Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x1782…1789 Line {l1=0x05, l2=» END«, l3=0x05}
[…0x1…]
0x1790…179c Line {l1=0x0a, l2=»UNTIL J=0;«, l3=0x0a}
0x179c…17a2 Line {l1=0x04, l2=»END.«, l3=0x04}
0x17a2…17c0 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 ┆ ┆
0x17c0…17e0 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 ┆ ┆
[…0x4…]