|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »ORDREREO.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »ORDREREO.K«
PROGRAM ORDREREOR;
(*$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;
ORDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..930) OF INTEGER
END;
VAR F1,F:ISF;
KZ:ORDZONE;
KZ1:ORDZONE;
FILNAVN1,FILNAVN2:STRING(20);
N3,N4,N1,N2,IER,I:INTEGER;
R:REAL;
ORDRE:ORDREPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IINITIATE*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
ICLOSE(KZ1.H,F1);
WRITELN('ICLOSE ',IER);
STOP
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;
BEGIN
CLEARSCREEN;
FILNAVN2:='ORDRERG:P2:0000:I';
REWRITE(F,FILNAVN2);
IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;
FILNAVN1:='ORDRERG:P1:0000:I';
REWRITE(F1,FILNAVN1);
IOPEN(KZ1.H,F1,SKRIV);IF IER<>0 THEN OFEJL;
FOR I:=1 TO 5 DO ORDRE.HEAD(I):=0;
NEXTREC(KZ.H,F,ORDRE.A);
WRITELN(LIST,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):10:-2,
ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2,
ORDRE.HEAD(5):5);
IF IER<>-1 THEN ERROR ELSE IER:=0;
I:=0;
WHILE IER=0 DO
BEGIN
INSERT(KZ1.H,F1,ORDRE.A);
IF (IER<>0) AND (IER<>-7) THEN ERROR;
IF IER<>-7 THEN
WRITELN(LIST,' ':30,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):10:-2,
ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2,
ORDRE.HEAD(5):5)
ELSE WRITELN(LIST,' ':30,'PRESENT');
NEXTREC(KZ.H,F,ORDRE.A);
WRITELN(LIST,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):10:-2,
ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2,
ORDRE.HEAD(5):5);
I:=I+1
END;
IF IER<>-2 THEN ERROR;
WRITELN('INDPOSTER, UDPOSTER',KZ.H.RECINUSE:5,I:5);
ICLOSE(KZ.H,F);
ICLOSE(KZ1.H,F1);
WRITELN('ICLOSE ',IER);
END.
0x000…014 Line {l1=0x12, l2=»PROGRAM ORDREREOR;«, l3=0x12}
0x014…023 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x023…026 Line {l1=0x01, l2=» «, l3=0x01}
0x026…037 Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x037…05e Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x05e…077 Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x077…08b Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x08b…093 Line {l1=0x06, l2=» END;«, l3=0x06}
0x093…0a8 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x0a8…0b7 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0b7…0bc Line {l1=0x03, l2=» (*«, l3=0x03}
0x0bc…0d0 Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x0d0…0e2 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x0e2…0f1 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x0f1…135 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x135…15d Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x15d…199 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x199…1c4 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x1c4…1cc Line {l1=0x06, l2=» END;«, l3=0x06}
0x1cc…1dd Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x1dd…1f1 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x1f1…215 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x215…21d Line {l1=0x06, l2=» END;«, l3=0x06}
0x21d…22f Line {l1=0x10, l2=»VAR F1,F:ISF;«, l3=0x10}
0x22f…243 Line {l1=0x12, l2=» KZ:ORDZONE;«, l3=0x12}
0x243…258 Line {l1=0x13, l2=» KZ1:ORDZONE;«, l3=0x13}
0x258…277 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x277…293 Line {l1=0x1a, l2=»N3,N4,N1,N2,IER,I:INTEGER;«, l3=0x1a}
0x293…2a3 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x2a3…2bc Line {l1=0x17, l2=» ORDRE:ORDREPOST;«, l3=0x17}
0x2bc…2c5 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2c5…2d8 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x2d8…2e8 Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x2e8…2f5 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x2f5…302 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x302…312 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x312…322 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x322…331 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x331…33f Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x33f…34d Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x34d…35c Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x35c…36a Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x36a…373 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x373…37c Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x37c…38d Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x38d…39d Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x39d…3b4 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x3b4…3c6 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x3c6…3cd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3cd…3f1 Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x3f1…404 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x404…419 Line {l1=0x13, l2=» ICLOSE(KZ1.H,F1);«, l3=0x13}
0x419…434 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x434…43c Line {l1=0x06, l2=» STOP«, l3=0x06}
0x43c…442 Line {l1=0x04, l2=»END;«, l3=0x04}
0x442…454 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x454…45b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x45b…46c Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x46c…4b1 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x4b1…4e1 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x4e1…51a Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x51a…531 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x531…540 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x540…546 Line {l1=0x04, l2=»END;«, l3=0x04}
0x546…54d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x54d…55d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x55d…57f Line {l1=0x20, l2=» FILNAVN2:='ORDRERG:P2:0000:I';«, l3=0x20}
0x57f…597 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x597…5c2 Line {l1=0x29, l2=» IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x29}
0x5c2…5e4 Line {l1=0x20, l2=» FILNAVN1:='ORDRERG:P1:0000:I';«, l3=0x20}
0x5e4…5fd Line {l1=0x17, l2=» REWRITE(F1,FILNAVN1);«, l3=0x17}
0x5fd…62c Line {l1=0x2d, l2=» IOPEN(KZ1.H,F1,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2d}
0x62c…652 Line {l1=0x24, l2=» FOR I:=1 TO 5 DO ORDRE.HEAD(I):=0;«, l3=0x24}
0x652…66e Line {l1=0x1a, l2=» NEXTREC(KZ.H,F,ORDRE.A);«, l3=0x1a}
0x66e…6a9 Line {l1=0x39, l2=» WRITELN(LIST,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):10:-2,«, l3=0x39}
0x6a9…6e4 Line {l1=0x39, l2=» ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2,«, l3=0x39}
0x6e4…706 Line {l1=0x20, l2=» ORDRE.HEAD(5):5);«, l3=0x20}
0x706…72c Line {l1=0x24, l2=» IF IER<>-1 THEN ERROR ELSE IER:=0;«, l3=0x24}
0x72c…735 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x735…747 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x747…750 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x750…76f Line {l1=0x1d, l2=» INSERT(KZ1.H,F1,ORDRE.A);«, l3=0x1d}
0x76f…79a Line {l1=0x29, l2=» IF (IER<>0) AND (IER<>-7) THEN ERROR;«, l3=0x29}
0x79a…7af Line {l1=0x13, l2=» IF IER<>-7 THEN«, l3=0x13}
0x7af…7f1 Line {l1=0x40, l2=» WRITELN(LIST,' ':30,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):10:-2,«, l3=0x40}
0x7f1…82c Line {l1=0x39, l2=» ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2,«, l3=0x39}
0x82c…84d Line {l1=0x1f, l2=» ORDRE.HEAD(5):5)«, l3=0x1f}
0x84d…877 Line {l1=0x28, l2=» ELSE WRITELN(LIST,' ':30,'PRESENT');«, l3=0x28}
0x877…895 Line {l1=0x1c, l2=» NEXTREC(KZ.H,F,ORDRE.A);«, l3=0x1c}
0x895…8d0 Line {l1=0x39, l2=» WRITELN(LIST,ORDRE.HEAD(1)*10000.0+ORDRE.HEAD(2):10:-2,«, l3=0x39}
0x8d0…90b Line {l1=0x39, l2=» ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):10:-2,«, l3=0x39}
0x90b…92d Line {l1=0x20, l2=» ORDRE.HEAD(5):5);«, l3=0x20}
0x92d…939 Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x939…941 Line {l1=0x06, l2=» END;«, l3=0x06}
0x941…95b Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x95b…992 Line {l1=0x35, l2=» WRITELN('INDPOSTER, UDPOSTER',KZ.H.RECINUSE:5,I:5);«, l3=0x35}
0x992…9a5 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x9a5…9ba Line {l1=0x13, l2=» ICLOSE(KZ1.H,F1);«, l3=0x13}
0x9ba…9d5 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x9d5…9db Line {l1=0x04, l2=»END.«, l3=0x04}
0x9db…9e0 00 00 35 11 20 ┆ 5 ┆
0x9e0…a00 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 29 3b 11 13 20 20 49 43 4c 4f 53 45 28 4b 5a 31 2e 48 ┆ ICLOSE(KZ.H,F); ICLOSE(KZ1.H┆
0xa00…a20 2c 46 31 29 3b 13 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 52 29 3b ┆,F1); WRITELN('ICLOSE ',IER);┆
0xa20…a40 19 04 45 4e 44 2e 04 00 00 56 4e 52 2c 42 45 53 54 49 4c 54 2a 29 17 12 20 20 20 20 20 20 20 20 ┆ END. VNR,BESTILT*) ┆
0xa40…a60 50 52 49 53 3a 20 52 45 41 4c 12 06 20 20 45 4e 44 3b 06 13 20 4f 52 44 52 45 50 4f 53 54 20 3d ┆PRIS: REAL END; ORDREPOST =┆
0xa60…a80 20 52 45 43 4f 52 44 13 0d 20 20 20 20 20 20 20 20 41 3a 41 52 3b 0d 03 20 28 2a 03 12 20 20 20 ┆ RECORD A:AR; (* ┆
0xa80…aa0 20 20 20 20 20 4b 4e 52 31 2c 4b 4e 52 32 2c 12 10 20 20 20 20 20 20 20 20 4e 52 31 2c 4e 52 32 ┆ KNR1,KNR2, NR1,NR2┆
0xaa0…ac0 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…]
0xe80…ea0 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 ┆