|
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: »QFAKTURA.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »QFAKTURA.K«
PROGRAM FAKTURERING;
(*$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;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
OLINE = RECORD
VNR :ARRAY (1..2) OF INTEGER;
(*VNR,BESTILT*)
PRIS: REAL
END;
PLUORPOST=RECORD
A:AR;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
(*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,
RESTORDREKODE,RABAT*)
ORDRELIN : ARRAY (1..15) OF PLUOLINE
END;
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;
FAKPOST= RECORD
FORSEND:INTEGER;
EMBAL,FRAGT:REAL;
HEAD:ARRAY (1..12) OF INTEGER;
LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;
DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;
TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;
KODE8,KODE9,BRUTTOVÆGT:INTEGER;
ORDRELIN: ARRAY(1..15) OF PLUOLINE
END;
FAKFILE=FILE OF FAKPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
PLUZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..1118) 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;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL:REAL
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..327) OF INTEGER
END;
VAR FROR,FVAR,FORD,FPLU,FKUN : ISF;
FAKFIL:FAKFILE;
VZ:VZONE;
KZ:KZONE;
OZ:ORDZONE;
RZ:RORZONE;
RESTORD:RORPOST;
LIN:STRING(30);
PZ:PLUZONE;
ORDRE:ORDREPOST;
VARE:VPOST;
PLUORD:PLUORPOST;
KUNDE:KPOST;
FNAVN:STRING(20);
IER,I,J,K,L
:INTEGER;
R,R1 :REAL;
TMÅDE,UDPSTED,
SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;
QUQ:^INTEGER;
SEGMENT PROCEDURE INIT;
BEGIN
SENDTPR(1):='Post ';
SENDTPR(2):='Luftpost ';
SENDTPR(3):='Bane ';
SENDTPR(4):='Fragtmand ';
SENDTPR(5):='Samson / Liniegods ';
SENDTPR(6):='Samson / Olson & Wright ';
SENDTPR(7):='Leman ';
SENDTPR(8):='Deres transportør ';
SENDTPR(9):='Skib ';
SENDTPR(10):='Veritas ';
SENDTPR(11):='DFDS ';
SENDTPR(12):='Faroe ship ';
SENDTPR(13):='Vogn / bil ';
SENDTPR(14):='Afhentet ';
FOR I:=15 TO 19 DO
SENDTPR(I):= ' ';
SENDTPR(20):='Brevdue ';
TMÅDE(1):= 'Dansk skib 11';
TMÅDE(2):= 'Udenlandsk skib 15';
TMÅDE(3):= 'Bane 20';
TMÅDE(4):= 'Post 30';
TMÅDE(5):= 'Fly 40';
TMÅDE(6):= 'Dansk bil 51';
TMÅDE(7):= 'Udenlandsk bil 55';
TMÅDE(8):= 'Anden transportmåde 90';
FOR I:=9 TO 20 DO
TMÅDE(I):= '______________________________';
UDPSTED(1):= ' 010';
UDPSTED(2):= ' 020';
UDPSTED(3):= 'Københavns havn 040';
UDPSTED(4):= 'Københavns frihavn 041';
UDPSTED(5):= 'Dragør havn 044';
UDPSTED(6):= 'Københavns lufthavn 050';
UDPSTED(7):= 'Gedser havn 593';
UDPSTED(8):= 'Padborg 650';
UDPSTED(9):= 'Rødby havn 730';
FOR I:=10 TO 20 DO
UDPSTED(I):='______________________________'
END;
(*$R-,L-,IIOPEN*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(PZ.H,FPLU);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE TILBAGE;
VAR RESTNÅET:BOOLEAN;
BEGIN
RESTNÅET:=FALSE;
(*TILBAGEFØRING*)
WITH PLUORD DO
REPEAT
FOR J:=1 TO 15 DO IF ORDRELIN(J).VNR(1)<>0 THEN
BEGIN
IF RESTNÅET THEN
BEGIN
RESTORD.HEAD(1):=HEAD(1);
RESTORD.HEAD(2):=HEAD(2);
RESTORD.HEAD(3):=ORDRELIN(J).VNR(1);
RESTORD.ANTAL:=0;
RESTORD.HEAD(4):=0;RESTORD.HEAD(5):=0;
GETREC(RZ.H,FROR,RESTORD.A);
RESTORD.ANTAL:=RESTORD.ANTAL+ORDRELIN(J).VNR(3);
IF (HEAD(7)>RESTORD.HEAD(4)) OR
((HEAD(7)=RESTORD.HEAD(4)) AND (HEAD(8)>RESTORD.HEAD(5))) THEN
BEGIN
RESTORD.HEAD(4):=HEAD(7);
RESTORD.HEAD(5):=HEAD(8)
END;
IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)
ELSE
IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);
IF IER<>0 THEN ERROR;
ORDRE.ORDRELIN(J).VNR(1):=0
END
ELSE
BEGIN
VARE.HELTAL(1):=ORDRELIN(J).VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)
IF IER=0 THEN
BEGIN
VARE.REELTAL(4):=VARE.REELTAL(4)+ORDRELIN(J).VNR(2);
VARE.REELTAL(7):=VARE.REELTAL(7)+ORDRELIN(J).VNR(2);
PUTREC(VZ.H,FVAR,VARE.A);
ORDRE.ORDRELIN(J).VNR(1):=ORDRELIN(J).VNR(1);
ORDRE.ORDRELIN(J).VNR(2):=ORDRELIN(J).VNR(3);
ORDRE.ORDRELIN(J).PRIS:=ORDRELIN(J).PRIS
END
END
END
ELSE
BEGIN
IF ORDRELIN(J).VNR(1)=1 THEN RESTNÅET:=TRUE;
ORDRE.ORDRELIN(J).VNR(1):=0;
END;
FOR I:=1 TO 12 DO ORDRE.HEAD(I):=HEAD(I);
ORDRE.LINE(1):=LINE(1);
ORDRE.LINE(2):=LINE(2);
INSERT(OZ.H,FORD,ORDRE.A);
DELETE(PZ.H,FPLU,A)
UNTIL ORDRE.HEAD(5)=99
END;
PROCEDURE ÆNDRING;
BEGIN
REPEAT
GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT ');
GOTOXY(40,23);READLN;READ(I)
UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));
J:=1;
WHILE I<>0 DO
WITH PLUORD DO
BEGIN
WHILE (I<>ORDRELIN(J).VNR(1)) AND (I<>0) DO
BEGIN
J:=J+1;
IF J>15 THEN
BEGIN
IF HEAD(5)<99 THEN
BEGIN
PUTREC(PZ.H,FPLU,A);
NEXTREC(PZ.H,FPLU,A)
END
ELSE I:=0;
J:=1
END
END;
IF I=0 THEN
BEGIN
GOTOXY(1,23);WRITELN('VARENUMMER FINDES IKKE')
END
ELSE
BEGIN
VARE.HELTAL(1):=ORDRELIN(J).VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)
IF IER=0 THEN
BEGIN
GOTOXY(1,5);
WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),
ORDRELIN(J).PRIS/100:12:2,
ORDRELIN(J).VNR(2):10,
ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);
REPEAT
GOTOXY(63,5);READLN;READ(K)
UNTIL (IORESULT=0) AND (K>=0) AND (K<=ORDRELIN(J).VNR(3));
VARE.REELTAL(9):=VARE.REELTAL(9)+ORDRELIN(J).VNR(2)-K;
VARE.HELTAL(11):=VARE.HELTAL(11)+K-ORDRELIN(J).VNR(2);
ORDRELIN(J).VNR(2):=K;
GOTOXY(1,5);WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),
ORDRELIN(J).PRIS/100:12:2,
ORDRELIN(J).VNR(2):10,
ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);
PUTREC(VZ.H,FVAR,VARE.A)
END
END;
REPEAT
GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT');
GOTOXY(40,23);READLN;READ(I)
UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));
END
END;
PROCEDURE UÆNDRET;
CONST BANE=3;
POST=1;
DERES=8;
VAR J,F:INTEGER;
R:REAL;
PROCEDURE EXTEND;
BEGIN
IF KUNDE.NR(18)=1 THEN
WITH FAKFIL^ DO
BEGIN
GOTOXY(1,19);
WRITELN('Leveringsbetingelser ');
FOR J:=1 TO 20 DO LIN(J):=' ';
GOTOXY(30,19);
EDIT(LIN:20);
FOR J:=1 TO 20 DO DITTO(1,J):=LIN(J);
GOTOXY(1,21);
WRITELN('Pakning');
FOR J:=1 TO 20 DO LIN(J):=' ';
GOTOXY(10,21);
EDIT(LIN:20);
FOR J:=1 TO 20 DO DITTO(2,J):=LIN(J);
REPEAT
GOTOXY(1,22);
WRITELN('Bruttovægt');
GOTOXY(12,22);
READLN;READ(BRUTTOVÆGT)
UNTIL IORESULT=0;
GOTOXY(1,23);
WRITELN('Antal kolli og art');
LIN:=' ';
GOTOXY(20,23);
EDIT(LIN:30);
FOR J:=1 TO 30 DO AKOLLI(J):=LIN(J)
END
END;
BEGIN
CLEARSCREEN;
KUNDE.NR(1):=PLUORD.HEAD(1);
KUNDE.NR(2):=PLUORD.HEAD(2);
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
LIN:='123456789012345678901234567890';
REPEAT
GOTOXY(1,1);WRITELN('FORSENDELSESMÅDE ');
FOR I:=1 TO 10 DO
WRITELN(2*I-1:3,' ',SENDTPR(2*I-1),2*I:5,' ',SENDTPR(2*I));
GOTOXY(40,1);READLN;READ(F)
UNTIL (IORESULT=0) AND (F>0) AND (F<21);
FAKFIL^.FORSEND:=F;
FAKFIL^.KODE8:=0;
FAKFIL^.KODE9:=0;
FILLCHAR(FAKFIL^.TRANSPORTØR,30,' ');
IF KUNDE.NR(18)=1 THEN
WITH FAKFIL^ DO
CASE F OF
POST : BEGIN
KODE8:=4;(*TRANSPORTMÅDETABEL*)
KODE9:=1 (*UDPASSAGESTEDTABEL*)
END;
BANE : BEGIN
KODE8:=3; (*TRANSPORTMÅDETABEL*)
KODE9:=2 (*UDPASSAGESTEDTABEL*)
END;
DERES: BEGIN
FOR J:=1 TO 30 DO LIN(J):=' ';
GOTOXY(1,12);
WRITELN('Transportør');
GOTOXY(14,12);
EDIT(LIN:30);
FOR J:=1 TO 30 DO TRANSPORTØR(J):=LIN(J)
END;
5,6,7,11,12: TRANSPORTØR:=SENDTPR(F);
OTHERWISE
BEGIN
CLEARSCREEN;
REPEAT
GOTOXY(1,1);
WRITELN('Transportmåde');
FOR I:=1 TO 10 DO
WRITELN(2*I-1:3,' ',
TMÅDE(2*I-1),2*I:5,' ',
TMÅDE(2*I));
GOTOXY(40,1);READLN;READ(KODE8)
UNTIL (IORESULT=0) AND (KODE8>0) AND (KODE8<21);
CLEARSCREEN;
REPEAT
GOTOXY(1,1);
WRITELN('Udpassagested');
FOR I:=1 TO 10 DO
WRITELN(2*I-1:3,' ',
UDPSTED(2*I-1),2*I:5,' ',
UDPSTED(2*I));
GOTOXY(40,1);READLN;READ(KODE9)
UNTIL (IORESULT=0) AND (KODE9>0) AND (KODE9<21)
END;
R:=0;
REPEAT
GOTOXY(1,13);WRITELN('FRAGT ');
GOTOXY(40,13);READLN;READ(R)
UNTIL IORESULT=0;
FAKFIL^.FRAGT:=R*100;
R:=0;
IF KUNDE.NR(15)=1 THEN
REPEAT
GOTOXY(1,13);WRITELN('EMBALLAGE ');
GOTOXY(40,13);READLN;READ(R)
UNTIL IORESULT=0;
FAKFIL^.EMBAL:=R*100;
GOTOXY(1,15);
WRITELN('TEKST 1 ');
FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(1,J);
GOTOXY(11,15);
EDIT(LIN:30);
FOR J:=1 TO 30 DO FAKFIL^.LINE(1,J):=LIN(J);
GOTOXY(1,16);
WRITELN('TEKST 2 ');
FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(2,J);
GOTOXY(11,16);
EDIT(LIN:30);
FOR J:=1 TO 30 DO FAKFIL^.LINE(2,J):=LIN(J);
EXTEND;
REPEAT
FAKFIL^.HEAD:=PLUORD.HEAD;
FAKFIL^.ORDRELIN:=PLUORD.ORDRELIN;
PUT(FAKFIL);
DELETE(PZ.H,FPLU,PLUORD.A)
UNTIL FAKFIL^.HEAD(5)=99
END;
BEGIN
CLEARSCREEN;
GOTOXY(1,1);WRITELN('FAKTURERING');
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='ORDRERG:P2:0000:I';
REWRITE(FORD,FNAVN);
IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='PLUOR:P2:0000:I';
REWRITE(FPLU,FNAVN);
IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;
FNAVN:='RESTREG:P2:0000:I';
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;
FNAVN:='FAKREG:P2:30:I';
REWRITE(FAKFIL,FNAVN);
REPEAT
GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER ORDRENUMMER ');
GOTOXY(40,23);READLN;READ(R1,R)
UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0)) AND
(((R1>9999.0) AND (R1<100000.0)) OR (R1=0));
INIT;
WHILE R1<>0 DO
WITH PLUORD DO
BEGIN
I:=TRUNC(R/10000);
J:=TRUNC(R-10000.0*I);
K:=TRUNC(R1/10000);
L:=TRUNC(R1-10000.0*K);
HEAD(1):=K;HEAD(2):=L;
HEAD(3):=I;HEAD(4):=J;
HEAD(5):=0;
NEXTREC(PZ.H,FPLU,A);
IF IER>0 THEN ERROR;
IF (HEAD(3)<>I) OR (HEAD(4)<>J) OR (HEAD(1)<>K) OR (HEAD(2)<>L) THEN
BEGIN
GOTOXY(1,24);
WRITELN('ORDREN FINDES IKKE')
END
ELSE
BEGIN
CLEARSCREEN;
REPEAT
GOTOXY(1,19);
WRITELN('SKAL ORDREN FAKTURERES UÆNDRET (1)');
WRITELN('ER DER ÆNDRINGER I.F.T. PAKKELISTE (2)');
WRITELN('SKAL ORDREN TILBAGEFØRES TIL ORDREREG (3)');
WRITELN('ORDREN SKAL IKKE FAKTURERES (4)');
GOTOXY(1,23);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<5);
IF I=3 THEN
TILBAGE
ELSE
BEGIN
WHILE I=2 DO
BEGIN
(*ÆNDRINGER*)
CLEARSCREEN;
ÆNDRING;
REPEAT
GOTOXY(1,23);WRITELN('FÆRDIG (1), FLERE ÆNDRINGER (2)');
GOTOXY(50,23);READLN;READ(I)
UNTIL (IORESULT=0) AND ((I=1) OR (I=2));
PUTREC(PZ.H,FPLU,A);
HEAD(5):=0;
NEXTREC(PZ.H,FPLU,A)
END;
(*UÆNDRET*)
IF I<4 THEN
BEGIN
UÆNDRET;
END
END;
END;
REPEAT
CLEARSCREEN;
GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER, ORDRENUMMER ');
GOTOXY(40,23);READLN;READ(R1,R)
UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0.0)) AND
(((R1>9999.0) AND (R1<100000.0)) OR (R1=0.0));
END;
FAKFIL^.HEAD(1):=0;
FAKFIL^.HEAD(2):=0;
PUT(FAKFIL);
ICLOSE(VZ.H,FVAR);
ICLOSE(OZ.H,FORD);
ICLOSE(PZ.H,FPLU);
ICLOSE(KZ.H,FKUN);
ICLOSE(RZ.H,FROR);
WRITELN('CHAIN NORMFAKT');
CHAIN('INTRE *1','NORMFAKT:P1',QUQ); (*TOLDSORT,TOLDFAKT*)
END.
0x0000…0016 Line {l1=0x14, l2=»PROGRAM FAKTURERING;«, l3=0x14}
0x0016…0026 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0026…0035 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0035…004b Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x004b…0075 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0075…00be Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00be…00df Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00df…011a Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x011a…013b Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x013b…0163 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0163…01a9 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01a9…01ed Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x01ed…01f5 Line {l1=0x06, l2=» END;«, l3=0x06}
0x01f5…0209 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0209…0230 Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x0230…0251 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0251…0265 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x0265…026d Line {l1=0x06, l2=» END;«, l3=0x06}
0x026d…027e Line {l1=0x0f, l2=» OLINE = RECORD«, l3=0x0f}
0x027e…02a5 Line {l1=0x25, l2=» VNR :ARRAY (1..2) OF INTEGER;«, l3=0x25}
0x02a5…02be Line {l1=0x17, l2=» (*VNR,BESTILT*)«, l3=0x17}
0x02be…02d2 Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x02d2…02da Line {l1=0x06, l2=» END;«, l3=0x06}
0x02da…02ed Line {l1=0x11, l2=» PLUORPOST=RECORD«, l3=0x11}
0x02ed…02fc Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x02fc…0324 Line {l1=0x26, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x26}
0x0324…0360 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x0360…03a3 Line {l1=0x41, l2=» (*KNR1,KNR2,ONR1,ONR2,SIDE,LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,«, l3=0x41}
0x03a3…03bd Line {l1=0x18, l2=» RESTORDREKODE,RABAT*)«, l3=0x18}
0x03bd…03eb Line {l1=0x2c, l2=» ORDRELIN : ARRAY (1..15) OF PLUOLINE«, l3=0x2c}
0x03eb…03f3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03f3…0408 Line {l1=0x13, l2=» ORDREPOST = RECORD«, l3=0x13}
0x0408…0417 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0417…041c Line {l1=0x03, l2=» (*«, l3=0x03}
0x041c…0430 Line {l1=0x12, l2=» KNR1,KNR2,«, l3=0x12}
0x0430…0442 Line {l1=0x10, l2=» NR1,NR2,«, l3=0x10}
0x0442…0451 Line {l1=0x0d, l2=» SIDE,«, l3=0x0d}
0x0451…0495 Line {l1=0x42, l2=» LEVUGE,ORDREDATO1-2,LEVKODE,BETAKODE,RESTORDREKODE,RABAT*)«, l3=0x42}
0x0495…04bd Line {l1=0x26, l2=» HEAD :ARRAY(1..12) OF INTEGER;«, l3=0x26}
0x04bd…04f9 Line {l1=0x3a, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x04f9…0524 Line {l1=0x29, l2=» ORDRELIN : ARRAY (1..15) OF OLINE«, l3=0x29}
0x0524…052c Line {l1=0x06, l2=» END;«, l3=0x06}
0x052c…053a Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x053a…0548 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0548…056d Line {l1=0x23, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x23}
0x056d…05a9 Line {l1=0x3a, l2=» NAVN: ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3a}
0x05a9…05d7 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x05d7…0604 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0604…062e Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x062e…0654 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0654…065a Line {l1=0x04, l2=»END;«, l3=0x04}
0x065a…066b Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x066b…0684 Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x0684…069e Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x069e…06c5 Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x06c5…0700 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0700…073c Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x073c…0775 Line {l1=0x37, l2=» TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;«, l3=0x37}
0x0775…079d Line {l1=0x26, l2=» KODE8,KODE9,BRUTTOVÆGT:INTEGER;«, l3=0x26}
0x079d…07c8 Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x07c8…07ce Line {l1=0x04, l2=»END;«, l3=0x04}
0x07ce…07e8 Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x07e8…07f8 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x07f8…080c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x080c…0830 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0830…0838 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0838…0849 Line {l1=0x0f, l2=» PLUZONE=RECORD«, l3=0x0f}
0x0849…085d Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x085d…0882 Line {l1=0x23, l2=» T:ARRAY(1..1118) OF INTEGER«, l3=0x23}
0x0882…088a Line {l1=0x06, l2=» END;«, l3=0x06}
0x088a…089b Line {l1=0x0f, l2=» ORDZONE=RECORD«, l3=0x0f}
0x089b…08af Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x08af…08d3 Line {l1=0x22, l2=» T:ARRAY(1..930) OF INTEGER«, l3=0x22}
0x08d3…08db Line {l1=0x06, l2=» END;«, l3=0x06}
0x08db…08e9 Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x08e9…08fc Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x08fc…091f Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x091f…0925 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0925…0936 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0936…0945 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0945…0959 Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x0959…0967 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0967…09a2 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x09a2…09b6 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x09b6…09be Line {l1=0x06, l2=» END;«, l3=0x06}
0x09be…09cf Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x09cf…09e3 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x09e3…0a07 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0a07…0a0f Line {l1=0x06, l2=» END;«, l3=0x06}
0x0a0f…0a13 Line {l1=0x02, l2=» «, l3=0x02}
[…0x2…]
0x0a1b…0a49 Line {l1=0x2c, l2=» VAR FROR,FVAR,FORD,FPLU,FKUN : ISF;«, l3=0x2c}
0x0a49…0a62 Line {l1=0x17, l2=» FAKFIL:FAKFILE;«, l3=0x17}
0x0a62…0a75 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0a75…0a88 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0a88…0a9d Line {l1=0x13, l2=» OZ:ORDZONE;«, l3=0x13}
0x0a9d…0ab2 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0ab2…0acc Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0acc…0ae5 Line {l1=0x17, l2=» LIN:STRING(30);«, l3=0x17}
0x0ae5…0afa Line {l1=0x13, l2=» PZ:PLUZONE;«, l3=0x13}
0x0afa…0b14 Line {l1=0x18, l2=» ORDRE:ORDREPOST;«, l3=0x18}
0x0b14…0b29 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0b29…0b44 Line {l1=0x19, l2=» PLUORD:PLUORPOST;«, l3=0x19}
0x0b44…0b5a Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0b5a…0b75 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0b75…0b8a Line {l1=0x13, l2=» IER,I,J,K,L«, l3=0x13}
0x0b8a…0bad Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0bad…0bcd Line {l1=0x1e, l2=» R,R1 :REAL;«, l3=0x1e}
0x0bcd…0be5 Line {l1=0x16, l2=» TMÅDE,UDPSTED,«, l3=0x16}
0x0be5…0c25 Line {l1=0x3e, l2=» SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3e}
0x0c25…0c3c Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0c3c…0c55 Line {l1=0x17, l2=»SEGMENT PROCEDURE INIT;«, l3=0x17}
0x0c55…0c5c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c5c…0c8d Line {l1=0x2f, l2=» SENDTPR(1):='Post ';«, l3=0x2f}
0x0c8d…0cbe Line {l1=0x2f, l2=» SENDTPR(2):='Luftpost ';«, l3=0x2f}
0x0cbe…0cef Line {l1=0x2f, l2=» SENDTPR(3):='Bane ';«, l3=0x2f}
0x0cef…0d20 Line {l1=0x2f, l2=» SENDTPR(4):='Fragtmand ';«, l3=0x2f}
0x0d20…0d51 Line {l1=0x2f, l2=» SENDTPR(5):='Samson / Liniegods ';«, l3=0x2f}
0x0d51…0d82 Line {l1=0x2f, l2=» SENDTPR(6):='Samson / Olson & Wright ';«, l3=0x2f}
0x0d82…0db3 Line {l1=0x2f, l2=» SENDTPR(7):='Leman ';«, l3=0x2f}
0x0db3…0de4 Line {l1=0x2f, l2=» SENDTPR(8):='Deres transportør ';«, l3=0x2f}
0x0de4…0e15 Line {l1=0x2f, l2=» SENDTPR(9):='Skib ';«, l3=0x2f}
0x0e15…0e47 Line {l1=0x30, l2=» SENDTPR(10):='Veritas ';«, l3=0x30}
0x0e47…0e79 Line {l1=0x30, l2=» SENDTPR(11):='DFDS ';«, l3=0x30}
0x0e79…0eab Line {l1=0x30, l2=» SENDTPR(12):='Faroe ship ';«, l3=0x30}
0x0eab…0edd Line {l1=0x30, l2=» SENDTPR(13):='Vogn / bil ';«, l3=0x30}
0x0edd…0f0f Line {l1=0x30, l2=» SENDTPR(14):='Afhentet ';«, l3=0x30}
0x0f0f…0f25 Line {l1=0x14, l2=» FOR I:=15 TO 19 DO«, l3=0x14}
0x0f25…0f57 Line {l1=0x30, l2=» SENDTPR(I):= ' ';«, l3=0x30}
0x0f57…0f89 Line {l1=0x30, l2=» SENDTPR(20):='Brevdue ';«, l3=0x30}
0x0f89…0fbb Line {l1=0x30, l2=» TMÅDE(1):= 'Dansk skib 11';«, l3=0x30}
0x0fbb…0fed Line {l1=0x30, l2=» TMÅDE(2):= 'Udenlandsk skib 15';«, l3=0x30}
0x0fed…101f Line {l1=0x30, l2=» TMÅDE(3):= 'Bane 20';«, l3=0x30}
0x101f…1051 Line {l1=0x30, l2=» TMÅDE(4):= 'Post 30';«, l3=0x30}
0x1051…1083 Line {l1=0x30, l2=» TMÅDE(5):= 'Fly 40';«, l3=0x30}
0x1083…10b5 Line {l1=0x30, l2=» TMÅDE(6):= 'Dansk bil 51';«, l3=0x30}
0x10b5…10e7 Line {l1=0x30, l2=» TMÅDE(7):= 'Udenlandsk bil 55';«, l3=0x30}
0x10e7…1119 Line {l1=0x30, l2=» TMÅDE(8):= 'Anden transportmåde 90';«, l3=0x30}
0x1119…112e Line {l1=0x13, l2=» FOR I:=9 TO 20 DO«, l3=0x13}
0x112e…1160 Line {l1=0x30, l2=» TMÅDE(I):= '______________________________';«, l3=0x30}
0x1160…1192 Line {l1=0x30, l2=» UDPSTED(1):= ' 010';«, l3=0x30}
0x1192…11c4 Line {l1=0x30, l2=» UDPSTED(2):= ' 020';«, l3=0x30}
0x11c4…11f6 Line {l1=0x30, l2=» UDPSTED(3):= 'Københavns havn 040';«, l3=0x30}
0x11f6…1228 Line {l1=0x30, l2=» UDPSTED(4):= 'Københavns frihavn 041';«, l3=0x30}
0x1228…125a Line {l1=0x30, l2=» UDPSTED(5):= 'Dragør havn 044';«, l3=0x30}
0x125a…128c Line {l1=0x30, l2=» UDPSTED(6):= 'Københavns lufthavn 050';«, l3=0x30}
0x128c…12be Line {l1=0x30, l2=» UDPSTED(7):= 'Gedser havn 593';«, l3=0x30}
0x12be…12f0 Line {l1=0x30, l2=» UDPSTED(8):= 'Padborg 650';«, l3=0x30}
0x12f0…1322 Line {l1=0x30, l2=» UDPSTED(9):= 'Rødby havn 730';«, l3=0x30}
0x1322…1338 Line {l1=0x14, l2=» FOR I:=10 TO 20 DO«, l3=0x14}
0x1338…136a Line {l1=0x30, l2=» UDPSTED(I):='______________________________'«, l3=0x30}
0x136a…1370 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1370…1384 Line {l1=0x12, l2=» (*$R-,L-,IIOPEN*)«, l3=0x12}
0x1384…1395 Line {l1=0x0f, l2=» (*$IEXCOMCOP*)«, l3=0x0f}
0x1395…13a3 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x13a3…13b4 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x13b4…13c5 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x13c5…13d5 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x13d5…13e4 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x13e4…13f2 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x13f2…1401 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x1401…1410 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x1410…141f Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x141f…142c Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x142c…143f Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x143f…1447 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x1447…146c Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x146c…1483 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x1483…149a Line {l1=0x15, l2=» ICLOSE(OZ.H,FORD);«, l3=0x15}
0x149a…14b1 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x15}
0x14b1…14c8 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x14c8…14df Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x14df…14fb Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x14fb…150a Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x150a…1511 Line {l1=0x05, l2=» END;«, l3=0x05}
0x1511…1526 Line {l1=0x13, l2=» PROCEDURE TILBAGE;«, l3=0x13}
0x1526…153e Line {l1=0x16, l2=» VAR RESTNÅET:BOOLEAN;«, l3=0x16}
0x153e…154c Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x154c…1567 Line {l1=0x19, l2=» RESTNÅET:=FALSE;«, l3=0x19}
0x1567…1583 Line {l1=0x1a, l2=» (*TILBAGEFØRING*)«, l3=0x1a}
0x1583…159c Line {l1=0x17, l2=» WITH PLUORD DO«, l3=0x17}
0x159c…15ad Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x15ad…15e9 Line {l1=0x3a, l2=» FOR J:=1 TO 15 DO IF ORDRELIN(J).VNR(1)<>0 THEN«, l3=0x3a}
0x15e9…15fb Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x15fb…161a Line {l1=0x1d, l2=» IF RESTNÅET THEN«, l3=0x1d}
0x161a…162e Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x162e…1658 Line {l1=0x28, l2=» RESTORD.HEAD(1):=HEAD(1);«, l3=0x28}
0x1658…1682 Line {l1=0x28, l2=» RESTORD.HEAD(2):=HEAD(2);«, l3=0x28}
0x1682…16b7 Line {l1=0x33, l2=» RESTORD.HEAD(3):=ORDRELIN(J).VNR(1);«, l3=0x33}
0x16b7…16d9 Line {l1=0x20, l2=» RESTORD.ANTAL:=0;«, l3=0x20}
0x16d9…1710 Line {l1=0x35, l2=» RESTORD.HEAD(4):=0;RESTORD.HEAD(5):=0;«, l3=0x35}
0x1710…173d Line {l1=0x2b, l2=» GETREC(RZ.H,FROR,RESTORD.A);«, l3=0x2b}
0x173d…177e Line {l1=0x3f, l2=» RESTORD.ANTAL:=RESTORD.ANTAL+ORDRELIN(J).VNR(3);«, l3=0x3f}
0x177e…17ae Line {l1=0x2e, l2=» IF (HEAD(7)>RESTORD.HEAD(4)) OR«, l3=0x2e}
0x17ae…17fd Line {l1=0x4d, l2=» ((HEAD(7)=RESTORD.HEAD(4)) AND (HEAD(8)>RESTORD.HEAD(5))) THEN«, l3=0x4d}
0x17fd…1813 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x1813…183f Line {l1=0x2a, l2=» RESTORD.HEAD(4):=HEAD(7);«, l3=0x2a}
0x183f…186a Line {l1=0x29, l2=» RESTORD.HEAD(5):=HEAD(8)«, l3=0x29}
0x186a…187f Line {l1=0x13, l2=» END;«, l3=0x13}
0x187f…18b9 Line {l1=0x38, l2=» IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)«, l3=0x38}
0x18b9…18ce Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x18ce…190a Line {l1=0x3a, l2=» IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x3a}
0x190a…1930 Line {l1=0x24, l2=» IF IER<>0 THEN ERROR;«, l3=0x24}
0x1930…195c Line {l1=0x2a, l2=» ORDRE.ORDRELIN(J).VNR(1):=0«, l3=0x2a}
0x195c…196e Line {l1=0x10, l2=» END«, l3=0x10}
0x196e…1981 Line {l1=0x11, l2=» ELSE«, l3=0x11}
0x1981…1995 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x1995…19c7 Line {l1=0x30, l2=» VARE.HELTAL(1):=ORDRELIN(J).VNR(1);«, l3=0x30}
0x19c7…19ef Line {l1=0x26, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x26}
0x19ef…1a29 Line {l1=0x38, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)«, l3=0x38}
0x1a29…1a45 Line {l1=0x1a, l2=» IF IER=0 THEN«, l3=0x1a}
0x1a45…1a59 Line {l1=0x12, l2=» BEGIN«, l3=0x12}
0x1a59…1a9c Line {l1=0x41, l2=» VARE.REELTAL(4):=VARE.REELTAL(4)+ORDRELIN(J).VNR(2);«, l3=0x41}
0x1a9c…1adf Line {l1=0x41, l2=» VARE.REELTAL(7):=VARE.REELTAL(7)+ORDRELIN(J).VNR(2);«, l3=0x41}
0x1adf…1b07 Line {l1=0x26, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x26}
0x1b07…1b43 Line {l1=0x3a, l2=» ORDRE.ORDRELIN(J).VNR(1):=ORDRELIN(J).VNR(1);«, l3=0x3a}
0x1b43…1b7f Line {l1=0x3a, l2=» ORDRE.ORDRELIN(J).VNR(2):=ORDRELIN(J).VNR(3);«, l3=0x3a}
0x1b7f…1bb6 Line {l1=0x35, l2=» ORDRE.ORDRELIN(J).PRIS:=ORDRELIN(J).PRIS«, l3=0x35}
0x1bb6…1bc8 Line {l1=0x10, l2=» END«, l3=0x10}
[…0x1…]
0x1bda…1bea Line {l1=0x0e, l2=» END«, l3=0x0e}
0x1bea…1bfb Line {l1=0x0f, l2=» ELSE«, l3=0x0f}
0x1bfb…1c0d Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x1c0d…1c48 Line {l1=0x39, l2=» IF ORDRELIN(J).VNR(1)=1 THEN RESTNÅET:=TRUE;«, l3=0x39}
0x1c48…1c73 Line {l1=0x29, l2=» ORDRE.ORDRELIN(J).VNR(1):=0;«, l3=0x29}
0x1c73…1c84 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x1c84…1cba Line {l1=0x34, l2=» FOR I:=1 TO 12 DO ORDRE.HEAD(I):=HEAD(I);«, l3=0x34}
0x1cba…1cde Line {l1=0x22, l2=» ORDRE.LINE(1):=LINE(1);«, l3=0x22}
0x1cde…1d02 Line {l1=0x22, l2=» ORDRE.LINE(2):=LINE(2);«, l3=0x22}
0x1d02…1d29 Line {l1=0x25, l2=» INSERT(OZ.H,FORD,ORDRE.A);«, l3=0x25}
0x1d29…1d49 Line {l1=0x1e, l2=» DELETE(PZ.H,FPLU,A)«, l3=0x1e}
0x1d49…1d6a Line {l1=0x1f, l2=» UNTIL ORDRE.HEAD(5)=99«, l3=0x1f}
0x1d6a…1d77 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1d77…1d8c Line {l1=0x13, l2=» PROCEDURE ÆNDRING;«, l3=0x13}
0x1d8c…1d94 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x1d94…1d9f Line {l1=0x09, l2=» REPEAT«, l3=0x09}
0x1d9f…1ddd Line {l1=0x3c, l2=» GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT ');«, l3=0x3c}
0x1ddd…1e00 Line {l1=0x21, l2=» GOTOXY(40,23);READLN;READ(I)«, l3=0x21}
0x1e00…1e3f Line {l1=0x3d, l2=» UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));«, l3=0x3d}
0x1e3f…1e49 Line {l1=0x08, l2=» J:=1;«, l3=0x08}
0x1e49…1e5b Line {l1=0x10, l2=» WHILE I<>0 DO«, l3=0x10}
0x1e5b…1e6e Line {l1=0x11, l2=» WITH PLUORD DO«, l3=0x11}
0x1e6e…1e78 Line {l1=0x08, l2=» BEGIN«, l3=0x08}
0x1e78…1eaa Line {l1=0x30, l2=» WHILE (I<>ORDRELIN(J).VNR(1)) AND (I<>0) DO«, l3=0x30}
0x1eaa…1eb6 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x1eb6…1ec6 Line {l1=0x0e, l2=» J:=J+1;«, l3=0x0e}
0x1ec6…1edb Line {l1=0x13, l2=» IF J>15 THEN«, l3=0x13}
0x1edb…1ee9 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1ee9…1f06 Line {l1=0x1b, l2=» IF HEAD(5)<99 THEN«, l3=0x1b}
0x1f06…1f16 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x1f16…1f37 Line {l1=0x1f, l2=» PUTREC(PZ.H,FPLU,A);«, l3=0x1f}
0x1f37…1f58 Line {l1=0x1f, l2=» NEXTREC(PZ.H,FPLU,A)«, l3=0x1f}
0x1f58…1f66 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x1f66…1f7b Line {l1=0x13, l2=» ELSE I:=0;«, l3=0x13}
0x1f7b…1f8a Line {l1=0x0d, l2=» J:=1«, l3=0x0d}
0x1f8a…1f96 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1f96…1fa1 Line {l1=0x09, l2=» END;«, l3=0x09}
0x1fa1…1fb3 Line {l1=0x10, l2=» IF I=0 THEN«, l3=0x10}
0x1fb3…1fbf Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x1fbf…1ff6 Line {l1=0x35, l2=» GOTOXY(1,23);WRITELN('VARENUMMER FINDES IKKE')«, l3=0x35}
0x1ff6…2000 Line {l1=0x08, l2=» END«, l3=0x08}
0x2000…200b Line {l1=0x09, l2=» ELSE«, l3=0x09}
0x200b…2017 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x2017…2043 Line {l1=0x2a, l2=» VARE.HELTAL(1):=ORDRELIN(J).VNR(1);«, l3=0x2a}
0x2043…2065 Line {l1=0x20, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x20}
0x2065…209e Line {l1=0x37, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR; (*?*)«, l3=0x37}
0x209e…20b4 Line {l1=0x14, l2=» IF IER=0 THEN«, l3=0x14}
0x20b4…20c2 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x20c2…20d7 Line {l1=0x13, l2=» GOTOXY(1,5);«, l3=0x13}
0x20d7…210e Line {l1=0x35, l2=» WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),«, l3=0x35}
0x210e…2139 Line {l1=0x29, l2=» ORDRELIN(J).PRIS/100:12:2,«, l3=0x29}
0x2139…2160 Line {l1=0x25, l2=» ORDRELIN(J).VNR(2):10,«, l3=0x25}
0x2160…219b Line {l1=0x39, l2=» ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);«, l3=0x39}
0x219b…21aa Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x21aa…21d0 Line {l1=0x24, l2=» GOTOXY(63,5);READLN;READ(K)«, l3=0x24}
0x21d0…2213 Line {l1=0x41, l2=» UNTIL (IORESULT=0) AND (K>=0) AND (K<=ORDRELIN(J).VNR(3));«, l3=0x41}
0x2213…2252 Line {l1=0x3d, l2=» VARE.REELTAL(9):=VARE.REELTAL(9)+ORDRELIN(J).VNR(2)-K;«, l3=0x3d}
0x2252…2291 Line {l1=0x3d, l2=» VARE.HELTAL(11):=VARE.HELTAL(11)+K-ORDRELIN(J).VNR(2);«, l3=0x3d}
0x2291…22b0 Line {l1=0x1d, l2=» ORDRELIN(J).VNR(2):=K;«, l3=0x1d}
0x22b0…22f3 Line {l1=0x41, l2=» GOTOXY(1,5);WRITELN(VARE.HELTAL(1):5,' ',VARE.NAVN(1),«, l3=0x41}
0x22f3…232a Line {l1=0x35, l2=» ORDRELIN(J).PRIS/100:12:2,«, l3=0x35}
0x232a…235d Line {l1=0x31, l2=» ORDRELIN(J).VNR(2):10,«, l3=0x31}
0x235d…23a4 Line {l1=0x45, l2=» ORDRELIN(J).VNR(3)-ORDRELIN(J).VNR(2):10);«, l3=0x45}
0x23a4…23c5 Line {l1=0x1f, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x1f}
0x23c5…23d1 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x23d1…23dc Line {l1=0x09, l2=» END;«, l3=0x09}
0x23dc…23e9 Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x23e9…2422 Line {l1=0x37, l2=» GOTOXY(1,23);WRITELN('VARENUMMER, 0 FOR SLUT');«, l3=0x37}
0x2422…2448 Line {l1=0x24, l2=» GOTOXY(40,23);READLN;READ(I)«, l3=0x24}
0x2448…2489 Line {l1=0x3f, l2=» UNTIL (IORESULT=0) AND ((I=0) OR ((I>999) AND (I<10000)));«, l3=0x3f}
0x2489…2491 Line {l1=0x06, l2=» END«, l3=0x06}
0x2491…2497 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2497…24ab Line {l1=0x12, l2=»PROCEDURE UÆNDRET;«, l3=0x12}
0x24ab…24ba Line {l1=0x0d, l2=»CONST BANE=3;«, l3=0x0d}
0x24ba…24c9 Line {l1=0x0d, l2=» POST=1;«, l3=0x0d}
0x24c9…24d9 Line {l1=0x0e, l2=» DERES=8;«, l3=0x0e}
0x24d9…24eb Line {l1=0x10, l2=»VAR J,F:INTEGER;«, l3=0x10}
0x24eb…24f8 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x24f8…250b Line {l1=0x11, l2=»PROCEDURE EXTEND;«, l3=0x11}
0x250b…2512 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2512…252c Line {l1=0x18, l2=» IF KUNDE.NR(18)=1 THEN«, l3=0x18}
0x252c…253f Line {l1=0x11, l2=» WITH FAKFIL^ DO«, l3=0x11}
0x253f…2548 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2548…255b Line {l1=0x11, l2=» GOTOXY(1,19);«, l3=0x11}
0x255b…2582 Line {l1=0x25, l2=» WRITELN('Leveringsbetingelser ');«, l3=0x25}
0x2582…25a6 Line {l1=0x22, l2=» FOR J:=1 TO 20 DO LIN(J):=' ';«, l3=0x22}
0x25a6…25ba Line {l1=0x12, l2=» GOTOXY(30,19);«, l3=0x12}
0x25ba…25cd Line {l1=0x11, l2=» EDIT(LIN:20);«, l3=0x11}
0x25cd…25f8 Line {l1=0x29, l2=» FOR J:=1 TO 20 DO DITTO(1,J):=LIN(J);«, l3=0x29}
0x25f8…260b Line {l1=0x11, l2=» GOTOXY(1,21);«, l3=0x11}
0x260b…2624 Line {l1=0x17, l2=» WRITELN('Pakning');«, l3=0x17}
0x2624…2648 Line {l1=0x22, l2=» FOR J:=1 TO 20 DO LIN(J):=' ';«, l3=0x22}
0x2648…265c Line {l1=0x12, l2=» GOTOXY(10,21);«, l3=0x12}
0x265c…266f Line {l1=0x11, l2=» EDIT(LIN:20);«, l3=0x11}
0x266f…269a Line {l1=0x29, l2=» FOR J:=1 TO 20 DO DITTO(2,J):=LIN(J);«, l3=0x29}
0x269a…26a6 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x26a6…26bb Line {l1=0x13, l2=» GOTOXY(1,22);«, l3=0x13}
0x26bb…26d9 Line {l1=0x1c, l2=» WRITELN('Bruttovægt');«, l3=0x1c}
0x26d9…26ef Line {l1=0x14, l2=» GOTOXY(12,22);«, l3=0x14}
0x26ef…270e Line {l1=0x1d, l2=» READLN;READ(BRUTTOVÆGT)«, l3=0x1d}
0x270e…2725 Line {l1=0x15, l2=» UNTIL IORESULT=0;«, l3=0x15}
0x2725…2738 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x2738…275c Line {l1=0x22, l2=» WRITELN('Antal kolli og art');«, l3=0x22}
0x275c…2788 Line {l1=0x2a, l2=» LIN:=' ';«, l3=0x2a}
0x2788…279c Line {l1=0x12, l2=» GOTOXY(20,23);«, l3=0x12}
0x279c…27af Line {l1=0x11, l2=» EDIT(LIN:30);«, l3=0x11}
0x27af…27d8 Line {l1=0x27, l2=» FOR J:=1 TO 30 DO AKOLLI(J):=LIN(J)«, l3=0x27}
0x27d8…27df Line {l1=0x05, l2=» END«, l3=0x05}
0x27df…27e5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x27e5…27ec Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x27ec…27fc Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x27fc…281c Line {l1=0x1e, l2=» KUNDE.NR(1):=PLUORD.HEAD(1);«, l3=0x1e}
0x281c…283c Line {l1=0x1e, l2=» KUNDE.NR(2):=PLUORD.HEAD(2);«, l3=0x1e}
0x283c…285a Line {l1=0x1c, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1c}
0x285a…2873 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x2873…289d Line {l1=0x28, l2=» LIN:='123456789012345678901234567890';«, l3=0x28}
0x289d…28a7 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x28a7…28dc Line {l1=0x33, l2=» GOTOXY(1,1);WRITELN('FORSENDELSESMÅDE ');«, l3=0x33}
0x28dc…28f6 Line {l1=0x18, l2=» FOR I:=1 TO 10 DO«, l3=0x18}
0x28f6…293e Line {l1=0x46, l2=» WRITELN(2*I-1:3,' ',SENDTPR(2*I-1),2*I:5,' ',SENDTPR(2*I));«, l3=0x46}
0x293e…2962 Line {l1=0x22, l2=» GOTOXY(40,1);READLN;READ(F)«, l3=0x22}
0x2962…298e Line {l1=0x2a, l2=» UNTIL (IORESULT=0) AND (F>0) AND (F<21);«, l3=0x2a}
0x298e…29a5 Line {l1=0x15, l2=» FAKFIL^.FORSEND:=F;«, l3=0x15}
0x29a5…29ba Line {l1=0x13, l2=» FAKFIL^.KODE8:=0;«, l3=0x13}
0x29ba…29cf Line {l1=0x13, l2=» FAKFIL^.KODE9:=0;«, l3=0x13}
0x29cf…29f8 Line {l1=0x27, l2=» FILLCHAR(FAKFIL^.TRANSPORTØR,30,' ');«, l3=0x27}
0x29f8…2a12 Line {l1=0x18, l2=» IF KUNDE.NR(18)=1 THEN«, l3=0x18}
0x2a12…2a25 Line {l1=0x11, l2=» WITH FAKFIL^ DO«, l3=0x11}
0x2a25…2a32 Line {l1=0x0b, l2=» CASE F OF«, l3=0x0b}
0x2a32…2a42 Line {l1=0x0e, l2=» POST : BEGIN«, l3=0x0e}
0x2a42…2a6e Line {l1=0x2a, l2=» KODE8:=4;(*TRANSPORTMÅDETABEL*)«, l3=0x2a}
0x2a6e…2a9a Line {l1=0x2a, l2=» KODE9:=1 (*UDPASSAGESTEDTABEL*)«, l3=0x2a}
0x2a9a…2aa9 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x2aa9…2ab9 Line {l1=0x0e, l2=» BANE : BEGIN«, l3=0x0e}
0x2ab9…2ae6 Line {l1=0x2b, l2=» KODE8:=3; (*TRANSPORTMÅDETABEL*)«, l3=0x2b}
0x2ae6…2b13 Line {l1=0x2b, l2=» KODE9:=2 (*UDPASSAGESTEDTABEL*)«, l3=0x2b}
0x2b13…2b22 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x2b22…2b32 Line {l1=0x0e, l2=» DERES: BEGIN«, l3=0x0e}
0x2b32…2b5d Line {l1=0x29, l2=» FOR J:=1 TO 30 DO LIN(J):=' ';«, l3=0x29}
0x2b5d…2b77 Line {l1=0x18, l2=» GOTOXY(1,12);«, l3=0x18}
0x2b77…2b9b Line {l1=0x22, l2=» WRITELN('Transportør');«, l3=0x22}
0x2b9b…2bb6 Line {l1=0x19, l2=» GOTOXY(14,12);«, l3=0x19}
0x2bb6…2bd0 Line {l1=0x18, l2=» EDIT(LIN:30);«, l3=0x18}
0x2bd0…2c05 Line {l1=0x33, l2=» FOR J:=1 TO 30 DO TRANSPORTØR(J):=LIN(J)«, l3=0x33}
0x2c05…2c14 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x2c14…2c3d Line {l1=0x27, l2=» 5,6,7,11,12: TRANSPORTØR:=SENDTPR(F);«, l3=0x27}
0x2c3d…2c4a Line {l1=0x0b, l2=» OTHERWISE«, l3=0x0b}
0x2c4a…2c53 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2c53…2c65 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2c65…2c71 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2c71…2c85 Line {l1=0x12, l2=» GOTOXY(1,1);«, l3=0x12}
0x2c85…2ca6 Line {l1=0x1f, l2=» WRITELN('Transportmåde');«, l3=0x1f}
0x2ca6…2cbf Line {l1=0x17, l2=» FOR I:=1 TO 10 DO«, l3=0x17}
0x2cbf…2cde Line {l1=0x1d, l2=» WRITELN(2*I-1:3,' ',«, l3=0x1d}
0x2cde…2d08 Line {l1=0x28, l2=» TMÅDE(2*I-1),2*I:5,' ',«, l3=0x28}
0x2d08…2d26 Line {l1=0x1c, l2=» TMÅDE(2*I));«, l3=0x1c}
0x2d26…2d4d Line {l1=0x25, l2=» GOTOXY(40,1);READLN;READ(KODE8)«, l3=0x25}
0x2d4d…2d83 Line {l1=0x34, l2=» UNTIL (IORESULT=0) AND (KODE8>0) AND (KODE8<21);«, l3=0x34}
0x2d83…2d95 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2d95…2da1 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2da1…2db5 Line {l1=0x12, l2=» GOTOXY(1,1);«, l3=0x12}
0x2db5…2dd6 Line {l1=0x1f, l2=» WRITELN('Udpassagested');«, l3=0x1f}
0x2dd6…2def Line {l1=0x17, l2=» FOR I:=1 TO 10 DO«, l3=0x17}
0x2def…2e0e Line {l1=0x1d, l2=» WRITELN(2*I-1:3,' ',«, l3=0x1d}
0x2e0e…2e3a Line {l1=0x2a, l2=» UDPSTED(2*I-1),2*I:5,' ',«, l3=0x2a}
0x2e3a…2e5a Line {l1=0x1e, l2=» UDPSTED(2*I));«, l3=0x1e}
0x2e5a…2e81 Line {l1=0x25, l2=» GOTOXY(40,1);READLN;READ(KODE9)«, l3=0x25}
0x2e81…2eb6 Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND (KODE9>0) AND (KODE9<21)«, l3=0x33}
0x2eb6…2ebe Line {l1=0x06, l2=» END;«, l3=0x06}
0x2ebe…2ec7 Line {l1=0x07, l2=» R:=0;«, l3=0x07}
0x2ec7…2ed1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2ed1…2eff Line {l1=0x2c, l2=» GOTOXY(1,13);WRITELN('FRAGT ');«, l3=0x2c}
0x2eff…2f24 Line {l1=0x23, l2=» GOTOXY(40,13);READLN;READ(R)«, l3=0x23}
0x2f24…2f39 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2f39…2f52 Line {l1=0x17, l2=» FAKFIL^.FRAGT:=R*100;«, l3=0x17}
0x2f52…2f5b Line {l1=0x07, l2=» R:=0;«, l3=0x07}
0x2f5b…2f75 Line {l1=0x18, l2=» IF KUNDE.NR(15)=1 THEN«, l3=0x18}
0x2f75…2f7f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2f7f…2fb0 Line {l1=0x2f, l2=» GOTOXY(1,13);WRITELN('EMBALLAGE ');«, l3=0x2f}
0x2fb0…2fd5 Line {l1=0x23, l2=» GOTOXY(40,13);READLN;READ(R)«, l3=0x23}
0x2fd5…2fea Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2fea…3003 Line {l1=0x17, l2=» FAKFIL^.EMBAL:=R*100;«, l3=0x17}
0x3003…3014 Line {l1=0x0f, l2=» GOTOXY(1,15);«, l3=0x0f}
0x3014…302c Line {l1=0x16, l2=» WRITELN('TEKST 1 ');«, l3=0x16}
0x302c…305b Line {l1=0x2d, l2=» FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(1,J);«, l3=0x2d}
0x305b…306d Line {l1=0x10, l2=» GOTOXY(11,15);«, l3=0x10}
0x306d…307e Line {l1=0x0f, l2=» EDIT(LIN:30);«, l3=0x0f}
0x307e…30ae Line {l1=0x2e, l2=» FOR J:=1 TO 30 DO FAKFIL^.LINE(1,J):=LIN(J);«, l3=0x2e}
0x30ae…30bf Line {l1=0x0f, l2=» GOTOXY(1,16);«, l3=0x0f}
0x30bf…30d7 Line {l1=0x16, l2=» WRITELN('TEKST 2 ');«, l3=0x16}
0x30d7…3106 Line {l1=0x2d, l2=» FOR J:=1 TO 30 DO LIN(J):=PLUORD.LINE(2,J);«, l3=0x2d}
0x3106…3118 Line {l1=0x10, l2=» GOTOXY(11,16);«, l3=0x10}
0x3118…3129 Line {l1=0x0f, l2=» EDIT(LIN:30);«, l3=0x0f}
0x3129…3159 Line {l1=0x2e, l2=» FOR J:=1 TO 30 DO FAKFIL^.LINE(2,J):=LIN(J);«, l3=0x2e}
0x3159…3164 Line {l1=0x09, l2=» EXTEND;«, l3=0x09}
0x3164…316e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x316e…3191 Line {l1=0x21, l2=» FAKFIL^.HEAD:=PLUORD.HEAD;«, l3=0x21}
0x3191…31bc Line {l1=0x29, l2=» FAKFIL^.ORDRELIN:=PLUORD.ORDRELIN;«, l3=0x29}
0x31bc…31d1 Line {l1=0x13, l2=» PUT(FAKFIL);«, l3=0x13}
0x31d1…31f4 Line {l1=0x21, l2=» DELETE(PZ.H,FPLU,PLUORD.A)«, l3=0x21}
0x31f4…3210 Line {l1=0x1a, l2=» UNTIL FAKFIL^.HEAD(5)=99«, l3=0x1a}
0x3210…3216 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3216…321d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x321d…322d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x322d…3254 Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('FAKTURERING');«, l3=0x25}
0x3254…3273 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x3273…328b Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x328b…32bb Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x32bb…32be Line {l1=0x01, l2=» «, l3=0x01}
0x32be…32dd Line {l1=0x1d, l2=» FNAVN:='ORDRERG:P2:0000:I';«, l3=0x1d}
0x32dd…32f5 Line {l1=0x16, l2=» REWRITE(FORD,FNAVN);«, l3=0x16}
0x32f5…3325 Line {l1=0x2e, l2=» IOPEN(OZ.H,FORD,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x3325…3328 Line {l1=0x01, l2=» «, l3=0x01}
0x3328…3345 Line {l1=0x1b, l2=» FNAVN:='PLUOR:P2:0000:I';«, l3=0x1b}
0x3345…335d Line {l1=0x16, l2=» REWRITE(FPLU,FNAVN);«, l3=0x16}
0x335d…338d Line {l1=0x2e, l2=» IOPEN(PZ.H,FPLU,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x338d…3390 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3393…33b2 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x33b2…33c8 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x33c8…33f6 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x33f6…33f9 Line {l1=0x01, l2=» «, l3=0x01}
0x33f9…3418 Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x3418…3430 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x3430…3460 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x3460…347c Line {l1=0x1a, l2=» FNAVN:='FAKREG:P2:30:I';«, l3=0x1a}
0x347c…3496 Line {l1=0x18, l2=» REWRITE(FAKFIL,FNAVN);«, l3=0x18}
0x3496…34a0 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x34a0…34ee Line {l1=0x4c, l2=» GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER ORDRENUMMER ');«, l3=0x4c}
0x34ee…3516 Line {l1=0x26, l2=» GOTOXY(40,23);READLN;READ(R1,R)«, l3=0x26}
0x3516…355f Line {l1=0x47, l2=» UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0)) AND«, l3=0x47}
0x355f…35a6 Line {l1=0x45, l2=» (((R1>9999.0) AND (R1<100000.0)) OR (R1=0));«, l3=0x45}
0x35a6…35af Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x35af…35c1 Line {l1=0x10, l2=» WHILE R1<>0 DO«, l3=0x10}
0x35c1…35d3 Line {l1=0x10, l2=» WITH PLUORD DO«, l3=0x10}
0x35d3…35dc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x35dc…35f5 Line {l1=0x17, l2=» I:=TRUNC(R/10000);«, l3=0x17}
0x35f5…3612 Line {l1=0x1b, l2=» J:=TRUNC(R-10000.0*I);«, l3=0x1b}
0x3612…362c Line {l1=0x18, l2=» K:=TRUNC(R1/10000);«, l3=0x18}
0x362c…364a Line {l1=0x1c, l2=» L:=TRUNC(R1-10000.0*K);«, l3=0x1c}
0x364a…3667 Line {l1=0x1b, l2=» HEAD(1):=K;HEAD(2):=L;«, l3=0x1b}
0x3667…3684 Line {l1=0x1b, l2=» HEAD(3):=I;HEAD(4):=J;«, l3=0x1b}
0x3684…3696 Line {l1=0x10, l2=» HEAD(5):=0;«, l3=0x10}
0x3696…36b2 Line {l1=0x1a, l2=» NEXTREC(PZ.H,FPLU,A);«, l3=0x1a}
0x36b2…36cd Line {l1=0x19, l2=» IF IER>0 THEN ERROR;«, l3=0x19}
0x36cd…3718 Line {l1=0x49, l2=» IF (HEAD(3)<>I) OR (HEAD(4)<>J) OR (HEAD(1)<>K) OR (HEAD(2)<>L) THEN«, l3=0x49}
0x3718…3724 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x3724…373b Line {l1=0x15, l2=» GOTOXY(1,24);«, l3=0x15}
0x373b…3762 Line {l1=0x25, l2=» WRITELN('ORDREN FINDES IKKE')«, l3=0x25}
0x3762…376c Line {l1=0x08, l2=» END«, l3=0x08}
0x376c…3777 Line {l1=0x09, l2=» ELSE«, l3=0x09}
0x3777…3783 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x3783…3798 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x3798…37a7 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x37a7…37bf Line {l1=0x16, l2=» GOTOXY(1,19);«, l3=0x16}
0x37bf…37ff Line {l1=0x3e, l2=» WRITELN('SKAL ORDREN FAKTURERES UÆNDRET (1)');«, l3=0x3e}
0x37ff…383f Line {l1=0x3e, l2=» WRITELN('ER DER ÆNDRINGER I.F.T. PAKKELISTE (2)');«, l3=0x3e}
0x383f…387f Line {l1=0x3e, l2=» WRITELN('SKAL ORDREN TILBAGEFØRES TIL ORDREREG (3)');«, l3=0x3e}
0x387f…38bf Line {l1=0x3e, l2=» WRITELN('ORDREN SKAL IKKE FAKTURERES (4)');«, l3=0x3e}
0x38bf…38e5 Line {l1=0x24, l2=» GOTOXY(1,23);READLN;READ(I)«, l3=0x24}
0x38e5…3915 Line {l1=0x2e, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<5);«, l3=0x2e}
0x3915…3929 Line {l1=0x12, l2=» IF I=3 THEN«, l3=0x12}
0x3929…393b Line {l1=0x10, l2=» TILBAGE«, l3=0x10}
0x393b…3948 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x3948…3956 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x3956…396d Line {l1=0x15, l2=» WHILE I=2 DO«, l3=0x15}
0x396d…397d Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x397d…3997 Line {l1=0x18, l2=» (*ÆNDRINGER*)«, l3=0x18}
0x3997…39b0 Line {l1=0x17, l2=» CLEARSCREEN;«, l3=0x17}
0x39b0…39c5 Line {l1=0x13, l2=» ÆNDRING;«, l3=0x13}
0x39c5…39d8 Line {l1=0x11, l2=» REPEAT«, l3=0x11}
0x39d8…3a22 Line {l1=0x48, l2=» GOTOXY(1,23);WRITELN('FÆRDIG (1), FLERE ÆNDRINGER (2)');«, l3=0x48}
0x3a22…3a4f Line {l1=0x2b, l2=» GOTOXY(50,23);READLN;READ(I)«, l3=0x2b}
0x3a4f…3a84 Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND ((I=1) OR (I=2));«, l3=0x33}
0x3a84…3aa5 Line {l1=0x1f, l2=» PUTREC(PZ.H,FPLU,A);«, l3=0x1f}
0x3aa5…3abd Line {l1=0x16, l2=» HEAD(5):=0;«, l3=0x16}
0x3abd…3ade Line {l1=0x1f, l2=» NEXTREC(PZ.H,FPLU,A)«, l3=0x1f}
0x3ade…3aed Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x3aed…3b05 Line {l1=0x16, l2=» (*UÆNDRET*)«, l3=0x16}
0x3b05…3b19 Line {l1=0x12, l2=» IF I<4 THEN«, l3=0x12}
0x3b19…3b2b Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x3b2b…3b40 Line {l1=0x13, l2=» UÆNDRET;«, l3=0x13}
0x3b40…3b50 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x3b50…3b5d Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x3b5d…3b68 Line {l1=0x09, l2=» END;«, l3=0x09}
0x3b68…3b75 Line {l1=0x0b, l2=» REPEAT«, l3=0x0b}
0x3b75…3b8b Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x3b8b…3bdb Line {l1=0x4e, l2=» GOTOXY(1,23);WRITELN('INDTAST KUNDENUMMER, ORDRENUMMER ');«, l3=0x4e}
0x3bdb…3c04 Line {l1=0x27, l2=» GOTOXY(40,23);READLN;READ(R1,R)«, l3=0x27}
0x3c04…3c52 Line {l1=0x4c, l2=» UNTIL (IORESULT=0) AND (((R>99999.0) AND (R<1000000.0)) OR (R=0.0)) AND«, l3=0x4c}
0x3c52…3c9e Line {l1=0x4a, l2=» (((R1>9999.0) AND (R1<100000.0)) OR (R1=0.0));«, l3=0x4a}
0x3c9e…3ca6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3ca6…3cc2 Line {l1=0x1a, l2=» FAKFIL^.HEAD(1):=0;«, l3=0x1a}
0x3cc2…3cde Line {l1=0x1a, l2=» FAKFIL^.HEAD(2):=0;«, l3=0x1a}
0x3cde…3cf3 Line {l1=0x13, l2=» PUT(FAKFIL);«, l3=0x13}
0x3cf3…3d0c Line {l1=0x17, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x17}
0x3d0c…3d25 Line {l1=0x17, l2=» ICLOSE(OZ.H,FORD);«, l3=0x17}
0x3d25…3d3e Line {l1=0x17, l2=» ICLOSE(PZ.H,FPLU);«, l3=0x17}
0x3d3e…3d57 Line {l1=0x17, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x17}
0x3d57…3d70 Line {l1=0x17, l2=» ICLOSE(RZ.H,FROR);«, l3=0x17}
0x3d70…3d91 Line {l1=0x1f, l2=» WRITELN('CHAIN NORMFAKT');«, l3=0x1f}
0x3d91…3dd4 Line {l1=0x41, l2=» CHAIN('INTRE *1','NORMFAKT:P1',QUQ); (*TOLDSORT,TOLDFAKT*)«, l3=0x41}
0x3dd4…3dda Line {l1=0x04, l2=»END.«, l3=0x04}
0x3dda…3de0 00 00 20 20 20 20 ┆ ┆
0x3de0…3e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 30 30 20 20 4b 7c 62 65 ┆ 2000 Købe┆
0x3e00…3e20 6e 68 61 76 6e 20 20 46 20 20 20 20 20 20 20 a4 30 31 2d 33 35 33 33 31 37 20 00 00 00 00 20 20 ┆nhavn F 01-353317 ┆
0x3e20…3e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7e 7e 7e 7e 20 20 20 20 ┆ üüüü ┆
0x3e40…3e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 61 6c 6b 6f 6e ┆ Falkon┆
0x3e60…3e80 65 72 20 20 41 6c 6c 65 20 34 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆er Alle 42 ┆
0x3e80…3ea0 20 20 20 20 20 20 20 20 20 20 20 20 32 30 30 30 20 20 4b 7c 62 65 6e 68 61 76 6e 20 20 46 20 20 ┆ 2000 København F ┆
0x3ea0…3ec0 20 20 20 20 20 a4 30 31 2d 33 35 33 33 31 37 20 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 01-353317 ┆
0x3ec0…3ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7e 7e 7e 7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ üüüü ┆
0x3ee0…3f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 61 6c 6b 6f 6e 65 72 20 20 41 6c 6c 65 20 34 ┆ Falkoner Alle 4┆
0x3f00…3f20 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 ┆
0x3f20…3f40 20 20 32 30 30 30 20 20 4b 7c 62 65 6e 68 61 76 6e 20 20 46 20 20 20 20 20 20 20 a4 30 31 2d 33 ┆ 2000 København F 01-3┆
0x3f40…3f60 35 33 33 31 37 20 00 00 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 ┆53317 ┆