|
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: 8736 (0x2220)
Types: TextFile
Notes: Mikados_K
Names: »BOGJOU.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »BOGJOU.K«
PROGRAM BOGHOLDERIJOURNAL;
(*$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;
VAR FPOST,FKUN : ISF;
JOURFIL:JOURFILE;
SYSFIL:SYSFILE;
KZ:KZONE;
PZ:POSTZONE;
PPOST:POSTPOST;
KUNDE:KPOST;
FNAVN:STRING(20);
IER,I,K,LINIE,SIDE
:INTEGER;
QUQ:^INTEGER;
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 NEDTÆLÆLDSTE;
BEGIN
WITH KUNDE,PPOST DO
BEGIN
HELTAL(1):=KUNDE.NR(1);
HELTAL(2):=KUNDE.NR(2);
FOR I:=3 TO 7 DO HELTAL(I):=0;
NEXTREC(PZ.H,FPOST,A);
IF (IER<>-1) AND (IER<>-2) THEN ERROR;IER:=0;
WHILE (HELTAL(1)=NR(1)) AND (HELTAL(2)=NR(2)) AND (R1<0.0) DO
BEGIN
IF ((HELTAL(5)=1) OR (HELTAL(5)=4) OR (HELTAL(5)=9)) AND (REEL(2)>0)
THEN
BEGIN
REEL(2):=REEL(2)+R1;
IF REEL(2)<=0.0 THEN
BEGIN
R1:=REEL(2);
REEL(2):=0;
IF HELTAL(5)=1 THEN
BEGIN
NR(12):=NR(12)+1;
NR(11):=NR(11)+TRUNC(
JOURFIL^.DATO1*360.0+JOURFIL^.DATO2 DIV 100*30.0
+JOURFIL^.DATO2 MOD 100 -
HELTAL(3)*360.0-HELTAL(4) DIV 100*30.0-HELTAL(4) MOD 100);
END
END
ELSE R1:=0.0;
PUTREC(PZ.H,FPOST,A)
END
ELSE IF HELTAL(5)=10 THEN
BEGIN
REEL(2):=REEL(2)+JOURFIL^.BELØB;
IF REEL(2)<0 THEN REEL(2):=0
END;
NEXTREC(PZ.H,FPOST,A)
END
END
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,DKB1(I)/100:12:2);
LINIE:=LINIE+1;
DIFFE:=DIFFE+DKB1(I)-DKB(I)
END;
WRITELN(LIST);
WRITELN(LIST,'Difference',' ':37,DIFFE/100:12:2)
END;
PROCEDURE DOIT;
BEGIN
LINIE:=1;
FOR K:=1 TO SYSFIL^.HELTAL(16)-1 DO
BEGIN
GET(JOURFIL);
WITH JOURFIL^ DO
BEGIN
CASE TEKSTKODE OF
0: DKB1(KGB):=DKB1(KGB)+BELØB;
5,6,7,9,3,4: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',' ':39,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;
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;
CASE TEKSTKODE OF
4,6,9:BEGIN
SALDOKØB(1):=SALDOKØB(1)+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;
3,5,7:BEGIN
SALDOKØB(6):=SALDOKØB(6)+BELØB;
I:=5;
WHILE (SALDOKØB(I+1)<0.0) AND (I>0) DO
BEGIN
SALDOKØB(I):=SALDOKØB(I)+SALDOKØB(I+1);
SALDOKØB(I+1):=0.0;
I:=I-1
END;
WRITELN(LIST,LINIE:5,' ':5,TEKST(TEKSTKODE),
BILAG1*10000.0+BILAG2:12:-2,' ':5,KONTO(KGB),
-BELØB/100:12:2,KONTONR1*10000.0+KONTONR2:9:-2,
DATO1*10000.0+DATO2:9:-2);
NEDTÆLÆLDSTE
END
END
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
END;
END;
END;
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:='JOURKASS:P1:30:I';
REWRITE(JOURFIL,FNAVN);
FOR I:=1 TO 5 DO BEGIN DKB(I):=0.0;DKB1(I):=0.0 END;
KONTO(1):='Kasse';
KONTO(2):='Bank ';
KONTO(3):='Giro ';
KONTO(4):='Rabat';
KONTO(5):='Rente';
TEKST(3):='Indbetaling ';
TEKST(4):='Udbetaling ';
TEKST(5):='Kasserabat ';
TEKST(6):='Rabat-rettelse ';
TEKST(7):='Rente-rettelse ';
TEKST(9):='Rentenota ';
IF (SYSFIL^.HELTAL(16)-1>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);
SYSFIL^.HELTAL(16):=1;
FOR I:=1 TO 5 DO
SYSFIL^.KGB(I):=SYSFIL^.KGB(I)+DKB1(I);
SYSFIL^.HELTAL(19):=SIDE;
SEEK(SYSFIL,1);
PUT(SYSFIL);
END;
CLOSE(JOURFIL);
CLOSE(SYSFIL);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…001c Line {l1=0x1a, l2=»PROGRAM BOGHOLDERIJOURNAL;«, l3=0x1a}
0x001c…002b Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x002b…003a Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x003a…0049 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0049…006f Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x006f…00b8 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00b8…0101 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x0101…0131 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x0131…0181 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x0181…01b0 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01b0…01de Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01de…0209 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0209…0232 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x0232…0257 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x0257…025f Line {l1=0x06, l2=» END;«, l3=0x06}
0x025f…0270 Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x0270…028b Line {l1=0x19, l2=» KONTONR1,KONTONR2,«, l3=0x19}
0x028b…02a0 Line {l1=0x13, l2=» DATO1,DATO2,«, l3=0x13}
0x02a0…02b3 Line {l1=0x11, l2=» TEKSTKODE,«, l3=0x11}
0x02b3…02ca Line {l1=0x15, l2=» BILAG1,BILAG2,«, l3=0x15}
0x02ca…02f4 Line {l1=0x28, l2=» KGB :INTEGER;«, l3=0x28}
0x02f4…031a Line {l1=0x24, l2=» BELØB :REAL«, l3=0x24}
0x031a…0320 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0320…033c Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x033c…034c Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x034c…036d Line {l1=0x1f, l2=»HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x1f}
0x036d…0388 Line {l1=0x19, l2=»KGB:ARRAY (1..5) OF REAL;«, l3=0x19}
0x0388…03af Line {l1=0x25, l2=»BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x25}
0x03af…03e2 Line {l1=0x31, l2=»KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x31}
0x03e2…03e8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x03e8…0402 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0402…0413 Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x0413…0421 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0421…0470 Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x0470…04a5 Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x04a5…04ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ab…04bc Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x04bc…04cf Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x04cf…04f3 Line {l1=0x22, l2=» T:ARRAY (1..508) OF INTEGER«, l3=0x22}
0x04f3…04f9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04f9…0508 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0508…051c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x051c…0540 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x0540…0548 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0548…0563 Line {l1=0x19, l2=» VAR FPOST,FKUN : ISF;«, l3=0x19}
0x0563…057e Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x057e…0597 Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x0597…05aa Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x05aa…05c0 Line {l1=0x14, l2=» PZ:POSTZONE;«, l3=0x14}
0x05c0…05d9 Line {l1=0x17, l2=» PPOST:POSTPOST;«, l3=0x17}
0x05d9…05ef Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x05ef…060a Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x060a…0626 Line {l1=0x1a, l2=» IER,I,K,LINIE,SIDE«, l3=0x1a}
0x0626…0649 Line {l1=0x21, l2=» :INTEGER;«, l3=0x21}
0x0649…0660 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0660…0672 Line {l1=0x10, l2=» R1:REAL;«, l3=0x10}
0x0672…069a Line {l1=0x26, l2=» DKB1,DKB:ARRAY (1..5) OF REAL;«, l3=0x26}
0x069a…06d8 Line {l1=0x3c, l2=» TEKST:ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;«, l3=0x3c}
0x06d8…0714 Line {l1=0x3a, l2=» KONTO:ARRAY (1..5) OF PACKED ARRAY (1..5) OF CHAR;«, l3=0x3a}
0x0714…071d Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x071d…0731 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0731…073f Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x073f…074d Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x074d…075e Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x075e…076f Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x076f…077f Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x077f…078e Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x078e…079d Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x079d…07ac Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x07ac…07bc Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x07bc…07c6 Line {l1=0x08, l2=» (*$R+*)«, l3=0x08}
0x07c6…07cf Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x07cf…07e2 Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x07e2…07ea Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x07ea…080f Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x080f…0826 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0826…083e Line {l1=0x16, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x16}
0x083e…085a Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x085a…0869 Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0869…0870 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0870…0882 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0882…0889 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0889…089a Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x089a…08df Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x08df…090f Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x090f…0948 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0948…095f Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x095f…096e Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x096e…0974 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0974…098d Line {l1=0x17, l2=»PROCEDURE NEDTÆLÆLDSTE;«, l3=0x17}
0x098d…0994 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0994…09ab Line {l1=0x15, l2=» WITH KUNDE,PPOST DO«, l3=0x15}
0x09ab…09b4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x09b4…09d1 Line {l1=0x1b, l2=» HELTAL(1):=KUNDE.NR(1);«, l3=0x1b}
0x09d1…09ee Line {l1=0x1b, l2=» HELTAL(2):=KUNDE.NR(2);«, l3=0x1b}
0x09ee…0a12 Line {l1=0x22, l2=» FOR I:=3 TO 7 DO HELTAL(I):=0;«, l3=0x22}
0x0a12…0a2e Line {l1=0x1a, l2=» NEXTREC(PZ.H,FPOST,A);«, l3=0x1a}
0x0a2e…0a61 Line {l1=0x31, l2=» IF (IER<>-1) AND (IER<>-2) THEN ERROR;IER:=0;«, l3=0x31}
0x0a61…0aa4 Line {l1=0x41, l2=» WHILE (HELTAL(1)=NR(1)) AND (HELTAL(2)=NR(2)) AND (R1<0.0) DO«, l3=0x41}
0x0aa4…0aaf Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0aaf…0afb Line {l1=0x4a, l2=» IF ((HELTAL(5)=1) OR (HELTAL(5)=4) OR (HELTAL(5)=9)) AND (REEL(2)>0)«, l3=0x4a}
0x0afb…0b07 Line {l1=0x0a, l2=» THEN«, l3=0x0a}
0x0b07…0b14 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b14…0b32 Line {l1=0x1c, l2=» REEL(2):=REEL(2)+R1;«, l3=0x1c}
0x0b32…0b50 Line {l1=0x1c, l2=» IF REEL(2)<=0.0 THEN«, l3=0x1c}
0x0b50…0b5f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b5f…0b77 Line {l1=0x16, l2=» R1:=REEL(2);«, l3=0x16}
0x0b77…0b8e Line {l1=0x15, l2=» REEL(2):=0;«, l3=0x15}
0x0b8e…0bad Line {l1=0x1d, l2=» IF HELTAL(5)=1 THEN«, l3=0x1d}
0x0bad…0bbe Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x0bbe…0bdd Line {l1=0x1d, l2=» NR(12):=NR(12)+1;«, l3=0x1d}
0x0bdd…0c00 Line {l1=0x21, l2=» NR(11):=NR(11)+TRUNC(«, l3=0x21}
0x0c00…0c44 Line {l1=0x42, l2=» JOURFIL^.DATO1*360.0+JOURFIL^.DATO2 DIV 100*30.0«, l3=0x42}
0x0c44…0c71 Line {l1=0x2b, l2=» +JOURFIL^.DATO2 MOD 100 -«, l3=0x2b}
0x0c71…0cbf Line {l1=0x4c, l2=» HELTAL(3)*360.0-HELTAL(4) DIV 100*30.0-HELTAL(4) MOD 100);«, l3=0x4c}
0x0cbf…0cce Line {l1=0x0d, l2=» END«, l3=0x0d}
0x0cce…0cdb Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0cdb…0cf2 Line {l1=0x15, l2=» ELSE R1:=0.0;«, l3=0x15}
0x0cf2…0d10 Line {l1=0x1c, l2=» PUTREC(PZ.H,FPOST,A)«, l3=0x1c}
0x0d10…0d1b Line {l1=0x09, l2=» END«, l3=0x09}
0x0d1b…0d3c Line {l1=0x1f, l2=» ELSE IF HELTAL(5)=10 THEN«, l3=0x1f}
0x0d3c…0d49 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d49…0d73 Line {l1=0x28, l2=» REEL(2):=REEL(2)+JOURFIL^.BELØB;«, l3=0x28}
0x0d73…0d99 Line {l1=0x24, l2=» IF REEL(2)<0 THEN REEL(2):=0«, l3=0x24}
0x0d99…0da5 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0da5…0dc2 Line {l1=0x1b, l2=» NEXTREC(PZ.H,FPOST,A)«, l3=0x1b}
0x0dc2…0dcb Line {l1=0x07, l2=» END«, l3=0x07}
0x0dcb…0dd2 Line {l1=0x05, l2=» END«, l3=0x05}
0x0dd2…0dd8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0dd8…0de9 Line {l1=0x0f, l2=»PROCEDURE PRUT;«, l3=0x0f}
0x0de9…0df9 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0df9…0e0a Line {l1=0x0f, l2=» DIFFE:REAL;«, l3=0x0f}
0x0e0a…0e11 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e11…0e1f Line {l1=0x0c, l2=» DIFFE:=0.0;«, l3=0x0c}
0x0e1f…0e32 Line {l1=0x11, l2=» FOR I:=1 TO 5 DO«, l3=0x11}
0x0e32…0e3a Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0e3a…0e86 Line {l1=0x4a, l2=» WRITELN(LIST,LINIE:5,' ':5,KONTO(I),SIDE-1:22,' ':10,DKB1(I)/100:12:2);«, l3=0x4a}
0x0e86…0e9a Line {l1=0x12, l2=» LINIE:=LINIE+1;«, l3=0x12}
0x0e9a…0eba Line {l1=0x1e, l2=» DIFFE:=DIFFE+DKB1(I)-DKB(I)«, l3=0x1e}
0x0eba…0ec1 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0ec1…0ed2 Line {l1=0x0f, l2=» WRITELN(LIST);«, l3=0x0f}
0x0ed2…0f05 Line {l1=0x31, l2=» WRITELN(LIST,'Difference',' ':37,DIFFE/100:12:2)«, l3=0x31}
0x0f05…0f0b Line {l1=0x04, l2=»END;«, l3=0x04}
0x0f0b…0f1c Line {l1=0x0f, l2=»PROCEDURE DOIT;«, l3=0x0f}
0x0f1c…0f23 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0f23…0f30 Line {l1=0x0b, l2=» LINIE:=1;«, l3=0x0b}
0x0f30…0f57 Line {l1=0x25, l2=» FOR K:=1 TO SYSFIL^.HELTAL(16)-1 DO«, l3=0x25}
0x0f57…0f60 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f60…0f73 Line {l1=0x11, l2=» GET(JOURFIL);«, l3=0x11}
0x0f73…0f89 Line {l1=0x14, l2=» WITH JOURFIL^ DO«, l3=0x14}
0x0f89…0f94 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0f94…0fad Line {l1=0x17, l2=» CASE TEKSTKODE OF«, l3=0x17}
0x0fad…0fd3 Line {l1=0x24, l2=» 0: DKB1(KGB):=DKB1(KGB)+BELØB;«, l3=0x24}
0x0fd3…0fe6 Line {l1=0x11, l2=»5,6,7,9,3,4:BEGIN«, l3=0x11}
0x0fe6…1009 Line {l1=0x21, l2=» IF LINIE MOD 60=1 THEN«, l3=0x21}
0x1009…101b Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x101b…1059 Line {l1=0x3c, l2=» IF LINIE>1 THEN FOR I:=1 TO 8 DO WRITELN(LIST);«, l3=0x3c}
0x1059…10a8 Line {l1=0x4d, l2=» WRITELN(LIST,'B O G H O L D E R I J O U R N A L',' ':39,SIDE:5);«, l3=0x4d}
0x10a8…10c5 Line {l1=0x1b, l2=» WRITELN(LIST);«, l3=0x1b}
0x10c5…1113 Line {l1=0x4c, l2=» WRITELN(LIST,'Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,«, l3=0x4c}
0x1113…1160 Line {l1=0x4b, l2=» 'Beløb',' ':4,'Kredit',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x4b}
0x1160…1194 Line {l1=0x32, l2=» SYSFIL^.HELTAL(2):8:-2);«, l3=0x32}
0x1194…11b1 Line {l1=0x1b, l2=» WRITELN(LIST);«, l3=0x1b}
0x11b1…11cc Line {l1=0x19, l2=» SIDE:=SIDE+1«, l3=0x19}
0x11cc…11dd Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x11dd…1203 Line {l1=0x24, l2=» DKB(KGB):=DKB(KGB)-BELØB;«, l3=0x24}
0x1203…1226 Line {l1=0x21, l2=» KUNDE.NR(1):=KONTONR1;«, l3=0x21}
0x1226…1249 Line {l1=0x21, l2=» KUNDE.NR(2):=KONTONR2;«, l3=0x21}
0x1249…1270 Line {l1=0x25, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x1270…1292 Line {l1=0x20, l2=» IF IER<>0 THEN ERROR;«, l3=0x20}
0x1292…12ac Line {l1=0x18, l2=» WITH KUNDE DO«, l3=0x18}
0x12ac…12be Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x12be…12d7 Line {l1=0x17, l2=» R1:=BELØB;«, l3=0x17}
0x12d7…12f7 Line {l1=0x1e, l2=» CASE TEKSTKODE OF«, l3=0x1e}
0x12f7…130b Line {l1=0x12, l2=» 4,6,9:BEGIN«, l3=0x12}
0x130b…133b Line {l1=0x2e, l2=» SALDOKØB(1):=SALDOKØB(1)+BELØB;«, l3=0x2e}
0x133b…1378 Line {l1=0x3b, l2=» WRITELN(LIST,LINIE:5,' ':5,TEKST(TEKSTKODE),«, l3=0x3b}
0x1378…13ad Line {l1=0x33, l2=» BILAG1*10000.0+BILAG2:12:-2,«, l3=0x33}
0x13ad…13e6 Line {l1=0x37, l2=» KONTONR1*10000.0+KONTONR2:10:-2,«, l3=0x37}
0x13e6…141f Line {l1=0x37, l2=» BELØB/100:12:2,' ':4,KONTO(KGB),«, l3=0x37}
0x141f…1451 Line {l1=0x30, l2=» DATO1*10000.0+DATO2:9:-2)«, l3=0x30}
0x1451…1464 Line {l1=0x11, l2=» END;«, l3=0x11}
0x1464…1478 Line {l1=0x12, l2=» 3,5,7:BEGIN«, l3=0x12}
0x1478…14a9 Line {l1=0x2f, l2=» SALDOKØB(6):=SALDOKØB(6)+BELØB;«, l3=0x2f}
0x14a9…14c0 Line {l1=0x15, l2=» I:=5;«, l3=0x15}
0x14c0…14f8 Line {l1=0x36, l2=» WHILE (SALDOKØB(I+1)<0.0) AND (I>0) DO«, l3=0x36}
0x14f8…150f Line {l1=0x15, l2=» BEGIN«, l3=0x15}
0x150f…154a Line {l1=0x39, l2=» SALDOKØB(I):=SALDOKØB(I)+SALDOKØB(I+1);«, l3=0x39}
0x154a…1571 Line {l1=0x25, l2=» SALDOKØB(I+1):=0.0;«, l3=0x25}
0x1571…158b Line {l1=0x18, l2=» I:=I-1«, l3=0x18}
0x158b…15a1 Line {l1=0x14, l2=» END;«, l3=0x14}
0x15a1…15df Line {l1=0x3c, l2=» WRITELN(LIST,LINIE:5,' ':5,TEKST(TEKSTKODE),«, l3=0x3c}
0x15df…1625 Line {l1=0x44, l2=» BILAG1*10000.0+BILAG2:12:-2,' ':5,KONTO(KGB),«, l3=0x44}
0x1625…166d Line {l1=0x46, l2=» -BELØB/100:12:2,KONTONR1*10000.0+KONTONR2:9:-2,«, l3=0x46}
0x166d…16a0 Line {l1=0x31, l2=» DATO1*10000.0+DATO2:9:-2);«, l3=0x31}
0x16a0…16be Line {l1=0x1c, l2=» NEDTÆLÆLDSTE«, l3=0x1c}
0x16be…16d0 Line {l1=0x10, l2=» END«, l3=0x10}
[…0x1…]
0x16e2…16f3 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x16f3…170f Line {l1=0x1a, l2=» LINIE:=LINIE+1;«, l3=0x1a}
0x170f…1736 Line {l1=0x25, l2=» PUTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x1736…1758 Line {l1=0x20, l2=» IF IER<>0 THEN ERROR;«, l3=0x20}
0x1758…1772 Line {l1=0x18, l2=» WITH PPOST DO«, l3=0x18}
0x1772…1784 Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x1784…17a7 Line {l1=0x21, l2=» HELTAL(1):=KONTONR1;«, l3=0x21}
0x17a7…17ca Line {l1=0x21, l2=» HELTAL(2):=KONTONR2;«, l3=0x21}
0x17ca…17ea Line {l1=0x1e, l2=» HELTAL(3):=DATO1;«, l3=0x1e}
0x17ea…180a Line {l1=0x1e, l2=» HELTAL(4):=DATO2;«, l3=0x1e}
0x180a…182e Line {l1=0x22, l2=» HELTAL(5):=TEKSTKODE;«, l3=0x22}
0x182e…184f Line {l1=0x1f, l2=» HELTAL(6):=BILAG1;«, l3=0x1f}
0x184f…1870 Line {l1=0x1f, l2=» HELTAL(7):=BILAG2;«, l3=0x1f}
0x1870…188e Line {l1=0x1c, l2=» REEL(1):=BELØB;«, l3=0x1c}
0x188e…18a9 Line {l1=0x19, l2=» REEL(2):=R1;«, l3=0x19}
0x18a9…18cd Line {l1=0x22, l2=» INSERT(PZ.H,FPOST,A);«, l3=0x22}
0x18cd…18f0 Line {l1=0x21, l2=» IF IER<>0 THEN ERROR«, l3=0x21}
0x18f0…1901 Line {l1=0x0f, l2=» END;«, l3=0x0f}
0x1901…190f Line {l1=0x0c, l2=» END«, l3=0x0c}
0x190f…191b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x191b…1925 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1925…192d Line {l1=0x06, l2=» END;«, l3=0x06}
0x192d…1935 Line {l1=0x06, l2=» PRUT«, l3=0x06}
0x1935…193b Line {l1=0x04, l2=»END;«, l3=0x04}
0x193b…1942 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1942…1945 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x1948…1967 Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x1967…197f Line {l1=0x16, l2=» REWRITE(FKUN,FNAVN);«, l3=0x16}
0x197f…19af Line {l1=0x2e, l2=» IOPEN(KZ.H,FKUN,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x19af…19b2 Line {l1=0x01, l2=» «, l3=0x01}
0x19b2…19d1 Line {l1=0x1d, l2=» FNAVN:='POSTREG:P2:0000:I';«, l3=0x1d}
0x19d1…19ea Line {l1=0x17, l2=» REWRITE(FPOST,FNAVN);«, l3=0x17}
0x19ea…1a06 Line {l1=0x1a, l2=» IOPEN(PZ.H,FPOST,SKRIV);«, l3=0x1a}
0x1a06…1a1f Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x1a1f…1a3a Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x1a3a…1a54 Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x1a54…1a67 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1a67…1a77 Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1a77…1a94 Line {l1=0x1b, l2=» SIDE:=SYSFIL^.HELTAL(19);«, l3=0x1b}
0x1a94…1ab2 Line {l1=0x1c, l2=» FNAVN:='JOURKASS:P1:30:I';«, l3=0x1c}
0x1ab2…1acd Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x1acd…1ad0 Line {l1=0x01, l2=» «, l3=0x01}
0x1ad0…1b08 Line {l1=0x36, l2=» FOR I:=1 TO 5 DO BEGIN DKB(I):=0.0;DKB1(I):=0.0 END;«, l3=0x36}
0x1b08…1b1e Line {l1=0x14, l2=» KONTO(1):='Kasse';«, l3=0x14}
0x1b1e…1b34 Line {l1=0x14, l2=» KONTO(2):='Bank ';«, l3=0x14}
0x1b34…1b4a Line {l1=0x14, l2=» KONTO(3):='Giro ';«, l3=0x14}
0x1b4a…1b60 Line {l1=0x14, l2=» KONTO(4):='Rabat';«, l3=0x14}
0x1b60…1b76 Line {l1=0x14, l2=» KONTO(5):='Rente';«, l3=0x14}
0x1b76…1b96 Line {l1=0x1e, l2=» TEKST(3):='Indbetaling ';«, l3=0x1e}
0x1b96…1bb6 Line {l1=0x1e, l2=» TEKST(4):='Udbetaling ';«, l3=0x1e}
0x1bb6…1bd6 Line {l1=0x1e, l2=» TEKST(5):='Kasserabat ';«, l3=0x1e}
0x1bd6…1bf6 Line {l1=0x1e, l2=» TEKST(6):='Rabat-rettelse ';«, l3=0x1e}
0x1bf6…1c16 Line {l1=0x1e, l2=» TEKST(7):='Rente-rettelse ';«, l3=0x1e}
0x1c16…1c36 Line {l1=0x1e, l2=» TEKST(9):='Rentenota ';«, l3=0x1e}
0x1c36…1c39 Line {l1=0x01, l2=» «, l3=0x01}
0x1c39…1c73 Line {l1=0x38, l2=» IF (SYSFIL^.HELTAL(16)-1>PZ.H.NREC-PZ.H.RECINUSE) THEN«, l3=0x38}
0x1c73…1cac Line {l1=0x37, l2=» WRITELN('Der er ikke plads til flere posteringer')«, l3=0x37}
0x1cac…1cb4 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1cb4…1cbd Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1cbd…1cd3 Line {l1=0x14, l2=» SEEK(JOURFIL,1);«, l3=0x14}
0x1cd3…1cde Line {l1=0x09, l2=» DOIT;«, l3=0x09}
0x1cde…1cf6 Line {l1=0x16, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x16}
0x1cf6…1d0f Line {l1=0x17, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x17}
0x1d0f…1d2b Line {l1=0x1a, l2=» SYSFIL^.HELTAL(16):=1;«, l3=0x1a}
0x1d2b…1d41 Line {l1=0x14, l2=» FOR I:=1 TO 5 DO«, l3=0x14}
0x1d41…1d70 Line {l1=0x2d, l2=» SYSFIL^.KGB(I):=SYSFIL^.KGB(I)+DKB1(I);«, l3=0x2d}
0x1d70…1d8f Line {l1=0x1d, l2=» SYSFIL^.HELTAL(19):=SIDE;«, l3=0x1d}
0x1d8f…1da4 Line {l1=0x13, l2=» SEEK(SYSFIL,1);«, l3=0x13}
0x1da4…1db6 Line {l1=0x10, l2=» PUT(SYSFIL);«, l3=0x10}
0x1db6…1dbe Line {l1=0x06, l2=» END;«, l3=0x06}
0x1dbe…1dd1 Line {l1=0x11, l2=» CLOSE(JOURFIL);«, l3=0x11}
0x1dd1…1de3 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1de3…1e09 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1e09…1e0f Line {l1=0x04, l2=»END.«, l3=0x04}
0x1e0f…1e20 00 00 45 43 2d 50 5a 2e 48 2e 52 45 43 49 4e 55 53 ┆ EC-PZ.H.RECINUS┆
0x1e20…1e40 45 29 20 54 48 45 4e 38 37 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 44 65 72 20 65 72 20 69 6b ┆E) THEN87 WRITELN('Der er ik┆
0x1e40…1e60 6b 65 20 70 6c 61 64 73 20 74 69 6c 20 66 6c 65 72 65 20 70 6f 73 74 65 72 69 6e 67 65 72 27 29 ┆ke plads til flere posteringer')┆
0x1e60…1e80 37 06 20 20 45 4c 53 45 06 07 20 20 42 45 47 49 4e 07 14 20 20 20 20 53 45 45 4b 28 4a 4f 55 52 ┆7 ELSE BEGIN SEEK(JOUR┆
0x1e80…1ea0 46 49 4c 2c 31 29 3b 14 07 20 20 44 4f 49 54 3b 07 14 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c ┆FIL,1); DOIT; ICLOSE(KZ.H,┆
0x1ea0…1ec0 46 4b 55 4e 29 3b 14 15 20 20 49 43 4c 4f 53 45 28 50 5a 2e 48 2c 46 50 4f 53 54 29 3b 15 18 20 ┆FKUN); ICLOSE(PZ.H,FPOST); ┆
0x1ec0…1ee0 20 53 59 53 46 49 4c 5e 2e 48 45 4c 54 41 4c 28 31 36 29 3a 3d 31 3b 18 29 20 20 53 59 53 46 49 ┆ SYSFIL^.HELTAL(16):=1; ) SYSFI┆
0x1ee0…1f00 4c 5e 2e 4b 47 42 28 31 29 3a 3d 53 59 53 46 49 4c 5e 2e 4b 47 42 28 31 29 2b 44 4b 42 31 28 31 ┆L^.KGB(1):=SYSFIL^.KGB(1)+DKB1(1┆
0x1f00…1f20 29 3b 29 29 20 20 53 59 53 46 49 4c 5e 2e 4b 47 42 28 32 29 3a 3d 53 59 53 46 49 4c 5e 2e 4b 47 ┆);)) SYSFIL^.KGB(2):=SYSFIL^.KG┆
0x1f20…1f40 42 28 32 29 2b 44 4b 42 31 28 32 29 3b 29 29 20 20 53 59 53 46 49 4c 5e 2e 4b 47 42 28 33 29 3a ┆B(2)+DKB1(2);)) SYSFIL^.KGB(3):┆
0x1f40…1f60 3d 53 59 53 46 49 4c 5e 2e 4b 47 42 28 33 29 2b 44 4b 42 31 28 33 29 3b 29 11 20 20 53 45 45 4b ┆=SYSFIL^.KGB(3)+DKB1(3);) SEEK┆
0x1f60…1f80 28 53 59 53 46 49 4c 2c 31 29 3b 11 0e 20 20 50 55 54 28 53 59 53 46 49 4c 29 3b 0e 06 20 20 45 ┆(SYSFIL,1); PUT(SYSFIL); E┆
0x1f80…1fa0 4e 44 3b 06 11 20 20 43 4c 4f 53 45 28 4a 4f 55 52 46 49 4c 29 3b 11 10 20 20 43 4c 4f 53 45 28 ┆ND; CLOSE(JOURFIL); CLOSE(┆
0x1fa0…1fc0 53 59 53 46 49 4c 29 3b 10 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 ┆SYSFIL); $ CHAIN('INTRE *1','┆
0x1fc0…1fe0 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 63 ┆HOVSA:P1',QUQ)$ END. ccccccccc┆
0x1fe0…2000 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┆
[…0x10…]
0x2200…2220 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 ┆