|
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: »NULKUND.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »NULKUND.K«
PROGRAM DUMPKUND;
(*$IISFHEAD*)
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;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
NRPF,CF:NPFILE;
QUQ:^INTEGER;
KZ:ZONE;
FILNAVN2:STRING(20);
J,IER,I:INTEGER;
KUNDE:KPOST;
NAME:PACKED ARRAY (1..26) OF CHAR;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE FL(FLE:INTEGER);
BEGIN
OUT80(84,24);
OUT80(85,FLE+64);
WHILE IN80(86,64)<>0 DO WRITE('Q');
OUT80(86,1);
OUT80(86,0)
END;
PROCEDURE FF;
BEGIN
WHILE IN80(86,64)<>0 DO;
OUT80(85,192);
OUT80(85,64)
END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
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 PRKUNOPL(O:INTEGER);
BEGIN
WITH KUNDE DO
BEGIN
WRITELN(LIST,NR(1)*10000.0+NR(2):5:-2);
SALDOKØB(9):=SALDOKØB(7);
SALDOKØB(7):=0;
END
END;
BEGIN
FILNAVN2:='KUNDERG:P2:1338:I';
REWRITE(F,FILNAVN2);
IOPEN(KZ.H,F,SKRIV);
IF IER<>0 THEN OFEJL;
WITH KUNDE DO
BEGIN
NR(1):=0;NR(2):=0;
I:=0;
NEXTREC(KZ.H,F,A);
IF IER<>-1 THEN ERROR;
REPEAT
PRKUNOPL(-1);
I:=I+1;
PUTREC(KZ.H,F,A);
NEXTREC(KZ.H,F,A)
UNTIL IER<>0;
END;
IF IER<>-2 THEN ERROR;
ICLOSE(KZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
FILNAVN2:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FILNAVN2);
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);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM DUMPKUND;«, l3=0x11}
0x013…022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x022…030 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x030…03e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03e…062 Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x062…09d Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x09d…0cb Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x0cb…0f8 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0f8…122 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x122…148 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x148…14e Line {l1=0x04, l2=»END;«, l3=0x04}
0x14e…15c Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x15c…16f Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x16f…192 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x192…198 Line {l1=0x04, l2=»END;«, l3=0x04}
0x198…1a9 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x1a9…1c5 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x1c5…1cb Line {l1=0x04, l2=»END;«, l3=0x04}
0x1cb…1e5 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x1e5…1f4 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x1f4…20c Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x20c…222 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x222…233 Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x233…250 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x250…266 Line {l1=0x14, l2=» J,IER,I:INTEGER;«, l3=0x14}
0x266…27a Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x27a…2a5 Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x2a5…2a8 Line {l1=0x01, l2=» «, l3=0x01}
0x2a8…2b1 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x2b1…2c4 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x2c4…2d1 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x2d1…2e1 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x2e1…2f1 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x2f1…2ff Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x2ff…30e Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x30e…31c Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x31c…325 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x325…32e Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x32e…34a Line {l1=0x1a, l2=»PROCEDURE FL(FLE:INTEGER);«, l3=0x1a}
0x34a…351 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x351…362 Line {l1=0x0f, l2=» OUT80(84,24);«, l3=0x0f}
0x362…377 Line {l1=0x13, l2=» OUT80(85,FLE+64);«, l3=0x13}
0x377…39e Line {l1=0x25, l2=» WHILE IN80(86,64)<>0 DO WRITE('Q');«, l3=0x25}
0x39e…3ae Line {l1=0x0e, l2=» OUT80(86,1);«, l3=0x0e}
0x3ae…3bd Line {l1=0x0d, l2=» OUT80(86,0)«, l3=0x0d}
0x3bd…3c3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3c3…3d2 Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x3d2…3d9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3d9…3f5 Line {l1=0x1a, l2=» WHILE IN80(86,64)<>0 DO;«, l3=0x1a}
0x3f5…407 Line {l1=0x10, l2=» OUT80(85,192);«, l3=0x10}
0x407…417 Line {l1=0x0e, l2=» OUT80(85,64)«, l3=0x0e}
0x417…41d Line {l1=0x04, l2=»END;«, l3=0x04}
0x41d…42f Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x42f…436 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x436…45a Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x45a…46d Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x46d…488 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x488…496 Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x496…49c Line {l1=0x04, l2=»END;«, l3=0x04}
0x49c…4ae Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x4ae…4b5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4b5…4c6 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x4c6…50b Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x50b…53b Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x53b…574 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x574…58b Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x58b…59a Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x59a…5a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5a0…5c0 Line {l1=0x1e, l2=»PROCEDURE PRKUNOPL(O:INTEGER);«, l3=0x1e}
0x5c0…5c7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5c7…5d8 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x5d8…5e1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x5e1…60e Line {l1=0x2b, l2=» WRITELN(LIST,NR(1)*10000.0+NR(2):5:-2);«, l3=0x2b}
0x60e…62d Line {l1=0x1d, l2=» SALDOKØB(9):=SALDOKØB(7);«, l3=0x1d}
0x62d…642 Line {l1=0x13, l2=» SALDOKØB(7):=0;«, l3=0x13}
0x642…649 Line {l1=0x05, l2=» END«, l3=0x05}
0x649…64f Line {l1=0x04, l2=»END;«, l3=0x04}
0x64f…656 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x656…678 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x678…690 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x690…6a8 Line {l1=0x16, l2=» IOPEN(KZ.H,F,SKRIV);«, l3=0x16}
0x6a8…6c1 Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x6c1…6d2 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x6d2…6db Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x6db…6f3 Line {l1=0x16, l2=» NR(1):=0;NR(2):=0;«, l3=0x16}
0x6f3…6fe Line {l1=0x09, l2=» I:=0;«, l3=0x09}
0x6fe…716 Line {l1=0x16, l2=» NEXTREC(KZ.H,F,A);«, l3=0x16}
0x716…732 Line {l1=0x1a, l2=» IF IER<>-1 THEN ERROR;«, l3=0x1a}
0x732…73e Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x73e…754 Line {l1=0x14, l2=» PRKUNOPL(-1);«, l3=0x14}
0x754…764 Line {l1=0x0e, l2=» I:=I+1;«, l3=0x0e}
0x764…77e Line {l1=0x18, l2=» PUTREC(KZ.H,F,A);«, l3=0x18}
0x77e…798 Line {l1=0x18, l2=» NEXTREC(KZ.H,F,A)«, l3=0x18}
0x798…7ab Line {l1=0x11, l2=» UNTIL IER<>0;«, l3=0x11}
0x7ab…7b3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x7b3…7cd Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x7cd…7e0 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x7e0…7f0 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x7f0…80f Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x80f…82f Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x82f…838 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x838…842 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x842…85f Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x85f…871 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x871…886 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x886…88f Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x88f…89d Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x89d…8ad Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x8ad…8be Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x8be…8cc Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x8cc…8d6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x8d6…8e9 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x8e9…91e Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x91e…92b Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x92b…934 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x934…952 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x952…962 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x962…96b Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x96b…980 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x980…98e Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x98e…99e Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x99e…9c4 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x9c4…9ca Line {l1=0x04, l2=»END.«, l3=0x04}
0x9ca…9e0 00 00 50 46 29 3b 0e 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 ┆ PF); $ CHAIN('INTRE┆
0x9e0…a00 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 20 ┆ *1','HOVSA:P1',QUQ)$ END. ┆
0xa00…a20 20 20 20 20 20 20 4e 52 3a 41 52 52 41 59 28 31 2e 2e 32 33 29 20 4f 46 20 49 4e 54 45 47 45 52 ┆ NR:ARRAY(1..23) OF INTEGER┆
0xa20…a40 3b 22 39 20 20 20 20 20 20 20 4e 41 56 4e 3a 41 52 52 41 59 20 28 31 2e 2e 33 29 20 4f 46 20 50 ┆;"9 NAVN:ARRAY (1..3) OF P┆
0xa40…a60 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 30 29 20 4f 46 20 43 48 41 52 3b 39 2c 20 20 ┆ACKED ARRAY (1..30) OF CHAR;9, ┆
0xa60…a80 20 20 20 20 20 4c 41 4e 44 53 42 59 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 32 30 ┆ LANDSBY:PACKED ARRAY (1..20┆
0xa80…aa0 29 20 4f 46 20 43 48 41 52 3b 2c 2b 20 20 20 20 20 20 20 50 4f 53 54 4e 52 3a 50 41 43 4b 45 44 ┆) OF CHAR;,+ POSTNR:PACKED┆
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 ┆