|
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: 12480 (0x30c0)
Types: TextFile
Notes: Mikados_K
Names: »TOLDPAP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »TOLDPAP.K«
PROGRAM TOLDPAP;
CONST LMARG=9;TOPMARG=4;
(*$IISFHEAD*)
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;
TOLDPAPPOST=RECORD
KNR1,KNR2,
OPRILAND,
KODE8,KODE9,
BRUTTOVÆGT,
SUPPMÆNGDE,
FAKTNR1,FAKTNR2 :INTEGER;
TRANSPORTØR,AKOLLI: PACKED ARRAY (1..30) OF CHAR;
VÆRDI,TOLDPONR: REAL; (*VÆRDI ER FAKTURABELØB NÅR OPRILAND=0, KUN
DEN SIDSTE ER =0 *)
LEVBET: PACKED ARRAY (1..16) OF CHAR (*DITTO(1)'S FØRSTE 16 TEGN *)
END;
TOLDPFILE=FILE OF TOLDPAPPOST;
SORTPOST=RECORD
OPRILAND,
SUPPMÆNGDE:INTEGER;
VÆRDI,
TOLDPNR:REAL
END;
TOLDPOPOST=RECORD
A:AR;
NR1,NR2:INTEGER;
TEKST:PACKED ARRAY (1..30) OF CHAR
END;
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;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
TPZONE=RECORD
H:ISFHEAD;
T:ARRAY (1..1000) OF INTEGER
END;
LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
VAR FTP,FKUN : ISF;
SYSFIL:SYSFILE;
TOLDPHIL:TOLDPFILE;
LANDFIL:LANDFILE;
T,T1:TEXT;
KZ:KZONE;
TPZ:TPZONE;
KUNDE:KPOST;
TOLDPO:TOLDPOPOST;
FNAVN:STRING(20);
IER,I,J,M,K,LINE
:INTEGER;
TMÅDE,UDPSTED:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;
EFLANDE:ARRAY (1..20) OF INTEGER;
LINES:ARRAY (1..60) OF SORTPOST;
HPOST:TOLDPAPPOST;
BYTPOST:SORTPOST;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IIOPEN*)
(*$IEXCOMCOP*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(KZ.H,FKUN);
ICLOSE(TPZ.H,FTP);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE INIT;
BEGIN
TMÅDE(1):= 'Dansk skib 11';
TMÅDE(2):= 'Udenlandsk skib 15';
TMÅDE(3):= 'Bane 20';
TMÅDE(4):= 'Post 30';
TMÅDE(5):= 'Fly 40';
TMÅDE(6):= 'Dansk bil 51';
TMÅDE(7):= 'Udenlandsk bil 55';
TMÅDE(8):= 'Anden transportmåde 90';
FOR I:=9 TO 20 DO
TMÅDE(I):= '______________________________';
UDPSTED(1):= ' 010';
UDPSTED(2):= ' 020';
UDPSTED(3):= 'Københavns havn 040';
UDPSTED(4):= 'Københavns frihavn 041';
UDPSTED(5):= 'Dragør havn 044';
UDPSTED(6):= 'Københavns lufthavn 050';
UDPSTED(7):= 'Gedser havn 593';
UDPSTED(8):= 'Padborg 650';
UDPSTED(9):= 'Rødby havn 730';
FOR I:=10 TO 20 DO
UDPSTED(I):='______________________________';
FOR I:=1 TO 9 DO EFLANDE(I):=I;
FOR I:=10 TO 20 DO EFLANDE(I):=0
END;
PROCEDURE UDFØRSELSANGIVELSE;
VAR OPLAND,NRIOPLAND:INTEGER;
KLAND:PACKED ARRAY (1..12) OF CHAR;
PROCEDURE BUND;
BEGIN
IF (LINE=I) OR (NRIOPLAND=7) OR (NRIOPLAND MOD 2=0) OR
(OPLAND<>LINES(LINE+1-LINE DIV I).OPRILAND) THEN
BEGIN
IF NRIOPLAND MOD 2=1 THEN FOR J:=1 TO 9 DO WRITELN(T);
FOR J:=1 TO 7 DO WRITELN(T);
IF HPOST.VÆRDI>700000.0 THEN
WRITELN(T,' ':LMARG+15,'1')
ELSE WRITELN(T);
IF (NRIOPLAND<7) AND (OPLAND=LINES(LINE+1-LINE DIV I).OPRILAND) AND
(LINE<I) THEN
BEGIN
WRITELN(T,' ':LMARG+33,'Tilladelse til anvendelse af A29');
WRITELN(T,' ':LMARG+33,'som supplementsangivelse')
END
ELSE BEGIN WRITELN(T);WRITELN(T) END;
FOR J:=1 TO 7 DO WRITELN(T);
WRITELN(T,' ':LMARG+32,'X');
WRITELN(T);
IF HPOST.VÆRDI>700000.0 THEN
WRITELN(T,' ':LMARG+15,'1')
ELSE
WRITELN(T,' ':LMARG+15,'0');
IF NRIOPLAND=7 THEN NRIOPLAND:=0;
FOR J:=1 TO 7 DO WRITELN(T)
END;
END;
BEGIN
KUNDE.NR(1):=HPOST.KNR1;
KUNDE.NR(2):=HPOST.KNR2;
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
SEEK(LANDFIL,KUNDE.NR(7));
GET(LANDFIL);
FOR J:=1 TO 12 DO KLAND(J):=LANDFIL^(J);
OPLAND:=0;
NRIOPLAND:=0;
FOR LINE:=1 TO I DO
BEGIN
IF (OPLAND<>LINES(LINE).OPRILAND) OR
(NRIOPLAND=7) OR
(NRIOPLAND MOD 2 = 0) THEN
BEGIN
FOR J:=1 TO TOPMARG DO WRITELN(T);
WRITELN(T,' ':LMARG+14,'587765-2 02',
SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2):11:-2,
' Almindelig udførsel');
WRITELN(T);
WRITELN(T,' ':LMARG,'Vendor');
WRITELN(T,' ':LMARG,'Nyhavn 43');
WRITELN(T,' ':LMARG,'1051 København K');
FOR J:=10 TO 12 DO WRITELN(T);
WRITELN(T,' ':LMARG,KUNDE.NAVN(1));
WRITELN(T,' ':LMARG,KUNDE.NAVN(3));
WRITELN(T,' ':LMARG,KUNDE.POSTNR);
WRITELN(T);
IF OPLAND<>LINES(LINE).OPRILAND THEN
BEGIN
OPLAND:=LINES(LINE).OPRILAND;
NRIOPLAND:=0;
SEEK(LANDFIL,OPLAND);
GET(LANDFIL)
END;
WRITELN(T,' ':LMARG+50,KLAND,KUNDE.NR(7):4);
WRITELN(T,' ':LMARG,HPOST.TRANSPORTØR);
WRITE(T,' ':LMARG+32);
FOR J:=1 TO 12 DO WRITE(T,LANDFIL^(J));
WRITELN(T,OPLAND:4,' ':2,KLAND,KUNDE.NR(7):4);
WRITELN(T);
IF HPOST.KODE8=0 THEN WRITELN(T) ELSE
WRITELN(T,' ':LMARG,TMÅDE(HPOST.KODE8));
WRITELN(T);
WRITE(T,' ':LMARG);
IF HPOST.KODE9=0 THEN WRITE(T,' ':30) ELSE
WRITE(T,UDPSTED(HPOST.KODE9));
WRITELN(T,SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2):9:-2,
HPOST.FAKTNR1*10000.0+HPOST.FAKTNR2:19:-2);
WRITELN(T);
WRITELN(T,' ':LMARG+32,HPOST.LEVBET,HPOST.VÆRDI/100:11:2);
FOR J:= 26 TO 28 DO WRITELN(T)
END;
IF NRIOPLAND MOD 2=0 THEN
BEGIN
WRITELN(T,' ':LMARG+50,HPOST.BRUTTOVÆGT:6);
WRITELN(T,' ':LMARG,'Mrk. adr. ',HPOST.AKOLLI);
WRITELN(T)
END
ELSE FOR J:=37 TO 40 DO WRITELN(T);
TOLDPO.NR1:=TRUNC(LINES(LINE).TOLDPNR/1000);
TOLDPO.NR2:=TRUNC(LINES(LINE).TOLDPNR-1000.0*TOLDPO.NR1);
GETREC(TPZ.H,FTP,TOLDPO.A);
IF IER=0 THEN
WRITELN(T,' ':LMARG+10,TOLDPO.TEKST)
ELSE
IF IER<>-6 THEN ERROR
ELSE WRITELN(T,' ':LMARG,'*** TEKST IKKE OPRETTET ***');
NRIOPLAND:=NRIOPLAND+1;
FOR J:=42 TO 44 DO WRITELN(T);
WRITELN(T,' ':LMARG+5,LINES(LINE).TOLDPNR/1000:11:3,2:5,
LINES(LINE).VÆRDI/100:20:-2,
TRUNC((LINES(LINE).VÆRDI/HPOST.VÆRDI)*
(HPOST.BRUTTOVÆGT-8.17*HPOST.BRUTTOVÆGT/100.0)):9,
LINES(LINE).SUPPMÆNGDE:7);
BUND;
END;
END;
PROCEDURE VARECERTIFIKAT;
VAR OFFSET,FDK:INTEGER;
PROCEDURE HEAD;
BEGIN
FOR J:=1 TO TOPMARG DO WRITELN(T1);
WRITELN(T1,' ':LMARG,'Vendor');
WRITELN(T1,' ':LMARG,'Nyhavn 43');
WRITELN(T1,' ':LMARG,'1051 København K');
FOR J:=8 TO 10 DO WRITELN(T1);
SEEK(LANDFIL,KUNDE.NR(7));
GET(LANDFIL);
WRITELN(T1,' ':LMARG,KUNDE.NAVN(1));
WRITELN(T1,' ':LMARG,KUNDE.NAVN(2));
WRITELN(T1,' ':LMARG,KUNDE.NAVN(3),' ':4,LANDFIL^);
WRITELN(T1,' ':LMARG,KUNDE.LANDSBY);
WRITELN(T1,' ':LMARG,KUNDE.POSTNR);
WRITELN(T1,' ':LMARG,LANDFIL^);
WRITELN(T1);
WRITE(T1,' ':LMARG+34,'Se under 8 ');
FOR J:=1 TO 15 DO WRITE(T1,LANDFIL^(J));
FOR J:=18 TO 20 DO WRITELN(T1);
FDK:=0;
FOR J:=1 TO 10 DO
IF OFFSET+J<=I THEN
IF LINES(OFFSET+J).OPRILAND=8 THEN
BEGIN
FDK:=OFFSET+J;
J:=12
END;
IF FDK>0 THEN
BEGIN
WRITELN(T1,' ':LMARG+34,'Artikel 25-1 opfyldt for pos:');
WRITELN(T1);
WRITE(T1,' ':LMARG+34,FDK-OFFSET:3);
FDK:=FDK+1;
WHILE FDK<=I DO
IF LINES(FDK).OPRILAND=8 THEN
BEGIN
WRITE(T1,',',FDK-OFFSET:2+((FDK-OFFSET) DIV 10));
FDK:=FDK+1
END
ELSE FDK:=I+1;
WRITELN(T1)
END
ELSE FOR J:=21 TO 23 DO WRITELN(T1);
FOR J:=24 TO 30 DO WRITELN(T1);
WRITELN(T1,' ':LMARG,'Mrk. adr. ',HPOST.AKOLLI,
HPOST.BRUTTOVÆGT:17,
HPOST.FAKTNR1*10000.0+HPOST.FAKTNR2:9:-2);
WRITELN(T1,' ':LMARG,'----------------------------------',
'---------------------------------');
WRITELN(T1)
END;
BEGIN
OFFSET:=0;
LINE:=0;
WHILE LINE+OFFSET<I DO
BEGIN
IF LINE=0 THEN HEAD;
LINE:=LINE+1;
TOLDPO.NR1:=TRUNC(LINES(LINE+OFFSET).TOLDPNR/1000);
TOLDPO.NR2:=TRUNC(LINES(LINE+OFFSET).TOLDPNR-1000.0*TOLDPO.NR1);
GETREC(TPZ.H,FTP,TOLDPO.A);
WRITE(T1,' ':LMARG,LINE:3,':',LINES(LINE+OFFSET).SUPPMÆNGDE:5,' stk. ');
IF IER=0 THEN
WRITELN(T1,TOLDPO.TEKST)
ELSE
BEGIN
WRITELN(T1,'TEKST IKKE OPRETTET');
IF IER<>-6 THEN ERROR
END;
SEEK(LANDFIL,LINES(LINE+OFFSET).OPRILAND);
GET(LANDFIL);
WRITELN(T1,' ':LMARG+7,LINES(LINE+OFFSET).TOLDPNR/1000:10:3,' ',
LANDFIL^);
IF (LINE=10) OR (OFFSET+LINE=I) THEN
BEGIN
WRITELN(T1,' ':LMARG,'-------------------------',
'------------------------');
WHILE LINE<10 DO
BEGIN
WRITELN(T1);
WRITELN(T1);
LINE:=LINE+1
END;
FOR J:=55 TO 60 DO WRITELN(T1);
WRITELN(T1,' ':LMARG+42,'København',SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):14:-2);
FOR J:=62 TO 63 DO WRITELN(T1);
WRITELN(T1,' ':LMARG,'København',SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):12:-2);
FOR J:=65 TO 72 DO WRITELN(T1);
OFFSET:=OFFSET+10;
LINE:=0
END
END
END;
BEGIN
WRITELN('START TOLDPAP');
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;
FNAVN:='TOLDPORG:P2:0000:I';
RESET(FTP,FNAVN);
IOPEN(TPZ.H,FTP,LÆS);IF IER<>0 THEN ERROR;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
FNAVN:='LANDEREG:P2:0:I';
RESET(LANDFIL,FNAVN);
FNAVN:='TOLDPAPI:P1:10:K';
REWRITE(TOLDPHIL,FNAVN);
FNAVN:='TOLDPTXT:P1:10:K';
REWRITE(T,FNAVN);
FNAVN:='CERTITXT:P1:10:K';
REWRITE(T1,FNAVN);
INIT;
GET(TOLDPHIL);
WHILE (TOLDPHIL^.KNR1<>0) AND (TOLDPHIL^.KNR2<>0) DO
WITH TOLDPHIL^ DO
BEGIN
I:=0;
REPEAT
I:=I+1;
LINES(I).OPRILAND:=OPRILAND;
LINES(I).SUPPMÆNGDE:=SUPPMÆNGDE;
LINES(I).VÆRDI:=VÆRDI;
LINES(I).TOLDPNR:=TOLDPONR;
GET(TOLDPHIL)
UNTIL OPRILAND=0;
HPOST:=TOLDPHIL^;
FOR J:=1 TO I DO
BEGIN
M:=J;
FOR K:=J+1 TO I DO
IF LINES(K).OPRILAND<LINES(M).OPRILAND THEN M:=K;
IF M<>J THEN
BEGIN
BYTPOST:=LINES(M);
LINES(M):=LINES(J);
LINES(J):=BYTPOST
END
END; (*SORTERET*)
UDFØRSELSANGIVELSE;
K:=0;
FOR J:=1 TO 20 DO IF EFLANDE(J)=KUNDE.NR(7) THEN K:=1;
IF K=0 THEN VARECERTIFIKAT;
GET(TOLDPHIL)
END;
ICLOSE(KZ.H,FKUN);
ICLOSE(TPZ.H,FTP);
WRITELN('SLUT TOLDPAP');
CHAIN('INTRE *1','SKRIVFAK:P1',QUQ);
END.
0x0000…0012 Line {l1=0x10, l2=»PROGRAM TOLDPAP;«, l3=0x10}
0x0012…002c Line {l1=0x18, l2=»CONST LMARG=9;TOPMARG=4;«, l3=0x18}
0x002c…003c Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x003c…004b Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x004b…005a Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x005a…0080 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x0080…00c9 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00c9…0112 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x0112…0142 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x0142…0192 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x0192…01c1 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01c1…01ef Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01ef…021a Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x021a…0243 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x0243…0268 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x0268…0270 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0270…0284 Line {l1=0x12, l2=»TOLDPAPPOST=RECORD«, l3=0x12}
0x0284…0293 Line {l1=0x0d, l2=» KNR1,KNR2,«, l3=0x0d}
0x0293…02a1 Line {l1=0x0c, l2=» OPRILAND,«, l3=0x0c}
0x02a1…02b2 Line {l1=0x0f, l2=» KODE8,KODE9,«, l3=0x0f}
0x02b2…02c2 Line {l1=0x0e, l2=» BRUTTOVÆGT,«, l3=0x0e}
0x02c2…02d2 Line {l1=0x0e, l2=» SUPPMÆNGDE,«, l3=0x0e}
0x02d2…02f0 Line {l1=0x1c, l2=» FAKTNR1,FAKTNR2 :INTEGER;«, l3=0x1c}
0x02f0…0326 Line {l1=0x34, l2=» TRANSPORTØR,AKOLLI: PACKED ARRAY (1..30) OF CHAR;«, l3=0x34}
0x0326…036c Line {l1=0x44, l2=» VÆRDI,TOLDPONR: REAL; (*VÆRDI ER FAKTURABELØB NÅR OPRILAND=0, KUN«, l3=0x44}
0x036c…039c Line {l1=0x2e, l2=» DEN SIDSTE ER =0 *)«, l3=0x2e}
0x039c…03e4 Line {l1=0x46, l2=» LEVBET: PACKED ARRAY (1..16) OF CHAR (*DITTO(1)'S FØRSTE 16 TEGN *)«, l3=0x46}
0x03e4…03ea Line {l1=0x04, l2=»END;«, l3=0x04}
0x03ea…040a Line {l1=0x1e, l2=»TOLDPFILE=FILE OF TOLDPAPPOST;«, l3=0x1e}
0x040a…041b Line {l1=0x0f, l2=»SORTPOST=RECORD«, l3=0x0f}
0x041b…0428 Line {l1=0x0b, l2=» OPRILAND,«, l3=0x0b}
0x0428…043f Line {l1=0x15, l2=» SUPPMÆNGDE:INTEGER;«, l3=0x15}
0x043f…0449 Line {l1=0x08, l2=» VÆRDI,«, l3=0x08}
0x0449…0459 Line {l1=0x0e, l2=» TOLDPNR:REAL«, l3=0x0e}
0x0459…045f Line {l1=0x04, l2=»END;«, l3=0x04}
0x045f…0472 Line {l1=0x11, l2=»TOLDPOPOST=RECORD«, l3=0x11}
0x0472…047b Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x047b…048f Line {l1=0x12, l2=» NR1,NR2:INTEGER;«, l3=0x12}
0x048f…04b5 Line {l1=0x24, l2=» TEKST:PACKED ARRAY (1..30) OF CHAR«, l3=0x24}
0x04b5…04bb Line {l1=0x04, l2=»END;«, l3=0x04}
0x04bb…04cb Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x04cb…04db Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x04db…04e5 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x04e5…04f0 Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x04f0…04ff Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x04ff…050d Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x050d…051d Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x051d…055a Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x055a…0577 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0577…05a0 Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x05a0…05e7 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x05e7…05ed Line {l1=0x04, l2=»END;«, l3=0x04}
0x05ed…0607 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0607…0615 Line {l1=0x0c, l2=»KZONE=RECORD«, l3=0x0c}
0x0615…0629 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0629…064d Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x064d…0653 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0653…0662 Line {l1=0x0d, l2=»TPZONE=RECORD«, l3=0x0d}
0x0662…0677 Line {l1=0x13, l2=» H:ISFHEAD;«, l3=0x13}
0x0677…069e Line {l1=0x25, l2=» T:ARRAY (1..1000) OF INTEGER«, l3=0x25}
0x069e…06a4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x06a4…06d4 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x06d4…06ed Line {l1=0x17, l2=»VAR FTP,FKUN : ISF;«, l3=0x17}
0x06ed…0706 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0706…0723 Line {l1=0x1b, l2=» TOLDPHIL:TOLDPFILE;«, l3=0x1b}
0x0723…073e Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x073e…0752 Line {l1=0x12, l2=» T,T1:TEXT;«, l3=0x12}
0x0752…0765 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x0765…077a Line {l1=0x13, l2=» TPZ:TPZONE;«, l3=0x13}
0x077a…0790 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0790…07ac Line {l1=0x1a, l2=» TOLDPO:TOLDPOPOST;«, l3=0x1a}
0x07ac…07c7 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x07c7…07e1 Line {l1=0x18, l2=» IER,I,J,M,K,LINE«, l3=0x18}
0x07e1…0804 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0804…084a Line {l1=0x44, l2=» TMÅDE,UDPSTED:ARRAY (1..20) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x44}
0x084a…0875 Line {l1=0x29, l2=» EFLANDE:ARRAY (1..20) OF INTEGER;«, l3=0x29}
0x0875…089f Line {l1=0x28, l2=» LINES:ARRAY (1..60) OF SORTPOST;«, l3=0x28}
0x089f…08bb Line {l1=0x1a, l2=» HPOST:TOLDPAPPOST;«, l3=0x1a}
0x08bb…08d6 Line {l1=0x19, l2=» BYTPOST:SORTPOST;«, l3=0x19}
0x08d6…08ed Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x08ed…08f6 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x08f6…0907 Line {l1=0x0f, l2=» (*$R-,IIOPEN*)«, l3=0x0f}
0x0907…0918 Line {l1=0x0f, l2=» (*$IEXCOMCOP*)«, l3=0x0f}
0x0918…0929 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0929…093a Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x093a…0949 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0949…0958 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0958…0962 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x0962…096b Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x096b…097e Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x097e…0986 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0986…09ab Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x09ab…09c2 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x09c2…09d9 Line {l1=0x15, l2=» ICLOSE(TPZ.H,FTP);«, l3=0x15}
0x09d9…09f5 Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x09f5…0a04 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0a04…0a0b Line {l1=0x05, l2=» END;«, l3=0x05}
0x0a0b…0a0e Line {l1=0x01, l2=» «, l3=0x01}
0x0a0e…0a1f Line {l1=0x0f, l2=»PROCEDURE INIT;«, l3=0x0f}
0x0a1f…0a26 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a26…0a58 Line {l1=0x30, l2=» TMÅDE(1):= 'Dansk skib 11';«, l3=0x30}
0x0a58…0a8a Line {l1=0x30, l2=» TMÅDE(2):= 'Udenlandsk skib 15';«, l3=0x30}
0x0a8a…0abc Line {l1=0x30, l2=» TMÅDE(3):= 'Bane 20';«, l3=0x30}
0x0abc…0aee Line {l1=0x30, l2=» TMÅDE(4):= 'Post 30';«, l3=0x30}
0x0aee…0b20 Line {l1=0x30, l2=» TMÅDE(5):= 'Fly 40';«, l3=0x30}
0x0b20…0b52 Line {l1=0x30, l2=» TMÅDE(6):= 'Dansk bil 51';«, l3=0x30}
0x0b52…0b84 Line {l1=0x30, l2=» TMÅDE(7):= 'Udenlandsk bil 55';«, l3=0x30}
0x0b84…0bb6 Line {l1=0x30, l2=» TMÅDE(8):= 'Anden transportmåde 90';«, l3=0x30}
0x0bb6…0bcb Line {l1=0x13, l2=» FOR I:=9 TO 20 DO«, l3=0x13}
0x0bcb…0bfd Line {l1=0x30, l2=» TMÅDE(I):= '______________________________';«, l3=0x30}
0x0bfd…0c2f Line {l1=0x30, l2=» UDPSTED(1):= ' 010';«, l3=0x30}
0x0c2f…0c61 Line {l1=0x30, l2=» UDPSTED(2):= ' 020';«, l3=0x30}
0x0c61…0c93 Line {l1=0x30, l2=» UDPSTED(3):= 'Københavns havn 040';«, l3=0x30}
0x0c93…0cc5 Line {l1=0x30, l2=» UDPSTED(4):= 'Københavns frihavn 041';«, l3=0x30}
0x0cc5…0cf7 Line {l1=0x30, l2=» UDPSTED(5):= 'Dragør havn 044';«, l3=0x30}
0x0cf7…0d29 Line {l1=0x30, l2=» UDPSTED(6):= 'Københavns lufthavn 050';«, l3=0x30}
0x0d29…0d5b Line {l1=0x30, l2=» UDPSTED(7):= 'Gedser havn 593';«, l3=0x30}
0x0d5b…0d8d Line {l1=0x30, l2=» UDPSTED(8):= 'Padborg 650';«, l3=0x30}
0x0d8d…0dbf Line {l1=0x30, l2=» UDPSTED(9):= 'Rødby havn 730';«, l3=0x30}
0x0dbf…0dd5 Line {l1=0x14, l2=» FOR I:=10 TO 20 DO«, l3=0x14}
0x0dd5…0e08 Line {l1=0x31, l2=» UDPSTED(I):='______________________________';«, l3=0x31}
0x0e08…0e2b Line {l1=0x21, l2=» FOR I:=1 TO 9 DO EFLANDE(I):=I;«, l3=0x21}
0x0e2b…0e4f Line {l1=0x22, l2=» FOR I:=10 TO 20 DO EFLANDE(I):=0«, l3=0x22}
0x0e4f…0e55 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e55…0e74 Line {l1=0x1d, l2=»PROCEDURE UDFØRSELSANGIVELSE;«, l3=0x1d}
0x0e74…0e93 Line {l1=0x1d, l2=»VAR OPLAND,NRIOPLAND:INTEGER;«, l3=0x1d}
0x0e93…0ebc Line {l1=0x27, l2=» KLAND:PACKED ARRAY (1..12) OF CHAR;«, l3=0x27}
0x0ebc…0ecd Line {l1=0x0f, l2=»PROCEDURE BUND;«, l3=0x0f}
0x0ecd…0ed4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ed4…0f10 Line {l1=0x3a, l2=» IF (LINE=I) OR (NRIOPLAND=7) OR (NRIOPLAND MOD 2=0) OR«, l3=0x3a}
0x0f10…0f48 Line {l1=0x36, l2=» (OPLAND<>LINES(LINE+1-LINE DIV I).OPRILAND) THEN«, l3=0x36}
0x0f48…0f53 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0f53…0f93 Line {l1=0x3e, l2=» IF NRIOPLAND MOD 2=1 THEN FOR J:=1 TO 9 DO WRITELN(T);«, l3=0x3e}
0x0f93…0fb9 Line {l1=0x24, l2=» FOR J:=1 TO 7 DO WRITELN(T);«, l3=0x24}
0x0fb9…0fdf Line {l1=0x24, l2=» IF HPOST.VÆRDI>700000.0 THEN«, l3=0x24}
0x0fdf…1006 Line {l1=0x25, l2=» WRITELN(T,' ':LMARG+15,'1')«, l3=0x25}
0x1006…1020 Line {l1=0x18, l2=» ELSE WRITELN(T);«, l3=0x18}
0x1020…106d Line {l1=0x4b, l2=» IF (NRIOPLAND<7) AND (OPLAND=LINES(LINE+1-LINE DIV I).OPRILAND) AND«, l3=0x4b}
0x106d…1087 Line {l1=0x18, l2=» (LINE<I) THEN«, l3=0x18}
0x1087…1096 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1096…10dd Line {l1=0x45, l2=» WRITELN(T,' ':LMARG+33,'Tilladelse til anvendelse af A29');«, l3=0x45}
0x10dd…111b Line {l1=0x3c, l2=» WRITELN(T,' ':LMARG+33,'som supplementsangivelse')«, l3=0x3c}
0x111b…1128 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1128…1157 Line {l1=0x2d, l2=» ELSE BEGIN WRITELN(T);WRITELN(T) END;«, l3=0x2d}
0x1157…117d Line {l1=0x24, l2=» FOR J:=1 TO 7 DO WRITELN(T);«, l3=0x24}
0x117d…11a3 Line {l1=0x24, l2=» WRITELN(T,' ':LMARG+32,'X');«, l3=0x24}
0x11a3…11b8 Line {l1=0x13, l2=» WRITELN(T);«, l3=0x13}
0x11b8…11de Line {l1=0x24, l2=» IF HPOST.VÆRDI>700000.0 THEN«, l3=0x24}
0x11de…1205 Line {l1=0x25, l2=» WRITELN(T,' ':LMARG+15,'1')«, l3=0x25}
0x1205…1213 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1213…123b Line {l1=0x26, l2=» WRITELN(T,' ':LMARG+15,'0');«, l3=0x26}
0x123b…1266 Line {l1=0x29, l2=» IF NRIOPLAND=7 THEN NRIOPLAND:=0;«, l3=0x29}
0x1266…128b Line {l1=0x23, l2=» FOR J:=1 TO 7 DO WRITELN(T)«, l3=0x23}
0x128b…1295 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1295…129b Line {l1=0x04, l2=»END;«, l3=0x04}
0x129b…12a2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x12a2…12be Line {l1=0x1a, l2=» KUNDE.NR(1):=HPOST.KNR1;«, l3=0x1a}
0x12be…12da Line {l1=0x1a, l2=» KUNDE.NR(2):=HPOST.KNR2;«, l3=0x1a}
0x12da…12f8 Line {l1=0x1c, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1c}
0x12f8…1311 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x1311…132f Line {l1=0x1c, l2=» SEEK(LANDFIL,KUNDE.NR(7));«, l3=0x1c}
0x132f…1340 Line {l1=0x0f, l2=» GET(LANDFIL);«, l3=0x0f}
0x1340…136c Line {l1=0x2a, l2=» FOR J:=1 TO 12 DO KLAND(J):=LANDFIL^(J);«, l3=0x2a}
0x136c…137a Line {l1=0x0c, l2=» OPLAND:=0;«, l3=0x0c}
0x137a…138b Line {l1=0x0f, l2=» NRIOPLAND:=0;«, l3=0x0f}
0x138b…13a2 Line {l1=0x15, l2=» FOR LINE:=1 TO I DO«, l3=0x15}
0x13a2…13ab Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x13ab…13d5 Line {l1=0x28, l2=» IF (OPLAND<>LINES(LINE).OPRILAND) OR«, l3=0x28}
0x13d5…13ee Line {l1=0x17, l2=» (NRIOPLAND=7) OR«, l3=0x17}
0x13ee…1411 Line {l1=0x21, l2=» (NRIOPLAND MOD 2 = 0) THEN«, l3=0x21}
0x1411…141c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x141c…1446 Line {l1=0x28, l2=» FOR J:=1 TO TOPMARG DO WRITELN(T);«, l3=0x28}
0x1446…1476 Line {l1=0x2e, l2=» WRITELN(T,' ':LMARG+14,'587765-2 02',«, l3=0x2e}
0x1476…14ba Line {l1=0x42, l2=» SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2):11:-2,«, l3=0x42}
0x14ba…14e6 Line {l1=0x2a, l2=» ' Almindelig udførsel');«, l3=0x2a}
0x14e6…14f9 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x14f9…151f Line {l1=0x24, l2=» WRITELN(T,' ':LMARG,'Vendor');«, l3=0x24}
0x151f…1548 Line {l1=0x27, l2=» WRITELN(T,' ':LMARG,'Nyhavn 43');«, l3=0x27}
0x1548…1578 Line {l1=0x2e, l2=» WRITELN(T,' ':LMARG,'1051 København K');«, l3=0x2e}
0x1578…159e Line {l1=0x24, l2=» FOR J:=10 TO 12 DO WRITELN(T);«, l3=0x24}
0x159e…15c9 Line {l1=0x29, l2=» WRITELN(T,' ':LMARG,KUNDE.NAVN(1));«, l3=0x29}
0x15c9…15f4 Line {l1=0x29, l2=» WRITELN(T,' ':LMARG,KUNDE.NAVN(3));«, l3=0x29}
0x15f4…161e Line {l1=0x28, l2=» WRITELN(T,' ':LMARG,KUNDE.POSTNR);«, l3=0x28}
0x161e…1631 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x1631…165d Line {l1=0x2a, l2=» IF OPLAND<>LINES(LINE).OPRILAND THEN«, l3=0x2a}
0x165d…166a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x166a…1691 Line {l1=0x25, l2=» OPLAND:=LINES(LINE).OPRILAND;«, l3=0x25}
0x1691…16a8 Line {l1=0x15, l2=» NRIOPLAND:=0;«, l3=0x15}
0x16a8…16c7 Line {l1=0x1d, l2=» SEEK(LANDFIL,OPLAND);«, l3=0x1d}
0x16c7…16dd Line {l1=0x14, l2=» GET(LANDFIL)«, l3=0x14}
0x16dd…16e9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x16e9…171d Line {l1=0x32, l2=» WRITELN(T,' ':LMARG+50,KLAND,KUNDE.NR(7):4);«, l3=0x32}
0x171d…174c Line {l1=0x2d, l2=» WRITELN(T,' ':LMARG,HPOST.TRANSPORTØR);«, l3=0x2d}
0x174c…176a Line {l1=0x1c, l2=» WRITE(T,' ':LMARG+32);«, l3=0x1c}
0x176a…1799 Line {l1=0x2d, l2=» FOR J:=1 TO 12 DO WRITE(T,LANDFIL^(J));«, l3=0x2d}
0x1799…17cf Line {l1=0x34, l2=» WRITELN(T,OPLAND:4,' ':2,KLAND,KUNDE.NR(7):4);«, l3=0x34}
0x17cf…17e2 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x17e2…180f Line {l1=0x2b, l2=» IF HPOST.KODE8=0 THEN WRITELN(T) ELSE«, l3=0x2b}
0x180f…183f Line {l1=0x2e, l2=» WRITELN(T,' ':LMARG,TMÅDE(HPOST.KODE8));«, l3=0x2e}
0x183f…1852 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x1852…186d Line {l1=0x19, l2=» WRITE(T,' ':LMARG);«, l3=0x19}
0x186d…189f Line {l1=0x30, l2=» IF HPOST.KODE9=0 THEN WRITE(T,' ':30) ELSE«, l3=0x30}
0x189f…18c5 Line {l1=0x24, l2=» WRITE(T,UDPSTED(HPOST.KODE9));«, l3=0x24}
0x18c5…1908 Line {l1=0x41, l2=» WRITELN(T,SYSFIL^.HELTAL(1)*10000.0+SYSFIL^.HELTAL(2):9:-2,«, l3=0x41}
0x1908…1945 Line {l1=0x3b, l2=» HPOST.FAKTNR1*10000.0+HPOST.FAKTNR2:19:-2);«, l3=0x3b}
0x1945…1958 Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x1958…199a Line {l1=0x40, l2=» WRITELN(T,' ':LMARG+32,HPOST.LEVBET,HPOST.VÆRDI/100:11:2);«, l3=0x40}
0x199a…19c0 Line {l1=0x24, l2=» FOR J:= 26 TO 28 DO WRITELN(T)«, l3=0x24}
0x19c0…19ca Line {l1=0x08, l2=» END;«, l3=0x08}
0x19ca…19e9 Line {l1=0x1d, l2=» IF NRIOPLAND MOD 2=0 THEN«, l3=0x1d}
0x19e9…19f4 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x19f4…1a27 Line {l1=0x31, l2=» WRITELN(T,' ':LMARG+50,HPOST.BRUTTOVÆGT:6);«, l3=0x31}
0x1a27…1a5e Line {l1=0x35, l2=» WRITELN(T,' ':LMARG,'Mrk. adr. ',HPOST.AKOLLI);«, l3=0x35}
0x1a5e…1a70 Line {l1=0x10, l2=» WRITELN(T)«, l3=0x10}
0x1a70…1a79 Line {l1=0x07, l2=» END«, l3=0x07}
0x1a79…1aa2 Line {l1=0x27, l2=» ELSE FOR J:=37 TO 40 DO WRITELN(T);«, l3=0x27}
0x1aa2…1aa5 Line {l1=0x01, l2=» «, l3=0x01}
0x1aa5…1ad7 Line {l1=0x30, l2=» TOLDPO.NR1:=TRUNC(LINES(LINE).TOLDPNR/1000);«, l3=0x30}
0x1ad7…1b16 Line {l1=0x3d, l2=» TOLDPO.NR2:=TRUNC(LINES(LINE).TOLDPNR-1000.0*TOLDPO.NR1);«, l3=0x3d}
0x1b16…1b37 Line {l1=0x1f, l2=» GETREC(TPZ.H,FTP,TOLDPO.A);«, l3=0x1f}
0x1b37…1b4a Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x1b4a…1b76 Line {l1=0x2a, l2=» WRITELN(T,' ':LMARG+10,TOLDPO.TEKST)«, l3=0x2a}
0x1b76…1b80 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1b80…1b9b Line {l1=0x19, l2=» IF IER<>-6 THEN ERROR«, l3=0x19}
0x1b9b…1bd9 Line {l1=0x3c, l2=» ELSE WRITELN(T,' ':LMARG,'*** TEKST IKKE OPRETTET ***');«, l3=0x3c}
0x1bd9…1bdc Line {l1=0x01, l2=» «, l3=0x01}
0x1bdc…1bf9 Line {l1=0x1b, l2=» NRIOPLAND:=NRIOPLAND+1;«, l3=0x1b}
0x1bf9…1c1d Line {l1=0x22, l2=» FOR J:=42 TO 44 DO WRITELN(T);«, l3=0x22}
0x1c1d…1c23 Line {l1=0x04, l2=» «, l3=0x04}
0x1c23…1c61 Line {l1=0x3c, l2=» WRITELN(T,' ':LMARG+5,LINES(LINE).TOLDPNR/1000:11:3,2:5,«, l3=0x3c}
0x1c61…1c99 Line {l1=0x36, l2=» LINES(LINE).VÆRDI/100:20:-2,«, l3=0x36}
0x1c99…1cdb Line {l1=0x40, l2=» TRUNC((LINES(LINE).VÆRDI/HPOST.VÆRDI)*«, l3=0x40}
0x1cdb…1d29 Line {l1=0x4c, l2=» (HPOST.BRUTTOVÆGT-8.17*HPOST.BRUTTOVÆGT/100.0)):9,«, l3=0x4c}
0x1d29…1d5f Line {l1=0x34, l2=» LINES(LINE).SUPPMÆNGDE:7);«, l3=0x34}
0x1d5f…1d6a Line {l1=0x09, l2=» BUND;«, l3=0x09}
0x1d6a…1d72 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1d72…1d78 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d78…1d93 Line {l1=0x19, l2=»PROCEDURE VARECERTIFIKAT;«, l3=0x19}
0x1d93…1dac Line {l1=0x17, l2=»VAR OFFSET,FDK:INTEGER;«, l3=0x17}
0x1dac…1dbd Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x1dbd…1dc4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1dc4…1def Line {l1=0x29, l2=» FOR J:=1 TO TOPMARG DO WRITELN(T1);«, l3=0x29}
0x1def…1e16 Line {l1=0x25, l2=» WRITELN(T1,' ':LMARG,'Vendor');«, l3=0x25}
0x1e16…1e40 Line {l1=0x28, l2=» WRITELN(T1,' ':LMARG,'Nyhavn 43');«, l3=0x28}
0x1e40…1e71 Line {l1=0x2f, l2=» WRITELN(T1,' ':LMARG,'1051 København K');«, l3=0x2f}
0x1e71…1e97 Line {l1=0x24, l2=» FOR J:=8 TO 10 DO WRITELN(T1);«, l3=0x24}
0x1e97…1eb9 Line {l1=0x20, l2=» SEEK(LANDFIL,KUNDE.NR(7));«, l3=0x20}
0x1eb9…1ece Line {l1=0x13, l2=» GET(LANDFIL);«, l3=0x13}
0x1ece…1efa Line {l1=0x2a, l2=» WRITELN(T1,' ':LMARG,KUNDE.NAVN(1));«, l3=0x2a}
0x1efa…1f26 Line {l1=0x2a, l2=» WRITELN(T1,' ':LMARG,KUNDE.NAVN(2));«, l3=0x2a}
0x1f26…1f61 Line {l1=0x39, l2=» WRITELN(T1,' ':LMARG,KUNDE.NAVN(3),' ':4,LANDFIL^);«, l3=0x39}
0x1f61…1f8d Line {l1=0x2a, l2=» WRITELN(T1,' ':LMARG,KUNDE.LANDSBY);«, l3=0x2a}
0x1f8d…1fb8 Line {l1=0x29, l2=» WRITELN(T1,' ':LMARG,KUNDE.POSTNR);«, l3=0x29}
0x1fb8…1fdf Line {l1=0x25, l2=» WRITELN(T1,' ':LMARG,LANDFIL^);«, l3=0x25}
0x1fdf…1ff3 Line {l1=0x12, l2=» WRITELN(T1);«, l3=0x12}
0x1ff3…2025 Line {l1=0x30, l2=» WRITE(T1,' ':LMARG+34,'Se under 8 ');«, l3=0x30}
0x2025…2055 Line {l1=0x2e, l2=» FOR J:=1 TO 15 DO WRITE(T1,LANDFIL^(J));«, l3=0x2e}
0x2055…207c Line {l1=0x25, l2=» FOR J:=18 TO 20 DO WRITELN(T1);«, l3=0x25}
0x207c…208b Line {l1=0x0d, l2=» FDK:=0;«, l3=0x0d}
0x208b…20a4 Line {l1=0x17, l2=» FOR J:=1 TO 10 DO«, l3=0x17}
0x20a4…20c1 Line {l1=0x1b, l2=» IF OFFSET+J<=I THEN«, l3=0x1b}
0x20c1…20ef Line {l1=0x2c, l2=» IF LINES(OFFSET+J).OPRILAND=8 THEN«, l3=0x2c}
0x20ef…2100 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2100…211c Line {l1=0x1a, l2=» FDK:=OFFSET+J;«, l3=0x1a}
0x211c…212f Line {l1=0x11, l2=» J:=12«, l3=0x11}
0x212f…213f Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x213f…2154 Line {l1=0x13, l2=» IF FDK>0 THEN«, l3=0x13}
0x2154…2161 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2161…21a4 Line {l1=0x41, l2=» WRITELN(T1,' ':LMARG+34,'Artikel 25-1 opfyldt for pos:');«, l3=0x41}
0x21a4…21ba Line {l1=0x14, l2=» WRITELN(T1);«, l3=0x14}
0x21ba…21e8 Line {l1=0x2c, l2=» WRITE(T1,' ':LMARG+34,FDK-OFFSET:3);«, l3=0x2c}
0x21e8…21fd Line {l1=0x13, l2=» FDK:=FDK+1;«, l3=0x13}
0x21fd…2216 Line {l1=0x17, l2=» WHILE FDK<=I DO«, l3=0x17}
0x2216…223d Line {l1=0x25, l2=» IF LINES(FDK).OPRILAND=8 THEN«, l3=0x25}
0x223d…224c Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x224c…2289 Line {l1=0x3b, l2=» WRITE(T1,',',FDK-OFFSET:2+((FDK-OFFSET) DIV 10));«, l3=0x3b}
0x2289…229f Line {l1=0x14, l2=» FDK:=FDK+1«, l3=0x14}
0x229f…22ac Line {l1=0x0b, l2=» END«, l3=0x0b}
0x22ac…22c4 Line {l1=0x16, l2=» ELSE FDK:=I+1;«, l3=0x16}
0x22c4…22d9 Line {l1=0x13, l2=» WRITELN(T1)«, l3=0x13}
0x22d9…22e4 Line {l1=0x09, l2=» END«, l3=0x09}
0x22e4…2310 Line {l1=0x2a, l2=» ELSE FOR J:=21 TO 23 DO WRITELN(T1);«, l3=0x2a}
0x2310…2337 Line {l1=0x25, l2=» FOR J:=24 TO 30 DO WRITELN(T1);«, l3=0x25}
0x2337…236e Line {l1=0x35, l2=» WRITELN(T1,' ':LMARG,'Mrk. adr. ',HPOST.AKOLLI,«, l3=0x35}
0x236e…239f Line {l1=0x2f, l2=» HPOST.BRUTTOVÆGT:17,«, l3=0x2f}
0x239f…23e6 Line {l1=0x45, l2=» HPOST.FAKTNR1*10000.0+HPOST.FAKTNR2:9:-2);«, l3=0x45}
0x23e6…2428 Line {l1=0x40, l2=» WRITELN(T1,' ':LMARG,'----------------------------------',«, l3=0x40}
0x2428…246a Line {l1=0x40, l2=» '---------------------------------');«, l3=0x40}
0x246a…247d Line {l1=0x11, l2=» WRITELN(T1)«, l3=0x11}
0x247d…2483 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2483…248a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x248a…2498 Line {l1=0x0c, l2=» OFFSET:=0;«, l3=0x0c}
0x2498…24a4 Line {l1=0x0a, l2=» LINE:=0;«, l3=0x0a}
0x24a4…24be Line {l1=0x18, l2=» WHILE LINE+OFFSET<I DO«, l3=0x18}
0x24be…24c7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x24c7…24e1 Line {l1=0x18, l2=» IF LINE=0 THEN HEAD;«, l3=0x18}
0x24e1…24f4 Line {l1=0x11, l2=» LINE:=LINE+1;«, l3=0x11}
0x24f4…252d Line {l1=0x37, l2=» TOLDPO.NR1:=TRUNC(LINES(LINE+OFFSET).TOLDPNR/1000);«, l3=0x37}
0x252d…2573 Line {l1=0x44, l2=» TOLDPO.NR2:=TRUNC(LINES(LINE+OFFSET).TOLDPNR-1000.0*TOLDPO.NR1);«, l3=0x44}
0x2573…2594 Line {l1=0x1f, l2=» GETREC(TPZ.H,FTP,TOLDPO.A);«, l3=0x1f}
0x2594…25e3 Line {l1=0x4d, l2=» WRITE(T1,' ':LMARG,LINE:3,':',LINES(LINE+OFFSET).SUPPMÆNGDE:5,' stk. ');«, l3=0x4d}
0x25e3…25f6 Line {l1=0x11, l2=» IF IER=0 THEN«, l3=0x11}
0x25f6…2616 Line {l1=0x1e, l2=» WRITELN(T1,TOLDPO.TEKST)«, l3=0x1e}
0x2616…2620 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x2620…262b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x262b…2655 Line {l1=0x28, l2=» WRITELN(T1,'TEKST IKKE OPRETTET');«, l3=0x28}
0x2655…2672 Line {l1=0x1b, l2=» IF IER<>-6 THEN ERROR«, l3=0x1b}
0x2672…267c Line {l1=0x08, l2=» END;«, l3=0x08}
0x267c…26ac Line {l1=0x2e, l2=» SEEK(LANDFIL,LINES(LINE+OFFSET).OPRILAND);«, l3=0x2e}
0x26ac…26bf Line {l1=0x11, l2=» GET(LANDFIL);«, l3=0x11}
0x26bf…2705 Line {l1=0x44, l2=» WRITELN(T1,' ':LMARG+7,LINES(LINE+OFFSET).TOLDPNR/1000:10:3,' ',«, l3=0x44}
0x2705…272c Line {l1=0x25, l2=» LANDFIL^);«, l3=0x25}
0x272c…2756 Line {l1=0x28, l2=» IF (LINE=10) OR (OFFSET+LINE=I) THEN«, l3=0x28}
0x2756…2761 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2761…279a Line {l1=0x37, l2=» WRITELN(T1,' ':LMARG,'-------------------------',«, l3=0x37}
0x279a…27d3 Line {l1=0x37, l2=» '------------------------');«, l3=0x37}
0x27d3…27eb Line {l1=0x16, l2=» WHILE LINE<10 DO«, l3=0x16}
0x27eb…27f8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x27f8…280e Line {l1=0x14, l2=» WRITELN(T1);«, l3=0x14}
[…0x1…]
0x2824…283a Line {l1=0x14, l2=» LINE:=LINE+1«, l3=0x14}
0x283a…2846 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2846…286d Line {l1=0x25, l2=» FOR J:=55 TO 60 DO WRITELN(T1);«, l3=0x25}
0x286d…28b3 Line {l1=0x44, l2=» WRITELN(T1,' ':LMARG+42,'København',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x44}
0x28b3…28f8 Line {l1=0x43, l2=» SYSFIL^.HELTAL(2):14:-2);«, l3=0x43}
0x28f8…291f Line {l1=0x25, l2=» FOR J:=62 TO 63 DO WRITELN(T1);«, l3=0x25}
0x291f…2962 Line {l1=0x41, l2=» WRITELN(T1,' ':LMARG,'København',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x41}
0x2962…29a4 Line {l1=0x40, l2=» SYSFIL^.HELTAL(2):12:-2);«, l3=0x40}
0x29a4…29cb Line {l1=0x25, l2=» FOR J:=65 TO 72 DO WRITELN(T1);«, l3=0x25}
0x29cb…29e5 Line {l1=0x18, l2=» OFFSET:=OFFSET+10;«, l3=0x18}
0x29e5…29f4 Line {l1=0x0d, l2=» LINE:=0«, l3=0x0d}
0x29f4…29fd Line {l1=0x07, l2=» END«, l3=0x07}
0x29fd…2a04 Line {l1=0x05, l2=» END«, l3=0x05}
0x2a04…2a0a Line {l1=0x04, l2=»END;«, l3=0x04}
0x2a0a…2a11 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2a11…2a2e Line {l1=0x1b, l2=» WRITELN('START TOLDPAP');«, l3=0x1b}
0x2a2e…2a4d Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x2a4d…2a63 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x2a63…2a91 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x2a91…2a94 Line {l1=0x01, l2=» «, l3=0x01}
0x2a94…2ab4 Line {l1=0x1e, l2=» FNAVN:='TOLDPORG:P2:0000:I';«, l3=0x1e}
0x2ab4…2ac9 Line {l1=0x13, l2=» RESET(FTP,FNAVN);«, l3=0x13}
0x2ac9…2af7 Line {l1=0x2c, l2=» IOPEN(TPZ.H,FTP,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x2af7…2afa Line {l1=0x01, l2=» «, l3=0x01}
0x2afa…2b15 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x2b15…2b2f Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x2b2f…2b42 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x2b42…2b52 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x2b52…2b55 Line {l1=0x01, l2=» «, l3=0x01}
0x2b55…2b72 Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x2b72…2b8b Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x2b8b…2b8e Line {l1=0x01, l2=» «, l3=0x01}
0x2b8e…2bac Line {l1=0x1c, l2=» FNAVN:='TOLDPAPI:P1:10:K';«, l3=0x1c}
0x2bac…2bc8 Line {l1=0x1a, l2=» REWRITE(TOLDPHIL,FNAVN);«, l3=0x1a}
0x2bc8…2bcb Line {l1=0x01, l2=» «, l3=0x01}
0x2bcb…2be9 Line {l1=0x1c, l2=» FNAVN:='TOLDPTXT:P1:10:K';«, l3=0x1c}
0x2be9…2bfe Line {l1=0x13, l2=» REWRITE(T,FNAVN);«, l3=0x13}
0x2bfe…2c01 Line {l1=0x01, l2=» «, l3=0x01}
0x2c01…2c1f Line {l1=0x1c, l2=» FNAVN:='CERTITXT:P1:10:K';«, l3=0x1c}
0x2c1f…2c35 Line {l1=0x14, l2=» REWRITE(T1,FNAVN);«, l3=0x14}
0x2c35…2c38 Line {l1=0x01, l2=» «, l3=0x01}
0x2c38…2c41 Line {l1=0x07, l2=» INIT;«, l3=0x07}
0x2c41…2c44 Line {l1=0x01, l2=» «, l3=0x01}
0x2c44…2c56 Line {l1=0x10, l2=» GET(TOLDPHIL);«, l3=0x10}
0x2c56…2c8e Line {l1=0x36, l2=» WHILE (TOLDPHIL^.KNR1<>0) AND (TOLDPHIL^.KNR2<>0) DO«, l3=0x36}
0x2c8e…2ca3 Line {l1=0x13, l2=» WITH TOLDPHIL^ DO«, l3=0x13}
0x2ca3…2cac Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2cac…2cb7 Line {l1=0x09, l2=» I:=0;«, l3=0x09}
0x2cb7…2cc3 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2cc3…2cd2 Line {l1=0x0d, l2=» I:=I+1;«, l3=0x0d}
0x2cd2…2cf6 Line {l1=0x22, l2=» LINES(I).OPRILAND:=OPRILAND;«, l3=0x22}
0x2cf6…2d1e Line {l1=0x26, l2=» LINES(I).SUPPMÆNGDE:=SUPPMÆNGDE;«, l3=0x26}
0x2d1e…2d3c Line {l1=0x1c, l2=» LINES(I).VÆRDI:=VÆRDI;«, l3=0x1c}
0x2d3c…2d5f Line {l1=0x21, l2=» LINES(I).TOLDPNR:=TOLDPONR;«, l3=0x21}
0x2d5f…2d74 Line {l1=0x13, l2=» GET(TOLDPHIL)«, l3=0x13}
0x2d74…2d8b Line {l1=0x15, l2=» UNTIL OPRILAND=0;«, l3=0x15}
0x2d8b…2da2 Line {l1=0x15, l2=» HPOST:=TOLDPHIL^;«, l3=0x15}
0x2da2…2db8 Line {l1=0x14, l2=» FOR J:=1 TO I DO«, l3=0x14}
0x2db8…2dc3 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2dc3…2dd0 Line {l1=0x0b, l2=» M:=J;«, l3=0x0b}
0x2dd0…2dea Line {l1=0x18, l2=» FOR K:=J+1 TO I DO«, l3=0x18}
0x2dea…2e25 Line {l1=0x39, l2=» IF LINES(K).OPRILAND<LINES(M).OPRILAND THEN M:=K;«, l3=0x39}
0x2e25…2e39 Line {l1=0x12, l2=» IF M<>J THEN«, l3=0x12}
0x2e39…2e46 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2e46…2e62 Line {l1=0x1a, l2=» BYTPOST:=LINES(M);«, l3=0x1a}
0x2e62…2e7f Line {l1=0x1b, l2=» LINES(M):=LINES(J);«, l3=0x1b}
0x2e7f…2e9a Line {l1=0x19, l2=» LINES(J):=BYTPOST«, l3=0x19}
0x2e9a…2ea5 Line {l1=0x09, l2=» END«, l3=0x09}
0x2ea5…2ebe Line {l1=0x17, l2=» END; (*SORTERET*)«, l3=0x17}
0x2ebe…2ed7 Line {l1=0x17, l2=» UDFØRSELSANGIVELSE;«, l3=0x17}
0x2ed7…2ee2 Line {l1=0x09, l2=» K:=0;«, l3=0x09}
0x2ee2…2f1e Line {l1=0x3a, l2=» FOR J:=1 TO 20 DO IF EFLANDE(J)=KUNDE.NR(7) THEN K:=1;«, l3=0x3a}
0x2f1e…2f3f Line {l1=0x1f, l2=» IF K=0 THEN VARECERTIFIKAT;«, l3=0x1f}
0x2f3f…2f52 Line {l1=0x11, l2=» GET(TOLDPHIL)«, l3=0x11}
0x2f52…2f5a Line {l1=0x06, l2=» END;«, l3=0x06}
0x2f5a…2f70 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x2f70…2f86 Line {l1=0x14, l2=» ICLOSE(TPZ.H,FTP);«, l3=0x14}
0x2f86…2fa2 Line {l1=0x1a, l2=» WRITELN('SLUT TOLDPAP');«, l3=0x1a}
0x2fa2…2fcc Line {l1=0x28, l2=» CHAIN('INTRE *1','SKRIVFAK:P1',QUQ);«, l3=0x28}
0x2fcc…2fd2 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2fd2…2fe0 00 00 50 27 29 3b 1a 28 20 20 43 48 41 49 ┆ P'); ( CHAI┆
0x2fe0…3000 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 53 4b 52 49 56 46 41 4b 3a 50 31 27 2c 51 55 51 ┆N('INTRE *1','SKRIVFAK:P1',QUQ┆
0x3000…3020 29 3b 28 04 45 4e 44 2e 04 00 00 3b 06 14 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 4b 55 4e ┆);( END. ; ICLOSE(KZ.H,FKUN┆
0x3020…3040 29 3b 14 14 20 20 49 43 4c 4f 53 45 28 54 50 5a 2e 48 2c 46 54 50 29 3b 14 28 20 20 43 48 41 49 ┆); ICLOSE(TPZ.H,FTP); ( CHAI┆
0x3040…3060 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 53 4b 52 49 56 46 41 4b 3a 50 31 27 2c 51 55 51 ┆N('INTRE *1','SKRIVFAK:P1',QUQ┆
0x3060…3080 29 3b 28 04 45 4e 44 2e 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆);( END. ┆
0x3080…30a0 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 ┆ ┆
[…0x1…]