|
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: 14976 (0x3a80)
Types: TextFile
Notes: Mikados_K
Names: »TOLDFAKT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »TOLDFAKT.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;
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;
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;
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
:INTEGER;
R,R1,R2,TOLDPNR,GRPTOTAL :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$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 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
SEEK(LANDFIL,OPRLAND);
GET(LANDFIL);
WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,
' Pos.total',GRPTOTAL/100:12:2);
WRITELN(T);
GRPTOTAL:=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;
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);
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;
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
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
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:='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;
SEEK(SYSFIL,1);
PUT(SYSFIL);
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
ICLOSE(KZ.H,FKUN);
ICLOSE(BZ.H,FBETA);
CHAIN('INTRE *1','SKRIVFAK: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…07ac Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x07ac…07b2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07b2…07cc Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x07cc…07dd Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x07dd…07f2 Line {l1=0x13, l2=» (*KNR1,KNR2,«, l3=0x13}
0x07f2…082a Line {l1=0x36, l2=» FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;«, l3=0x36}
0x082a…083b Line {l1=0x0f, l2=» (*NETTO,«, l3=0x0f}
0x083b…084b Line {l1=0x0e, l2=» MOMS,«, l3=0x0e}
0x084b…085c Line {l1=0x0f, l2=» RABAT,«, l3=0x0f}
0x085c…0873 Line {l1=0x15, l2=» BRÆKAGEFORS,«, l3=0x15}
0x0873…0884 Line {l1=0x0f, l2=» FRAGT,«, l3=0x0f}
0x0884…0899 Line {l1=0x13, l2=» EMBALLAGE,«, l3=0x13}
0x0899…08ca Line {l1=0x2f, l2=» VARESALG *) REEL:ARRAY(1..7) OF REAL«, l3=0x2f}
0x08ca…08d0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08d0…08ec Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x08ec…08fc Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x08fc…090c Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x090c…0916 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0916…0921 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0921…0930 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0930…093e Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x093e…094e Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x094e…098b Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x098b…09a8 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x09a8…09d1 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x09d1…0a18 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x0a18…0a1e Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a1e…0a38 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0a38…0a48 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0a48…0a5c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0a5c…0a80 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0a80…0a88 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0a88…0a97 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0a97…0aab Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0aab…0acf Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x0acf…0ad7 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ad7…0ae8 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0ae8…0afc Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0afc…0b20 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0b20…0b28 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b28…0b2c Line {l1=0x02, l2=» «, l3=0x02}
[…0x3…]
0x0b38…0b49 Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x0b49…0b5c Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0b5c…0b7f Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x0b7f…0b85 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b85…0bb5 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x0bb5…0bda Line {l1=0x23, l2=» VAR FBETA,FVAR,FROR,FKUN : ISF;«, l3=0x23}
0x0bda…0bf4 Line {l1=0x18, l2=» FAKFIL :FAKFILE;«, l3=0x18}
0x0bf4…0c0d Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0c0d…0c28 Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x0c28…0c43 Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x0c43…0c54 Line {l1=0x0f, l2=» T:TEXT;«, l3=0x0f}
0x0c54…0c80 Line {l1=0x2a, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x2a}
0x0c80…0c93 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0c93…0ca9 Line {l1=0x14, l2=» BZ:BETAZONE;«, l3=0x14}
0x0ca9…0cbe Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0cbe…0cd1 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0cd1…0ceb Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0ceb…0d00 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0d00…0d16 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0d16…0d2e Line {l1=0x16, l2=» BETA:BETAPOST;«, l3=0x16}
0x0d2e…0d49 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0d49…0d89 Line {l1=0x3e, l2=» SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..23) OF CHAR;«, l3=0x3e}
0x0d89…0da7 Line {l1=0x1c, l2=» IER,I,J,OPRLAND,SIDE«, l3=0x1c}
0x0da7…0dca Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0dca…0df4 Line {l1=0x28, l2=» R,R1,R2,TOLDPNR,GRPTOTAL :REAL;«, l3=0x28}
0x0df4…0e0b Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0e0b…0e14 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0e14…0e28 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0e28…0e36 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0e36…0e44 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0e44…0e55 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0e55…0e66 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0e66…0e76 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0e76…0e85 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0e85…0e94 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0e94…0ea3 Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0ea3…0ead Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x0ead…0eb6 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0eb6…0ec9 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0ec9…0ed1 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0ed1…0ef6 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0ef6…0f0d Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0f0d…0f24 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0f24…0f3b Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0f3b…0f53 Line {l1=0x16, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x16}
0x0f53…0f6f Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0f6f…0f7e Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0f7e…0f85 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0f85…0f96 Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x0f96…0fa6 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0fa6…0fad Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0fad…0fbc Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x0fbc…0fc3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0fc3…0fd7 Line {l1=0x12, l2=» WRITELN(T,'%P');«, l3=0x12}
0x0fd7…0ffd Line {l1=0x24, l2=» FOR I:=1 TO TOPMARG DO WRITELN(T);«, l3=0x24}
0x0ffd…1010 Line {l1=0x11, l2=» IF NR(3)=1 THEN«, l3=0x11}
0x1010…1019 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1019…1037 Line {l1=0x1c, l2=» I:=0;«, l3=0x1c}
0x1037…104e Line {l1=0x15, l2=» REPEAT I:=I+1«, l3=0x15}
0x104e…107d Line {l1=0x2d, l2=» UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');«, l3=0x2d}
0x107d…10a1 Line {l1=0x22, l2=» IF BETA.NAVN(1,I)=' ' THEN«, l3=0x22}
0x10a1…10af Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x10af…10db Line {l1=0x2a, l2=» MOVELEFT(BETA.NAVN(1,5),NAME,26);«, l3=0x2a}
0x10db…1100 Line {l1=0x23, l2=» WRITE(T,' ':6,NAME,' ':14)«, l3=0x23}
0x1100…110c Line {l1=0x0a, l2=» END«, l3=0x0a}
0x110c…1119 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1119…1147 Line {l1=0x2c, l2=» WRITE(T,' ':6,BETA.NAVN(1),' ':10);«, l3=0x2c}
0x1147…1155 Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x1155…116b Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x116b…1194 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x1194…11b2 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x11b2…11c0 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x11c0…11e7 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x11e7…1201 Line {l1=0x18, l2=» WRITELN(T,NAME)«, l3=0x18}
0x1201…120d Line {l1=0x0a, l2=» END«, l3=0x0a}
0x120d…121a Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x121a…1238 Line {l1=0x1c, l2=» WRITELN(T,NAVN(1));«, l3=0x1c}
0x1238…126e Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));«, l3=0x34}
0x126e…12a4 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));«, l3=0x34}
0x12a4…12da Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);«, l3=0x34}
0x12da…130e Line {l1=0x32, l2=» WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);«, l3=0x32}
0x130e…132c Line {l1=0x1c, l2=» IF BETA.NR(3)=DK THEN«, l3=0x1c}
0x132c…1346 Line {l1=0x18, l2=» WRITE(T,' ':46)«, l3=0x18}
0x1346…1353 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1353…1361 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1361…1385 Line {l1=0x22, l2=» SEEK(LANDFIL,BETA.NR(3));«, l3=0x22}
0x1385…139d Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x139d…13c6 Line {l1=0x27, l2=» WRITE(T,' ':6,LANDFIL^,' ':10)«, l3=0x27}
0x13c6…13d3 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x13d3…13ec Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x13ec…1401 Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1401…140e Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x140e…141c Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x141c…143b Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x143b…1453 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1453…1471 Line {l1=0x1c, l2=» WRITELN(T,LANDFIL^)«, l3=0x1c}
0x1471…147d Line {l1=0x0a, l2=» END«, l3=0x0a}
0x147d…1484 Line {l1=0x05, l2=» END«, l3=0x05}
0x1484…148c Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x148c…1495 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1495…14a3 Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x14a3…14b9 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x14b9…14e2 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x14e2…1500 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x1500…150e Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x150e…1535 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x1535…1555 Line {l1=0x1e, l2=» WRITELN(T,' ':6,NAME)«, l3=0x1e}
0x1555…1561 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1561…156e Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x156e…1590 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(1));«, l3=0x20}
0x1590…15b2 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(2));«, l3=0x20}
0x15b2…15d4 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(3));«, l3=0x20}
0x15d4…15f6 Line {l1=0x20, l2=» WRITELN(T,' ':6,LANDSBY);«, l3=0x20}
0x15f6…1617 Line {l1=0x1f, l2=» WRITELN(T,' ':6,POSTNR);«, l3=0x1f}
0x1617…1630 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1630…1645 Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1645…1652 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1652…1660 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1660…167f Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x167f…1697 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1697…16bb Line {l1=0x22, l2=» WRITELN(T,' ':6,LANDFIL^)«, l3=0x22}
0x16bb…16c7 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x16c7…16cf Line {l1=0x06, l2=» END;«, l3=0x06}
0x16cf…16e9 Line {l1=0x18, l2=» WRITELN(T);WRITELN(T);«, l3=0x18}
0x16e9…170f Line {l1=0x24, l2=» WRITELN(T,' ':53,'Fakturanummer ',«, l3=0x24}
0x170f…174f Line {l1=0x3e, l2=» SYSFIL^.HELTAL(7)*10000.0+SYSFIL^.HELTAL(8):6:-2);«, l3=0x3e}
0x174f…175e Line {l1=0x0d, l2=» WRITELN(T);«, l3=0x0d}
0x175e…177b Line {l1=0x1b, l2=» WRITELN(T,' ':74,SIDE:2);«, l3=0x1b}
0x177b…178c Line {l1=0x0f, l2=» SIDE:=SIDE+1;«, l3=0x0f}
0x178c…17b2 Line {l1=0x24, l2=» WRITE(T,NR(1)*10000.0+NR(2):9:-2);«, l3=0x24}
0x17b2…17c5 Line {l1=0x11, l2=» WITH FAKFIL^ DO«, l3=0x11}
0x17c5…17f1 Line {l1=0x2a, l2=» WRITE(T,HEAD(3)*10000.0+HEAD(4):8:-2);«, l3=0x2a}
0x17f1…1837 Line {l1=0x44, l2=» WRITELN(T,' ':1,SENDTPR(FAKFIL^.FORSEND),' ',FAKFIL^.DITTO(1),' ',«, l3=0x44}
0x1837…1853 Line {l1=0x1a, l2=»SYSFIL^.HELTAL(1)*10000.0+«, l3=0x1a}
0x1853…187f Line {l1=0x2a, l2=» SYSFIL^.HELTAL(2):6:-2);«, l3=0x2a}
0x187f…1888 Line {l1=0x07, l2=» J:=1;«, l3=0x07}
0x1888…1896 Line {l1=0x0c, l2=» WRITELN(T)«, l3=0x0c}
0x1896…189b Line {l1=0x03, l2=»END«, l3=0x03}
0x189b…18a1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x18a1…18b3 Line {l1=0x10, l2=»PROCEDURE LINES;«, l3=0x10}
0x18b3…18ba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x18ba…18e5 Line {l1=0x29, l2=» WITH KUNDE,FAKFIL^.ORDRELIN(I) DO«, l3=0x29}
0x18e5…18ff Line {l1=0x18, l2=» IF VNR(1)>1 THEN«, l3=0x18}
0x18ff…190e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x190e…1931 Line {l1=0x21, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x21}
0x1931…1956 Line {l1=0x23, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x23}
0x1956…1980 Line {l1=0x28, l2=» IF (IER<>0) AND (IER<>-6) THEN«, l3=0x28}
0x1980…19b5 Line {l1=0x33, l2=» BEGIN WRITELN(VARE.HELTAL(1));ERROR END;«, l3=0x33}
0x19b5…19ce Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x19ce…19df Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x19df…1a15 Line {l1=0x34, l2=» VARE.REELTAL(11):=VARE.REELTAL(11)+VNR(2);«, l3=0x34}
0x1a15…1a50 Line {l1=0x39, l2=» VARE.REELTAL(13):=VARE.REELTAL(13)+VNR(2)*PRIS;«, l3=0x39}
0x1a50…1a9d Line {l1=0x4b, l2=» VARE.REELTAL(15):=VARE.REELTAL(15)+VNR(2)*(PRIS-VARE.REELTAL(2));«, l3=0x4b}
0x1a9d…1acb Line {l1=0x2c, l2=» VARE.HELTAL(8):=SYSFIL^.HELTAL(1);«, l3=0x2c}
0x1acb…1af9 Line {l1=0x2c, l2=» VARE.HELTAL(9):=SYSFIL^.HELTAL(2);«, l3=0x2c}
0x1af9…1b25 Line {l1=0x2a, l2=» IF (VARE.REELTAL(3)<>TOLDPNR) OR«, l3=0x2a}
0x1b25…1b71 Line {l1=0x4a, l2=» ((VARE.REELTAL(3)=TOLDPNR) AND (VARE.HELTAL(3)<>OPRLAND)) THEN«, l3=0x4a}
0x1b71…1b82 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1b82…1ba2 Line {l1=0x1e, l2=» IF OPRLAND<>0 THEN«, l3=0x1e}
0x1ba2…1bb5 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x1bb5…1bdb Line {l1=0x24, l2=» SEEK(LANDFIL,OPRLAND);«, l3=0x24}
0x1bdb…1bf8 Line {l1=0x1b, l2=» GET(LANDFIL);«, l3=0x1b}
0x1bf8…1c37 Line {l1=0x3d, l2=» WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,«, l3=0x3d}
0x1c37…1c73 Line {l1=0x3a, l2=» ' Pos.total',GRPTOTAL/100:12:2);«, l3=0x3a}
0x1c73…1c8e Line {l1=0x19, l2=» WRITELN(T);«, l3=0x19}
0x1c8e…1caa Line {l1=0x1a, l2=» GRPTOTAL:=0;«, l3=0x1a}
0x1caa…1cc0 Line {l1=0x14, l2=» J:=J+2«, l3=0x14}
0x1cc0…1cd2 Line {l1=0x10, l2=» END;«, l3=0x10}
0x1cd2…1cf9 Line {l1=0x25, l2=» TOLDPNR:=VARE.REELTAL(3);«, l3=0x25}
0x1cf9…1d1f Line {l1=0x24, l2=» OPRLAND:=VARE.HELTAL(3);«, l3=0x24}
0x1d1f…1d2f Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1d2f…1d4d Line {l1=0x1c, l2=» IF J>20 THEN HEAD;«, l3=0x1c}
0x1d4d…1d98 Line {l1=0x49, l2=» WRITELN(T,VNR(1):9,' ':2,VARE.NAVN(1),VNR(2):5,VNR(3)-VNR(2):5,«, l3=0x49}
0x1d98…1dd2 Line {l1=0x38, l2=» PRIS/100:10:2,VNR(2)*PRIS/100:12:2);«, l3=0x38}
0x1dd2…1de5 Line {l1=0x11, l2=» J:=J+1;«, l3=0x11}
0x1de5…1e02 Line {l1=0x1b, l2=» R:=R+VNR(2)*PRIS;«, l3=0x1b}
0x1e02…1e2d Line {l1=0x29, l2=» GRPTOTAL:=GRPTOTAL+VNR(2)*PRIS;«, l3=0x29}
0x1e2d…1e6a Line {l1=0x3b, l2=» IF (VNR(2)<>VNR(3)) AND (FAKFIL^.HEAD(11)=0) THEN«, l3=0x3b}
0x1e6a…1e85 Line {l1=0x19, l2=» WITH RESTORD DO«, l3=0x19}
0x1e85…1e96 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1e96…1eb6 Line {l1=0x1e, l2=» HEAD(1):=NR(1);«, l3=0x1e}
0x1eb6…1ed6 Line {l1=0x1e, l2=» HEAD(2):=NR(2);«, l3=0x1e}
0x1ed6…1ef7 Line {l1=0x1f, l2=» HEAD(3):=VNR(1);«, l3=0x1f}
0x1ef7…1f27 Line {l1=0x2e, l2=» HEAD(4):=0;HEAD(5):=0;ANTAL:=0;«, l3=0x2e}
0x1f27…1f4c Line {l1=0x23, l2=» GETREC(RZ.H,FROR,A);«, l3=0x23}
0x1f4c…1f78 Line {l1=0x2a, l2=» ANTAL:=ANTAL+VNR(3)-VNR(2);«, l3=0x2a}
0x1f78…1fa8 Line {l1=0x2e, l2=» IF (FAKFIL^.HEAD(7)>HEAD(4)) OR«, l3=0x2e}
0x1fa8…1ff4 Line {l1=0x4a, l2=» ((FAKFIL^.HEAD(7)=HEAD(4)) AND (FAKFIL^.HEAD(8)>HEAD(5)))«, l3=0x4a}
0x1ff4…200f Line {l1=0x19, l2=» THEN BEGIN«, l3=0x19}
0x200f…203c Line {l1=0x2b, l2=» HEAD(4):=FAKFIL^.HEAD(7);«, l3=0x2b}
0x203c…2068 Line {l1=0x2a, l2=» HEAD(5):=FAKFIL^.HEAD(8)«, l3=0x2a}
0x2068…207d Line {l1=0x13, l2=» END;«, l3=0x13}
0x207d…20b7 Line {l1=0x38, l2=» IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)«, l3=0x38}
0x20b7…20cc Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x20cc…2108 Line {l1=0x3a, l2=» IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x3a}
0x2108…214f Line {l1=0x45, l2=» IF IER<>0 THEN BEGIN WRITELN(HEAD(1),HEAD(2),HEAD(3));«, l3=0x45}
0x214f…217f Line {l1=0x2e, l2=» ERROR END;«, l3=0x2e}
0x217f…218f Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x218f…21b3 Line {l1=0x22, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x22}
0x21b3…21c2 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x21c2…21d0 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x21d0…21d6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x21d6…21f3 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x21f3…2201 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x2201…2208 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2208…2221 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x2221…2234 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x2234…224c Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x224c…2252 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2252…2263 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x2263…226a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x226a…2294 Line {l1=0x28, l2=» SENDTPR(1):='Post ';«, l3=0x28}
0x2294…22be Line {l1=0x28, l2=» SENDTPR(2):='Luftpost ';«, l3=0x28}
0x22be…22e8 Line {l1=0x28, l2=» SENDTPR(3):='Bane ';«, l3=0x28}
0x22e8…2312 Line {l1=0x28, l2=» SENDTPR(4):='Fragtmand ';«, l3=0x28}
0x2312…233c Line {l1=0x28, l2=» SENDTPR(5):='Samson / Liniegods ';«, l3=0x28}
0x233c…2366 Line {l1=0x28, l2=» SENDTPR(6):='Samson / Olson & Wright';«, l3=0x28}
0x2366…2390 Line {l1=0x28, l2=» SENDTPR(7):='Leman ';«, l3=0x28}
0x2390…23ba Line {l1=0x28, l2=» SENDTPR(8):='Deres transportør ';«, l3=0x28}
0x23ba…23e4 Line {l1=0x28, l2=» SENDTPR(9):='Skib ';«, l3=0x28}
0x23e4…240f Line {l1=0x29, l2=» SENDTPR(10):='Veritas ';«, l3=0x29}
0x240f…243a Line {l1=0x29, l2=» SENDTPR(11):='DFDS ';«, l3=0x29}
0x243a…2465 Line {l1=0x29, l2=» SENDTPR(12):='Faroe ship ';«, l3=0x29}
0x2465…2490 Line {l1=0x29, l2=» SENDTPR(13):='Vogn / bil ';«, l3=0x29}
0x2490…24bb Line {l1=0x29, l2=» SENDTPR(14):='Afhentet ';«, l3=0x29}
0x24bb…24d1 Line {l1=0x14, l2=» FOR I:=15 TO 19 DO«, l3=0x14}
0x24d1…24fc Line {l1=0x29, l2=» SENDTPR(I):= ' ';«, l3=0x29}
0x24fc…2527 Line {l1=0x29, l2=» SENDTPR(20):='Brevdue ';«, l3=0x29}
0x2527…252d Line {l1=0x04, l2=»END;«, l3=0x04}
0x252d…2540 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x2540…2547 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2547…2558 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x2558…2561 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2561…2581 Line {l1=0x1e, l2=» IF FAKFIL^.EMBAL<>0 THEN«, l3=0x1e}
0x2581…258e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x258e…25aa Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x25aa…25e9 Line {l1=0x3d, l2=» WRITELN(T,' ':52,'Emballage',FAKFIL^.EMBAL/100:12:2);«, l3=0x3d}
0x25e9…262b Line {l1=0x40, l2=» WRITELN(T,' ':52,'Subtotal',(R+FAKFIL^.EMBAL)/100:13:2);«, l3=0x40}
0x262b…263b Line {l1=0x0e, l2=» J:=J+2«, l3=0x0e}
0x263b…2647 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2647…266f Line {l1=0x26, l2=» JOURFIL^.REEL(6):=FAKFIL^.EMBAL;«, l3=0x26}
0x266f…2694 Line {l1=0x23, l2=» FOR I:=J TO 23 DO WRITELN(T);«, l3=0x23}
0x2694…26b2 Line {l1=0x1c, l2=» IF KUNDE.NR(16)=1 THEN«, l3=0x1c}
0x26b2…26bf Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x26bf…26dc Line {l1=0x1b, l2=» R1:=RUND(R*0.0175);«, l3=0x1b}
0x26dc…26fb Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x26fb…271a Line {l1=0x1d, l2=» JOURFIL^.REEL(4):=R1;«, l3=0x1d}
0x271a…272b Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x272b…2736 Line {l1=0x09, l2=» END«, l3=0x09}
0x2736…2771 Line {l1=0x39, l2=» ELSE BEGIN WRITE(T,' ':10);JOURFIL^.REEL(4):=0 END;«, l3=0x39}
0x2771…278c Line {l1=0x19, l2=» R:=R+FAKFIL^.EMBAL;«, l3=0x19}
0x278c…27ac Line {l1=0x1e, l2=» IF FAKFIL^.FRAGT<>0 THEN«, l3=0x1e}
0x27ac…27b9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x27b9…27e3 Line {l1=0x28, l2=» WRITE(T,FAKFIL^.FRAGT/100:10:2);«, l3=0x28}
0x27e3…27ff Line {l1=0x1a, l2=» R:=R+FAKFIL^.FRAGT«, l3=0x1a}
0x27ff…280a Line {l1=0x09, l2=» END«, l3=0x09}
0x280a…2827 Line {l1=0x1b, l2=» ELSE WRITE(T,' ':10);«, l3=0x1b}
0x2827…284d Line {l1=0x24, l2=» WRITE(T,' ',FAKFIL^.DITTO(2));«, l3=0x24}
0x284d…2875 Line {l1=0x26, l2=» JOURFIL^.REEL(5):=FAKFIL^.FRAGT;«, l3=0x26}
0x2875…2891 Line {l1=0x1a, l2=» WRITE(T,R/100:10:2);«, l3=0x1a}
0x2891…28c6 Line {l1=0x33, l2=» IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN«, l3=0x33}
0x28c6…28d3 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x28d3…2902 Line {l1=0x2d, l2=» R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);«, l3=0x2d}
0x2902…2921 Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x2921…2932 Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x2932…293d Line {l1=0x09, l2=» END«, l3=0x09}
0x293d…2949 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2949…2956 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2956…2966 Line {l1=0x0e, l2=» R1:=0;«, l3=0x0e}
0x2966…297f Line {l1=0x17, l2=» WRITE(T,' ':10)«, l3=0x17}
0x297f…298b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x298b…29a7 Line {l1=0x1a, l2=» JOURFIL^.REEL(1):=R;«, l3=0x1a}
0x29a7…29c4 Line {l1=0x1b, l2=» JOURFIL^.REEL(2):=R1;«, l3=0x1b}
0x29c4…29e2 Line {l1=0x1c, l2=» WRITELN(T,R/100:12:2);«, l3=0x1c}
0x29e2…29f5 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x29f5…2a32 Line {l1=0x3b, l2=» IF NR(8)=1 THEN WRITELN(T,' ':53,'E F T E R K R A V')«, l3=0x3b}
0x2a32…2a3e Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2a3e…2a77 Line {l1=0x37, l2=» IF NR(8)=2 THEN WRITELN(T,' ':53,'K O N T A N T')«, l3=0x37}
0x2a77…2a83 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2a83…2aad Line {l1=0x28, l2=» WRITELN(T,' ':53,SYSFIL^.BETADAT);«, l3=0x28}
0x2aad…2ac5 Line {l1=0x16, l2=» WITH JOURFIL^ DO«, l3=0x16}
0x2ac5…2ad2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2ad2…2aef Line {l1=0x1b, l2=» NR(1):=KUNDE.NR(1);«, l3=0x1b}
0x2aef…2b0c Line {l1=0x1b, l2=» NR(2):=KUNDE.NR(2);«, l3=0x1b}
0x2b0c…2b2f Line {l1=0x21, l2=» NR(3):=SYSFIL^.HELTAL(7);«, l3=0x21}
0x2b2f…2b52 Line {l1=0x21, l2=» NR(4):=SYSFIL^.HELTAL(8);«, l3=0x21}
0x2b52…2b75 Line {l1=0x21, l2=» NR(5):=SYSFIL^.HELTAL(1);«, l3=0x21}
0x2b75…2b97 Line {l1=0x20, l2=» NR(6):=SYSFIL^.HELTAL(2)«, l3=0x20}
0x2b97…2ba3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ba3…2bb8 Line {l1=0x13, l2=» PUT(JOURFIL);«, l3=0x13}
0x2bb8…2be7 Line {l1=0x2d, l2=» SYSFIL^.HELTAL(8):=SYSFIL^.HELTAL(8)+1;«, l3=0x2d}
0x2be7…2c0e Line {l1=0x25, l2=» IF SYSFIL^.HELTAL(8)=10000 THEN«, l3=0x25}
0x2c0e…2c1b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2c1b…2c4c Line {l1=0x2f, l2=» SYSFIL^.HELTAL(7):=SYSFIL^.HELTAL(7)+1;«, l3=0x2f}
0x2c4c…2c6a Line {l1=0x1c, l2=» SYSFIL^.HELTAL(8):=0«, l3=0x1c}
0x2c6a…2c76 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2c76…2c7d Line {l1=0x05, l2=» END«, l3=0x05}
0x2c7d…2c83 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2c83…2c94 Line {l1=0x0f, l2=»PROCEDURE BODY;«, l3=0x0f}
0x2c94…2c9b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2c9b…2cae Line {l1=0x11, l2=» WITH KUNDE DO«, l3=0x11}
0x2cae…2cb9 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2cb9…2cd0 Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x2cd0…2cdd Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2cdd…2cf9 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x2cf9…2d15 Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x2d15…2d38 Line {l1=0x21, l2=» GETREC(BZ.H,FBETA,BETA.A)«, l3=0x21}
0x2d38…2d44 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2d44…2d51 Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x2d51…2d64 Line {l1=0x11, l2=» OPRLAND:=0;«, l3=0x11}
0x2d64…2d74 Line {l1=0x0e, l2=» SIDE:=1;«, l3=0x0e}
0x2d74…2d88 Line {l1=0x12, l2=» GRPTOTAL:=0;«, l3=0x12}
0x2d88…2d95 Line {l1=0x0b, l2=» HEAD;«, l3=0x0b}
0x2d95…2da3 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2da3…2dc5 Line {l1=0x20, l2=» FOR I:=1 TO 15 DO LINES;«, l3=0x20}
0x2dc5…2e00 Line {l1=0x39, l2=» IF FAKFIL^.HEAD(5)<>99 THEN GET(FAKFIL) ELSE I:=0«, l3=0x39}
0x2e00…2e12 Line {l1=0x10, l2=» UNTIL I=0;«, l3=0x10}
0x2e12…2e2c Line {l1=0x18, l2=» IF OPRLAND<>0 THEN«, l3=0x18}
0x2e2c…2e39 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2e39…2e59 Line {l1=0x1e, l2=» SEEK(LANDFIL,OPRLAND);«, l3=0x1e}
0x2e59…2e70 Line {l1=0x15, l2=» GET(LANDFIL);«, l3=0x15}
0x2e70…2ea9 Line {l1=0x37, l2=» WRITELN(T,' ':7,TOLDPNR/1000:12:3,' ',LANDFIL^,«, l3=0x37}
0x2ea9…2ede Line {l1=0x33, l2=» ' Pos.total',GRPTOTAL/100:12:2);«, l3=0x33}
0x2ede…2ef3 Line {l1=0x13, l2=» WRITELN(T);«, l3=0x13}
0x2ef3…2f03 Line {l1=0x0e, l2=» J:=J+2«, l3=0x0e}
0x2f03…2f0f Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2f0f…2f29 Line {l1=0x18, l2=» IF J>21 THEN HEAD;«, l3=0x18}
0x2f29…2f38 Line {l1=0x0d, l2=» J:=J+2;«, l3=0x0d}
0x2f38…2f62 Line {l1=0x28, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(1));«, l3=0x28}
0x2f62…2fa9 Line {l1=0x45, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(2),' ':11,'Subtotal',R/100:13:2);«, l3=0x45}
0x2fa9…2fc5 Line {l1=0x1a, l2=» JOURFIL^.REEL(7):=R;«, l3=0x1a}
0x2fc5…2fd3 Line {l1=0x0c, l2=» R1:=0;«, l3=0x0c}
0x2fd3…2ff6 Line {l1=0x21, l2=» IF FAKFIL^.HEAD(12)<>0 THEN«, l3=0x21}
0x2ff6…3003 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3003…301f Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x301f…304a Line {l1=0x29, l2=» R1:=RUND(R*FAKFIL^.HEAD(12)/100);«, l3=0x29}
0x304a…307a Line {l1=0x2e, l2=» WRITELN(T,' ':52,'Rabat',R1/100:16:2);«, l3=0x2e}
0x307a…308c Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x308c…309d Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x309d…30ce Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x30ce…30da Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x30da…30f7 Line {l1=0x1b, l2=» JOURFIL^.REEL(3):=R1;«, l3=0x1b}
0x30f7…311d Line {l1=0x24, l2=» IF (NR(8)=1) OR (NR(8)=2) THEN«, l3=0x24}
0x311d…312a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x312a…3146 Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x3146…3157 Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x3157…3173 Line {l1=0x1a, l2=» R1:=RUND(R*3/100);«, l3=0x1a}
0x3173…3185 Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x3185…31b5 Line {l1=0x2e, l2=» JOURFIL^.REEL(3):=R1+JOURFIL^.REEL(3);«, l3=0x2e}
0x31b5…31e8 Line {l1=0x31, l2=» WRITELN(T,' ':52,'Kt-rabat',R1/100:13:2);«, l3=0x31}
0x31e8…3219 Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x3219…3225 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3225…3234 Line {l1=0x0d, l2=» BOTTOM;«, l3=0x0d}
0x3234…3265 Line {l1=0x2f, l2=» SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;«, l3=0x2f}
0x3265…326f Line {l1=0x08, l2=» END;«, l3=0x08}
0x326f…3280 Line {l1=0x0f, l2=» GET(FAKFIL)«, l3=0x0f}
0x3280…3286 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3286…328d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x328d…32ac Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x32ac…32c4 Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x32c4…32f4 Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x32f4…32f7 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x32fa…3319 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x3319…332f Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x332f…335d Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x335d…3360 Line {l1=0x01, l2=» «, l3=0x01}
0x3360…337f Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x337f…3397 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x3397…33c7 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN ERROR;«, l3=0x2e}
0x33c7…33ca Line {l1=0x01, l2=» «, l3=0x01}
0x33ca…33e7 Line {l1=0x1b, l2=» FNAVN:='SEXPREG:P2:30:I';«, l3=0x1b}
0x33e7…3401 Line {l1=0x18, l2=» REWRITE(FAKFIL,FNAVN);«, l3=0x18}
0x3401…3404 Line {l1=0x01, l2=» «, l3=0x01}
0x3404…341f Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x341f…3439 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x3439…344c Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x344c…345c Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x345c…345f Line {l1=0x01, l2=» «, l3=0x01}
0x345f…347c Line {l1=0x1b, l2=» FNAVN:='JOURNAL:P2:30:I';«, l3=0x1b}
0x347c…3497 Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x3497…34bc Line {l1=0x23, l2=» SEEK(JOURFIL,SYSFIL^.HELTAL(13));«, l3=0x23}
0x34bc…34bf Line {l1=0x01, l2=» «, l3=0x01}
0x34bf…34dc Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x34dc…34f5 Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x34f5…34f8 Line {l1=0x01, l2=» «, l3=0x01}
0x34f8…3517 Line {l1=0x1d, l2=» FNAVN:='BETAREG:P2:0000:I';«, l3=0x1d}
0x3517…352e Line {l1=0x15, l2=» RESET(FBETA,FNAVN);«, l3=0x15}
0x352e…3548 Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x3548…354b Line {l1=0x01, l2=» «, l3=0x01}
0x354b…3568 Line {l1=0x1b, l2=» FNAVN:='TOLDTXT:P1:30:K';«, l3=0x1b}
0x3568…357d Line {l1=0x13, l2=» REWRITE(T,FNAVN);«, l3=0x13}
0x357d…3586 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x3586…3589 Line {l1=0x01, l2=» «, l3=0x01}
0x3589…3599 Line {l1=0x0e, l2=» GET(FAKFIL);«, l3=0x0e}
0x3599…35d2 Line {l1=0x37, l2=» WHILE (FAKFIL^.HEAD(1)<>0) OR (FAKFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x35d2…35e3 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x35e3…35ec Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x35ec…3609 Line {l1=0x1b, l2=» NR(1):=FAKFIL^.HEAD(1);«, l3=0x1b}
0x3609…3626 Line {l1=0x1b, l2=» NR(2):=FAKFIL^.HEAD(2);«, l3=0x1b}
0x3626…3640 Line {l1=0x18, l2=» GETREC(KZ.H,FKUN,A);«, l3=0x18}
0x3640…365b Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x365b…3667 Line {l1=0x0a, l2=» BODY«, l3=0x0a}
0x3667…366f Line {l1=0x06, l2=» END;«, l3=0x06}
0x366f…3682 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x3682…3692 Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x3692…36a8 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x36a8…36be Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x36be…36d4 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x36d4…36eb Line {l1=0x15, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x15}
0x36eb…3715 Line {l1=0x28, l2=» CHAIN('INTRE *1','SKRIVFAK:P1',QUQ);«, l3=0x28}
0x3715…371b Line {l1=0x04, l2=»END.«, l3=0x04}
0x371b…3720 00 00 63 63 63 ┆ ccc┆
0x3720…3740 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x19…]
0x3a60…3a80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆