|
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: 8736 (0x2220)
Types: TextFile
Notes: Mikados_K
Names: »KUNDREST.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KUNDREST.K«
PROGRAM KUNDRESTORDREOVERSIGT;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
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;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) 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..327) OF INTEGER
END;
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FVAR,FKUN,FROR:ISF;
VZ:VZONE;
KZ:KZONE;
RZ:RORZONE;
KUNDE:KPOST;
VARE:VPOST;
RESTORD:RORPOST;
SYSFIL:SYSFILE;
KNAVN:STRING(4);
FNAVN:STRING(20);
NRPF,CF:NPFILE;
QUQ:^INTEGER;
IER,RIER,O1,O2,I:INTEGER;
R1,R2,R:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
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 NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);
VAR I:INTEGER;
R:REAL;
BEGIN
R:=0.0;
FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));
I:=TRUNC(R/89998.0);
R:=R-I*89998.0+10001;
NU1:=TRUNC(R/10000);
NU2:=TRUNC(R-NU1*10000.0)
END;
PROCEDURE FINDKUND;
VAR N1,N2,FIN:INTEGER;
SVAR1:CHAR;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('RESTORDREOVERSIGT, PR. KUNDE');
GOTOXY(1,4);
WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');
REPEAT
R:=-1.0;
GOTOXY(1,3);
WRITELN('INDTAST KUNDENUMMER');
GOTOXY(25,3);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);
IF (R=0.0) OR (R=2.0) THEN EXIT(FINDKUND);
REPEAT
IF R=1.0 THEN
IF I=1 THEN
BEGIN
GOTOXY(1,4);
WRITELN('INDTAST KUNDENAVN',' ':60);
REPEAT
GOTOXY(20,4);
READLN;READ(KNAVN)
UNTIL LENGTH(KNAVN)=4;
NANU(KNAVN,N1,N2);
KUNDE.NR(1):=N1;
KUNDE.NR(2):=N2;
R1:=N1*10000.0+N2;
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
I:=0
END
ELSE
BEGIN
NEXTREC(KZ.H,FKUN,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);
IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;
END
ELSE
BEGIN
KUNDE.NR(1):=TRUNC(R/10000.0);
KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);
GETREC(KZ.H,FKUN,KUNDE.A)
END;
GOTOXY(1,5);
FIN:=1;
IF IER=0 THEN
BEGIN
WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);
WRITELN;
WRITELN(KUNDE.NAVN(1));
WRITELN(KUNDE.NAVN(3));
WRITELN(KUNDE.POSTNR);
WRITELN;
WRITELN('TLF: ',KUNDE.TLF);
GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');
REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND
((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));
IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0
END
ELSE
IF IER=-6 THEN
BEGIN
IER:=0;
WRITELN(' ':80);
WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');
READLN
END
ELSE ERROR
UNTIL FIN=1
UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)
END;
BEGIN
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);
CLEARSCREEN;
FNAVN:='REGVARE:P1:0000:I';
RESET(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='SYSREG:P2:1:I';
RESET(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='RESTREG:P2:0000:I';
RESET(FROR,FNAVN);
IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN OFEJL;
R:=0;
KUNDE.NR(1):=0;
KUNDE.NR(2):=0;
REPEAT
IF R<>2.0 THEN FINDKUND;
IF R=2.0 THEN BEGIN NEXTREC(KZ.H,FKUN,KUNDE.A);
IF IER=-2 THEN R:=0.0 END;
IF R<>0.0 THEN
BEGIN
RESTORD.HEAD(1):=KUNDE.NR(1);
RESTORD.HEAD(2):=KUNDE.NR(2);
RESTORD.HEAD(3):=0;
NEXTREC(RZ.H,FROR,RESTORD.A);
IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;
IF (RESTORD.HEAD(1)=KUNDE.NR(1)) AND (RESTORD.HEAD(2)=KUNDE.NR(2))
THEN
BEGIN
WRITELN(LIST);
WRITELN(LIST,KUNDE.NAVN(1),' ':30,KUNDE.NR(1)*10000.0+
KUNDE.NR(2):12:-2);
WRITELN(LIST);
WRITELN(LIST,'RESTORDRER');
REPEAT
VARE.HELTAL(1):=RESTORD.HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
IF IER=0 THEN
BEGIN
WRITE(LIST,RESTORD.HEAD(3):6,' ':5,VARE.NAVN(1):30);
WRITELN(LIST,RESTORD.ANTAL:12:-2,RESTORD.HEAD(4)*10000.0+
RESTORD.HEAD(5):12:-2);
END
ELSE
WRITELN(LIST,RESTORD.HEAD(3):6,' ':5,'FINDES IKKE');
NEXTREC(RZ.H,FROR,RESTORD.A)
UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR
(RESTORD.HEAD(2)<>KUNDE.NR(2));
WRITELN(LIST);
END;
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;
END;
UNTIL R=0.0;
ICLOSE(VZ.H,FVAR);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0020 Line {l1=0x1e, l2=»PROGRAM KUNDRESTORDREOVERSIGT;«, l3=0x1e}
0x0020…0030 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0030…003f Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x003f…0055 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0055…007f Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x007f…00c8 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00c8…00e9 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00e9…0124 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0124…0145 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0145…016d Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x016d…01b3 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01b3…01f7 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01f7…01ff Line {l1=0x06, l2=» END;«, l3=0x06}
0x01ff…020d Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x020d…021b Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x021b…0240 Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x0240…027c Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x027c…02aa Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x02aa…02d7 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x02d7…0301 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x0301…0327 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0327…032d Line {l1=0x04, l2=»END;«, l3=0x04}
0x032d…033d Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x033d…0351 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0351…0375 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0375…037d Line {l1=0x06, l2=» END;«, l3=0x06}
0x037d…038b Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x038b…039e Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x039e…03c1 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x03c1…03c7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03c7…03d8 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x03d8…03e7 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x03e7…03fb Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x03fb…0409 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0409…0444 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0444…0458 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x0458…0460 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0460…0471 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0471…0485 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0485…04a9 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x04a9…04b1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x04b1…04c1 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04c1…04d1 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x04d1…04db Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x04db…04e6 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x04e6…04f5 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x04f5…0503 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x0503…0513 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x0513…0555 Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x40}
0x0555…0572 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0572…059b Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x059b…05e2 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x05e2…05e8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05e8…0602 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0602…0613 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x0613…062f Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x062f…0635 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0635…064f Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x064f…0668 Line {l1=0x17, l2=»VAR FVAR,FKUN,FROR:ISF;«, l3=0x17}
0x0668…0677 Line {l1=0x0d, l2=» VZ:VZONE;«, l3=0x0d}
0x0677…0686 Line {l1=0x0d, l2=» KZ:KZONE;«, l3=0x0d}
0x0686…0697 Line {l1=0x0f, l2=» RZ:RORZONE;«, l3=0x0f}
0x0697…06a9 Line {l1=0x10, l2=» KUNDE:KPOST;«, l3=0x10}
0x06a9…06ba Line {l1=0x0f, l2=» VARE:VPOST;«, l3=0x0f}
0x06ba…06d0 Line {l1=0x14, l2=» RESTORD:RORPOST;«, l3=0x14}
0x06d0…06e5 Line {l1=0x13, l2=» SYSFIL:SYSFILE;«, l3=0x13}
0x06e5…06fb Line {l1=0x14, l2=» KNAVN:STRING(4);«, l3=0x14}
0x06fb…0712 Line {l1=0x15, l2=» FNAVN:STRING(20);«, l3=0x15}
0x0712…0727 Line {l1=0x13, l2=» NRPF,CF:NPFILE;«, l3=0x13}
0x0727…073a Line {l1=0x11, l2=» QUQ:^INTEGER;«, l3=0x11}
0x073a…0759 Line {l1=0x1d, l2=» IER,RIER,O1,O2,I:INTEGER;«, l3=0x1d}
0x0759…076c Line {l1=0x11, l2=» R1,R2,R:REAL;«, l3=0x11}
0x076c…0775 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0775…0789 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0789…0797 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0797…07a8 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x07a8…07b9 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x07b9…07c8 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x07c8…07d7 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x07d7…07e7 Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x07e7…07f1 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x07f1…07fa Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x07fa…080d Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x080d…0815 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0815…083a Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x083a…0851 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0851…0868 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0868…087f Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x087f…089b Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x089b…08aa Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x08aa…08b1 Line {l1=0x05, l2=» END;«, l3=0x05}
0x08b1…08c3 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x08c3…08ca Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08ca…08db Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x08db…0920 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0920…0950 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0950…0989 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0989…09a0 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x09a0…09af Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x09af…09b5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09b5…09e9 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x09e9…09f9 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x09f9…0a06 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0a06…0a0d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a0d…0a18 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0a18…0a3f Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0a3f…0a57 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0a57…0a70 Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x0a70…0a88 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0a88…0aa5 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0aa5…0aab Line {l1=0x04, l2=»END;«, l3=0x04}
0x0aab…0ac0 Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0ac0…0adb Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x0adb…0aef Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0aef…0af6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0af6…0b00 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0b00…0b0b Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x0b0b…0b1c Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x0b1c…0b2e Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0b2e…0b5c Line {l1=0x2c, l2=» WRITELN('RESTORDREOVERSIGT, PR. KUNDE');«, l3=0x2c}
0x0b5c…0b6e Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x0b6e…0bb4 Line {l1=0x44, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');«, l3=0x44}
0x0bb4…0bc0 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0bc0…0bd0 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0bd0…0be4 Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x0be4…0c0b Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x0c0b…0c2e Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x0c2e…0c65 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x0c65…0c95 Line {l1=0x2e, l2=» IF (R=0.0) OR (R=2.0) THEN EXIT(FINDKUND);«, l3=0x2e}
0x0c95…0ca1 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0ca1…0cb6 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x0cb6…0ccb Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0ccb…0cda Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0cda…0cf2 Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x0cf2…0d22 Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x0d22…0d34 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x0d34…0d4d Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x0d4d…0d6b Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x0d6b…0d8d Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x0d8d…0dab Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x0dab…0dc7 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x0dc7…0de3 Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x0de3…0e01 Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x0e01…0e27 Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x0e27…0e5d Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x0e5d…0e99 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0e99…0ea9 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x0ea9…0eb6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0eb6…0ec4 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0ec4…0ed3 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0ed3…0efa Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x0efa…0f36 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0f36…0f66 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x0f66…0fa7 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x0fa7…0fb4 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0fb4…0fc0 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0fc0…0fcd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0fcd…0ff5 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x0ff5…1029 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x1029…104c Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x104c…1058 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1058…106c Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x106c…107b Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x107b…1090 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1090…109d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x109d…10e4 Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x10e4…10f6 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x10f6…1117 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x1117…1138 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x1138…1158 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x1158…116a Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x116a…118f Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x118f…11c4 Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x11c4…120c Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x120c…1259 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x1259…129a Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x129a…12a5 Line {l1=0x09, l2=» END«, l3=0x09}
0x12a5…12b1 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x12b1…12c7 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x12c7…12d4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x12d4…12e5 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x12e5…12ff Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x12ff…1338 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x1338…1348 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x1348…1353 Line {l1=0x09, l2=» END«, l3=0x09}
0x1353…1365 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x1365…1376 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x1376…13a5 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)«, l3=0x2d}
0x13a5…13ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x13ab…13b2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13b2…13cf Line {l1=0x1b, l2=» FNAVN:='PROCSTAT:P2:0:I';«, l3=0x1b}
0x13cf…13d8 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x13d8…13e2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x13e2…13fc Line {l1=0x18, l2=» REWRITE(NRPF,FNAVN);«, l3=0x18}
0x13fc…140e Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x140e…1423 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x1423…142c Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x142c…143a Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x143a…144a Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x144a…145b Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x145b…1469 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x1469…1473 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1473…1486 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x1486…14bb Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x14bb…14c8 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x14c8…14d1 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x14d1…14ef Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x14ef…14ff Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x14ff…1508 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x1508…151d Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x151d…152b Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x152b…153b Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x153b…154b Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x154b…156a Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x156a…1580 Line {l1=0x14, l2=» RESET(FVAR,FNAVN);«, l3=0x14}
0x1580…15ae Line {l1=0x2c, l2=» IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x15ae…15b1 Line {l1=0x01, l2=» «, l3=0x01}
0x15b1…15cc Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x15cc…15e4 Line {l1=0x16, l2=» RESET(SYSFIL,FNAVN);«, l3=0x16}
0x15e4…15f7 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x15f7…1607 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1607…1619 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1619…161c Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x161f…163e Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x163e…1654 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x1654…1682 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x1682…1685 Line {l1=0x01, l2=» «, l3=0x01}
0x1685…16a4 Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x16a4…16ba Line {l1=0x14, l2=» RESET(FROR,FNAVN);«, l3=0x14}
0x16ba…16e8 Line {l1=0x2c, l2=» IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x16e8…16f1 Line {l1=0x07, l2=» R:=0;«, l3=0x07}
0x16f1…1704 Line {l1=0x11, l2=» KUNDE.NR(1):=0;«, l3=0x11}
0x1704…1717 Line {l1=0x11, l2=» KUNDE.NR(2):=0;«, l3=0x11}
0x1717…1721 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1721…173d Line {l1=0x1a, l2=» IF R<>2.0 THEN FINDKUND;«, l3=0x1a}
0x173d…1770 Line {l1=0x31, l2=» IF R=2.0 THEN BEGIN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x31}
0x1770…17a2 Line {l1=0x30, l2=» IF IER=-2 THEN R:=0.0 END;«, l3=0x30}
0x17a2…17b4 Line {l1=0x10, l2=» IF R<>0.0 THEN«, l3=0x10}
0x17b4…17bd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x17bd…17e2 Line {l1=0x23, l2=» RESTORD.HEAD(1):=KUNDE.NR(1);«, l3=0x23}
0x17e2…1807 Line {l1=0x23, l2=» RESTORD.HEAD(2):=KUNDE.NR(2);«, l3=0x23}
0x1807…1822 Line {l1=0x19, l2=» RESTORD.HEAD(3):=0;«, l3=0x19}
0x1822…1847 Line {l1=0x23, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x23}
0x1847…188a Line {l1=0x41, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;«, l3=0x41}
0x188a…18d8 Line {l1=0x4c, l2=» IF (RESTORD.HEAD(1)=KUNDE.NR(1)) AND (RESTORD.HEAD(2)=KUNDE.NR(2))«, l3=0x4c}
0x18d8…18e8 Line {l1=0x0e, l2=» THEN«, l3=0x0e}
0x18e8…18f9 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x18f9…1913 Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x1913…1955 Line {l1=0x40, l2=» WRITELN(LIST,KUNDE.NAVN(1),' ':30,KUNDE.NR(1)*10000.0+«, l3=0x40}
0x1955…1996 Line {l1=0x3f, l2=» KUNDE.NR(2):12:-2);«, l3=0x3f}
0x1996…19b0 Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x19b0…19d7 Line {l1=0x25, l2=» WRITELN(LIST,'RESTORDRER');«, l3=0x25}
0x19d7…19e9 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x19e9…1a0c Line {l1=0x21, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x21}
0x1a0c…1a28 Line {l1=0x1a, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x1a}
0x1a28…1a50 Line {l1=0x26, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x26}
0x1a50…1a69 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x1a69…1a7a Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1a7a…1abc Line {l1=0x40, l2=» WRITE(LIST,RESTORD.HEAD(3):6,' ':5,VARE.NAVN(1):30);«, l3=0x40}
0x1abc…1b03 Line {l1=0x45, l2=» WRITELN(LIST,RESTORD.ANTAL:12:-2,RESTORD.HEAD(4)*10000.0+«, l3=0x45}
0x1b03…1b49 Line {l1=0x44, l2=» RESTORD.HEAD(5):12:-2);«, l3=0x44}
0x1b49…1b58 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1b58…1b68 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x1b68…1baa Line {l1=0x40, l2=» WRITELN(LIST,RESTORD.HEAD(3):6,' ':5,'FINDES IKKE');«, l3=0x40}
0x1baa…1bd4 Line {l1=0x28, l2=» NEXTREC(RZ.H,FROR,RESTORD.A)«, l3=0x28}
0x1bd4…1c13 Line {l1=0x3d, l2=» UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR«, l3=0x3d}
0x1c13…1c50 Line {l1=0x3b, l2=» (RESTORD.HEAD(2)<>KUNDE.NR(2));«, l3=0x3b}
0x1c50…1c6a Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x1c6a…1c7a Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1c7a…1cb9 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;«, l3=0x3d}
0x1cb9…1cc7 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1cc7…1cdc Line {l1=0x13, l2=» UNTIL R=0.0;«, l3=0x13}
0x1cdc…1cf5 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x1cf5…1d0e Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x1d0e…1d27 Line {l1=0x17, l2=» ICLOSE(RZ.H,FROR);«, l3=0x17}
0x1d27…1d50 Line {l1=0x27, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x27}
0x1d50…1d56 Line {l1=0x04, l2=»END.«, l3=0x04}
0x1d56…1d60 00 00 45 52 53 49 47 54 3b 1e ┆ ERSIGT; ┆
0x1d60…1d80 0e 20 28 2a 24 49 49 53 46 48 45 41 44 2a 29 0e 0d 20 56 50 4f 53 54 3d 52 45 43 4f 52 44 0d 14 ┆ (*$IISFHEAD*) VPOST=RECORD ┆
0x1d80…1da0 20 20 20 20 20 20 20 20 41 20 20 20 20 20 20 20 3a 41 52 3b 14 28 20 20 20 20 20 20 20 20 48 45 ┆ A :AR; ( HE┆
0x1da0…1dc0 4c 54 41 4c 3a 41 52 52 41 59 20 28 31 2e 2e 31 31 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 28 47 ┆LTAL:ARRAY (1..11) OF INTEGER;(G┆
0x1dc0…1de0 20 28 2a 56 41 52 45 4e 52 2c 4c 56 52 4e 44 5c 52 2c 4f 50 52 4c 41 4e 44 2c 50 41 4b 45 4e 48 ┆ (*VARENR,LVRNDØR,OPRLAND,PAKENH┆
0x1de0…1e00 45 44 2c 46 4f 52 56 4c 45 56 55 2c 44 41 54 53 42 45 53 31 2c 44 41 54 53 42 45 53 32 2c 44 41 ┆ED,FORVLEVU,DATSBES1,DATSBES2,DA┆
0x1e00…1e20 54 53 4f 52 44 31 2c 47 1f 20 20 20 44 41 54 53 4f 52 44 32 2c 44 5b 4b 47 52 41 53 5d 2c 41 4e ┆TSORD1,G DATSORD2,DÆKGRASÅ,AN┆
0x1e20…1e40 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 ┆ ┆
[…0x1f…]