|
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: 15168 (0x3b40)
Types: TextFile
Notes: Mikados_K
Names: »NORMFAKT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »NORMFAKT.K«
PROGRAM NORMALFAKTURERING;
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,EXPFIL :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..30) OF CHAR;
IER,I,J,K,SIDE
:INTEGER;
R,R1,R2 :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 OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
PROCEDURE 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,' ':2,SENDTPR(FAKFIL^.FORSEND),' ':14,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 ERROR;
IF IER=0 THEN
BEGIN
IF J>22 THEN HEAD;
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);
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;
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 ERROR;
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:20:2);
R:=R+FAKFIL^.FRAGT
END
ELSE WRITE(T,' ':20);
JOURFIL^.REEL(5):=FAKFIL^.FRAGT;
WRITE(T,R/100:21: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;
SIDE:=1;
HEAD;
REPEAT
FOR I:=1 TO 15 DO LINES;
IF FAKFIL^.HEAD(5)<>99 THEN GET(FAKFIL) ELSE I:=0
UNTIL I=0;
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
CLEARSCREEN;
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='RESTREG:P2:0000:I';
REWRITE(FROR,FNAVN);
IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='FAKREG:P2:30:I';
REWRITE(FAKFIL,FNAVN);
FNAVN:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
FNAVN:='EXPREG:P2:30:I';
REWRITE(EXPFIL,FNAVN);
FNAVN:='JOURNAL:P2:30:I';
REWRITE(JOURFIL,FNAVN);
SEEK(JOURFIL,SYSFIL^.HELTAL(13));
FNAVN:='LANDEREG:P2:0:I';
RESET(LANDFIL,FNAVN);
WRITELN('BETA');
FNAVN:='BETAREG:P2:0000:I';
RESET(FBETA,FNAVN);
WRITELN(IORESULT:5);
IOPEN(BZ.H,FBETA,LÆS);
FNAVN:='FAKTEXT:P1:30:K';
REWRITE(T,FNAVN);
WRITELN('INIT');
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;
IF NR(18)=1 THEN
BEGIN
REPEAT
EXPFIL^:=FAKFIL^;
PUT(EXPFIL);
GET(FAKFIL)
UNTIL EXPFIL^.HEAD(5)=99
END
ELSE
BODY
END;
SEEK(SYSFIL,1);
PUT(SYSFIL);
ICLOSE(VZ.H,FVAR);
ICLOSE(RZ.H,FROR);
ICLOSE(KZ.H,FKUN);
ICLOSE(BZ.H,FBETA);
EXPFIL^.HEAD(1):=0;
EXPFIL^.HEAD(2):=0;
PUT(EXPFIL);
CLOSE(T);
IF EXPFIL^.HEAD(5)<>99 THEN
BEGIN
FNAVN:='TOLDTXT:P1:30:K';
REWRITE(T,FNAVN);
CHAIN('INTRE *1','SKRIVFAK:P1',QUQ)
END
ELSE
BEGIN
WRITELN('CHAIN TOLDSORT');
CHAIN('INTRE *1','TOLDSORT:P1',QUQ)
END
END.
0x0000…001c Line {l1=0x1a, l2=»PROGRAM NORMALFAKTURERING;«, l3=0x1a}
0x001c…003d Line {l1=0x1f, l2=»CONST TOPMARG=6; LMARG=9; DK=8;«, l3=0x1f}
0x003d…004d Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x004d…005c Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x005c…0072 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x0072…009c Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x009c…00e5 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00e5…0106 Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x0106…0141 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x0141…0162 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x0162…018a Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x018a…01d0 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01d0…0214 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x0214…021c Line {l1=0x06, l2=» END;«, l3=0x06}
0x021c…0230 Line {l1=0x12, l2=» PLUOLINE = RECORD«, l3=0x12}
0x0230…0257 Line {l1=0x25, l2=» VNR :ARRAY (1..3) OF INTEGER;«, l3=0x25}
0x0257…0278 Line {l1=0x1f, l2=» (*VNR,LEVERET,BESTILT*)«, l3=0x1f}
0x0278…028c Line {l1=0x12, l2=» PRIS: REAL«, l3=0x12}
0x028c…0294 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0294…02a3 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x02a3…02b2 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x02b2…02d8 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x02d8…0321 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x0321…036a Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x036a…039a Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x039a…03ea Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x03ea…0419 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x0419…0447 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x0447…0472 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0472…049b Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x049b…04c0 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x04c0…04c8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x04c8…04d9 Line {l1=0x0f, l2=»BETAPOST=RECORD«, l3=0x0f}
0x04d9…04e7 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x04e7…050b Line {l1=0x22, l2=» NR:ARRAY (1..3) OF INTEGER;«, l3=0x22}
0x050b…0526 Line {l1=0x19, l2=» (*KNR1,KNR2,LAND*)«, l3=0x19}
0x0526…0561 Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0561…057e Line {l1=0x1b, l2=» (*NAVN,UDVNAVN,ADR*)«, l3=0x1b}
0x057e…05ac Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x05ac…05d9 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x05d9…0602 Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x0602…0608 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0608…0619 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0619…0628 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0628…063c Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x063c…064a Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x064a…0685 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x0685…0699 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x0699…06a1 Line {l1=0x06, l2=» END;«, l3=0x06}
0x06a1…06b2 Line {l1=0x0f, l2=»FAKPOST= RECORD«, l3=0x0f}
0x06b2…06cb Line {l1=0x17, l2=» FORSEND:INTEGER;«, l3=0x17}
0x06cb…06e5 Line {l1=0x18, l2=» EMBAL,FRAGT:REAL;«, l3=0x18}
0x06e5…070c Line {l1=0x25, l2=» HEAD:ARRAY (1..12) OF INTEGER;«, l3=0x25}
0x070c…0747 Line {l1=0x39, l2=» LINE:ARRAY (1..2) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0747…0783 Line {l1=0x3a, l2=» DITTO:ARRAY (1..2) OF PACKED ARRAY (1..20) OF CHAR;«, l3=0x3a}
0x0783…07ae Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x07ae…07b4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07b4…07ce Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x07ce…07df Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x07df…07f4 Line {l1=0x13, l2=» (*KNR1,KNR2,«, l3=0x13}
0x07f4…082c Line {l1=0x36, l2=» FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;«, l3=0x36}
0x082c…083d Line {l1=0x0f, l2=» (*NETTO,«, l3=0x0f}
0x083d…084d Line {l1=0x0e, l2=» MOMS,«, l3=0x0e}
0x084d…085e Line {l1=0x0f, l2=» RABAT,«, l3=0x0f}
0x085e…0875 Line {l1=0x15, l2=» BRÆKAGEFORS,«, l3=0x15}
0x0875…0886 Line {l1=0x0f, l2=» FRAGT,«, l3=0x0f}
0x0886…089b Line {l1=0x13, l2=» EMBALLAGE,«, l3=0x13}
0x089b…08cc Line {l1=0x2f, l2=» VARESALG *) REEL:ARRAY(1..7) OF REAL«, l3=0x2f}
0x08cc…08d2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08d2…08ee Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x08ee…08fe Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x08fe…090e Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x090e…0918 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0918…0923 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0923…0932 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0932…0940 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x0940…0950 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x0950…098d Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x098d…09aa Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x09aa…09d3 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x09d3…0a1a Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x0a1a…0a20 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a20…0a3a Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0a3a…0a4a Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0a4a…0a5e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0a5e…0a82 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0a82…0a8a Line {l1=0x06, l2=» END;«, l3=0x06}
0x0a8a…0a99 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0a99…0aad Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0aad…0ad1 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x0ad1…0ad9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0ad9…0aea Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0aea…0afe Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0afe…0b22 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0b22…0b2a Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b2a…0b2e Line {l1=0x02, l2=» «, l3=0x02}
[…0x3…]
0x0b3a…0b4b Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x0b4b…0b5e Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0b5e…0b81 Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x0b81…0b87 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0b87…0bb7 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x0bb7…0bdc Line {l1=0x23, l2=» VAR FBETA,FVAR,FROR,FKUN : ISF;«, l3=0x23}
0x0bdc…0bfd Line {l1=0x1f, l2=» FAKFIL,EXPFIL :FAKFILE;«, l3=0x1f}
0x0bfd…0c16 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0c16…0c31 Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x0c31…0c4c Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x0c4c…0c5d Line {l1=0x0f, l2=» T:TEXT;«, l3=0x0f}
0x0c5d…0c89 Line {l1=0x2a, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x2a}
0x0c89…0c9c Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0c9c…0cb2 Line {l1=0x14, l2=» BZ:BETAZONE;«, l3=0x14}
0x0cb2…0cc7 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0cc7…0cda Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0cda…0cf4 Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0cf4…0d09 Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0d09…0d1f Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0d1f…0d37 Line {l1=0x16, l2=» BETA:BETAPOST;«, l3=0x16}
0x0d37…0d52 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0d52…0d92 Line {l1=0x3e, l2=» SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3e}
0x0d92…0daa Line {l1=0x16, l2=» IER,I,J,K,SIDE«, l3=0x16}
0x0daa…0dcd Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0dcd…0ded Line {l1=0x1e, l2=» R,R1,R2 :REAL;«, l3=0x1e}
0x0ded…0e04 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0e04…0e0d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0e0d…0e21 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0e21…0e2f Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0e2f…0e3d Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0e3d…0e4e Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0e4e…0e5f Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0e5f…0e6f Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0e6f…0e7e Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0e7e…0e8d Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0e8d…0e9c Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0e9c…0ea9 Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0ea9…0ebc Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0ebc…0ec4 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0ec4…0ee9 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0ee9…0f00 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0f00…0f17 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0f17…0f2e Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0f2e…0f46 Line {l1=0x16, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x16}
0x0f46…0f62 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0f62…0f71 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0f71…0f78 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0f78…0f8a Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0f8a…0f91 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f91…0fa2 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0fa2…0fe7 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0fe7…1017 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1017…1050 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1050…1067 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x1067…1076 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x1076…107c Line {l1=0x04, l2=»END;«, l3=0x04}
0x107c…108d Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x108d…109d Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x109d…10a4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x10a4…10b3 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x10b3…10ba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x10ba…10ce Line {l1=0x12, l2=» WRITELN(T,'%P');«, l3=0x12}
0x10ce…10f4 Line {l1=0x24, l2=» FOR I:=1 TO TOPMARG DO WRITELN(T);«, l3=0x24}
0x10f4…1107 Line {l1=0x11, l2=» IF NR(3)=1 THEN«, l3=0x11}
0x1107…1110 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1110…112e Line {l1=0x1c, l2=» I:=0;«, l3=0x1c}
0x112e…1145 Line {l1=0x15, l2=» REPEAT I:=I+1«, l3=0x15}
0x1145…1174 Line {l1=0x2d, l2=» UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');«, l3=0x2d}
0x1174…1198 Line {l1=0x22, l2=» IF BETA.NAVN(1,I)=' ' THEN«, l3=0x22}
0x1198…11a6 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x11a6…11d2 Line {l1=0x2a, l2=» MOVELEFT(BETA.NAVN(1,5),NAME,26);«, l3=0x2a}
0x11d2…11f7 Line {l1=0x23, l2=» WRITE(T,' ':6,NAME,' ':14)«, l3=0x23}
0x11f7…1203 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1203…1210 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1210…123e Line {l1=0x2c, l2=» WRITE(T,' ':6,BETA.NAVN(1),' ':10);«, l3=0x2c}
0x123e…124c Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x124c…1262 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x1262…128b Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x128b…12a9 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x12a9…12b7 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x12b7…12de Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x12de…12f8 Line {l1=0x18, l2=» WRITELN(T,NAME)«, l3=0x18}
0x12f8…1304 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1304…1311 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1311…132f Line {l1=0x1c, l2=» WRITELN(T,NAVN(1));«, l3=0x1c}
0x132f…1365 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));«, l3=0x34}
0x1365…139b Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));«, l3=0x34}
0x139b…13d1 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);«, l3=0x34}
0x13d1…1405 Line {l1=0x32, l2=» WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);«, l3=0x32}
0x1405…1423 Line {l1=0x1c, l2=» IF BETA.NR(3)=DK THEN«, l3=0x1c}
0x1423…143d Line {l1=0x18, l2=» WRITE(T,' ':46)«, l3=0x18}
0x143d…144a Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x144a…1458 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1458…147c Line {l1=0x22, l2=» SEEK(LANDFIL,BETA.NR(3));«, l3=0x22}
0x147c…1494 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1494…14bd Line {l1=0x27, l2=» WRITE(T,' ':6,LANDFIL^,' ':10)«, l3=0x27}
0x14bd…14ca Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x14ca…14e3 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x14e3…14f8 Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x14f8…1505 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1505…1513 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1513…1532 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x1532…154a Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x154a…1568 Line {l1=0x1c, l2=» WRITELN(T,LANDFIL^)«, l3=0x1c}
0x1568…1574 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1574…157b Line {l1=0x05, l2=» END«, l3=0x05}
0x157b…1583 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1583…158c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x158c…159a Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x159a…15b0 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x15b0…15d9 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x15d9…15f7 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x15f7…1605 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1605…162c Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x162c…164c Line {l1=0x1e, l2=» WRITELN(T,' ':6,NAME)«, l3=0x1e}
0x164c…1658 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1658…1665 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1665…1687 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(1));«, l3=0x20}
0x1687…16a9 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(2));«, l3=0x20}
0x16a9…16cb Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(3));«, l3=0x20}
0x16cb…16ed Line {l1=0x20, l2=» WRITELN(T,' ':6,LANDSBY);«, l3=0x20}
0x16ed…170e Line {l1=0x1f, l2=» WRITELN(T,' ':6,POSTNR);«, l3=0x1f}
0x170e…1727 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1727…173c Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x173c…1749 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1749…1757 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1757…1776 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x1776…178e Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x178e…17b2 Line {l1=0x22, l2=» WRITELN(T,' ':6,LANDFIL^)«, l3=0x22}
0x17b2…17be Line {l1=0x0a, l2=» END«, l3=0x0a}
0x17be…17c6 Line {l1=0x06, l2=» END;«, l3=0x06}
0x17c6…17e0 Line {l1=0x18, l2=» WRITELN(T);WRITELN(T);«, l3=0x18}
0x17e0…1806 Line {l1=0x24, l2=» WRITELN(T,' ':53,'Fakturanummer ',«, l3=0x24}
0x1806…1846 Line {l1=0x3e, l2=» SYSFIL^.HELTAL(7)*10000.0+SYSFIL^.HELTAL(8):6:-2);«, l3=0x3e}
0x1846…1855 Line {l1=0x0d, l2=» WRITELN(T);«, l3=0x0d}
0x1855…1872 Line {l1=0x1b, l2=» WRITELN(T,' ':74,SIDE:2);«, l3=0x1b}
0x1872…1883 Line {l1=0x0f, l2=» SIDE:=SIDE+1;«, l3=0x0f}
0x1883…18a9 Line {l1=0x24, l2=» WRITE(T,NR(1)*10000.0+NR(2):9:-2);«, l3=0x24}
0x18a9…18bc Line {l1=0x11, l2=» WITH FAKFIL^ DO«, l3=0x11}
0x18bc…18e8 Line {l1=0x2a, l2=» WRITE(T,HEAD(3)*10000.0+HEAD(4):8:-2);«, l3=0x2a}
0x18e8…1936 Line {l1=0x4c, l2=» WRITELN(T,' ':2,SENDTPR(FAKFIL^.FORSEND),' ':14,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x4c}
0x1936…1962 Line {l1=0x2a, l2=» SYSFIL^.HELTAL(2):6:-2);«, l3=0x2a}
0x1962…196b Line {l1=0x07, l2=» J:=1;«, l3=0x07}
0x196b…1979 Line {l1=0x0c, l2=» WRITELN(T)«, l3=0x0c}
0x1979…197e Line {l1=0x03, l2=»END«, l3=0x03}
0x197e…1984 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1984…1996 Line {l1=0x10, l2=»PROCEDURE LINES;«, l3=0x10}
0x1996…199d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x199d…19c8 Line {l1=0x29, l2=» WITH KUNDE,FAKFIL^.ORDRELIN(I) DO«, l3=0x29}
0x19c8…19e2 Line {l1=0x18, l2=» IF VNR(1)>1 THEN«, l3=0x18}
0x19e2…19f1 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x19f1…1a14 Line {l1=0x21, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x21}
0x1a14…1a39 Line {l1=0x23, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x23}
0x1a39…1a6a Line {l1=0x2f, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x2f}
0x1a6a…1a83 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x1a83…1a94 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1a94…1ab2 Line {l1=0x1c, l2=» IF J>22 THEN HEAD;«, l3=0x1c}
0x1ab2…1ae8 Line {l1=0x34, l2=» VARE.REELTAL(11):=VARE.REELTAL(11)+VNR(2);«, l3=0x34}
0x1ae8…1b23 Line {l1=0x39, l2=» VARE.REELTAL(13):=VARE.REELTAL(13)+VNR(2)*PRIS;«, l3=0x39}
0x1b23…1b70 Line {l1=0x4b, l2=» VARE.REELTAL(15):=VARE.REELTAL(15)+VNR(2)*(PRIS-VARE.REELTAL(2));«, l3=0x4b}
0x1b70…1b9e Line {l1=0x2c, l2=» VARE.HELTAL(8):=SYSFIL^.HELTAL(1);«, l3=0x2c}
0x1b9e…1bcc Line {l1=0x2c, l2=» VARE.HELTAL(9):=SYSFIL^.HELTAL(2);«, l3=0x2c}
0x1bcc…1c17 Line {l1=0x49, l2=» WRITELN(T,VNR(1):9,' ':2,VARE.NAVN(1),VNR(2):5,VNR(3)-VNR(2):5,«, l3=0x49}
0x1c17…1c51 Line {l1=0x38, l2=» PRIS/100:10:2,VNR(2)*PRIS/100:12:2);«, l3=0x38}
0x1c51…1c64 Line {l1=0x11, l2=» J:=J+1;«, l3=0x11}
0x1c64…1c81 Line {l1=0x1b, l2=» R:=R+VNR(2)*PRIS;«, l3=0x1b}
0x1c81…1cbe Line {l1=0x3b, l2=» IF (VNR(2)<>VNR(3)) AND (FAKFIL^.HEAD(11)=0) THEN«, l3=0x3b}
0x1cbe…1cd9 Line {l1=0x19, l2=» WITH RESTORD DO«, l3=0x19}
0x1cd9…1cea Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1cea…1d0a Line {l1=0x1e, l2=» HEAD(1):=NR(1);«, l3=0x1e}
0x1d0a…1d2a Line {l1=0x1e, l2=» HEAD(2):=NR(2);«, l3=0x1e}
0x1d2a…1d4b Line {l1=0x1f, l2=» HEAD(3):=VNR(1);«, l3=0x1f}
0x1d4b…1d7b Line {l1=0x2e, l2=» HEAD(4):=0;HEAD(5):=0;ANTAL:=0;«, l3=0x2e}
0x1d7b…1da0 Line {l1=0x23, l2=» GETREC(RZ.H,FROR,A);«, l3=0x23}
0x1da0…1dcc Line {l1=0x2a, l2=» ANTAL:=ANTAL+VNR(3)-VNR(2);«, l3=0x2a}
0x1dcc…1dfc Line {l1=0x2e, l2=» IF (FAKFIL^.HEAD(7)>HEAD(4)) OR«, l3=0x2e}
0x1dfc…1e48 Line {l1=0x4a, l2=» ((FAKFIL^.HEAD(7)=HEAD(4)) AND (FAKFIL^.HEAD(8)>HEAD(5)))«, l3=0x4a}
0x1e48…1e63 Line {l1=0x19, l2=» THEN BEGIN«, l3=0x19}
0x1e63…1e90 Line {l1=0x2b, l2=» HEAD(4):=FAKFIL^.HEAD(7);«, l3=0x2b}
0x1e90…1ebc Line {l1=0x2a, l2=» HEAD(5):=FAKFIL^.HEAD(8)«, l3=0x2a}
0x1ebc…1ed1 Line {l1=0x13, l2=» END;«, l3=0x13}
0x1ed1…1f0b Line {l1=0x38, l2=» IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)«, l3=0x38}
0x1f0b…1f20 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x1f20…1f5c Line {l1=0x3a, l2=» IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x3a}
0x1f5c…1f82 Line {l1=0x24, l2=» IF IER<>0 THEN ERROR;«, l3=0x24}
0x1f82…1f92 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1f92…1fb6 Line {l1=0x22, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x22}
0x1fb6…1fc5 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x1fc5…1fd3 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1fd3…1fd9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1fd9…1ff6 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x1ff6…2004 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x2004…200b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x200b…2024 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x2024…2037 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x2037…204f Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x204f…2055 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2055…2066 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x2066…206d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x206d…209e Line {l1=0x2f, l2=» SENDTPR(1):='Post ';«, l3=0x2f}
0x209e…20cf Line {l1=0x2f, l2=» SENDTPR(2):='Luftpost ';«, l3=0x2f}
0x20cf…2100 Line {l1=0x2f, l2=» SENDTPR(3):='Bane ';«, l3=0x2f}
0x2100…2131 Line {l1=0x2f, l2=» SENDTPR(4):='Fragtmand ';«, l3=0x2f}
0x2131…2162 Line {l1=0x2f, l2=» SENDTPR(5):='Samson / Liniegods ';«, l3=0x2f}
0x2162…2193 Line {l1=0x2f, l2=» SENDTPR(6):='Samson / Olson & Wright ';«, l3=0x2f}
0x2193…21c4 Line {l1=0x2f, l2=» SENDTPR(7):='Leman ';«, l3=0x2f}
0x21c4…21f5 Line {l1=0x2f, l2=» SENDTPR(8):='Deres transportør ';«, l3=0x2f}
0x21f5…2226 Line {l1=0x2f, l2=» SENDTPR(9):='Skib ';«, l3=0x2f}
0x2226…2258 Line {l1=0x30, l2=» SENDTPR(10):='Veritas ';«, l3=0x30}
0x2258…228a Line {l1=0x30, l2=» SENDTPR(11):='DFDS ';«, l3=0x30}
0x228a…22bc Line {l1=0x30, l2=» SENDTPR(12):='Faroe ship ';«, l3=0x30}
0x22bc…22ee Line {l1=0x30, l2=» SENDTPR(13):='Vogn / bil ';«, l3=0x30}
0x22ee…2320 Line {l1=0x30, l2=» SENDTPR(14):='Afhentet ';«, l3=0x30}
0x2320…2336 Line {l1=0x14, l2=» FOR I:=15 TO 19 DO«, l3=0x14}
0x2336…2368 Line {l1=0x30, l2=» SENDTPR(I):= ' ';«, l3=0x30}
0x2368…239a Line {l1=0x30, l2=» SENDTPR(20):='Brevdue ';«, l3=0x30}
0x239a…23a0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x23a0…23b3 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x23b3…23ba Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x23ba…23cb Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x23cb…23d4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x23d4…23f4 Line {l1=0x1e, l2=» IF FAKFIL^.EMBAL<>0 THEN«, l3=0x1e}
0x23f4…2401 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2401…241d Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x241d…245c Line {l1=0x3d, l2=» WRITELN(T,' ':52,'Emballage',FAKFIL^.EMBAL/100:12:2);«, l3=0x3d}
0x245c…249e Line {l1=0x40, l2=» WRITELN(T,' ':52,'Subtotal',(R+FAKFIL^.EMBAL)/100:13:2);«, l3=0x40}
0x249e…24ae Line {l1=0x0e, l2=» J:=J+2«, l3=0x0e}
0x24ae…24ba Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x24ba…24e2 Line {l1=0x26, l2=» JOURFIL^.REEL(6):=FAKFIL^.EMBAL;«, l3=0x26}
0x24e2…2507 Line {l1=0x23, l2=» FOR I:=J TO 23 DO WRITELN(T);«, l3=0x23}
0x2507…2525 Line {l1=0x1c, l2=» IF KUNDE.NR(16)=1 THEN«, l3=0x1c}
0x2525…2532 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2532…254f Line {l1=0x1b, l2=» R1:=RUND(R*0.0175);«, l3=0x1b}
0x254f…256e Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x256e…258d Line {l1=0x1d, l2=» JOURFIL^.REEL(4):=R1;«, l3=0x1d}
0x258d…259e Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x259e…25a9 Line {l1=0x09, l2=» END«, l3=0x09}
0x25a9…25e4 Line {l1=0x39, l2=» ELSE BEGIN WRITE(T,' ':10);JOURFIL^.REEL(4):=0 END;«, l3=0x39}
0x25e4…25ff Line {l1=0x19, l2=» R:=R+FAKFIL^.EMBAL;«, l3=0x19}
0x25ff…261f Line {l1=0x1e, l2=» IF FAKFIL^.FRAGT<>0 THEN«, l3=0x1e}
0x261f…262c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x262c…2656 Line {l1=0x28, l2=» WRITE(T,FAKFIL^.FRAGT/100:20:2);«, l3=0x28}
0x2656…2672 Line {l1=0x1a, l2=» R:=R+FAKFIL^.FRAGT«, l3=0x1a}
0x2672…267d Line {l1=0x09, l2=» END«, l3=0x09}
0x267d…269a Line {l1=0x1b, l2=» ELSE WRITE(T,' ':20);«, l3=0x1b}
0x269a…26c2 Line {l1=0x26, l2=» JOURFIL^.REEL(5):=FAKFIL^.FRAGT;«, l3=0x26}
0x26c2…26de Line {l1=0x1a, l2=» WRITE(T,R/100:21:2);«, l3=0x1a}
0x26de…2713 Line {l1=0x33, l2=» IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN«, l3=0x33}
0x2713…2720 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2720…274f Line {l1=0x2d, l2=» R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);«, l3=0x2d}
0x274f…276e Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x276e…277f Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x277f…278a Line {l1=0x09, l2=» END«, l3=0x09}
0x278a…2796 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2796…27a3 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x27a3…27b3 Line {l1=0x0e, l2=» R1:=0;«, l3=0x0e}
0x27b3…27cc Line {l1=0x17, l2=» WRITE(T,' ':10)«, l3=0x17}
0x27cc…27d8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x27d8…27f4 Line {l1=0x1a, l2=» JOURFIL^.REEL(1):=R;«, l3=0x1a}
0x27f4…2811 Line {l1=0x1b, l2=» JOURFIL^.REEL(2):=R1;«, l3=0x1b}
0x2811…282f Line {l1=0x1c, l2=» WRITELN(T,R/100:12:2);«, l3=0x1c}
0x282f…2842 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x2842…287f Line {l1=0x3b, l2=» IF NR(8)=1 THEN WRITELN(T,' ':53,'E F T E R K R A V')«, l3=0x3b}
0x287f…288b Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x288b…28c4 Line {l1=0x37, l2=» IF NR(8)=2 THEN WRITELN(T,' ':53,'K O N T A N T')«, l3=0x37}
0x28c4…28d0 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x28d0…28fa Line {l1=0x28, l2=» WRITELN(T,' ':53,SYSFIL^.BETADAT);«, l3=0x28}
0x28fa…2912 Line {l1=0x16, l2=» WITH JOURFIL^ DO«, l3=0x16}
0x2912…291f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x291f…293c Line {l1=0x1b, l2=» NR(1):=KUNDE.NR(1);«, l3=0x1b}
0x293c…2959 Line {l1=0x1b, l2=» NR(2):=KUNDE.NR(2);«, l3=0x1b}
0x2959…297c Line {l1=0x21, l2=» NR(3):=SYSFIL^.HELTAL(7);«, l3=0x21}
0x297c…299f Line {l1=0x21, l2=» NR(4):=SYSFIL^.HELTAL(8);«, l3=0x21}
0x299f…29c2 Line {l1=0x21, l2=» NR(5):=SYSFIL^.HELTAL(1);«, l3=0x21}
0x29c2…29e4 Line {l1=0x20, l2=» NR(6):=SYSFIL^.HELTAL(2)«, l3=0x20}
0x29e4…29f0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x29f0…2a05 Line {l1=0x13, l2=» PUT(JOURFIL);«, l3=0x13}
0x2a05…2a34 Line {l1=0x2d, l2=» SYSFIL^.HELTAL(8):=SYSFIL^.HELTAL(8)+1;«, l3=0x2d}
0x2a34…2a5b Line {l1=0x25, l2=» IF SYSFIL^.HELTAL(8)=10000 THEN«, l3=0x25}
0x2a5b…2a68 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2a68…2a99 Line {l1=0x2f, l2=» SYSFIL^.HELTAL(7):=SYSFIL^.HELTAL(7)+1;«, l3=0x2f}
0x2a99…2ab7 Line {l1=0x1c, l2=» SYSFIL^.HELTAL(8):=0«, l3=0x1c}
0x2ab7…2ac3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ac3…2aca Line {l1=0x05, l2=» END«, l3=0x05}
0x2aca…2ad0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ad0…2ae1 Line {l1=0x0f, l2=»PROCEDURE BODY;«, l3=0x0f}
0x2ae1…2ae8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2ae8…2afb Line {l1=0x11, l2=» WITH KUNDE DO«, l3=0x11}
0x2afb…2b06 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2b06…2b1d Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x2b1d…2b2a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2b2a…2b46 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x2b46…2b62 Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x2b62…2b85 Line {l1=0x21, l2=» GETREC(BZ.H,FBETA,BETA.A)«, l3=0x21}
0x2b85…2b91 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2b91…2b9e Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x2b9e…2bae Line {l1=0x0e, l2=» SIDE:=1;«, l3=0x0e}
0x2bae…2bbb Line {l1=0x0b, l2=» HEAD;«, l3=0x0b}
0x2bbb…2bc9 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2bc9…2beb Line {l1=0x20, l2=» FOR I:=1 TO 15 DO LINES;«, l3=0x20}
0x2beb…2c26 Line {l1=0x39, l2=» IF FAKFIL^.HEAD(5)<>99 THEN GET(FAKFIL) ELSE I:=0«, l3=0x39}
0x2c26…2c38 Line {l1=0x10, l2=» UNTIL I=0;«, l3=0x10}
0x2c38…2c52 Line {l1=0x18, l2=» IF J>21 THEN HEAD;«, l3=0x18}
0x2c52…2c61 Line {l1=0x0d, l2=» J:=J+2;«, l3=0x0d}
0x2c61…2c8b Line {l1=0x28, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(1));«, l3=0x28}
0x2c8b…2cd2 Line {l1=0x45, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(2),' ':11,'Subtotal',R/100:13:2);«, l3=0x45}
0x2cd2…2cee Line {l1=0x1a, l2=» JOURFIL^.REEL(7):=R;«, l3=0x1a}
0x2cee…2cfc Line {l1=0x0c, l2=» R1:=0;«, l3=0x0c}
0x2cfc…2d1f Line {l1=0x21, l2=» IF FAKFIL^.HEAD(12)<>0 THEN«, l3=0x21}
0x2d1f…2d2c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2d2c…2d48 Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x2d48…2d73 Line {l1=0x29, l2=» R1:=RUND(R*FAKFIL^.HEAD(12)/100);«, l3=0x29}
0x2d73…2da3 Line {l1=0x2e, l2=» WRITELN(T,' ':52,'Rabat',R1/100:16:2);«, l3=0x2e}
0x2da3…2db5 Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x2db5…2dc6 Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x2dc6…2df7 Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x2df7…2e03 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2e03…2e20 Line {l1=0x1b, l2=» JOURFIL^.REEL(3):=R1;«, l3=0x1b}
0x2e20…2e46 Line {l1=0x24, l2=» IF (NR(8)=1) OR (NR(8)=2) THEN«, l3=0x24}
0x2e46…2e53 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2e53…2e6f Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x2e6f…2e80 Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x2e80…2e9c Line {l1=0x1a, l2=» R1:=RUND(R*3/100);«, l3=0x1a}
0x2e9c…2eae Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x2eae…2ede Line {l1=0x2e, l2=» JOURFIL^.REEL(3):=R1+JOURFIL^.REEL(3);«, l3=0x2e}
0x2ede…2f11 Line {l1=0x31, l2=» WRITELN(T,' ':52,'Kt-rabat',R1/100:13:2);«, l3=0x31}
0x2f11…2f42 Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x2f42…2f4e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2f4e…2f5d Line {l1=0x0d, l2=» BOTTOM;«, l3=0x0d}
0x2f5d…2f8e Line {l1=0x2f, l2=» SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;«, l3=0x2f}
0x2f8e…2f98 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2f98…2fa9 Line {l1=0x0f, l2=» GET(FAKFIL)«, l3=0x0f}
0x2fa9…2faf Line {l1=0x04, l2=»END;«, l3=0x04}
0x2faf…2fb6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2fb6…2fc6 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2fc6…2fe5 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x2fe5…2ffd Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x2ffd…302d Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x302d…3030 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3033…3052 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x3052…3068 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x3068…3096 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x3096…3099 Line {l1=0x01, l2=» «, l3=0x01}
0x3099…30b8 Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x30b8…30d0 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x30d0…3100 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3100…3103 Line {l1=0x01, l2=» «, l3=0x01}
0x3103…311f Line {l1=0x1a, l2=» FNAVN:='FAKREG:P2:30:I';«, l3=0x1a}
0x311f…3139 Line {l1=0x18, l2=» REWRITE(FAKFIL,FNAVN);«, l3=0x18}
0x3139…313c Line {l1=0x01, l2=» «, l3=0x01}
0x313c…3157 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x3157…3171 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x3171…3184 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x3184…3194 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x3194…31b0 Line {l1=0x1a, l2=» FNAVN:='EXPREG:P2:30:I';«, l3=0x1a}
0x31b0…31ca Line {l1=0x18, l2=» REWRITE(EXPFIL,FNAVN);«, l3=0x18}
0x31ca…31cd Line {l1=0x01, l2=» «, l3=0x01}
0x31cd…31ea Line {l1=0x1b, l2=» FNAVN:='JOURNAL:P2:30:I';«, l3=0x1b}
0x31ea…3205 Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x3205…322a Line {l1=0x23, l2=» SEEK(JOURFIL,SYSFIL^.HELTAL(13));«, l3=0x23}
0x322a…322d Line {l1=0x01, l2=» «, l3=0x01}
0x322d…324a Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x324a…3263 Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x3263…3266 Line {l1=0x01, l2=» «, l3=0x01}
0x3266…327a Line {l1=0x12, l2=» WRITELN('BETA');«, l3=0x12}
0x327a…3299 Line {l1=0x1d, l2=» FNAVN:='BETAREG:P2:0000:I';«, l3=0x1d}
0x3299…32b0 Line {l1=0x15, l2=» RESET(FBETA,FNAVN);«, l3=0x15}
0x32b0…32c8 Line {l1=0x16, l2=» WRITELN(IORESULT:5);«, l3=0x16}
0x32c8…32e2 Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x32e2…32e5 Line {l1=0x01, l2=» «, l3=0x01}
0x32e5…3302 Line {l1=0x1b, l2=» FNAVN:='FAKTEXT:P1:30:K';«, l3=0x1b}
0x3302…3317 Line {l1=0x13, l2=» REWRITE(T,FNAVN);«, l3=0x13}
0x3317…332b Line {l1=0x12, l2=» WRITELN('INIT');«, l3=0x12}
0x332b…3334 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x3334…3337 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x333a…334a Line {l1=0x0e, l2=» GET(FAKFIL);«, l3=0x0e}
0x334a…3383 Line {l1=0x37, l2=» WHILE (FAKFIL^.HEAD(1)<>0) OR (FAKFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x3383…3394 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x3394…339d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x339d…33ba Line {l1=0x1b, l2=» NR(1):=FAKFIL^.HEAD(1);«, l3=0x1b}
0x33ba…33d7 Line {l1=0x1b, l2=» NR(2):=FAKFIL^.HEAD(2);«, l3=0x1b}
0x33d7…33f1 Line {l1=0x18, l2=» GETREC(KZ.H,FKUN,A);«, l3=0x18}
0x33f1…340c Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x340c…3422 Line {l1=0x14, l2=» IF NR(18)=1 THEN«, l3=0x14}
0x3422…342d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x342d…343c Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x343c…3458 Line {l1=0x1a, l2=» EXPFIL^:=FAKFIL^;«, l3=0x1a}
0x3458…346f Line {l1=0x15, l2=» PUT(EXPFIL);«, l3=0x15}
0x346f…3485 Line {l1=0x14, l2=» GET(FAKFIL)«, l3=0x14}
0x3485…34a6 Line {l1=0x1f, l2=» UNTIL EXPFIL^.HEAD(5)=99«, l3=0x1f}
0x34a6…34af Line {l1=0x07, l2=» END«, l3=0x07}
0x34af…34b9 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x34b9…34c5 Line {l1=0x0a, l2=» BODY«, l3=0x0a}
0x34c5…34cd Line {l1=0x06, l2=» END;«, l3=0x06}
0x34cd…34e0 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x34e0…34f0 Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x34f0…3506 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x3506…351c Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x351c…3532 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x3532…3549 Line {l1=0x15, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x15}
0x3549…3560 Line {l1=0x15, l2=» EXPFIL^.HEAD(1):=0;«, l3=0x15}
0x3560…3577 Line {l1=0x15, l2=» EXPFIL^.HEAD(2):=0;«, l3=0x15}
0x3577…3587 Line {l1=0x0e, l2=» PUT(EXPFIL);«, l3=0x0e}
0x3587…3594 Line {l1=0x0b, l2=» CLOSE(T);«, l3=0x0b}
0x3594…35b3 Line {l1=0x1d, l2=» IF EXPFIL^.HEAD(5)<>99 THEN«, l3=0x1d}
0x35b3…35bc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x35bc…35db Line {l1=0x1d, l2=» FNAVN:='TOLDTXT:P1:30:K';«, l3=0x1d}
0x35db…35f2 Line {l1=0x15, l2=» REWRITE(T,FNAVN);«, l3=0x15}
0x35f2…361d Line {l1=0x29, l2=» CHAIN('INTRE *1','SKRIVFAK:P1',QUQ)«, l3=0x29}
0x361d…3624 Line {l1=0x05, l2=» END«, l3=0x05}
0x3624…362c Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x362c…3635 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3635…3655 Line {l1=0x1e, l2=» WRITELN('CHAIN TOLDSORT');«, l3=0x1e}
0x3655…3680 Line {l1=0x29, l2=» CHAIN('INTRE *1','TOLDSORT:P1',QUQ)«, l3=0x29}
0x3680…3687 Line {l1=0x05, l2=» END«, l3=0x05}
0x3687…368d Line {l1=0x04, l2=»END.«, l3=0x04}
0x368d…36a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccc┆
0x36a0…36c0 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┆
[…0x23…]
0x3b20…3b40 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 ┆