|
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: »MAFSLUT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »MAFSLUT.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):=TOTAL;
REEL(2):=REEL(1);
INSERT(PZ.H,FPOST,PPOST.A);
WHILE LINIE<19 DO
BEGIN
WRITELN(LIST);
LINIE:=LINIE+1
END;
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…2285 Line {l1=0x15, l2=» REEL(1):=TOTAL;«, l3=0x15}
0x2285…229e Line {l1=0x17, l2=» REEL(2):=REEL(1);«, l3=0x17}
0x229e…22c1 Line {l1=0x21, l2=» INSERT(PZ.H,FPOST,PPOST.A);«, l3=0x21}
0x22c1…22da Line {l1=0x17, l2=» WHILE LINIE<19 DO«, l3=0x17}
0x22da…22e7 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x22e7…22ff Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x22ff…2317 Line {l1=0x16, l2=» LINIE:=LINIE+1«, l3=0x16}
0x2317…2323 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2323…2337 Line {l1=0x12, l2=» IF RENT THEN«, l3=0x12}
0x2337…2344 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2344…2369 Line {l1=0x23, l2=» WRITELN(LIST,' ',TEKST(3));«, l3=0x23}
0x2369…238d Line {l1=0x22, l2=» WRITELN(LIST,' ',TEKST(4))«, l3=0x22}
0x238d…2398 Line {l1=0x09, l2=» END«, l3=0x09}
0x2398…23a4 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x23a4…23b1 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x23b1…23c9 Line {l1=0x16, l2=» WRITELN(LIST);«, l3=0x16}
0x23c9…23e0 Line {l1=0x15, l2=» WRITELN(LIST)«, l3=0x15}
0x23e0…23ec Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x23ec…2402 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x2402…2419 Line {l1=0x15, l2=» LINIE:=LINIE+3;«, l3=0x15}
0x2419…242a Line {l1=0x0f, l2=» PRKUNOPL;«, l3=0x0f}
0x242a…2441 Line {l1=0x15, l2=» R:=SALDOKØB(5);«, l3=0x15}
0x2441…246e Line {l1=0x2b, l2=» SALDOKØB(5):=SALDOKØB(6)+SALDOKØB(4);«, l3=0x2b}
0x246e…2485 Line {l1=0x15, l2=» SALDOKØB(6):=R;«, l3=0x15}
0x2485…24a6 Line {l1=0x1f, l2=» SALDOKØB(4):=SALDOKØB(3);«, l3=0x1f}
0x24a6…24c7 Line {l1=0x1f, l2=» SALDOKØB(3):=SALDOKØB(2);«, l3=0x1f}
0x24c7…24e8 Line {l1=0x1f, l2=» SALDOKØB(2):=SALDOKØB(1);«, l3=0x1f}
0x24e8…2501 Line {l1=0x17, l2=» SALDOKØB(1):=0.0;«, l3=0x17}
0x2501…251a Line {l1=0x17, l2=» SALDOKØB(8):=0.0;«, l3=0x17}
0x251a…2525 Line {l1=0x09, l2=» END«, l3=0x09}
0x2525…252c Line {l1=0x05, l2=» END«, l3=0x05}
0x252c…2532 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2532…2549 Line {l1=0x15, l2=»PROCEDURE RESTORDRER;«, l3=0x15}
0x2549…2552 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2552…2577 Line {l1=0x23, l2=» RESTORD.HEAD(1):=KUNDE.NR(1);«, l3=0x23}
0x2577…259c Line {l1=0x23, l2=» RESTORD.HEAD(2):=KUNDE.NR(2);«, l3=0x23}
0x259c…25b8 Line {l1=0x1a, l2=» RESTORD.HEAD(3):=-1;«, l3=0x1a}
0x25b8…25dd Line {l1=0x23, l2=» NEXTREC(RZ.H,FROR,RESTORD.A);«, l3=0x23}
0x25dd…25ee Line {l1=0x0f, l2=» LINIE:=0;«, l3=0x0f}
0x25ee…25fe Line {l1=0x0e, l2=» HEAD(0);«, l3=0x0e}
0x25fe…2641 Line {l1=0x41, l2=» IF (IER=-1) OR (IER=-2) OR (IER=-9) THEN IER:=0 ELSE ERROR;«, l3=0x41}
0x2641…268f Line {l1=0x4c, l2=» IF (RESTORD.HEAD(1)=KUNDE.NR(1)) AND (RESTORD.HEAD(2)=KUNDE.NR(2))«, l3=0x4c}
0x268f…269f Line {l1=0x0e, l2=» THEN«, l3=0x0e}
0x269f…26b1 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x26b1…26ce Line {l1=0x1b, l2=» LINIE:=LINIE+1;«, l3=0x1b}
0x26ce…26ec Line {l1=0x1c, l2=» IF LINIE=22 THEN«, l3=0x1c}
0x26ec…26ff Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x26ff…2730 Line {l1=0x2f, l2=» FOR I:=1 TO 101 DO WRITELN(LIST);«, l3=0x2f}
0x2730…2748 Line {l1=0x16, l2=» HEAD(0);«, l3=0x16}
0x2748…2760 Line {l1=0x16, l2=» LINIE:=1«, l3=0x16}
0x2760…2772 Line {l1=0x10, l2=» END;«, l3=0x10}
0x2772…27a0 Line {l1=0x2c, l2=» VARE.HELTAL(1):=RESTORD.HEAD(3);«, l3=0x2c}
0x27a0…27c7 Line {l1=0x25, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x25}
0x27c7…27fa Line {l1=0x31, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x31}
0x27fa…2813 Line {l1=0x17, l2=» IF IER=0 THEN«, l3=0x17}
0x2813…2824 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2824…286c Line {l1=0x46, l2=» WRITE(LIST,RESTORD.HEAD(3):9,' ':3,VARE.NAVN(1):30,' ':4);«, l3=0x46}
0x286c…28b2 Line {l1=0x44, l2=» WRITELN(LIST,RESTORD.ANTAL:6:-2,RESTORD.HEAD(4)*10000.0+«, l3=0x44}
0x28b2…28f8 Line {l1=0x44, l2=» RESTORD.HEAD(5):12:-2);«, l3=0x44}
0x28f8…2907 Line {l1=0x0d, l2=» END«, l3=0x0d}
0x2907…2917 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x2917…2959 Line {l1=0x40, l2=» WRITELN(LIST,RESTORD.HEAD(3):9,' ':3,'FINDES IKKE');«, l3=0x40}
0x2959…2983 Line {l1=0x28, l2=» NEXTREC(RZ.H,FROR,RESTORD.A)«, l3=0x28}
0x2983…29c2 Line {l1=0x3d, l2=» UNTIL (IER<>0) OR (RESTORD.HEAD(1)<>KUNDE.NR(1)) OR«, l3=0x3d}
0x29c2…29ff Line {l1=0x3b, l2=» (RESTORD.HEAD(2)<>KUNDE.NR(2));«, l3=0x3b}
0x29ff…2a1a Line {l1=0x19, l2=» IF LINIE=0 THEN«, l3=0x19}
0x2a1a…2a2b Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x2a2b…2a61 Line {l1=0x34, l2=» WRITELN(LIST,' ':12,'Ingen restordrer');«, l3=0x34}
0x2a61…2a77 Line {l1=0x14, l2=» LINIE:=1«, l3=0x14}
0x2a77…2a87 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x2a87…2acc Line {l1=0x43, l2=» WHILE LINIE<21 DO BEGIN WRITELN(LIST);LINIE:=LINIE+1 END;«, l3=0x43}
0x2acc…2af3 Line {l1=0x25, l2=» WRITELN(LIST,' ',TEKST(1));«, l3=0x25}
0x2af3…2b1a Line {l1=0x25, l2=» WRITELN(LIST,' ',TEKST(2));«, l3=0x25}
0x2b1a…2b45 Line {l1=0x29, l2=» FOR I:=1 TO 3 DO WRITELN(LIST);«, l3=0x29}
0x2b45…2b84 Line {l1=0x3d, l2=» IF (IER<>0) AND (IER<>-2) AND (IER<>-9) THEN ERROR;«, l3=0x3d}
0x2b84…2b92 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x2b92…2ba7 Line {l1=0x13, l2=»PROCEDURE INITTEXT;«, l3=0x13}
0x2ba7…2bae Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2bae…2bce Line {l1=0x1e, l2=» PTYPE(0):='Fejl-postering ';«, l3=0x1e}
0x2bce…2bee Line {l1=0x1e, l2=» PTYPE(1):='Faktura ';«, l3=0x1e}
0x2bee…2c0e Line {l1=0x1e, l2=» PTYPE(2):='Kreditnota ';«, l3=0x1e}
0x2c0e…2c2e Line {l1=0x1e, l2=» PTYPE(3):='Indbetaling ';«, l3=0x1e}
0x2c2e…2c4e Line {l1=0x1e, l2=» PTYPE(4):='Udbetaling ';«, l3=0x1e}
0x2c4e…2c6e Line {l1=0x1e, l2=» PTYPE(5):='Kasserabat ';«, l3=0x1e}
0x2c6e…2c8e Line {l1=0x1e, l2=» PTYPE(6):='Rabatrettelse ';«, l3=0x1e}
0x2c8e…2cae Line {l1=0x1e, l2=» PTYPE(7):='Renterettelse ';«, l3=0x1e}
0x2cae…2cce Line {l1=0x1e, l2=» PTYPE(9):='Rentenota ';«, l3=0x1e}
0x2cce…2cef Line {l1=0x1f, l2=» PTYPE(10):='Sidste udtog ';«, l3=0x1f}
0x2cef…2cfd Line {l1=0x0c, l2=» TEKST(1):=«, l3=0x0c}
0x2cfd…2d4a Line {l1=0x4b, l2=»'Dette er en ny ajourført liste over Deres restordrer, som leveres så ';«, l3=0x4b}
0x2d4a…2d58 Line {l1=0x0c, l2=» TEKST(2):=«, l3=0x0c}
0x2d58…2da5 Line {l1=0x4b, l2=»'snart varerne igen er på lager. Bedes gemt til de modtager en ny. ';«, l3=0x4b}
0x2da5…2db1 Line {l1=0x0a, l2=»TEKST(3):=«, l3=0x0a}
0x2db1…2dfe Line {l1=0x4b, l2=»'Da vi har konstateret, at De har overskredet vore betalingsbetingelser, ';«, l3=0x4b}
0x2dfe…2e0b Line {l1=0x0b, l2=» TEKST(4):=«, l3=0x0b}
0x2e0b…2e58 Line {l1=0x4b, l2=»'har vi tilladt os at debitere Dem renter jvnf. ovenstående. ';«, l3=0x4b}
0x2e58…2e62 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2e62…2e74 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x2e74…2e90 Line {l1=0x1a, l2=» WRITELN('Rentetekst');«, l3=0x1a}
0x2e90…2ea8 Line {l1=0x16, l2=» WRITELN(TEKST(3));«, l3=0x16}
0x2ea8…2ec0 Line {l1=0x16, l2=» WRITELN(TEKST(4));«, l3=0x16}
0x2ec0…2ee1 Line {l1=0x1f, l2=» GOTOXY(1,2);EDIT(TEKST(3));«, l3=0x1f}
0x2ee1…2f02 Line {l1=0x1f, l2=» GOTOXY(1,3);EDIT(TEKST(4));«, l3=0x1f}
0x2f02…2f22 Line {l1=0x1e, l2=» WRITELN('Restordretekst');«, l3=0x1e}
0x2f22…2f3a Line {l1=0x16, l2=» WRITELN(TEKST(1));«, l3=0x16}
0x2f3a…2f52 Line {l1=0x16, l2=» WRITELN(TEKST(2));«, l3=0x16}
0x2f52…2f73 Line {l1=0x1f, l2=» GOTOXY(1,5);EDIT(TEKST(1));«, l3=0x1f}
0x2f73…2f94 Line {l1=0x1f, l2=» GOTOXY(1,6);EDIT(TEKST(2));«, l3=0x1f}
0x2f94…2fb5 Line {l1=0x1f, l2=» WRITELN('Tilfreds (J/N)');«, l3=0x1f}
0x2fb5…2fc1 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x2fc1…2fe6 Line {l1=0x23, l2=» GOTOXY(17,7);READLN;READ(CH)«, l3=0x23}
0x2fe6…3032 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4a}
0x3032…3051 Line {l1=0x1d, l2=» UNTIL (CH='J') OR (CH='j');«, l3=0x1d}
0x3051…3057 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3057…305e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x305e…307a Line {l1=0x1a, l2=» FILNAVN2:='BREV:P1:0:K';«, l3=0x1a}
0x307a…3090 Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x3090…309e Line {l1=0x0c, l2=» READLN(F);«, l3=0x0c}
0x309e…30c6 Line {l1=0x26, l2=» FOR I:=1 TO 22 DO READLN(F,LINE(I));«, l3=0x26}
0x30c6…30d3 Line {l1=0x0b, l2=» CLOSE(F);«, l3=0x0b}
0x30d3…30f3 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x30f3…30fc Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x30fc…3106 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3106…3123 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x3123…3135 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x3135…314a Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x314a…3153 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x3153…3161 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x3161…3171 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x3171…3182 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x3182…3190 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x3190…319a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x319a…31ad Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x31ad…31e2 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x31e2…31ef Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x31ef…31f8 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x31f8…3216 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x3216…3226 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x3226…322f Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x322f…3244 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x3244…3252 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x3252…3262 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x3262…3265 Line {l1=0x01, l2=» «, l3=0x01}
0x3265…3287 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x3287…32a2 Line {l1=0x19, l2=» REWRITE(FKUN,FILNAVN2);«, l3=0x19}
0x32a2…32bd Line {l1=0x19, l2=» IOPEN(KZ.H,FKUN,SKRIV);«, l3=0x19}
0x32bd…32d6 Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x32d6…32d9 Line {l1=0x01, l2=» «, l3=0x01}
0x32d9…32f9 Line {l1=0x1e, l2=» FILNAVN2:='LANDEREG:P2:0:I';«, l3=0x1e}
0x32f9…3317 Line {l1=0x1c, l2=» REWRITE(LANDFIL,FILNAVN2);«, l3=0x1c}
0x3317…331a Line {l1=0x01, l2=» «, l3=0x01}
0x331a…333c Line {l1=0x20, l2=» FILNAVN2:='BETAREG:P2:0000:I';«, l3=0x20}
0x333c…3356 Line {l1=0x18, l2=» RESET(FBETA,FILNAVN2);«, l3=0x18}
0x3356…3370 Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x3370…3373 Line {l1=0x01, l2=» «, l3=0x01}
0x3373…3395 Line {l1=0x20, l2=» FILNAVN2:='REGVARE:P1:0000:I';«, l3=0x20}
0x3395…33ae Line {l1=0x17, l2=» RESET(FVAR,FILNAVN2);«, l3=0x17}
0x33ae…33dc Line {l1=0x2c, l2=» IOPEN(VZ.H,FVAR,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x33dc…33fe Line {l1=0x20, l2=» FILNAVN2:='RESTREG:P2:0000:I';«, l3=0x20}
0x33fe…3401 Line {l1=0x01, l2=» «, l3=0x01}
0x3401…341a Line {l1=0x17, l2=» RESET(FROR,FILNAVN2);«, l3=0x17}
0x341a…3448 Line {l1=0x2c, l2=» IOPEN(RZ.H,FROR,LÆS);IF IER<>0 THEN ERROR;«, l3=0x2c}
0x3448…344b Line {l1=0x01, l2=» «, l3=0x01}
0x344b…346d Line {l1=0x20, l2=» FILNAVN2:='POSTREG:P2:0000:I';«, l3=0x20}
0x346d…3489 Line {l1=0x1a, l2=» REWRITE(FPOST,FILNAVN2);«, l3=0x1a}
0x3489…34a5 Line {l1=0x1a, l2=» IOPEN(PZ.H,FPOST,SKRIV);«, l3=0x1a}
0x34a5…34be Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x34be…34dc Line {l1=0x1c, l2=» FILNAVN2:='SYSREG:P2:1:I';«, l3=0x1c}
0x34dc…34f7 Line {l1=0x19, l2=» RESET(SYSFIL,FILNAVN2);«, l3=0x19}
0x34f7…350a Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x350a…351a Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x351a…352c Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x352c…3539 Line {l1=0x0b, l2=» INITTEXT;«, l3=0x0b}
0x3539…3561 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO PPOST.HELTAL(I):=0;«, l3=0x26}
0x3561…3581 Line {l1=0x1e, l2=» NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x1e}
0x3581…35a2 Line {l1=0x1f, l2=» IF IER<>-1 THEN ERROR;IER:=0;«, l3=0x1f}
0x35a2…35b4 Line {l1=0x10, l2=» WHILE IER=0 DO«, l3=0x10}
0x35b4…35cb Line {l1=0x15, l2=» WITH PPOST,KUNDE DO«, l3=0x15}
0x35cb…35d4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x35d4…35e8 Line {l1=0x12, l2=» NOFIND:=FALSE;«, l3=0x12}
0x35e8…35ff Line {l1=0x15, l2=» NR(1):=HELTAL(1);«, l3=0x15}
0x35ff…3616 Line {l1=0x15, l2=» NR(2):=HELTAL(2);«, l3=0x15}
0x3616…3636 Line {l1=0x1e, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x1e}
0x3636…3661 Line {l1=0x29, l2=» IF (IER<>0) AND (IER<>-6) THEN ERROR;«, l3=0x29}
0x3661…3696 Line {l1=0x33, l2=» IF IER=-6 THEN BEGIN NOFIND:=TRUE;IER:=0 END;«, l3=0x33}
0x3696…36ad Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x36ad…36ba Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x36ba…36d6 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x36d6…36f2 Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x36f2…3716 Line {l1=0x22, l2=» GETREC(BZ.H,FBETA,BETA.A);«, l3=0x22}
0x3716…375b Line {l1=0x43, l2=» IF IER<>0 THEN IF IER=-6 THEN BEGIN NOFIND:=TRUE;IER:=0 END«, l3=0x43}
0x375b…3789 Line {l1=0x2c, l2=» ELSE ERROR;«, l3=0x2c}
0x3789…3795 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3795…37af Line {l1=0x18, l2=» IF NOT NOFIND THEN«, l3=0x18}
0x37af…37c7 Line {l1=0x16, l2=» FOR I:=1 TO 6 DO«, l3=0x16}
0x37c7…37e7 Line {l1=0x1e, l2=» IF SALDOKØB(I)<>0.0 THEN«, l3=0x1e}
0x37e7…37f4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x37f4…3805 Line {l1=0x0f, l2=» KONTOUDT;«, l3=0x0f}
0x3805…3812 Line {l1=0x0b, l2=» BREV;«, l3=0x0b}
0x3812…3825 Line {l1=0x11, l2=» RESTORDRER;«, l3=0x11}
0x3825…3847 Line {l1=0x20, l2=» PUTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x20}
0x3847…3854 Line {l1=0x0b, l2=» I:=6;«, l3=0x0b}
0x3854…3860 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3860…3883 Line {l1=0x21, l2=» NEXTREC(PZ.H,FPOST,PPOST.A)«, l3=0x21}
0x3883…388b Line {l1=0x06, l2=» END;«, l3=0x06}
0x388b…38a5 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x38a5…38bb Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x38bb…38d2 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x38d2…38e2 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x38e2…3901 Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x3901…3927 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x3927…392d Line {l1=0x04, l2=»END.«, l3=0x04}
0x392d…3940 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccc┆
0x3940…3960 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…]
0x3a60…3a80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆