|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »RESTVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »RESTVEDL.K«
PROGRAM RESTORDREVEDLIGEHOLDELSE;
(*$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;
(*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;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL:REAL
END;
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR*) 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;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..327) OF INTEGER
END;
VAR FVAR,FROR,FKUN : ISF;
VZ:VZONE;
RZ:RORZONE;
SYSFIL:SYSFILE;
KZ:KZONE;
RESTORD:RORPOST;
VARE:VPOST;
KUNDE:KPOST;
FNAVN:STRING(20);
IER,I,J,K,I1
:INTEGER;
R,R1,R2 :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
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 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;
KNAVN:STRING(4);
SVAR1:CHAR;
R1,R2:REAL;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('RESTORDREVEDLIGEHOLDELSE');
GOTOXY(1,4);
WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');
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 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 (R=0.0) OR (SVAR1='j')
END;
PROCEDURE FIX;
BEGIN
CASE I1 OF
1: BEGIN
GETREC(RZ.H,FROR,RESTORD.A);
IF IER=-6 THEN WRITELN('RESTORDREN FINDES IKKE')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
VARE.HELTAL(1):=RESTORD.HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF IER=-6 THEN
BEGIN
DELETE(RZ.H,FROR,RESTORD.A);
IF IER<>0 THEN ERROR
END
ELSE
BEGIN
IF IER<>0 THEN ERROR;
VARE.REELTAL(9):=VARE.REELTAL(9)-RESTORD.ANTAL;
IF VARE.REELTAL(9)<0 THEN
BEGIN
VARE.REELTAL(7):=VARE.REELTAL(7)+VARE.REELTAL(9);
VARE.REELTAL(9):=0;
IF VARE.REELTAL(7)<0 THEN VARE.REELTAL(7):=0
END;
PUTREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR;
DELETE(RZ.H,FROR,RESTORD.A);
IF IER<>0 THEN ERROR
END
END
END;
2: BEGIN
GETREC(RZ.H,FROR,RESTORD.A);
IF IER=0 THEN WRITELN('RESTORDREN FINDES')
ELSE
BEGIN
IF IER<>-6 THEN ERROR;
VARE.HELTAL(1):=RESTORD.HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF IER=-6 THEN WRITELN('VAREN FINDES IKKE')
ELSE
BEGIN
IF IER<>0 THEN ERROR;
GOTOXY(1,21);
WRITELN('DATO');
REPEAT
GOTOXY(7,21);
READLN;READ(R)
UNTIL (IORESULT=0) AND (R>800000.0) AND (R<850000.0);
RESTORD.HEAD(4):=TRUNC(R/10000);
RESTORD.HEAD(5):=TRUNC(R-RESTORD.HEAD(4)*10000.0);
REPEAT
GOTOXY(1,22);
WRITELN('ANTAL');
GOTOXY(8,22);
READLN;READ(RESTORD.ANTAL)
UNTIL (IORESULT=0) AND (RESTORD.ANTAL>0);
INSERT(RZ.H,FROR,RESTORD.A);
IF IER<>0 THEN ERROR;
VARE.REELTAL(9):=VARE.REELTAL(9)+RESTORD.ANTAL;
PUTREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR
END
END
END;
END;
END;
BEGIN
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='RESTREG:P2:0000:I';
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='SYSREG:P2:1:I';
RESET(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
REPEAT
FINDKUND;
IF R<>0.0 THEN
REPEAT
CLEARSCREEN;
WRITELN('SLETNING (1) ELL. OPRETTELSE (2), 0 FOR STOP');
REPEAT
GOTOXY(50,1);READLN;READ(I1)
UNTIL (IORESULT=0) AND (I1<3) AND (I1>-1);
IF I1>0 THEN
BEGIN
CLEARSCREEN;
WRITELN('VARENR, 0 FOR OVERSIGT');
REPEAT
GOTOXY(40,1);READLN;READ(J)
UNTIL (IORESULT=0) AND ((J=0) OR ((J>999) AND (J<10000)));
RESTORD.HEAD(1):=KUNDE.NR(1);
RESTORD.HEAD(2):=KUNDE.NR(2);
RESTORD.HEAD(3):=J;
IF J=0 THEN WITH RESTORD DO
BEGIN
NEXTREC(RZ.H,FROR,A);
IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;
WHILE (IER=0) AND (HEAD(1)=KUNDE.NR(1)) AND (HEAD(2)=KUNDE.NR(2))DO
BEGIN
VARE.HELTAL(1):=HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF IER=0 THEN
WRITELN(HEAD(3):10,' ':4,VARE.NAVN(1),HEAD(4)*10000.0+
HEAD(5):12:-2,ANTAL:12:-2)
ELSE WRITELN(HEAD(3):10,' ':4,'EKSISTERER IKKE');
NEXTREC(RZ.H,FROR,A)
END;
REPEAT
GOTOXY(1,20);
WRITELN('VARENR');
GOTOXY(20,20);
READLN;READ(J)
UNTIL (IORESULT=0) AND (J<10000);
HEAD(1):=KUNDE.NR(1);
HEAD(2):=KUNDE.NR(2);
HEAD(3):=J;
END
END;
IF J>0 THEN
FIX;
UNTIL I1=0;
UNTIL R=0.0;
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
ICLOSE(KZ.H,FKUN);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0023 Line {l1=0x21, l2=»PROGRAM RESTORDREVEDLIGEHOLDELSE;«, l3=0x21}
0x0023…0033 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0033…0042 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0042…0058 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0058…0082 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0082…00cb Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00cb…00ec Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00ec…0127 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0127…0148 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0148…0170 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0170…01b6 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01b6…01fa Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01fa…0202 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0202…0211 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0211…0220 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0220…0246 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x0246…028f Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x028f…02d8 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x02d8…0308 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x0308…0358 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x0358…0387 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x0387…03b5 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x03b5…03e0 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x03e0…0409 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x0409…042e Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x042e…0436 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0436…0447 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0447…0456 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0456…046a Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x046a…0478 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0478…04b3 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x04b3…04c7 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x04c7…04cf Line {l1=0x06, l2=» END;«, l3=0x06}
0x04cf…04df Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04df…04ef Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x04ef…04f9 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x04f9…0504 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0504…0513 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0513…0521 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x0521…0531 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x0531…056e Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x056e…058a Line {l1=0x1a, l2=» KGB:ARRAY(1..5) OF REAL;«, l3=0x1a}
0x058a…05b3 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x05b3…05fa Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x05fa…0600 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0600…061a Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x061a…062a Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x062a…063e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x063e…0662 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0662…066a Line {l1=0x06, l2=» END;«, l3=0x06}
0x066a…0679 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0679…068d Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x068d…06b1 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x06b1…06b9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x06b9…06ca Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x06ca…06de Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x06de…0702 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0702…070a Line {l1=0x06, l2=» END;«, l3=0x06}
0x070a…070e Line {l1=0x02, l2=» «, l3=0x02}
0x070e…072d Line {l1=0x1d, l2=» VAR FVAR,FROR,FKUN : ISF;«, l3=0x1d}
0x072d…0740 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0740…0755 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0755…076e Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x076e…0781 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0781…079b Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x079b…07b0 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x07b0…07c6 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x07c6…07e1 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x07e1…07f7 Line {l1=0x14, l2=» IER,I,J,K,I1«, l3=0x14}
0x07f7…081a Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x081a…083a Line {l1=0x1e, l2=» R,R1,R2 :REAL;«, l3=0x1e}
0x083a…0851 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0851…085a Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x085a…086e Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x086e…087c Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x087c…088a Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x088a…089b Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x089b…08ac Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x08ac…08bc Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x08bc…08cb Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x08cb…08da Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x08da…08e9 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x08e9…08f9 Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x08f9…0908 Line {l1=0x0d, l2=» (*$IDELETE*)«, l3=0x0d}
0x0908…0915 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0915…0928 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0928…0930 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0930…0955 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0955…096c Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x096c…0983 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0983…099a Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x099a…09b6 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x09b6…09c5 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x09c5…09cc Line {l1=0x05, l2=» END;«, l3=0x05}
0x09cc…09de Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x09de…09e5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09e5…09f6 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x09f6…0a3b Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0a3b…0a6b Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0a6b…0aa4 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0aa4…0abb Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0abb…0aca Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0aca…0ad0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ad0…0b04 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x0b04…0b14 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0b14…0b21 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0b21…0b28 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b28…0b33 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0b33…0b5a Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0b5a…0b72 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0b72…0b8b Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x0b8b…0ba3 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0ba3…0bc0 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0bc0…0bc6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bc6…0bdb Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0bdb…0bf6 Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x0bf6…0c0f Line {l1=0x17, l2=» KNAVN:STRING(4);«, l3=0x17}
0x0c0f…0c23 Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0c23…0c37 Line {l1=0x12, l2=» R1,R2:REAL;«, l3=0x12}
0x0c37…0c3e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c3e…0c48 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0c48…0c53 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x0c53…0c64 Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x0c64…0c76 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0c76…0ca0 Line {l1=0x28, l2=» WRITELN('RESTORDREVEDLIGEHOLDELSE');«, l3=0x28}
0x0ca0…0cb2 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x0cb2…0cec Line {l1=0x38, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');«, l3=0x38}
0x0cec…0cf8 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0cf8…0d08 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0d08…0d1c Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x0d1c…0d43 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x0d43…0d66 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x0d66…0d9d Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x0d9d…0dc0 Line {l1=0x21, l2=» IF R=0.0 THEN EXIT(FINDKUND);«, l3=0x21}
0x0dc0…0dcc Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0dcc…0de1 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x0de1…0df6 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0df6…0e05 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0e05…0e1d Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x0e1d…0e4d Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x0e4d…0e5f Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x0e5f…0e78 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x0e78…0e96 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x0e96…0eb8 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x0eb8…0ed6 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x0ed6…0ef2 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x0ef2…0f0e Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x0f0e…0f2c Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x0f2c…0f52 Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x0f52…0f88 Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x0f88…0fc4 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0fc4…0fd4 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x0fd4…0fe1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0fe1…0fef Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0fef…0ffe Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0ffe…1025 Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x1025…1061 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x1061…1091 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x1091…10d2 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x10d2…10df Line {l1=0x0b, l2=» END«, l3=0x0b}
0x10df…10eb Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x10eb…10f8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x10f8…1120 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x1120…1154 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x1154…1177 Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x1177…1183 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1183…1197 Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x1197…11a6 Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x11a6…11bb Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x11bb…11c8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x11c8…120f Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x120f…1221 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1221…1242 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x1242…1263 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x1263…1283 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x1283…1295 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1295…12ba Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x12ba…12ef Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x12ef…1337 Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x1337…1384 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x1384…13c5 Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x13c5…13d0 Line {l1=0x09, l2=» END«, l3=0x09}
0x13d0…13dc Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x13dc…13f2 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x13f2…13ff Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x13ff…1410 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x1410…142a Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x142a…1463 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x1463…1473 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x1473…147e Line {l1=0x09, l2=» END«, l3=0x09}
0x147e…1490 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x1490…14a1 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x14a1…14d0 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (R=0.0) OR (SVAR1='j')«, l3=0x2d}
0x14d0…14d6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14d6…14e6 Line {l1=0x0e, l2=»PROCEDURE FIX;«, l3=0x0e}
0x14e6…14ed Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x14ed…14fd Line {l1=0x0e, l2=» CASE I1 OF«, l3=0x0e}
0x14fd…150b Line {l1=0x0c, l2=» 1: BEGIN«, l3=0x0c}
0x150b…1532 Line {l1=0x25, l2=» GETREC(RZ.H,FROR,RESTORD.A);«, l3=0x25}
0x1532…156d Line {l1=0x39, l2=» IF IER=-6 THEN WRITELN('RESTORDREN FINDES IKKE')«, l3=0x39}
0x156d…157c Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x157c…158c Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x158c…15ae Line {l1=0x20, l2=» IF IER<>0 THEN ERROR;«, l3=0x20}
0x15ae…15db Line {l1=0x2b, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x2b}
0x15db…1601 Line {l1=0x24, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x24}
0x1601…161c Line {l1=0x19, l2=» IF IER=-6 THEN«, l3=0x19}
0x161c…162e Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x162e…1659 Line {l1=0x29, l2=» DELETE(RZ.H,FROR,RESTORD.A);«, l3=0x29}
0x1659…167c Line {l1=0x21, l2=» IF IER<>0 THEN ERROR«, l3=0x21}
0x167c…168c Line {l1=0x0e, l2=» END«, l3=0x0e}
0x168c…169d Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x169d…16af Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x16af…16d3 Line {l1=0x22, l2=» IF IER<>0 THEN ERROR;«, l3=0x22}
0x16d3…1711 Line {l1=0x3c, l2=» VARE.REELTAL(9):=VARE.REELTAL(9)-RESTORD.ANTAL;«, l3=0x3c}
0x1711…1739 Line {l1=0x26, l2=» IF VARE.REELTAL(9)<0 THEN«, l3=0x26}
0x1739…174d Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x174d…178f Line {l1=0x40, l2=» VARE.REELTAL(7):=VARE.REELTAL(7)+VARE.REELTAL(9);«, l3=0x40}
0x178f…17b3 Line {l1=0x22, l2=» VARE.REELTAL(9):=0;«, l3=0x22}
0x17b3…17f0 Line {l1=0x3b, l2=» IF VARE.REELTAL(7)<0 THEN VARE.REELTAL(7):=0«, l3=0x3b}
0x17f0…1803 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1803…182b Line {l1=0x26, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x26}
0x182b…184f Line {l1=0x22, l2=» IF IER<>0 THEN ERROR;«, l3=0x22}
0x184f…187a Line {l1=0x29, l2=» DELETE(RZ.H,FROR,RESTORD.A);«, l3=0x29}
0x187a…189d Line {l1=0x21, l2=» IF IER<>0 THEN ERROR«, l3=0x21}
0x189d…18ad Line {l1=0x0e, l2=» END«, l3=0x0e}
0x18ad…18bb Line {l1=0x0c, l2=» END«, l3=0x0c}
0x18bb…18c8 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x18c8…18d6 Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x18d6…18fd Line {l1=0x25, l2=» GETREC(RZ.H,FROR,RESTORD.A);«, l3=0x25}
0x18fd…1932 Line {l1=0x33, l2=» IF IER=0 THEN WRITELN('RESTORDREN FINDES')«, l3=0x33}
0x1932…1941 Line {l1=0x0d, l2=» ELSE«, l3=0x0d}
0x1941…1951 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x1951…1974 Line {l1=0x21, l2=» IF IER<>-6 THEN ERROR;«, l3=0x21}
0x1974…19a1 Line {l1=0x2b, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x2b}
0x19a1…19c7 Line {l1=0x24, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x24}
0x19c7…19ff Line {l1=0x36, l2=» IF IER=-6 THEN WRITELN('VAREN FINDES IKKE')«, l3=0x36}
0x19ff…1a10 Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x1a10…1a22 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x1a22…1a46 Line {l1=0x22, l2=» IF IER<>0 THEN ERROR;«, l3=0x22}
0x1a46…1a62 Line {l1=0x1a, l2=» GOTOXY(1,21);«, l3=0x1a}
0x1a62…1a81 Line {l1=0x1d, l2=» WRITELN('DATO');«, l3=0x1d}
0x1a81…1a96 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x1a96…1ab4 Line {l1=0x1c, l2=» GOTOXY(7,21);«, l3=0x1c}
0x1ab4…1ad3 Line {l1=0x1d, l2=» READLN;READ(R)«, l3=0x1d}
0x1ad3…1b17 Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (R>800000.0) AND (R<850000.0);«, l3=0x42}
0x1b17…1b46 Line {l1=0x2d, l2=» RESTORD.HEAD(4):=TRUNC(R/10000);«, l3=0x2d}
0x1b46…1b87 Line {l1=0x3f, l2=» RESTORD.HEAD(5):=TRUNC(R-RESTORD.HEAD(4)*10000.0);«, l3=0x3f}
0x1b87…1b9c Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x1b9c…1bba Line {l1=0x1c, l2=» GOTOXY(1,22);«, l3=0x1c}
0x1bba…1bdc Line {l1=0x20, l2=» WRITELN('ANTAL');«, l3=0x20}
0x1bdc…1bfa Line {l1=0x1c, l2=» GOTOXY(8,22);«, l3=0x1c}
0x1bfa…1c25 Line {l1=0x29, l2=» READLN;READ(RESTORD.ANTAL)«, l3=0x29}
0x1c25…1c5d Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (RESTORD.ANTAL>0);«, l3=0x36}
0x1c5d…1c88 Line {l1=0x29, l2=» INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x29}
0x1c88…1cac Line {l1=0x22, l2=» IF IER<>0 THEN ERROR;«, l3=0x22}
0x1cac…1cea Line {l1=0x3c, l2=» VARE.REELTAL(9):=VARE.REELTAL(9)+RESTORD.ANTAL;«, l3=0x3c}
0x1cea…1d12 Line {l1=0x26, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x26}
0x1d12…1d35 Line {l1=0x21, l2=» IF IER<>0 THEN ERROR«, l3=0x21}
0x1d35…1d45 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x1d45…1d53 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x1d53…1d60 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1d60…1d6b Line {l1=0x09, l2=» END;«, l3=0x09}
0x1d6b…1d71 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d71…1d78 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1d78…1d97 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x1d97…1daf Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x1daf…1ddf Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x1ddf…1de2 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x1de5…1e04 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x1e04…1e1a Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x1e1a…1e48 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x1e48…1e4b Line {l1=0x01, l2=» «, l3=0x01}
0x1e4b…1e6a Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x1e6a…1e82 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x1e82…1eb2 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x1eb2…1eb5 Line {l1=0x01, l2=» «, l3=0x01}
0x1eb5…1ed0 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x1ed0…1ee8 Line {l1=0x16, l2=» RESET(SYSFIL,FNAVN);«, l3=0x16}
0x1ee8…1efb Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1efb…1f0b Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1f0b…1f1d Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1f1d…1f27 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1f27…1f36 Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x1f36…1f4a Line {l1=0x12, l2=» IF R<>0.0 THEN«, l3=0x12}
0x1f4a…1f54 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1f54…1f66 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x1f66…1fa4 Line {l1=0x3c, l2=» WRITELN('SLETNING (1) ELL. OPRETTELSE (2), 0 FOR STOP');«, l3=0x3c}
0x1fa4…1fb0 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1fb0…1fd5 Line {l1=0x23, l2=» GOTOXY(50,1);READLN;READ(I1)«, l3=0x23}
0x1fd5…2005 Line {l1=0x2e, l2=» UNTIL (IORESULT=0) AND (I1<3) AND (I1>-1);«, l3=0x2e}
0x2005…2017 Line {l1=0x10, l2=» IF I1>0 THEN«, l3=0x10}
0x2017…2022 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2022…2038 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x2038…2064 Line {l1=0x2a, l2=» WRITELN('VARENR, 0 FOR OVERSIGT');«, l3=0x2a}
0x2064…2074 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x2074…209b Line {l1=0x25, l2=» GOTOXY(40,1);READLN;READ(J)«, l3=0x25}
0x209b…20df Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND ((J=0) OR ((J>999) AND (J<10000)));«, l3=0x42}
0x20df…2106 Line {l1=0x25, l2=» RESTORD.HEAD(1):=KUNDE.NR(1);«, l3=0x25}
0x2106…212d Line {l1=0x25, l2=» RESTORD.HEAD(2):=KUNDE.NR(2);«, l3=0x25}
0x212d…214a Line {l1=0x1b, l2=» RESTORD.HEAD(3):=J;«, l3=0x1b}
0x214a…216f Line {l1=0x23, l2=» IF J=0 THEN WITH RESTORD DO«, l3=0x23}
0x216f…217e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x217e…219f Line {l1=0x1f, l2=» NEXTREC(RZ.H,FROR,A);«, l3=0x1f}
0x219f…21e6 Line {l1=0x45, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;«, l3=0x45}
0x21e6…2235 Line {l1=0x4d, l2=» WHILE (IER=0) AND (HEAD(1)=KUNDE.NR(1)) AND (HEAD(2)=KUNDE.NR(2))DO«, l3=0x4d}
0x2235…2246 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2246…226c Line {l1=0x24, l2=» VARE.HELTAL(1):=HEAD(3);«, l3=0x24}
0x226c…2293 Line {l1=0x25, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x25}
0x2293…22ae Line {l1=0x19, l2=» IF IER=0 THEN«, l3=0x19}
0x22ae…22f2 Line {l1=0x42, l2=» WRITELN(HEAD(3):10,' ':4,VARE.NAVN(1),HEAD(4)*10000.0+«, l3=0x42}
0x22f2…2322 Line {l1=0x2e, l2=» HEAD(5):12:-2,ANTAL:12:-2)«, l3=0x2e}
0x2322…2361 Line {l1=0x3d, l2=» ELSE WRITELN(HEAD(3):10,' ':4,'EKSISTERER IKKE');«, l3=0x3d}
0x2361…2383 Line {l1=0x20, l2=» NEXTREC(RZ.H,FROR,A)«, l3=0x20}
0x2383…2393 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2393…23a5 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x23a5…23c0 Line {l1=0x19, l2=» GOTOXY(1,20);«, l3=0x19}
0x23c0…23e0 Line {l1=0x1e, l2=» WRITELN('VARENR');«, l3=0x1e}
0x23e0…23fc Line {l1=0x1a, l2=» GOTOXY(20,20);«, l3=0x1a}
0x23fc…2418 Line {l1=0x1a, l2=» READLN;READ(J)«, l3=0x1a}
0x2418…2445 Line {l1=0x2b, l2=» UNTIL (IORESULT=0) AND (J<10000);«, l3=0x2b}
0x2445…2466 Line {l1=0x1f, l2=» HEAD(1):=KUNDE.NR(1);«, l3=0x1f}
0x2466…2487 Line {l1=0x1f, l2=» HEAD(2):=KUNDE.NR(2);«, l3=0x1f}
0x2487…249e Line {l1=0x15, l2=» HEAD(3):=J;«, l3=0x15}
0x249e…24ab Line {l1=0x0b, l2=» END«, l3=0x0b}
0x24ab…24b5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x24b5…24c6 Line {l1=0x0f, l2=» IF J>0 THEN«, l3=0x0f}
0x24c6…24d0 Line {l1=0x08, l2=» FIX;«, l3=0x08}
0x24d0…24e0 Line {l1=0x0e, l2=» UNTIL I1=0;«, l3=0x0e}
0x24e0…24f1 Line {l1=0x0f, l2=» UNTIL R=0.0;«, l3=0x0f}
0x24f1…2507 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x2507…251d Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x251d…2533 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x2533…2559 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x2559…255f Line {l1=0x04, l2=»END.«, l3=0x04}
0x255f…2560 00 ┆ ┆
0x2560…2580 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 ┆ ┆
[…0x10…]