|
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: 25536 (0x63c0)
Types: TextFile
Notes: Mikados_K
Names: »PAKLISTE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »PAKLISTE.K«
PROGRAM PAKKELISTEUDSKRIVNING;
(*$D-*)
CONST DK=8;
(*$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;
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;
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;
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;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
ORDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..930) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
PLUORPOST=RECORD
A:AR;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
(*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,
RESTORDREKODE,RABAT*)
ORDRELIN : ARRAY (1..15) OF PLUOLINE
END;
PLUZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..1118) 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;
LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
VAR FROR,FVAR,FORD,FKUN,FPLU : ISF;
VZ:VZONE;
PZ:PLUZONE;
KZ:KZONE;
OZ:ORDZONE;
RZ:RORZONE;
ORDRE:ORDREPOST;
RESTORD:RORPOST;
PLUORD:PLUORPOST;
VARE:VPOST;
KUNDE:KPOST;
SYSFIL:SYSFILE;
LANDFIL:LANDFILE;
FNAVN:STRING(20);
TOTORDRE:ARRAY (1..60) OF OLINE;
OLIN:OLINE;
KNAVN:STRING(4);
ØL,IER,I,J,EOF
:INTEGER;
R :REAL;
NOFIND:BOOLEAN;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(PZ.H,FPLU);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE HOVED;
VAR I:INTEGER;
NAME:PACKED ARRAY (1..26) OF CHAR;
BEGIN
ØL:=ØL MOD 72;
WHILE ØL<72 DO
BEGIN
WRITELN(LIST);
ØL:=ØL+1
END;
ØL:=23;
WRITELN(LIST,'V V EEEE N N DDD OO RRR ':53);
WRITELN(LIST,'V V E NN N D D O O R R':53);
WRITELN(LIST,'V V EE N N N D D O O RRR ':53);
WRITELN(LIST,'V V E N NN D D O O R R ':53);
WRITELN(LIST,'V EEEE N N DDD OO R R':53);
WRITELN(LIST);
WRITELN(LIST,'P A K L I S T E / F Ø L G E S E D D E L':53);
WRITELN(LIST);
WRITELN(LIST);
WRITELN(LIST,'KUNDENUMMER',PLUORD.HEAD(1)*10000.0+PLUORD.HEAD(2):7:-2,
'ORDRENUMMER':48,PLUORD.HEAD(3)*10000.0+PLUORD.HEAD(4):8:-2);
WRITELN(LIST);
IF NOFIND THEN FOR I:=1 TO 6 DO WRITELN(LIST) ELSE
BEGIN
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (KUNDE.NAVN(1,I)<>' ');
IF KUNDE.NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(KUNDE.NAVN(1,5),NAME,26);
WRITELN(LIST,NAME)
END
ELSE
WRITELN(LIST,KUNDE.NAVN(1));
WRITELN(LIST,KUNDE.NAVN(2));
WRITELN(LIST,KUNDE.NAVN(3));
WRITELN(LIST,KUNDE.LANDSBY);
WRITELN(LIST,KUNDE.POSTNR);
IF KUNDE.NR(7)=DK THEN
WRITELN(LIST)
ELSE
BEGIN
SEEK(LANDFIL,KUNDE.NR(7));
GET(LANDFIL);
WRITELN(LIST,LANDFIL^)
END;
END;
WRITELN(LIST);WRITELN(LIST);
WRITELN(LIST,'DATO',SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2):8:-2,
'ORDREDATO':25,PLUORD.HEAD(7)*10000.0+PLUORD.HEAD(8):8:-2,
'LEVERINGSUGE':25,PLUORD.HEAD(6):4);
WRITELN(LIST);
WRITELN(LIST,'VNR':9,'LEV':6,'VARENAVN':11,'PRIS':32,'BESTILT':10,'REST':7);
WRITELN(LIST)
END;
PROCEDURE HOVED1;
VAR I:INTEGER;
NAME:PACKED ARRAY (1..26) OF CHAR;
BEGIN
ØL:=ØL+8;
WRITELN(LIST);
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (KUNDE.NAVN(1,I)<>' ');
IF KUNDE.NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(KUNDE.NAVN(1,5),NAME,26);
WRITELN(LIST,'V ',NAME,' ':11,'V ',NAME)
END
ELSE
WRITELN(LIST,'V ',KUNDE.NAVN(1),' ':7,'V ',KUNDE.NAVN(1));
WRITELN(LIST,'E ',KUNDE.NAVN(2),' ':7,'E ',KUNDE.NAVN(2));
WRITELN(LIST,'N ',KUNDE.NAVN(3),' ':7,'N ',KUNDE.NAVN(3));
WRITELN(LIST,'D ',KUNDE.LANDSBY,' ':17,'D ',KUNDE.LANDSBY);
WRITELN(LIST,'O ',KUNDE.POSTNR,' ':12,'O ',KUNDE.POSTNR);
IF KUNDE.NR(7)=DK THEN
WRITELN(LIST,'R',' ':40,'R')
ELSE
BEGIN
SEEK(LANDFIL,KUNDE.NR(7));
GET(LANDFIL);
WRITELN(LIST,'R ',LANDFIL^,' ':7,'R ',LANDFIL^)
END;
WRITELN(LIST,' nyhavn 43 dk-1051 copenhagen',' ':12,
' nyhavn 43 dk-1051 copenhagen')
END;
PROCEDURE PAKLIST;
VAR ALI,K,L:INTEGER;
SLUT:BOOLEAN;
REST,LEV:REAL;
PROCEDURE BUND;
BEGIN
ØL:=ØL+10;
WRITELN(LIST);WRITELN(LIST);WRITELN(LIST);
WRITE(LIST,'VARERNE FREMTAGET AF:');
IF KUNDE.NR(8)=1 THEN WRITELN(LIST,' ':30,'E F T E R K R A V');
IF KUNDE.NR(8)=2 THEN WRITELN(LIST,' ':30,'K O N T A N T');
IF (KUNDE.NR(8)<>1) AND (KUNDE.NR(8)<>2) THEN WRITELN(LIST);
WRITELN(LIST);
WRITELN(LIST,'SENDT PR',':':13,' ':25,PLUORD.LINE(1));
WRITELN(LIST,' ':46,PLUORD.LINE(2));
WRITELN(LIST,'ANTAL KOLLI',':':10);
WRITELN(LIST);
WRITELN(LIST,'VÆGT',':':17);
END;
PROCEDURE INDREST;
BEGIN
RESTORD.HEAD(1):=KUNDE.NR(1);
RESTORD.HEAD(2):=KUNDE.NR(2);
RESTORD.HEAD(3):=0;
ALI:=ALI+1;
TOTORDRE(ALI).VNR(1):=1;
TOTORDRE(ALI+1).VNR(1):=0;
NEXTREC(RZ.H,FROR,RESTORD.A);
IF IER=-1 THEN IER:=0;
WHILE IER=0 DO
BEGIN
IF (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR (RESTORD.HEAD(2)<>KUNDE.NR(2))
THEN IER:=-2;
IF IER=0 THEN
BEGIN
VARE.HELTAL(1):=RESTORD.HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER=0) AND (VARE.REELTAL(4)>0.0) THEN
BEGIN
ALI:=ALI+1;
TOTORDRE(ALI).VNR(1):=VARE.HELTAL(1);
IF RESTORD.ANTAL>32000.0 THEN
BEGIN
RESTORD.ANTAL:=RESTORD.ANTAL-32000.0;
PUTREC(RZ.H,FROR,RESTORD.A);
NEXTREC(RZ.H,FROR,RESTORD.A);
TOTORDRE(ALI).VNR(2):=32000
END
ELSE
BEGIN
K:=TRUNC(RESTORD.ANTAL);
TOTORDRE(ALI).VNR(2):=K;
DELETE(RZ.H,FROR,RESTORD.A)
END;
IF ALI=60 THEN IER:=-2;
TOTORDRE(ALI).PRIS:=VARE.REELTAL(1)
END
ELSE BEGIN IF (IER<>0) AND (IER<>-6) THEN ERROR;
NEXTREC(RZ.H,FROR,RESTORD.A)
END
END
END;
IF (IER<>-2) AND (IER<>-9) THEN ERROR
END;
BEGIN
FOR J:=1 TO 12 DO PLUORD.HEAD(J):=ORDRE.HEAD(J);
PLUORD.LINE(1):=ORDRE.LINE(1);
PLUORD.LINE(2):=ORDRE.LINE(2);
K:=0;
REPEAT
FOR J:=1 TO 15 DO
BEGIN
TOTORDRE(K*15+J):=ORDRE.ORDRELIN(J);
IF TOTORDRE(K*15+J).VNR(1)<>0 THEN ALI:=K*15+J
END;
K:=K+1;
SLUT:=ORDRE.HEAD(5)=99;
DELETE(OZ.H,FORD,ORDRE.A);
EOF:=IER;
IF ((IER<>0) AND (IER<>-2) AND (IER<>-1)) THEN ERROR
UNTIL SLUT;
FOR J:=1 TO ALI DO
BEGIN
K:=J;
FOR L:=J+1 TO ALI DO
IF TOTORDRE(L).VNR(1)<TOTORDRE(K).VNR(1) THEN K:=L;
IF K<>J THEN
BEGIN
OLIN:=TOTORDRE(J);
TOTORDRE(J):=TOTORDRE(K);
TOTORDRE(K):=OLIN
END
END;
IF ALI<59 THEN
INDREST;
K:=0;
PLUORD.HEAD(5):=1;
FOR J:=1 TO ALI DO
WITH TOTORDRE(J) DO
IF VNR(1)<>1 THEN
BEGIN
VARE.HELTAL(1):=VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>-6) AND (IER<>0) THEN ERROR;
IF IER=-6 THEN WRITELN(LIST,VNR(1):9,' ':5,'FINDES IKKE')
ELSE
BEGIN
K:=K+1;
IF K>15 THEN
BEGIN
K:=1;
IF NOT NOFIND THEN
INSERT(PZ.H,FPLU,PLUORD.A);
PLUORD.HEAD(5):=PLUORD.HEAD(5)+1;
IF IER<>0 THEN ERROR
END;
IF K=1 THEN HOVED;
REST:=VNR(2)-VARE.REELTAL(4);
IF REST>0 THEN
BEGIN
VARE.REELTAL(4):=0;
VARE.REELTAL(7):=0
END
ELSE
BEGIN
REST:=0;
VARE.REELTAL(4):=VARE.REELTAL(4)-VNR(2);
IF VARE.REELTAL(7)>=VNR(2) THEN
VARE.REELTAL(7):=VARE.REELTAL(7)-VNR(2)
ELSE
BEGIN
VARE.REELTAL(9):=VARE.REELTAL(9)-VNR(2)+VARE.REELTAL(7);
VARE.REELTAL(7):=0
END
END;
LEV:=VNR(2)-REST;
WRITELN(LIST,' ':3,VNR(1):6,LEV:6:-2,' ':3,VARE.NAVN(1),
VARE.REELTAL(1)/100:10:2,VNR(2):10,REST:7:-2);
PLUORD.ORDRELIN(K).VNR(1):=VNR(1);
PLUORD.ORDRELIN(K).VNR(2):=TRUNC(LEV);
PLUORD.ORDRELIN(K).VNR(3):=VNR(2);
PLUORD.ORDRELIN(K).PRIS:=PRIS;
IF NOT NOFIND THEN
PUTREC(VZ.H,FVAR,VARE.A)
END;
WRITELN(LIST);
ØL:=ØL+2;
END
ELSE
IF VNR(1)=1 THEN
IF TOTORDRE(J+1).VNR(1)>0 THEN
BEGIN
WRITELN(LIST,' ':18,'Restordrer');
WRITELN(LIST);
ØL:=ØL+2;
K:=K+1;
IF K>15 THEN
BEGIN
K:=1;
IF NOT NOFIND THEN
INSERT(PZ.H,FPLU,PLUORD.A);
PLUORD.HEAD(5):=PLUORD.HEAD(5)+1;
IF IER<>0 THEN ERROR
END;
IF K=1 THEN HOVED;
PLUORD.ORDRELIN(K).VNR(1):=1;
END;
FOR J:=K+1 TO 15 DO PLUORD.ORDRELIN(J).VNR(1):=0;
PLUORD.HEAD(5):=99;
IF K>8 THEN BEGIN HOVED;K:=0 END;
BUND;
K:=K+5;
FOR J:=K+1 TO 15 DO BEGIN WRITELN(LIST);ØL:=ØL+2;
WRITELN(LIST) END;
IF NOT NOFIND THEN
BEGIN
HOVED1;
INSERT(PZ.H,FPLU,PLUORD.A)
END;
IF IER<>0 THEN ERROR
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;
R1,R2:REAL;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('PAKKELISTEUDSKRIVNING');
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='j') OR (SVAR1='n'));
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 FINDORDR;
VAR SVAR1:CHAR;
R1:REAL;
BEGIN
CLEARSCREEN;
WRITELN('INDTAST ORDRENR, 1 FOR OVERSIGT OVER KUNDENS ORDRER, 0 FOR STOP');
REPEAT
GOTOXY(65,1);READLN;READ(R)
UNTIL (IORESULT=0) AND (R<1000000.0) AND (R>=0);
IF R=0.0 THEN EXIT(FINDORDR);
WITH ORDRE DO
BEGIN
HEAD(1):=KUNDE.NR(1);
HEAD(2):=KUNDE.NR(2);
IF R>1 THEN
BEGIN
HEAD(3):=TRUNC(R/10000);
HEAD(4):=TRUNC(R-HEAD(3)*10000.0);
HEAD(5):=0;
NEXTREC(OZ.H,FORD,A);
IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0;
IF IER<>0 THEN ERROR;
IF (HEAD(3)*10000.0+HEAD(4)<>R) OR (HEAD(1)<>KUNDE.NR(1)) OR
(HEAD(2)<>KUNDE.NR(2)) THEN
BEGIN
WRITELN('ORDREN FINDES IKKE, TRYK RETURN');
READLN;
R:=-1
END ELSE R:=-2
END
ELSE
BEGIN
HEAD(3):=0;HEAD(4):=0;HEAD(5):=0;
R1:=0;
REPEAT
NEXTREC(OZ.H,FORD,A);
IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0;
IF IER<>0 THEN ERROR;
IF (HEAD(1)<>KUNDE.NR(1)) OR (HEAD(2)<>KUNDE.NR(2)) THEN
BEGIN
WRITELN('KUNDEN HAR IKKE FLERE ORDRER I SYSTEMET, TRYK RETURN');
READLN;R:=-1
END
ELSE
IF R1<>HEAD(3)*10000.0+HEAD(4) THEN
BEGIN
R1:=HEAD(3)*10000.0+HEAD(4);
GOTOXY(1,3);
WRITELN('ORDRENR:',R1:10:-2,' RIGTIGT (J/N)');
REPEAT
GOTOXY(40,3);
READLN;READ(SVAR1)
UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N')
OR (SVAR1='j') OR (SVAR1='n'));
IF (SVAR1='J') OR (SVAR1='j') THEN R:=-2
END
UNTIL R<0;
END
END
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;
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='ORDRERG:P2:0000:I';
REWRITE(FORD,FNAVN);
IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='PLUOR:P2:0000:I';
REWRITE(FPLU,FNAVN);
IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='SYSREG:P2:1:I';
RESET(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(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';
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='LANDEREG:P2:0:I';
RESET(LANDFIL,FNAVN);
WRITELN('Pakkelistesider aktuelt :',PZ.H.RECINUSE:6,' Maksimalt :',
PZ.H.NREC:6);
DELAY(1000);
ØL:=0;
REPEAT
CLEARSCREEN;
WRITELN('PAKKELISTEUDSKRIVNING');
WRITELN('UGENR (0), ENKELTORDRE (1), STOP (2)');
REPEAT GOTOXY(40,2);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<=2);
IF I=0 THEN
BEGIN
R:=1;
CLEARSCREEN;
WRITELN('LEVERINGSUGE');
REPEAT GOTOXY(15,1);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<=53);
WITH ORDRE DO
BEGIN
FOR J:=1 TO 5 DO HEAD(J):=0;
NEXTREC(OZ.H,FORD,A);
IF IER<>-1 THEN ERROR ELSE IER:=0;
REPEAT
WHILE (HEAD(6)<>I) AND (HEAD(6)<>0) AND (IER=0) DO
NEXTREC(OZ.H,FORD,A);
EOF:=IER;
IF IER=0 THEN
BEGIN
NOFIND:=FALSE;
KUNDE.NR(1):=HEAD(1);
KUNDE.NR(2):=HEAD(2);
GETREC(KZ.H,FKUN,KUNDE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
IF IER=-6 THEN BEGIN IER:=0;NOFIND:=TRUE END;
IF PZ.H.NREC-PZ.H.RECINUSE<4 THEN
BEGIN
WRITELN('Ikke plads til flere pakkesedler');
EOF:=-2;
R:=0.0
END
ELSE
PAKLIST
END
UNTIL EOF<>0;
IF EOF<>-2 THEN ERROR;
END
END
ELSE
IF I=1 THEN
BEGIN
IF PZ.H.NREC-PZ.H.RECINUSE<4 THEN
BEGIN
WRITELN('Ikke plads til flere pakkesedler');
EOF:=-2;
R:=0.0
END
ELSE
FINDKUND;
IF R<>0.0 THEN FINDORDR;
IF R=-2 THEN PAKLIST
END
ELSE R:=0.0
UNTIL R=0.0;
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(PZ.H,FPLU);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0020 Line {l1=0x1e, l2=»PROGRAM PAKKELISTEUDSKRIVNING;«, l3=0x1e}
0x0020…0029 Line {l1=0x07, l2=»(*$D-*)«, l3=0x07}
0x0029…0036 Line {l1=0x0b, l2=»CONST DK=8;«, l3=0x0b}
0x0036…0046 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0046…0055 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0055…006b Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x006b…0095 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0095…00de Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00de…00ff Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00ff…013a Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x013a…015b Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x015b…0183 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0183…01c9 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01c9…020d Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x020d…0215 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0215…0226 Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x0226…024d Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x024d…0266 Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x0266…027a Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x027a…0282 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0282…0297 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x0297…02a6 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x02a6…02ab Line {l1=0x03, l2=» (*«, l3=0x03}
0x02ab…02bf Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x02bf…02d1 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x02d1…02e0 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x02e0…0324 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x0324…034c Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x034c…0388 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0388…03b3 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x03b3…03bb Line {l1=0x06, l2=» END;«, l3=0x06}
0x03bb…03c9 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x03c9…03d7 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03d7…03fc Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x03fc…0438 Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0438…0466 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x0466…0493 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0493…04bd Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x04bd…04e3 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x04e3…04e9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04e9…04f9 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04f9…0509 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x0509…0513 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0513…051e Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x051e…052d Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x052d…053b Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x053b…054b Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x054b…058d Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x40}
0x058d…05aa Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x05aa…05d3 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x05d3…061a Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x061a…0620 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0620…063a Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x063a…064a Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x064a…065e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x065e…0682 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0682…068a Line {l1=0x06, l2=» END;«, l3=0x06}
0x068a…069b Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x069b…06af Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x06af…06d3 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x06d3…06db Line {l1=0x06, l2=» END;«, l3=0x06}
0x06db…06e9 Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x06e9…06fc Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x06fc…071f Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x071f…0725 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0725…0729 Line {l1=0x02, l2=» «, l3=0x02}
0x0729…073d Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x073d…0764 Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x0764…0785 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0785…0799 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0799…07a1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x07a1…07b4 Line {l1=0x11, l2=» PLUORPOST=RECORD«, l3=0x11}
0x07b4…07c3 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x07c3…07eb Line {l1=0x26, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x26}
0x07eb…0827 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0827…086a Line {l1=0x41, l2=» (*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,«, l3=0x41}
0x086a…0884 Line {l1=0x18, l2=» RESTORDREKODE,RABAT*)«, l3=0x18}
0x0884…08b2 Line {l1=0x2c, l2=» ORDRELIN : ARRAY (1..15) OF PLUOLINE«, l3=0x2c}
0x08b2…08ba Line {l1=0x06, l2=» END;«, l3=0x06}
0x08ba…08cb Line {l1=0x0f, l2=» PLUZONE=RECORD«, l3=0x0f}
0x08cb…08df Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x08df…0904 Line {l1=0x23, l2=» T:ARRAY(1..1118) OF INTEGER«, l3=0x23}
0x0904…090c Line {l1=0x06, l2=» END;«, l3=0x06}
0x090c…0910 Line {l1=0x02, l2=» «, l3=0x02}
0x0910…0921 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0921…0930 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0930…0944 Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x0944…0952 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0952…098d Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x098d…09a1 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x09a1…09a9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x09a9…09ba Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x09ba…09ce Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x09ce…09f2 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x09f2…09fa Line {l1=0x06, l2=» END;«, l3=0x06}
0x09fa…09fe Line {l1=0x02, l2=» «, l3=0x02}
[…0x1…]
0x0a02…0a32 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x0a32…0a5b Line {l1=0x27, l2=» VAR FROR,FVAR,FORD,FKUN,FPLU : ISF;«, l3=0x27}
0x0a5b…0a6e Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0a6e…0a83 Line {l1=0x13, l2=» PZ:PLUZONE;«, l3=0x13}
0x0a83…0a96 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0a96…0aab Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x0aab…0ac0 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0ac0…0ada Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x0ada…0af4 Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0af4…0b0f Line {l1=0x19, l2=» PLUORD:PLUORPOST;«, l3=0x19}
0x0b0f…0b24 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0b24…0b3a Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0b3a…0b53 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0b53…0b6e Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x0b6e…0b89 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0b89…0bb3 Line {l1=0x28, l2=» TOTORDRE:ARRAY (1..60) OF OLINE;«, l3=0x28}
0x0bb3…0bc8 Line {l1=0x13, l2=» OLIN:OLINE;«, l3=0x13}
0x0bc8…0be2 Line {l1=0x18, l2=» KNAVN:STRING(4);«, l3=0x18}
0x0be2…0bfa Line {l1=0x16, l2=» ØL,IER,I,J,EOF«, l3=0x16}
0x0bfa…0c1d Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0c1d…0c37 Line {l1=0x18, l2=» R :REAL;«, l3=0x18}
0x0c37…0c50 Line {l1=0x17, l2=» NOFIND:BOOLEAN;«, l3=0x17}
0x0c50…0c67 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0c67…0c71 Line {l1=0x08, l2=» (*$L-*)«, l3=0x08}
0x0c71…0c85 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0c85…0c93 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0c93…0ca1 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0ca1…0cb2 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0cb2…0cc3 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0cc3…0cd3 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0cd3…0ce3 Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x0ce3…0cf2 Line {l1=0x0d, l2=» (*$IDELETE*)«, l3=0x0d}
0x0cf2…0d01 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0d01…0d10 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0d10…0d1f Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0d1f…0d28 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0d28…0d3b Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0d3b…0d43 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0d43…0d68 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0d68…0d7f Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0d7f…0d96 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x15}
0x0d96…0dad Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0dad…0dc4 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0dc4…0ddb Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0ddb…0df7 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0df7…0e06 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0e06…0e0d Line {l1=0x05, l2=» END;«, l3=0x05}
0x0e0d…0e1f Line {l1=0x10, l2=»PROCEDURE HOVED;«, l3=0x10}
0x0e1f…0e2f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0e2f…0e57 Line {l1=0x26, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x26}
0x0e57…0e5e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e5e…0e70 Line {l1=0x10, l2=» ØL:=ØL MOD 72;«, l3=0x10}
0x0e70…0e82 Line {l1=0x10, l2=» WHILE ØL<72 DO«, l3=0x10}
0x0e82…0e8b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0e8b…0e9f Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x0e9f…0ead Line {l1=0x0c, l2=» ØL:=ØL+1«, l3=0x0c}
0x0ead…0eb5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0eb5…0ec0 Line {l1=0x09, l2=» ØL:=23;«, l3=0x09}
0x0ec0…0efe Line {l1=0x3c, l2=» WRITELN(LIST,'V V EEEE N N DDD OO RRR ':53);«, l3=0x3c}
0x0efe…0f3c Line {l1=0x3c, l2=» WRITELN(LIST,'V V E NN N D D O O R R':53);«, l3=0x3c}
0x0f3c…0f79 Line {l1=0x3b, l2=» WRITELN(LIST,'V V EE N N N D D O O RRR ':53);«, l3=0x3b}
0x0f79…0fb5 Line {l1=0x3a, l2=» WRITELN(LIST,'V V E N NN D D O O R R ':53);«, l3=0x3a}
0x0fb5…0ff0 Line {l1=0x39, l2=» WRITELN(LIST,'V EEEE N N DDD OO R R':53);«, l3=0x39}
0x0ff0…1002 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x1002…1041 Line {l1=0x3d, l2=» WRITELN(LIST,'P A K L I S T E / F Ø L G E S E D D E L':53);«, l3=0x3d}
0x1041…1053 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
[…0x1…]
0x1065…10af Line {l1=0x48, l2=» WRITELN(LIST,'KUNDENUMMER',PLUORD.HEAD(1)*10000.0+PLUORD.HEAD(2):7:-2,«, l3=0x48}
0x10af…10fa Line {l1=0x49, l2=» 'ORDRENUMMER':48,PLUORD.HEAD(3)*10000.0+PLUORD.HEAD(4):8:-2);«, l3=0x49}
0x10fa…110c Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x110c…1142 Line {l1=0x34, l2=» IF NOFIND THEN FOR I:=1 TO 6 DO WRITELN(LIST) ELSE«, l3=0x34}
0x1142…114b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x114b…1154 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x1154…1165 Line {l1=0x0f, l2=» REPEAT I:=I+1«, l3=0x0f}
0x1165…118f Line {l1=0x28, l2=» UNTIL (I=4) OR (KUNDE.NAVN(1,I)<>' ');«, l3=0x28}
0x118f…11ae Line {l1=0x1d, l2=» IF KUNDE.NAVN(1,I)=' ' THEN«, l3=0x1d}
0x11ae…11b7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x11b7…11df Line {l1=0x26, l2=» MOVELEFT(KUNDE.NAVN(1,5),NAME,26);«, l3=0x26}
0x11df…11f7 Line {l1=0x16, l2=» WRITELN(LIST,NAME)«, l3=0x16}
0x11f7…11fe Line {l1=0x05, l2=» END«, l3=0x05}
0x11fe…1206 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1206…1226 Line {l1=0x1e, l2=» WRITELN(LIST,KUNDE.NAVN(1));«, l3=0x1e}
0x1226…1246 Line {l1=0x1e, l2=» WRITELN(LIST,KUNDE.NAVN(2));«, l3=0x1e}
0x1246…1266 Line {l1=0x1e, l2=» WRITELN(LIST,KUNDE.NAVN(3));«, l3=0x1e}
0x1266…1286 Line {l1=0x1e, l2=» WRITELN(LIST,KUNDE.LANDSBY);«, l3=0x1e}
0x1286…12a5 Line {l1=0x1d, l2=» WRITELN(LIST,KUNDE.POSTNR);«, l3=0x1d}
0x12a5…12bf Line {l1=0x18, l2=» IF KUNDE.NR(7)=DK THEN«, l3=0x18}
0x12bf…12d2 Line {l1=0x11, l2=» WRITELN(LIST)«, l3=0x11}
0x12d2…12da Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x12da…12e3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x12e3…1303 Line {l1=0x1e, l2=» SEEK(LANDFIL,KUNDE.NR(7));«, l3=0x1e}
0x1303…1316 Line {l1=0x11, l2=» GET(LANDFIL);«, l3=0x11}
0x1316…1332 Line {l1=0x1a, l2=» WRITELN(LIST,LANDFIL^)«, l3=0x1a}
0x1332…133a Line {l1=0x06, l2=» END;«, l3=0x06}
[…0x1…]
0x1342…1362 Line {l1=0x1e, l2=» WRITELN(LIST);WRITELN(LIST);«, l3=0x1e}
0x1362…13ab Line {l1=0x47, l2=» WRITELN(LIST,'DATO',SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2):8:-2,«, l3=0x47}
0x13ab…13f3 Line {l1=0x46, l2=» 'ORDREDATO':25,PLUORD.HEAD(7)*10000.0+PLUORD.HEAD(8):8:-2,«, l3=0x46}
0x13f3…1425 Line {l1=0x30, l2=» 'LEVERINGSUGE':25,PLUORD.HEAD(6):4);«, l3=0x30}
0x1425…1437 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x1437…1486 Line {l1=0x4d, l2=» WRITELN(LIST,'VNR':9,'LEV':6,'VARENAVN':11,'PRIS':32,'BESTILT':10,'REST':7);«, l3=0x4d}
0x1486…1497 Line {l1=0x0f, l2=» WRITELN(LIST)«, l3=0x0f}
0x1497…149d Line {l1=0x04, l2=»END;«, l3=0x04}
0x149d…14b0 Line {l1=0x11, l2=»PROCEDURE HOVED1;«, l3=0x11}
0x14b0…14c0 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x14c0…14e8 Line {l1=0x26, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x26}
0x14e8…14ef Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x14ef…14fc Line {l1=0x0b, l2=» ØL:=ØL+8;«, l3=0x0b}
0x14fc…150e Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x150e…1517 Line {l1=0x07, l2=» I:=0;«, l3=0x07}
0x1517…1528 Line {l1=0x0f, l2=» REPEAT I:=I+1«, l3=0x0f}
0x1528…1552 Line {l1=0x28, l2=» UNTIL (I=4) OR (KUNDE.NAVN(1,I)<>' ');«, l3=0x28}
0x1552…1571 Line {l1=0x1d, l2=» IF KUNDE.NAVN(1,I)=' ' THEN«, l3=0x1d}
0x1571…157a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x157a…15a2 Line {l1=0x26, l2=» MOVELEFT(KUNDE.NAVN(1,5),NAME,26);«, l3=0x26}
0x15a2…15d4 Line {l1=0x30, l2=» WRITELN(LIST,'V ',NAME,' ':11,'V ',NAME)«, l3=0x30}
0x15d4…15db Line {l1=0x05, l2=» END«, l3=0x05}
0x15db…15e3 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x15e3…1625 Line {l1=0x40, l2=» WRITELN(LIST,'V ',KUNDE.NAVN(1),' ':7,'V ',KUNDE.NAVN(1));«, l3=0x40}
0x1625…1667 Line {l1=0x40, l2=» WRITELN(LIST,'E ',KUNDE.NAVN(2),' ':7,'E ',KUNDE.NAVN(2));«, l3=0x40}
0x1667…16a9 Line {l1=0x40, l2=» WRITELN(LIST,'N ',KUNDE.NAVN(3),' ':7,'N ',KUNDE.NAVN(3));«, l3=0x40}
0x16a9…16ec Line {l1=0x41, l2=» WRITELN(LIST,'D ',KUNDE.LANDSBY,' ':17,'D ',KUNDE.LANDSBY);«, l3=0x41}
0x16ec…172d Line {l1=0x3f, l2=» WRITELN(LIST,'O ',KUNDE.POSTNR,' ':12,'O ',KUNDE.POSTNR);«, l3=0x3f}
0x172d…1747 Line {l1=0x18, l2=» IF KUNDE.NR(7)=DK THEN«, l3=0x18}
0x1747…1769 Line {l1=0x20, l2=» WRITELN(LIST,'R',' ':40,'R')«, l3=0x20}
0x1769…1771 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1771…177a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x177a…179a Line {l1=0x1e, l2=» SEEK(LANDFIL,KUNDE.NR(7));«, l3=0x1e}
0x179a…17ad Line {l1=0x11, l2=» GET(LANDFIL);«, l3=0x11}
0x17ad…17e6 Line {l1=0x37, l2=» WRITELN(LIST,'R ',LANDFIL^,' ':7,'R ',LANDFIL^)«, l3=0x37}
0x17e6…17ee Line {l1=0x06, l2=» END;«, l3=0x06}
0x17ee…1826 Line {l1=0x36, l2=» WRITELN(LIST,' nyhavn 43 dk-1051 copenhagen',' ':12,«, l3=0x36}
0x1826…1854 Line {l1=0x2c, l2=» ' nyhavn 43 dk-1051 copenhagen')«, l3=0x2c}
0x1854…185a Line {l1=0x04, l2=»END;«, l3=0x04}
0x185a…186e Line {l1=0x12, l2=»PROCEDURE PAKLIST;«, l3=0x12}
0x186e…1884 Line {l1=0x14, l2=»VAR ALI,K,L:INTEGER;«, l3=0x14}
0x1884…1897 Line {l1=0x11, l2=» SLUT:BOOLEAN;«, l3=0x11}
0x1897…18ab Line {l1=0x12, l2=» REST,LEV:REAL;«, l3=0x12}
0x18ab…18bc Line {l1=0x0f, l2=»PROCEDURE BUND;«, l3=0x0f}
0x18bc…18c3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x18c3…18d1 Line {l1=0x0c, l2=» ØL:=ØL+10;«, l3=0x0c}
0x18d1…18ff Line {l1=0x2c, l2=» WRITELN(LIST);WRITELN(LIST);WRITELN(LIST);«, l3=0x2c}
0x18ff…1927 Line {l1=0x26, l2=» WRITE(LIST,'VARERNE FREMTAGET AF:');«, l3=0x26}
0x1927…196a Line {l1=0x41, l2=» IF KUNDE.NR(8)=1 THEN WRITELN(LIST,' ':30,'E F T E R K R A V');«, l3=0x41}
0x196a…19a9 Line {l1=0x3d, l2=» IF KUNDE.NR(8)=2 THEN WRITELN(LIST,' ':30,'K O N T A N T');«, l3=0x3d}
0x19a9…19e9 Line {l1=0x3e, l2=» IF (KUNDE.NR(8)<>1) AND (KUNDE.NR(8)<>2) THEN WRITELN(LIST);«, l3=0x3e}
0x19e9…19fb Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x19fb…1a35 Line {l1=0x38, l2=» WRITELN(LIST,'SENDT PR',':':13,' ':25,PLUORD.LINE(1));«, l3=0x38}
0x1a35…1a5d Line {l1=0x26, l2=» WRITELN(LIST,' ':46,PLUORD.LINE(2));«, l3=0x26}
0x1a5d…1a84 Line {l1=0x25, l2=» WRITELN(LIST,'ANTAL KOLLI',':':10);«, l3=0x25}
0x1a84…1a96 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x1a96…1ab6 Line {l1=0x1e, l2=» WRITELN(LIST,'VÆGT',':':17);«, l3=0x1e}
0x1ab6…1abc Line {l1=0x04, l2=»END;«, l3=0x04}
0x1abc…1ad0 Line {l1=0x12, l2=»PROCEDURE INDREST;«, l3=0x12}
0x1ad0…1ad9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1ad9…1afc Line {l1=0x21, l2=» RESTORD.HEAD(1):=KUNDE.NR(1);«, l3=0x21}
0x1afc…1b1f Line {l1=0x21, l2=» RESTORD.HEAD(2):=KUNDE.NR(2);«, l3=0x21}
0x1b1f…1b38 Line {l1=0x17, l2=» RESTORD.HEAD(3):=0;«, l3=0x17}
0x1b38…1b49 Line {l1=0x0f, l2=» ALI:=ALI+1;«, l3=0x0f}
0x1b49…1b67 Line {l1=0x1c, l2=» TOTORDRE(ALI).VNR(1):=1;«, l3=0x1c}
0x1b67…1b87 Line {l1=0x1e, l2=» TOTORDRE(ALI+1).VNR(1):=0;«, l3=0x1e}
0x1b87…1baa Line {l1=0x21, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x21}
0x1baa…1bc6 Line {l1=0x1a, l2=» IF IER=-1 THEN IER:=0;«, l3=0x1a}
0x1bc6…1bda Line {l1=0x12, l2=» WHILE IER=0 DO«, l3=0x12}
0x1bda…1be5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1be5…1c30 Line {l1=0x49, l2=» IF (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR (RESTORD.HEAD(2)<>KUNDE.NR(2))«, l3=0x49}
0x1c30…1c48 Line {l1=0x16, l2=» THEN IER:=-2;«, l3=0x16}
0x1c48…1c5d Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1c5d…1c6a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c6a…1c94 Line {l1=0x28, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x28}
0x1c94…1cb7 Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x1cb7…1cea Line {l1=0x31, l2=» IF (IER=0) AND (VARE.REELTAL(4)>0.0) THEN«, l3=0x31}
0x1cea…1cf9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1cf9…1d10 Line {l1=0x15, l2=» ALI:=ALI+1;«, l3=0x15}
0x1d10…1d41 Line {l1=0x2f, l2=» TOTORDRE(ALI).VNR(1):=VARE.HELTAL(1);«, l3=0x2f}
0x1d41…1d6a Line {l1=0x27, l2=» IF RESTORD.ANTAL>32000.0 THEN«, l3=0x27}
0x1d6a…1d7b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1d7b…1dae Line {l1=0x31, l2=» RESTORD.ANTAL:=RESTORD.ANTAL-32000.0;«, l3=0x31}
0x1dae…1dd8 Line {l1=0x28, l2=» PUTREC(RZ.H,FROR,RESTORD.A);«, l3=0x28}
0x1dd8…1e03 Line {l1=0x29, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x29}
0x1e03…1e2c Line {l1=0x27, l2=» TOTORDRE(ALI).VNR(2):=32000«, l3=0x27}
0x1e2c…1e3b Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1e3b…1e4b Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x1e4b…1e5c Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1e5c…1e82 Line {l1=0x24, l2=» K:=TRUNC(RESTORD.ANTAL);«, l3=0x24}
0x1e82…1ea8 Line {l1=0x24, l2=» TOTORDRE(ALI).VNR(2):=K;«, l3=0x24}
0x1ea8…1ed1 Line {l1=0x27, l2=» DELETE(RZ.H,FROR,RESTORD.A)«, l3=0x27}
0x1ed1…1ee1 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1ee1…1f04 Line {l1=0x21, l2=» IF ALI=60 THEN IER:=-2;«, l3=0x21}
0x1f04…1f33 Line {l1=0x2d, l2=» TOTORDRE(ALI).PRIS:=VARE.REELTAL(1)«, l3=0x2d}
0x1f33…1f40 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1f40…1f7a Line {l1=0x38, l2=» ELSE BEGIN IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x38}
0x1f7a…1fa7 Line {l1=0x2b, l2=» NEXTREC(RZ.H,FROR,RESTORD.A)«, l3=0x2b}
0x1fa7…1fb9 Line {l1=0x10, l2=» END«, l3=0x10}
0x1fb9…1fc4 Line {l1=0x09, l2=» END«, l3=0x09}
0x1fc4…1fce Line {l1=0x08, l2=» END;«, l3=0x08}
0x1fce…1ff9 Line {l1=0x29, l2=» IF (IER<>-2) AND (IER<>-9) THEN ERROR«, l3=0x29}
0x1ff9…2001 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2001…2008 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2008…203c Line {l1=0x32, l2=» FOR J:=1 TO 12 DO PLUORD.HEAD(J):=ORDRE.HEAD(J);«, l3=0x32}
0x203c…205e Line {l1=0x20, l2=» PLUORD.LINE(1):=ORDRE.LINE(1);«, l3=0x20}
0x205e…2080 Line {l1=0x20, l2=» PLUORD.LINE(2):=ORDRE.LINE(2);«, l3=0x20}
0x2080…2089 Line {l1=0x07, l2=» K:=0;«, l3=0x07}
0x2089…2093 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2093…20aa Line {l1=0x15, l2=» FOR J:=1 TO 15 DO«, l3=0x15}
0x20aa…20b5 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x20b5…20e1 Line {l1=0x2a, l2=» TOTORDRE(K*15+J):=ORDRE.ORDRELIN(J);«, l3=0x2a}
0x20e1…2117 Line {l1=0x34, l2=» IF TOTORDRE(K*15+J).VNR(1)<>0 THEN ALI:=K*15+J«, l3=0x34}
0x2117…2121 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2121…212e Line {l1=0x0b, l2=» K:=K+1;«, l3=0x0b}
0x212e…214b Line {l1=0x1b, l2=» SLUT:=ORDRE.HEAD(5)=99;«, l3=0x1b}
0x214b…216b Line {l1=0x1e, l2=» DELETE(OZ.H,FORD,ORDRE.A);«, l3=0x1e}
0x216b…217a Line {l1=0x0d, l2=» EOF:=IER;«, l3=0x0d}
0x217a…21b4 Line {l1=0x38, l2=» IF ((IER<>0) AND (IER<>-2) AND (IER<>-1)) THEN ERROR«, l3=0x38}
0x21b4…21c3 Line {l1=0x0d, l2=» UNTIL SLUT;«, l3=0x0d}
0x21c3…21d9 Line {l1=0x14, l2=» FOR J:=1 TO ALI DO«, l3=0x14}
0x21d9…21e2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x21e2…21ed Line {l1=0x09, l2=» K:=J;«, l3=0x09}
0x21ed…2207 Line {l1=0x18, l2=» FOR L:=J+1 TO ALI DO«, l3=0x18}
0x2207…2242 Line {l1=0x39, l2=» IF TOTORDRE(L).VNR(1)<TOTORDRE(K).VNR(1) THEN K:=L;«, l3=0x39}
0x2242…2254 Line {l1=0x10, l2=» IF K<>J THEN«, l3=0x10}
0x2254…225f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x225f…2279 Line {l1=0x18, l2=» OLIN:=TOTORDRE(J);«, l3=0x18}
0x2279…229a Line {l1=0x1f, l2=» TOTORDRE(J):=TOTORDRE(K);«, l3=0x1f}
0x229a…22b3 Line {l1=0x17, l2=» TOTORDRE(K):=OLIN«, l3=0x17}
0x22b3…22bc Line {l1=0x07, l2=» END«, l3=0x07}
0x22bc…22c4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x22c4…22d6 Line {l1=0x10, l2=» IF ALI<59 THEN«, l3=0x10}
0x22d6…22e4 Line {l1=0x0c, l2=» INDREST;«, l3=0x0c}
0x22e4…22ed Line {l1=0x07, l2=» K:=0;«, l3=0x07}
0x22ed…2303 Line {l1=0x14, l2=» PLUORD.HEAD(5):=1;«, l3=0x14}
0x2303…2319 Line {l1=0x14, l2=» FOR J:=1 TO ALI DO«, l3=0x14}
0x2319…2330 Line {l1=0x15, l2=» WITH TOTORDRE(J) DO«, l3=0x15}
0x2330…2345 Line {l1=0x13, l2=» IF VNR(1)<>1 THEN«, l3=0x13}
0x2345…234e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x234e…236b Line {l1=0x1b, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x1b}
0x236b…238a Line {l1=0x1d, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x1d}
0x238a…23b5 Line {l1=0x29, l2=» IF (IER<>-6) AND (IER<>0) THEN ERROR;«, l3=0x29}
0x23b5…23f4 Line {l1=0x3d, l2=» IF IER=-6 THEN WRITELN(LIST,VNR(1):9,' ':5,'FINDES IKKE')«, l3=0x3d}
0x23f4…23fe Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x23fe…2409 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2409…2418 Line {l1=0x0d, l2=» K:=K+1;«, l3=0x0d}
0x2418…242c Line {l1=0x12, l2=» IF K>15 THEN«, l3=0x12}
0x242c…2439 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2439…2448 Line {l1=0x0d, l2=» K:=1;«, l3=0x0d}
0x2448…2464 Line {l1=0x1a, l2=» IF NOT NOFIND THEN«, l3=0x1a}
0x2464…2489 Line {l1=0x23, l2=» INSERT(PZ.H,FPLU,PLUORD.A);«, l3=0x23}
0x2489…24b4 Line {l1=0x29, l2=» PLUORD.HEAD(5):=PLUORD.HEAD(5)+1;«, l3=0x29}
0x24b4…24d2 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x24d2…24de Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x24de…24f8 Line {l1=0x18, l2=» IF K=1 THEN HOVED;«, l3=0x18}
0x24f8…251d Line {l1=0x23, l2=» REST:=VNR(2)-VARE.REELTAL(4);«, l3=0x23}
0x251d…2533 Line {l1=0x14, l2=» IF REST>0 THEN«, l3=0x14}
0x2533…2540 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2540…255d Line {l1=0x1b, l2=» VARE.REELTAL(4):=0;«, l3=0x1b}
0x255d…2579 Line {l1=0x1a, l2=» VARE.REELTAL(7):=0«, l3=0x1a}
0x2579…2584 Line {l1=0x09, l2=» END«, l3=0x09}
0x2584…2590 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2590…259d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x259d…25af Line {l1=0x10, l2=» REST:=0;«, l3=0x10}
0x25af…25e1 Line {l1=0x30, l2=» VARE.REELTAL(4):=VARE.REELTAL(4)-VNR(2);«, l3=0x30}
0x25e1…260a Line {l1=0x27, l2=» IF VARE.REELTAL(7)>=VNR(2) THEN«, l3=0x27}
0x260a…263a Line {l1=0x2e, l2=» VARE.REELTAL(7):=VARE.REELTAL(7)-VNR(2)«, l3=0x2e}
0x263a…2647 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x2647…2655 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x2655…2698 Line {l1=0x41, l2=» VARE.REELTAL(9):=VARE.REELTAL(9)-VNR(2)+VARE.REELTAL(7);«, l3=0x41}
0x2698…26b5 Line {l1=0x1b, l2=» VARE.REELTAL(7):=0«, l3=0x1b}
0x26b5…26c1 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x26c1…26cd Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x26cd…26e6 Line {l1=0x17, l2=» LEV:=VNR(2)-REST;«, l3=0x17}
0x26e6…2726 Line {l1=0x3e, l2=» WRITELN(LIST,' ':3,VNR(1):6,LEV:6:-2,' ':3,VARE.NAVN(1),«, l3=0x3e}
0x2726…2764 Line {l1=0x3c, l2=» VARE.REELTAL(1)/100:10:2,VNR(2):10,REST:7:-2);«, l3=0x3c}
0x2764…278e Line {l1=0x28, l2=» PLUORD.ORDRELIN(K).VNR(1):=VNR(1);«, l3=0x28}
0x278e…27bc Line {l1=0x2c, l2=» PLUORD.ORDRELIN(K).VNR(2):=TRUNC(LEV);«, l3=0x2c}
0x27bc…27e6 Line {l1=0x28, l2=» PLUORD.ORDRELIN(K).VNR(3):=VNR(2);«, l3=0x28}
0x27e6…280c Line {l1=0x24, l2=» PLUORD.ORDRELIN(K).PRIS:=PRIS;«, l3=0x24}
0x280c…2826 Line {l1=0x18, l2=» IF NOT NOFIND THEN«, l3=0x18}
0x2826…2846 Line {l1=0x1e, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x1e}
0x2846…2850 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2850…2864 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x2864…2873 Line {l1=0x0d, l2=» ØL:=ØL+2;«, l3=0x0d}
0x2873…287a Line {l1=0x05, l2=» END«, l3=0x05}
0x287a…2882 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x2882…2896 Line {l1=0x12, l2=» IF VNR(1)=1 THEN«, l3=0x12}
0x2896…28b8 Line {l1=0x20, l2=» IF TOTORDRE(J+1).VNR(1)>0 THEN«, l3=0x20}
0x28b8…28c1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x28c1…28e9 Line {l1=0x26, l2=» WRITELN(LIST,' ':18,'Restordrer');«, l3=0x26}
0x28e9…28fd Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x28fd…290c Line {l1=0x0d, l2=» ØL:=ØL+2;«, l3=0x0d}
0x290c…291b Line {l1=0x0d, l2=» K:=K+1;«, l3=0x0d}
0x291b…292f Line {l1=0x12, l2=» IF K>15 THEN«, l3=0x12}
0x292f…293c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x293c…294b Line {l1=0x0d, l2=» K:=1;«, l3=0x0d}
0x294b…2967 Line {l1=0x1a, l2=» IF NOT NOFIND THEN«, l3=0x1a}
0x2967…298c Line {l1=0x23, l2=» INSERT(PZ.H,FPLU,PLUORD.A);«, l3=0x23}
0x298c…29b7 Line {l1=0x29, l2=» PLUORD.HEAD(5):=PLUORD.HEAD(5)+1;«, l3=0x29}
0x29b7…29d5 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x29d5…29e1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x29e1…29fb Line {l1=0x18, l2=» IF K=1 THEN HOVED;«, l3=0x18}
0x29fb…2a1e Line {l1=0x21, l2=» PLUORD.ORDRELIN(K).VNR(1):=1;«, l3=0x21}
0x2a1e…2a26 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2a26…2a5b Line {l1=0x33, l2=» FOR J:=K+1 TO 15 DO PLUORD.ORDRELIN(J).VNR(1):=0;«, l3=0x33}
0x2a5b…2a72 Line {l1=0x15, l2=» PLUORD.HEAD(5):=99;«, l3=0x15}
0x2a72…2a97 Line {l1=0x23, l2=» IF K>8 THEN BEGIN HOVED;K:=0 END;«, l3=0x23}
0x2a97…2aa0 Line {l1=0x07, l2=» BUND;«, l3=0x07}
0x2aa0…2aab Line {l1=0x09, l2=» K:=K+5;«, l3=0x09}
0x2aab…2ae0 Line {l1=0x33, l2=» FOR J:=K+1 TO 15 DO BEGIN WRITELN(LIST);ØL:=ØL+2;«, l3=0x33}
0x2ae0…2b10 Line {l1=0x2e, l2=» WRITELN(LIST) END;«, l3=0x2e}
0x2b10…2b26 Line {l1=0x14, l2=» IF NOT NOFIND THEN«, l3=0x14}
0x2b26…2b2f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b2f…2b3c Line {l1=0x0b, l2=» HOVED1;«, l3=0x0b}
0x2b3c…2b5c Line {l1=0x1e, l2=» INSERT(PZ.H,FPLU,PLUORD.A)«, l3=0x1e}
0x2b5c…2b64 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2b64…2b7c Line {l1=0x16, l2=» IF IER<>0 THEN ERROR«, l3=0x16}
0x2b7c…2b82 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b82…2bb6 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x2bb6…2bc6 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x2bc6…2bd3 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x2bd3…2bda Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2bda…2be5 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x2be5…2c0c Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x2c0c…2c24 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x2c24…2c3d Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x2c3d…2c55 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x2c55…2c72 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x2c72…2c78 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2c78…2c8d Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x2c8d…2ca8 Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x2ca8…2cbc Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x2cbc…2cd0 Line {l1=0x12, l2=» R1,R2:REAL;«, l3=0x12}
0x2cd0…2cd7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2cd7…2ce1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2ce1…2cec Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x2cec…2cfd Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x2cfd…2d0f Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2d0f…2d36 Line {l1=0x25, l2=» WRITELN('PAKKELISTEUDSKRIVNING');«, l3=0x25}
0x2d36…2d48 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x2d48…2d82 Line {l1=0x38, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');«, l3=0x38}
0x2d82…2d8e Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2d8e…2d9e Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x2d9e…2db2 Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x2db2…2dd9 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x2dd9…2dfc Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x2dfc…2e33 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x2e33…2e56 Line {l1=0x21, l2=» IF R=0.0 THEN EXIT(FINDKUND);«, l3=0x21}
0x2e56…2e62 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2e62…2e77 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x2e77…2e8c Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x2e8c…2e9b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2e9b…2eb3 Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x2eb3…2ee3 Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x2ee3…2ef5 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x2ef5…2f0e Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x2f0e…2f2c Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x2f2c…2f4e Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x2f4e…2f6c Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x2f6c…2f88 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x2f88…2fa4 Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x2fa4…2fc2 Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x2fc2…2fe8 Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x2fe8…301e Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x301e…305a Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x305a…306a Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x306a…3077 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3077…3085 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3085…3094 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3094…30bb Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x30bb…30f7 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x30f7…3127 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x3127…3168 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x3168…3175 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3175…3181 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x3181…318e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x318e…31b6 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x31b6…31ea Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x31ea…320d Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x320d…3219 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3219…322d Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x322d…323c Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x323c…3251 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x3251…325e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x325e…32a5 Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x32a5…32b7 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x32b7…32d8 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x32d8…32f9 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x32f9…3319 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x3319…332b Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x332b…3350 Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x3350…3385 Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x3385…33cd Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x33cd…341a Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='j') OR (SVAR1='n'));«, l3=0x4b}
0x341a…345b Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x345b…3466 Line {l1=0x09, l2=» END«, l3=0x09}
0x3466…3472 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x3472…3488 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x3488…3495 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3495…34a6 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x34a6…34c0 Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x34c0…34f9 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x34f9…3509 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x3509…3514 Line {l1=0x09, l2=» END«, l3=0x09}
0x3514…3526 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x3526…3537 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x3537…3566 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (R=0.0) OR (SVAR1='j')«, l3=0x2d}
0x3566…356c Line {l1=0x04, l2=»END;«, l3=0x04}
0x356c…3581 Line {l1=0x13, l2=»PROCEDURE FINDORDR;«, l3=0x13}
0x3581…3592 Line {l1=0x0f, l2=»VAR SVAR1:CHAR;«, l3=0x0f}
0x3592…35a0 Line {l1=0x0c, l2=» R1:REAL;«, l3=0x0c}
0x35a0…35a7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x35a7…35b7 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x35b7…3606 Line {l1=0x4d, l2=» WRITELN('INDTAST ORDRENR, 1 FOR OVERSIGT OVER KUNDENS ORDRER, 0 FOR STOP');«, l3=0x4d}
0x3606…3610 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3610…362f Line {l1=0x1d, l2=» GOTOXY(65,1);READLN;READ(R)«, l3=0x1d}
0x362f…3663 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (R<1000000.0) AND (R>=0);«, l3=0x32}
0x3663…3684 Line {l1=0x1f, l2=» IF R=0.0 THEN EXIT(FINDORDR);«, l3=0x1f}
0x3684…3695 Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x3695…369e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x369e…36b9 Line {l1=0x19, l2=» HEAD(1):=KUNDE.NR(1);«, l3=0x19}
0x36b9…36d4 Line {l1=0x19, l2=» HEAD(2):=KUNDE.NR(2);«, l3=0x19}
0x36d4…36e5 Line {l1=0x0f, l2=» IF R>1 THEN«, l3=0x0f}
0x36e5…36f0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x36f0…3710 Line {l1=0x1e, l2=» HEAD(3):=TRUNC(R/10000);«, l3=0x1e}
0x3710…373a Line {l1=0x28, l2=» HEAD(4):=TRUNC(R-HEAD(3)*10000.0);«, l3=0x28}
0x373a…374d Line {l1=0x11, l2=» HEAD(5):=0;«, l3=0x11}
0x374d…376a Line {l1=0x1b, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1b}
0x376a…37a2 Line {l1=0x36, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0;«, l3=0x36}
0x37a2…37bf Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x37bf…3803 Line {l1=0x42, l2=» IF (HEAD(3)*10000.0+HEAD(4)<>R) OR (HEAD(1)<>KUNDE.NR(1)) OR«, l3=0x42}
0x3803…382a Line {l1=0x25, l2=» (HEAD(2)<>KUNDE.NR(2)) THEN«, l3=0x25}
0x382a…3839 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3839…386e Line {l1=0x33, l2=» WRITELN('ORDREN FINDES IKKE, TRYK RETURN');«, l3=0x33}
0x386e…387f Line {l1=0x0f, l2=» READLN;«, l3=0x0f}
0x387f…388e Line {l1=0x0d, l2=» R:=-1«, l3=0x0d}
0x388e…38a6 Line {l1=0x16, l2=» END ELSE R:=-2«, l3=0x16}
0x38a6…38af Line {l1=0x07, l2=» END«, l3=0x07}
0x38af…38b9 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x38b9…38c4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x38c4…38ed Line {l1=0x27, l2=» HEAD(3):=0;HEAD(4):=0;HEAD(5):=0;«, l3=0x27}
0x38ed…38fb Line {l1=0x0c, l2=» R1:=0;«, l3=0x0c}
0x38fb…3909 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x3909…3928 Line {l1=0x1d, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1d}
0x3928…3962 Line {l1=0x38, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0;«, l3=0x38}
0x3962…3981 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x3981…39c3 Line {l1=0x40, l2=» IF (HEAD(1)<>KUNDE.NR(1)) OR (HEAD(2)<>KUNDE.NR(2)) THEN«, l3=0x40}
0x39c3…39d5 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x39d5…3a24 Line {l1=0x4d, l2=» WRITELN('KUNDEN HAR IKKE FLERE ORDRER I SYSTEMET, TRYK RETURN');«, l3=0x4d}
0x3a24…3a3f Line {l1=0x19, l2=» READLN;R:=-1«, l3=0x19}
0x3a3f…3a4f Line {l1=0x0e, l2=» END«, l3=0x0e}
0x3a4f…3a5d Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3a5d…3a8a Line {l1=0x2b, l2=» IF R1<>HEAD(3)*10000.0+HEAD(4) THEN«, l3=0x2b}
0x3a8a…3a99 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3a99…3ac1 Line {l1=0x26, l2=» R1:=HEAD(3)*10000.0+HEAD(4);«, l3=0x26}
0x3ac1…3ad9 Line {l1=0x16, l2=» GOTOXY(1,3);«, l3=0x16}
0x3ad9…3b13 Line {l1=0x38, l2=» WRITELN('ORDRENR:',R1:10:-2,' RIGTIGT (J/N)');«, l3=0x38}
0x3b13…3b25 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x3b25…3b3e Line {l1=0x17, l2=» GOTOXY(40,3);«, l3=0x17}
0x3b3e…3b5c Line {l1=0x1c, l2=» READLN;READ(SVAR1)«, l3=0x1c}
0x3b5c…3b9a Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N')«, l3=0x3c}
0x3b9a…3bdb Line {l1=0x3f, l2=» OR (SVAR1='j') OR (SVAR1='n'));«, l3=0x3f}
0x3bdb…3c0f Line {l1=0x32, l2=» IF (SVAR1='J') OR (SVAR1='j') THEN R:=-2«, l3=0x32}
0x3c0f…3c1c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3c1c…3c2e Line {l1=0x10, l2=» UNTIL R<0;«, l3=0x10}
0x3c2e…3c37 Line {l1=0x07, l2=» END«, l3=0x07}
0x3c37…3c3e Line {l1=0x05, l2=» END«, l3=0x05}
0x3c3e…3c44 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3c44…3c56 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x3c56…3c5d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3c5d…3c6e Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x3c6e…3cb3 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x3cb3…3ce3 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x3ce3…3d1c Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x3d1c…3d33 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x3d33…3d42 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x3d42…3d48 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3d48…3d4f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3d4f…3d5f Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3d5f…3d7e Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x3d7e…3d96 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x3d96…3dc6 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3dc6…3dc9 Line {l1=0x01, l2=» «, l3=0x01}
0x3dc9…3de8 Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x3de8…3e00 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x3e00…3e30 Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3e30…3e33 Line {l1=0x01, l2=» «, l3=0x01}
0x3e33…3e50 Line {l1=0x1b, l2=» FNAVN:='PLUOR:P2:0000:I';«, l3=0x1b}
0x3e50…3e68 Line {l1=0x16, l2=» REWRITE(FPLU,FNAVN);«, l3=0x16}
0x3e68…3e98 Line {l1=0x2e, l2=» IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3e98…3e9b Line {l1=0x01, l2=» «, l3=0x01}
0x3e9b…3eb6 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x3eb6…3ece Line {l1=0x16, l2=» RESET(SYSFIL,FNAVN);«, l3=0x16}
0x3ece…3ee1 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x3ee1…3ef1 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x3ef1…3ef4 Line {l1=0x01, l2=» «, l3=0x01}
0x3ef4…3f13 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x3f13…3f29 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x3f29…3f57 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x3f57…3f5a Line {l1=0x01, l2=» «, l3=0x01}
0x3f5a…3f79 Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x3f79…3f91 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x3f91…3fc1 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3fc1…3fde Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x3fde…3ff7 Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x3ff7…3ffa Line {l1=0x01, l2=» «, l3=0x01}
0x3ffa…4044 Line {l1=0x48, l2=» WRITELN('Pakkelistesider aktuelt :',PZ.H.RECINUSE:6,' Maksimalt :',«, l3=0x48}
0x4044…407b Line {l1=0x35, l2=» PZ.H.NREC:6);«, l3=0x35}
0x407b…408b Line {l1=0x0e, l2=» DELAY(1000);«, l3=0x0e}
0x408b…4095 Line {l1=0x08, l2=» ØL:=0;«, l3=0x08}
0x4095…4098 Line {l1=0x01, l2=» «, l3=0x01}
0x4098…40a2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x40a2…40b4 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x40b4…40db Line {l1=0x25, l2=» WRITELN('PAKKELISTEUDSKRIVNING');«, l3=0x25}
0x40db…4111 Line {l1=0x34, l2=» WRITELN('UGENR (0), ENKELTORDRE (1), STOP (2)');«, l3=0x34}
0x4111…4139 Line {l1=0x26, l2=» REPEAT GOTOXY(40,2);READLN;READ(I)«, l3=0x26}
0x4139…4168 Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=2);«, l3=0x2d}
0x4168…4179 Line {l1=0x0f, l2=» IF I=0 THEN«, l3=0x0f}
0x4179…4184 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4184…4191 Line {l1=0x0b, l2=» R:=1;«, l3=0x0b}
0x4191…41a5 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x41a5…41c5 Line {l1=0x1e, l2=» WRITELN('LEVERINGSUGE');«, l3=0x1e}
0x41c5…41ef Line {l1=0x28, l2=» REPEAT GOTOXY(15,1);READLN;READ(I)«, l3=0x28}
0x41ef…4221 Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=53);«, l3=0x30}
0x4221…4236 Line {l1=0x13, l2=» WITH ORDRE DO«, l3=0x13}
0x4236…4243 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4243…4269 Line {l1=0x24, l2=» FOR J:=1 TO 5 DO HEAD(J):=0;«, l3=0x24}
0x4269…4288 Line {l1=0x1d, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1d}
0x4288…42b4 Line {l1=0x2a, l2=» IF IER<>-1 THEN ERROR ELSE IER:=0;«, l3=0x2a}
0x42b4…42c4 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x42c4…4302 Line {l1=0x3c, l2=» WHILE (HEAD(6)<>I) AND (HEAD(6)<>0) AND (IER=0) DO«, l3=0x3c}
0x4302…4325 Line {l1=0x21, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x21}
0x4325…433a Line {l1=0x13, l2=» EOF:=IER;«, l3=0x13}
0x433a…4353 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x4353…4369 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x4369…4388 Line {l1=0x1d, l2=» NOFIND:=FALSE;«, l3=0x1d}
0x4388…43ae Line {l1=0x24, l2=» KUNDE.NR(1):=HEAD(1);«, l3=0x24}
0x43ae…43d4 Line {l1=0x24, l2=» KUNDE.NR(2):=HEAD(2);«, l3=0x24}
0x43d4…43ff Line {l1=0x29, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x29}
0x43ff…4435 Line {l1=0x34, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x34}
0x4435…4473 Line {l1=0x3c, l2=» IF IER=-6 THEN BEGIN IER:=0;NOFIND:=TRUE END;«, l3=0x3c}
0x4473…44a5 Line {l1=0x30, l2=» IF PZ.H.NREC-PZ.H.RECINUSE<4 THEN«, l3=0x30}
0x44a5…44bb Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x44bb…44fa Line {l1=0x3d, l2=» WRITELN('Ikke plads til flere pakkesedler');«, l3=0x3d}
0x44fa…4515 Line {l1=0x19, l2=» EOF:=-2;«, l3=0x19}
0x4515…452e Line {l1=0x17, l2=» R:=0.0«, l3=0x17}
0x452e…4542 Line {l1=0x12, l2=» END«, l3=0x12}
0x4542…4557 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x4557…456f Line {l1=0x16, l2=» PAKLIST«, l3=0x16}
0x456f…4583 Line {l1=0x12, l2=» END«, l3=0x12}
0x4583…459a Line {l1=0x15, l2=» UNTIL EOF<>0;«, l3=0x15}
0x459a…45ba Line {l1=0x1e, l2=» IF EOF<>-2 THEN ERROR;«, l3=0x1e}
0x45ba…45c5 Line {l1=0x09, l2=» END«, l3=0x09}
0x45c5…45ce Line {l1=0x07, l2=» END«, l3=0x07}
0x45ce…45d8 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x45d8…45e9 Line {l1=0x0f, l2=» IF I=1 THEN«, l3=0x0f}
0x45e9…45f4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x45f4…461d Line {l1=0x27, l2=» IF PZ.H.NREC-PZ.H.RECINUSE<4 THEN«, l3=0x27}
0x461d…462a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x462a…4660 Line {l1=0x34, l2=» WRITELN('Ikke plads til flere pakkesedler');«, l3=0x34}
0x4660…4672 Line {l1=0x10, l2=» EOF:=-2;«, l3=0x10}
0x4672…4682 Line {l1=0x0e, l2=» R:=0.0«, l3=0x0e}
0x4682…468d Line {l1=0x09, l2=» END«, l3=0x09}
0x468d…4699 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x4699…46aa Line {l1=0x0f, l2=» FINDKUND;«, l3=0x0f}
0x46aa…46ca Line {l1=0x1e, l2=» IF R<>0.0 THEN FINDORDR;«, l3=0x1e}
0x46ca…46e6 Line {l1=0x1a, l2=» IF R=-2 THEN PAKLIST«, l3=0x1a}
0x46e6…46ef Line {l1=0x07, l2=» END«, l3=0x07}
0x46ef…4700 Line {l1=0x0f, l2=» ELSE R:=0.0«, l3=0x0f}
0x4700…4710 Line {l1=0x0e, l2=» UNTIL R=0.0;«, l3=0x0e}
0x4710…4729 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x4729…4742 Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x4742…475b Line {l1=0x17, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x17}
0x475b…4774 Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x4774…478d Line {l1=0x17, l2=» ICLOSE(RZ.H,FROR);«, l3=0x17}
0x478d…47b6 Line {l1=0x27, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x27}
0x47b6…47bc Line {l1=0x04, l2=»END.«, l3=0x04}
0x47bc…47c0 00 00 00 00 ┆ ┆
0x47c0…47e0 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 ┆ ┆
[…0xdf…]