|
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: »SMAFSLUT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SMAFSLUT.K«
PROGRAM MÅNEDSAFSLUTNING;
CONST DK=8;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY(1..23) OF INTEGER;
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
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
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;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
POSTPOST=RECORD
A:AR;
(*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;
(*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY (1..508) OF INTEGER
END;
LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
SYSPOST=RECORD
HELTAL:ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
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;
BETAZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..374) OF INTEGER
END;
RORPOST=RECORD
A:AR;
(* KNR1,KNR2,
VNR,
DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;
ANTAL:REAL
END;
RORZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..327) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FBETA,FVAR,FROR,FPOST,FKUN:ISF;
BZ:BETAZONE;
BETA:BETAPOST;
VZ:VZONE;
VARE:VPOST;
SYSFIL:SYSFILE;
PZ:POSTZONE;
PPOST:POSTPOST;
LINE:ARRAY (1..22) OF STRING(72);
TEKST:ARRAY(1..4) OF STRING(72);
RZ:RORZONE;
LANDFIL:LANDFILE;
RESTORD:RORPOST;
NRPF,CF:NPFILE;
QUQ:^INTEGER;
CH:CHAR;
KZ:ZONE;
FILNAVN2:STRING(20);
LINIE,J,IER,I:INTEGER;
KUNDE:KPOST;
PTYPE:ARRAY (0..10) OF PACKED ARRAY (1..15) OF CHAR;
NAME:PACKED ARRAY (1..26) OF CHAR;
R,TOTAL:REAL;
F:TEXT;
NOFIND:BOOLEAN;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$INEXTREC*)
(*$IDELETE*)
(*$IINSERT*)
(*$IIOPEN*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
ICLOSE(RZ.H,FROR);
ICLOSE(VZ.H,FVAR);
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(J:INTEGER);
VAR I:INTEGER;
BEGIN
FOR I:=1 TO 9 DO WRITELN(LIST);
WITH KUNDE DO
IF NOFIND THEN
BEGIN
FOR I:=1 TO 11 DO WRITELN(LIST);
WRITELN(LIST,NR(1)*10000.0+NR(2):9:-2,' ':52,SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):10:-2);
WRITELN(LIST)
END
ELSE
BEGIN
IF (NR(3)=1) AND (J=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(LIST,' ':6,NAME,' ':14)
END
ELSE
WRITE(LIST,' ':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(LIST,NAME)
END
ELSE
WRITELN(LIST,NAVN(1));
WRITELN(LIST,' ':6,BETA.NAVN(2),' ':10,NAVN(2));
WRITELN(LIST,' ':6,BETA.NAVN(3),' ':10,NAVN(3));
WRITELN(LIST,' ':6,BETA.LANDSBY,' ':20,LANDSBY);
WRITELN(LIST,' ':6,BETA.POSTNR,' ':15,POSTNR);
IF BETA.NR(3)=DK THEN
WRITE(LIST,' ':46)
ELSE
BEGIN
SEEK(LANDFIL,BETA.NR(3));
GET(LANDFIL);
WRITE(LIST,' ':6,LANDFIL^,' ':10)
END;
IF NR(7)=DK THEN
WRITELN(LIST)
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(LIST,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(LIST,' ':6,NAME)
END
ELSE
WRITELN(LIST,' ':6,NAVN(1));
WRITELN(LIST,' ':6,NAVN(2));
WRITELN(LIST,' ':6,NAVN(3));
WRITELN(LIST,' ':6,LANDSBY);
WRITELN(LIST,' ':6,POSTNR);
IF NR(7)=DK THEN
WRITELN(LIST)
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(LIST,' ':6,LANDFIL^)
END
END;
FOR I:=1 TO 5 DO WRITELN(LIST);
WRITELN(LIST,NR(1)*10000.0+NR(2):9:-2,' ':52,SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):10:-2);
WRITELN(LIST)
END
END;
PROCEDURE PRKUNOPL;
BEGIN
IF NOFIND THEN WRITELN(LIST) ELSE
WITH KUNDE DO
BEGIN
WRITE(LIST,SALDOKØB(7)/100:9:2,
(SALDOKØB(1)+SALDOKØB(2))/100:12:2,
(SALDOKØB(3)+SALDOKØB(4))/100:12:2,
(SALDOKØB(5)+SALDOKØB(6))/100:13:2);
IF PPOST.REEL(1)<0.0 THEN
WRITELN(LIST,' ':13,-PPOST.REEL(1)/100:13:2)
ELSE
WRITELN(LIST,PPOST.REEL(1)/100:13:2);
END;
WRITELN(LIST);
WRITELN(LIST);
IF KUNDE.SALDOKØB(1)+KUNDE.SALDOKØB(2)+KUNDE.SALDOKØB(3)+
KUNDE.SALDOKØB(4)+KUNDE.SALDOKØB(5)+KUNDE.SALDOKØB(6)<>PPOST.REEL(1)
THEN WRITELN(LIST,'****** FEJL I KONTOUDTOG, UDSENDES IKKE ******')
ELSE
WRITELN(LIST);
END;
PROCEDURE BREV;
BEGIN
HEAD(1);
FOR I:=1 TO 22 DO WRITELN(LIST,' ':4,LINE(I));
FOR I:=1 TO 4 DO WRITELN(LIST)
END;
PROCEDURE SKRIVLIN;
BEGIN
LINIE:=LINIE+1;
IF LINIE=20 THEN
BEGIN
FOR I:=1 TO 103 DO WRITELN(LIST);
HEAD(1);
LINIE:=1
END;
WITH PPOST DO
BEGIN
WRITE(LIST,HELTAL(3)*10000.0+HELTAL(4):9:-2,
HELTAL(6)*10000.0+HELTAL(7):7:-2,' ':2,
PTYPE(HELTAL(5)),' ':13);
IF REEL(1)>0 THEN
BEGIN
WRITELN(LIST,REEL(1)/100:13:2);
IF (TOTAL<0.0) AND (REEL(2)>0.0) THEN
BEGIN
REEL(2):=REEL(2)+TOTAL;
IF REEL(2)<=0.0 THEN
BEGIN
KUNDE.NR(12):=KUNDE.NR(12)+1;
REEL(2):=0.0
END
END;
TOTAL:=TOTAL+REEL(1)
END
ELSE
BEGIN
WRITELN(LIST,' ':13,-REEL(1)/100:13:2);
REEL(2):=0.0;
TOTAL:=TOTAL+REEL(1)
END
END
END;
PROCEDURE KONTOUDT;
VAR RENT:BOOLEAN;
BEGIN
LINIE:=0;
WITH PPOST,KUNDE DO
BEGIN
WHILE (HELTAL(5)<>10) AND (IER=0) AND (HELTAL(1)=NR(1)) AND
(HELTAL(2)=NR(2)) DO NEXTREC(PZ.H,FPOST,PPOST.A);
IF (IER<>0) AND (IER<>-2) THEN ERROR;
TOTAL:=0.0;
RENT:=FALSE;
HEAD(1);
IF (HELTAL(1)<>NR(1)) OR (HELTAL(2)<>NR(2)) OR (IER=-2) THEN
BEGIN
HELTAL(1):=NR(1);
HELTAL(2):=NR(2);
FOR I:=3 TO 7 DO HELTAL(I):=0;
HELTAL(5):=-1;
NEXTREC(PZ.H,FPOST,PPOST.A);
IF IER<>-1 THEN ERROR;IER:=0
END
ELSE
BEGIN
SKRIVLIN;
DELETE(PZ.H,FPOST,PPOST.A);
END;
WHILE (IER=0) AND (NR(1)=HELTAL(1)) AND (NR(2)=HELTAL(2)) DO
BEGIN
IF HELTAL(5)=9 THEN RENT:=TRUE;
SKRIVLIN;
PUTREC(PZ.H,FPOST,PPOST.A);
NEXTREC(PZ.H,FPOST,PPOST.A)
END;
IF (IER<>-2) AND (IER<>0) THEN ERROR;
IF NOFIND THEN REPEAT WRITELN(LIST);LINIE:=LINIE+1 UNTIL LINIE=26
ELSE
BEGIN
HELTAL(1):=NR(1);
HELTAL(2):=NR(2);
HELTAL(3):=SYSFIL^.HELTAL(1);
HELTAL(4):=SYSFIL^.HELTAL(2);
HELTAL(5):=10;
HELTAL(6):=0;
HELTAL(7):=0;
REEL(1):=0.0;
FOR I:=1 TO 6 DO REEL(1):=REEL(1)+SALDOKØB(I);
REEL(2):=REEL(1);
INSERT(PZ.H,FPOST,PPOST.A);
WHILE LINIE<18 DO
BEGIN
WRITELN(LIST);
LINIE:=LINIE+1
END;
LINIE:=LINIE+1;
IF REEL(1)<>TOTAL THEN
WRITELN(LIST,' ':18,'JUSTERING',' ':19,(REEL(1)-TOTAL)/100:13:2)
ELSE WRITELN(LIST);
IF RENT THEN
BEGIN
WRITELN(LIST,' ',TEKST(3));
WRITELN(LIST,' ',TEKST(4))
END
ELSE
BEGIN
WRITELN(LIST);
WRITELN(LIST)
END;
WRITELN(LIST);
LINIE:=LINIE+3;
PRKUNOPL;
R:=SALDOKØB(5);
SALDOKØB(5):=SALDOKØB(6)+SALDOKØB(4);
SALDOKØB(6):=R;
SALDOKØB(4):=SALDOKØB(3);
SALDOKØB(3):=SALDOKØB(2);
SALDOKØB(2):=SALDOKØB(1);
SALDOKØB(1):=0.0;
SALDOKØB(8):=0.0;
END
END
END;
PROCEDURE RESTORDRER;
BEGIN
RESTORD.HEAD(1):=KUNDE.NR(1);
RESTORD.HEAD(2):=KUNDE.NR(2);
RESTORD.HEAD(3):=-1;
NEXTREC(RZ.H,FROR,RESTORD.A);
LINIE:=0;
HEAD(0);
IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;
IF (RESTORD.HEAD(1)=KUNDE.NR(1)) AND (RESTORD.HEAD(2)=KUNDE.NR(2))
THEN
REPEAT
LINIE:=LINIE+1;
IF LINIE=22 THEN
BEGIN
FOR I:=1 TO 101 DO WRITELN(LIST);
HEAD(0);
LINIE:=1
END;
VARE.HELTAL(1):=RESTORD.HEAD(3);
GETREC(VZ.H,FVAR,VARE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
IF IER=0 THEN
BEGIN
WRITE(LIST,RESTORD.HEAD(3):9,' ':3,VARE.NAVN(1):30,' ':4);
WRITELN(LIST,RESTORD.ANTAL:6:-2,RESTORD.HEAD(4)*10000.0+
RESTORD.HEAD(5):12:-2);
END
ELSE
WRITELN(LIST,RESTORD.HEAD(3):9,' ':3,'FINDES IKKE');
NEXTREC(RZ.H,FROR,RESTORD.A)
UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR
(RESTORD.HEAD(2)<>KUNDE.NR(2));
IF LINIE=0 THEN
BEGIN
WRITELN(LIST,' ':12,'Ingen restordrer');
LINIE:=1
END;
WHILE LINIE<21 DO BEGIN WRITELN(LIST);LINIE:=LINIE+1 END;
WRITELN(LIST,' ',TEKST(1));
WRITELN(LIST,' ',TEKST(2));
FOR I:=1 TO 3 DO WRITELN(LIST);
IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;
END;
PROCEDURE INITTEXT;
BEGIN
PTYPE(0):='Fejl-postering ';
PTYPE(1):='Faktura ';
PTYPE(2):='Kreditnota ';
PTYPE(3):='Indbetaling ';
PTYPE(4):='Udbetaling ';
PTYPE(5):='Kasserabat ';
PTYPE(6):='Rabatrettelse ';
PTYPE(7):='Renterettelse ';
PTYPE(9):='Rentenota ';
PTYPE(10):='Sidste udtog ';
TEKST(1):=
'Dette er en ny ajourført liste over Deres restordrer, som leveres så ';
TEKST(2):=
'snart varerne igen er på lager. Bedes gemt til de modtager en ny. ';
TEKST(3):=
'Da vi har konstateret, at De har overskredet vore betalingsbetingelser, ';
TEKST(4):=
'har vi tilladt os at debitere Dem renter jvnf. ovenstående. ';
REPEAT
CLEARSCREEN;
WRITELN('Rentetekst');
WRITELN(TEKST(3));
WRITELN(TEKST(4));
GOTOXY(1,2);EDIT(TEKST(3));
GOTOXY(1,3);EDIT(TEKST(4));
WRITELN('Restordretekst');
WRITELN(TEKST(1));
WRITELN(TEKST(2));
GOTOXY(1,5);EDIT(TEKST(1));
GOTOXY(1,6);EDIT(TEKST(2));
WRITELN('Tilfreds (J/N)');
REPEAT
GOTOXY(17,7);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
UNTIL (CH='J') OR (CH='j');
END;
BEGIN
FILNAVN2:='BREV:P1:0:K';
RESET(F,FILNAVN2);
READLN(F);
FOR I:=1 TO 22 DO READLN(F,LINE(I));
CLOSE(F);
FILNAVN2:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FILNAVN2);
SEEK(NRPF,1)
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
NRPF^.NP:=1;
SEEK(NRPF,1);
PUT(NRPF);
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C1:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
CLOSE(NRPF);
FILNAVN2:='KUNDERG:P2:1338:I';
REWRITE(FKUN,FILNAVN2);
IOPEN(KZ.H,FKUN,SKRIV);
IF IER<>0 THEN OFEJL;
FILNAVN2:='LANDEREG:P2:0:I';
REWRITE(LANDFIL,FILNAVN2);
FILNAVN2:='BETAREG:P2:0000:I';
RESET(FBETA,FILNAVN2);
IOPEN(BZ.H,FBETA,LÆS);
FILNAVN2:='REGVARE:P1:0000:I';
RESET(FVAR,FILNAVN2);
IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN ERROR;
FILNAVN2:='RESTREG:P2:0000:I';
RESET(FROR,FILNAVN2);
IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN ERROR;
FILNAVN2:='POSTREG:P2:0000:I';
REWRITE(FPOST,FILNAVN2);
IOPEN(PZ.H,FPOST,SKRIV);
IF IER<>0 THEN ERROR;
FILNAVN2:='SYSREG:P2:1:I';
RESET(SYSFIL,FILNAVN2);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
INITTEXT;
FOR I:=1 TO 7 DO PPOST.HELTAL(I):=0;
NEXTREC(PZ.H,FPOST,PPOST.A);
IF IER<>-1 THEN ERROR;IER:=0;
WHILE IER=0 DO
WITH PPOST,KUNDE DO
BEGIN
NOFIND:=FALSE;
NR(1):=HELTAL(1);
NR(2):=HELTAL(2);
GETREC(KZ.H,FKUN,KUNDE.A);
IF (IER<>0) AND (IER<>-6) THEN ERROR;
IF IER=-6 THEN BEGIN NOFIND:=TRUE;IER:=0 END;
IF NR(3)=1 THEN
BEGIN
BETA.NR(1):=NR(1);
BETA.NR(2):=NR(2);
GETREC(BZ.H,FBETA,BETA.A);
IF IER<>0 THEN IF IER=-6 THEN BEGIN NOFIND:=TRUE;IER:=0 END
ELSE ERROR;
END;
IF NOT NOFIND THEN
FOR I:=1 TO 6 DO
IF SALDOKØB(I)<>0.0 THEN
BEGIN
KONTOUDT;
BREV;
RESTORDRER;
PUTREC(KZ.H,FKUN,KUNDE.A);
I:=6;
END;
NEXTREC(PZ.H,FPOST,PPOST.A)
END;
IF IER<>-2 THEN ERROR;
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…001b Line {l1=0x19, l2=»PROGRAM MÅNEDSAFSLUTNING;«, l3=0x19}
0x001b…001e Line {l1=0x01, l2=» «, l3=0x01}
0x001e…002c Line {l1=0x0c, l2=»CONST DK=8;«, l3=0x0c}
0x002c…003b Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x003b…0049 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x0049…0057 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0057…007b Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x007b…00b6 Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x00b6…00e4 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00e4…0111 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0111…013b Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x013b…0161 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0161…0167 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0167…0175 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x0175…0188 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0188…01ab Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x01ab…01b1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01b1…01c0 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x01c0…01d6 Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x01d6…0200 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0200…0249 Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x0249…026a Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x026a…02a5 Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x02a5…02c6 Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x02c6…02ee Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x02ee…0334 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x0334…0378 Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x0378…0380 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0380…0390 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0390…03a4 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x03a4…03c8 Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x03c8…03d0 Line {l1=0x06, l2=» END;«, l3=0x06}
0x03d0…03e1 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x03e1…03ef Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x03ef…043e Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x043e…0473 Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x0473…0479 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0479…048a Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x048a…049d Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x049d…04c1 Line {l1=0x22, l2=» T:ARRAY (1..508) OF INTEGER«, l3=0x22}
0x04c1…04c7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04c7…04f7 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x04f7…0507 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0507…0530 Line {l1=0x27, l2=» HELTAL:ARRAY (1..24) OF INTEGER;«, l3=0x27}
0x0530…0552 Line {l1=0x20, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x20}
0x0552…0580 Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x0580…05ba Line {l1=0x38, l2=» KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x38}
0x05ba…05c0 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05c0…05da Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x05da…05eb Line {l1=0x0f, l2=»BETAPOST=RECORD«, l3=0x0f}
0x05eb…05f9 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x05f9…061d Line {l1=0x22, l2=» NR:ARRAY (1..3) OF INTEGER;«, l3=0x22}
0x061d…0638 Line {l1=0x19, l2=» (*KNR1,KNR2,LAND*)«, l3=0x19}
0x0638…0673 Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x0673…0690 Line {l1=0x1b, l2=» (*NAVN,UDVNAVN,ADR*)«, l3=0x1b}
0x0690…06be Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x06be…06eb Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x06eb…0714 Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x0714…071a Line {l1=0x04, l2=»END;«, l3=0x04}
0x071a…072b Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x072b…073e Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x073e…0761 Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x0761…0767 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0767…0778 Line {l1=0x0f, l2=» RORPOST=RECORD«, l3=0x0f}
0x0778…0787 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0787…079b Line {l1=0x12, l2=» (* KNR1,KNR2,«, l3=0x12}
0x079b…07a9 Line {l1=0x0c, l2=» VNR,«, l3=0x0c}
0x07a9…07e4 Line {l1=0x39, l2=» DAT1,DAT2:INTEGER;*) HEAD:ARRAY(1..5) OF INTEGER;«, l3=0x39}
0x07e4…07f8 Line {l1=0x12, l2=» ANTAL:REAL«, l3=0x12}
0x07f8…0800 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0800…0811 Line {l1=0x0f, l2=» RORZONE=RECORD«, l3=0x0f}
0x0811…0825 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0825…0849 Line {l1=0x22, l2=» T:ARRAY(1..327) OF INTEGER«, l3=0x22}
0x0849…0851 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0851…0862 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x0862…087e Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x087e…0884 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0884…089e Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x089e…08c6 Line {l1=0x26, l2=»VAR FBETA,FVAR,FROR,FPOST,FKUN:ISF;«, l3=0x26}
0x08c6…08db Line {l1=0x13, l2=» BZ:BETAZONE;«, l3=0x13}
0x08db…08f2 Line {l1=0x15, l2=» BETA:BETAPOST;«, l3=0x15}
0x08f2…0904 Line {l1=0x10, l2=» VZ:VZONE;«, l3=0x10}
0x0904…0918 Line {l1=0x12, l2=» VARE:VPOST;«, l3=0x12}
0x0918…0930 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x0930…0945 Line {l1=0x13, l2=» PZ:POSTZONE;«, l3=0x13}
0x0945…095d Line {l1=0x16, l2=» PPOST:POSTPOST;«, l3=0x16}
0x095d…0987 Line {l1=0x28, l2=» LINE:ARRAY (1..22) OF STRING(72);«, l3=0x28}
0x0987…09b0 Line {l1=0x27, l2=» TEKST:ARRAY(1..4) OF STRING(72);«, l3=0x27}
0x09b0…09c4 Line {l1=0x12, l2=» RZ:RORZONE;«, l3=0x12}
0x09c4…09de Line {l1=0x18, l2=» LANDFIL:LANDFILE;«, l3=0x18}
0x09de…09f7 Line {l1=0x17, l2=» RESTORD:RORPOST;«, l3=0x17}
0x09f7…0a0f Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0a0f…0a25 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0a25…0a36 Line {l1=0x0f, l2=» CH:CHAR;«, l3=0x0f}
0x0a36…0a47 Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x0a47…0a64 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0a64…0a83 Line {l1=0x1d, l2=» LINIE,J,IER,I:INTEGER;«, l3=0x1d}
0x0a83…0a97 Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x0a97…0ad4 Line {l1=0x3b, l2=» PTYPE:ARRAY (0..10) OF PACKED ARRAY (1..15) OF CHAR;«, l3=0x3b}
0x0ad4…0aff Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x0aff…0b15 Line {l1=0x14, l2=» R,TOTAL:REAL;«, l3=0x14}
0x0b15…0b25 Line {l1=0x0e, l2=» F:TEXT;«, l3=0x0e}
0x0b25…0b3d Line {l1=0x16, l2=» NOFIND:BOOLEAN;«, l3=0x16}
0x0b3d…0b40 Line {l1=0x01, l2=» «, l3=0x01}
0x0b40…0b49 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0b49…0b5c Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0b5c…0b69 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x0b69…0b79 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0b79…0b89 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0b89…0b98 Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x0b98…0ba7 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0ba7…0bb5 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0bb5…0bc3 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0bc3…0bd0 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0bd0…0bde Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x0bde…0bec Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0bec…0bf5 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0bf5…0bfe Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0bfe…0c10 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0c10…0c17 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c17…0c3b Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x0c3b…0c51 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x0c51…0c68 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x0c68…0c7e Line {l1=0x14, l2=» ICLOSE(RZ.H,FROR);«, l3=0x14}
0x0c7e…0c94 Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x0c94…0caf Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x0caf…0cbd Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x0cbd…0cc3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0cc3…0cd5 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0cd5…0cdc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0cdc…0ced Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0ced…0d32 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0d32…0d62 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0d62…0d9b Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0d9b…0db2 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0db2…0dc1 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0dc1…0dc7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dc7…0de3 Line {l1=0x1a, l2=»PROCEDURE HEAD(J:INTEGER);«, l3=0x1a}
0x0de3…0df3 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0df3…0dfa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0dfa…0e1d Line {l1=0x21, l2=» FOR I:=1 TO 9 DO WRITELN(LIST);«, l3=0x21}
0x0e1d…0e2c Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x0e2c…0e3c Line {l1=0x0e, l2=»IF NOFIND THEN«, l3=0x0e}
0x0e3c…0e43 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e43…0e67 Line {l1=0x22, l2=» FOR I:=1 TO 11 DO WRITELN(LIST);«, l3=0x22}
0x0e67…0eb2 Line {l1=0x49, l2=» WRITELN(LIST,NR(1)*10000.0+NR(2):9:-2,' ':52,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x49}
0x0eb2…0efc Line {l1=0x48, l2=» SYSFIL^.HELTAL(2):10:-2);«, l3=0x48}
0x0efc…0f0d Line {l1=0x0f, l2=» WRITELN(LIST)«, l3=0x0f}
0x0f0d…0f12 Line {l1=0x03, l2=»END«, l3=0x03}
0x0f12…0f18 Line {l1=0x04, l2=»ELSE«, l3=0x04}
0x0f18…0f1f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f1f…0f3e Line {l1=0x1d, l2=» IF (NR(3)=1) AND (J=1) THEN«, l3=0x1d}
0x0f3e…0f47 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f47…0f65 Line {l1=0x1c, l2=» I:=0;«, l3=0x1c}
0x0f65…0f7c Line {l1=0x15, l2=» REPEAT I:=I+1«, l3=0x15}
0x0f7c…0fab Line {l1=0x2d, l2=» UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');«, l3=0x2d}
0x0fab…0fcf Line {l1=0x22, l2=» IF BETA.NAVN(1,I)=' ' THEN«, l3=0x22}
0x0fcf…0fdd Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0fdd…1009 Line {l1=0x2a, l2=» MOVELEFT(BETA.NAVN(1,5),NAME,26);«, l3=0x2a}
0x1009…1031 Line {l1=0x26, l2=» WRITE(LIST,' ':6,NAME,' ':14)«, l3=0x26}
0x1031…103d Line {l1=0x0a, l2=» END«, l3=0x0a}
0x103d…104a Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x104a…107b Line {l1=0x2f, l2=» WRITE(LIST,' ':6,BETA.NAVN(1),' ':10);«, l3=0x2f}
0x107b…1089 Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x1089…109f Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x109f…10c8 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x10c8…10e6 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x10e6…10f4 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x10f4…111b Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x111b…1138 Line {l1=0x1b, l2=» WRITELN(LIST,NAME)«, l3=0x1b}
0x1138…1144 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1144…1151 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1151…1172 Line {l1=0x1f, l2=» WRITELN(LIST,NAVN(1));«, l3=0x1f}
0x1172…11ab Line {l1=0x37, l2=» WRITELN(LIST,' ':6,BETA.NAVN(2),' ':10,NAVN(2));«, l3=0x37}
0x11ab…11e4 Line {l1=0x37, l2=» WRITELN(LIST,' ':6,BETA.NAVN(3),' ':10,NAVN(3));«, l3=0x37}
0x11e4…121d Line {l1=0x37, l2=» WRITELN(LIST,' ':6,BETA.LANDSBY,' ':20,LANDSBY);«, l3=0x37}
0x121d…1254 Line {l1=0x35, l2=» WRITELN(LIST,' ':6,BETA.POSTNR,' ':15,POSTNR);«, l3=0x35}
0x1254…1272 Line {l1=0x1c, l2=» IF BETA.NR(3)=DK THEN«, l3=0x1c}
0x1272…128f Line {l1=0x1b, l2=» WRITE(LIST,' ':46)«, l3=0x1b}
0x128f…129c Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x129c…12aa Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x12aa…12ce Line {l1=0x22, l2=» SEEK(LANDFIL,BETA.NR(3));«, l3=0x22}
0x12ce…12e6 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x12e6…1312 Line {l1=0x2a, l2=» WRITE(LIST,' ':6,LANDFIL^,' ':10)«, l3=0x2a}
0x1312…131f Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x131f…1338 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1338…1350 Line {l1=0x16, l2=» WRITELN(LIST)«, l3=0x16}
0x1350…135d Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x135d…136b Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x136b…138a Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x138a…13a2 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x13a2…13c3 Line {l1=0x1f, l2=» WRITELN(LIST,LANDFIL^)«, l3=0x1f}
0x13c3…13cf Line {l1=0x0a, l2=» END«, l3=0x0a}
0x13cf…13d6 Line {l1=0x05, l2=» END«, l3=0x05}
0x13d6…13de Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x13de…13e7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x13e7…13f5 Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x13f5…140b Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x140b…1434 Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x1434…1452 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x1452…1460 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1460…1487 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x1487…14aa Line {l1=0x21, l2=» WRITELN(LIST,' ':6,NAME)«, l3=0x21}
0x14aa…14b6 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x14b6…14c3 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x14c3…14e8 Line {l1=0x23, l2=» WRITELN(LIST,' ':6,NAVN(1));«, l3=0x23}
0x14e8…150d Line {l1=0x23, l2=» WRITELN(LIST,' ':6,NAVN(2));«, l3=0x23}
0x150d…1532 Line {l1=0x23, l2=» WRITELN(LIST,' ':6,NAVN(3));«, l3=0x23}
0x1532…1557 Line {l1=0x23, l2=» WRITELN(LIST,' ':6,LANDSBY);«, l3=0x23}
0x1557…157b Line {l1=0x22, l2=» WRITELN(LIST,' ':6,POSTNR);«, l3=0x22}
0x157b…1594 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1594…15ac Line {l1=0x16, l2=» WRITELN(LIST)«, l3=0x16}
0x15ac…15b9 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x15b9…15c7 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x15c7…15e6 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x15e6…15fe Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x15fe…1625 Line {l1=0x25, l2=» WRITELN(LIST,' ':6,LANDFIL^)«, l3=0x25}
0x1625…1631 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1631…1639 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1639…165c Line {l1=0x21, l2=» FOR I:=1 TO 5 DO WRITELN(LIST);«, l3=0x21}
0x165c…16a7 Line {l1=0x49, l2=» WRITELN(LIST,NR(1)*10000.0+NR(2):9:-2,' ':52,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x49}
0x16a7…16f1 Line {l1=0x48, l2=» SYSFIL^.HELTAL(2):10:-2);«, l3=0x48}
0x16f1…1702 Line {l1=0x0f, l2=» WRITELN(LIST)«, l3=0x0f}
0x1702…1707 Line {l1=0x03, l2=»END«, l3=0x03}
0x1707…170d Line {l1=0x04, l2=»END;«, l3=0x04}
0x170d…1722 Line {l1=0x13, l2=»PROCEDURE PRKUNOPL;«, l3=0x13}
0x1722…1729 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1729…174e Line {l1=0x23, l2=» IF NOFIND THEN WRITELN(LIST) ELSE«, l3=0x23}
0x174e…175f Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x175f…1768 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1768…178b Line {l1=0x21, l2=» WRITE(LIST,SALDOKØB(7)/100:9:2,«, l3=0x21}
0x178b…17bf Line {l1=0x32, l2=» (SALDOKØB(1)+SALDOKØB(2))/100:12:2,«, l3=0x32}
0x17bf…17f3 Line {l1=0x32, l2=» (SALDOKØB(3)+SALDOKØB(4))/100:12:2,«, l3=0x32}
0x17f3…1828 Line {l1=0x33, l2=» (SALDOKØB(5)+SALDOKØB(6))/100:13:2);«, l3=0x33}
0x1828…1845 Line {l1=0x1b, l2=» IF PPOST.REEL(1)<0.0 THEN«, l3=0x1b}
0x1845…1878 Line {l1=0x31, l2=» WRITELN(LIST,' ':13,-PPOST.REEL(1)/100:13:2)«, l3=0x31}
0x1878…1880 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1880…18ac Line {l1=0x2a, l2=» WRITELN(LIST,PPOST.REEL(1)/100:13:2);«, l3=0x2a}
0x18ac…18b4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x18b4…18b7 Line {l1=0x01, l2=» «, l3=0x01}
0x18b7…18cb Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
[…0x1…]
0x18df…191e Line {l1=0x3d, l2=» IF KUNDE.SALDOKØB(1)+KUNDE.SALDOKØB(2)+KUNDE.SALDOKØB(3)+«, l3=0x3d}
0x191e…196b Line {l1=0x4b, l2=» KUNDE.SALDOKØB(4)+KUNDE.SALDOKØB(5)+KUNDE.SALDOKØB(6)<>PPOST.REEL(1)«, l3=0x4b}
0x196b…19b4 Line {l1=0x47, l2=» THEN WRITELN(LIST,'****** FEJL I KONTOUDTOG, UDSENDES IKKE ******')«, l3=0x47}
0x19b4…19be Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x19be…19d2 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x19d2…19d8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x19d8…19e9 Line {l1=0x0f, l2=»PROCEDURE BREV;«, l3=0x0f}
0x19e9…19f0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x19f0…19fc Line {l1=0x0a, l2=» HEAD(1);«, l3=0x0a}
0x19fc…1a2e Line {l1=0x30, l2=» FOR I:=1 TO 22 DO WRITELN(LIST,' ':4,LINE(I));«, l3=0x30}
0x1a2e…1a50 Line {l1=0x20, l2=» FOR I:=1 TO 4 DO WRITELN(LIST)«, l3=0x20}
0x1a50…1a56 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a56…1a6b Line {l1=0x13, l2=»PROCEDURE SKRIVLIN;«, l3=0x13}
0x1a6b…1a72 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1a72…1a85 Line {l1=0x11, l2=» LINIE:=LINIE+1;«, l3=0x11}
0x1a85…1a99 Line {l1=0x12, l2=» IF LINIE=20 THEN«, l3=0x12}
0x1a99…1aa2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1aa2…1ac9 Line {l1=0x25, l2=» FOR I:=1 TO 103 DO WRITELN(LIST);«, l3=0x25}
0x1ac9…1ad7 Line {l1=0x0c, l2=» HEAD(1);«, l3=0x0c}
0x1ad7…1ae5 Line {l1=0x0c, l2=» LINIE:=1«, l3=0x0c}
0x1ae5…1aed Line {l1=0x06, l2=» END;«, l3=0x06}
0x1aed…1afe Line {l1=0x0f, l2=» WITH PPOST DO«, l3=0x0f}
0x1afe…1b07 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b07…1b39 Line {l1=0x30, l2=» WRITE(LIST,HELTAL(3)*10000.0+HELTAL(4):9:-2,«, l3=0x30}
0x1b39…1b6c Line {l1=0x31, l2=» HELTAL(6)*10000.0+HELTAL(7):7:-2,' ':2,«, l3=0x31}
0x1b6c…1b91 Line {l1=0x23, l2=» PTYPE(HELTAL(5)),' ':13);«, l3=0x23}
0x1b91…1ba9 Line {l1=0x16, l2=» IF REEL(1)>0 THEN«, l3=0x16}
0x1ba9…1bb5 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x1bb5…1bdd Line {l1=0x26, l2=» WRITELN(LIST,REEL(1)/100:13:2);«, l3=0x26}
0x1bdd…1c0b Line {l1=0x2c, l2=» IF (TOTAL<0.0) AND (REEL(2)>0.0) THEN«, l3=0x2c}
0x1c0b…1c19 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1c19…1c3b Line {l1=0x20, l2=» REEL(2):=REEL(2)+TOTAL;«, l3=0x20}
0x1c3b…1c5a Line {l1=0x1d, l2=» IF REEL(2)<=0.0 THEN«, l3=0x1d}
0x1c5a…1c6a Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x1c6a…1c94 Line {l1=0x28, l2=» KUNDE.NR(12):=KUNDE.NR(12)+1;«, l3=0x28}
0x1c94…1cad Line {l1=0x17, l2=» REEL(2):=0.0«, l3=0x17}
0x1cad…1cbb Line {l1=0x0c, l2=» END«, l3=0x0c}
0x1cbb…1cc8 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1cc8…1ce5 Line {l1=0x1b, l2=» TOTAL:=TOTAL+REEL(1)«, l3=0x1b}
0x1ce5…1cef Line {l1=0x08, l2=» END«, l3=0x08}
0x1cef…1cfa Line {l1=0x09, l2=» ELSE«, l3=0x09}
0x1cfa…1d06 Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x1d06…1d36 Line {l1=0x2e, l2=» WRITELN(LIST,' ':13,-REEL(1)/100:13:2);«, l3=0x2e}
0x1d36…1d4c Line {l1=0x14, l2=» REEL(2):=0.0;«, l3=0x14}
0x1d4c…1d69 Line {l1=0x1b, l2=» TOTAL:=TOTAL+REEL(1)«, l3=0x1b}
0x1d69…1d73 Line {l1=0x08, l2=» END«, l3=0x08}
0x1d73…1d7a Line {l1=0x05, l2=» END«, l3=0x05}
0x1d7a…1d80 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d80…1d95 Line {l1=0x13, l2=»PROCEDURE KONTOUDT;«, l3=0x13}
0x1d95…1dab Line {l1=0x14, l2=»VAR RENT:BOOLEAN;«, l3=0x14}
0x1dab…1db2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1db2…1dbf Line {l1=0x0b, l2=» LINIE:=0;«, l3=0x0b}
0x1dbf…1dd6 Line {l1=0x15, l2=» WITH PPOST,KUNDE DO«, l3=0x15}
0x1dd6…1ddf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1ddf…1e22 Line {l1=0x41, l2=» WHILE (HELTAL(5)<>10) AND (IER=0) AND (HELTAL(1)=NR(1)) AND«, l3=0x41}
0x1e22…1e61 Line {l1=0x3d, l2=» (HELTAL(2)=NR(2)) DO NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x3d}
0x1e61…1e8e Line {l1=0x2b, l2=» IF (IER<>0) AND (IER<>-2) THEN ERROR;«, l3=0x2b}
0x1e8e…1ea1 Line {l1=0x11, l2=» TOTAL:=0.0;«, l3=0x11}
0x1ea1…1eb5 Line {l1=0x12, l2=» RENT:=FALSE;«, l3=0x12}
0x1eb5…1ec5 Line {l1=0x0e, l2=» HEAD(1);«, l3=0x0e}
0x1ec5…1f09 Line {l1=0x42, l2=» IF (HELTAL(1)<>NR(1)) OR (HELTAL(2)<>NR(2)) OR (IER=-2) THEN«, l3=0x42}
0x1f09…1f16 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1f16…1f31 Line {l1=0x19, l2=» HELTAL(1):=NR(1);«, l3=0x19}
0x1f31…1f4c Line {l1=0x19, l2=» HELTAL(2):=NR(2);«, l3=0x19}
0x1f4c…1f74 Line {l1=0x26, l2=» FOR I:=3 TO 7 DO HELTAL(I):=0;«, l3=0x26}
0x1f74…1f8c Line {l1=0x16, l2=» HELTAL(5):=-1;«, l3=0x16}
0x1f8c…1fb2 Line {l1=0x24, l2=» NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x24}
0x1fb2…1fd8 Line {l1=0x24, l2=» IF IER<>-1 THEN ERROR;IER:=0«, l3=0x24}
0x1fd8…1fe3 Line {l1=0x09, l2=» END«, l3=0x09}
0x1fe3…1fef Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1fef…1ffc Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1ffc…200f Line {l1=0x11, l2=» SKRIVLIN;«, l3=0x11}
0x200f…2034 Line {l1=0x23, l2=» DELETE(PZ.H,FPOST,PPOST.A);«, l3=0x23}
0x2034…2040 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2040…2084 Line {l1=0x42, l2=» WHILE (IER=0) AND (NR(1)=HELTAL(1)) AND (NR(2)=HELTAL(2)) DO«, l3=0x42}
0x2084…2091 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2091…20ba Line {l1=0x27, l2=» IF HELTAL(5)=9 THEN RENT:=TRUE;«, l3=0x27}
0x20ba…20cd Line {l1=0x11, l2=» SKRIVLIN;«, l3=0x11}
0x20cd…20f2 Line {l1=0x23, l2=» PUTREC(PZ.H,FPOST,PPOST.A);«, l3=0x23}
0x20f2…2117 Line {l1=0x23, l2=» NEXTREC(PZ.H,FPOST,PPOST.A)«, l3=0x23}
0x2117…2123 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2123…2150 Line {l1=0x2b, l2=» IF (IER<>-2) AND (IER<>0) THEN ERROR;«, l3=0x2b}
0x2150…2199 Line {l1=0x47, l2=» IF NOFIND THEN REPEAT WRITELN(LIST);LINIE:=LINIE+1 UNTIL LINIE=26«, l3=0x47}
0x2199…21a5 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x21a5…21b2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x21b2…21cb Line {l1=0x17, l2=» HELTAL(1):=NR(1);«, l3=0x17}
0x21cb…21e4 Line {l1=0x17, l2=» HELTAL(2):=NR(2);«, l3=0x17}
0x21e4…2209 Line {l1=0x23, l2=» HELTAL(3):=SYSFIL^.HELTAL(1);«, l3=0x23}
0x2209…222e Line {l1=0x23, l2=» HELTAL(4):=SYSFIL^.HELTAL(2);«, l3=0x23}
0x222e…2244 Line {l1=0x14, l2=» HELTAL(5):=10;«, l3=0x14}
0x2244…2259 Line {l1=0x13, l2=» HELTAL(6):=0;«, l3=0x13}
0x2259…226e Line {l1=0x13, l2=» HELTAL(7):=0;«, l3=0x13}
0x226e…2283 Line {l1=0x13, l2=» REEL(1):=0.0;«, l3=0x13}
0x2283…22b9 Line {l1=0x34, l2=» FOR I:=1 TO 6 DO REEL(1):=REEL(1)+SALDOKØB(I);«, l3=0x34}
0x22b9…22d2 Line {l1=0x17, l2=» REEL(2):=REEL(1);«, l3=0x17}
0x22d2…22f5 Line {l1=0x21, l2=» INSERT(PZ.H,FPOST,PPOST.A);«, l3=0x21}
0x22f5…230e Line {l1=0x17, l2=» WHILE LINIE<18 DO«, l3=0x17}
0x230e…231b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x231b…2333 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x2333…234b Line {l1=0x16, l2=» LINIE:=LINIE+1«, l3=0x16}
0x234b…2357 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2357…236e Line {l1=0x15, l2=» LINIE:=LINIE+1;«, l3=0x15}
0x236e…238c Line {l1=0x1c, l2=» IF REEL(1)<>TOTAL THEN«, l3=0x1c}
0x238c…23d6 Line {l1=0x48, l2=» WRITELN(LIST,' ':18,'JUSTERING',' ':19,(REEL(1)-TOTAL)/100:13:2)«, l3=0x48}
0x23d6…23f1 Line {l1=0x19, l2=» ELSE WRITELN(LIST);«, l3=0x19}
0x23f1…2405 Line {l1=0x12, l2=» IF RENT THEN«, l3=0x12}
0x2405…2412 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2412…2437 Line {l1=0x23, l2=» WRITELN(LIST,' ',TEKST(3));«, l3=0x23}
0x2437…245b Line {l1=0x22, l2=» WRITELN(LIST,' ',TEKST(4))«, l3=0x22}
0x245b…2466 Line {l1=0x09, l2=» END«, l3=0x09}
0x2466…2472 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2472…247f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x247f…2497 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x2497…24ae Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0x24ae…24ba Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x24ba…24d0 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x24d0…24e7 Line {l1=0x15, l2=» LINIE:=LINIE+3;«, l3=0x15}
0x24e7…24f8 Line {l1=0x0f, l2=» PRKUNOPL;«, l3=0x0f}
0x24f8…250f Line {l1=0x15, l2=» R:=SALDOKØB(5);«, l3=0x15}
0x250f…253c Line {l1=0x2b, l2=» SALDOKØB(5):=SALDOKØB(6)+SALDOKØB(4);«, l3=0x2b}
0x253c…2553 Line {l1=0x15, l2=» SALDOKØB(6):=R;«, l3=0x15}
0x2553…2574 Line {l1=0x1f, l2=» SALDOKØB(4):=SALDOKØB(3);«, l3=0x1f}
0x2574…2595 Line {l1=0x1f, l2=» SALDOKØB(3):=SALDOKØB(2);«, l3=0x1f}
0x2595…25b6 Line {l1=0x1f, l2=» SALDOKØB(2):=SALDOKØB(1);«, l3=0x1f}
0x25b6…25cf Line {l1=0x17, l2=» SALDOKØB(1):=0.0;«, l3=0x17}
0x25cf…25e8 Line {l1=0x17, l2=» SALDOKØB(8):=0.0;«, l3=0x17}
0x25e8…25f3 Line {l1=0x09, l2=» END«, l3=0x09}
0x25f3…25fa Line {l1=0x05, l2=» END«, l3=0x05}
0x25fa…2600 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2600…2617 Line {l1=0x15, l2=»PROCEDURE RESTORDRER;«, l3=0x15}
0x2617…2620 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2620…2645 Line {l1=0x23, l2=» RESTORD.HEAD(1):=KUNDE.NR(1);«, l3=0x23}
0x2645…266a Line {l1=0x23, l2=» RESTORD.HEAD(2):=KUNDE.NR(2);«, l3=0x23}
0x266a…2686 Line {l1=0x1a, l2=» RESTORD.HEAD(3):=-1;«, l3=0x1a}
0x2686…26ab Line {l1=0x23, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x23}
0x26ab…26bc Line {l1=0x0f, l2=» LINIE:=0;«, l3=0x0f}
0x26bc…26cc Line {l1=0x0e, l2=» HEAD(0);«, l3=0x0e}
0x26cc…270f Line {l1=0x41, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;«, l3=0x41}
0x270f…275d Line {l1=0x4c, l2=» IF (RESTORD.HEAD(1)=KUNDE.NR(1)) AND (RESTORD.HEAD(2)=KUNDE.NR(2))«, l3=0x4c}
0x275d…276d Line {l1=0x0e, l2=» THEN«, l3=0x0e}
0x276d…277f Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x277f…279c Line {l1=0x1b, l2=» LINIE:=LINIE+1;«, l3=0x1b}
0x279c…27ba Line {l1=0x1c, l2=» IF LINIE=22 THEN«, l3=0x1c}
0x27ba…27cd Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x27cd…27fe Line {l1=0x2f, l2=» FOR I:=1 TO 101 DO WRITELN(LIST);«, l3=0x2f}
0x27fe…2816 Line {l1=0x16, l2=» HEAD(0);«, l3=0x16}
0x2816…282e Line {l1=0x16, l2=» LINIE:=1«, l3=0x16}
0x282e…2840 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2840…286e Line {l1=0x2c, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x2c}
0x286e…2895 Line {l1=0x25, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x25}
0x2895…28c8 Line {l1=0x31, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x31}
0x28c8…28e1 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x28e1…28f2 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x28f2…293a Line {l1=0x46, l2=» WRITE(LIST,RESTORD.HEAD(3):9,' ':3,VARE.NAVN(1):30,' ':4);«, l3=0x46}
0x293a…2980 Line {l1=0x44, l2=» WRITELN(LIST,RESTORD.ANTAL:6:-2,RESTORD.HEAD(4)*10000.0+«, l3=0x44}
0x2980…29c6 Line {l1=0x44, l2=» RESTORD.HEAD(5):12:-2);«, l3=0x44}
0x29c6…29d5 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x29d5…29e5 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x29e5…2a27 Line {l1=0x40, l2=» WRITELN(LIST,RESTORD.HEAD(3):9,' ':3,'FINDES IKKE');«, l3=0x40}
0x2a27…2a51 Line {l1=0x28, l2=» NEXTREC(RZ.H,FROR,RESTORD.A)«, l3=0x28}
0x2a51…2a90 Line {l1=0x3d, l2=» UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR«, l3=0x3d}
0x2a90…2acd Line {l1=0x3b, l2=» (RESTORD.HEAD(2)<>KUNDE.NR(2));«, l3=0x3b}
0x2acd…2ae8 Line {l1=0x19, l2=» IF LINIE=0 THEN«, l3=0x19}
0x2ae8…2af9 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2af9…2b2f Line {l1=0x34, l2=» WRITELN(LIST,' ':12,'Ingen restordrer');«, l3=0x34}
0x2b2f…2b45 Line {l1=0x14, l2=» LINIE:=1«, l3=0x14}
0x2b45…2b55 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2b55…2b9a Line {l1=0x43, l2=» WHILE LINIE<21 DO BEGIN WRITELN(LIST);LINIE:=LINIE+1 END;«, l3=0x43}
0x2b9a…2bc1 Line {l1=0x25, l2=» WRITELN(LIST,' ',TEKST(1));«, l3=0x25}
0x2bc1…2be8 Line {l1=0x25, l2=» WRITELN(LIST,' ',TEKST(2));«, l3=0x25}
0x2be8…2c13 Line {l1=0x29, l2=» FOR I:=1 TO 3 DO WRITELN(LIST);«, l3=0x29}
0x2c13…2c52 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;«, l3=0x3d}
0x2c52…2c60 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2c60…2c75 Line {l1=0x13, l2=»PROCEDURE INITTEXT;«, l3=0x13}
0x2c75…2c7c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2c7c…2c9c Line {l1=0x1e, l2=» PTYPE(0):='Fejl-postering ';«, l3=0x1e}
0x2c9c…2cbc Line {l1=0x1e, l2=» PTYPE(1):='Faktura ';«, l3=0x1e}
0x2cbc…2cdc Line {l1=0x1e, l2=» PTYPE(2):='Kreditnota ';«, l3=0x1e}
0x2cdc…2cfc Line {l1=0x1e, l2=» PTYPE(3):='Indbetaling ';«, l3=0x1e}
0x2cfc…2d1c Line {l1=0x1e, l2=» PTYPE(4):='Udbetaling ';«, l3=0x1e}
0x2d1c…2d3c Line {l1=0x1e, l2=» PTYPE(5):='Kasserabat ';«, l3=0x1e}
0x2d3c…2d5c Line {l1=0x1e, l2=» PTYPE(6):='Rabatrettelse ';«, l3=0x1e}
0x2d5c…2d7c Line {l1=0x1e, l2=» PTYPE(7):='Renterettelse ';«, l3=0x1e}
0x2d7c…2d9c Line {l1=0x1e, l2=» PTYPE(9):='Rentenota ';«, l3=0x1e}
0x2d9c…2dbd Line {l1=0x1f, l2=» PTYPE(10):='Sidste udtog ';«, l3=0x1f}
0x2dbd…2dcb Line {l1=0x0c, l2=» TEKST(1):=«, l3=0x0c}
0x2dcb…2e18 Line {l1=0x4b, l2=»'Dette er en ny ajourført liste over Deres restordrer, som leveres så ';«, l3=0x4b}
0x2e18…2e26 Line {l1=0x0c, l2=» TEKST(2):=«, l3=0x0c}
0x2e26…2e73 Line {l1=0x4b, l2=»'snart varerne igen er på lager. Bedes gemt til de modtager en ny. ';«, l3=0x4b}
0x2e73…2e7f Line {l1=0x0a, l2=»TEKST(3):=«, l3=0x0a}
0x2e7f…2ecc Line {l1=0x4b, l2=»'Da vi har konstateret, at De har overskredet vore betalingsbetingelser, ';«, l3=0x4b}
0x2ecc…2ed9 Line {l1=0x0b, l2=» TEKST(4):=«, l3=0x0b}
0x2ed9…2f26 Line {l1=0x4b, l2=»'har vi tilladt os at debitere Dem renter jvnf. ovenstående. ';«, l3=0x4b}
0x2f26…2f30 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2f30…2f42 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2f42…2f5e Line {l1=0x1a, l2=» WRITELN('Rentetekst');«, l3=0x1a}
0x2f5e…2f76 Line {l1=0x16, l2=» WRITELN(TEKST(3));«, l3=0x16}
0x2f76…2f8e Line {l1=0x16, l2=» WRITELN(TEKST(4));«, l3=0x16}
0x2f8e…2faf Line {l1=0x1f, l2=» GOTOXY(1,2);EDIT(TEKST(3));«, l3=0x1f}
0x2faf…2fd0 Line {l1=0x1f, l2=» GOTOXY(1,3);EDIT(TEKST(4));«, l3=0x1f}
0x2fd0…2ff0 Line {l1=0x1e, l2=» WRITELN('Restordretekst');«, l3=0x1e}
0x2ff0…3008 Line {l1=0x16, l2=» WRITELN(TEKST(1));«, l3=0x16}
0x3008…3020 Line {l1=0x16, l2=» WRITELN(TEKST(2));«, l3=0x16}
0x3020…3041 Line {l1=0x1f, l2=» GOTOXY(1,5);EDIT(TEKST(1));«, l3=0x1f}
0x3041…3062 Line {l1=0x1f, l2=» GOTOXY(1,6);EDIT(TEKST(2));«, l3=0x1f}
0x3062…3083 Line {l1=0x1f, l2=» WRITELN('Tilfreds (J/N)');«, l3=0x1f}
0x3083…308f Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x308f…30b4 Line {l1=0x23, l2=» GOTOXY(17,7);READLN;READ(CH)«, l3=0x23}
0x30b4…3100 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4a}
0x3100…311f Line {l1=0x1d, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1d}
0x311f…3125 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3125…312c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x312c…3148 Line {l1=0x1a, l2=» FILNAVN2:='BREV:P1:0:K';«, l3=0x1a}
0x3148…315e Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x315e…316c Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x316c…3194 Line {l1=0x26, l2=» FOR I:=1 TO 22 DO READLN(F,LINE(I));«, l3=0x26}
0x3194…31a1 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x31a1…31c1 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x31c1…31ca Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x31ca…31d4 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x31d4…31f1 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x31f1…3203 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x3203…3218 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x3218…3221 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x3221…322f Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x322f…323f Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x323f…3250 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x3250…325e Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x325e…3268 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3268…327b Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x327b…32b0 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x32b0…32bd Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x32bd…32c6 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x32c6…32e4 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x32e4…32f4 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x32f4…32fd Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x32fd…3312 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x3312…3320 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x3320…3330 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x3330…3333 Line {l1=0x01, l2=» «, l3=0x01}
0x3333…3355 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x3355…3370 Line {l1=0x19, l2=» REWRITE(FKUN,FILNAVN2);«, l3=0x19}
0x3370…338b Line {l1=0x19, l2=» IOPEN(KZ.H,FKUN,SKRIV);«, l3=0x19}
0x338b…33a4 Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x33a4…33a7 Line {l1=0x01, l2=» «, l3=0x01}
0x33a7…33c7 Line {l1=0x1e, l2=» FILNAVN2:='LANDEREG:P2:0:I';«, l3=0x1e}
0x33c7…33e5 Line {l1=0x1c, l2=» REWRITE(LANDFIL,FILNAVN2);«, l3=0x1c}
0x33e5…33e8 Line {l1=0x01, l2=» «, l3=0x01}
0x33e8…340a Line {l1=0x20, l2=» FILNAVN2:='BETAREG:P2:0000:I';«, l3=0x20}
0x340a…3424 Line {l1=0x18, l2=» RESET(FBETA,FILNAVN2);«, l3=0x18}
0x3424…343e Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x343e…3441 Line {l1=0x01, l2=» «, l3=0x01}
0x3441…3463 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:0000:I';«, l3=0x20}
0x3463…347c Line {l1=0x17, l2=» RESET(FVAR,FILNAVN2);«, l3=0x17}
0x347c…34aa Line {l1=0x2c, l2=» IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x34aa…34cc Line {l1=0x20, l2=» FILNAVN2:='RESTREG:P2:0000:I';«, l3=0x20}
0x34cc…34cf Line {l1=0x01, l2=» «, l3=0x01}
0x34cf…34e8 Line {l1=0x17, l2=» RESET(FROR,FILNAVN2);«, l3=0x17}
0x34e8…3516 Line {l1=0x2c, l2=» IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x3516…3519 Line {l1=0x01, l2=» «, l3=0x01}
0x3519…353b Line {l1=0x20, l2=» FILNAVN2:='POSTREG:P2:0000:I';«, l3=0x20}
0x353b…3557 Line {l1=0x1a, l2=» REWRITE(FPOST,FILNAVN2);«, l3=0x1a}
0x3557…3573 Line {l1=0x1a, l2=» IOPEN(PZ.H,FPOST,SKRIV);«, l3=0x1a}
0x3573…358c Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x358c…35aa Line {l1=0x1c, l2=» FILNAVN2:='SYSREG:P2:1:I';«, l3=0x1c}
0x35aa…35c5 Line {l1=0x19, l2=» RESET(SYSFIL,FILNAVN2);«, l3=0x19}
0x35c5…35d8 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x35d8…35e8 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x35e8…35fa Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x35fa…3607 Line {l1=0x0b, l2=» INITTEXT;«, l3=0x0b}
0x3607…362f Line {l1=0x26, l2=» FOR I:=1 TO 7 DO PPOST.HELTAL(I):=0;«, l3=0x26}
0x362f…364f Line {l1=0x1e, l2=» NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x1e}
0x364f…3670 Line {l1=0x1f, l2=» IF IER<>-1 THEN ERROR;IER:=0;«, l3=0x1f}
0x3670…3682 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x3682…3699 Line {l1=0x15, l2=» WITH PPOST,KUNDE DO«, l3=0x15}
0x3699…36a2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x36a2…36b6 Line {l1=0x12, l2=» NOFIND:=FALSE;«, l3=0x12}
0x36b6…36cd Line {l1=0x15, l2=» NR(1):=HELTAL(1);«, l3=0x15}
0x36cd…36e4 Line {l1=0x15, l2=» NR(2):=HELTAL(2);«, l3=0x15}
0x36e4…3704 Line {l1=0x1e, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1e}
0x3704…372f Line {l1=0x29, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x29}
0x372f…3764 Line {l1=0x33, l2=» IF IER=-6 THEN BEGIN NOFIND:=TRUE;IER:=0 END;«, l3=0x33}
0x3764…377b Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x377b…3788 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x3788…37a4 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x37a4…37c0 Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x37c0…37e4 Line {l1=0x22, l2=» GETREC(BZ.H,FBETA,BETA.A);«, l3=0x22}
0x37e4…3829 Line {l1=0x43, l2=» IF IER<>0 THEN IF IER=-6 THEN BEGIN NOFIND:=TRUE;IER:=0 END«, l3=0x43}
0x3829…3857 Line {l1=0x2c, l2=» ELSE ERROR;«, l3=0x2c}
0x3857…3863 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3863…387d Line {l1=0x18, l2=» IF NOT NOFIND THEN«, l3=0x18}
0x387d…3895 Line {l1=0x16, l2=» FOR I:=1 TO 6 DO«, l3=0x16}
0x3895…38b5 Line {l1=0x1e, l2=» IF SALDOKØB(I)<>0.0 THEN«, l3=0x1e}
0x38b5…38c2 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x38c2…38d3 Line {l1=0x0f, l2=» KONTOUDT;«, l3=0x0f}
0x38d3…38e0 Line {l1=0x0b, l2=» BREV;«, l3=0x0b}
0x38e0…38f3 Line {l1=0x11, l2=» RESTORDRER;«, l3=0x11}
0x38f3…3915 Line {l1=0x20, l2=» PUTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x20}
0x3915…3922 Line {l1=0x0b, l2=» I:=6;«, l3=0x0b}
0x3922…392e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x392e…3951 Line {l1=0x21, l2=» NEXTREC(PZ.H,FPOST,PPOST.A)«, l3=0x21}
0x3951…3959 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3959…3973 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x3973…3989 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x3989…39a0 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x39a0…39b0 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x39b0…39cf Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x39cf…39f5 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x39f5…39fb Line {l1=0x04, l2=»END.«, l3=0x04}
0x39fb…3a00 00 00 63 63 63 ┆ ccc┆
0x3a00…3a20 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┆
[…0x8…]
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 ┆