|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »KREORGIE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KREORGIE.K«
PROGRAM KUNDREOR;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
(*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,
RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,
EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)
(* NAVN,UDVNAVN,LEVADR*)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;
(*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)
END;
KUNDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
VAR F1,F:ISF;
KZ:KUNDZONE;
KZ1:KUNDZONE;
FILNAVN1,FILNAVN2:STRING(20);
N1,N2,IER,I:INTEGER;
R:REAL;
KUNDE:KPOST;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IINITIATE*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IINSERT*)
(*$INEXTREC*)
(*$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:='KUNDERG:P2:0000:I';
REWRITE(F,FILNAVN2);
IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;
FILNAVN1:='KUNDERG:P1:0000:I';
REWRITE(F1,FILNAVN1);
IOPEN(KZ1.H,F1,SKRIV);IF IER<>0 THEN OFEJL;
KUNDE.NR(1):=0;
KUNDE.NR(2):=0;
NEXTREC(KZ.H,F,KUNDE.A);
IF IER<>-1 THEN ERROR ELSE IER:=0;
INITIATE(KZ1.H,F1,KZ.H.RECINUSE);
IF IER<>0 THEN ERROR;
I:=0;
WHILE IER=0 DO
BEGIN
INSERT(KZ1.H,F1,KUNDE.A);
IF IER<>0 THEN ERROR;
WRITELN('INS ',KUNDE.NR(1):8,KUNDE.NR(2):8);
NEXTREC(KZ.H,F,KUNDE.A);
WRITELN('NXT ',KUNDE.NR(1):8,KUNDE.NR(2):8);
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…013 Line {l1=0x11, l2=»PROGRAM KUNDREOR;«, l3=0x11}
0x013…022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x022…031 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x031…040 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x040…066 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x066…0af Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x0af…0f8 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x0f8…128 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x128…178 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x178…1a7 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x1a7…1d5 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x1d5…200 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x200…229 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x229…24e Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x24e…256 Line {l1=0x06, l2=» END;«, l3=0x06}
0x256…268 Line {l1=0x10, l2=» KUNDZONE=RECORD«, l3=0x10}
0x268…27c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x27c…2a0 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x2a0…2a8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2a8…2ba Line {l1=0x10, l2=»VAR F1,F:ISF;«, l3=0x10}
0x2ba…2cf Line {l1=0x13, l2=» KZ:KUNDZONE;«, l3=0x13}
0x2cf…2e5 Line {l1=0x14, l2=» KZ1:KUNDZONE;«, l3=0x14}
0x2e5…304 Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x304…31a Line {l1=0x14, l2=»N1,N2,IER,I:INTEGER;«, l3=0x14}
0x31a…32a Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x32a…33f Line {l1=0x13, l2=» KUNDE:KPOST;«, l3=0x13}
0x33f…348 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x348…35b Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x35b…36b Line {l1=0x0e, l2=»(*$IINITIATE*)«, l3=0x0e}
0x36b…378 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x378…385 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x385…395 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x395…3a5 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x3a5…3b4 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x3b4…3c2 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x3c2…3d0 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x3d0…3df Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x3df…3e8 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x3e8…3f1 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x3f1…402 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x402…412 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x412…429 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x429…43b Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x43b…442 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x442…466 Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x466…479 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x479…48e Line {l1=0x13, l2=» ICLOSE(KZ1.H,F1);«, l3=0x13}
0x48e…4a9 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x4a9…4b1 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x4b1…4b7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4b7…4c9 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x4c9…4d0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4d0…4e1 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x4e1…526 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x526…556 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x556…58f Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x58f…5a6 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x5a6…5b5 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x5b5…5bb Line {l1=0x04, l2=»END;«, l3=0x04}
0x5bb…5c2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5c2…5d2 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x5d2…5d5 Line {l1=0x01, l2=» «, l3=0x01}
0x5d5…5f7 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:0000:I';«, l3=0x20}
0x5f7…60f Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x60f…63a Line {l1=0x29, l2=» IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x29}
0x63a…65c Line {l1=0x20, l2=» FILNAVN1:='KUNDERG:P1:0000:I';«, l3=0x20}
0x65c…675 Line {l1=0x17, l2=» REWRITE(F1,FILNAVN1);«, l3=0x17}
0x675…6a4 Line {l1=0x2d, l2=» IOPEN(KZ1.H,F1,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2d}
0x6a4…6b7 Line {l1=0x11, l2=» KUNDE.NR(1):=0;«, l3=0x11}
0x6b7…6ca Line {l1=0x11, l2=» KUNDE.NR(2):=0;«, l3=0x11}
0x6ca…6e6 Line {l1=0x1a, l2=» NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x1a}
0x6e6…70c Line {l1=0x24, l2=» IF IER<>-1 THEN ERROR ELSE IER:=0;«, l3=0x24}
0x70c…731 Line {l1=0x23, l2=» INITIATE(KZ1.H,F1,KZ.H.RECINUSE);«, l3=0x23}
0x731…74a Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x74a…753 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x753…765 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x765…76e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x76e…78d Line {l1=0x1d, l2=» INSERT(KZ1.H,F1,KUNDE.A);«, l3=0x1d}
0x78d…7a8 Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x7a8…7d6 Line {l1=0x2c, l2=»WRITELN('INS ',KUNDE.NR(1):8,KUNDE.NR(2):8);«, l3=0x2c}
0x7d6…7f4 Line {l1=0x1c, l2=» NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x1c}
0x7f4…822 Line {l1=0x2c, l2=»WRITELN('NXT ',KUNDE.NR(1):8,KUNDE.NR(2):8);«, l3=0x2c}
0x822…82e Line {l1=0x0a, l2=» I:=I+1«, l3=0x0a}
0x82e…836 Line {l1=0x06, l2=» END;«, l3=0x06}
0x836…850 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x850…887 Line {l1=0x35, l2=» WRITELN('INDPOSTER, UDPOSTER',KZ.H.RECINUSE:5,I:5);«, l3=0x35}
0x887…89a Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x89a…8af Line {l1=0x13, l2=» ICLOSE(KZ1.H,F1);«, l3=0x13}
0x8af…8ca Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x8ca…8d0 Line {l1=0x04, l2=»END.«, l3=0x04}
0x8d0…8e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x8e0…900 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 ┆ ┆
[…0x7…]