|
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: 17696 (0x4520)
Types: TextFile
Notes: Mikados_K
Names: »QOLDFAKT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »QOLDFAKT.K«
PROGRAM TOLDFAKTURERING;
CONST TOPMARG=6; LMARG=9; DK=8;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
PLUOLINE = RECORD
VNR :ARRAY (1..3) OF INTEGER;
(*VNR,LEVERET,BESTILT*)
PRIS: REAL
END;
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
(*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,
RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,
EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)
(* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB :ARRAY (1..9) OF REAL;
(*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)
END;
BETAPOST=RECORD
A:AR;
NR:ARRAY (1..3) OF INTEGER;
(*KNR1,KNR2,LAND*)
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
(*NAVN,UDVNAVN,ADR*)
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR
END;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL: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;
JOURPOST=RECORD
(*KNR1,KNR2,
FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;
(*NETTO,
MOMS,
RABAT,
BRÆKAGEFORS,
FRAGT,
EMBALLAGE,
VARESALG *) REEL:ARRAY(1..7) OF REAL
END;
JOURFILE=FILE OF JOURPOST;
TOLDPAPPOST=RECORD
KNR1,KNR2,
OPRILAND,
KODE8,KODE9,
BRUTTOVÆGT,
SUPPMÆNGDE,
FAKTNR1,FAKTNR2 :INTEGER;
TRANSPORTØR,AKOLLI: PACKED ARRAY (1..30) OF CHAR;
VÆRDI,TOLDPONR: REAL; (*VÆRDI ER FAKTURABELØB NÅR OPRILAND=0, KUN
DEN SIDSTE ER <>0 *)
LEVBET: PACKED ARRAY (1..16) OF CHAR (*DITTO(1)'S FØRSTE 16 TEGN *)
END;
TOLDPFILE=FILE OF TOLDPAPPOST;
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..327) OF INTEGER
END;
BETAZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..374) OF INTEGER
END;
LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
VAR FBETA,FVAR,FROR,FKUN : ISF;
FAKFIL :FAKFILE;
SYSFIL:SYSFILE;
TOLDPHIL:TOLDPFILE;
LANDFIL:LANDFILE;
JOURFIL:JOURFILE;
T:TEXT;
NAME:PACKED ARRAY (1..26) OF CHAR;
VZ:VZONE;
BZ:BETAZONE;
RZ:RORZONE;
KZ:KZONE;
RESTORD:RORPOST;
VARE:VPOST;
KUNDE:KPOST;
BETA:BETAPOST;
FNAVN:STRING(20);
SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..23) OF CHAR;
IER,I,J,OPRLAND,SIDE,SUPMÆNGDE
:INTEGER;
R,R1,R2,TOLDPNR,GRPTOTAL :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IIOPEN*)
(*$IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
ICLOSE(KZ.H,FKUN);
ICLOSE(BZ.H,FBETA);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE HEAD;
VAR I:INTEGER;
BEGIN
WITH KUNDE DO
BEGIN
WRITELN(T,'%P');
FOR I:=1 TO TOPMARG DO WRITELN(T);
IF NR(3)=1 THEN
BEGIN
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');
IF BETA.NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(BETA.NAVN(1,5),NAME,26);
WRITE(T,' ':6,NAME,' ':14)
END
ELSE
WRITE(T,' ':6,BETA.NAVN(1),' ':10);
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (NAVN(1,I)<>' ');
IF NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITELN(T,NAME)
END
ELSE
WRITELN(T,NAVN(1));
WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));
WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));
WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);
WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);
IF BETA.NR(3)=DK THEN
WRITE(T,' ':46)
ELSE
BEGIN
SEEK(LANDFIL,BETA.NR(3));
GET(LANDFIL);
WRITE(T,' ':6,LANDFIL^,' ':10)
END;
IF NR(7)=DK THEN
WRITELN(T)
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(T,LANDFIL^)
END
END
ELSE
BEGIN
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (NAVN(1,I)<>' ');
IF NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITELN(T,' ':6,NAME)
END
ELSE
WRITELN(T,' ':6,NAVN(1));
WRITELN(T,' ':6,NAVN(2));
WRITELN(T,' ':6,NAVN(3));
WRITELN(T,' ':6,LANDSBY);
WRITELN(T,' ':6,POSTNR);
IF NR(7)=DK THEN
WRITELN(T)
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(T,' ':6,LANDFIL^)
END
END;
WRITELN(T);WRITELN(T);
WRITELN(T,' ':53,'Fakturanummer ',
SYSFIL^.HELTAL(7)*10000.0+SYSFIL^.HELTAL(8):6:-2);
WRITELN(T);
WRITELN(T,' ':74,SIDE:2);
SIDE:=SIDE+1;
WRITE(T,NR(1)*10000.0+NR(2):9:-2);
WITH FAKFIL^ DO
WRITE(T,HEAD(3)*10000.0+HEAD(4):8:-2);
WRITELN(T,' ':1,SENDTPR(FAKFIL^.FORSEND),' ',FAKFIL^.DITTO(1),' ',
SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):6:-2);
J:=1;
WRITELN(T)
END
END;
PROCEDURE SKRIVPAP;
VAR J:INTEGER;
BEGIN
WITH TOLDPHIL^ DO
BEGIN
KNR1:=KUNDE.NR(1);
KNR2:=KUNDE.NR(2);
OPRILAND:=OPRLAND;
KODE8:=FAKFIL^.KODE8;
KODE9:=FAKFIL^.KODE9;
BRUTTOVÆGT:=FAKFIL^.BRUTTOVÆGT;
SUPPMÆNGDE:=SUPMÆNGDE;
FAKTNR1:=SYSFIL^.HELTAL(7);
FAKTNR2:=SYSFIL^.HELTAL(8);
TRANSPORTØR:=FAKFIL^.TRANSPORTØR;
AKOLLI:=FAKFIL^.AKOLLI;
VÆRDI:=GRPTOTAL;
TOLDPONR:=TOLDPNR;
FOR J:=1 TO 16 DO LEVBET(J):=FAKFIL^.DITTO(1,J)
END;
PUT(TOLDPHIL)
END;
PROCEDURE LINES;
BEGIN
WITH KUNDE,FAKFIL^.ORDRELIN(I) DO
IF VNR(1)>1 THEN
BEGIN
VARE.HELTAL(1):=VNR(1);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN
BEGIN WRITELN(VARE.HELTAL(1));ERROR END;
IF IER=0 THEN
BEGIN
VARE.REELTAL(11):=VARE.REELTAL(11)+VNR(2);
VARE.REELTAL(13):=VARE.REELTAL(13)+VNR(2)*PRIS;
VARE.REELTAL(15):=VARE.REELTAL(15)+VNR(2)*(PRIS-VARE.REELTAL(2));
VARE.HELTAL(8):=SYSFIL^.HELTAL(1);
VARE.HELTAL(9):=SYSFIL^.HELTAL(2);
IF (VARE.REELTAL(3)<>TOLDPNR) OR
((VARE.REELTAL(3)=TOLDPNR) AND (VARE.HELTAL(3)<>OPRLAND)) THEN
BEGIN
IF OPRLAND<>0 THEN
BEGIN
SKRIVPAP;
SEEK(LANDFIL,OPRLAND);
GET(LANDFIL);
WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,
' Pos.total',GRPTOTAL/100:12:2);
WRITELN(T);
GRPTOTAL:=0;
SUPMÆNGDE:=0;
J:=J+2
END;
TOLDPNR:=VARE.REELTAL(3);
OPRLAND:=VARE.HELTAL(3);
END;
IF J>20 THEN HEAD;
WRITELN(T,VNR(1):9,' ':2,VARE.NAVN(1),VNR(2):5,VNR(3)-VNR(2):5,
PRIS/100:10:2,VNR(2)*PRIS/100:12:2);
J:=J+1;
R:=R+VNR(2)*PRIS;
SUPMÆNGDE:=SUPMÆNGDE+VNR(2);
GRPTOTAL:=GRPTOTAL+VNR(2)*PRIS;
IF (VNR(2)<>VNR(3)) AND (FAKFIL^.HEAD(11)=0) THEN
WITH RESTORD DO
BEGIN
HEAD(1):=NR(1);
HEAD(2):=NR(2);
HEAD(3):=VNR(1);
HEAD(4):=0;HEAD(5):=0;ANTAL:=0;
GETREC(RZ.H,FROR,A);
ANTAL:=ANTAL+VNR(3)-VNR(2);
IF (FAKFIL^.HEAD(7)>HEAD(4)) OR
((FAKFIL^.HEAD(7)=HEAD(4)) AND (FAKFIL^.HEAD(8)>HEAD(5)))
THEN BEGIN
HEAD(4):=FAKFIL^.HEAD(7);
HEAD(5):=FAKFIL^.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 BEGIN WRITELN(HEAD(1),HEAD(2),HEAD(3));
ERROR END;
END;
PUTREC(VZ.H,FVAR,VARE.A)
END
END;
END;
FUNCTION RUND(R:REAL):REAL;
VAR R1:REAL;
BEGIN
R1:=TRUNC(R/10000.0);
R1:=R1*10000.0;
RUND:=ROUND(R-R1)+R1
END;
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 ';
END;
PROCEDURE BOTTOM;
BEGIN
WITH KUNDE DO
BEGIN
IF FAKFIL^.EMBAL<>0 THEN
BEGIN
IF J>21 THEN HEAD;
WRITELN(T,' ':52,'Emballage',FAKFIL^.EMBAL/100:12:2);
WRITELN(T,' ':52,'Subtotal',(R+FAKFIL^.EMBAL)/100:13:2);
J:=J+2
END;
JOURFIL^.REEL(6):=FAKFIL^.EMBAL;
FOR I:=J TO 23 DO WRITELN(T);
IF KUNDE.NR(16)=1 THEN
BEGIN
R1:=RUND(R*0.0175);
WRITE(T,R1/100:10:2);
JOURFIL^.REEL(4):=R1;
R:=R+R1
END
ELSE BEGIN WRITE(T,' ':10);JOURFIL^.REEL(4):=0 END;
R:=R+FAKFIL^.EMBAL;
IF FAKFIL^.FRAGT<>0 THEN
BEGIN
WRITE(T,FAKFIL^.FRAGT/100:10:2);
R:=R+FAKFIL^.FRAGT
END
ELSE WRITE(T,' ':10);
WRITE(T,' ',FAKFIL^.DITTO(2));
JOURFIL^.REEL(5):=FAKFIL^.FRAGT;
WRITE(T,R/100:10:2);
IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN
BEGIN
R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);
WRITE(T,R1/100:10:2);
R:=R+R1
END
ELSE
BEGIN
R1:=0;
WRITE(T,' ':10)
END;
JOURFIL^.REEL(1):=R;
JOURFIL^.REEL(2):=R1;
WRITELN(T,R/100:12:2);
WRITELN(T);
GRPTOTAL:=R;
OPRLAND:=0;
SKRIVPAP;
IF NR(8)=1 THEN WRITELN(T,' ':53,'E F T E R K R A V')
ELSE
IF NR(8)=2 THEN WRITELN(T,' ':53,'K O N T A N T')
ELSE
WRITELN(T,' ':53,SYSFIL^.BETADAT);
WITH JOURFIL^ DO
BEGIN
NR(1):=KUNDE.NR(1);
NR(2):=KUNDE.NR(2);
NR(3):=SYSFIL^.HELTAL(7);
NR(4):=SYSFIL^.HELTAL(8);
NR(5):=SYSFIL^.HELTAL(1);
NR(6):=SYSFIL^.HELTAL(2)
END;
PUT(JOURFIL);
SYSFIL^.HELTAL(8):=SYSFIL^.HELTAL(8)+1;
IF SYSFIL^.HELTAL(8)=10000 THEN
BEGIN
SYSFIL^.HELTAL(7):=SYSFIL^.HELTAL(7)+1;
SYSFIL^.HELTAL(8):=0
END;
END
END;
PROCEDURE BODY;
BEGIN
WITH KUNDE DO
BEGIN
IF NR(3)=1 THEN
BEGIN
BETA.NR(1):=NR(1);
BETA.NR(2):=NR(2);
GETREC(BZ.H,FBETA,BETA.A)
END;
R:=0;
SUPMÆNGDE:=0;
OPRLAND:=0;
SIDE:=1;
GRPTOTAL:=0;
HEAD;
REPEAT
FOR I:=1 TO 15 DO LINES;
IF FAKFIL^.HEAD(5)<>99 THEN GET(FAKFIL) ELSE I:=0
UNTIL I=0;
IF OPRLAND<>0 THEN
BEGIN
SKRIVPAP;
SEEK(LANDFIL,OPRLAND);
GET(LANDFIL);
WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,
' Pos.total',GRPTOTAL/100:12:2);
WRITELN(T);
J:=J+2
END;
IF J>21 THEN HEAD;
J:=J+2;
WRITELN(T,' ':11,FAKFIL^.LINE(1));
WRITELN(T,' ':11,FAKFIL^.LINE(2),' ':11,'Subtotal',R/100:13:2);
JOURFIL^.REEL(7):=R;
R1:=0;
IF FAKFIL^.HEAD(12)<>0 THEN
BEGIN
IF J>21 THEN HEAD;
R1:=RUND(R*FAKFIL^.HEAD(12)/100);
WRITELN(T,' ':52,'Rabat',R1/100:16:2);
R:=R-R1;
J:=J+2;
WRITELN(T,' ':52,'Subtotal',R/100:13:2)
END;
JOURFIL^.REEL(3):=R1;
IF (NR(8)=1) OR (NR(8)=2) THEN
BEGIN
IF J>21 THEN HEAD;
J:=J+2;
R1:=RUND(R*3/100);
R:=R-R1;
JOURFIL^.REEL(3):=R1+JOURFIL^.REEL(3);
WRITELN(T,' ':52,'Kt-rabat',R1/100:13:2);
WRITELN(T,' ':52,'Subtotal',R/100:13:2)
END;
BOTTOM;
SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;
END;
GET(FAKFIL)
END;
BEGIN
WRITELN('START TOLDFAKT');
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,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:='SEXPREG:P2:30:I';
REWRITE(FAKFIL,FNAVN);
FNAVN:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
FNAVN:='JOURNAL:P2:30:I';
REWRITE(JOURFIL,FNAVN);
SEEK(JOURFIL,SYSFIL^.HELTAL(13));
FNAVN:='LANDEREG:P2:0:I';
RESET(LANDFIL,FNAVN);
FNAVN:='BETAREG:P2:0000:I';
RESET(FBETA,FNAVN);
IOPEN(BZ.H,FBETA,LÆS);
FNAVN:='TOLDPAPI:P1:10:K';
REWRITE(TOLDPHIL,FNAVN);
FNAVN:='TOLDTXT:P1:30:K';
REWRITE(T,FNAVN);
INIT;
GET(FAKFIL);
WHILE (FAKFIL^.HEAD(1)<>0) OR (FAKFIL^.HEAD(2)<>0) DO
WITH KUNDE DO
BEGIN
NR(1):=FAKFIL^.HEAD(1);
NR(2):=FAKFIL^.HEAD(2);
GETREC(KZ.H,FKUN,A);
IF IER<>0 THEN ERROR;
BODY
END;
TOLDPHIL^.KNR1:=0;
TOLDPHIL^.KNR2:=0;
PUT(TOLDPHIL);
SEEK(SYSFIL,1);
PUT(SYSFIL);
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
ICLOSE(KZ.H,FKUN);
ICLOSE(BZ.H,FBETA);
WRITELN('SLUT TOLDFAKT');
CHAIN('INTRE *1','TOLDPAP:P1',QUQ);
END.
0x0000…001a Line {l1=0x18, l2=»PROGRAM TOLDFAKTURERING;«, l3=0x18}
0x001a…003b Line {l1=0x1f, l2=»CONST TOPMARG=6; LMARG=9; DK=8;«, l3=0x1f}
0x003b…004b Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x004b…005a Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x005a…0070 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0070…009a Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x009a…00e3 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00e3…0104 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x0104…013f Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x013f…0160 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0160…0188 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0188…01ce Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01ce…0212 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x0212…021a Line {l1=0x06, l2=» END;«, l3=0x06}
0x021a…022e Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x022e…0255 Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x0255…0276 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0276…028a Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x028a…0292 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0292…02a1 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x02a1…02b0 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x02b0…02d6 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x02d6…031f Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x031f…0368 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x0368…0398 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x0398…03e8 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x03e8…0417 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x0417…0445 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x0445…0470 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0470…0499 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x0499…04be Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x04be…04c6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x04c6…04d7 Line {l1=0x0f, l2=»BETAPOST=RECORD«, l3=0x0f}
0x04d7…04e5 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x04e5…0509 Line {l1=0x22, l2=» NR:ARRAY (1..3) OF INTEGER;«, l3=0x22}
0x0509…0524 Line {l1=0x19, l2=» (*KNR1,KNR2,LAND*)«, l3=0x19}
0x0524…055f Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x055f…057c Line {l1=0x1b, l2=» (*NAVN,UDVNAVN,ADR*)«, l3=0x1b}
0x057c…05aa Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x05aa…05d7 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x05d7…0600 Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x0600…0606 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0606…0617 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0617…0626 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0626…063a Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x063a…0648 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x0648…0683 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0683…0697 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x0697…069f Line {l1=0x06, l2=» END;«, l3=0x06}
0x069f…06b0 Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x06b0…06c9 Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x06c9…06e3 Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x06e3…070a Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x070a…0745 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0745…0781 Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x0781…07ba Line {l1=0x37, l2=» TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;«, l3=0x37}
0x07ba…07e2 Line {l1=0x26, l2=» KODE8,KODE9,BRUTTOVÆGT:INTEGER;«, l3=0x26}
0x07e2…080d Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x080d…0813 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0813…082d Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x082d…083e Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x083e…0853 Line {l1=0x13, l2=» (*KNR1,KNR2,«, l3=0x13}
0x0853…088b Line {l1=0x36, l2=» FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;«, l3=0x36}
0x088b…089c Line {l1=0x0f, l2=» (*NETTO,«, l3=0x0f}
0x089c…08ac Line {l1=0x0e, l2=» MOMS,«, l3=0x0e}
0x08ac…08bd Line {l1=0x0f, l2=» RABAT,«, l3=0x0f}
0x08bd…08d4 Line {l1=0x15, l2=» BRÆKAGEFORS,«, l3=0x15}
0x08d4…08e5 Line {l1=0x0f, l2=» FRAGT,«, l3=0x0f}
0x08e5…08fa Line {l1=0x13, l2=» EMBALLAGE,«, l3=0x13}
0x08fa…092b Line {l1=0x2f, l2=» VARESALG *) REEL:ARRAY(1..7) OF REAL«, l3=0x2f}
0x092b…0931 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0931…094d Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x094d…0961 Line {l1=0x12, l2=»TOLDPAPPOST=RECORD«, l3=0x12}
0x0961…0970 Line {l1=0x0d, l2=» KNR1,KNR2,«, l3=0x0d}
0x0970…097e Line {l1=0x0c, l2=» OPRILAND,«, l3=0x0c}
0x097e…098f Line {l1=0x0f, l2=» KODE8,KODE9,«, l3=0x0f}
0x098f…099f Line {l1=0x0e, l2=» BRUTTOVÆGT,«, l3=0x0e}
0x099f…09af Line {l1=0x0e, l2=» SUPPMÆNGDE,«, l3=0x0e}
0x09af…09cd Line {l1=0x1c, l2=» FAKTNR1,FAKTNR2 :INTEGER;«, l3=0x1c}
0x09cd…0a03 Line {l1=0x34, l2=» TRANSPORTØR,AKOLLI: PACKED ARRAY (1..30) OF CHAR;«, l3=0x34}
0x0a03…0a49 Line {l1=0x44, l2=» VÆRDI,TOLDPONR: REAL; (*VÆRDI ER FAKTURABELØB NÅR OPRILAND=0, KUN«, l3=0x44}
0x0a49…0a7a Line {l1=0x2f, l2=» DEN SIDSTE ER <>0 *)«, l3=0x2f}
0x0a7a…0ac2 Line {l1=0x46, l2=» LEVBET: PACKED ARRAY (1..16) OF CHAR (*DITTO(1)'S FØRSTE 16 TEGN *)«, l3=0x46}
0x0ac2…0ac8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ac8…0ae8 Line {l1=0x1e, l2=»TOLDPFILE=FILE OF TOLDPAPPOST;«, l3=0x1e}
0x0ae8…0af8 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0af8…0b08 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x0b08…0b12 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0b12…0b1d Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0b1d…0b2c Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0b2c…0b3a Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x0b3a…0b4a Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x0b4a…0b87 Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x0b87…0ba4 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0ba4…0bcd Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x0bcd…0c14 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x0c14…0c1a Line {l1=0x04, l2=»END;«, l3=0x04}
0x0c1a…0c34 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0c34…0c44 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0c44…0c58 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0c58…0c7c Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0c7c…0c84 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0c84…0c93 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0c93…0ca7 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0ca7…0ccb Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x0ccb…0cd3 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0cd3…0ce4 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0ce4…0cf8 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0cf8…0d1c Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0d1c…0d24 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0d24…0d28 Line {l1=0x02, l2=» «, l3=0x02}
[…0x3…]
0x0d34…0d45 Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x0d45…0d58 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0d58…0d7b Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x0d7b…0d81 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d81…0db1 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x0db1…0dd6 Line {l1=0x23, l2=» VAR FBETA,FVAR,FROR,FKUN : ISF;«, l3=0x23}
0x0dd6…0df0 Line {l1=0x18, l2=» FAKFIL :FAKFILE;«, l3=0x18}
0x0df0…0e09 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0e09…0e26 Line {l1=0x1b, l2=» TOLDPHIL:TOLDPFILE;«, l3=0x1b}
0x0e26…0e41 Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x0e41…0e5c Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x0e5c…0e6d Line {l1=0x0f, l2=» T:TEXT;«, l3=0x0f}
0x0e6d…0e99 Line {l1=0x2a, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x2a}
0x0e99…0eac Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0eac…0ec2 Line {l1=0x14, l2=» BZ:BETAZONE;«, l3=0x14}
0x0ec2…0ed7 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0ed7…0eea Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0eea…0f04 Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0f04…0f19 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0f19…0f2f Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0f2f…0f47 Line {l1=0x16, l2=» BETA:BETAPOST;«, l3=0x16}
0x0f47…0f62 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0f62…0fa2 Line {l1=0x3e, l2=» SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..23) OF CHAR;«, l3=0x3e}
0x0fa2…0fca Line {l1=0x26, l2=» IER,I,J,OPRLAND,SIDE,SUPMÆNGDE«, l3=0x26}
0x0fca…0fed Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0fed…1017 Line {l1=0x28, l2=» R,R1,R2,TOLDPNR,GRPTOTAL :REAL;«, l3=0x28}
0x1017…102e Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x102e…1037 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x1037…1048 Line {l1=0x0f, l2=» (*$R-,IIOPEN*)«, l3=0x0f}
0x1048…1059 Line {l1=0x0f, l2=» (*$IEXCOMCOP*)«, l3=0x0f}
0x1059…1067 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x1067…1078 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x1078…1089 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x1089…1099 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x1099…10a8 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x10a8…10b7 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x10b7…10c6 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x10c6…10d0 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x10d0…10d9 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x10d9…10ec Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x10ec…10f4 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x10f4…1119 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x1119…1130 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x1130…1147 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x1147…115e Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x115e…1176 Line {l1=0x16, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x16}
0x1176…1192 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x1192…11a1 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x11a1…11a8 Line {l1=0x05, l2=» END;«, l3=0x05}
0x11a8…11b9 Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x11b9…11c9 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x11c9…11d0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11d0…11df Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x11df…11e6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x11e6…11fa Line {l1=0x12, l2=» WRITELN(T,'%P');«, l3=0x12}
0x11fa…1220 Line {l1=0x24, l2=» FOR I:=1 TO TOPMARG DO WRITELN(T);«, l3=0x24}
0x1220…1233 Line {l1=0x11, l2=» IF NR(3)=1 THEN«, l3=0x11}
0x1233…123c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x123c…125a Line {l1=0x1c, l2=» I:=0;«, l3=0x1c}
0x125a…1271 Line {l1=0x15, l2=» REPEAT I:=I+1«, l3=0x15}
0x1271…12a0 Line {l1=0x2d, l2=» UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');«, l3=0x2d}
0x12a0…12c4 Line {l1=0x22, l2=» IF BETA.NAVN(1,I)=' ' THEN«, l3=0x22}
0x12c4…12d2 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x12d2…12fe Line {l1=0x2a, l2=» MOVELEFT(BETA.NAVN(1,5),NAME,26);«, l3=0x2a}
0x12fe…1323 Line {l1=0x23, l2=» WRITE(T,' ':6,NAME,' ':14)«, l3=0x23}
0x1323…132f Line {l1=0x0a, l2=» END«, l3=0x0a}
0x132f…133c Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x133c…136a Line {l1=0x2c, l2=» WRITE(T,' ':6,BETA.NAVN(1),' ':10);«, l3=0x2c}
0x136a…1378 Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x1378…138e Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x138e…13b7 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x13b7…13d5 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x13d5…13e3 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x13e3…140a Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x140a…1424 Line {l1=0x18, l2=» WRITELN(T,NAME)«, l3=0x18}
0x1424…1430 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1430…143d Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x143d…145b Line {l1=0x1c, l2=» WRITELN(T,NAVN(1));«, l3=0x1c}
0x145b…1491 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));«, l3=0x34}
0x1491…14c7 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));«, l3=0x34}
0x14c7…14fd Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);«, l3=0x34}
0x14fd…1531 Line {l1=0x32, l2=» WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);«, l3=0x32}
0x1531…154f Line {l1=0x1c, l2=» IF BETA.NR(3)=DK THEN«, l3=0x1c}
0x154f…1569 Line {l1=0x18, l2=» WRITE(T,' ':46)«, l3=0x18}
0x1569…1576 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1576…1584 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1584…15a8 Line {l1=0x22, l2=» SEEK(LANDFIL,BETA.NR(3));«, l3=0x22}
0x15a8…15c0 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x15c0…15e9 Line {l1=0x27, l2=» WRITE(T,' ':6,LANDFIL^,' ':10)«, l3=0x27}
0x15e9…15f6 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x15f6…160f Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x160f…1624 Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1624…1631 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1631…163f Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x163f…165e Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x165e…1676 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1676…1694 Line {l1=0x1c, l2=» WRITELN(T,LANDFIL^)«, l3=0x1c}
0x1694…16a0 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x16a0…16a7 Line {l1=0x05, l2=» END«, l3=0x05}
0x16a7…16af Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x16af…16b8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x16b8…16c6 Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x16c6…16dc Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x16dc…1705 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x1705…1723 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x1723…1731 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1731…1758 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x1758…1778 Line {l1=0x1e, l2=» WRITELN(T,' ':6,NAME)«, l3=0x1e}
0x1778…1784 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1784…1791 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1791…17b3 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(1));«, l3=0x20}
0x17b3…17d5 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(2));«, l3=0x20}
0x17d5…17f7 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(3));«, l3=0x20}
0x17f7…1819 Line {l1=0x20, l2=» WRITELN(T,' ':6,LANDSBY);«, l3=0x20}
0x1819…183a Line {l1=0x1f, l2=» WRITELN(T,' ':6,POSTNR);«, l3=0x1f}
0x183a…1853 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1853…1868 Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1868…1875 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1875…1883 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1883…18a2 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x18a2…18ba Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x18ba…18de Line {l1=0x22, l2=» WRITELN(T,' ':6,LANDFIL^)«, l3=0x22}
0x18de…18ea Line {l1=0x0a, l2=» END«, l3=0x0a}
0x18ea…18f2 Line {l1=0x06, l2=» END;«, l3=0x06}
0x18f2…190c Line {l1=0x18, l2=» WRITELN(T);WRITELN(T);«, l3=0x18}
0x190c…1932 Line {l1=0x24, l2=» WRITELN(T,' ':53,'Fakturanummer ',«, l3=0x24}
0x1932…1972 Line {l1=0x3e, l2=» SYSFIL^.HELTAL(7)*10000.0+SYSFIL^.HELTAL(8):6:-2);«, l3=0x3e}
0x1972…1981 Line {l1=0x0d, l2=» WRITELN(T);«, l3=0x0d}
0x1981…199e Line {l1=0x1b, l2=» WRITELN(T,' ':74,SIDE:2);«, l3=0x1b}
0x199e…19af Line {l1=0x0f, l2=» SIDE:=SIDE+1;«, l3=0x0f}
0x19af…19d5 Line {l1=0x24, l2=» WRITE(T,NR(1)*10000.0+NR(2):9:-2);«, l3=0x24}
0x19d5…19e8 Line {l1=0x11, l2=» WITH FAKFIL^ DO«, l3=0x11}
0x19e8…1a14 Line {l1=0x2a, l2=» WRITE(T,HEAD(3)*10000.0+HEAD(4):8:-2);«, l3=0x2a}
0x1a14…1a5a Line {l1=0x44, l2=» WRITELN(T,' ':1,SENDTPR(FAKFIL^.FORSEND),' ',FAKFIL^.DITTO(1),' ',«, l3=0x44}
0x1a5a…1a76 Line {l1=0x1a, l2=»SYSFIL^.HELTAL(1)*10000.0+«, l3=0x1a}
0x1a76…1aa2 Line {l1=0x2a, l2=» SYSFIL^.HELTAL(2):6:-2);«, l3=0x2a}
0x1aa2…1aab Line {l1=0x07, l2=» J:=1;«, l3=0x07}
0x1aab…1ab9 Line {l1=0x0c, l2=» WRITELN(T)«, l3=0x0c}
0x1ab9…1abe Line {l1=0x03, l2=»END«, l3=0x03}
0x1abe…1ac4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ac4…1ad9 Line {l1=0x13, l2=»PROCEDURE SKRIVPAP;«, l3=0x13}
0x1ad9…1ae9 Line {l1=0x0e, l2=»VAR J:INTEGER;«, l3=0x0e}
0x1ae9…1af0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1af0…1b05 Line {l1=0x13, l2=» WITH TOLDPHIL^ DO«, l3=0x13}
0x1b05…1b0e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b0e…1b26 Line {l1=0x16, l2=» KNR1:=KUNDE.NR(1);«, l3=0x16}
0x1b26…1b3e Line {l1=0x16, l2=» KNR2:=KUNDE.NR(2);«, l3=0x16}
0x1b3e…1b56 Line {l1=0x16, l2=» OPRILAND:=OPRLAND;«, l3=0x16}
0x1b56…1b71 Line {l1=0x19, l2=» KODE8:=FAKFIL^.KODE8;«, l3=0x19}
0x1b71…1b8c Line {l1=0x19, l2=» KODE9:=FAKFIL^.KODE9;«, l3=0x19}
0x1b8c…1bb1 Line {l1=0x23, l2=» BRUTTOVÆGT:=FAKFIL^.BRUTTOVÆGT;«, l3=0x23}
0x1bb1…1bcd Line {l1=0x1a, l2=» SUPPMÆNGDE:=SUPMÆNGDE;«, l3=0x1a}
0x1bcd…1bee Line {l1=0x1f, l2=» FAKTNR1:=SYSFIL^.HELTAL(7);«, l3=0x1f}
0x1bee…1c0f Line {l1=0x1f, l2=» FAKTNR2:=SYSFIL^.HELTAL(8);«, l3=0x1f}
0x1c0f…1c36 Line {l1=0x25, l2=» TRANSPORTØR:=FAKFIL^.TRANSPORTØR;«, l3=0x25}
0x1c36…1c53 Line {l1=0x1b, l2=» AKOLLI:=FAKFIL^.AKOLLI;«, l3=0x1b}
0x1c53…1c69 Line {l1=0x14, l2=» VÆRDI:=GRPTOTAL;«, l3=0x14}
0x1c69…1c81 Line {l1=0x16, l2=» TOLDPONR:=TOLDPNR;«, l3=0x16}
0x1c81…1cb6 Line {l1=0x33, l2=» FOR J:=1 TO 16 DO LEVBET(J):=FAKFIL^.DITTO(1,J)«, l3=0x33}
0x1cb6…1cbe Line {l1=0x06, l2=» END;«, l3=0x06}
0x1cbe…1ccf Line {l1=0x0f, l2=» PUT(TOLDPHIL)«, l3=0x0f}
0x1ccf…1cd5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1cd5…1ce7 Line {l1=0x10, l2=»PROCEDURE LINES;«, l3=0x10}
0x1ce7…1cee Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1cee…1d19 Line {l1=0x29, l2=» WITH KUNDE,FAKFIL^.ORDRELIN(I) DO«, l3=0x29}
0x1d19…1d33 Line {l1=0x18, l2=» IF VNR(1)>1 THEN«, l3=0x18}
0x1d33…1d42 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1d42…1d65 Line {l1=0x21, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x21}
0x1d65…1d8a Line {l1=0x23, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x23}
0x1d8a…1db4 Line {l1=0x28, l2=» IF (IER<>0) AND (IER<>-6) THEN«, l3=0x28}
0x1db4…1de9 Line {l1=0x33, l2=» BEGIN WRITELN(VARE.HELTAL(1));ERROR END;«, l3=0x33}
0x1de9…1e02 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x1e02…1e13 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1e13…1e49 Line {l1=0x34, l2=» VARE.REELTAL(11):=VARE.REELTAL(11)+VNR(2);«, l3=0x34}
0x1e49…1e84 Line {l1=0x39, l2=» VARE.REELTAL(13):=VARE.REELTAL(13)+VNR(2)*PRIS;«, l3=0x39}
0x1e84…1ed1 Line {l1=0x4b, l2=» VARE.REELTAL(15):=VARE.REELTAL(15)+VNR(2)*(PRIS-VARE.REELTAL(2));«, l3=0x4b}
0x1ed1…1eff Line {l1=0x2c, l2=» VARE.HELTAL(8):=SYSFIL^.HELTAL(1);«, l3=0x2c}
0x1eff…1f2d Line {l1=0x2c, l2=» VARE.HELTAL(9):=SYSFIL^.HELTAL(2);«, l3=0x2c}
0x1f2d…1f59 Line {l1=0x2a, l2=» IF (VARE.REELTAL(3)<>TOLDPNR) OR«, l3=0x2a}
0x1f59…1fa5 Line {l1=0x4a, l2=» ((VARE.REELTAL(3)=TOLDPNR) AND (VARE.HELTAL(3)<>OPRLAND)) THEN«, l3=0x4a}
0x1fa5…1fb6 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1fb6…1fd6 Line {l1=0x1e, l2=» IF OPRLAND<>0 THEN«, l3=0x1e}
0x1fd6…1fe9 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x1fe9…2002 Line {l1=0x17, l2=» SKRIVPAP;«, l3=0x17}
0x2002…2028 Line {l1=0x24, l2=» SEEK(LANDFIL,OPRLAND);«, l3=0x24}
0x2028…2045 Line {l1=0x1b, l2=» GET(LANDFIL);«, l3=0x1b}
0x2045…2084 Line {l1=0x3d, l2=» WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,«, l3=0x3d}
0x2084…20c0 Line {l1=0x3a, l2=» ' Pos.total',GRPTOTAL/100:12:2);«, l3=0x3a}
0x20c0…20db Line {l1=0x19, l2=» WRITELN(T);«, l3=0x19}
0x20db…20f7 Line {l1=0x1a, l2=» GRPTOTAL:=0;«, l3=0x1a}
0x20f7…2114 Line {l1=0x1b, l2=» SUPMÆNGDE:=0;«, l3=0x1b}
0x2114…212a Line {l1=0x14, l2=» J:=J+2«, l3=0x14}
0x212a…213c Line {l1=0x10, l2=» END;«, l3=0x10}
0x213c…2163 Line {l1=0x25, l2=» TOLDPNR:=VARE.REELTAL(3);«, l3=0x25}
0x2163…2189 Line {l1=0x24, l2=» OPRLAND:=VARE.HELTAL(3);«, l3=0x24}
0x2189…2199 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2199…21b7 Line {l1=0x1c, l2=» IF J>20 THEN HEAD;«, l3=0x1c}
0x21b7…2202 Line {l1=0x49, l2=» WRITELN(T,VNR(1):9,' ':2,VARE.NAVN(1),VNR(2):5,VNR(3)-VNR(2):5,«, l3=0x49}
0x2202…223c Line {l1=0x38, l2=» PRIS/100:10:2,VNR(2)*PRIS/100:12:2);«, l3=0x38}
0x223c…224f Line {l1=0x11, l2=» J:=J+1;«, l3=0x11}
0x224f…226c Line {l1=0x1b, l2=» R:=R+VNR(2)*PRIS;«, l3=0x1b}
0x226c…2294 Line {l1=0x26, l2=» SUPMÆNGDE:=SUPMÆNGDE+VNR(2);«, l3=0x26}
0x2294…22bf Line {l1=0x29, l2=» GRPTOTAL:=GRPTOTAL+VNR(2)*PRIS;«, l3=0x29}
0x22bf…22fc Line {l1=0x3b, l2=» IF (VNR(2)<>VNR(3)) AND (FAKFIL^.HEAD(11)=0) THEN«, l3=0x3b}
0x22fc…2317 Line {l1=0x19, l2=» WITH RESTORD DO«, l3=0x19}
0x2317…2328 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2328…2348 Line {l1=0x1e, l2=» HEAD(1):=NR(1);«, l3=0x1e}
0x2348…2368 Line {l1=0x1e, l2=» HEAD(2):=NR(2);«, l3=0x1e}
0x2368…2389 Line {l1=0x1f, l2=» HEAD(3):=VNR(1);«, l3=0x1f}
0x2389…23b9 Line {l1=0x2e, l2=» HEAD(4):=0;HEAD(5):=0;ANTAL:=0;«, l3=0x2e}
0x23b9…23de Line {l1=0x23, l2=» GETREC(RZ.H,FROR,A);«, l3=0x23}
0x23de…240a Line {l1=0x2a, l2=» ANTAL:=ANTAL+VNR(3)-VNR(2);«, l3=0x2a}
0x240a…243a Line {l1=0x2e, l2=» IF (FAKFIL^.HEAD(7)>HEAD(4)) OR«, l3=0x2e}
0x243a…2486 Line {l1=0x4a, l2=» ((FAKFIL^.HEAD(7)=HEAD(4)) AND (FAKFIL^.HEAD(8)>HEAD(5)))«, l3=0x4a}
0x2486…24a1 Line {l1=0x19, l2=» THEN BEGIN«, l3=0x19}
0x24a1…24ce Line {l1=0x2b, l2=» HEAD(4):=FAKFIL^.HEAD(7);«, l3=0x2b}
0x24ce…24fa Line {l1=0x2a, l2=» HEAD(5):=FAKFIL^.HEAD(8)«, l3=0x2a}
0x24fa…250f Line {l1=0x13, l2=» END;«, l3=0x13}
0x250f…2549 Line {l1=0x38, l2=» IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)«, l3=0x38}
0x2549…255e Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x255e…259a Line {l1=0x3a, l2=» IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x3a}
0x259a…25e1 Line {l1=0x45, l2=» IF IER<>0 THEN BEGIN WRITELN(HEAD(1),HEAD(2),HEAD(3));«, l3=0x45}
0x25e1…2611 Line {l1=0x2e, l2=» ERROR END;«, l3=0x2e}
0x2611…2621 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2621…2645 Line {l1=0x22, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x22}
0x2645…2654 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2654…2662 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2662…2668 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2668…2685 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x2685…2693 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x2693…269a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x269a…26b3 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x26b3…26c6 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x26c6…26de Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x26de…26e4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x26e4…26f5 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x26f5…26fc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26fc…2726 Line {l1=0x28, l2=» SENDTPR(1):='Post ';«, l3=0x28}
0x2726…2750 Line {l1=0x28, l2=» SENDTPR(2):='Luftpost ';«, l3=0x28}
0x2750…277a Line {l1=0x28, l2=» SENDTPR(3):='Bane ';«, l3=0x28}
0x277a…27a4 Line {l1=0x28, l2=» SENDTPR(4):='Fragtmand ';«, l3=0x28}
0x27a4…27ce Line {l1=0x28, l2=» SENDTPR(5):='Samson / Liniegods ';«, l3=0x28}
0x27ce…27f8 Line {l1=0x28, l2=» SENDTPR(6):='Samson / Olson & Wright';«, l3=0x28}
0x27f8…2822 Line {l1=0x28, l2=» SENDTPR(7):='Leman ';«, l3=0x28}
0x2822…284c Line {l1=0x28, l2=» SENDTPR(8):='Deres transportør ';«, l3=0x28}
0x284c…2876 Line {l1=0x28, l2=» SENDTPR(9):='Skib ';«, l3=0x28}
0x2876…28a1 Line {l1=0x29, l2=» SENDTPR(10):='Veritas ';«, l3=0x29}
0x28a1…28cc Line {l1=0x29, l2=» SENDTPR(11):='DFDS ';«, l3=0x29}
0x28cc…28f7 Line {l1=0x29, l2=» SENDTPR(12):='Faroe ship ';«, l3=0x29}
0x28f7…2922 Line {l1=0x29, l2=» SENDTPR(13):='Vogn / bil ';«, l3=0x29}
0x2922…294d Line {l1=0x29, l2=» SENDTPR(14):='Afhentet ';«, l3=0x29}
0x294d…2963 Line {l1=0x14, l2=» FOR I:=15 TO 19 DO«, l3=0x14}
0x2963…298e Line {l1=0x29, l2=» SENDTPR(I):= ' ';«, l3=0x29}
0x298e…29b9 Line {l1=0x29, l2=» SENDTPR(20):='Brevdue ';«, l3=0x29}
0x29b9…29bf Line {l1=0x04, l2=»END;«, l3=0x04}
0x29bf…29d2 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x29d2…29d9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x29d9…29ea Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x29ea…29f3 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x29f3…2a13 Line {l1=0x1e, l2=» IF FAKFIL^.EMBAL<>0 THEN«, l3=0x1e}
0x2a13…2a20 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2a20…2a3c Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x2a3c…2a7b Line {l1=0x3d, l2=» WRITELN(T,' ':52,'Emballage',FAKFIL^.EMBAL/100:12:2);«, l3=0x3d}
0x2a7b…2abd Line {l1=0x40, l2=» WRITELN(T,' ':52,'Subtotal',(R+FAKFIL^.EMBAL)/100:13:2);«, l3=0x40}
0x2abd…2acd Line {l1=0x0e, l2=» J:=J+2«, l3=0x0e}
0x2acd…2ad9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ad9…2b01 Line {l1=0x26, l2=» JOURFIL^.REEL(6):=FAKFIL^.EMBAL;«, l3=0x26}
0x2b01…2b26 Line {l1=0x23, l2=» FOR I:=J TO 23 DO WRITELN(T);«, l3=0x23}
0x2b26…2b44 Line {l1=0x1c, l2=» IF KUNDE.NR(16)=1 THEN«, l3=0x1c}
0x2b44…2b51 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2b51…2b6e Line {l1=0x1b, l2=» R1:=RUND(R*0.0175);«, l3=0x1b}
0x2b6e…2b8d Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x2b8d…2bac Line {l1=0x1d, l2=» JOURFIL^.REEL(4):=R1;«, l3=0x1d}
0x2bac…2bbd Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x2bbd…2bc8 Line {l1=0x09, l2=» END«, l3=0x09}
0x2bc8…2c03 Line {l1=0x39, l2=» ELSE BEGIN WRITE(T,' ':10);JOURFIL^.REEL(4):=0 END;«, l3=0x39}
0x2c03…2c1e Line {l1=0x19, l2=» R:=R+FAKFIL^.EMBAL;«, l3=0x19}
0x2c1e…2c3e Line {l1=0x1e, l2=» IF FAKFIL^.FRAGT<>0 THEN«, l3=0x1e}
0x2c3e…2c4b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2c4b…2c75 Line {l1=0x28, l2=» WRITE(T,FAKFIL^.FRAGT/100:10:2);«, l3=0x28}
0x2c75…2c91 Line {l1=0x1a, l2=» R:=R+FAKFIL^.FRAGT«, l3=0x1a}
0x2c91…2c9c Line {l1=0x09, l2=» END«, l3=0x09}
0x2c9c…2cb9 Line {l1=0x1b, l2=» ELSE WRITE(T,' ':10);«, l3=0x1b}
0x2cb9…2cdf Line {l1=0x24, l2=» WRITE(T,' ',FAKFIL^.DITTO(2));«, l3=0x24}
0x2cdf…2d07 Line {l1=0x26, l2=» JOURFIL^.REEL(5):=FAKFIL^.FRAGT;«, l3=0x26}
0x2d07…2d23 Line {l1=0x1a, l2=» WRITE(T,R/100:10:2);«, l3=0x1a}
0x2d23…2d58 Line {l1=0x33, l2=» IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN«, l3=0x33}
0x2d58…2d65 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2d65…2d94 Line {l1=0x2d, l2=» R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);«, l3=0x2d}
0x2d94…2db3 Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x2db3…2dc4 Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x2dc4…2dcf Line {l1=0x09, l2=» END«, l3=0x09}
0x2dcf…2ddb Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2ddb…2de8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2de8…2df8 Line {l1=0x0e, l2=» R1:=0;«, l3=0x0e}
0x2df8…2e11 Line {l1=0x17, l2=» WRITE(T,' ':10)«, l3=0x17}
0x2e11…2e1d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2e1d…2e39 Line {l1=0x1a, l2=» JOURFIL^.REEL(1):=R;«, l3=0x1a}
0x2e39…2e56 Line {l1=0x1b, l2=» JOURFIL^.REEL(2):=R1;«, l3=0x1b}
0x2e56…2e74 Line {l1=0x1c, l2=» WRITELN(T,R/100:12:2);«, l3=0x1c}
0x2e74…2e87 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x2e87…2e9b Line {l1=0x12, l2=» GRPTOTAL:=R;«, l3=0x12}
0x2e9b…2eae Line {l1=0x11, l2=» OPRLAND:=0;«, l3=0x11}
0x2eae…2ebf Line {l1=0x0f, l2=» SKRIVPAP;«, l3=0x0f}
0x2ebf…2efc Line {l1=0x3b, l2=» IF NR(8)=1 THEN WRITELN(T,' ':53,'E F T E R K R A V')«, l3=0x3b}
0x2efc…2f08 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2f08…2f41 Line {l1=0x37, l2=» IF NR(8)=2 THEN WRITELN(T,' ':53,'K O N T A N T')«, l3=0x37}
0x2f41…2f4d Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2f4d…2f77 Line {l1=0x28, l2=» WRITELN(T,' ':53,SYSFIL^.BETADAT);«, l3=0x28}
0x2f77…2f8f Line {l1=0x16, l2=» WITH JOURFIL^ DO«, l3=0x16}
0x2f8f…2f9c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2f9c…2fb9 Line {l1=0x1b, l2=» NR(1):=KUNDE.NR(1);«, l3=0x1b}
0x2fb9…2fd6 Line {l1=0x1b, l2=» NR(2):=KUNDE.NR(2);«, l3=0x1b}
0x2fd6…2ff9 Line {l1=0x21, l2=» NR(3):=SYSFIL^.HELTAL(7);«, l3=0x21}
0x2ff9…301c Line {l1=0x21, l2=» NR(4):=SYSFIL^.HELTAL(8);«, l3=0x21}
0x301c…303f Line {l1=0x21, l2=» NR(5):=SYSFIL^.HELTAL(1);«, l3=0x21}
0x303f…3061 Line {l1=0x20, l2=» NR(6):=SYSFIL^.HELTAL(2)«, l3=0x20}
0x3061…306d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x306d…3082 Line {l1=0x13, l2=» PUT(JOURFIL);«, l3=0x13}
0x3082…30b1 Line {l1=0x2d, l2=» SYSFIL^.HELTAL(8):=SYSFIL^.HELTAL(8)+1;«, l3=0x2d}
0x30b1…30d8 Line {l1=0x25, l2=» IF SYSFIL^.HELTAL(8)=10000 THEN«, l3=0x25}
0x30d8…30e5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x30e5…3116 Line {l1=0x2f, l2=» SYSFIL^.HELTAL(7):=SYSFIL^.HELTAL(7)+1;«, l3=0x2f}
0x3116…3134 Line {l1=0x1c, l2=» SYSFIL^.HELTAL(8):=0«, l3=0x1c}
0x3134…3140 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3140…3147 Line {l1=0x05, l2=» END«, l3=0x05}
0x3147…314d Line {l1=0x04, l2=»END;«, l3=0x04}
0x314d…315e Line {l1=0x0f, l2=»PROCEDURE BODY;«, l3=0x0f}
0x315e…3165 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3165…3178 Line {l1=0x11, l2=» WITH KUNDE DO«, l3=0x11}
0x3178…3183 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3183…319a Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x319a…31a7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x31a7…31c3 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x31c3…31df Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x31df…3202 Line {l1=0x21, l2=» GETREC(BZ.H,FBETA,BETA.A)«, l3=0x21}
0x3202…320e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x320e…321b Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x321b…3230 Line {l1=0x13, l2=» SUPMÆNGDE:=0;«, l3=0x13}
0x3230…3243 Line {l1=0x11, l2=» OPRLAND:=0;«, l3=0x11}
0x3243…3253 Line {l1=0x0e, l2=» SIDE:=1;«, l3=0x0e}
0x3253…3267 Line {l1=0x12, l2=» GRPTOTAL:=0;«, l3=0x12}
0x3267…3274 Line {l1=0x0b, l2=» HEAD;«, l3=0x0b}
0x3274…3282 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x3282…32a4 Line {l1=0x20, l2=» FOR I:=1 TO 15 DO LINES;«, l3=0x20}
0x32a4…32df Line {l1=0x39, l2=» IF FAKFIL^.HEAD(5)<>99 THEN GET(FAKFIL) ELSE I:=0«, l3=0x39}
0x32df…32f1 Line {l1=0x10, l2=» UNTIL I=0;«, l3=0x10}
0x32f1…330b Line {l1=0x18, l2=» IF OPRLAND<>0 THEN«, l3=0x18}
0x330b…3318 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3318…332b Line {l1=0x11, l2=» SKRIVPAP;«, l3=0x11}
0x332b…334b Line {l1=0x1e, l2=» SEEK(LANDFIL,OPRLAND);«, l3=0x1e}
0x334b…3362 Line {l1=0x15, l2=» GET(LANDFIL);«, l3=0x15}
0x3362…339b Line {l1=0x37, l2=» WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,«, l3=0x37}
0x339b…33d0 Line {l1=0x33, l2=» ' Pos.total',GRPTOTAL/100:12:2);«, l3=0x33}
0x33d0…33e5 Line {l1=0x13, l2=» WRITELN(T);«, l3=0x13}
0x33e5…33f5 Line {l1=0x0e, l2=» J:=J+2«, l3=0x0e}
0x33f5…3401 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3401…341b Line {l1=0x18, l2=» IF J>21 THEN HEAD;«, l3=0x18}
0x341b…342a Line {l1=0x0d, l2=» J:=J+2;«, l3=0x0d}
0x342a…3454 Line {l1=0x28, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(1));«, l3=0x28}
0x3454…349b Line {l1=0x45, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(2),' ':11,'Subtotal',R/100:13:2);«, l3=0x45}
0x349b…34b7 Line {l1=0x1a, l2=» JOURFIL^.REEL(7):=R;«, l3=0x1a}
0x34b7…34c5 Line {l1=0x0c, l2=» R1:=0;«, l3=0x0c}
0x34c5…34e8 Line {l1=0x21, l2=» IF FAKFIL^.HEAD(12)<>0 THEN«, l3=0x21}
0x34e8…34f5 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x34f5…3511 Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x3511…353c Line {l1=0x29, l2=» R1:=RUND(R*FAKFIL^.HEAD(12)/100);«, l3=0x29}
0x353c…356c Line {l1=0x2e, l2=» WRITELN(T,' ':52,'Rabat',R1/100:16:2);«, l3=0x2e}
0x356c…357e Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x357e…358f Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x358f…35c0 Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x35c0…35cc Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x35cc…35e9 Line {l1=0x1b, l2=» JOURFIL^.REEL(3):=R1;«, l3=0x1b}
0x35e9…360f Line {l1=0x24, l2=» IF (NR(8)=1) OR (NR(8)=2) THEN«, l3=0x24}
0x360f…361c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x361c…3638 Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x3638…3649 Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x3649…3665 Line {l1=0x1a, l2=» R1:=RUND(R*3/100);«, l3=0x1a}
0x3665…3677 Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x3677…36a7 Line {l1=0x2e, l2=» JOURFIL^.REEL(3):=R1+JOURFIL^.REEL(3);«, l3=0x2e}
0x36a7…36da Line {l1=0x31, l2=» WRITELN(T,' ':52,'Kt-rabat',R1/100:13:2);«, l3=0x31}
0x36da…370b Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x370b…3717 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3717…3726 Line {l1=0x0d, l2=» BOTTOM;«, l3=0x0d}
0x3726…3757 Line {l1=0x2f, l2=» SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;«, l3=0x2f}
0x3757…3761 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3761…3772 Line {l1=0x0f, l2=» GET(FAKFIL)«, l3=0x0f}
0x3772…3778 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3778…377f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x377f…379d Line {l1=0x1c, l2=» WRITELN('START TOLDFAKT');«, l3=0x1c}
0x379d…37bc Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x37bc…37d4 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x37d4…3804 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x3804…3807 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x380a…3829 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x3829…383f Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x383f…386d Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x386d…3870 Line {l1=0x01, l2=» «, l3=0x01}
0x3870…388f Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x388f…38a7 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x38a7…38d7 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x38d7…38da Line {l1=0x01, l2=» «, l3=0x01}
0x38da…38f7 Line {l1=0x1b, l2=» FNAVN:='SEXPREG:P2:30:I';«, l3=0x1b}
0x38f7…3911 Line {l1=0x18, l2=» REWRITE(FAKFIL,FNAVN);«, l3=0x18}
0x3911…3914 Line {l1=0x01, l2=» «, l3=0x01}
0x3914…392f Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x392f…3949 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x3949…395c Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x395c…396c Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x396c…396f Line {l1=0x01, l2=» «, l3=0x01}
0x396f…398c Line {l1=0x1b, l2=» FNAVN:='JOURNAL:P2:30:I';«, l3=0x1b}
0x398c…39a7 Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x39a7…39cc Line {l1=0x23, l2=» SEEK(JOURFIL,SYSFIL^.HELTAL(13));«, l3=0x23}
0x39cc…39cf Line {l1=0x01, l2=» «, l3=0x01}
0x39cf…39ec Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x39ec…3a05 Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x3a05…3a08 Line {l1=0x01, l2=» «, l3=0x01}
0x3a08…3a27 Line {l1=0x1d, l2=» FNAVN:='BETAREG:P2:0000:I';«, l3=0x1d}
0x3a27…3a3e Line {l1=0x15, l2=» RESET(FBETA,FNAVN);«, l3=0x15}
0x3a3e…3a58 Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x3a58…3a5b Line {l1=0x01, l2=» «, l3=0x01}
0x3a5b…3a79 Line {l1=0x1c, l2=» FNAVN:='TOLDPAPI:P1:10:K';«, l3=0x1c}
0x3a79…3a95 Line {l1=0x1a, l2=» REWRITE(TOLDPHIL,FNAVN);«, l3=0x1a}
0x3a95…3a98 Line {l1=0x01, l2=» «, l3=0x01}
0x3a98…3ab5 Line {l1=0x1b, l2=» FNAVN:='TOLDTXT:P1:30:K';«, l3=0x1b}
0x3ab5…3aca Line {l1=0x13, l2=» REWRITE(T,FNAVN);«, l3=0x13}
0x3aca…3ad3 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x3ad3…3ad6 Line {l1=0x01, l2=» «, l3=0x01}
0x3ad6…3ae6 Line {l1=0x0e, l2=» GET(FAKFIL);«, l3=0x0e}
0x3ae6…3b1f Line {l1=0x37, l2=» WHILE (FAKFIL^.HEAD(1)<>0) OR (FAKFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x3b1f…3b30 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x3b30…3b39 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3b39…3b56 Line {l1=0x1b, l2=» NR(1):=FAKFIL^.HEAD(1);«, l3=0x1b}
0x3b56…3b73 Line {l1=0x1b, l2=» NR(2):=FAKFIL^.HEAD(2);«, l3=0x1b}
0x3b73…3b8d Line {l1=0x18, l2=» GETREC(KZ.H,FKUN,A);«, l3=0x18}
0x3b8d…3ba8 Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x3ba8…3bb4 Line {l1=0x0a, l2=» BODY«, l3=0x0a}
0x3bb4…3bbc Line {l1=0x06, l2=» END;«, l3=0x06}
0x3bbc…3bd2 Line {l1=0x14, l2=» TOLDPHIL^.KNR1:=0;«, l3=0x14}
0x3bd2…3be8 Line {l1=0x14, l2=» TOLDPHIL^.KNR2:=0;«, l3=0x14}
0x3be8…3bfa Line {l1=0x10, l2=» PUT(TOLDPHIL);«, l3=0x10}
0x3bfa…3c0d Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x3c0d…3c1d Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x3c1d…3c33 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x3c33…3c49 Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x3c49…3c5f Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x3c5f…3c76 Line {l1=0x15, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x15}
0x3c76…3c93 Line {l1=0x1b, l2=» WRITELN('SLUT TOLDFAKT');«, l3=0x1b}
0x3c93…3cbc Line {l1=0x27, l2=» CHAIN('INTRE *1','TOLDPAP:P1',QUQ);«, l3=0x27}
0x3cbc…3cc2 Line {l1=0x04, l2=»END.«, l3=0x04}
0x3cc2…3ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x3ce0…3d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x41…]