|
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: »MESSEKIK.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »MESSEKIK.K«
PROGRAM MESSEOVERSIGTSUDSKRIVNING;
(*$IISFHEAD*)
OLINE = RECORD
VNR :ARRAY (1..2) OF INTEGER;
(*VNR,BESTILT*)
PRIS: REAL
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;
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB:ARRAY (1..9) OF REAL
END;
ORDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..930) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FORD,FKUN : ISF;
KZ:KZONE;
OZ:ORDZONE;
ORDRE:ORDREPOST;
KUNDE:KPOST;
FNAVN:STRING(20);
NRPF,CF:NPFILE;
TOTORDRE:ARRAY (1..60) OF OLINE;
OLIN:OLINE;
KNAVN:STRING(4);
T:TEXT;
SVAR1,SVAR3:CHAR;
IER,I,J,K,L,ALI,EOF
:INTEGER;
O1,O2,R,R1,R2,SUM,SUM1 :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
PROCEDURE HOVED;
BEGIN
WRITE(LIST,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):7:-2,
' ':2,ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):8:-2);
WRITE(LIST,' ':2,KUNDE.NAVN(1));
END;
PROCEDURE PAKLIST;
VAR S:INTEGER;
SLUT:BOOLEAN;
REST,LEV:REAL;
BEGIN
SUM:=0;
HOVED;
S:=0;
REPEAT
FOR J:=1 TO 15 DO
BEGIN
TOTORDRE(S*15+J):=ORDRE.ORDRELIN(J);
IF TOTORDRE(S*15+J).VNR(1)<>0 THEN ALI:=S*15+J
END;
S:=S+1;
SLUT:=ORDRE.HEAD(5)=99;
NEXTREC(OZ.H,FORD,ORDRE.A);
EOF:=IER;
IF ((IER<>0) AND (IER<>-2) AND (IER<>-1)) THEN ERROR
UNTIL SLUT;
FOR J:=1 TO ALI DO
WITH TOTORDRE(J) DO
IF VNR(1)<>0 THEN
BEGIN
LEV:=VNR(2);
SUM:=SUM+LEV*PRIS;
END;
WRITELN(LIST,' ':3,SUM/100:12:2);
WRITELN(LIST);
SUM1:=SUM1+SUM;
END;
FUNCTION FOUND:BOOLEAN;
VAR R:REAL;
BEGIN
R:=ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4);
IF (R>=O1) AND (R<=O2) THEN FOUND:=TRUE ELSE FOUND:=FALSE
END;
BEGIN
CLEARSCREEN;
FNAVN:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FNAVN);
SEEK(NRPF,1)
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
NRPF^.NP:=1;
SEEK(NRPF,1);
PUT(NRPF);
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C1:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
CLOSE(NRPF);
FNAVN:='ORDRERG:P2:0000:I';
RESET(FORD,FNAVN);
IOPEN(OZ.H,FORD,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;
WRITELN(LIST,'M E S S E O V E R S I G T');
WRITELN(LIST);
SUM:=0;SUM1:=0;
CLEARSCREEN;
WRITELN('STARTNR');
REPEAT GOTOXY(15,1);READLN;READ(O1);
WRITELN('SLUTNR');
GOTOXY(15,2);READLN;READ(O2)
UNTIL (IORESULT=0) AND (O1<=O2);
WITH ORDRE DO
BEGIN
FOR J:=1 TO 5 DO HEAD(J):=0;
NEXTREC(OZ.H,FORD,A);
IF IER<>-1 THEN ERROR ELSE IER:=0;
REPEAT
WHILE (NOT FOUND) AND (IER=0) DO NEXTREC(OZ.H,FORD,A);
EOF:=IER;
IF IER=0 THEN
BEGIN
KUNDE.NR(1):=HEAD(1);
KUNDE.NR(2):=HEAD(2);
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
PAKLIST
END
UNTIL EOF<>0;
IF EOF<>-2 THEN ERROR;
END;
WRITELN(LIST,'TOTAL',' ':47,SUM1/100:12:2);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
CHAIN('INTRE *1','HOVSA:P1',QUQ)
0x0000…0024 Line {l1=0x22, l2=»PROGRAM MESSEOVERSIGTSUDSKRIVNING;«, l3=0x22}
0x0024…0034 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0034…0045 Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x0045…006c Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x006c…0085 Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x0085…0099 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0099…00a1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x00a1…00b6 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x00b6…00c5 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x00c5…00ca Line {l1=0x03, l2=» (*«, l3=0x03}
0x00ca…00de Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x00de…00f0 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x00f0…00ff Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x00ff…0143 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x0143…016b Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x016b…01a7 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x01a7…01d2 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x01d2…01da Line {l1=0x06, l2=» END;«, l3=0x06}
0x01da…01e8 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x01e8…01f6 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x01f6…021b Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x021b…0257 Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0257…0285 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x0285…02b2 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x02b2…02dc Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x02dc…0302 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0302…0308 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0308…0319 Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x0319…032d Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x032d…0351 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x0351…0359 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0359…0367 Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x0367…037a Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x037a…039d Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x039d…03a3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03a3…03a7 Line {l1=0x02, l2=» «, l3=0x02}
[…0x1…]
0x03ab…03bc Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x03bc…03d8 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x03d8…03de Line {l1=0x04, l2=»END;«, l3=0x04}
0x03de…03f8 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x03f8…03fc Line {l1=0x02, l2=» «, l3=0x02}
[…0x1…]
0x0400…041a Line {l1=0x18, l2=» VAR FORD,FKUN : ISF;«, l3=0x18}
0x041a…042d Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x042d…0442 Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x0442…045c Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x045c…0472 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0472…048d Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x048d…04a6 Line {l1=0x17, l2=» NRPF,CF:NPFILE;«, l3=0x17}
0x04a6…04d0 Line {l1=0x28, l2=» TOTORDRE:ARRAY (1..60) OF OLINE;«, l3=0x28}
0x04d0…04e5 Line {l1=0x13, l2=» OLIN:OLINE;«, l3=0x13}
0x04e5…04ff Line {l1=0x18, l2=» KNAVN:STRING(4);«, l3=0x18}
0x04ff…0510 Line {l1=0x0f, l2=» T:TEXT;«, l3=0x0f}
0x0510…0525 Line {l1=0x13, l2=» SVAR1,SVAR3:CHAR;«, l3=0x13}
0x0525…0542 Line {l1=0x1b, l2=» IER,I,J,K,L,ALI,EOF«, l3=0x1b}
0x0542…0565 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0565…0584 Line {l1=0x1d, l2=»O1,O2,R,R1,R2,SUM,SUM1 :REAL;«, l3=0x1d}
0x0584…059b Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x059b…05a4 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x05a4…05b8 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x05b8…05c6 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x05c6…05d7 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x05d7…05e8 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x05e8…05f7 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x05f7…0606 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0606…0616 Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x0616…0620 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x0620…0629 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0629…063c Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x063c…0644 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0644…0669 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0669…0680 Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0680…0697 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0697…06b3 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x06b3…06c2 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x06c2…06c9 Line {l1=0x05, l2=» END;«, l3=0x05}
0x06c9…06db Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x06db…06e2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x06e2…06f3 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x06f3…0738 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0738…0768 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0768…07a1 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x07a1…07b8 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x07b8…07c7 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x07c7…07cd Line {l1=0x04, l2=»END;«, l3=0x04}
0x07cd…07df Line {l1=0x10, l2=»PROCEDURE HOVED;«, l3=0x10}
0x07df…07e6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07e6…081e Line {l1=0x36, l2=» WRITE(LIST,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):7:-2,«, l3=0x36}
0x081e…085c Line {l1=0x3c, l2=» ' ':2,ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):8:-2);«, l3=0x3c}
0x085c…0880 Line {l1=0x22, l2=» WRITE(LIST,' ':2,KUNDE.NAVN(1));«, l3=0x22}
0x0880…0886 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0886…089a Line {l1=0x12, l2=»PROCEDURE PAKLIST;«, l3=0x12}
0x089a…08aa Line {l1=0x0e, l2=»VAR S:INTEGER;«, l3=0x0e}
0x08aa…08bd Line {l1=0x11, l2=» SLUT:BOOLEAN;«, l3=0x11}
0x08bd…08d1 Line {l1=0x12, l2=» REST,LEV:REAL;«, l3=0x12}
0x08d1…08d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08d8…08e3 Line {l1=0x09, l2=» SUM:=0;«, l3=0x09}
0x08e3…08ed Line {l1=0x08, l2=» HOVED;«, l3=0x08}
0x08ed…08f6 Line {l1=0x07, l2=» S:=0;«, l3=0x07}
0x08f6…0900 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0900…0917 Line {l1=0x15, l2=» FOR J:=1 TO 15 DO«, l3=0x15}
0x0917…0922 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0922…094e Line {l1=0x2a, l2=» TOTORDRE(S*15+J):=ORDRE.ORDRELIN(J);«, l3=0x2a}
0x094e…0984 Line {l1=0x34, l2=» IF TOTORDRE(S*15+J).VNR(1)<>0 THEN ALI:=S*15+J«, l3=0x34}
0x0984…098e Line {l1=0x08, l2=» END;«, l3=0x08}
0x098e…099b Line {l1=0x0b, l2=» S:=S+1;«, l3=0x0b}
0x099b…09b8 Line {l1=0x1b, l2=» SLUT:=ORDRE.HEAD(5)=99;«, l3=0x1b}
0x09b8…09d9 Line {l1=0x1f, l2=» NEXTREC(OZ.H,FORD,ORDRE.A);«, l3=0x1f}
0x09d9…09e8 Line {l1=0x0d, l2=» EOF:=IER;«, l3=0x0d}
0x09e8…0a22 Line {l1=0x38, l2=» IF ((IER<>0) AND (IER<>-2) AND (IER<>-1)) THEN ERROR«, l3=0x38}
0x0a22…0a31 Line {l1=0x0d, l2=» UNTIL SLUT;«, l3=0x0d}
0x0a31…0a47 Line {l1=0x14, l2=» FOR J:=1 TO ALI DO«, l3=0x14}
0x0a47…0a5e Line {l1=0x15, l2=» WITH TOTORDRE(J) DO«, l3=0x15}
0x0a5e…0a73 Line {l1=0x13, l2=» IF VNR(1)<>0 THEN«, l3=0x13}
0x0a73…0a7c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0a7c…0a90 Line {l1=0x12, l2=» LEV:=VNR(2);«, l3=0x12}
0x0a90…0aaa Line {l1=0x18, l2=» SUM:=SUM+LEV*PRIS;«, l3=0x18}
0x0aaa…0ab2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ab2…0ad7 Line {l1=0x23, l2=» WRITELN(LIST,' ':3,SUM/100:12:2);«, l3=0x23}
0x0ad7…0ae9 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x0ae9…0afc Line {l1=0x11, l2=» SUM1:=SUM1+SUM;«, l3=0x11}
0x0afc…0b02 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b02…0b1b Line {l1=0x17, l2=»FUNCTION FOUND:BOOLEAN;«, l3=0x17}
0x0b1b…0b28 Line {l1=0x0b, l2=»VAR R:REAL;«, l3=0x0b}
0x0b28…0b2f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b2f…0b5a Line {l1=0x29, l2=» R:=ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4);«, l3=0x29}
0x0b5a…0b97 Line {l1=0x3b, l2=» IF (R>=O1) AND (R<=O2) THEN FOUND:=TRUE ELSE FOUND:=FALSE«, l3=0x3b}
0x0b97…0b9d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b9d…0ba4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ba4…0bb4 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0bb4…0bd1 Line {l1=0x1b, l2=» FNAVN:='PROCSTAT:P2:0:I';«, l3=0x1b}
0x0bd1…0bda Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x0bda…0be4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0be4…0bfe Line {l1=0x18, l2=» REWRITE(NRPF,FNAVN);«, l3=0x18}
0x0bfe…0c10 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x0c10…0c25 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0c25…0c2e Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0c2e…0c3c Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x0c3c…0c4c Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x0c4c…0c5d Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x0c5d…0c6b Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x0c6b…0c75 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0c75…0c88 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x0c88…0cbd Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x0cbd…0cca Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x0cca…0cd3 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x0cd3…0cf1 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x0cf1…0d01 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x0d01…0d0a Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0d0a…0d1f Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0d1f…0d2d Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x0d2d…0d3d Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x0d3d…0d40 Line {l1=0x01, l2=» «, l3=0x01}
0x0d40…0d5f Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x0d5f…0d75 Line {l1=0x14, l2=» RESET(FORD,FNAVN);«, l3=0x14}
0x0d75…0da3 Line {l1=0x2c, l2=» IOPEN(OZ.H,FORD,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x0da3…0da6 Line {l1=0x01, l2=» «, l3=0x01}
[…0x2…]
0x0dac…0dcb Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x0dcb…0de1 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x0de1…0e0f Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x0e0f…0e12 Line {l1=0x01, l2=» «, l3=0x01}
0x0e12…0e40 Line {l1=0x2c, l2=» WRITELN(LIST,'M E S S E O V E R S I G T');«, l3=0x2c}
0x0e40…0e52 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x0e52…0e65 Line {l1=0x11, l2=» SUM:=0;SUM1:=0;«, l3=0x11}
0x0e65…0e79 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x0e79…0e94 Line {l1=0x19, l2=» WRITELN('STARTNR');«, l3=0x19}
0x0e94…0ec0 Line {l1=0x2a, l2=» REPEAT GOTOXY(15,1);READLN;READ(O1);«, l3=0x2a}
0x0ec0…0edb Line {l1=0x19, l2=» WRITELN('SLUTNR');«, l3=0x19}
0x0edb…0f00 Line {l1=0x23, l2=» GOTOXY(15,2);READLN;READ(O2)«, l3=0x23}
0x0f00…0f28 Line {l1=0x26, l2=» UNTIL (IORESULT=0) AND (O1<=O2);«, l3=0x26}
0x0f28…0f3d Line {l1=0x13, l2=» WITH ORDRE DO«, l3=0x13}
0x0f3d…0f4a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0f4a…0f70 Line {l1=0x24, l2=» FOR J:=1 TO 5 DO HEAD(J):=0;«, l3=0x24}
0x0f70…0f8f Line {l1=0x1d, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1d}
0x0f8f…0fbb Line {l1=0x2a, l2=» IF IER<>-1 THEN ERROR ELSE IER:=0;«, l3=0x2a}
0x0fbb…0fcb Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x0fcb…100d Line {l1=0x40, l2=» WHILE (NOT FOUND) AND (IER=0) DO NEXTREC(OZ.H,FORD,A);«, l3=0x40}
0x100d…1022 Line {l1=0x13, l2=» EOF:=IER;«, l3=0x13}
0x1022…103b Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x103b…1051 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1051…1077 Line {l1=0x24, l2=» KUNDE.NR(1):=HEAD(1);«, l3=0x24}
0x1077…109d Line {l1=0x24, l2=» KUNDE.NR(2):=HEAD(2);«, l3=0x24}
0x109d…10c8 Line {l1=0x29, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x29}
0x10c8…10ee Line {l1=0x24, l2=» IF IER<>0 THEN ERROR;«, l3=0x24}
0x10ee…1106 Line {l1=0x16, l2=» PAKLIST«, l3=0x16}
0x1106…111a Line {l1=0x12, l2=» END«, l3=0x12}
0x111a…1131 Line {l1=0x15, l2=» UNTIL EOF<>0;«, l3=0x15}
0x1131…1151 Line {l1=0x1e, l2=» IF EOF<>-2 THEN ERROR;«, l3=0x1e}
0x1151…115d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x115d…118c Line {l1=0x2d, l2=» WRITELN(LIST,'TOTAL',' ':47,SUM1/100:12:2);«, l3=0x2d}
0x118c…11a5 Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x11a5…11be Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x11be…11e4 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x11e4…11ea Line {l1=0x04, l2=»END.«, l3=0x04}
0x11ea…1213 Line {l1=0x27, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x27}
0x1213…1220 00 00 27 53 4c 55 54 4e 52 27 29 3b 19 ┆ 'SLUTNR'); ┆
0x1220…1240 23 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 31 35 2c 32 29 3b 52 45 41 44 4c 4e 3b 52 45 41 44 ┆# GOTOXY(15,2);READLN;READ┆
0x1240…1260 28 4f 32 29 23 26 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c 54 3d 30 29 20 41 ┆(O2)#& UNTIL (IORESULT=0) A┆
0x1260…1280 4e 44 20 28 4f 31 3c 3d 4f 32 29 3b 26 13 20 20 20 20 20 20 57 49 54 48 20 4f 52 44 52 45 20 44 ┆ND (O1<=O2);& WITH ORDRE D┆
0x1280…12a0 4f 13 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 24 20 20 20 20 20 20 20 20 46 4f 52 20 4a 3a 3d 31 ┆O BEGIN $ FOR J:=1┆
0x12a0…12c0 20 54 4f 20 35 20 44 4f 20 48 45 41 44 28 4a 29 3a 3d 30 3b 24 1d 20 20 20 20 20 20 20 20 4e 45 ┆ TO 5 DO HEAD(J):=0;$ NE┆
0x12c0…12e0 58 54 52 45 43 28 4f 5a 2e 48 2c 46 4f 52 44 2c 41 29 3b 1d 2a 20 20 20 20 20 20 20 20 49 46 20 ┆XTREC(OZ.H,FORD,A); * IF ┆
0x12e0…1300 49 45 52 3c 3e 2d 31 20 54 48 45 4e 20 45 52 52 4f 52 20 45 4c 53 45 20 49 45 52 3a 3d 30 3b 2a ┆IER<>-1 THEN ERROR ELSE IER:=0;*┆
0x1300…1320 0e 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0e 40 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 ┆ REPEAT @ WHILE┆
0x1320…1340 20 28 4e 4f 54 20 46 4f 55 4e 44 29 20 41 4e 44 20 28 49 45 52 3d 30 29 20 44 4f 20 4e 45 58 54 ┆ (NOT FOUND) AND (IER=0) DO NEXT┆
0x1340…1360 52 45 43 28 4f 5a 2e 48 2c 46 4f 52 44 2c 41 29 3b 40 13 20 20 20 20 20 20 20 20 20 20 45 4f 46 ┆REC(OZ.H,FORD,A);@ EOF┆
0x1360…1380 3a 3d 49 45 52 3b 13 17 20 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3d 30 20 54 48 45 4e 17 ┆:=IER; IF IER=0 THEN ┆
0x1380…13a0 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 14 24 20 20 20 20 20 20 20 20 20 ┆ BEGIN $ ┆
0x13a0…13c0 20 20 20 20 20 20 4b 55 4e 44 45 2e 4e 52 28 31 29 3a 3d 48 45 41 44 28 31 29 3b 24 24 20 20 20 ┆ KUNDE.NR(1):=HEAD(1);$$ ┆
0x13c0…13e0 20 20 20 20 20 20 20 20 20 20 20 20 4b 55 4e 44 45 2e 4e 52 28 32 29 3a 3d 48 45 41 44 28 32 29 ┆ KUNDE.NR(2):=HEAD(2)┆
0x13e0…1400 3b 24 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 4b 5a 2e 48 2c 46 4b ┆;$) GETREC(KZ.H,FK┆
0x1400…1420 55 4e 2c 4b 55 4e 44 45 2e 41 29 3b 29 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 ┆UN,KUNDE.A);)$ IF ┆
0x1420…1440 49 45 52 3c 3e 30 20 54 48 45 4e 20 45 52 52 4f 52 3b 24 16 20 20 20 20 20 20 20 20 20 20 20 20 ┆IER<>0 THEN ERROR;$ ┆
0x1440…1460 20 20 20 50 41 4b 4c 49 53 54 16 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 12 15 ┆ PAKLIST END ┆
0x1460…1480 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 45 4f 46 3c 3e 30 3b 15 1e 20 20 20 20 20 20 20 20 49 ┆ UNTIL EOF<>0; I┆
0x1480…14a0 46 20 45 4f 46 3c 3e 2d 32 20 54 48 45 4e 20 45 52 52 4f 52 3b 1e 0a 20 20 20 20 20 20 45 4e 44 ┆F EOF<>-2 THEN ERROR; END┆
0x14a0…14c0 3b 0a 2d 20 20 57 52 49 54 45 4c 4e 28 4c 49 53 54 2c 27 54 4f 54 41 4c 27 2c 27 20 27 3a 34 37 ┆; - WRITELN(LIST,'TOTAL',' ':47┆
0x14c0…14e0 2c 53 55 4d 31 2f 31 30 30 3a 31 32 3a 32 29 3b 2d 17 20 20 20 20 20 49 43 4c 4f 53 45 28 4f 5a ┆,SUM1/100:12:2);- ICLOSE(OZ┆
0x14e0…1500 2e 48 2c 46 4f 52 44 29 3b 17 17 20 20 20 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 4b 55 4e ┆.H,FORD); ICLOSE(KZ.H,FKUN┆
0x1500…1520 29 3b 17 04 45 4e 44 2e 04 00 00 46 4f 52 44 29 3b 17 17 20 20 20 20 20 49 43 4c 4f 53 45 28 4b ┆); END. FORD); ICLOSE(K┆
0x1520…1540 5a 2e 48 2c 46 4b 55 4e 29 3b 17 04 45 4e 44 2e 04 00 00 45 4e 44 2e 04 00 00 00 00 00 00 00 00 ┆Z.H,FKUN); END. END. ┆
0x1540…1560 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 ┆ ┆
[…0x18…]