|
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: »QORMFAKT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »QORMFAKT.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;
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;
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);
CLOSE(T);
FNAVN:='TOLDPTXT:P1:30:K';
REWRITE(T,FNAVN);
CLOSE(T);
FNAVN:='CERTITXT:P1:30:K';
REWRITE(T,FNAVN);
CLOSE(T);
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…07bc Line {l1=0x37, l2=» TRANSPORTØR,AKOLLI:PACKED ARRAY (1..30) OF CHAR;«, l3=0x37}
0x07bc…07e4 Line {l1=0x26, l2=» KODE8,KODE9,BRUTTOVÆGT:INTEGER;«, l3=0x26}
0x07e4…080f Line {l1=0x29, l2=» ORDRELIN: ARRAY(1..15) OF PLUOLINE«, l3=0x29}
0x080f…0815 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0815…082f Line {l1=0x18, l2=»FAKFILE=FILE OF FAKPOST;«, l3=0x18}
0x082f…0840 Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x0840…0855 Line {l1=0x13, l2=» (*KNR1,KNR2,«, l3=0x13}
0x0855…088d Line {l1=0x36, l2=» FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;«, l3=0x36}
0x088d…089e Line {l1=0x0f, l2=» (*NETTO,«, l3=0x0f}
0x089e…08ae Line {l1=0x0e, l2=» MOMS,«, l3=0x0e}
0x08ae…08bf Line {l1=0x0f, l2=» RABAT,«, l3=0x0f}
0x08bf…08d6 Line {l1=0x15, l2=» BRÆKAGEFORS,«, l3=0x15}
0x08d6…08e7 Line {l1=0x0f, l2=» FRAGT,«, l3=0x0f}
0x08e7…08fc Line {l1=0x13, l2=» EMBALLAGE,«, l3=0x13}
0x08fc…092d Line {l1=0x2f, l2=» VARESALG *) REEL:ARRAY(1..7) OF REAL«, l3=0x2f}
0x092d…0933 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0933…094f Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x094f…095f Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x095f…096f Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x096f…0979 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x0979…0984 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x0984…0993 Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x0993…09a1 Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x09a1…09b1 Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x09b1…09ee Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x09ee…0a0b Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0a0b…0a34 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x0a34…0a7b Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x0a7b…0a81 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a81…0a9b Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0a9b…0aab Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0aab…0abf Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0abf…0ae3 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x0ae3…0aeb Line {l1=0x06, l2=» END;«, l3=0x06}
0x0aeb…0afa Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0afa…0b0e Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0b0e…0b32 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x0b32…0b3a Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b3a…0b4b Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0b4b…0b5f Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0b5f…0b83 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0b83…0b8b Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b8b…0b8f Line {l1=0x02, l2=» «, l3=0x02}
[…0x3…]
0x0b9b…0bac Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x0bac…0bbf Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0bbf…0be2 Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x0be2…0be8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0be8…0c18 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x0c18…0c3d Line {l1=0x23, l2=» VAR FBETA,FVAR,FROR,FKUN : ISF;«, l3=0x23}
0x0c3d…0c5e Line {l1=0x1f, l2=» FAKFIL,EXPFIL :FAKFILE;«, l3=0x1f}
0x0c5e…0c77 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0c77…0c92 Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x0c92…0cad Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x0cad…0cbe Line {l1=0x0f, l2=» T:TEXT;«, l3=0x0f}
0x0cbe…0cea Line {l1=0x2a, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x2a}
0x0cea…0cfd Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x0cfd…0d13 Line {l1=0x14, l2=» BZ:BETAZONE;«, l3=0x14}
0x0d13…0d28 Line {l1=0x13, l2=» RZ:RORZONE;«, l3=0x13}
0x0d28…0d3b Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0d3b…0d55 Line {l1=0x18, l2=» RESTORD:RORPOST;«, l3=0x18}
0x0d55…0d6a Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0d6a…0d80 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0d80…0d98 Line {l1=0x16, l2=» BETA:BETAPOST;«, l3=0x16}
0x0d98…0db3 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0db3…0df3 Line {l1=0x3e, l2=» SENDTPR:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x3e}
0x0df3…0e0b Line {l1=0x16, l2=» IER,I,J,K,SIDE«, l3=0x16}
0x0e0b…0e2e Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0e2e…0e4e Line {l1=0x1e, l2=» R,R1,R2 :REAL;«, l3=0x1e}
0x0e4e…0e65 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0e65…0e6e Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0e6e…0e82 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0e82…0e90 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0e90…0e9e Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0e9e…0eaf Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0eaf…0ec0 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0ec0…0ed0 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0ed0…0edf Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0edf…0eee Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0eee…0efd Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0efd…0f0a Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0f0a…0f1d Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0f1d…0f25 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0f25…0f4a Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0f4a…0f61 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0f61…0f78 Line {l1=0x15, l2=» ICLOSE(RZ.H,FROR);«, l3=0x15}
0x0f78…0f8f Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0f8f…0fa7 Line {l1=0x16, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x16}
0x0fa7…0fc3 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0fc3…0fd2 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0fd2…0fd9 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0fd9…0feb Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0feb…0ff2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ff2…1003 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x1003…1048 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x1048…1078 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1078…10b1 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x10b1…10c8 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x10c8…10d7 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x10d7…10dd Line {l1=0x04, l2=»END;«, l3=0x04}
0x10dd…10ee Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x10ee…10fe Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x10fe…1105 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1105…1114 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x1114…111b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x111b…112f Line {l1=0x12, l2=» WRITELN(T,'%P');«, l3=0x12}
0x112f…1155 Line {l1=0x24, l2=» FOR I:=1 TO TOPMARG DO WRITELN(T);«, l3=0x24}
0x1155…1168 Line {l1=0x11, l2=» IF NR(3)=1 THEN«, l3=0x11}
0x1168…1171 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1171…118f Line {l1=0x1c, l2=» I:=0;«, l3=0x1c}
0x118f…11a6 Line {l1=0x15, l2=» REPEAT I:=I+1«, l3=0x15}
0x11a6…11d5 Line {l1=0x2d, l2=» UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');«, l3=0x2d}
0x11d5…11f9 Line {l1=0x22, l2=» IF BETA.NAVN(1,I)=' ' THEN«, l3=0x22}
0x11f9…1207 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1207…1233 Line {l1=0x2a, l2=» MOVELEFT(BETA.NAVN(1,5),NAME,26);«, l3=0x2a}
0x1233…1258 Line {l1=0x23, l2=» WRITE(T,' ':6,NAME,' ':14)«, l3=0x23}
0x1258…1264 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1264…1271 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1271…129f Line {l1=0x2c, l2=» WRITE(T,' ':6,BETA.NAVN(1),' ':10);«, l3=0x2c}
0x129f…12ad Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x12ad…12c3 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x12c3…12ec Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x12ec…130a Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x130a…1318 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1318…133f Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x133f…1359 Line {l1=0x18, l2=» WRITELN(T,NAME)«, l3=0x18}
0x1359…1365 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1365…1372 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1372…1390 Line {l1=0x1c, l2=» WRITELN(T,NAVN(1));«, l3=0x1c}
0x1390…13c6 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));«, l3=0x34}
0x13c6…13fc Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));«, l3=0x34}
0x13fc…1432 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);«, l3=0x34}
0x1432…1466 Line {l1=0x32, l2=» WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);«, l3=0x32}
0x1466…1484 Line {l1=0x1c, l2=» IF BETA.NR(3)=DK THEN«, l3=0x1c}
0x1484…149e Line {l1=0x18, l2=» WRITE(T,' ':46)«, l3=0x18}
0x149e…14ab Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x14ab…14b9 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x14b9…14dd Line {l1=0x22, l2=» SEEK(LANDFIL,BETA.NR(3));«, l3=0x22}
0x14dd…14f5 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x14f5…151e Line {l1=0x27, l2=» WRITE(T,' ':6,LANDFIL^,' ':10)«, l3=0x27}
0x151e…152b Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x152b…1544 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1544…1559 Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1559…1566 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1566…1574 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1574…1593 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x1593…15ab Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x15ab…15c9 Line {l1=0x1c, l2=» WRITELN(T,LANDFIL^)«, l3=0x1c}
0x15c9…15d5 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x15d5…15dc Line {l1=0x05, l2=» END«, l3=0x05}
0x15dc…15e4 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x15e4…15ed Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x15ed…15fb Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x15fb…1611 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x1611…163a Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x163a…1658 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x1658…1666 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1666…168d Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x168d…16ad Line {l1=0x1e, l2=» WRITELN(T,' ':6,NAME)«, l3=0x1e}
0x16ad…16b9 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x16b9…16c6 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x16c6…16e8 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(1));«, l3=0x20}
0x16e8…170a Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(2));«, l3=0x20}
0x170a…172c Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(3));«, l3=0x20}
0x172c…174e Line {l1=0x20, l2=» WRITELN(T,' ':6,LANDSBY);«, l3=0x20}
0x174e…176f Line {l1=0x1f, l2=» WRITELN(T,' ':6,POSTNR);«, l3=0x1f}
0x176f…1788 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1788…179d Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x179d…17aa Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x17aa…17b8 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x17b8…17d7 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x17d7…17ef Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x17ef…1813 Line {l1=0x22, l2=» WRITELN(T,' ':6,LANDFIL^)«, l3=0x22}
0x1813…181f Line {l1=0x0a, l2=» END«, l3=0x0a}
0x181f…1827 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1827…1841 Line {l1=0x18, l2=» WRITELN(T);WRITELN(T);«, l3=0x18}
0x1841…1867 Line {l1=0x24, l2=» WRITELN(T,' ':53,'Fakturanummer ',«, l3=0x24}
0x1867…18a7 Line {l1=0x3e, l2=» SYSFIL^.HELTAL(7)*10000.0+SYSFIL^.HELTAL(8):6:-2);«, l3=0x3e}
0x18a7…18b6 Line {l1=0x0d, l2=» WRITELN(T);«, l3=0x0d}
0x18b6…18d3 Line {l1=0x1b, l2=» WRITELN(T,' ':74,SIDE:2);«, l3=0x1b}
0x18d3…18e4 Line {l1=0x0f, l2=» SIDE:=SIDE+1;«, l3=0x0f}
0x18e4…190a Line {l1=0x24, l2=» WRITE(T,NR(1)*10000.0+NR(2):9:-2);«, l3=0x24}
0x190a…191d Line {l1=0x11, l2=» WITH FAKFIL^ DO«, l3=0x11}
0x191d…1949 Line {l1=0x2a, l2=» WRITE(T,HEAD(3)*10000.0+HEAD(4):8:-2);«, l3=0x2a}
0x1949…1997 Line {l1=0x4c, l2=» WRITELN(T,' ':2,SENDTPR(FAKFIL^.FORSEND),' ':14,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x4c}
0x1997…19c3 Line {l1=0x2a, l2=» SYSFIL^.HELTAL(2):6:-2);«, l3=0x2a}
0x19c3…19cc Line {l1=0x07, l2=» J:=1;«, l3=0x07}
0x19cc…19da Line {l1=0x0c, l2=» WRITELN(T)«, l3=0x0c}
0x19da…19df Line {l1=0x03, l2=»END«, l3=0x03}
0x19df…19e5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x19e5…19f7 Line {l1=0x10, l2=»PROCEDURE LINES;«, l3=0x10}
0x19f7…19fe Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x19fe…1a29 Line {l1=0x29, l2=» WITH KUNDE,FAKFIL^.ORDRELIN(I) DO«, l3=0x29}
0x1a29…1a43 Line {l1=0x18, l2=» IF VNR(1)>1 THEN«, l3=0x18}
0x1a43…1a52 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1a52…1a75 Line {l1=0x21, l2=» VARE.HELTAL(1):=VNR(1);«, l3=0x21}
0x1a75…1a9a Line {l1=0x23, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x23}
0x1a9a…1acb Line {l1=0x2f, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x2f}
0x1acb…1ae4 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x1ae4…1af5 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1af5…1b13 Line {l1=0x1c, l2=» IF J>22 THEN HEAD;«, l3=0x1c}
0x1b13…1b49 Line {l1=0x34, l2=» VARE.REELTAL(11):=VARE.REELTAL(11)+VNR(2);«, l3=0x34}
0x1b49…1b84 Line {l1=0x39, l2=» VARE.REELTAL(13):=VARE.REELTAL(13)+VNR(2)*PRIS;«, l3=0x39}
0x1b84…1bd1 Line {l1=0x4b, l2=» VARE.REELTAL(15):=VARE.REELTAL(15)+VNR(2)*(PRIS-VARE.REELTAL(2));«, l3=0x4b}
0x1bd1…1bff Line {l1=0x2c, l2=» VARE.HELTAL(8):=SYSFIL^.HELTAL(1);«, l3=0x2c}
0x1bff…1c2d Line {l1=0x2c, l2=» VARE.HELTAL(9):=SYSFIL^.HELTAL(2);«, l3=0x2c}
0x1c2d…1c78 Line {l1=0x49, l2=» WRITELN(T,VNR(1):9,' ':2,VARE.NAVN(1),VNR(2):5,VNR(3)-VNR(2):5,«, l3=0x49}
0x1c78…1cb2 Line {l1=0x38, l2=» PRIS/100:10:2,VNR(2)*PRIS/100:12:2);«, l3=0x38}
0x1cb2…1cc5 Line {l1=0x11, l2=» J:=J+1;«, l3=0x11}
0x1cc5…1ce2 Line {l1=0x1b, l2=» R:=R+VNR(2)*PRIS;«, l3=0x1b}
0x1ce2…1d1f Line {l1=0x3b, l2=» IF (VNR(2)<>VNR(3)) AND (FAKFIL^.HEAD(11)=0) THEN«, l3=0x3b}
0x1d1f…1d3a Line {l1=0x19, l2=» WITH RESTORD DO«, l3=0x19}
0x1d3a…1d4b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1d4b…1d6b Line {l1=0x1e, l2=» HEAD(1):=NR(1);«, l3=0x1e}
0x1d6b…1d8b Line {l1=0x1e, l2=» HEAD(2):=NR(2);«, l3=0x1e}
0x1d8b…1dac Line {l1=0x1f, l2=» HEAD(3):=VNR(1);«, l3=0x1f}
0x1dac…1ddc Line {l1=0x2e, l2=» HEAD(4):=0;HEAD(5):=0;ANTAL:=0;«, l3=0x2e}
0x1ddc…1e01 Line {l1=0x23, l2=» GETREC(RZ.H,FROR,A);«, l3=0x23}
0x1e01…1e2d Line {l1=0x2a, l2=» ANTAL:=ANTAL+VNR(3)-VNR(2);«, l3=0x2a}
0x1e2d…1e5d Line {l1=0x2e, l2=» IF (FAKFIL^.HEAD(7)>HEAD(4)) OR«, l3=0x2e}
0x1e5d…1ea9 Line {l1=0x4a, l2=» ((FAKFIL^.HEAD(7)=HEAD(4)) AND (FAKFIL^.HEAD(8)>HEAD(5)))«, l3=0x4a}
0x1ea9…1ec4 Line {l1=0x19, l2=» THEN BEGIN«, l3=0x19}
0x1ec4…1ef1 Line {l1=0x2b, l2=» HEAD(4):=FAKFIL^.HEAD(7);«, l3=0x2b}
0x1ef1…1f1d Line {l1=0x2a, l2=» HEAD(5):=FAKFIL^.HEAD(8)«, l3=0x2a}
0x1f1d…1f32 Line {l1=0x13, l2=» END;«, l3=0x13}
0x1f32…1f6c Line {l1=0x38, l2=» IF IER=0 THEN PUTREC(RZ.H,FROR,RESTORD.A)«, l3=0x38}
0x1f6c…1f81 Line {l1=0x13, l2=» ELSE«, l3=0x13}
0x1f81…1fbd Line {l1=0x3a, l2=» IF IER=-6 THEN INSERT(RZ.H,FROR,RESTORD.A);«, l3=0x3a}
0x1fbd…1fe3 Line {l1=0x24, l2=» IF IER<>0 THEN ERROR;«, l3=0x24}
0x1fe3…1ff3 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1ff3…2017 Line {l1=0x22, l2=» PUTREC(VZ.H,FVAR,VARE.A)«, l3=0x22}
0x2017…2026 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2026…2034 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2034…203a Line {l1=0x04, l2=»END;«, l3=0x04}
0x203a…2057 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x2057…2065 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x2065…206c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x206c…2085 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x2085…2098 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x2098…20b0 Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x20b0…20b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x20b6…20c7 Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x20c7…20ce Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20ce…20ff Line {l1=0x2f, l2=» SENDTPR(1):='Post ';«, l3=0x2f}
0x20ff…2130 Line {l1=0x2f, l2=» SENDTPR(2):='Luftpost ';«, l3=0x2f}
0x2130…2161 Line {l1=0x2f, l2=» SENDTPR(3):='Bane ';«, l3=0x2f}
0x2161…2192 Line {l1=0x2f, l2=» SENDTPR(4):='Fragtmand ';«, l3=0x2f}
0x2192…21c3 Line {l1=0x2f, l2=» SENDTPR(5):='Samson / Liniegods ';«, l3=0x2f}
0x21c3…21f4 Line {l1=0x2f, l2=» SENDTPR(6):='Samson / Olson & Wright ';«, l3=0x2f}
0x21f4…2225 Line {l1=0x2f, l2=» SENDTPR(7):='Leman ';«, l3=0x2f}
0x2225…2256 Line {l1=0x2f, l2=» SENDTPR(8):='Deres transportør ';«, l3=0x2f}
0x2256…2287 Line {l1=0x2f, l2=» SENDTPR(9):='Skib ';«, l3=0x2f}
0x2287…22b9 Line {l1=0x30, l2=» SENDTPR(10):='Veritas ';«, l3=0x30}
0x22b9…22eb Line {l1=0x30, l2=» SENDTPR(11):='DFDS ';«, l3=0x30}
0x22eb…231d Line {l1=0x30, l2=» SENDTPR(12):='Faroe ship ';«, l3=0x30}
0x231d…234f Line {l1=0x30, l2=» SENDTPR(13):='Vogn / bil ';«, l3=0x30}
0x234f…2381 Line {l1=0x30, l2=» SENDTPR(14):='Afhentet ';«, l3=0x30}
0x2381…2397 Line {l1=0x14, l2=» FOR I:=15 TO 19 DO«, l3=0x14}
0x2397…23c9 Line {l1=0x30, l2=» SENDTPR(I):= ' ';«, l3=0x30}
0x23c9…23fb Line {l1=0x30, l2=» SENDTPR(20):='Brevdue ';«, l3=0x30}
0x23fb…2401 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2401…2414 Line {l1=0x11, l2=»PROCEDURE BOTTOM;«, l3=0x11}
0x2414…241b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x241b…242c Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x242c…2435 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2435…2455 Line {l1=0x1e, l2=» IF FAKFIL^.EMBAL<>0 THEN«, l3=0x1e}
0x2455…2462 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2462…247e Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x247e…24bd Line {l1=0x3d, l2=» WRITELN(T,' ':52,'Emballage',FAKFIL^.EMBAL/100:12:2);«, l3=0x3d}
0x24bd…24ff Line {l1=0x40, l2=» WRITELN(T,' ':52,'Subtotal',(R+FAKFIL^.EMBAL)/100:13:2);«, l3=0x40}
0x24ff…250f Line {l1=0x0e, l2=» J:=J+2«, l3=0x0e}
0x250f…251b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x251b…2543 Line {l1=0x26, l2=» JOURFIL^.REEL(6):=FAKFIL^.EMBAL;«, l3=0x26}
0x2543…2568 Line {l1=0x23, l2=» FOR I:=J TO 23 DO WRITELN(T);«, l3=0x23}
0x2568…2586 Line {l1=0x1c, l2=» IF KUNDE.NR(16)=1 THEN«, l3=0x1c}
0x2586…2593 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2593…25b0 Line {l1=0x1b, l2=» R1:=RUND(R*0.0175);«, l3=0x1b}
0x25b0…25cf Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x25cf…25ee Line {l1=0x1d, l2=» JOURFIL^.REEL(4):=R1;«, l3=0x1d}
0x25ee…25ff Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x25ff…260a Line {l1=0x09, l2=» END«, l3=0x09}
0x260a…2645 Line {l1=0x39, l2=» ELSE BEGIN WRITE(T,' ':10);JOURFIL^.REEL(4):=0 END;«, l3=0x39}
0x2645…2660 Line {l1=0x19, l2=» R:=R+FAKFIL^.EMBAL;«, l3=0x19}
0x2660…2680 Line {l1=0x1e, l2=» IF FAKFIL^.FRAGT<>0 THEN«, l3=0x1e}
0x2680…268d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x268d…26b7 Line {l1=0x28, l2=» WRITE(T,FAKFIL^.FRAGT/100:20:2);«, l3=0x28}
0x26b7…26d3 Line {l1=0x1a, l2=» R:=R+FAKFIL^.FRAGT«, l3=0x1a}
0x26d3…26de Line {l1=0x09, l2=» END«, l3=0x09}
0x26de…26fb Line {l1=0x1b, l2=» ELSE WRITE(T,' ':20);«, l3=0x1b}
0x26fb…2723 Line {l1=0x26, l2=» JOURFIL^.REEL(5):=FAKFIL^.FRAGT;«, l3=0x26}
0x2723…273f Line {l1=0x1a, l2=» WRITE(T,R/100:21:2);«, l3=0x1a}
0x273f…2774 Line {l1=0x33, l2=» IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN«, l3=0x33}
0x2774…2781 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2781…27b0 Line {l1=0x2d, l2=» R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);«, l3=0x2d}
0x27b0…27cf Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x27cf…27e0 Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x27e0…27eb Line {l1=0x09, l2=» END«, l3=0x09}
0x27eb…27f7 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x27f7…2804 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2804…2814 Line {l1=0x0e, l2=» R1:=0;«, l3=0x0e}
0x2814…282d Line {l1=0x17, l2=» WRITE(T,' ':10)«, l3=0x17}
0x282d…2839 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2839…2855 Line {l1=0x1a, l2=» JOURFIL^.REEL(1):=R;«, l3=0x1a}
0x2855…2872 Line {l1=0x1b, l2=» JOURFIL^.REEL(2):=R1;«, l3=0x1b}
0x2872…2890 Line {l1=0x1c, l2=» WRITELN(T,R/100:12:2);«, l3=0x1c}
0x2890…28a3 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x28a3…28e0 Line {l1=0x3b, l2=» IF NR(8)=1 THEN WRITELN(T,' ':53,'E F T E R K R A V')«, l3=0x3b}
0x28e0…28ec Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x28ec…2925 Line {l1=0x37, l2=» IF NR(8)=2 THEN WRITELN(T,' ':53,'K O N T A N T')«, l3=0x37}
0x2925…2931 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2931…295b Line {l1=0x28, l2=» WRITELN(T,' ':53,SYSFIL^.BETADAT);«, l3=0x28}
0x295b…2973 Line {l1=0x16, l2=» WITH JOURFIL^ DO«, l3=0x16}
0x2973…2980 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2980…299d Line {l1=0x1b, l2=» NR(1):=KUNDE.NR(1);«, l3=0x1b}
0x299d…29ba Line {l1=0x1b, l2=» NR(2):=KUNDE.NR(2);«, l3=0x1b}
0x29ba…29dd Line {l1=0x21, l2=» NR(3):=SYSFIL^.HELTAL(7);«, l3=0x21}
0x29dd…2a00 Line {l1=0x21, l2=» NR(4):=SYSFIL^.HELTAL(8);«, l3=0x21}
0x2a00…2a23 Line {l1=0x21, l2=» NR(5):=SYSFIL^.HELTAL(1);«, l3=0x21}
0x2a23…2a45 Line {l1=0x20, l2=» NR(6):=SYSFIL^.HELTAL(2)«, l3=0x20}
0x2a45…2a51 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2a51…2a66 Line {l1=0x13, l2=» PUT(JOURFIL);«, l3=0x13}
0x2a66…2a95 Line {l1=0x2d, l2=» SYSFIL^.HELTAL(8):=SYSFIL^.HELTAL(8)+1;«, l3=0x2d}
0x2a95…2abc Line {l1=0x25, l2=» IF SYSFIL^.HELTAL(8)=10000 THEN«, l3=0x25}
0x2abc…2ac9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2ac9…2afa Line {l1=0x2f, l2=» SYSFIL^.HELTAL(7):=SYSFIL^.HELTAL(7)+1;«, l3=0x2f}
0x2afa…2b18 Line {l1=0x1c, l2=» SYSFIL^.HELTAL(8):=0«, l3=0x1c}
0x2b18…2b24 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2b24…2b2b Line {l1=0x05, l2=» END«, l3=0x05}
0x2b2b…2b31 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2b31…2b42 Line {l1=0x0f, l2=»PROCEDURE BODY;«, l3=0x0f}
0x2b42…2b49 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2b49…2b5c Line {l1=0x11, l2=» WITH KUNDE DO«, l3=0x11}
0x2b5c…2b67 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2b67…2b7e Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x2b7e…2b8b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2b8b…2ba7 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x2ba7…2bc3 Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x2bc3…2be6 Line {l1=0x21, l2=» GETREC(BZ.H,FBETA,BETA.A)«, l3=0x21}
0x2be6…2bf2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2bf2…2bff Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x2bff…2c0f Line {l1=0x0e, l2=» SIDE:=1;«, l3=0x0e}
0x2c0f…2c1c Line {l1=0x0b, l2=» HEAD;«, l3=0x0b}
0x2c1c…2c2a Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x2c2a…2c4c Line {l1=0x20, l2=» FOR I:=1 TO 15 DO LINES;«, l3=0x20}
0x2c4c…2c87 Line {l1=0x39, l2=» IF FAKFIL^.HEAD(5)<>99 THEN GET(FAKFIL) ELSE I:=0«, l3=0x39}
0x2c87…2c99 Line {l1=0x10, l2=» UNTIL I=0;«, l3=0x10}
0x2c99…2cb3 Line {l1=0x18, l2=» IF J>21 THEN HEAD;«, l3=0x18}
0x2cb3…2cc2 Line {l1=0x0d, l2=» J:=J+2;«, l3=0x0d}
0x2cc2…2cec Line {l1=0x28, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(1));«, l3=0x28}
0x2cec…2d33 Line {l1=0x45, l2=» WRITELN(T,' ':11,FAKFIL^.LINE(2),' ':11,'Subtotal',R/100:13:2);«, l3=0x45}
0x2d33…2d4f Line {l1=0x1a, l2=» JOURFIL^.REEL(7):=R;«, l3=0x1a}
0x2d4f…2d5d Line {l1=0x0c, l2=» R1:=0;«, l3=0x0c}
0x2d5d…2d80 Line {l1=0x21, l2=» IF FAKFIL^.HEAD(12)<>0 THEN«, l3=0x21}
0x2d80…2d8d Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2d8d…2da9 Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x2da9…2dd4 Line {l1=0x29, l2=» R1:=RUND(R*FAKFIL^.HEAD(12)/100);«, l3=0x29}
0x2dd4…2e04 Line {l1=0x2e, l2=» WRITELN(T,' ':52,'Rabat',R1/100:16:2);«, l3=0x2e}
0x2e04…2e16 Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x2e16…2e27 Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x2e27…2e58 Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x2e58…2e64 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2e64…2e81 Line {l1=0x1b, l2=» JOURFIL^.REEL(3):=R1;«, l3=0x1b}
0x2e81…2ea7 Line {l1=0x24, l2=» IF (NR(8)=1) OR (NR(8)=2) THEN«, l3=0x24}
0x2ea7…2eb4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2eb4…2ed0 Line {l1=0x1a, l2=» IF J>21 THEN HEAD;«, l3=0x1a}
0x2ed0…2ee1 Line {l1=0x0f, l2=» J:=J+2;«, l3=0x0f}
0x2ee1…2efd Line {l1=0x1a, l2=» R1:=RUND(R*3/100);«, l3=0x1a}
0x2efd…2f0f Line {l1=0x10, l2=» R:=R-R1;«, l3=0x10}
0x2f0f…2f3f Line {l1=0x2e, l2=» JOURFIL^.REEL(3):=R1+JOURFIL^.REEL(3);«, l3=0x2e}
0x2f3f…2f72 Line {l1=0x31, l2=» WRITELN(T,' ':52,'Kt-rabat',R1/100:13:2);«, l3=0x31}
0x2f72…2fa3 Line {l1=0x2f, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2)«, l3=0x2f}
0x2fa3…2faf Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2faf…2fbe Line {l1=0x0d, l2=» BOTTOM;«, l3=0x0d}
0x2fbe…2fef Line {l1=0x2f, l2=» SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;«, l3=0x2f}
0x2fef…2ff9 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2ff9…300a Line {l1=0x0f, l2=» GET(FAKFIL)«, l3=0x0f}
0x300a…3010 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3010…3017 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3017…3027 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3027…3046 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x3046…305e Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x305e…308e Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x308e…3091 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3094…30b3 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x30b3…30c9 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x30c9…30f7 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x30f7…30fa Line {l1=0x01, l2=» «, l3=0x01}
0x30fa…3119 Line {l1=0x1d, l2=» FNAVN:='RESTREG:P2:0000:I';«, l3=0x1d}
0x3119…3131 Line {l1=0x16, l2=» REWRITE(FROR,FNAVN);«, l3=0x16}
0x3131…3161 Line {l1=0x2e, l2=» IOPEN(RZ.H,FROR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x3161…3164 Line {l1=0x01, l2=» «, l3=0x01}
0x3164…3180 Line {l1=0x1a, l2=» FNAVN:='FAKREG:P2:30:I';«, l3=0x1a}
0x3180…319a Line {l1=0x18, l2=» REWRITE(FAKFIL,FNAVN);«, l3=0x18}
0x319a…319d Line {l1=0x01, l2=» «, l3=0x01}
0x319d…31b8 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x31b8…31d2 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x31d2…31e5 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x31e5…31f5 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x31f5…3211 Line {l1=0x1a, l2=» FNAVN:='EXPREG:P2:30:I';«, l3=0x1a}
0x3211…322b Line {l1=0x18, l2=» REWRITE(EXPFIL,FNAVN);«, l3=0x18}
0x322b…322e Line {l1=0x01, l2=» «, l3=0x01}
0x322e…324b Line {l1=0x1b, l2=» FNAVN:='JOURNAL:P2:30:I';«, l3=0x1b}
0x324b…3266 Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x3266…328b Line {l1=0x23, l2=» SEEK(JOURFIL,SYSFIL^.HELTAL(13));«, l3=0x23}
0x328b…328e Line {l1=0x01, l2=» «, l3=0x01}
0x328e…32ab Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x32ab…32c4 Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x32c4…32c7 Line {l1=0x01, l2=» «, l3=0x01}
0x32c7…32db Line {l1=0x12, l2=» WRITELN('BETA');«, l3=0x12}
0x32db…32fa Line {l1=0x1d, l2=» FNAVN:='BETAREG:P2:0000:I';«, l3=0x1d}
0x32fa…3311 Line {l1=0x15, l2=» RESET(FBETA,FNAVN);«, l3=0x15}
0x3311…3329 Line {l1=0x16, l2=» WRITELN(IORESULT:5);«, l3=0x16}
0x3329…3343 Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x3343…3346 Line {l1=0x01, l2=» «, l3=0x01}
0x3346…3363 Line {l1=0x1b, l2=» FNAVN:='FAKTEXT:P1:30:K';«, l3=0x1b}
0x3363…3378 Line {l1=0x13, l2=» REWRITE(T,FNAVN);«, l3=0x13}
0x3378…338c Line {l1=0x12, l2=» WRITELN('INIT');«, l3=0x12}
0x338c…3395 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x3395…3398 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x339b…33ab Line {l1=0x0e, l2=» GET(FAKFIL);«, l3=0x0e}
0x33ab…33e4 Line {l1=0x37, l2=» WHILE (FAKFIL^.HEAD(1)<>0) OR (FAKFIL^.HEAD(2)<>0) DO«, l3=0x37}
0x33e4…33f5 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x33f5…33fe Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x33fe…341b Line {l1=0x1b, l2=» NR(1):=FAKFIL^.HEAD(1);«, l3=0x1b}
0x341b…3438 Line {l1=0x1b, l2=» NR(2):=FAKFIL^.HEAD(2);«, l3=0x1b}
0x3438…3452 Line {l1=0x18, l2=» GETREC(KZ.H,FKUN,A);«, l3=0x18}
0x3452…346d Line {l1=0x19, l2=» IF IER<>0 THEN ERROR;«, l3=0x19}
0x346d…3483 Line {l1=0x14, l2=» IF NR(18)=1 THEN«, l3=0x14}
0x3483…348e Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x348e…349d Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x349d…34b9 Line {l1=0x1a, l2=» EXPFIL^:=FAKFIL^;«, l3=0x1a}
0x34b9…34d0 Line {l1=0x15, l2=» PUT(EXPFIL);«, l3=0x15}
0x34d0…34e6 Line {l1=0x14, l2=» GET(FAKFIL)«, l3=0x14}
0x34e6…3507 Line {l1=0x1f, l2=» UNTIL EXPFIL^.HEAD(5)=99«, l3=0x1f}
0x3507…3510 Line {l1=0x07, l2=» END«, l3=0x07}
0x3510…351a Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x351a…3526 Line {l1=0x0a, l2=» BODY«, l3=0x0a}
0x3526…352e Line {l1=0x06, l2=» END;«, l3=0x06}
0x352e…3541 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x3541…3551 Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x3551…3567 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x3567…357d Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x357d…3593 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x3593…35aa Line {l1=0x15, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x15}
0x35aa…35c1 Line {l1=0x15, l2=» EXPFIL^.HEAD(1):=0;«, l3=0x15}
0x35c1…35d8 Line {l1=0x15, l2=» EXPFIL^.HEAD(2):=0;«, l3=0x15}
0x35d8…35e8 Line {l1=0x0e, l2=» PUT(EXPFIL);«, l3=0x0e}
0x35e8…35f5 Line {l1=0x0b, l2=» CLOSE(T);«, l3=0x0b}
0x35f5…3614 Line {l1=0x1d, l2=» IF EXPFIL^.HEAD(5)<>99 THEN«, l3=0x1d}
0x3614…361d Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x361d…363c Line {l1=0x1d, l2=» FNAVN:='TOLDTXT:P1:30:K';«, l3=0x1d}
0x363c…3653 Line {l1=0x15, l2=» REWRITE(T,FNAVN);«, l3=0x15}
0x3653…3662 Line {l1=0x0d, l2=» CLOSE(T);«, l3=0x0d}
0x3662…3682 Line {l1=0x1e, l2=» FNAVN:='TOLDPTXT:P1:30:K';«, l3=0x1e}
0x3682…3699 Line {l1=0x15, l2=» REWRITE(T,FNAVN);«, l3=0x15}
0x3699…36a8 Line {l1=0x0d, l2=» CLOSE(T);«, l3=0x0d}
0x36a8…36c8 Line {l1=0x1e, l2=» FNAVN:='CERTITXT:P1:30:K';«, l3=0x1e}
0x36c8…36df Line {l1=0x15, l2=» REWRITE(T,FNAVN);«, l3=0x15}
0x36df…36ee Line {l1=0x0d, l2=» CLOSE(T);«, l3=0x0d}
0x36ee…3719 Line {l1=0x29, l2=» CHAIN('INTRE *1','SKRIVFAK:P1',QUQ)«, l3=0x29}
0x3719…3720 Line {l1=0x05, l2=» END«, l3=0x05}
0x3720…3728 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x3728…3731 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3731…3751 Line {l1=0x1e, l2=» WRITELN('CHAIN TOLDSORT');«, l3=0x1e}
0x3751…377c Line {l1=0x29, l2=» CHAIN('INTRE *1','TOLDSORT:P1',QUQ)«, l3=0x29}
0x377c…3783 Line {l1=0x05, l2=» END«, l3=0x05}
0x3783…3789 Line {l1=0x04, l2=»END.«, l3=0x04}
0x3789…37a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x37a0…37c0 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 ┆ ┆
[…0x16…]