|
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: 7488 (0x1d40)
Types: TextFile
Notes: Mikados_K
Names: »POSTERRE.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »POSTERRE.K«
PROGRAM POSTERRENTER;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
(*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,
RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,
EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)
(* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB :ARRAY (1..9) OF REAL;
(*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)
END;
JOURPOST=RECORD
KONTONR1,KONTONR2,
DATO1,DATO2,
TEKSTKODE,
BILAG1,BILAG2,
KGB :INTEGER;
BELØB :REAL
END;
JOURFILE=FILE OF JOURPOST;
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;
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;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR FPOST,FKUN : ISF;
JOURFIL:JOURFILE;
SYSFIL:SYSFILE;
KZ:KZONE;
PZ:POSTZONE;
PPOST:POSTPOST;
KUNDE:KPOST;
NRPF,CF:NPFILE;
FNAVN:STRING(20);
IER,I,K,LINIE,SIDE
:INTEGER;
QUQ:^INTEGER;
CH:CHAR;
R1:REAL;
DKB1,DKB:ARRAY (1..5) OF REAL;
TEKST:ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;
KONTO:ARRAY (1..5) OF PACKED ARRAY (1..5) OF CHAR;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
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 PRUT;
VAR I:INTEGER;
DIFFE:REAL;
BEGIN
DIFFE:=0.0;
FOR I:=1 TO 5 DO
BEGIN
WRITELN(LIST,LINIE:5,' ':5,KONTO(I),SIDE-1:22,' ':10,DKB(I)/100:12:2);
LINIE:=LINIE+1;
END;
WRITELN(LIST);
WRITELN(LIST,'Difference',' ':37,0.0:12:2)
END;
PROCEDURE DOIT;
BEGIN
LINIE:=1;
REPEAT
GET(JOURFIL);
WITH JOURFIL^ DO
IF TEKSTKODE=9 THEN
BEGIN
IF LINIE MOD 60=1 THEN
BEGIN
IF LINIE>1 THEN FOR I:=1 TO 8 DO WRITELN(LIST);
WRITELN(LIST,'B O G H O L D E R I J O U R N A L',' ':5,
'Renteposteringer',' ':18,SIDE:5);
WRITELN(LIST);
WRITELN(LIST,'Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,
'Beløb',' ':4,'Kredit',SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):8:-2);
WRITELN(LIST);
SIDE:=SIDE+1
END;
DATO1:=SYSFIL^.HELTAL(1);
DATO2:=SYSFIL^.HELTAL(2);
BILAG1:=0;
BILAG2:=SIDE-1;
DKB(KGB):=DKB(KGB)-BELØB;
KUNDE.NR(1):=KONTONR1;
KUNDE.NR(2):=KONTONR2;
GETREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
WITH KUNDE DO
BEGIN
R1:=BELØB;
IF CH='J' THEN SALDOKØB(3):=SALDOKØB(3)+BELØB ELSE
SALDOKØB(4):=SALDOKØB(4)+BELØB;
WRITELN(LIST,LINIE:5,' ':5,TEKST(TEKSTKODE),
BILAG1*10000.0+BILAG2:12:-2,
KONTONR1*10000.0+KONTONR2:10:-2,
BELØB/100:12:2,' ':4,KONTO(KGB),
DATO1*10000.0+DATO2:9:-2)
END;
LINIE:=LINIE+1;
PUTREC(KZ.H,FKUN,KUNDE.A);
IF IER<>0 THEN ERROR;
WITH PPOST DO
BEGIN
HELTAL(1):=KONTONR1;
HELTAL(2):=KONTONR2;
HELTAL(3):=DATO1;
HELTAL(4):=DATO2;
HELTAL(5):=TEKSTKODE;
HELTAL(6):=BILAG1;
HELTAL(7):=BILAG2;
REEL(1):=BELØB;
REEL(2):=R1;
INSERT(PZ.H,FPOST,A);
IF IER<>0 THEN ERROR
END;
END
UNTIL JOURFIL^.TEKSTKODE=0;
PRUT
END;
BEGIN
FNAVN:='KUNDERG:P2:0000:I';
REWRITE(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='POSTREG:P2:0000:I';
REWRITE(FPOST,FNAVN);
IOPEN(PZ.H,FPOST,SKRIV);
IF IER<>0 THEN OFEJL;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
SIDE:=SYSFIL^.HELTAL(19);
FNAVN:='RENTPOST:P1:50:I';
REWRITE(JOURFIL,FNAVN);
LINIE:=1;
FOR I:=1 TO 5 DO BEGIN DKB(I):=0.0;DKB1(I):=0.0 END;
TEKST(9):='Rentenota ';
KONTO(1):='Kasse';
KONTO(2):='Bank ';
KONTO(3):='Giro ';
KONTO(4):='Rabat';
KONTO(5):='Rente';
CLEARSCREEN;
GOTOXY(1,1);
WRITELN('Antal renteposteringer ?');
REPEAT
GOTOXY(25,1);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>=0);
GOTOXY(1,2);
WRITELN('Sker rentepostering i forbindelse med månedsafslutning (J/N)');
REPEAT
GOTOXY(63,2);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
IF CH='j' THEN CH:='J';
IF (I>PZ.H.NREC-PZ.H.RECINUSE) THEN
WRITELN('Der er ikke plads til flere posteringer')
ELSE
BEGIN
SEEK(JOURFIL,1);
DOIT;
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
FOR I:=1 TO 5 DO
SYSFIL^.KGB(I):=SYSFIL^.KGB(I)+DKB(I);
SYSFIL^.HELTAL(19):=SIDE;
SEEK(SYSFIL,1);
PUT(SYSFIL);
END;
CLOSE(JOURFIL);
CLOSE(SYSFIL);
FNAVN:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FNAVN);
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);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0017 Line {l1=0x15, l2=»PROGRAM POSTERRENTER;«, l3=0x15}
0x0017…0026 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0026…0035 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0035…0044 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0044…006a Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x006a…00b3 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00b3…00fc Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x00fc…012c Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x012c…017c Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x017c…01ab Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01ab…01d9 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01d9…0204 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0204…022d Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x022d…0252 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x0252…025a Line {l1=0x06, l2=» END;«, l3=0x06}
0x025a…026b Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x026b…0286 Line {l1=0x19, l2=» KONTONR1,KONTONR2,«, l3=0x19}
0x0286…029b Line {l1=0x13, l2=» DATO1,DATO2,«, l3=0x13}
0x029b…02ae Line {l1=0x11, l2=» TEKSTKODE,«, l3=0x11}
0x02ae…02c5 Line {l1=0x15, l2=» BILAG1,BILAG2,«, l3=0x15}
0x02c5…02ef Line {l1=0x28, l2=» KGB :INTEGER;«, l3=0x28}
0x02ef…0315 Line {l1=0x24, l2=» BELØB :REAL«, l3=0x24}
0x0315…031b Line {l1=0x04, l2=»END;«, l3=0x04}
0x031b…0337 Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x0337…0347 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x0347…0368 Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x0368…0383 Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x0383…03aa Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x03aa…03dd Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x03dd…03e3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03e3…03fd Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x03fd…040e Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x040e…041c Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x041c…046b Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x046b…04a0 Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x04a0…04a6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04a6…04b7 Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x04b7…04ca Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x04ca…04ee Line {l1=0x22, l2=» T:ARRAY (1..508) OF INTEGER«, l3=0x22}
0x04ee…04f4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04f4…0503 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0503…0517 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0517…053b Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x053b…0543 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0543…0554 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x0554…0570 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x0570…0576 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0576…0590 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x0590…05ab Line {l1=0x19, l2=» VAR FPOST,FKUN : ISF;«, l3=0x19}
0x05ab…05c6 Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x05c6…05df Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x05df…05f2 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x05f2…0608 Line {l1=0x14, l2=» PZ:POSTZONE;«, l3=0x14}
0x0608…0621 Line {l1=0x17, l2=» PPOST:POSTPOST;«, l3=0x17}
0x0621…0637 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0637…0650 Line {l1=0x17, l2=» NRPF,CF:NPFILE;«, l3=0x17}
0x0650…066b Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x066b…0687 Line {l1=0x1a, l2=» IER,I,K,LINIE,SIDE«, l3=0x1a}
0x0687…06aa Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x06aa…06c1 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x06c1…06d3 Line {l1=0x10, l2=» CH:CHAR;«, l3=0x10}
0x06d3…06e5 Line {l1=0x10, l2=» R1:REAL;«, l3=0x10}
0x06e5…070d Line {l1=0x26, l2=» DKB1,DKB:ARRAY (1..5) OF REAL;«, l3=0x26}
0x070d…074b Line {l1=0x3c, l2=» TEKST:ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;«, l3=0x3c}
0x074b…0787 Line {l1=0x3a, l2=» KONTO:ARRAY (1..5) OF PACKED ARRAY (1..5) OF CHAR;«, l3=0x3a}
0x0787…0790 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0790…07a4 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x07a4…07b2 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x07b2…07c0 Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x07c0…07d1 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x07d1…07e2 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x07e2…07f2 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x07f2…0801 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0801…0810 Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0810…081f Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x081f…082f Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x082f…0839 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x0839…0842 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0842…0855 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0855…085d Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x085d…0882 Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0882…0899 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0899…08b1 Line {l1=0x16, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x16}
0x08b1…08cd Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x08cd…08dc Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x08dc…08e3 Line {l1=0x05, l2=» END;«, l3=0x05}
0x08e3…08f5 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x08f5…08fc Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08fc…090d Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x090d…0952 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0952…0982 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0982…09bb Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x09bb…09d2 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x09d2…09e1 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x09e1…09e7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09e7…09f8 Line {l1=0x0f, l2=»PROCEDURE PRUT;«, l3=0x0f}
0x09f8…0a08 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0a08…0a19 Line {l1=0x0f, l2=» DIFFE:REAL;«, l3=0x0f}
0x0a19…0a20 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a20…0a2e Line {l1=0x0c, l2=» DIFFE:=0.0;«, l3=0x0c}
0x0a2e…0a41 Line {l1=0x11, l2=» FOR I:=1 TO 5 DO«, l3=0x11}
0x0a41…0a49 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0a49…0a94 Line {l1=0x49, l2=» WRITELN(LIST,LINIE:5,' ':5,KONTO(I),SIDE-1:22,' ':10,DKB(I)/100:12:2);«, l3=0x49}
0x0a94…0aa8 Line {l1=0x12, l2=» LINIE:=LINIE+1;«, l3=0x12}
0x0aa8…0aaf Line {l1=0x05, l2=» END;«, l3=0x05}
0x0aaf…0ac0 Line {l1=0x0f, l2=» WRITELN(LIST);«, l3=0x0f}
0x0ac0…0aed Line {l1=0x2b, l2=» WRITELN(LIST,'Difference',' ':37,0.0:12:2)«, l3=0x2b}
0x0aed…0af3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0af3…0b04 Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0b04…0b0b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b0b…0b18 Line {l1=0x0b, l2=» LINIE:=1;«, l3=0x0b}
0x0b18…0b22 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0b22…0b35 Line {l1=0x11, l2=» GET(JOURFIL);«, l3=0x11}
0x0b35…0b4b Line {l1=0x14, l2=» WITH JOURFIL^ DO«, l3=0x14}
0x0b4b…0b64 Line {l1=0x17, l2=» IF TEKSTKODE=9 THEN«, l3=0x17}
0x0b64…0b74 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x0b74…0b97 Line {l1=0x21, l2=» IF LINIE MOD 60=1 THEN«, l3=0x21}
0x0b97…0ba9 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x0ba9…0be7 Line {l1=0x3c, l2=» IF LINIE>1 THEN FOR I:=1 TO 8 DO WRITELN(LIST);«, l3=0x3c}
0x0be7…0c2d Line {l1=0x44, l2=» WRITELN(LIST,'B O G H O L D E R I J O U R N A L',' ':5,«, l3=0x44}
0x0c2d…0c6b Line {l1=0x3c, l2=» 'Renteposteringer',' ':18,SIDE:5);«, l3=0x3c}
0x0c6b…0c88 Line {l1=0x1b, l2=» WRITELN(LIST);«, l3=0x1b}
0x0c88…0cd6 Line {l1=0x4c, l2=» WRITELN(LIST,'Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,«, l3=0x4c}
0x0cd6…0d23 Line {l1=0x4b, l2=» 'Beløb',' ':4,'Kredit',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x4b}
0x0d23…0d57 Line {l1=0x32, l2=» SYSFIL^.HELTAL(2):8:-2);«, l3=0x32}
0x0d57…0d74 Line {l1=0x1b, l2=» WRITELN(LIST);«, l3=0x1b}
0x0d74…0d8f Line {l1=0x19, l2=» SIDE:=SIDE+1«, l3=0x19}
0x0d8f…0da0 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x0da0…0dc6 Line {l1=0x24, l2=» DATO1:=SYSFIL^.HELTAL(1);«, l3=0x24}
0x0dc6…0dec Line {l1=0x24, l2=» DATO2:=SYSFIL^.HELTAL(2);«, l3=0x24}
0x0dec…0e03 Line {l1=0x15, l2=» BILAG1:=0;«, l3=0x15}
0x0e03…0e1f Line {l1=0x1a, l2=» BILAG2:=SIDE-1;«, l3=0x1a}
0x0e1f…0e45 Line {l1=0x24, l2=» DKB(KGB):=DKB(KGB)-BELØB;«, l3=0x24}
0x0e45…0e68 Line {l1=0x21, l2=» KUNDE.NR(1):=KONTONR1;«, l3=0x21}
0x0e68…0e8b Line {l1=0x21, l2=» KUNDE.NR(2):=KONTONR2;«, l3=0x21}
0x0e8b…0eb2 Line {l1=0x25, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x0eb2…0ed4 Line {l1=0x20, l2=» IF IER<>0 THEN ERROR;«, l3=0x20}
0x0ed4…0eee Line {l1=0x18, l2=» WITH KUNDE DO«, l3=0x18}
0x0eee…0f00 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x0f00…0f19 Line {l1=0x17, l2=» R1:=BELØB;«, l3=0x17}
0x0f19…0f5a Line {l1=0x3f, l2=» IF CH='J' THEN SALDOKØB(3):=SALDOKØB(3)+BELØB ELSE«, l3=0x3f}
0x0f5a…0f8a Line {l1=0x2e, l2=» SALDOKØB(4):=SALDOKØB(4)+BELØB;«, l3=0x2e}
0x0f8a…0fc5 Line {l1=0x39, l2=» WRITELN(LIST,LINIE:5,' ':5,TEKST(TEKSTKODE),«, l3=0x39}
0x0fc5…0ffa Line {l1=0x33, l2=» BILAG1*10000.0+BILAG2:12:-2,«, l3=0x33}
0x0ffa…1033 Line {l1=0x37, l2=» KONTONR1*10000.0+KONTONR2:10:-2,«, l3=0x37}
0x1033…106c Line {l1=0x37, l2=» BELØB/100:12:2,' ':4,KONTO(KGB),«, l3=0x37}
0x106c…109e Line {l1=0x30, l2=» DATO1*10000.0+DATO2:9:-2)«, l3=0x30}
0x109e…10af Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x10af…10cb Line {l1=0x1a, l2=» LINIE:=LINIE+1;«, l3=0x1a}
0x10cb…10f2 Line {l1=0x25, l2=» PUTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x10f2…1114 Line {l1=0x20, l2=» IF IER<>0 THEN ERROR;«, l3=0x20}
0x1114…112e Line {l1=0x18, l2=» WITH PPOST DO«, l3=0x18}
0x112e…1140 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x1140…1163 Line {l1=0x21, l2=» HELTAL(1):=KONTONR1;«, l3=0x21}
0x1163…1186 Line {l1=0x21, l2=» HELTAL(2):=KONTONR2;«, l3=0x21}
0x1186…11a6 Line {l1=0x1e, l2=» HELTAL(3):=DATO1;«, l3=0x1e}
0x11a6…11c6 Line {l1=0x1e, l2=» HELTAL(4):=DATO2;«, l3=0x1e}
0x11c6…11ea Line {l1=0x22, l2=» HELTAL(5):=TEKSTKODE;«, l3=0x22}
0x11ea…120b Line {l1=0x1f, l2=» HELTAL(6):=BILAG1;«, l3=0x1f}
0x120b…122c Line {l1=0x1f, l2=» HELTAL(7):=BILAG2;«, l3=0x1f}
0x122c…124a Line {l1=0x1c, l2=» REEL(1):=BELØB;«, l3=0x1c}
0x124a…1265 Line {l1=0x19, l2=» REEL(2):=R1;«, l3=0x19}
0x1265…1289 Line {l1=0x22, l2=» INSERT(PZ.H,FPOST,A);«, l3=0x22}
0x1289…12ac Line {l1=0x21, l2=» IF IER<>0 THEN ERROR«, l3=0x21}
0x12ac…12bd Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x12bd…12cb Line {l1=0x0c, l2=» END«, l3=0x0c}
0x12cb…12ea Line {l1=0x1d, l2=» UNTIL JOURFIL^.TEKSTKODE=0;«, l3=0x1d}
0x12ea…12f2 Line {l1=0x06, l2=» PRUT«, l3=0x06}
0x12f2…12f8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x12f8…12ff Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x12ff…1302 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x1305…1324 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x1324…133c Line {l1=0x16, l2=» REWRITE(FKUN,FNAVN);«, l3=0x16}
0x133c…136c Line {l1=0x2e, l2=» IOPEN(KZ.H,FKUN,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x136c…136f Line {l1=0x01, l2=» «, l3=0x01}
0x136f…138e Line {l1=0x1d, l2=» FNAVN:='POSTREG:P2:0000:I';«, l3=0x1d}
0x138e…13a7 Line {l1=0x17, l2=» REWRITE(FPOST,FNAVN);«, l3=0x17}
0x13a7…13c3 Line {l1=0x1a, l2=» IOPEN(PZ.H,FPOST,SKRIV);«, l3=0x1a}
0x13c3…13dc Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x13dc…13f7 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x13f7…1411 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x1411…1424 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1424…1434 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1434…1451 Line {l1=0x1b, l2=» SIDE:=SYSFIL^.HELTAL(19);«, l3=0x1b}
0x1451…146f Line {l1=0x1c, l2=» FNAVN:='RENTPOST:P1:50:I';«, l3=0x1c}
0x146f…148a Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x148a…1497 Line {l1=0x0b, l2=» LINIE:=1;«, l3=0x0b}
0x1497…149a Line {l1=0x01, l2=» «, l3=0x01}
0x149a…14d2 Line {l1=0x36, l2=» FOR I:=1 TO 5 DO BEGIN DKB(I):=0.0;DKB1(I):=0.0 END;«, l3=0x36}
0x14d2…14f2 Line {l1=0x1e, l2=» TEKST(9):='Rentenota ';«, l3=0x1e}
0x14f2…1508 Line {l1=0x14, l2=» KONTO(1):='Kasse';«, l3=0x14}
0x1508…151e Line {l1=0x14, l2=» KONTO(2):='Bank ';«, l3=0x14}
0x151e…1534 Line {l1=0x14, l2=» KONTO(3):='Giro ';«, l3=0x14}
0x1534…154a Line {l1=0x14, l2=» KONTO(4):='Rabat';«, l3=0x14}
0x154a…1560 Line {l1=0x14, l2=» KONTO(5):='Rente';«, l3=0x14}
0x1560…1563 Line {l1=0x01, l2=» «, l3=0x01}
0x1563…1573 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1573…1583 Line {l1=0x0e, l2=» GOTOXY(1,1);«, l3=0x0e}
0x1583…15ab Line {l1=0x26, l2=» WRITELN('Antal renteposteringer ?');«, l3=0x26}
0x15ab…15b5 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x15b5…15d9 Line {l1=0x22, l2=» GOTOXY(25,1);READLN;READ(I)«, l3=0x22}
0x15d9…15fb Line {l1=0x20, l2=» UNTIL (IORESULT=0) AND (I>=0);«, l3=0x20}
0x15fb…160b Line {l1=0x0e, l2=» GOTOXY(1,2);«, l3=0x0e}
0x160b…1658 Line {l1=0x4b, l2=» WRITELN('Sker rentepostering i forbindelse med månedsafslutning (J/N)');«, l3=0x4b}
0x1658…1662 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1662…1684 Line {l1=0x20, l2=» GOTOXY(63,2);READLN;READ(CH)«, l3=0x20}
0x1684…16ce Line {l1=0x48, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x48}
0x16ce…16e9 Line {l1=0x19, l2=» IF CH='j' THEN CH:='J';«, l3=0x19}
0x16e9…16ec Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x16ef…1716 Line {l1=0x25, l2=» IF (I>PZ.H.NREC-PZ.H.RECINUSE) THEN«, l3=0x25}
0x1716…174f Line {l1=0x37, l2=» WRITELN('Der er ikke plads til flere posteringer')«, l3=0x37}
0x174f…1757 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1757…1760 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1760…1776 Line {l1=0x14, l2=» SEEK(JOURFIL,1);«, l3=0x14}
0x1776…1781 Line {l1=0x09, l2=» DOIT;«, l3=0x09}
0x1781…1799 Line {l1=0x16, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x16}
0x1799…17b2 Line {l1=0x17, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x17}
0x17b2…17c8 Line {l1=0x14, l2=» FOR I:=1 TO 5 DO«, l3=0x14}
0x17c8…17f6 Line {l1=0x2c, l2=» SYSFIL^.KGB(I):=SYSFIL^.KGB(I)+DKB(I);«, l3=0x2c}
0x17f6…1815 Line {l1=0x1d, l2=» SYSFIL^.HELTAL(19):=SIDE;«, l3=0x1d}
0x1815…182a Line {l1=0x13, l2=» SEEK(SYSFIL,1);«, l3=0x13}
0x182a…183c Line {l1=0x10, l2=» PUT(SYSFIL);«, l3=0x10}
0x183c…1844 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1844…1857 Line {l1=0x11, l2=» CLOSE(JOURFIL);«, l3=0x11}
0x1857…1869 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1869…1886 Line {l1=0x1b, l2=» FNAVN:='PROCSTAT:P2:0:I';«, l3=0x1b}
0x1886…188f Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x188f…1899 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1899…18b3 Line {l1=0x18, l2=» REWRITE(NRPF,FNAVN);«, l3=0x18}
0x18b3…18c5 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x18c5…18da Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x18da…18e3 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x18e3…18f1 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x18f1…1901 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x1901…1912 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x1912…1920 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x1920…192a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x192a…193d Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x193d…1972 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x1972…197f Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x197f…1988 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x1988…19a6 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x19a6…19b6 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x19b6…19bf Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x19bf…19d4 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x19d4…19e2 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x19e2…19f2 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x19f2…1a18 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1a18…1a1e Line {l1=0x04, l2=»END.«, l3=0x04}
0x1a1e…1a20 00 00 ┆ ┆
0x1a20…1a40 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┆
[…0x17…]
0x1d20…1d40 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 ┆