|
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: 17888 (0x45e0)
Types: TextFile
Notes: Mikados_K
Names: »ORDREVED.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »ORDREVED.K«
PROGRAM ORDREVEDLIGEHOLDELSE;
(*$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;
VLIN=RECORD
VNR,ANTAL:INTEGER;
PRIS:REAL;
NAVN:PACKED ARRAY(1:30) OF CHAR
END;
VAR FVAR,FORD,FKUN : ISF;
VZ:VZONE;
KZ:KZONE;
OZ:ORDZONE;
ORDRE:ORDREPOST;
VARE:VPOST;
KUNDE:KPOST;
SYSFIL:SYSFILE;
LIN:STRING(30);
QHEAD:ARRAY (6..12) OF INTEGER;
QLINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
FNAVN:STRING(20);
VARELIN:ARRAY (1..16) OF VLIN;
KNAVN:STRING(4);
SVAR1,SVAR3:CHAR;
RETTET,SRETTET:BOOLEAN;
IER,I,J,K,L,ALI
:INTEGER;
R,R1,R2 :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE1*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
CLOSE(FVAR);
ICLOSE(OZ.H,FORD);
CLOSE(FORD);
ICLOSE(KZ.H,FKUN);
CLOSE(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 VALI;
BEGIN
WITH VARELIN(J) DO
BEGIN
REPEAT
VNR:=-1;
GOTOXY(5,5+I);
READLN;READ(VNR)
UNTIL (IORESULT=0) AND (VNR>=0);
IF VNR=0 THEN EXIT(VALI);
REPEAT
ANTAL:=-1;
GOTOXY(16,5+I);
READLN;READ(ANTAL)
UNTIL (IORESULT=0) AND (ANTAL>0);
REPEAT
GOTOXY(25,5+I);
READLN;READ(PRIS)
UNTIL (IORESULT=0);
PRIS:=PRIS*100;
GOTOXY(21,5+I);
WRITELN(PRIS/100:10:2)
END
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 LINIE;
BEGIN
GOTOXY(1,5+I);
WRITELN(I:3);
J:=I;
VALI;
IF VARELIN(I).VNR=0 THEN
I:=17
ELSE
WITH VARELIN(I) DO
BEGIN
VARE.HELTAL(1):=VNR;
GETREC(VZ.H,FVAR,VARE.A);
IF IER=0 THEN
BEGIN
NAVN:=VARE.NAVN(1);
GOTOXY(40,5+I);
WRITELN(NAVN);
R:=VARE.REELTAL(1);
WHILE VARELIN(J).PRIS<>R DO
BEGIN
GOTOXY(27,7+I);
WRITELN('PRISEN STEMMER IKKE MED VAREREGISTRET, SOM SIGER ');
WRITELN(VNR:8,ANTAL:8,' ':4,R/100:10:2);
WRITELN('INDTAST IGEN');
I:=I+3;
J:=16;
VALI;
I:=I-3;
IF VNR<>VARELIN(J).VNR THEN
BEGIN
VARE.HELTAL(1):=VARELIN(J).VNR;
GETREC(VZ.H,FVAR,VARE.A);
IF IER=0 THEN
BEGIN
VARELIN(I):=VARELIN(J);
NAVN:=VARE.NAVN(1);
R:=VARE.REELTAL(1)
END
END
ELSE
BEGIN
VARELIN(J).NAVN:=NAVN;
GOTOXY(5,5+I);
IF VARELIN(I)=VARELIN(J) THEN R:=PRIS
ELSE VARELIN(I):=VARELIN(J);
END;
IF IER<>0 THEN R:=VARELIN(J).PRIS;
GOTOXY(5,5+I);
WRITELN(VNR:4,ANTAL:8,' ':4,PRIS/100:10:2,' ':9,NAVN);
WRITELN(' ':77);
WRITELN(' ':77);
WRITELN(' ':77);
WRITELN(' ':77);
END;
IF IER=0 THEN
WITH VARE DO
BEGIN
IF (HELTAL(5)>ORDRE.HEAD(6)) OR (HELTAL(5)<ORDRE.HEAD(6)-30)
OR (ORDRE.HEAD(6)=0) THEN
BEGIN
IF REELTAL(7)+ANTAL>REELTAL(4) THEN
BEGIN
REELTAL(9):=REELTAL(9)+ANTAL+REELTAL(7)-REELTAL(4);
REELTAL(7):=REELTAL(4)
END
ELSE REELTAL(7):=REELTAL(7)+ANTAL
END
ELSE REELTAL(9):=REELTAL(9)+ANTAL;
PUTREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR
END
END;
IF IER=-6 THEN
BEGIN
GOTOXY(40,5+I);
WRITELN('VARENUMMER EKSISTERER IKKE');
I:=I-1
END
ELSE IF IER<>0 THEN ERROR
END
END;
PROCEDURE FINDKUND;
VAR N1,N2,FIN:INTEGER;
SVAR1:CHAR;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('ORDREVEDLIGEHOLDELSE');
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'));
IF (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)
END;
PROCEDURE FINDORDR;
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'));
IF SVAR1='J' THEN R:=-2
END
UNTIL R<0;
END
END
END;
PROCEDURE RETBETINGELSER;
VAR J,I:INTEGER;
BEGIN
WITH ORDRE DO
BEGIN
RETTET:=FALSE;
REPEAT
CLEARSCREEN;
GOTOXY(1,1);
WRITELN('GÆLDENDE ORDRE-HOVED:');
GOTOXY(1,4);
WRITELN('1 LEVERING',HEAD(9):9);
WRITELN('2 BETALING',HEAD(10):9);
WRITELN('3 RESTORDRE',HEAD(11):8);
WRITELN('4 RABAT',HEAD(12):12);
WRITELN('5 ORDREDATO',HEAD(7)*10000.0+HEAD(8):8:-2);
WRITELN('6 LEVERINGSUGE',HEAD(6):5);
WRITELN('7 TEKST 1 ',LINE(1));
WRITELN('8 TEKST 2 ',LINE(2));
REPEAT
GOTOXY(1,13);
WRITELN('ÆNDRING, 0 FOR NEJ');
GOTOXY(20,13);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I<9) AND (I>=0);
IF I>0 THEN
BEGIN
RETTET:=TRUE;
CASE I OF
1,2,3,4: REPEAT GOTOXY(20,3+I);READLN;READ(HEAD(8+I))
UNTIL (IORESULT=0) AND (HEAD(8+I)<=99) AND (HEAD(8+I)>=0);
5: BEGIN
REPEAT
GOTOXY(20,8);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>800000.0) AND (R<850000.0);
HEAD(7):=TRUNC(R/10000);
HEAD(8):=TRUNC(R-HEAD(7)*10000.0)
END;
6: REPEAT GOTOXY(20,9);READLN;READ(HEAD(6))
UNTIL (IORESULT=0) AND (HEAD(6)>=0) AND (HEAD(6)<=53);
7,8: BEGIN
FOR J:=1 TO 30 DO LIN(J):=LINE(I-6,J);
GOTOXY(11,3+I);
EDIT(LIN:30);
FOR J:=1 TO 30 DO LINE(I-6,J):=LIN(J)
END
END;
END
UNTIL I=0;
FOR I:=6 TO 12 DO QHEAD(I):=HEAD(I);
FOR I:=1 TO 2 DO FOR J:=1 TO 30 DO QLINE(I,J):=LINE(I,J)
END
END;
PROCEDURE SLETORDR;
BEGIN
REPEAT
FOR I:=1 TO 15 DO
WITH ORDRE,VARE DO
IF ORDRELIN(I).VNR(1)<>0 THEN
BEGIN
HELTAL(1):=ORDRELIN(I).VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR;
IF (HELTAL(5)>HEAD(6)) OR (HELTAL(5)<HEAD(6)-30) OR (HEAD(6)=0) THEN
IF ORDRELIN(I).VNR(2)>REELTAL(7) THEN
BEGIN
REELTAL(9):=REELTAL(9)-ORDRELIN(I).VNR(2)+REELTAL(7);
REELTAL(7):=0
END
ELSE REELTAL(7):=REELTAL(7)-ORDRELIN(I).VNR(2)
ELSE REELTAL(9):=REELTAL(9)-ORDRELIN(I).VNR(2);
PUTREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR;
END;
L:=ORDRE.HEAD(5);
DELETE(OZ.H,FORD,ORDRE.A)
UNTIL L=99
END;
PROCEDURE RETSIDE;
VAR SVAR1:CHAR;
BEGIN
SRETTET:=FALSE;
GOTOXY(1,6+ALI);WRITELN;
REPEAT
FOR I:=1 TO ALI DO
WITH VARELIN(I) DO
BEGIN
GOTOXY(1,5+I);
WRITELN(I:3,VNR:5,ANTAL:8,' ':4,PRIS/100:10:2)
END;
REPEAT
GOTOXY(1,21);
WRITELN('Er ordresiden færdig (J/N)');
GOTOXY(28,21);
READLN;READ(SVAR1)
UNTIL (IORESULT=0) AND ((SVAR1='N') OR (SVAR1='J') OR (SVAR1='n') OR
(SVAR1='j'));
IF (SVAR1='J') OR (SVAR1='j') THEN EXIT(RETSIDE);
SRETTET:=TRUE;
GOTOXY(1,22);WRITELN('A: Tilføjelse B:Sletning');
REPEAT GOTOXY(35,22);READLN;READ(SVAR1)
UNTIL (IORESULT=0) AND ((SVAR1='A') OR (SVAR1='B'));
CASE SVAR1 OF
'A':IF ALI < 15 THEN
BEGIN
ALI:=ALI+1;
I:=ALI;
LINIE;
IF (I=17) OR (I=ALI-1) THEN ALI:=ALI-1
END
ELSE
BEGIN
GOTOXY(1,22);WRITELN('SIDEN ER FULD')
END;
'B':WITH VARE,ORDRE DO BEGIN
GOTOXY(1,23);
WRITELN('Linienummer');
REPEAT GOTOXY(15,23);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<=ALI);
HELTAL(1):=VARELIN(I).VNR;
GETREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR;
IF (HELTAL(5)>HEAD(6)) OR (HELTAL(5)<HEAD(6)-30) OR
(HEAD(6)=0) THEN
IF VARELIN(I).ANTAL>REELTAL(7) THEN
BEGIN
REELTAL(9):=REELTAL(9)-VARELIN(I).ANTAL+REELTAL(7);
REELTAL(7):=0
END
ELSE REELTAL(7):=REELTAL(7)-VARELIN(I).ANTAL
ELSE REELTAL(9):=REELTAL(9)-VARELIN(I).ANTAL;
PUTREC(VZ.H,FVAR,VARE.A);
IF IER<>0 THEN ERROR;
FOR J:=I TO ALI-1 DO VARELIN(J):=VARELIN(J+1);
GOTOXY(1,5+ALI);WRITELN(' ':77);
ALI:=ALI-1
END;
END;
UNTIL SVAR1='J'
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:='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;
LIN:='123456789012345678901234567890';
REPEAT
FINDKUND;
IF R<>0.0 THEN
FINDORDR;
IF R=-2 THEN
WITH ORDRE DO
BEGIN
RETTET:=FALSE;SRETTET:=FALSE;
L:=0;
CLEARSCREEN;
WRITELN('SKAL ORDREN SLETTES (J/N)');
REPEAT
GOTOXY(30,1);READLN;READ(SVAR1)
UNTIL (IORESULT=0) AND ((SVAR1='N') OR (SVAR1='J'));
IF SVAR1='N' THEN
BEGIN
CLEARSCREEN;
GOTOXY(1,1);WRITELN('ÆNDRINGER I ORDRE-HOVED (J/N)');
REPEAT
GOTOXY(30,1);READLN;READ(SVAR1)
UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N'));
IF SVAR1='J' THEN RETBETINGELSER;
REPEAT
CLEARSCREEN;
WRITELN('ORDREVEDLIGEHOLDELSE');
WRITELN;
WRITELN(KUNDE.NAVN(1),' ':4,'Ordredato:',HEAD(7)*10000.0+HEAD(8):8:-2,
'Leveringsuge':20,HEAD(6):3);
WRITELN(' ':77);
WRITELN(' Varenummer','Antal':8,'Pris':10,'Tekst':14);
ALI:=0;
FOR I:=1 TO 15 DO
WITH ORDRELIN(I) DO
BEGIN
VARELIN(I).VNR:=VNR(1);
VARELIN(I).ANTAL:=VNR(2);
VARELIN(I).PRIS:=PRIS;
FILLCHAR(VARELIN(I).NAVN,30,' ');
IF VNR(1)<>0 THEN ALI:=I
END;
RETSIDE;
(*ORDREN TIL ORDREREGISTRET*)
IF (SRETTET OR RETTET) THEN
BEGIN
FOR I:=1 TO 15 DO
WITH ORDRELIN(I) DO
BEGIN
IF I<= ALI THEN
BEGIN
VNR(1):=VARELIN(I).VNR;
VNR(2):=VARELIN(I).ANTAL;
PRIS:=VARELIN(I).PRIS
END
ELSE VNR(1):=0
END;
PUTREC(OZ.H,FORD,A);
END;
IF HEAD(5)<99 THEN
BEGIN
L:=HEAD(5);
NEXTREC(OZ.H,FORD,A);
IF RETTET THEN
BEGIN
FOR I:=6 TO 12 DO HEAD(I):=QHEAD(I);
FOR I:=1 TO 2 DO FOR J:=1 TO 30 DO LINE(I,J):=QLINE(I,J)
END
END
ELSE
BEGIN
IF L<3 THEN
BEGIN
CLEARSCREEN;
WRITELN('SKAL DER OPRETTES EN NY SIDE (J/N)');
REPEAT
GOTOXY(40,1);READLN;READ(SVAR1)
UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N'));
IF SVAR1='J' THEN
BEGIN
HEAD(5):=L+1;
INSERT(OZ.H,FORD,A);
IF IER<>0 THEN ERROR;
HEAD(5):=99;
FOR I:=1 TO 15 DO ORDRELIN(I).VNR(1):=0;
PUTREC(OZ.H,FORD,A);
IF IER<>0 THEN ERROR;
L:=L+1
END ELSE L:=99
END ELSE L:=99
END
UNTIL L=99;
END ELSE SLETORDR
END
UNTIL R=0.0;
ICLOSE(OZ.H,FORD);
CLOSE(FORD);
ICLOSE(KZ.H,FKUN);
CLOSE(FKUN);
ICLOSE(VZ.H,FVAR);
CLOSE(FVAR);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…001f Line {l1=0x1d, l2=»PROGRAM ORDREVEDLIGEHOLDELSE;«, l3=0x1d}
0x001f…002f Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x002f…003e Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x003e…0054 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0054…007e Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x007e…00c7 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00c7…00e8 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00e8…0123 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0123…0144 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0144…016c Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x016c…01b2 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01b2…01f6 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01f6…01fe Line {l1=0x06, l2=» END;«, l3=0x06}
0x01fe…020f Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x020f…0236 Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x0236…024f Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x024f…0263 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0263…026b Line {l1=0x06, l2=» END;«, l3=0x06}
0x026b…0280 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x0280…028f Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x028f…0294 Line {l1=0x03, l2=» (*«, l3=0x03}
0x0294…02a8 Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x02a8…02ba Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x02ba…02c9 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x02c9…030d Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x030d…0335 Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x0335…0371 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0371…039c Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x039c…03a4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03a4…03b2 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x03b2…03c0 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03c0…03e5 Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x03e5…0421 Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0421…044f Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x044f…047c Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x047c…04a6 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x04a6…04cc Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x04cc…04d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04d2…04e2 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04e2…04f2 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x04f2…04fc Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x04fc…0507 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0507…0516 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0516…0524 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x0524…0534 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x0534…0576 Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x40}
0x0576…0594 Line {l1=0x1c, l2=» KGB: ARRAY (1..5) OF REAL;«, l3=0x1c}
0x0594…05bd Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x05bd…0604 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x0604…060a Line {l1=0x04, l2=»END;«, l3=0x04}
0x060a…0624 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0624…0634 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0634…0648 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0648…066c Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x066c…0674 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0674…0685 Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x0685…0699 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0699…06bd Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x06bd…06c5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x06c5…06d3 Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x06d3…06e6 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x06e6…0709 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x0709…070f Line {l1=0x04, l2=»END;«, l3=0x04}
0x070f…0713 Line {l1=0x02, l2=» «, l3=0x02}
0x0713…0720 Line {l1=0x0b, l2=»VLIN=RECORD«, l3=0x0b}
0x0720…073b Line {l1=0x19, l2=» VNR,ANTAL:INTEGER;«, l3=0x19}
0x073b…074e Line {l1=0x11, l2=» PRIS:REAL;«, l3=0x11}
0x074e…0776 Line {l1=0x26, l2=» NAVN:PACKED ARRAY(1:30) OF CHAR«, l3=0x26}
0x0776…077c Line {l1=0x04, l2=»END;«, l3=0x04}
0x077c…0780 Line {l1=0x02, l2=» «, l3=0x02}
[…0x2…]
0x0788…07ac Line {l1=0x22, l2=» VAR FVAR,FORD,FKUN : ISF;«, l3=0x22}
0x07ac…07bf Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x07bf…07d2 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x07d2…07e7 Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x07e7…0801 Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x0801…0816 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0816…082c Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x082c…0845 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0845…085e Line {l1=0x17, l2=» LIN:STRING(30);«, l3=0x17}
0x085e…0887 Line {l1=0x27, l2=» QHEAD:ARRAY (6..12) OF INTEGER;«, l3=0x27}
0x0887…08c4 Line {l1=0x3b, l2=» QLINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3b}
0x08c4…08df Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x08df…0907 Line {l1=0x26, l2=» VARELIN:ARRAY (1..16) OF VLIN;«, l3=0x26}
0x0907…0921 Line {l1=0x18, l2=» KNAVN:STRING(4);«, l3=0x18}
0x0921…0936 Line {l1=0x13, l2=» SVAR1,SVAR3:CHAR;«, l3=0x13}
0x0936…0956 Line {l1=0x1e, l2=» RETTET,SRETTET:BOOLEAN;«, l3=0x1e}
0x0956…096f Line {l1=0x17, l2=» IER,I,J,K,L,ALI«, l3=0x17}
0x096f…0992 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0992…09b2 Line {l1=0x1e, l2=» R,R1,R2 :REAL;«, l3=0x1e}
0x09b2…09c9 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x09c9…09d2 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x09d2…09e6 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x09e6…09f4 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x09f4…0a02 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0a02…0a13 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0a13…0a24 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0a24…0a34 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0a34…0a44 Line {l1=0x0e, l2=» (*$IICLOSE1*)«, l3=0x0e}
0x0a44…0a53 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0a53…0a62 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0a62…0a72 Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x0a72…0a81 Line {l1=0x0d, l2=» (*$IDELETE*)«, l3=0x0d}
0x0a81…0a8b Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x0a8b…0a94 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0a94…0aa7 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0aa7…0aaf Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0aaf…0ad4 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0ad4…0aeb Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0aeb…0afc Line {l1=0x0f, l2=» CLOSE(FVAR);«, l3=0x0f}
0x0afc…0b13 Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0b13…0b24 Line {l1=0x0f, l2=» CLOSE(FORD);«, l3=0x0f}
0x0b24…0b3b Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0b3b…0b4c Line {l1=0x0f, l2=» CLOSE(FKUN);«, l3=0x0f}
0x0b4c…0b68 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0b68…0b77 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0b77…0b7e Line {l1=0x05, l2=» END;«, l3=0x05}
0x0b7e…0b90 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0b90…0b97 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b97…0ba8 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0ba8…0bed Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0bed…0c1d Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0c1d…0c56 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0c56…0c6d Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0c6d…0c7c Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0c7c…0c82 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c82…0c93 Line {l1=0x0f, l2=»PROCEDURE VALI;«, l3=0x0f}
0x0c93…0c9a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c9a…0cb0 Line {l1=0x14, l2=» WITH VARELIN(J) DO«, l3=0x14}
0x0cb0…0cb9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0cb9…0cc3 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0cc3…0cd1 Line {l1=0x0c, l2=» VNR:=-1;«, l3=0x0c}
0x0cd1…0ce5 Line {l1=0x12, l2=» GOTOXY(5,5+I);«, l3=0x12}
0x0ce5…0cfb Line {l1=0x14, l2=» READLN;READ(VNR)«, l3=0x14}
0x0cfb…0d1f Line {l1=0x22, l2=» UNTIL (IORESULT=0) AND (VNR>=0);«, l3=0x22}
0x0d1f…0d3c Line {l1=0x1b, l2=» IF VNR=0 THEN EXIT(VALI);«, l3=0x1b}
0x0d3c…0d46 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0d46…0d56 Line {l1=0x0e, l2=» ANTAL:=-1;«, l3=0x0e}
0x0d56…0d6b Line {l1=0x13, l2=» GOTOXY(16,5+I);«, l3=0x13}
0x0d6b…0d83 Line {l1=0x16, l2=» READLN;READ(ANTAL)«, l3=0x16}
0x0d83…0da8 Line {l1=0x23, l2=» UNTIL (IORESULT=0) AND (ANTAL>0);«, l3=0x23}
0x0da8…0db2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0db2…0dc7 Line {l1=0x13, l2=» GOTOXY(25,5+I);«, l3=0x13}
0x0dc7…0dde Line {l1=0x15, l2=» READLN;READ(PRIS)«, l3=0x15}
0x0dde…0df5 Line {l1=0x15, l2=» UNTIL (IORESULT=0);«, l3=0x15}
0x0df5…0e08 Line {l1=0x11, l2=» PRIS:=PRIS*100;«, l3=0x11}
0x0e08…0e1b Line {l1=0x11, l2=» GOTOXY(21,5+I);«, l3=0x11}
0x0e1b…0e35 Line {l1=0x18, l2=» WRITELN(PRIS/100:10:2)«, l3=0x18}
0x0e35…0e3c Line {l1=0x05, l2=» END«, l3=0x05}
0x0e3c…0e42 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e42…0e76 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x0e76…0e86 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0e86…0e93 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0e93…0e9a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e9a…0ea5 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0ea5…0ecc Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0ecc…0ee4 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0ee4…0efd Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x0efd…0f15 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0f15…0f32 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0f32…0f38 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f38…0f4a Line {l1=0x10, l2=»PROCEDURE LINIE;«, l3=0x10}
0x0f4a…0f51 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f51…0f63 Line {l1=0x10, l2=» GOTOXY(1,5+I);«, l3=0x10}
0x0f63…0f74 Line {l1=0x0f, l2=» WRITELN(I:3);«, l3=0x0f}
0x0f74…0f7d Line {l1=0x07, l2=» J:=I;«, l3=0x07}
0x0f7d…0f86 Line {l1=0x07, l2=» VALI;«, l3=0x07}
0x0f86…0fa2 Line {l1=0x1a, l2=» IF VARELIN(I).VNR=0 THEN«, l3=0x1a}
0x0fa2…0fb0 Line {l1=0x0c, l2=» I:=17«, l3=0x0c}
0x0fb0…0fb8 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x0fb8…0fce Line {l1=0x14, l2=» WITH VARELIN(I) DO«, l3=0x14}
0x0fce…0fd7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0fd7…0ff1 Line {l1=0x18, l2=» VARE.HELTAL(1):=VNR;«, l3=0x18}
0x0ff1…1010 Line {l1=0x1d, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x1d}
0x1010…1023 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x1023…102e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x102e…1049 Line {l1=0x19, l2=» NAVN:=VARE.NAVN(1);«, l3=0x19}
0x1049…1060 Line {l1=0x15, l2=» GOTOXY(40,5+I);«, l3=0x15}
0x1060…1076 Line {l1=0x14, l2=» WRITELN(NAVN);«, l3=0x14}
0x1076…1091 Line {l1=0x19, l2=» R:=VARE.REELTAL(1);«, l3=0x19}
0x1091…10b4 Line {l1=0x21, l2=» WHILE VARELIN(J).PRIS<>R DO«, l3=0x21}
0x10b4…10c1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x10c1…10da Line {l1=0x17, l2=» GOTOXY(27,7+I);«, l3=0x17}
0x10da…1121 Line {l1=0x45, l2=» WRITELN('PRISEN STEMMER IKKE MED VAREREGISTRET, SOM SIGER ');«, l3=0x45}
0x1121…1153 Line {l1=0x30, l2=» WRITELN(VNR:8,ANTAL:8,' ':4,R/100:10:2);«, l3=0x30}
0x1153…1175 Line {l1=0x20, l2=» WRITELN('INDTAST IGEN');«, l3=0x20}
0x1175…1186 Line {l1=0x0f, l2=» I:=I+3;«, l3=0x0f}
0x1186…1196 Line {l1=0x0e, l2=» J:=16;«, l3=0x0e}
0x1196…11a5 Line {l1=0x0d, l2=» VALI;«, l3=0x0d}
0x11a5…11b6 Line {l1=0x0f, l2=» I:=I-3;«, l3=0x0f}
0x11b6…11db Line {l1=0x23, l2=» IF VNR<>VARELIN(J).VNR THEN«, l3=0x23}
0x11db…11ea Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x11ea…1215 Line {l1=0x29, l2=» VARE.HELTAL(1):=VARELIN(J).VNR;«, l3=0x29}
0x1215…123a Line {l1=0x23, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x23}
0x123a…1253 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x1253…1264 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1264…1289 Line {l1=0x23, l2=» VARELIN(I):=VARELIN(J);«, l3=0x23}
0x1289…12aa Line {l1=0x1f, l2=» NAVN:=VARE.NAVN(1);«, l3=0x1f}
0x12aa…12ca Line {l1=0x1e, l2=» R:=VARE.REELTAL(1)«, l3=0x1e}
0x12ca…12d9 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x12d9…12e6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x12e6…12f4 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x12f4…1303 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1303…1325 Line {l1=0x20, l2=» VARELIN(J).NAVN:=NAVN;«, l3=0x20}
0x1325…133f Line {l1=0x18, l2=» GOTOXY(5,5+I);«, l3=0x18}
0x133f…1370 Line {l1=0x2f, l2=» IF VARELIN(I)=VARELIN(J) THEN R:=PRIS«, l3=0x2f}
0x1370…139b Line {l1=0x29, l2=» ELSE VARELIN(I):=VARELIN(J);«, l3=0x29}
0x139b…13a9 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x13a9…13d5 Line {l1=0x2a, l2=» IF IER<>0 THEN R:=VARELIN(J).PRIS;«, l3=0x2a}
0x13d5…13ed Line {l1=0x16, l2=» GOTOXY(5,5+I);«, l3=0x16}
0x13ed…142d Line {l1=0x3e, l2=» WRITELN(VNR:4,ANTAL:8,' ':4,PRIS/100:10:2,' ':9,NAVN);«, l3=0x3e}
0x142d…1447 Line {l1=0x18, l2=» WRITELN(' ':77);«, l3=0x18}
[…0x3…]
0x1495…14a1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x14a1…14b6 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x14b6…14ca Line {l1=0x12, l2=» WITH VARE DO«, l3=0x12}
0x14ca…14d7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x14d7…151d Line {l1=0x44, l2=» IF (HELTAL(5)>ORDRE.HEAD(6)) OR (HELTAL(5)<ORDRE.HEAD(6)-30)«, l3=0x44}
0x151d…1544 Line {l1=0x25, l2=» OR (ORDRE.HEAD(6)=0) THEN«, l3=0x25}
0x1544…1553 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1553…1582 Line {l1=0x2d, l2=» IF REELTAL(7)+ANTAL>REELTAL(4) THEN«, l3=0x2d}
0x1582…1593 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1593…15d4 Line {l1=0x3f, l2=» REELTAL(9):=REELTAL(9)+ANTAL+REELTAL(7)-REELTAL(4);«, l3=0x3f}
0x15d4…15f8 Line {l1=0x22, l2=» REELTAL(7):=REELTAL(4)«, l3=0x22}
0x15f8…1607 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1607…1634 Line {l1=0x2b, l2=» ELSE REELTAL(7):=REELTAL(7)+ANTAL«, l3=0x2b}
0x1634…1641 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1641…166d Line {l1=0x2a, l2=» ELSE REELTAL(9):=REELTAL(9)+ANTAL;«, l3=0x2a}
0x166d…1690 Line {l1=0x21, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x1690…16ae Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x16ae…16b9 Line {l1=0x09, l2=» END«, l3=0x09}
0x16b9…16c3 Line {l1=0x08, l2=» END;«, l3=0x08}
0x16c3…16d7 Line {l1=0x12, l2=» IF IER=-6 THEN«, l3=0x12}
0x16d7…16e2 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x16e2…16f9 Line {l1=0x15, l2=» GOTOXY(40,5+I);«, l3=0x15}
0x16f9…1727 Line {l1=0x2c, l2=» WRITELN('VARENUMMER EKSISTERER IKKE');«, l3=0x2c}
0x1727…1735 Line {l1=0x0c, l2=» I:=I-1«, l3=0x0c}
0x1735…173e Line {l1=0x07, l2=» END«, l3=0x07}
0x173e…175d Line {l1=0x1d, l2=» ELSE IF IER<>0 THEN ERROR«, l3=0x1d}
0x175d…1764 Line {l1=0x05, l2=» END«, l3=0x05}
0x1764…176a Line {l1=0x04, l2=»END;«, l3=0x04}
0x176a…177f Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x177f…179a Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x179a…17ae Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x17ae…17b5 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x17b5…17bf Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x17bf…17ca Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x17ca…17db Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x17db…17ed Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x17ed…1813 Line {l1=0x24, l2=» WRITELN('ORDREVEDLIGEHOLDELSE');«, l3=0x24}
0x1813…1825 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x1825…185f Line {l1=0x38, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');«, l3=0x38}
0x185f…186b Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x186b…187b Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x187b…188f Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x188f…18b6 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x18b6…18d9 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x18d9…1910 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x1910…1933 Line {l1=0x21, l2=» IF R=0.0 THEN EXIT(FINDKUND);«, l3=0x21}
0x1933…193f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x193f…1954 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x1954…1969 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x1969…1978 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1978…1990 Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x1990…19c0 Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x19c0…19d2 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x19d2…19eb Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x19eb…1a09 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x1a09…1a2b Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x1a2b…1a49 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x1a49…1a65 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x1a65…1a81 Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x1a81…1a9f Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x1a9f…1ac5 Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x1ac5…1afb Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x1afb…1b37 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x1b37…1b47 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x1b47…1b54 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1b54…1b62 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1b62…1b71 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1b71…1b98 Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x1b98…1bd4 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x1bd4…1c04 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x1c04…1c45 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x1c45…1c52 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1c52…1c5e Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1c5e…1c6b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1c6b…1c93 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x1c93…1cc7 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x1cc7…1cea Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x1cea…1cf6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1cf6…1d0a Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x1d0a…1d19 Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x1d19…1d2e Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1d2e…1d3b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1d3b…1d82 Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x1d82…1d94 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1d94…1db5 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x1db5…1dd6 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x1dd6…1df6 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x1df6…1e08 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1e08…1e2d Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x1e2d…1e62 Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x1e62…1eaa Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x1eaa…1ed9 Line {l1=0x2d, l2=» ((SVAR1='J') OR (SVAR1='N'));«, l3=0x2d}
0x1ed9…1f09 Line {l1=0x2e, l2=» IF (SVAR1='N') AND (R=1.0) THEN FIN:=0«, l3=0x2e}
0x1f09…1f14 Line {l1=0x09, l2=» END«, l3=0x09}
0x1f14…1f20 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1f20…1f36 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x1f36…1f43 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1f43…1f54 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x1f54…1f6e Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x1f6e…1fa7 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x1fa7…1fb7 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x1fb7…1fc2 Line {l1=0x09, l2=» END«, l3=0x09}
0x1fc2…1fd4 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x1fd4…1fe5 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x1fe5…2005 Line {l1=0x1e, l2=» UNTIL (SVAR1='J') OR (R=0.0)«, l3=0x1e}
0x2005…200b Line {l1=0x04, l2=»END;«, l3=0x04}
0x200b…2020 Line {l1=0x13, l2=»PROCEDURE FINDORDR;«, l3=0x13}
0x2020…2027 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2027…2037 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2037…2086 Line {l1=0x4d, l2=» WRITELN('INDTAST ORDRENR, 1 FOR OVERSIGT OVER KUNDENS ORDRER, 0 FOR STOP');«, l3=0x4d}
0x2086…2090 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2090…20af Line {l1=0x1d, l2=» GOTOXY(65,1);READLN;READ(R)«, l3=0x1d}
0x20af…20e3 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (R<1000000.0) AND (R>=0);«, l3=0x32}
0x20e3…2104 Line {l1=0x1f, l2=» IF R=0.0 THEN EXIT(FINDORDR);«, l3=0x1f}
0x2104…2115 Line {l1=0x0f, l2=» WITH ORDRE DO«, l3=0x0f}
0x2115…211e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x211e…2139 Line {l1=0x19, l2=» HEAD(1):=KUNDE.NR(1);«, l3=0x19}
0x2139…2154 Line {l1=0x19, l2=» HEAD(2):=KUNDE.NR(2);«, l3=0x19}
0x2154…2165 Line {l1=0x0f, l2=» IF R>1 THEN«, l3=0x0f}
0x2165…2170 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2170…2190 Line {l1=0x1e, l2=» HEAD(3):=TRUNC(R/10000);«, l3=0x1e}
0x2190…21ba Line {l1=0x28, l2=» HEAD(4):=TRUNC(R-HEAD(3)*10000.0);«, l3=0x28}
0x21ba…21cd Line {l1=0x11, l2=» HEAD(5):=0;«, l3=0x11}
0x21cd…21ea Line {l1=0x1b, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1b}
0x21ea…2222 Line {l1=0x36, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0;«, l3=0x36}
0x2222…223f Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x223f…2283 Line {l1=0x42, l2=» IF (HEAD(3)*10000.0+HEAD(4)<>R) OR (HEAD(1)<>KUNDE.NR(1)) OR«, l3=0x42}
0x2283…22aa Line {l1=0x25, l2=» (HEAD(2)<>KUNDE.NR(2)) THEN«, l3=0x25}
0x22aa…22b9 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x22b9…22ee Line {l1=0x33, l2=» WRITELN('ORDREN FINDES IKKE, TRYK RETURN');«, l3=0x33}
0x22ee…22ff Line {l1=0x0f, l2=» READLN;«, l3=0x0f}
0x22ff…230e Line {l1=0x0d, l2=» R:=-1«, l3=0x0d}
0x230e…2326 Line {l1=0x16, l2=» END ELSE R:=-2«, l3=0x16}
0x2326…232f Line {l1=0x07, l2=» END«, l3=0x07}
0x232f…2339 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2339…2344 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2344…236d Line {l1=0x27, l2=» HEAD(3):=0;HEAD(4):=0;HEAD(5):=0;«, l3=0x27}
0x236d…237b Line {l1=0x0c, l2=» R1:=0;«, l3=0x0c}
0x237b…2389 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2389…23a8 Line {l1=0x1d, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1d}
0x23a8…23e2 Line {l1=0x38, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0;«, l3=0x38}
0x23e2…2401 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x2401…2443 Line {l1=0x40, l2=» IF (HEAD(1)<>KUNDE.NR(1)) OR (HEAD(2)<>KUNDE.NR(2)) THEN«, l3=0x40}
0x2443…2455 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x2455…24a4 Line {l1=0x4d, l2=» WRITELN('KUNDEN HAR IKKE FLERE ORDRER I SYSTEMET, TRYK RETURN');«, l3=0x4d}
0x24a4…24bf Line {l1=0x19, l2=» READLN;R:=-1«, l3=0x19}
0x24bf…24cf Line {l1=0x0e, l2=» END«, l3=0x0e}
0x24cf…24dd Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x24dd…250a Line {l1=0x2b, l2=» IF R1<>HEAD(3)*10000.0+HEAD(4) THEN«, l3=0x2b}
0x250a…2519 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2519…2541 Line {l1=0x26, l2=» R1:=HEAD(3)*10000.0+HEAD(4);«, l3=0x26}
0x2541…2559 Line {l1=0x16, l2=» GOTOXY(1,3);«, l3=0x16}
0x2559…2593 Line {l1=0x38, l2=» WRITELN('ORDRENR:',R1:10:-2,' RIGTIGT (J/N)');«, l3=0x38}
0x2593…25a5 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x25a5…25be Line {l1=0x17, l2=» GOTOXY(40,3);«, l3=0x17}
0x25be…25dc Line {l1=0x1c, l2=» READLN;READ(SVAR1)«, l3=0x1c}
0x25dc…261c Line {l1=0x3e, l2=» UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N'));«, l3=0x3e}
0x261c…263f Line {l1=0x21, l2=» IF SVAR1='J' THEN R:=-2«, l3=0x21}
0x263f…264c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x264c…265e Line {l1=0x10, l2=» UNTIL R<0;«, l3=0x10}
0x265e…2667 Line {l1=0x07, l2=» END«, l3=0x07}
0x2667…266e Line {l1=0x05, l2=» END«, l3=0x05}
0x266e…2674 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2674…268f Line {l1=0x19, l2=»PROCEDURE RETBETINGELSER;«, l3=0x19}
0x268f…26a1 Line {l1=0x10, l2=»VAR J,I:INTEGER;«, l3=0x10}
0x26a1…26a8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26a8…26b7 Line {l1=0x0d, l2=»WITH ORDRE DO«, l3=0x0d}
0x26b7…26be Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26be…26d0 Line {l1=0x10, l2=» RETTET:=FALSE;«, l3=0x10}
0x26d0…26da Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x26da…26ec Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x26ec…26fe Line {l1=0x10, l2=» GOTOXY(1,1);«, l3=0x10}
0x26fe…2725 Line {l1=0x25, l2=» WRITELN('GÆLDENDE ORDRE-HOVED:');«, l3=0x25}
0x2725…2737 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x2737…275d Line {l1=0x24, l2=» WRITELN('1 LEVERING',HEAD(9):9);«, l3=0x24}
0x275d…2784 Line {l1=0x25, l2=» WRITELN('2 BETALING',HEAD(10):9);«, l3=0x25}
0x2784…27ac Line {l1=0x26, l2=» WRITELN('3 RESTORDRE',HEAD(11):8);«, l3=0x26}
0x27ac…27d1 Line {l1=0x23, l2=» WRITELN('4 RABAT',HEAD(12):12);«, l3=0x23}
0x27d1…280b Line {l1=0x38, l2=» WRITELN('5 ORDREDATO',HEAD(7)*10000.0+HEAD(8):8:-2);«, l3=0x38}
0x280b…2835 Line {l1=0x28, l2=» WRITELN('6 LEVERINGSUGE',HEAD(6):5);«, l3=0x28}
0x2835…2859 Line {l1=0x22, l2=» WRITELN('7 TEKST 1 ',LINE(1));«, l3=0x22}
0x2859…287d Line {l1=0x22, l2=» WRITELN('8 TEKST 2 ',LINE(2));«, l3=0x22}
0x287d…2889 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2889…289e Line {l1=0x13, l2=» GOTOXY(1,13);«, l3=0x13}
0x289e…28c4 Line {l1=0x24, l2=» WRITELN('ÆNDRING, 0 FOR NEJ');«, l3=0x24}
0x28c4…28da Line {l1=0x14, l2=» GOTOXY(20,13);«, l3=0x14}
0x28da…28f0 Line {l1=0x14, l2=» READLN;READ(I)«, l3=0x14}
0x28f0…291e Line {l1=0x2c, l2=» UNTIL (IORESULT=0) AND (I<9) AND (I>=0);«, l3=0x2c}
0x291e…292f Line {l1=0x0f, l2=» IF I>0 THEN«, l3=0x0f}
0x292f…293a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x293a…294d Line {l1=0x11, l2=» RETTET:=TRUE;«, l3=0x11}
0x294d…295c Line {l1=0x0d, l2=» CASE I OF«, l3=0x0d}
0x295c…2993 Line {l1=0x35, l2=»1,2,3,4: REPEAT GOTOXY(20,3+I);READLN;READ(HEAD(8+I))«, l3=0x35}
0x2993…29d8 Line {l1=0x43, l2=» UNTIL (IORESULT=0) AND (HEAD(8+I)<=99) AND (HEAD(8+I)>=0);«, l3=0x43}
0x29d8…29e8 Line {l1=0x0e, l2=» 5: BEGIN«, l3=0x0e}
0x29e8…29fb Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x29fb…2a25 Line {l1=0x28, l2=» GOTOXY(20,8);READLN;READ(R)«, l3=0x28}
0x2a25…2a67 Line {l1=0x40, l2=» UNTIL (IORESULT=0) AND (R>800000.0) AND (R<850000.0);«, l3=0x40}
0x2a67…2a8c Line {l1=0x23, l2=» HEAD(7):=TRUNC(R/10000);«, l3=0x23}
0x2a8c…2aba Line {l1=0x2c, l2=» HEAD(8):=TRUNC(R-HEAD(7)*10000.0)«, l3=0x2c}
0x2aba…2ac9 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x2ac9…2afc Line {l1=0x31, l2=» 6: REPEAT GOTOXY(20,9);READLN;READ(HEAD(6))«, l3=0x31}
0x2afc…2b3d Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND (HEAD(6)>=0) AND (HEAD(6)<=53);«, l3=0x3f}
0x2b3d…2b4d Line {l1=0x0e, l2=» 7,8: BEGIN«, l3=0x0e}
0x2b4d…2b80 Line {l1=0x31, l2=» FOR J:=1 TO 30 DO LIN(J):=LINE(I-6,J);«, l3=0x31}
0x2b80…2b9c Line {l1=0x1a, l2=» GOTOXY(11,3+I);«, l3=0x1a}
0x2b9c…2bb6 Line {l1=0x18, l2=» EDIT(LIN:30);«, l3=0x18}
0x2bb6…2be8 Line {l1=0x30, l2=» FOR J:=1 TO 30 DO LINE(I-6,J):=LIN(J)«, l3=0x30}
0x2be8…2bf6 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2bf6…2c00 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2c00…2c09 Line {l1=0x07, l2=» END«, l3=0x07}
0x2c09…2c17 Line {l1=0x0c, l2=» UNTIL I=0;«, l3=0x0c}
0x2c17…2c3f Line {l1=0x26, l2=» FOR I:=6 TO 12 DO QHEAD(I):=HEAD(I);«, l3=0x26}
0x2c3f…2c7b Line {l1=0x3a, l2=» FOR I:=1 TO 2 DO FOR J:=1 TO 30 DO QLINE(I,J):=LINE(I,J)«, l3=0x3a}
0x2c7b…2c80 Line {l1=0x03, l2=»END«, l3=0x03}
0x2c80…2c86 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2c86…2c9b Line {l1=0x13, l2=»PROCEDURE SLETORDR;«, l3=0x13}
0x2c9b…2ca2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2ca2…2cac Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2cac…2cc3 Line {l1=0x15, l2=» FOR I:=1 TO 15 DO«, l3=0x15}
0x2cc3…2cdb Line {l1=0x16, l2=» WITH ORDRE,VARE DO«, l3=0x16}
0x2cdb…2cfe Line {l1=0x21, l2=» IF ORDRELIN(I).VNR(1)<>0 THEN«, l3=0x21}
0x2cfe…2d09 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2d09…2d2f Line {l1=0x24, l2=» HELTAL(1):=ORDRELIN(I).VNR(1);«, l3=0x24}
0x2d2f…2d50 Line {l1=0x1f, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x1f}
0x2d50…2d6d Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x2d6d…2db9 Line {l1=0x4a, l2=» IF (HELTAL(5)>HEAD(6)) OR (HELTAL(5)<HEAD(6)-30) OR (HEAD(6)=0) THEN«, l3=0x4a}
0x2db9…2de9 Line {l1=0x2e, l2=» IF ORDRELIN(I).VNR(2)>REELTAL(7) THEN«, l3=0x2e}
0x2de9…2df9 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2df9…2e3b Line {l1=0x40, l2=» REELTAL(9):=REELTAL(9)-ORDRELIN(I).VNR(2)+REELTAL(7);«, l3=0x40}
0x2e3b…2e55 Line {l1=0x18, l2=» REELTAL(7):=0«, l3=0x18}
0x2e55…2e63 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x2e63…2e9c Line {l1=0x37, l2=» ELSE REELTAL(7):=REELTAL(7)-ORDRELIN(I).VNR(2)«, l3=0x37}
0x2e9c…2ed3 Line {l1=0x35, l2=» ELSE REELTAL(9):=REELTAL(9)-ORDRELIN(I).VNR(2);«, l3=0x35}
0x2ed3…2ef4 Line {l1=0x1f, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x1f}
0x2ef4…2f11 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x2f11…2f1b Line {l1=0x08, l2=» END;«, l3=0x08}
0x2f1b…2f32 Line {l1=0x15, l2=» L:=ORDRE.HEAD(5);«, l3=0x15}
0x2f32…2f51 Line {l1=0x1d, l2=» DELETE(OZ.H,FORD,ORDRE.A)«, l3=0x1d}
0x2f51…2f5f Line {l1=0x0c, l2=» UNTIL L=99«, l3=0x0c}
0x2f5f…2f65 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2f65…2f79 Line {l1=0x12, l2=»PROCEDURE RETSIDE;«, l3=0x12}
0x2f79…2f8a Line {l1=0x0f, l2=»VAR SVAR1:CHAR;«, l3=0x0f}
0x2f8a…2f91 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2f91…2fa4 Line {l1=0x11, l2=» SRETTET:=FALSE;«, l3=0x11}
0x2fa4…2fc0 Line {l1=0x1a, l2=» GOTOXY(1,6+ALI);WRITELN;«, l3=0x1a}
0x2fc0…2fca Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2fca…2fe2 Line {l1=0x16, l2=» FOR I:=1 TO ALI DO«, l3=0x16}
0x2fe2…2ffa Line {l1=0x16, l2=» WITH VARELIN(I) DO«, l3=0x16}
0x2ffa…3005 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3005…301b Line {l1=0x14, l2=» GOTOXY(1,5+I);«, l3=0x14}
0x301b…3051 Line {l1=0x34, l2=» WRITELN(I:3,VNR:5,ANTAL:8,' ':4,PRIS/100:10:2)«, l3=0x34}
0x3051…305b Line {l1=0x08, l2=» END;«, l3=0x08}
0x305b…3067 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x3067…307c Line {l1=0x13, l2=» GOTOXY(1,21);«, l3=0x13}
0x307c…30aa Line {l1=0x2c, l2=» WRITELN('Er ordresiden færdig (J/N)');«, l3=0x2c}
0x30aa…30c0 Line {l1=0x14, l2=» GOTOXY(28,21);«, l3=0x14}
0x30c0…30da Line {l1=0x18, l2=» READLN;READ(SVAR1)«, l3=0x18}
0x30da…3124 Line {l1=0x48, l2=» UNTIL (IORESULT=0) AND ((SVAR1='N') OR (SVAR1='J') OR (SVAR1='n') OR«, l3=0x48}
0x3124…314f Line {l1=0x29, l2=» (SVAR1='j'));«, l3=0x29}
0x314f…3186 Line {l1=0x35, l2=» IF (SVAR1='J') OR (SVAR1='j') THEN EXIT(RETSIDE);«, l3=0x35}
0x3186…319a Line {l1=0x12, l2=» SRETTET:=TRUE;«, l3=0x12}
0x319a…31d3 Line {l1=0x37, l2=» GOTOXY(1,22);WRITELN('A: Tilføjelse B:Sletning');«, l3=0x37}
0x31d3…3200 Line {l1=0x2b, l2=» REPEAT GOTOXY(35,22);READLN;READ(SVAR1)«, l3=0x2b}
0x3200…323a Line {l1=0x38, l2=» UNTIL (IORESULT=0) AND ((SVAR1='A') OR (SVAR1='B'));«, l3=0x38}
0x323a…324d Line {l1=0x11, l2=» CASE SVAR1 OF«, l3=0x11}
0x324d…3266 Line {l1=0x17, l2=» 'A':IF ALI < 15 THEN«, l3=0x17}
0x3266…3273 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3273…3288 Line {l1=0x13, l2=» ALI:=ALI+1;«, l3=0x13}
0x3288…3299 Line {l1=0x0f, l2=» I:=ALI;«, l3=0x0f}
0x3299…32a9 Line {l1=0x0e, l2=» LINIE;«, l3=0x0e}
0x32a9…32d9 Line {l1=0x2e, l2=» IF (I=17) OR (I=ALI-1) THEN ALI:=ALI-1«, l3=0x2e}
0x32d9…32e4 Line {l1=0x09, l2=» END«, l3=0x09}
0x32e4…32f0 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x32f0…32fd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x32fd…332c Line {l1=0x2d, l2=» GOTOXY(1,22);WRITELN('SIDEN ER FULD')«, l3=0x2d}
0x332c…3338 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3338…3359 Line {l1=0x1f, l2=» 'B':WITH VARE,ORDRE DO BEGIN«, l3=0x1f}
0x3359…3370 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x3370…3391 Line {l1=0x1f, l2=» WRITELN('Linienummer');«, l3=0x1f}
0x3391…33be Line {l1=0x2b, l2=» REPEAT GOTOXY(15,23);READLN;READ(I)«, l3=0x2b}
0x33be…33f2 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<=ALI);«, l3=0x32}
0x33f2…3416 Line {l1=0x22, l2=» HELTAL(1):=VARELIN(I).VNR;«, l3=0x22}
0x3416…3439 Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x3439…3458 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x3458…3495 Line {l1=0x3b, l2=» IF (HELTAL(5)>HEAD(6)) OR (HELTAL(5)<HEAD(6)-30) OR«, l3=0x3b}
0x3495…34b2 Line {l1=0x1b, l2=» (HEAD(6)=0) THEN«, l3=0x1b}
0x34b2…34e1 Line {l1=0x2d, l2=» IF VARELIN(I).ANTAL>REELTAL(7) THEN«, l3=0x2d}
0x34e1…34f2 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x34f2…3532 Line {l1=0x3e, l2=» REELTAL(9):=REELTAL(9)-VARELIN(I).ANTAL+REELTAL(7);«, l3=0x3e}
0x3532…354c Line {l1=0x18, l2=» REELTAL(7):=0«, l3=0x18}
0x354c…355b Line {l1=0x0d, l2=» END«, l3=0x0d}
0x355b…3593 Line {l1=0x36, l2=» ELSE REELTAL(7):=REELTAL(7)-VARELIN(I).ANTAL«, l3=0x36}
0x3593…35ca Line {l1=0x35, l2=» ELSE REELTAL(9):=REELTAL(9)-VARELIN(I).ANTAL;«, l3=0x35}
0x35ca…35ed Line {l1=0x21, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x35ed…360c Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x360c…3644 Line {l1=0x36, l2=» FOR J:=I TO ALI-1 DO VARELIN(J):=VARELIN(J+1);«, l3=0x36}
0x3644…366e Line {l1=0x28, l2=» GOTOXY(1,5+ALI);WRITELN(' ':77);«, l3=0x28}
0x366e…3682 Line {l1=0x12, l2=» ALI:=ALI-1«, l3=0x12}
0x3682…368e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x368e…3698 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3698…36ab Line {l1=0x11, l2=» UNTIL SVAR1='J'«, l3=0x11}
0x36ab…36b1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x36b1…36b8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x36b8…36c8 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x36c8…36e7 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x36e7…36ff Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x36ff…372f Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x372f…3732 Line {l1=0x01, l2=» «, l3=0x01}
0x3732…3751 Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x3751…3769 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x3769…3799 Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3799…379c Line {l1=0x01, l2=» «, l3=0x01}
0x379c…37b7 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x37b7…37cf Line {l1=0x16, l2=» RESET(SYSFIL,FNAVN);«, l3=0x16}
0x37cf…37e2 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x37e2…37f2 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x37f2…37f5 Line {l1=0x01, l2=» «, l3=0x01}
0x37f5…3814 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x3814…382a Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x382a…3858 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x3858…385b Line {l1=0x01, l2=» «, l3=0x01}
0x385b…3885 Line {l1=0x28, l2=» LIN:='123456789012345678901234567890';«, l3=0x28}
0x3885…388f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x388f…389e Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x389e…38b2 Line {l1=0x12, l2=» IF R<>0.0 THEN«, l3=0x12}
0x38b2…38c1 Line {l1=0x0d, l2=» FINDORDR;«, l3=0x0d}
0x38c1…38d3 Line {l1=0x10, l2=» IF R=-2 THEN«, l3=0x10}
0x38d3…38e6 Line {l1=0x11, l2=» WITH ORDRE DO«, l3=0x11}
0x38e6…38f1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x38f1…3915 Line {l1=0x22, l2=» RETTET:=FALSE;SRETTET:=FALSE;«, l3=0x22}
0x3915…3921 Line {l1=0x0a, l2=» L:=0;«, l3=0x0a}
0x3921…3934 Line {l1=0x11, l2=» CLEARSCREEN;«, l3=0x11}
0x3934…3960 Line {l1=0x2a, l2=» WRITELN('SKAL ORDREN SLETTES (J/N)');«, l3=0x2a}
0x3960…396d Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x396d…3995 Line {l1=0x26, l2=» GOTOXY(30,1);READLN;READ(SVAR1)«, l3=0x26}
0x3995…39d0 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND ((SVAR1='N') OR (SVAR1='J'));«, l3=0x39}
0x39d0…39e8 Line {l1=0x16, l2=» IF SVAR1='N' THEN«, l3=0x16}
0x39e8…39f4 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x39f4…3a08 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x3a08…3a45 Line {l1=0x3b, l2=» GOTOXY(1,1);WRITELN('ÆNDRINGER I ORDRE-HOVED (J/N)');«, l3=0x3b}
0x3a45…3a53 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x3a53…3a7a Line {l1=0x25, l2=» GOTOXY(30,1);READLN;READ(SVAR1)«, l3=0x25}
0x3a7a…3ab6 Line {l1=0x3a, l2=» UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N'));«, l3=0x3a}
0x3ab6…3adf Line {l1=0x27, l2=» IF SVAR1='J' THEN RETBETINGELSER;«, l3=0x27}
0x3adf…3aec Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x3aec…3b00 Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x3b00…3b28 Line {l1=0x26, l2=» WRITELN('ORDREVEDLIGEHOLDELSE');«, l3=0x26}
0x3b28…3b38 Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x3b38…3b86 Line {l1=0x4c, l2=» WRITELN(KUNDE.NAVN(1),' ':4,'Ordredato:',HEAD(7)*10000.0+HEAD(8):8:-2,«, l3=0x4c}
0x3b86…3bb3 Line {l1=0x2b, l2=» 'Leveringsuge':20,HEAD(6):3);«, l3=0x2b}
0x3bb3…3bcb Line {l1=0x16, l2=» WRITELN(' ':77);«, l3=0x16}
0x3bcb…3c0a Line {l1=0x3d, l2=» WRITELN(' Varenummer','Antal':8,'Pris':10,'Tekst':14);«, l3=0x3d}
0x3c0a…3c19 Line {l1=0x0d, l2=» ALI:=0;«, l3=0x0d}
0x3c19…3c32 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x3c32…3c4d Line {l1=0x19, l2=» WITH ORDRELIN(I) DO«, l3=0x19}
0x3c4d…3c5a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3c5a…3c7b Line {l1=0x1f, l2=» VARELIN(I).VNR:=VNR(1);«, l3=0x1f}
0x3c7b…3c9e Line {l1=0x21, l2=» VARELIN(I).ANTAL:=VNR(2);«, l3=0x21}
0x3c9e…3cbe Line {l1=0x1e, l2=» VARELIN(I).PRIS:=PRIS;«, l3=0x1e}
0x3cbe…3ce9 Line {l1=0x29, l2=» FILLCHAR(VARELIN(I).NAVN,30,' ');«, l3=0x29}
0x3ce9…3d0b Line {l1=0x20, l2=» IF VNR(1)<>0 THEN ALI:=I«, l3=0x20}
0x3d0b…3d17 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3d17…3d27 Line {l1=0x0e, l2=» RETSIDE;«, l3=0x0e}
0x3d27…3d4c Line {l1=0x23, l2=» (*ORDREN TIL ORDREREGISTRET*)«, l3=0x23}
0x3d4c…3d6f Line {l1=0x21, l2=» IF (SRETTET OR RETTET) THEN«, l3=0x21}
0x3d6f…3d7c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3d7c…3d95 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x3d95…3db0 Line {l1=0x19, l2=» WITH ORDRELIN(I) DO«, l3=0x19}
0x3db0…3dbd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3dbd…3dd6 Line {l1=0x17, l2=» IF I<= ALI THEN«, l3=0x17}
0x3dd6…3de5 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3de5…3e06 Line {l1=0x1f, l2=» VNR(1):=VARELIN(I).VNR;«, l3=0x1f}
0x3e06…3e29 Line {l1=0x21, l2=» VNR(2):=VARELIN(I).ANTAL;«, l3=0x21}
0x3e29…3e48 Line {l1=0x1d, l2=» PRIS:=VARELIN(I).PRIS«, l3=0x1d}
0x3e48…3e55 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3e55…3e6d Line {l1=0x16, l2=» ELSE VNR(1):=0«, l3=0x16}
0x3e6d…3e79 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3e79…3e95 Line {l1=0x1a, l2=» PUTREC(OZ.H,FORD,A);«, l3=0x1a}
0x3e95…3ea1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3ea1…3ebb Line {l1=0x18, l2=» IF HEAD(5)<99 THEN«, l3=0x18}
0x3ebb…3ec8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3ec8…3edd Line {l1=0x13, l2=» L:=HEAD(5);«, l3=0x13}
0x3edd…3efc Line {l1=0x1d, l2=» NEXTREC(OZ.H,FORD,A);«, l3=0x1d}
0x3efc…3f14 Line {l1=0x16, l2=» IF RETTET THEN«, l3=0x16}
0x3f14…3f23 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3f23…3f53 Line {l1=0x2e, l2=» FOR I:=6 TO 12 DO HEAD(I):=QHEAD(I);«, l3=0x2e}
0x3f53…3f97 Line {l1=0x42, l2=» FOR I:=1 TO 2 DO FOR J:=1 TO 30 DO LINE(I,J):=QLINE(I,J)«, l3=0x42}
0x3f97…3fa4 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3fa4…3faf Line {l1=0x09, l2=» END«, l3=0x09}
0x3faf…3fbb Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x3fbb…3fc8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3fc8…3fdc Line {l1=0x12, l2=» IF L<3 THEN«, l3=0x12}
0x3fdc…3fea Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x3fea…4000 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x4000…4038 Line {l1=0x36, l2=» WRITELN('SKAL DER OPRETTES EN NY SIDE (J/N)');«, l3=0x36}
0x4038…4048 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x4048…4073 Line {l1=0x29, l2=» GOTOXY(40,1);READLN;READ(SVAR1)«, l3=0x29}
0x4073…40b1 Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND ((SVAR1='J') OR (SVAR1='N'));«, l3=0x3c}
0x40b1…40cc Line {l1=0x19, l2=» IF SVAR1='J' THEN«, l3=0x19}
0x40cc…40db Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x40db…40f4 Line {l1=0x17, l2=» HEAD(5):=L+1;«, l3=0x17}
0x40f4…4114 Line {l1=0x1e, l2=» INSERT(OZ.H,FORD,A);«, l3=0x1e}
0x4114…4135 Line {l1=0x1f, l2=» IF IER<>0 THEN ERROR;«, l3=0x1f}
0x4135…414d Line {l1=0x16, l2=» HEAD(5):=99;«, l3=0x16}
0x414d…4181 Line {l1=0x32, l2=» FOR I:=1 TO 15 DO ORDRELIN(I).VNR(1):=0;«, l3=0x32}
0x4181…41a1 Line {l1=0x1e, l2=» PUTREC(OZ.H,FORD,A);«, l3=0x1e}
0x41a1…41c2 Line {l1=0x1f, l2=» IF IER<>0 THEN ERROR;«, l3=0x1f}
0x41c2…41d4 Line {l1=0x10, l2=» L:=L+1«, l3=0x10}
0x41d4…41ec Line {l1=0x16, l2=» END ELSE L:=99«, l3=0x16}
0x41ec…4203 Line {l1=0x15, l2=» END ELSE L:=99«, l3=0x15}
0x4203…420e Line {l1=0x09, l2=» END«, l3=0x09}
0x420e…4220 Line {l1=0x10, l2=» UNTIL L=99;«, l3=0x10}
0x4220…4238 Line {l1=0x16, l2=» END ELSE SLETORDR«, l3=0x16}
0x4238…4241 Line {l1=0x07, l2=» END«, l3=0x07}
0x4241…4251 Line {l1=0x0e, l2=» UNTIL R=0.0;«, l3=0x0e}
0x4251…426a Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x426a…427d Line {l1=0x11, l2=» CLOSE(FORD);«, l3=0x11}
0x427d…4296 Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x4296…42a9 Line {l1=0x11, l2=» CLOSE(FKUN);«, l3=0x11}
0x42a9…42c2 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x42c2…42d5 Line {l1=0x11, l2=» CLOSE(FVAR);«, l3=0x11}
0x42d5…42fe Line {l1=0x27, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x27}
0x42fe…4304 Line {l1=0x04, l2=»END.«, l3=0x04}
0x4304…4320 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 ┆ ┆
0x4320…4340 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 ┆ ┆
[…0x15…]