|
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: 16224 (0x3f60)
Types: TextFile
Notes: Mikados_K
Names: »INDORDRE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »INDORDRE.K«
PROGRAM ORDREINDDATERING;
(*$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,KUNDE1:KPOST;
SYSFIL:SYSFILE;
LIN:STRING(30);
FNAVN:STRING(20);
VARELIN:ARRAY (1..16) OF VLIN;
KNAVN:STRING(4);
SVAR3:CHAR;
IER,I,J,K,L,ALI
:INTEGER;
R,R1,R2 :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
SEEK(SYSFIL,1);
PUT(SYSFIL);
CLOSE(SYSFIL);
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;
VAR R:REAL;
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('ORDREREGISTRERING');
GOTOXY(1,4);
WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');
REPEAT
R:=-1.0;
GOTOXY(1,3);
WRITELN('INDTAST KUNDENUMMER');
GOTOXY(25,3);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);
IF R=0.0 THEN EXIT(FINDKUND);
REPEAT
IF R=1.0 THEN
IF I=1 THEN
BEGIN
GOTOXY(1,4);
WRITELN('INDTAST KUNDENAVN',' ':60);
REPEAT
GOTOXY(20,4);
READLN;READ(KNAVN)
UNTIL LENGTH(KNAVN)=4;
NANU(KNAVN,N1,N2);
KUNDE.NR(1):=N1;
KUNDE.NR(2):=N2;
R1:=N1*10000.0+N2;
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
I:=0
END
ELSE
BEGIN
NEXTREC(KZ.H,FKUN,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);
IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;
END
ELSE
BEGIN
KUNDE.NR(1):=TRUNC(R/10000.0);
KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);
GETREC(KZ.H,FKUN,KUNDE.A)
END;
GOTOXY(1,5);
FIN:=1;
IF IER=0 THEN
BEGIN
WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);
WRITELN;
WRITELN(KUNDE.NAVN(1));
WRITELN(KUNDE.NAVN(3));
WRITELN(KUNDE.POSTNR);
WRITELN;
WRITELN('TLF: ',KUNDE.TLF);
GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');
REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND
((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));
IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0
ELSE
IF (KUNDE.NR(4)<>0) OR (KUNDE.NR(5)<>0) THEN
BEGIN
KUNDE1.NR(1):=KUNDE.NR(4);
KUNDE1.NR(2):=KUNDE.NR(5);
GETREC(KZ.H,FKUN,KUNDE1.A);
IF IER<>0 THEN ERROR
END
END
ELSE
IF IER=-6 THEN
BEGIN
IER:=0;
WRITELN(' ':80);
WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');
READLN
END
ELSE ERROR
UNTIL FIN=1
UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)
END;
PROCEDURE RETBETINGELSER;
VAR J,I:INTEGER;
BEGIN
WITH ORDRE DO
BEGIN
REPEAT
CLEARSCREEN;
GOTOXY(1,1);
WRITELN('GÆLDENDE BETINGELSER:');
GOTOXY(1,4);
WRITELN('1 LEVERING',HEAD(9):5);
WRITELN('2 BETALING',HEAD(10):5);
WRITELN('3 RESTORDRE',HEAD(11):4);
WRITELN('4 RABAT',HEAD(12):8);
WRITELN('5 TEKST 1 ',LINE(1));
WRITELN('6 TEKST 2 ',LINE(2));
REPEAT
GOTOXY(1,11);
WRITELN('ÆNDRING, 0 FOR NEJ');
GOTOXY(20,11);
READLN;READ(I)
UNTIL (IORESULT=0) AND (I<7) AND (I>=0);
IF (I>0) AND (I<5) THEN
REPEAT GOTOXY(20,3+I);READLN;READ(HEAD(8+I))
UNTIL (IORESULT=0) AND (HEAD(8+I)<=99) AND (HEAD(8+I)>=0)
ELSE
IF I>0 THEN
BEGIN
FOR J:=1 TO 30 DO LIN(J):=LINE(I-4,J);
GOTOXY(11,3+I);
EDIT(LIN:30);
FOR J:=1 TO 30 DO LINE(I-4,J):=LIN(J)
END
UNTIL I=0
END
END;
PROCEDURE RETSIDE;
VAR SVAR1:CHAR;
BEGIN
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,' ':9,NAVN)
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='j') OR
(SVAR1='n'));
IF ((SVAR1='J') OR (SVAR1='j')) AND (ALI=15) AND (ORDRE.HEAD(5)<4) THEN
REPEAT
GOTOXY(30,21);WRITELN('Ny side');
GOTOXY(40,21);READLN;READ(SVAR3)
UNTIL (IORESULT=0) AND ((SVAR3='J') OR (SVAR3='N') OR (SVAR3='j') OR
(SVAR3='n'))
ELSE SVAR3:='N';
IF (SVAR1='J') OR (SVAR1='j') THEN EXIT(RETSIDE);
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') OR (SVAR1='a') OR
(SVAR1='b'));
CASE SVAR1 OF
'A','a' :IF ALI < 15 THEN
BEGIN
ALI:=ALI+1;
I:=ALI;
LINIE;
IF (I=17) OR (I=ALI-1) THEN ALI:=ALI-1
END;
'b','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') OR (SVAR1='j')
END;
PROCEDURE LÆSORD;
BEGIN
WITH ORDRE DO
BEGIN
REPEAT
CLEARSCREEN;
WRITELN('ORDREREGISTRERING');
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);
FOR I:=1 TO 15 DO
BEGIN
ALI:=I;
LINIE
END;
IF I=18 THEN ALI:=ALI-1;
RETSIDE;
(*ORDREN TIL ORDREREGISTRET*)
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;
IF (SVAR3='N') OR (SVAR3='n') THEN HEAD(5):=99;
INSERT(OZ.H,FORD,A);
IF IER<>0 THEN ERROR;
HEAD(5):=HEAD(5)+1
UNTIL (SVAR3='N') OR (SVAR3='n');
END
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';
REWRITE(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';
WRITELN('Ordresider aktuelt :',OZ.H.RECINUSE:6,' Maksimalt :',
OZ.H.NREC:6);
DELAY(1000);
REPEAT
IF OZ.H.NREC-OZ.H.RECINUSE<4 THEN
BEGIN
WRITELN('Ikke plads til flere ordrer');
R:=0.0
END
ELSE
FINDKUND;
IF R<>0.0 THEN
IF KUNDE.NR(23)=1 THEN
WRITELN('KUNDENS KONTO ER LUKKET')
ELSE
WITH ORDRE DO
BEGIN
HEAD(5):=1;
HEAD(1):=KUNDE.NR(1);
HEAD(2):=KUNDE.NR(2);
HEAD(9):=KUNDE.NR(9);
HEAD(11):=KUNDE.NR(6);
FILLCHAR(LINE(1),30,' ');
FILLCHAR(LINE(2),30,' ');
IF (KUNDE.NR(4)<>0) OR (KUNDE.NR(5)<>0) THEN
BEGIN
HEAD(10):=KUNDE1.NR(8);
HEAD(12):=KUNDE1.NR(17)
END
ELSE
BEGIN
HEAD(10):=KUNDE.NR(8);
HEAD(12):=KUNDE.NR(17)
END;
REPEAT
GOTOXY(1,16);
WRITELN('ORDREDATO (ÅÅMMDD):');
GOTOXY(21,16);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>800000.0) AND
(R<=SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2));
HEAD(7):=TRUNC(R/10000);
HEAD(8):=TRUNC(R-HEAD(7)*10000.0);
HEAD(3):=SYSFIL^.HELTAL(5);
HEAD(4):=SYSFIL^.HELTAL(6);
REPEAT
GOTOXY(1,16);
WRITELN('LEVERINGSUGE, 0 FOR OMGÅENDE');
GOTOXY(40,16);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0) AND (I<=53);
HEAD(6):=I;
RETBETINGELSER;
LÆSORD;
WITH SYSFIL^ DO
BEGIN
HELTAL(6):=HELTAL(6)+1;
IF HELTAL(6)=10000 THEN
BEGIN
HELTAL(5):=HELTAL(5)+1;
HELTAL(6):=0
END;
END;
GOTOXY(1,22);
WRITELN('ORDRENUMMER : ',ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):12:-2,
' ':10,'TRYK RETURN NÅR NOTERET');
GOTOXY(70,22);READLN
END
UNTIL R=0.0;
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(KZ.H,FKUN);
SEEK(SYSFIL,1);
PUT(SYSFIL);
CLOSE(SYSFIL);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…001b Line {l1=0x19, l2=»PROGRAM ORDREINDDATERING;«, l3=0x19}
0x001b…002b Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x002b…003a Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x003a…0050 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0050…007a Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x007a…00c3 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00c3…00e4 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00e4…011f Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x011f…0140 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0140…0168 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0168…01ae Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01ae…01f2 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01f2…01fa Line {l1=0x06, l2=» END;«, l3=0x06}
0x01fa…020b Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x020b…0232 Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x0232…024b Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x024b…025f Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x025f…0267 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0267…027c Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x027c…028b Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x028b…0290 Line {l1=0x03, l2=» (*«, l3=0x03}
0x0290…02a4 Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x02a4…02b6 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x02b6…02c5 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x02c5…0309 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x0309…0331 Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x0331…036d Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x036d…0398 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x0398…03a0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03a0…03ae Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x03ae…03bc Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03bc…03e1 Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x03e1…041d Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x041d…044b Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x044b…0478 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0478…04a2 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x04a2…04c8 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x04c8…04ce Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ce…04de Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04de…04ee Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x04ee…04f8 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x04f8…0503 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0503…0512 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0512…0520 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x0520…0530 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x0530…0572 Line {l1=0x40, l2=» BILAGSNR1-2,JOURFILNR,MOMS*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x40}
0x0572…058f Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x058f…05b8 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x05b8…05ff Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x05ff…0605 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0605…061f Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x061f…062f Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x062f…0643 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0643…0667 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0667…066f Line {l1=0x06, l2=» END;«, l3=0x06}
0x066f…0680 Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x0680…0694 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0694…06b8 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x06b8…06c0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x06c0…06ce Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x06ce…06e1 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x06e1…0704 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x0704…070a Line {l1=0x04, l2=»END;«, l3=0x04}
0x070a…070e Line {l1=0x02, l2=» «, l3=0x02}
0x070e…071b Line {l1=0x0b, l2=»VLIN=RECORD«, l3=0x0b}
0x071b…0736 Line {l1=0x19, l2=» VNR,ANTAL:INTEGER;«, l3=0x19}
0x0736…0749 Line {l1=0x11, l2=» PRIS:REAL;«, l3=0x11}
0x0749…0771 Line {l1=0x26, l2=» NAVN:PACKED ARRAY(1:30) OF CHAR«, l3=0x26}
0x0771…0777 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0777…077b Line {l1=0x02, l2=» «, l3=0x02}
[…0x2…]
0x0783…07a7 Line {l1=0x22, l2=» VAR FVAR,FORD,FKUN : ISF;«, l3=0x22}
0x07a7…07ba Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x07ba…07cd Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x07cd…07e2 Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x07e2…07fc Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x07fc…0811 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0811…082e Line {l1=0x1b, l2=» KUNDE,KUNDE1:KPOST;«, l3=0x1b}
0x082e…0847 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0847…0860 Line {l1=0x17, l2=» LIN:STRING(30);«, l3=0x17}
0x0860…087b Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x087b…08a3 Line {l1=0x26, l2=» VARELIN:ARRAY (1..16) OF VLIN;«, l3=0x26}
0x08a3…08bd Line {l1=0x18, l2=» KNAVN:STRING(4);«, l3=0x18}
0x08bd…08d2 Line {l1=0x13, l2=» SVAR3:CHAR;«, l3=0x13}
0x08d2…08eb Line {l1=0x17, l2=» IER,I,J,K,L,ALI«, l3=0x17}
0x08eb…090e Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x090e…092e Line {l1=0x1e, l2=» R,R1,R2 :REAL;«, l3=0x1e}
0x092e…0945 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0945…094e Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x094e…0962 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0962…0970 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0970…097e Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x097e…098f Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x098f…09a0 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x09a0…09b0 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x09b0…09bf Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x09bf…09ce Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x09ce…09dd Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x09dd…09ed Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x09ed…09fc Line {l1=0x0d, l2=» (*$IDELETE*)«, l3=0x0d}
0x09fc…0a06 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x0a06…0a0f Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0a0f…0a22 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0a22…0a2a Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0a2a…0a4f Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0a4f…0a66 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0a66…0a7d Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x0a7d…0a94 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0a94…0aa8 Line {l1=0x12, l2=» SEEK(SYSFIL,1);«, l3=0x12}
0x0aa8…0ab9 Line {l1=0x0f, l2=» PUT(SYSFIL);«, l3=0x0f}
0x0ab9…0acc Line {l1=0x11, l2=» CLOSE(SYSFIL);«, l3=0x11}
0x0acc…0ae8 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0ae8…0af7 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0af7…0afe Line {l1=0x05, l2=» END;«, l3=0x05}
0x0afe…0b10 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0b10…0b17 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b17…0b28 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0b28…0b6d Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0b6d…0b9d Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0b9d…0bd6 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0bd6…0bed Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0bed…0bfc Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0bfc…0c02 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c02…0c13 Line {l1=0x0f, l2=»PROCEDURE VALI;«, l3=0x0f}
0x0c13…0c1a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c1a…0c30 Line {l1=0x14, l2=» WITH VARELIN(J) DO«, l3=0x14}
0x0c30…0c39 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0c39…0c43 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0c43…0c51 Line {l1=0x0c, l2=» VNR:=-1;«, l3=0x0c}
0x0c51…0c65 Line {l1=0x12, l2=» GOTOXY(5,5+I);«, l3=0x12}
0x0c65…0c7b Line {l1=0x14, l2=» READLN;READ(VNR)«, l3=0x14}
0x0c7b…0c9f Line {l1=0x22, l2=» UNTIL (IORESULT=0) AND (VNR>=0);«, l3=0x22}
0x0c9f…0cbc Line {l1=0x1b, l2=» IF VNR=0 THEN EXIT(VALI);«, l3=0x1b}
0x0cbc…0cc6 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0cc6…0cd6 Line {l1=0x0e, l2=» ANTAL:=-1;«, l3=0x0e}
0x0cd6…0ceb Line {l1=0x13, l2=» GOTOXY(16,5+I);«, l3=0x13}
0x0ceb…0d03 Line {l1=0x16, l2=» READLN;READ(ANTAL)«, l3=0x16}
0x0d03…0d28 Line {l1=0x23, l2=» UNTIL (IORESULT=0) AND (ANTAL>0);«, l3=0x23}
0x0d28…0d32 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0d32…0d47 Line {l1=0x13, l2=» GOTOXY(25,5+I);«, l3=0x13}
0x0d47…0d5e Line {l1=0x15, l2=» READLN;READ(PRIS)«, l3=0x15}
0x0d5e…0d75 Line {l1=0x15, l2=» UNTIL (IORESULT=0);«, l3=0x15}
0x0d75…0d88 Line {l1=0x11, l2=» PRIS:=PRIS*100;«, l3=0x11}
0x0d88…0d9b Line {l1=0x11, l2=» GOTOXY(21,5+I);«, l3=0x11}
0x0d9b…0db5 Line {l1=0x18, l2=» WRITELN(PRIS/100:10:2)«, l3=0x18}
0x0db5…0dbc Line {l1=0x05, l2=» END«, l3=0x05}
0x0dbc…0dc2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dc2…0df6 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x0df6…0e06 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0e06…0e13 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0e13…0e1a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e1a…0e25 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0e25…0e4c Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0e4c…0e64 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0e64…0e7d Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x0e7d…0e95 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0e95…0eb2 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0eb2…0eb8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0eb8…0eca Line {l1=0x10, l2=»PROCEDURE LINIE;«, l3=0x10}
0x0eca…0ed7 Line {l1=0x0b, l2=»VAR R:REAL;«, l3=0x0b}
0x0ed7…0ede Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ede…0ef0 Line {l1=0x10, l2=» GOTOXY(1,5+I);«, l3=0x10}
0x0ef0…0f01 Line {l1=0x0f, l2=» WRITELN(I:3);«, l3=0x0f}
0x0f01…0f0a Line {l1=0x07, l2=» J:=I;«, l3=0x07}
0x0f0a…0f13 Line {l1=0x07, l2=» VALI;«, l3=0x07}
0x0f13…0f2f Line {l1=0x1a, l2=» IF VARELIN(I).VNR=0 THEN«, l3=0x1a}
0x0f2f…0f3d Line {l1=0x0c, l2=» I:=17«, l3=0x0c}
0x0f3d…0f45 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x0f45…0f5b Line {l1=0x14, l2=» WITH VARELIN(I) DO«, l3=0x14}
0x0f5b…0f64 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f64…0f7e Line {l1=0x18, l2=» VARE.HELTAL(1):=VNR;«, l3=0x18}
0x0f7e…0f9d Line {l1=0x1d, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x1d}
0x0f9d…0fb0 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x0fb0…0fbb Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0fbb…0fd6 Line {l1=0x19, l2=» NAVN:=VARE.NAVN(1);«, l3=0x19}
0x0fd6…0fed Line {l1=0x15, l2=» GOTOXY(40,5+I);«, l3=0x15}
0x0fed…1003 Line {l1=0x14, l2=» WRITELN(NAVN);«, l3=0x14}
0x1003…101e Line {l1=0x19, l2=» R:=VARE.REELTAL(1);«, l3=0x19}
0x101e…1041 Line {l1=0x21, l2=» WHILE VARELIN(J).PRIS<>R DO«, l3=0x21}
0x1041…104e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x104e…1067 Line {l1=0x17, l2=» GOTOXY(27,7+I);«, l3=0x17}
0x1067…10ae Line {l1=0x45, l2=» WRITELN('PRISEN STEMMER IKKE MED VAREREGISTRET, SOM SIGER ');«, l3=0x45}
0x10ae…10e0 Line {l1=0x30, l2=» WRITELN(VNR:8,ANTAL:8,' ':4,R/100:10:2);«, l3=0x30}
0x10e0…1102 Line {l1=0x20, l2=» WRITELN('INDTAST IGEN');«, l3=0x20}
0x1102…1113 Line {l1=0x0f, l2=» I:=I+3;«, l3=0x0f}
0x1113…1123 Line {l1=0x0e, l2=» J:=16;«, l3=0x0e}
0x1123…1132 Line {l1=0x0d, l2=» VALI;«, l3=0x0d}
0x1132…1143 Line {l1=0x0f, l2=» I:=I-3;«, l3=0x0f}
0x1143…1168 Line {l1=0x23, l2=» IF VNR<>VARELIN(J).VNR THEN«, l3=0x23}
0x1168…1177 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1177…11a2 Line {l1=0x29, l2=» VARE.HELTAL(1):=VARELIN(J).VNR;«, l3=0x29}
0x11a2…11c7 Line {l1=0x23, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x23}
0x11c7…11e0 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x11e0…11f1 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x11f1…1216 Line {l1=0x23, l2=» VARELIN(I):=VARELIN(J);«, l3=0x23}
0x1216…1237 Line {l1=0x1f, l2=» NAVN:=VARE.NAVN(1);«, l3=0x1f}
0x1237…1257 Line {l1=0x1e, l2=» R:=VARE.REELTAL(1)«, l3=0x1e}
0x1257…1266 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1266…1273 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1273…1281 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1281…1290 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1290…12b2 Line {l1=0x20, l2=» VARELIN(J).NAVN:=NAVN;«, l3=0x20}
0x12b2…12cc Line {l1=0x18, l2=» GOTOXY(5,5+I);«, l3=0x18}
0x12cc…12fd Line {l1=0x2f, l2=» IF VARELIN(I)=VARELIN(J) THEN R:=PRIS«, l3=0x2f}
0x12fd…1328 Line {l1=0x29, l2=» ELSE VARELIN(I):=VARELIN(J);«, l3=0x29}
0x1328…1336 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1336…1362 Line {l1=0x2a, l2=» IF IER<>0 THEN R:=VARELIN(J).PRIS;«, l3=0x2a}
0x1362…137a Line {l1=0x16, l2=» GOTOXY(5,5+I);«, l3=0x16}
0x137a…13ba Line {l1=0x3e, l2=» WRITELN(VNR:4,ANTAL:8,' ':4,PRIS/100:10:2,' ':9,NAVN);«, l3=0x3e}
0x13ba…13d4 Line {l1=0x18, l2=» WRITELN(' ':77);«, l3=0x18}
[…0x3…]
0x1422…142e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x142e…1443 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1443…1457 Line {l1=0x12, l2=» WITH VARE DO«, l3=0x12}
0x1457…1464 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1464…14aa Line {l1=0x44, l2=» IF (HELTAL(5)>ORDRE.HEAD(6)) OR (HELTAL(5)<ORDRE.HEAD(6)-30)«, l3=0x44}
0x14aa…14d1 Line {l1=0x25, l2=» OR (ORDRE.HEAD(6)=0) THEN«, l3=0x25}
0x14d1…14e0 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x14e0…150f Line {l1=0x2d, l2=» IF REELTAL(7)+ANTAL>REELTAL(4) THEN«, l3=0x2d}
0x150f…1520 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1520…1561 Line {l1=0x3f, l2=» REELTAL(9):=REELTAL(9)+ANTAL+REELTAL(7)-REELTAL(4);«, l3=0x3f}
0x1561…1585 Line {l1=0x22, l2=» REELTAL(7):=REELTAL(4)«, l3=0x22}
0x1585…1594 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1594…15c1 Line {l1=0x2b, l2=» ELSE REELTAL(7):=REELTAL(7)+ANTAL«, l3=0x2b}
0x15c1…15ce Line {l1=0x0b, l2=» END«, l3=0x0b}
0x15ce…15fa Line {l1=0x2a, l2=» ELSE REELTAL(9):=REELTAL(9)+ANTAL;«, l3=0x2a}
0x15fa…161d Line {l1=0x21, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x161d…163b Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x163b…1646 Line {l1=0x09, l2=» END«, l3=0x09}
0x1646…1650 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1650…1664 Line {l1=0x12, l2=» IF IER=-6 THEN«, l3=0x12}
0x1664…166f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x166f…1686 Line {l1=0x15, l2=» GOTOXY(40,5+I);«, l3=0x15}
0x1686…16b4 Line {l1=0x2c, l2=» WRITELN('VARENUMMER EKSISTERER IKKE');«, l3=0x2c}
0x16b4…16c2 Line {l1=0x0c, l2=» I:=I-1«, l3=0x0c}
0x16c2…16cb Line {l1=0x07, l2=» END«, l3=0x07}
0x16cb…16ea Line {l1=0x1d, l2=» ELSE IF IER<>0 THEN ERROR«, l3=0x1d}
0x16ea…16f1 Line {l1=0x05, l2=» END«, l3=0x05}
0x16f1…16f7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x16f7…170c Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x170c…1727 Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x1727…173b Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x173b…1742 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1742…174c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x174c…1757 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x1757…1768 Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x1768…177a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x177a…179d Line {l1=0x21, l2=» WRITELN('ORDREREGISTRERING');«, l3=0x21}
0x179d…17af Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x17af…17e9 Line {l1=0x38, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');«, l3=0x38}
0x17e9…17f5 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x17f5…1805 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x1805…1819 Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x1819…1840 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x1840…1863 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x1863…189a Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x189a…18bd Line {l1=0x21, l2=» IF R=0.0 THEN EXIT(FINDKUND);«, l3=0x21}
0x18bd…18c9 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x18c9…18de Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x18de…18f3 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x18f3…1902 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1902…191a Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x191a…194a Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x194a…195c Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x195c…1975 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x1975…1993 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x1993…19b5 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x19b5…19d3 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x19d3…19ef Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x19ef…1a0b Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x1a0b…1a29 Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x1a29…1a4f Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x1a4f…1a85 Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x1a85…1ac1 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x1ac1…1ad1 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x1ad1…1ade Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1ade…1aec Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1aec…1afb Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1afb…1b22 Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x1b22…1b5e Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x1b5e…1b8e Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x1b8e…1bcf Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x1bcf…1bdc Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1bdc…1be8 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1be8…1bf5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1bf5…1c1d Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x1c1d…1c51 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x1c51…1c74 Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x1c74…1c80 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1c80…1c94 Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x1c94…1ca3 Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x1ca3…1cb8 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1cb8…1cc5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1cc5…1d0c Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x1d0c…1d1e Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1d1e…1d3f Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x1d3f…1d60 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x1d60…1d80 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x1d80…1d92 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1d92…1db7 Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x1db7…1dec Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x1dec…1e34 Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x1e34…1e81 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x1e81…1ec2 Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x1ec2…1ed0 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1ed0…1f0d Line {l1=0x3b, l2=» IF (KUNDE.NR(4)<>0) OR (KUNDE.NR(5)<>0) THEN«, l3=0x3b}
0x1f0d…1f25 Line {l1=0x16, l2=» BEGIN«, l3=0x16}
0x1f25…1f58 Line {l1=0x31, l2=» KUNDE1.NR(1):=KUNDE.NR(4);«, l3=0x31}
0x1f58…1f8b Line {l1=0x31, l2=» KUNDE1.NR(2):=KUNDE.NR(5);«, l3=0x31}
0x1f8b…1fbf Line {l1=0x32, l2=» GETREC(KZ.H,FKUN,KUNDE1.A);«, l3=0x32}
0x1fbf…1fec Line {l1=0x2b, l2=» IF IER<>0 THEN ERROR«, l3=0x2b}
0x1fec…2002 Line {l1=0x14, l2=» END«, l3=0x14}
0x2002…200d Line {l1=0x09, l2=» END«, l3=0x09}
0x200d…2019 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2019…202f Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x202f…203c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x203c…204d Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x204d…2067 Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x2067…20a0 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x20a0…20b0 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x20b0…20bb Line {l1=0x09, l2=» END«, l3=0x09}
0x20bb…20cd Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x20cd…20de Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x20de…210d Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)«, l3=0x2d}
0x210d…2113 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2113…212e Line {l1=0x19, l2=»PROCEDURE RETBETINGELSER;«, l3=0x19}
0x212e…2140 Line {l1=0x10, l2=»VAR J,I:INTEGER;«, l3=0x10}
0x2140…2147 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2147…2156 Line {l1=0x0d, l2=»WITH ORDRE DO«, l3=0x0d}
0x2156…215d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x215d…2167 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2167…2179 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2179…218b Line {l1=0x10, l2=» GOTOXY(1,1);«, l3=0x10}
0x218b…21b2 Line {l1=0x25, l2=» WRITELN('GÆLDENDE BETINGELSER:');«, l3=0x25}
0x21b2…21c4 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x21c4…21ea Line {l1=0x24, l2=» WRITELN('1 LEVERING',HEAD(9):5);«, l3=0x24}
0x21ea…2211 Line {l1=0x25, l2=» WRITELN('2 BETALING',HEAD(10):5);«, l3=0x25}
0x2211…2239 Line {l1=0x26, l2=» WRITELN('3 RESTORDRE',HEAD(11):4);«, l3=0x26}
0x2239…225d Line {l1=0x22, l2=» WRITELN('4 RABAT',HEAD(12):8);«, l3=0x22}
0x225d…2281 Line {l1=0x22, l2=» WRITELN('5 TEKST 1 ',LINE(1));«, l3=0x22}
0x2281…22a5 Line {l1=0x22, l2=» WRITELN('6 TEKST 2 ',LINE(2));«, l3=0x22}
0x22a5…22b1 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x22b1…22c6 Line {l1=0x13, l2=» GOTOXY(1,11);«, l3=0x13}
0x22c6…22ec Line {l1=0x24, l2=» WRITELN('ÆNDRING, 0 FOR NEJ');«, l3=0x24}
0x22ec…2302 Line {l1=0x14, l2=» GOTOXY(20,11);«, l3=0x14}
0x2302…2318 Line {l1=0x14, l2=» READLN;READ(I)«, l3=0x14}
0x2318…2346 Line {l1=0x2c, l2=» UNTIL (IORESULT=0) AND (I<7) AND (I>=0);«, l3=0x2c}
0x2346…2363 Line {l1=0x1b, l2=» IF (I>0) AND (I<5) THEN«, l3=0x1b}
0x2363…239a Line {l1=0x35, l2=» REPEAT GOTOXY(20,3+I);READLN;READ(HEAD(8+I))«, l3=0x35}
0x239a…23de Line {l1=0x42, l2=» UNTIL (IORESULT=0) AND (HEAD(8+I)<=99) AND (HEAD(8+I)>=0)«, l3=0x42}
0x23de…23e8 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x23e8…23f9 Line {l1=0x0f, l2=» IF I>0 THEN«, l3=0x0f}
0x23f9…2404 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2404…2432 Line {l1=0x2c, l2=» FOR J:=1 TO 30 DO LIN(J):=LINE(I-4,J);«, l3=0x2c}
0x2432…2449 Line {l1=0x15, l2=» GOTOXY(11,3+I);«, l3=0x15}
0x2449…245e Line {l1=0x13, l2=» EDIT(LIN:30);«, l3=0x13}
0x245e…248b Line {l1=0x2b, l2=» FOR J:=1 TO 30 DO LINE(I-4,J):=LIN(J)«, l3=0x2b}
0x248b…2494 Line {l1=0x07, l2=» END«, l3=0x07}
0x2494…24a1 Line {l1=0x0b, l2=» UNTIL I=0«, l3=0x0b}
0x24a1…24a6 Line {l1=0x03, l2=»END«, l3=0x03}
0x24a6…24ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x24ac…24c0 Line {l1=0x12, l2=»PROCEDURE RETSIDE;«, l3=0x12}
0x24c0…24d1 Line {l1=0x0f, l2=»VAR SVAR1:CHAR;«, l3=0x0f}
0x24d1…24d8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x24d8…24f4 Line {l1=0x1a, l2=» GOTOXY(1,6+ALI);WRITELN;«, l3=0x1a}
0x24f4…24fe Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x24fe…2516 Line {l1=0x16, l2=» FOR I:=1 TO ALI DO«, l3=0x16}
0x2516…252e Line {l1=0x16, l2=» WITH VARELIN(I) DO«, l3=0x16}
0x252e…2539 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2539…254f Line {l1=0x14, l2=» GOTOXY(1,5+I);«, l3=0x14}
0x254f…2590 Line {l1=0x3f, l2=» WRITELN(I:3,VNR:5,ANTAL:8,' ':4,PRIS/100:10:2,' ':9,NAVN)«, l3=0x3f}
0x2590…259a Line {l1=0x08, l2=» END;«, l3=0x08}
0x259a…25a6 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x25a6…25bb Line {l1=0x13, l2=» GOTOXY(1,21);«, l3=0x13}
0x25bb…25e9 Line {l1=0x2c, l2=» WRITELN('Er ordresiden færdig (J/N)');«, l3=0x2c}
0x25e9…25ff Line {l1=0x14, l2=» GOTOXY(28,21);«, l3=0x14}
0x25ff…2619 Line {l1=0x18, l2=» READLN;READ(SVAR1)«, l3=0x18}
0x2619…2663 Line {l1=0x48, l2=» UNTIL (IORESULT=0) AND ((SVAR1='N') OR (SVAR1='J') OR (SVAR1='j') OR«, l3=0x48}
0x2663…268e Line {l1=0x29, l2=» (SVAR1='n'));«, l3=0x29}
0x268e…26db Line {l1=0x4b, l2=» IF ((SVAR1='J') OR (SVAR1='j')) AND (ALI=15) AND (ORDRE.HEAD(5)<4) THEN«, l3=0x4b}
0x26db…26e9 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x26e9…2714 Line {l1=0x29, l2=» GOTOXY(30,21);WRITELN('Ny side');«, l3=0x29}
0x2714…273e Line {l1=0x28, l2=» GOTOXY(40,21);READLN;READ(SVAR3)«, l3=0x28}
0x273e…278a Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((SVAR3='J') OR (SVAR3='N') OR (SVAR3='j') OR«, l3=0x4a}
0x278a…27b6 Line {l1=0x2a, l2=» (SVAR3='n'))«, l3=0x2a}
0x27b6…27cc Line {l1=0x14, l2=» ELSE SVAR3:='N';«, l3=0x14}
0x27cc…2803 Line {l1=0x35, l2=» IF (SVAR1='J') OR (SVAR1='j') THEN EXIT(RETSIDE);«, l3=0x35}
0x2803…283c Line {l1=0x37, l2=» GOTOXY(1,22);WRITELN('A: Tilføjelse B:Sletning');«, l3=0x37}
0x283c…2869 Line {l1=0x2b, l2=» REPEAT GOTOXY(35,22);READLN;READ(SVAR1)«, l3=0x2b}
0x2869…28b3 Line {l1=0x48, l2=» UNTIL (IORESULT=0) AND ((SVAR1='A') OR (SVAR1='B') OR (SVAR1='a') OR«, l3=0x48}
0x28b3…28de Line {l1=0x29, l2=» (SVAR1='b'));«, l3=0x29}
0x28de…28f1 Line {l1=0x11, l2=» CASE SVAR1 OF«, l3=0x11}
0x28f1…290f Line {l1=0x1c, l2=» 'A','a' :IF ALI < 15 THEN«, l3=0x1c}
0x290f…291c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x291c…2931 Line {l1=0x13, l2=» ALI:=ALI+1;«, l3=0x13}
0x2931…2942 Line {l1=0x0f, l2=» I:=ALI;«, l3=0x0f}
0x2942…2952 Line {l1=0x0e, l2=» LINIE;«, l3=0x0e}
0x2952…2982 Line {l1=0x2e, l2=» IF (I=17) OR (I=ALI-1) THEN ALI:=ALI-1«, l3=0x2e}
0x2982…298e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x298e…29b0 Line {l1=0x20, l2=»'b','B':WITH VARE,ORDRE DO BEGIN«, l3=0x20}
0x29b0…29c7 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x29c7…29e8 Line {l1=0x1f, l2=» WRITELN('Linienummer');«, l3=0x1f}
0x29e8…2a15 Line {l1=0x2b, l2=» REPEAT GOTOXY(15,23);READLN;READ(I)«, l3=0x2b}
0x2a15…2a49 Line {l1=0x32, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<=ALI);«, l3=0x32}
0x2a49…2a6d Line {l1=0x22, l2=» HELTAL(1):=VARELIN(I).VNR;«, l3=0x22}
0x2a6d…2a90 Line {l1=0x21, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x2a90…2aaf Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x2aaf…2aec Line {l1=0x3b, l2=» IF (HELTAL(5)>HEAD(6)) OR (HELTAL(5)<HEAD(6)-30) OR«, l3=0x3b}
0x2aec…2b09 Line {l1=0x1b, l2=» (HEAD(6)=0) THEN«, l3=0x1b}
0x2b09…2b38 Line {l1=0x2d, l2=» IF VARELIN(I).ANTAL>REELTAL(7) THEN«, l3=0x2d}
0x2b38…2b49 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2b49…2b89 Line {l1=0x3e, l2=» REELTAL(9):=REELTAL(9)-VARELIN(I).ANTAL+REELTAL(7);«, l3=0x3e}
0x2b89…2ba3 Line {l1=0x18, l2=» REELTAL(7):=0«, l3=0x18}
0x2ba3…2bb2 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2bb2…2bea Line {l1=0x36, l2=» ELSE REELTAL(7):=REELTAL(7)-VARELIN(I).ANTAL«, l3=0x36}
0x2bea…2c21 Line {l1=0x35, l2=» ELSE REELTAL(9):=REELTAL(9)-VARELIN(I).ANTAL;«, l3=0x35}
0x2c21…2c44 Line {l1=0x21, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x21}
0x2c44…2c63 Line {l1=0x1d, l2=» IF IER<>0 THEN ERROR;«, l3=0x1d}
0x2c63…2c9b Line {l1=0x36, l2=» FOR J:=I TO ALI-1 DO VARELIN(J):=VARELIN(J+1);«, l3=0x36}
0x2c9b…2cc5 Line {l1=0x28, l2=» GOTOXY(1,5+ALI);WRITELN(' ':77);«, l3=0x28}
0x2cc5…2cd9 Line {l1=0x12, l2=» ALI:=ALI-1«, l3=0x12}
0x2cd9…2ce5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ce5…2cef Line {l1=0x08, l2=» END;«, l3=0x08}
0x2cef…2d13 Line {l1=0x22, l2=» UNTIL (SVAR1='J') OR (SVAR1='j')«, l3=0x22}
0x2d13…2d19 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2d19…2d2c Line {l1=0x11, l2=»PROCEDURE LÆSORD;«, l3=0x11}
0x2d2c…2d33 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2d33…2d42 Line {l1=0x0d, l2=»WITH ORDRE DO«, l3=0x0d}
0x2d42…2d49 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2d49…2d56 Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x2d56…2d6a Line {l1=0x12, l2=» CLEARSCREEN;«, l3=0x12}
0x2d6a…2d8f Line {l1=0x23, l2=» WRITELN('ORDREREGISTRERING');«, l3=0x23}
0x2d8f…2d9f Line {l1=0x0e, l2=» WRITELN;«, l3=0x0e}
0x2d9f…2ded Line {l1=0x4c, l2=» WRITELN(KUNDE.NAVN(1),' ':4,'Ordredato:',HEAD(7)*10000.0+HEAD(8):8:-2,«, l3=0x4c}
0x2ded…2e1a Line {l1=0x2b, l2=» 'Leveringsuge':20,HEAD(6):3);«, l3=0x2b}
0x2e1a…2e32 Line {l1=0x16, l2=» WRITELN(' ':77);«, l3=0x16}
0x2e32…2e71 Line {l1=0x3d, l2=» WRITELN(' Varenummer','Antal':8,'Pris':10,'Tekst':14);«, l3=0x3d}
0x2e71…2e8a Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x2e8a…2e97 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2e97…2ea8 Line {l1=0x0f, l2=» ALI:=I;«, l3=0x0f}
0x2ea8…2eb7 Line {l1=0x0d, l2=» LINIE«, l3=0x0d}
0x2eb7…2ec3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ec3…2ee3 Line {l1=0x1e, l2=» IF I=18 THEN ALI:=ALI-1;«, l3=0x1e}
0x2ee3…2ef3 Line {l1=0x0e, l2=» RETSIDE;«, l3=0x0e}
0x2ef3…2f18 Line {l1=0x23, l2=» (*ORDREN TIL ORDREREGISTRET*)«, l3=0x23}
0x2f18…2f31 Line {l1=0x17, l2=» FOR I:=1 TO 15 DO«, l3=0x17}
0x2f31…2f4c Line {l1=0x19, l2=» WITH ORDRELIN(I) DO«, l3=0x19}
0x2f4c…2f59 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2f59…2f72 Line {l1=0x17, l2=» IF I<= ALI THEN«, l3=0x17}
0x2f72…2f81 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2f81…2fa2 Line {l1=0x1f, l2=» VNR(1):=VARELIN(I).VNR;«, l3=0x1f}
0x2fa2…2fc5 Line {l1=0x21, l2=» VNR(2):=VARELIN(I).ANTAL;«, l3=0x21}
0x2fc5…2fe4 Line {l1=0x1d, l2=» PRIS:=VARELIN(I).PRIS«, l3=0x1d}
0x2fe4…2ff1 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2ff1…3009 Line {l1=0x16, l2=» ELSE VNR(1):=0«, l3=0x16}
0x3009…3015 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3015…304c Line {l1=0x35, l2=» IF (SVAR3='N') OR (SVAR3='n') THEN HEAD(5):=99;«, l3=0x35}
0x304c…3068 Line {l1=0x1a, l2=» INSERT(OZ.H,FORD,A);«, l3=0x1a}
0x3068…3085 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR;«, l3=0x1b}
0x3085…309f Line {l1=0x18, l2=» HEAD(5):=HEAD(5)+1«, l3=0x18}
0x309f…30c7 Line {l1=0x26, l2=» UNTIL (SVAR3='N') OR (SVAR3='n');«, l3=0x26}
0x30c7…30cc Line {l1=0x03, l2=»END«, l3=0x03}
0x30cc…30d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x30d2…30d9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x30d9…30e9 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x30e9…3108 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x3108…3120 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x3120…3150 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3150…3153 Line {l1=0x01, l2=» «, l3=0x01}
0x3153…3172 Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x3172…318a Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x318a…31ba Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x31ba…31bd Line {l1=0x01, l2=» «, l3=0x01}
0x31bd…31d8 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x31d8…31f2 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x31f2…3205 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x3205…3215 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x3215…3218 Line {l1=0x01, l2=» «, l3=0x01}
0x3218…3237 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x3237…324d Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x324d…327b Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x327b…32a5 Line {l1=0x28, l2=» LIN:='123456789012345678901234567890';«, l3=0x28}
0x32a5…32a8 Line {l1=0x01, l2=» «, l3=0x01}
0x32a8…32ed Line {l1=0x43, l2=» WRITELN('Ordresider aktuelt :',OZ.H.RECINUSE:6,' Maksimalt :',«, l3=0x43}
0x32ed…331f Line {l1=0x30, l2=» OZ.H.NREC:6);«, l3=0x30}
0x331f…332f Line {l1=0x0e, l2=» DELAY(1000);«, l3=0x0e}
0x332f…3332 Line {l1=0x01, l2=» «, l3=0x01}
0x3332…333c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x333c…3363 Line {l1=0x25, l2=» IF OZ.H.NREC-OZ.H.RECINUSE<4 THEN«, l3=0x25}
0x3363…336e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x336e…339d Line {l1=0x2d, l2=» WRITELN('Ikke plads til flere ordrer');«, l3=0x2d}
0x339d…33ab Line {l1=0x0c, l2=» R:=0.0«, l3=0x0c}
0x33ab…33b4 Line {l1=0x07, l2=» END«, l3=0x07}
0x33b4…33be Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x33be…33cd Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x33cd…33e1 Line {l1=0x12, l2=» IF R<>0.0 THEN«, l3=0x12}
0x33e1…33fd Line {l1=0x1a, l2=» IF KUNDE.NR(23)=1 THEN«, l3=0x1a}
0x33fd…3427 Line {l1=0x28, l2=» WRITELN('KUNDENS KONTO ER LUKKET')«, l3=0x28}
0x3427…3431 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3431…3444 Line {l1=0x11, l2=» WITH ORDRE DO«, l3=0x11}
0x3444…344f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x344f…3462 Line {l1=0x11, l2=» HEAD(5):=1;«, l3=0x11}
0x3462…347f Line {l1=0x1b, l2=» HEAD(1):=KUNDE.NR(1);«, l3=0x1b}
0x347f…349c Line {l1=0x1b, l2=» HEAD(2):=KUNDE.NR(2);«, l3=0x1b}
0x349c…34b9 Line {l1=0x1b, l2=» HEAD(9):=KUNDE.NR(9);«, l3=0x1b}
0x34b9…34d7 Line {l1=0x1c, l2=» HEAD(11):=KUNDE.NR(6);«, l3=0x1c}
0x34d7…34f8 Line {l1=0x1f, l2=» FILLCHAR(LINE(1),30,' ');«, l3=0x1f}
0x34f8…3519 Line {l1=0x1f, l2=» FILLCHAR(LINE(2),30,' ');«, l3=0x1f}
0x3519…354e Line {l1=0x33, l2=» IF (KUNDE.NR(4)<>0) OR (KUNDE.NR(5)<>0) THEN«, l3=0x33}
0x354e…355e Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x355e…3586 Line {l1=0x26, l2=» HEAD(10):=KUNDE1.NR(8);«, l3=0x26}
0x3586…35ae Line {l1=0x26, l2=» HEAD(12):=KUNDE1.NR(17)«, l3=0x26}
0x35ae…35bc Line {l1=0x0c, l2=» END«, l3=0x0c}
0x35bc…35c9 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x35c9…35d9 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x35d9…3600 Line {l1=0x25, l2=» HEAD(10):=KUNDE.NR(8);«, l3=0x25}
0x3600…3627 Line {l1=0x25, l2=» HEAD(12):=KUNDE.NR(17)«, l3=0x25}
0x3627…3636 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x3636…3644 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x3644…365b Line {l1=0x15, l2=» GOTOXY(1,16);«, l3=0x15}
0x365b…3684 Line {l1=0x27, l2=» WRITELN('ORDREDATO (ÅÅMMDD):');«, l3=0x27}
0x3684…36aa Line {l1=0x24, l2=» GOTOXY(21,16);READLN;READ(R)«, l3=0x24}
0x36aa…36d9 Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (R>800000.0) AND«, l3=0x2d}
0x36d9…3728 Line {l1=0x4d, l2=» (R<=SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2));«, l3=0x4d}
0x3728…3748 Line {l1=0x1e, l2=» HEAD(7):=TRUNC(R/10000);«, l3=0x1e}
0x3748…3772 Line {l1=0x28, l2=» HEAD(8):=TRUNC(R-HEAD(7)*10000.0);«, l3=0x28}
0x3772…3775 Line {l1=0x01, l2=» «, l3=0x01}
0x3775…3798 Line {l1=0x21, l2=» HEAD(3):=SYSFIL^.HELTAL(5);«, l3=0x21}
0x3798…37bb Line {l1=0x21, l2=» HEAD(4):=SYSFIL^.HELTAL(6);«, l3=0x21}
0x37bb…37c9 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x37c9…37e0 Line {l1=0x15, l2=» GOTOXY(1,16);«, l3=0x15}
0x37e0…3812 Line {l1=0x30, l2=» WRITELN('LEVERINGSUGE, 0 FOR OMGÅENDE');«, l3=0x30}
0x3812…3838 Line {l1=0x24, l2=» GOTOXY(40,16);READLN;READ(I)«, l3=0x24}
0x3838…386a Line {l1=0x30, l2=» UNTIL (IORESULT=0) AND (I>=0) AND (I<=53);«, l3=0x30}
0x386a…387d Line {l1=0x11, l2=» HEAD(6):=I;«, l3=0x11}
0x387d…3894 Line {l1=0x15, l2=» RETBETINGELSER;«, l3=0x15}
0x3894…38a2 Line {l1=0x0c, l2=» LÆSORD;«, l3=0x0c}
0x38a2…38b8 Line {l1=0x14, l2=» WITH SYSFIL^ DO«, l3=0x14}
0x38b8…38c4 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x38c4…38e2 Line {l1=0x1c, l2=» HELTAL(6):=HELTAL(6)+1;«, l3=0x1c}
0x38e2…3900 Line {l1=0x1c, l2=» IF HELTAL(6)=10000 THEN«, l3=0x1c}
0x3900…390c Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x390c…392c Line {l1=0x1e, l2=» HELTAL(5):=HELTAL(5)+1;«, l3=0x1e}
0x392c…3941 Line {l1=0x13, l2=» HELTAL(6):=0«, l3=0x13}
0x3941…394c Line {l1=0x09, l2=» END;«, l3=0x09}
[…0x1…]
0x3957…396b Line {l1=0x12, l2=» GOTOXY(1,22);«, l3=0x12}
0x396b…39b5 Line {l1=0x48, l2=» WRITELN('ORDRENUMMER : ',ORDRE.HEAD(3)*10000.0+ORDRE.HEAD(4):12:-2,«, l3=0x48}
0x39b5…39e6 Line {l1=0x2f, l2=» ' ':10,'TRYK RETURN NÅR NOTERET');«, l3=0x2f}
0x39e6…3a01 Line {l1=0x19, l2=» GOTOXY(70,22);READLN«, l3=0x19}
0x3a01…3a0a Line {l1=0x07, l2=» END«, l3=0x07}
0x3a0a…3a1a Line {l1=0x0e, l2=» UNTIL R=0.0;«, l3=0x0e}
0x3a1a…3a33 Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x3a33…3a4c Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x3a4c…3a65 Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x3a65…3a7b Line {l1=0x14, l2=» SEEK(SYSFIL,1);«, l3=0x14}
0x3a7b…3a8e Line {l1=0x11, l2=» PUT(SYSFIL);«, l3=0x11}
0x3a8e…3aa3 Line {l1=0x13, l2=» CLOSE(SYSFIL);«, l3=0x13}
0x3aa3…3acc Line {l1=0x27, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x27}
0x3acc…3ad2 Line {l1=0x04, l2=»END.«, l3=0x04}
0x3ad2…3ae0 00 00 20 20 20 20 20 48 45 4c 54 41 4c 3a ┆ HELTAL:┆
0x3ae0…3b00 41 52 52 41 59 20 28 31 2e 2e 31 31 29 20 4f 46 20 49 4e 54 45 47 45 52 3b 28 47 20 28 2a 56 41 ┆ARRAY (1..11) OF INTEGER;(G (*VA┆
0x3b00…3b20 52 45 4e 52 2c 4c 56 52 4e 44 5c 52 2c 4f 50 52 4c 41 4e 44 2c 50 41 4b 45 4e 48 45 44 2c 46 4f ┆RENR,LVRNDØR,OPRLAND,PAKENHED,FO┆
0x3b20…3b40 52 56 4c 45 56 55 2c 44 41 54 53 42 45 53 31 2c 44 41 54 53 42 45 53 32 2c 44 41 54 53 4f 52 44 ┆RVLEVU,DATSBES1,DATSBES2,DATSORD┆
0x3b40…3b60 31 2c 47 1f 20 20 20 44 41 54 53 4f 52 44 32 2c 44 5b 4b 47 52 41 53 5d 2c 41 4e 41 46 54 49 4c ┆1,G DATSORD2,DÆKGRASÅ,ANAFTIL┆
0x3b60…3b80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1e…]
0x3f40…3f60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆