|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »KASSERAP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KASSERAP.K«
PROGRAM KASSENSRAPPORT;
(*$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;
KUNDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
SYSPOST=RECORD
HELTAL:ARRAY(1..24) OF INTEGER;
KBG: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;
KASSRAPPPOST=RECORD
KONTONR1,KONTONR2,
DATO1,DATO2,
TEKSTKODE,
BILAG1,BILAG2,
KGB :INTEGER;
BELØB :REAL
END;
KASSFIL=FILE OF KASSRAPPPOST;
VAR DIFF :BOOLEAN;
QUQ :^INTEGER;
F :ISF;
KZ :KUNDZONE;
KNAVN :STRING(4);
KUNDE :KPOST;
SYSFIL :SYSFILE;
B,R,R1,R2,DIFFE :REAL;
BILNR1,BILNR2,
DAT1,DAT2,
POSTNR,
LINENR,LINIENR,
JOURNR,
I,J,OPL,IER,
KASSSID,KASSNR :INTEGER;
FIL :STRING(20);
LINE :ARRAY (1..18) OF KASSRAPPPOST;
DEBET,DEBET1 :ARRAY (1..10) OF REAL;
KONTO :ARRAY (1..5) OF PACKED ARRAY (1..5) OF CHAR;
JOURFILE,
KASSFILE :KASSFIL;
TEKST :ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;
CH :CHAR;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
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 NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);
VAR I:INTEGER;
R:REAL;
BEGIN
R:=0.0;
FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));
I:=TRUNC(R/89998.0);
R:=R-I*89998.0+10001;
NU1:=TRUNC(R/10000);
NU2:=TRUNC(R-NU1*10000.0)
END;
PROCEDURE FINDKUND;
VAR I,N1,N2,FIN:INTEGER;
SVAR1:CHAR;
R1,R2:REAL;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
GOTOXY(1,23);
IF LINE(LINENR).TEKSTKODE=4 THEN
WRITELN('Debetkonto 0 for søgning med navn',' ':36)
ELSE
WRITELN('Kreditkonto 0 for søgning med navn',' ':36);
REPEAT
R:=-1.0;
GOTOXY(13,23);
READLN;IF NOT EOLN THEN READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);
IF (R=1.0) OR (R=2.0) OR (R=3.0) OR (R=4.0) OR (R=5.0) THEN
WITH LINE(LINENR) DO
BEGIN
IF TEKSTKODE=4 THEN
BEGIN
KGB:=TRUNC(R);
CASE KGB OF
1,2,3:TEKSTKODE:=3;
4 :TEKSTKODE:=5;
5 :TEKSTKODE:=7
END;
GOTOXY(38,LINENR+1);
WRITELN(' ':5,KONTO(KGB))
END
ELSE
BEGIN
KONTONR1:=0;
KONTONR2:=TRUNC(R);
TEKSTKODE:=8;
GOTOXY(11,LINENR+1);WRITELN(TEKST(TEKSTKODE));
GOTOXY(65,LINENR+1);WRITELN(KONTO(KONTONR2))
END;
EXIT(FINDKUND)
END;
REPEAT
IF R=0.0 THEN
IF I=1 THEN
BEGIN
GOTOXY(1,23);
WRITELN('INDTAST KUNDENAVN',' ':60);
REPEAT
GOTOXY(20,23);
READLN;IF NOT EOLN THEN READ(KNAVN)
UNTIL LENGTH(KNAVN)=4;
NANU(KNAVN,N1,N2);
KUNDE.NR(1):=N1;
KUNDE.NR(2):=N2;
R1:=N1*10000.0+N2;
GETREC(KZ.H,F,KUNDE.A);
IF IER=-6 THEN NEXTREC(KZ.H,F,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
I:=0
END
ELSE
BEGIN
NEXTREC(KZ.H,F,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);
IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;
END
ELSE
BEGIN
KUNDE.NR(1):=TRUNC(R/10000.0);
KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);
GETREC(KZ.H,F,KUNDE.A)
END;
GOTOXY(1,23);
FIN:=1;
IF IER=0 THEN
BEGIN
WRITE(KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2,' ');
WRITE(KUNDE.NAVN(1));
WRITELN(' ',KUNDE.NAVN(3));
GOTOXY(1,22);WRITELN('RIGTIG KUNDE (J/N)',' ':59);
REPEAT GOTOXY(20,22);READLN;GOTOXY(7,22);WRITELN;
IF EOLN THEN SETIORESULT(-1) ELSE
READ(SVAR1) UNTIL (IORESULT=0) AND
((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));
IF ((SVAR1='N') OR (SVAR1='n')) AND (R=0.0) THEN FIN:=0;
GOTOXY(1,22);WRITELN(' ':77)
END
ELSE
IF IER=-6 THEN
BEGIN
IER:=0;
WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN',' ':42);
GOTOXY(40,23);
READLN
END
ELSE ERROR
UNTIL FIN=1
UNTIL (SVAR1='J') OR (SVAR1='j');
LINE(LINENR).KONTONR1:=KUNDE.NR(1);
LINE(LINENR).KONTONR2:=KUNDE.NR(2);
IF LINE(LINENR).TEKSTKODE=4 THEN
GOTOXY(38,LINENR+1)
ELSE
BEGIN
GOTOXY(11,LINENR+1);
WRITE(TEKST(LINE(LINENR).TEKSTKODE));
GOTOXY(60,LINENR+1);
END;
WRITELN(LINE(LINENR).KONTONR1*10000.0+LINE(LINENR).KONTONR2:10:-2);
END;
PROCEDURE PRLINE;
BEGIN
WITH LINE(LINENR) DO
BEGIN
GOTOXY(1,LINENR+1);
WRITE(LINENR:5,' ':5,TEKST(TEKSTKODE),BILAG1*10000.0+
BILAG2:12:-2);
CASE TEKSTKODE OF
4,6,9: BEGIN
WRITELN(KONTONR1*10000.0+KONTONR2:10:-2,BELØB/100:12:2,
' ':5,KONTO(KGB));
DEBET(5+KGB):=DEBET(5+KGB)-BELØB
END;
3,5,7: BEGIN
WRITELN(' ':5,KONTO(KGB),BELØB/100:12:2,KONTONR1*10000.0+
KONTONR2:10:-2);
DEBET(KGB):=DEBET(KGB)+BELØB
END;
8: BEGIN
WRITELN(' ':5,KONTO(KGB),BELØB/100:12:2,' ':5,KONTO(KONTONR2));
DEBET(KGB):=DEBET(KGB)+BELØB;
DEBET(5+KONTONR2):=DEBET(5+KONTONR2)-BELØB
END;
END;
END
END;
PROCEDURE KASSERAPPORT;
VAR I:INTEGER;
BEGIN
FOR I:=1 TO 10 DO DEBET(I):=0;
FIL:='JOURKASS:P1:30:I';
REWRITE(JOURFILE,FIL);
SEEK(JOURFILE,JOURNR);
SEEK(KASSFILE,1);
LINIENR:=1;
WHILE LINIENR<KASSNR DO
BEGIN
IF LINIENR MOD 60=1 THEN
BEGIN
IF LINIENR>1 THEN FOR I:=1 TO 8 DO WRITELN(LIST);
WRITELN(LIST,'K A S S E R A P P O R T',' ':49,KASSSID: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);
KASSSID:=KASSSID+1
END;
GET(KASSFILE);
WITH KASSFILE^ DO
BEGIN
WRITE(LIST,LINIENR:5,' ':5,TEKST(TEKSTKODE),BILAG1*10000.0+
BILAG2:12:-2);
CASE TEKSTKODE OF
4,6,9:BEGIN
WRITELN(LIST,KONTONR1*10000.0+KONTONR2:10:-2,BELØB/100:12:2,
' ':4,KONTO(KGB),DATO1*10000.0+DATO2:9:-2);
JOURFILE^:=KASSFILE^;
PUT(JOURFILE);
DEBET(5+KGB):=DEBET(5+KGB)-BELØB;
JOURNR:=JOURNR+1
END;
3,5,7:BEGIN
WRITELN(LIST,' ':5,KONTO(KGB),BELØB/100:12:2,KONTONR1*10000.0+
KONTONR2:9:-2,DATO1*10000.0+DATO2:9:-2);
DEBET(KGB):=DEBET(KGB)+BELØB;
BELØB:=-BELØB;
JOURFILE^:=KASSFILE^;
PUT(JOURFILE);
JOURNR:=JOURNR+1
END;
8: BEGIN
WRITELN(LIST,' ':5,KONTO(KGB),BELØB/100:12:2,' ':4,KONTO(KONTONR2),
DATO1*10000.0+DATO2:9:-2);
DEBET(KGB):=DEBET(KGB)+BELØB;
DEBET(5+KONTONR2):=DEBET(5+KONTONR2)-BELØB
END;
END;
END;
LINIENR:=LINIENR+1
END;
DIFFE:=0;
FOR I:=1 TO 5 DO
BEGIN
WRITELN(LIST,LINIENR:5,' ':5,KONTO(I),KASSSID-1:22,' ':10,
(DEBET(I)+DEBET(I+5))/100:12:2);
WITH JOURFILE^ DO
BEGIN
KONTONR1:=0;
KONTONR2:=I;
DATO1:=DAT1;DATO2:=DAT2;
TEKSTKODE:=0;
BILAG1:=0;BILAG2:=KASSSID-1;
KGB:=I;
BELØB:=DEBET(I)+DEBET(I+5);
DIFFE:=DIFFE+DEBET(I)+DEBET(I+5)-DEBET1(I)-DEBET1(I+5);
DEBET(I):=0.0;DEBET(I+5):=0.0;
DEBET1(I):=0.0;DEBET1(I+5):=0.0
END;
PUT(JOURFILE);
JOURNR:=JOURNR+1;
LINIENR:=LINIENR+1
END;
WRITELN(LIST);
WRITELN(LIST,'Difference',' ':37,DIFFE/100:12:2);
CLOSE(JOURFILE);
FIL:='SYSREG:P2:0:I';
REWRITE(SYSFIL,FIL);
SEEK(SYSFIL,1);
KASSNR:=1;
SYSFIL^.HELTAL(15):=KASSNR;
SYSFIL^.HELTAL(16):=JOURNR;
SYSFIL^.HELTAL(17):=KASSSID;
SYSFIL^.HELTAL(11):=BILNR1;
SYSFIL^.HELTAL(12):=BILNR2;
SEEK(SYSFIL,1);
PUT(SYSFIL);
CLOSE(SYSFIL)
END;
PROCEDURE DATO;
VAR R:REAL;
BEGIN
REPEAT
GOTOXY(72,1);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(R)
UNTIL (IORESULT=0) AND (R>800000.0) AND (R<900000.0);
DAT1:=TRUNC(R/10000.0);
DAT2:=TRUNC(R-DAT1*10000.0)
END;
PROCEDURE LÆSOPL;
VAR R:REAL;
I,J:INTEGER;
BEGIN
J:=(OPL-1) MOD 5+1;I:=OPL DIV 6*29 +17;
REPEAT
GOTOXY(I,J);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(R)
UNTIL (IORESULT=0) AND (R<100000000.0) AND (R>=0.0);
IF OPL>5 THEN R:=-R;
DEBET1(OPL):=R*100
END;
PROCEDURE SKRIVDIFF;
VAR I:INTEGER;
BEGIN
GOTOXY(1,7);WRITELN('Differencer');
DIFF:=FALSE;
FOR I:=1 TO 10 DO
BEGIN
GOTOXY(I DIV 6*29+1,(I-1) MOD 5+8);
WRITE(' ':2,KONTO((I-1) MOD 5+1),' ');
IF I<6 THEN WRITE('Debet ') ELSE WRITE('Kredit');
WRITELN((DEBET(I)-DEBET1(I))/100:12:2);
IF DEBET(I)-DEBET1(I)<>0.0 THEN DIFF:=TRUE
END
END;
PROCEDURE SKRIVDK;
VAR I:INTEGER;
BEGIN
CLEARSCREEN;
FOR I:=1 TO 10 DO
BEGIN
GOTOXY(I DIV 6*29+1,(I-1) MOD 5+1);
WRITE(I:2,' ',KONTO((I-1) MOD 5+1),' ');
IF I<6 THEN WRITE('Debet ')
ELSE WRITE('Kredit');
WRITELN(DEBET1(I)/100:12:2)
END
END;
PROCEDURE INDSIDE;
VAR I:INTEGER;
BEGIN
CLEARSCREEN;
WRITELN('Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,'Beløb',
' ':4,'Kredit',DAT1*10000.0+DAT2:8:-2);
SEEK(KASSFILE,POSTNR);
FOR I:=1 TO 18 DO
IF POSTNR<KASSNR THEN
BEGIN
GET(KASSFILE);
LINE(I):=KASSFILE^;
POSTNR:=POSTNR+1;
LINIENR:=LINIENR+1;
PRLINE;
LINENR:=LINIENR;
END
ELSE
I:=18
END;
PROCEDURE ANNUL;
VAR I:INTEGER;
BEGIN
IF (LINENR>1) AND (LINIENR=0) THEN
BEGIN
LINENR:=LINENR-1;
GOTOXY(1,LINENR+1);WRITELN(' ':77);
BILNR2:=BILNR2-1;
IF BILNR2=-1 THEN
BEGIN
BILNR1:=BILNR1-1;
BILNR2:=9999;
END;
IF (LINE(LINENR).BILAG1<>BILNR1) OR (LINE(LINENR).BILAG2<>BILNR2) THEN
BEGIN
BILNR2:=BILNR2+1;
IF BILNR2=10000 THEN
BEGIN
BILNR1:=BILNR1+1;
BILNR2:=0
END
END;
WITH LINE(LINENR) DO
CASE TEKSTKODE OF
4,6,9: DEBET(5+KGB):=DEBET(5+KGB)+BELØB;
3,5,7: DEBET(KGB):=DEBET(KGB)-BELØB;
8: BEGIN
DEBET(KGB):=DEBET(KGB)-BELØB;
DEBET(5+KONTONR2):=DEBET(5+KONTONR2)+BELØB
END
END;
END;
B:=-1
END;
PROCEDURE INBILAG;
BEGIN
GOTOXY(1,22);
WRITELN(' ':77);
GOTOXY(1,23);
WRITELN('Bilag 1 (0:færdig, 1:automatisk, D:dato-ændring',
', A:annuller sidste)');
REPEAT
GOTOXY(7,23);READLN;GOTOXY(70,23);WRITELN;
IF EOLN THEN B:=1
ELSE
IF (INPUT^='D') OR (INPUT^='d') THEN
BEGIN
DATO;
B:=-1
END
ELSE
IF (INPUT^='A') OR (INPUT^='a') THEN ANNUL ELSE READ(B)
UNTIL (IORESULT=0) AND (B>=0.0) AND (B<100000000.0);
IF B>0 THEN
BEGIN
IF B=1 THEN
BEGIN
LINE(LINENR).BILAG1:=BILNR1;
LINE(LINENR).BILAG2:=BILNR2;
BILNR2:=BILNR2+1;
IF BILNR2=10000 THEN
BEGIN
BILNR1:=BILNR1+1;
BILNR2:=0
END
END
ELSE
BEGIN
LINE(LINENR).BILAG1:=TRUNC(B/10000.0);
LINE(LINENR).BILAG2:=TRUNC(B-LINE(LINENR).BILAG1*10000.0)
END;
GOTOXY(26,LINENR+1);
WRITELN(LINE(LINENR).BILAG1*10000.0+LINE(LINENR).BILAG2:12:-2)
END
END;
PROCEDURE INDBELØB;
VAR R:REAL;
BEGIN
GOTOXY(1,23);
WRITELN('Beløb',' ':72);
REPEAT
GOTOXY(7,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(R)
UNTIL (IORESULT=0) AND (R<100000000.0) AND (R>=0.0);
GOTOXY(48,LINENR+1);
WRITELN(R:12:2);
LINE(LINENR).BELØB:=100*R
END;
PROCEDURE INDKGB;
VAR I:INTEGER;
BEGIN
IF LINE(LINENR).TEKSTKODE<>4 THEN FINDKUND
ELSE
BEGIN
GOTOXY(1,23);
WRITELN('Kredit (1:Kasse, 2:Bank, 3:Giro, 4:Rabat, 5:Rente)',' ':22);
REPEAT
GOTOXY(8,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<6);
CASE I OF
1,2,3:LINE(LINENR).TEKSTKODE:=4;
4 :LINE(LINENR).TEKSTKODE:=6;
5 :LINE(LINENR).TEKSTKODE:=9
END;
GOTOXY(11,LINENR+1);
WRITE(TEKST(LINE(LINENR).TEKSTKODE));
GOTOXY(60,LINENR+1);
WRITELN(' ':5,KONTO(I));
LINE(LINENR).KGB:=I
END
END;
PROCEDURE INLINE;
BEGIN
LINENR:=1;
CLEARSCREEN;
WRITELN('Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,'Beløb',
' ':4,'Kredit',DAT1*10000.0+DAT2:8:-2);
INBILAG;
WHILE (B>0.0) AND (LINENR<19) DO
WITH LINE(LINENR) DO
BEGIN
GOTOXY(1,LINENR+1);WRITELN(LINENR:5);
LINE(LINENR).TEKSTKODE:=4;
FINDKUND;
INDBELØB;
INDKGB;
PRLINE;
DATO1:=DAT1;DATO2:=DAT2;
LINENR:=LINENR+1;
IF LINENR<19 THEN
INBILAG
END;
LINENR:=LINENR-1;
IF LINENR>0 THEN
FOR J:=1 TO LINENR DO
BEGIN
KASSFILE^:=LINE(J);
PUT(KASSFILE);
KASSNR:=KASSNR+1
END
END;
PROCEDURE AFSTEM;
VAR I,J:INTEGER;
BEGIN
SKRIVDK;
FOR OPL:=1 TO 10 DO LÆSOPL;
SKRIVDK;
SKRIVDIFF;
WHILE DIFF DO
BEGIN
GOTOXY(1,23);
WRITELN('Ændring i (1-10, 0 for posteringer)',' ':37);
REPEAT
GOTOXY(11,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(OPL)
UNTIL (IORESULT=0) AND (OPL>-1) AND (OPL<11);
IF OPL>0 THEN LÆSOPL
ELSE
BEGIN
FOR I:=1 TO 10 DO DEBET(I):=0.0;
POSTNR:=1;
REPEAT
LINIENR:=1;LINENR:=1;
INDSIDE;
REPEAT
GOTOXY(1,23);
IF POSTNR<KASSNR THEN
WRITELN('Linienr 0 for ny side',' ':48)
ELSE
WRITELN('Linienr 0 for færdig',' ':49);
REPEAT
GOTOXY(9,23);READLN;if eoln then setioresult(-1) else READ(I)
UNTIL (IORESULT=0) AND (I>-1) AND (I<LINIENR);
IF I>0 THEN
BEGIN
LINENR:=I;
WITH LINE(LINENR) DO
CASE TEKSTKODE OF
4,6,9: DEBET(5+KGB):=DEBET(5+KGB)+BELØB;
3,5,7: DEBET(KGB):=DEBET(KGB)-BELØB;
8: BEGIN
DEBET(KGB):=DEBET(KGB)-BELØB;
DEBET(5+KONTONR2):=DEBET(5+KONTONR2)+BELØB
END
END;
REPEAT
GOTOXY(1,23);
WRITELN('Ændring af 0:færdig, 1:bilag, 2:konti, 3:beløb',
' ':28);
REPEAT
GOTOXY(12,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(J)
UNTIL (IORESULT=0) AND (J>-1) AND (J<4);
IF J>0 THEN
WITH LINE(LINENR) DO
BEGIN
CASE J OF
1: INBILAG;
2: BEGIN LINE(LINENR).TEKSTKODE:=4; FINDKUND; INDKGB END;
3: INDBELØB
END;
END
UNTIL J=0;
PRLINE;
SEEK(KASSFILE,POSTNR-LINIENR+LINENR);
KASSFILE^:=LINE(LINENR);
PUT(KASSFILE)
END
UNTIL I=0
UNTIL POSTNR=KASSNR;
REPEAT
GOTOXY(1,23);
WRITELN('Flere linier J/N',' ':59);
REPEAT
GOTOXY(20,23);READLN;GOTOXY(6,23);WRITELN;
IF EOLN THEN SETIORESULT(-1) ELSE READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR(CH='n'));
IF (CH='J') OR (CH='j') THEN INLINE
UNTIL (CH='N') OR (CH='n');
END;
SKRIVDK;
SKRIVDIFF
END;
KASSERAPPORT
END;
BEGIN
FIL:='KUNDERG:P2:0000:I';
RESET(F,FIL);
IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;
FIL:='KASSRAPP:P1:20:I';
REWRITE(KASSFILE,FIL);
FIL:='SYSREG:P2:0:I';
RESET(SYSFIL,FIL);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
KASSNR:=SYSFIL^.HELTAL(15);
JOURNR:=SYSFIL^.HELTAL(16);
KASSSID:=SYSFIL^.HELTAL(17);
DAT1:=SYSFIL^.HELTAL(1);
DAT2:=SYSFIL^.HELTAL(2);
BILNR1:=SYSFIL^.HELTAL(11);
BILNR2:=SYSFIL^.HELTAL(12);
KONTO(1):='Kasse';
KONTO(2):='Bank ';
KONTO(3):='Giro ';
KONTO(4):='Rabat';
KONTO(5):='Rente';
B:=0.0;
TEKST(3):='Indbetaling ';
TEKST(4):='Udbetaling ';
TEKST(5):='Kasserabat ';
TEKST(6):='Rabat-rettelse ';
TEKST(7):='Rente-rettelse ';
TEKST(8):='Overførsel ';
TEKST(9):='Rentenota ';
IF KASSNR>1 THEN
BEGIN
SEEK(KASSFILE,KASSNR);
FOR I:=1 TO 10 DO
BEGIN
GET(KASSFILE);
DEBET1(I):=0.0;
DEBET(I):=KASSFILE^.BELØB
END;
CLEARSCREEN;
WRITELN('Sidste kasserapport ikke afstemt, ønskes afstemning (J/N)');
REPEAT
GOTOXY(59,1);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='N') OR (CH='J') OR (CH='n') OR (CH='j'));
IF (CH='J') OR (CH='j') THEN AFSTEM
END
ELSE
FOR I:=1 TO 10 DO DEBET(I):=0.0;
LINIENR:=0;
FOR I:=1 TO 10 DO DEBET1(I):=0.0;
SEEK(KASSFILE,KASSNR);
REPEAT
INLINE;
IF (B>0) OR (KASSNR=1) THEN LINENR:=1
ELSE
BEGIN
GOTOXY(1,23);WRITELN('Ønskes afstemning (J/N)',' ':54);
REPEAT
GOTOXY(25,23);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
IF (CH='J') OR (CH='j') THEN AFSTEM
ELSE
FOR I:=1 TO 10 DO
WITH KASSFILE^ DO
BEGIN
BELØB:=DEBET(I);
PUT(KASSFILE)
END
END
UNTIL B=0;
IF KASSNR>1 THEN
BEGIN
REWRITE(SYSFIL,FIL);
SEEK(SYSFIL,1);
SYSFIL^.HELTAL(15):=KASSNR;
SYSFIL^.HELTAL(11):=BILNR1;
SYSFIL^.HELTAL(12):=BILNR2;
PUT(SYSFIL);
CLOSE(SYSFIL)
END;
ICLOSE(KZ.H,F);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0019 Line {l1=0x17, l2=»PROGRAM KASSENSRAPPORT;«, l3=0x17}
0x0019…0028 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0028…0037 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0037…0046 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0046…006c Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x006c…00b5 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00b5…00fe Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x00fe…012e Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x012e…017e Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x017e…01ad Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01ad…01db Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01db…0206 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0206…022f Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x022f…0254 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x0254…025c Line {l1=0x06, l2=» END;«, l3=0x06}
0x025c…026e Line {l1=0x10, l2=» KUNDZONE=RECORD«, l3=0x10}
0x026e…0282 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0282…02a6 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x02a6…02ae Line {l1=0x06, l2=» END;«, l3=0x06}
0x02ae…02bf Line {l1=0x0f, l2=» SYSPOST=RECORD«, l3=0x0f}
0x02bf…02e7 Line {l1=0x26, l2=» HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x26}
0x02e7…0308 Line {l1=0x1f, l2=» KBG:ARRAY(1..5) OF REAL;«, l3=0x1f}
0x0308…0336 Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x0336…036f Line {l1=0x37, l2=» KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x37}
0x036f…0376 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0376…0391 Line {l1=0x19, l2=» SYSFILE=FILE OF SYSPOST;«, l3=0x19}
0x0391…03a6 Line {l1=0x13, l2=»KASSRAPPPOST=RECORD«, l3=0x13}
0x03a6…03c1 Line {l1=0x19, l2=» KONTONR1,KONTONR2,«, l3=0x19}
0x03c1…03d6 Line {l1=0x13, l2=» DATO1,DATO2,«, l3=0x13}
0x03d6…03e9 Line {l1=0x11, l2=» TEKSTKODE,«, l3=0x11}
0x03e9…0400 Line {l1=0x15, l2=» BILAG1,BILAG2,«, l3=0x15}
0x0400…042a Line {l1=0x28, l2=» KGB :INTEGER;«, l3=0x28}
0x042a…0450 Line {l1=0x24, l2=» BELØB :REAL«, l3=0x24}
0x0450…0456 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0456…0475 Line {l1=0x1d, l2=»KASSFIL=FILE OF KASSRAPPPOST;«, l3=0x1d}
0x0475…0497 Line {l1=0x20, l2=»VAR DIFF :BOOLEAN;«, l3=0x20}
0x0497…04ba Line {l1=0x21, l2=» QUQ :^INTEGER;«, l3=0x21}
0x04ba…04d8 Line {l1=0x1c, l2=» F :ISF;«, l3=0x1c}
0x04d8…04fb Line {l1=0x21, l2=» KZ :KUNDZONE;«, l3=0x21}
0x04fb…051f Line {l1=0x22, l2=» KNAVN :STRING(4);«, l3=0x22}
0x051f…053f Line {l1=0x1e, l2=» KUNDE :KPOST;«, l3=0x1e}
0x053f…0561 Line {l1=0x20, l2=» SYSFIL :SYSFILE;«, l3=0x20}
0x0561…0580 Line {l1=0x1d, l2=» B,R,R1,R2,DIFFE :REAL;«, l3=0x1d}
0x0580…0597 Line {l1=0x15, l2=» BILNR1,BILNR2,«, l3=0x15}
0x0597…05aa Line {l1=0x11, l2=» DAT1,DAT2,«, l3=0x11}
0x05aa…05ba Line {l1=0x0e, l2=» POSTNR,«, l3=0x0e}
0x05ba…05d2 Line {l1=0x16, l2=» LINENR,LINIENR,«, l3=0x16}
0x05d2…05e2 Line {l1=0x0e, l2=» JOURNR,«, l3=0x0e}
0x05e2…05f7 Line {l1=0x13, l2=» I,J,OPL,IER,«, l3=0x13}
0x05f7…0619 Line {l1=0x20, l2=» KASSSID,KASSNR :INTEGER;«, l3=0x20}
0x0619…063e Line {l1=0x23, l2=» FIL :STRING(20);«, l3=0x23}
0x063e…0676 Line {l1=0x36, l2=» LINE :ARRAY (1..18) OF KASSRAPPPOST;«, l3=0x36}
0x0676…06a6 Line {l1=0x2e, l2=» DEBET,DEBET1 :ARRAY (1..10) OF REAL;«, l3=0x2e}
0x06a6…06ec Line {l1=0x44, l2=» KONTO :ARRAY (1..5) OF PACKED ARRAY (1..5) OF CHAR;«, l3=0x44}
0x06ec…06fe Line {l1=0x10, l2=» JOURFILE,«, l3=0x10}
0x06fe…0720 Line {l1=0x20, l2=» KASSFILE :KASSFIL;«, l3=0x20}
0x0720…0768 Line {l1=0x46, l2=» TEKST :ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;«, l3=0x46}
0x0768…0787 Line {l1=0x1d, l2=» CH :CHAR;«, l3=0x1d}
0x0787…078a Line {l1=0x01, l2=» «, l3=0x01}
0x078a…0793 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0793…07a6 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x07a6…07b3 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x07b3…07c3 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x07c3…07d3 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x07d3…07e1 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x07e1…07ef Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x07ef…07fe Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x07fe…0807 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0807…0810 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0810…0821 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0821…0831 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0831…0848 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0848…085a Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x085a…0861 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0861…0885 Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x0885…0898 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x0898…08b3 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x08b3…08bb Line {l1=0x06, l2=» STOP«, l3=0x06}
0x08bb…08c1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08c1…08d3 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x08d3…08da Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x08da…08eb Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x08eb…0930 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0930…0960 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0960…0999 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0999…09b0 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x09b0…09bf Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x09bf…09c5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x09c5…09f9 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x09f9…0a09 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0a09…0a16 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0a16…0a1d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a1d…0a28 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0a28…0a4f Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0a4f…0a67 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0a67…0a80 Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x0a80…0a98 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0a98…0ab5 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0ab5…0abb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0abb…0ad0 Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0ad0…0aed Line {l1=0x1b, l2=»VAR I,N1,N2,FIN:INTEGER;«, l3=0x1b}
0x0aed…0b01 Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0b01…0b15 Line {l1=0x12, l2=» R1,R2:REAL;«, l3=0x12}
0x0b15…0b1c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0b1c…0b26 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0b26…0b31 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x0b31…0b42 Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x0b42…0b55 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x0b55…0b7b Line {l1=0x24, l2=» IF LINE(LINENR).TEKSTKODE=4 THEN«, l3=0x24}
0x0b7b…0bbc Line {l1=0x3f, l2=» WRITELN('Debetkonto 0 for søgning med navn',' ':36)«, l3=0x3f}
0x0bbc…0bc6 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x0bc6…0c08 Line {l1=0x40, l2=» WRITELN('Kreditkonto 0 for søgning med navn',' ':36);«, l3=0x40}
0x0c08…0c14 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0c14…0c24 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0c24…0c3a Line {l1=0x14, l2=» GOTOXY(13,23);«, l3=0x14}
0x0c3a…0c61 Line {l1=0x25, l2=» READLN;IF NOT EOLN THEN READ(R)«, l3=0x25}
0x0c61…0c98 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x0c98…0cd9 Line {l1=0x3f, l2=» IF (R=1.0) OR (R=2.0) OR (R=3.0) OR (R=4.0) OR (R=5.0) THEN«, l3=0x3f}
0x0cd9…0cf3 Line {l1=0x18, l2=» WITH LINE(LINENR) DO«, l3=0x18}
0x0cf3…0cfe Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0cfe…0d19 Line {l1=0x19, l2=» IF TEKSTKODE=4 THEN«, l3=0x19}
0x0d19…0d26 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d26…0d3e Line {l1=0x16, l2=» KGB:=TRUNC(R);«, l3=0x16}
0x0d3e…0d53 Line {l1=0x13, l2=» CASE KGB OF«, l3=0x13}
0x0d53…0d72 Line {l1=0x1d, l2=» 1,2,3:TEKSTKODE:=3;«, l3=0x1d}
0x0d72…0d91 Line {l1=0x1d, l2=» 4 :TEKSTKODE:=5;«, l3=0x1d}
0x0d91…0daf Line {l1=0x1c, l2=» 5 :TEKSTKODE:=7«, l3=0x1c}
0x0daf…0dbd Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0dbd…0ddb Line {l1=0x1c, l2=» GOTOXY(38,LINENR+1);«, l3=0x1c}
0x0ddb…0dfe Line {l1=0x21, l2=» WRITELN(' ':5,KONTO(KGB))«, l3=0x21}
0x0dfe…0e09 Line {l1=0x09, l2=» END«, l3=0x09}
0x0e09…0e15 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0e15…0e22 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0e22…0e38 Line {l1=0x14, l2=» KONTONR1:=0;«, l3=0x14}
0x0e38…0e55 Line {l1=0x1b, l2=» KONTONR2:=TRUNC(R);«, l3=0x1b}
0x0e55…0e6c Line {l1=0x15, l2=» TEKSTKODE:=8;«, l3=0x15}
0x0e6c…0ea4 Line {l1=0x36, l2=» GOTOXY(11,LINENR+1);WRITELN(TEKST(TEKSTKODE));«, l3=0x36}
0x0ea4…0eda Line {l1=0x34, l2=» GOTOXY(65,LINENR+1);WRITELN(KONTO(KONTONR2))«, l3=0x34}
0x0eda…0ee6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0ee6…0efc Line {l1=0x14, l2=» EXIT(FINDKUND)«, l3=0x14}
0x0efc…0f06 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0f06…0f12 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0f12…0f27 Line {l1=0x13, l2=» IF R=0.0 THEN«, l3=0x13}
0x0f27…0f3c Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0f3c…0f4b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0f4b…0f64 Line {l1=0x17, l2=» GOTOXY(1,23);«, l3=0x17}
0x0f64…0f94 Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x0f94…0fa6 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x0fa6…0fc0 Line {l1=0x18, l2=» GOTOXY(20,23);«, l3=0x18}
0x0fc0…0fef Line {l1=0x2d, l2=» READLN;IF NOT EOLN THEN READ(KNAVN)«, l3=0x2d}
0x0fef…1011 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x1011…102f Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x102f…104b Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x104b…1067 Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x1067…1085 Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x1085…10a8 Line {l1=0x21, l2=» GETREC(KZ.H,F,KUNDE.A);«, l3=0x21}
0x10a8…10db Line {l1=0x31, l2=» IF IER=-6 THEN NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x31}
0x10db…1117 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x1117…1127 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x1127…1134 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1134…1142 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1142…1151 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1151…1175 Line {l1=0x22, l2=» NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x22}
0x1175…11b1 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x11b1…11e1 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x11e1…1222 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x1222…122f Line {l1=0x0b, l2=» END«, l3=0x0b}
0x122f…123b Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x123b…1248 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1248…1270 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x1270…12a4 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x12a4…12c4 Line {l1=0x1e, l2=» GETREC(KZ.H,F,KUNDE.A)«, l3=0x1e}
0x12c4…12d0 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x12d0…12e5 Line {l1=0x13, l2=» GOTOXY(1,23);«, l3=0x13}
0x12e5…12f4 Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x12f4…1309 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1309…1316 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1316…1351 Line {l1=0x39, l2=» WRITE(KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2,' ');«, l3=0x39}
0x1351…1370 Line {l1=0x1d, l2=» WRITE(KUNDE.NAVN(1));«, l3=0x1d}
0x1370…1396 Line {l1=0x24, l2=» WRITELN(' ',KUNDE.NAVN(3));«, l3=0x24}
0x1396…13d2 Line {l1=0x3a, l2=» GOTOXY(1,22);WRITELN('RIGTIG KUNDE (J/N)',' ':59);«, l3=0x3a}
0x13d2…140e Line {l1=0x3a, l2=» REPEAT GOTOXY(20,22);READLN;GOTOXY(7,22);WRITELN;«, l3=0x3a}
0x140e…1441 Line {l1=0x31, l2=» IF EOLN THEN SETIORESULT(-1) ELSE«, l3=0x31}
0x1441…1475 Line {l1=0x32, l2=» READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x32}
0x1475…14c2 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x14c2…1504 Line {l1=0x40, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=0.0) THEN FIN:=0;«, l3=0x40}
0x1504…152a Line {l1=0x24, l2=» GOTOXY(1,22);WRITELN(' ':77)«, l3=0x24}
0x152a…1535 Line {l1=0x09, l2=» END«, l3=0x09}
0x1535…1541 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1541…1557 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x1557…1564 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1564…1575 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x1575…15b5 Line {l1=0x3e, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN',' ':42);«, l3=0x3e}
0x15b5…15cd Line {l1=0x16, l2=» GOTOXY(40,23);«, l3=0x16}
0x15cd…15dd Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x15dd…15e8 Line {l1=0x09, l2=» END«, l3=0x09}
0x15e8…15fa Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x15fa…160b Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x160b…1630 Line {l1=0x23, l2=» UNTIL (SVAR1='J') OR (SVAR1='j');«, l3=0x23}
0x1630…1657 Line {l1=0x25, l2=» LINE(LINENR).KONTONR1:=KUNDE.NR(1);«, l3=0x25}
0x1657…167e Line {l1=0x25, l2=» LINE(LINENR).KONTONR2:=KUNDE.NR(2);«, l3=0x25}
0x167e…16a2 Line {l1=0x22, l2=» IF LINE(LINENR).TEKSTKODE=4 THEN«, l3=0x22}
0x16a2…16bb Line {l1=0x17, l2=» GOTOXY(38,LINENR+1)«, l3=0x17}
0x16bb…16c3 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x16c3…16cc Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x16cc…16e6 Line {l1=0x18, l2=» GOTOXY(11,LINENR+1);«, l3=0x18}
0x16e6…1711 Line {l1=0x29, l2=» WRITE(TEKST(LINE(LINENR).TEKSTKODE));«, l3=0x29}
0x1711…172b Line {l1=0x18, l2=» GOTOXY(60,LINENR+1);«, l3=0x18}
0x172b…1733 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1733…177a Line {l1=0x45, l2=» WRITELN(LINE(LINENR).KONTONR1*10000.0+LINE(LINENR).KONTONR2:10:-2);«, l3=0x45}
0x177a…177e Line {l1=0x02, l2=» «, l3=0x02}
0x177e…1784 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1784…1797 Line {l1=0x11, l2=»PROCEDURE PRLINE;«, l3=0x11}
0x1797…179e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x179e…17b6 Line {l1=0x16, l2=» WITH LINE(LINENR) DO«, l3=0x16}
0x17b6…17bf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x17bf…17d8 Line {l1=0x17, l2=» GOTOXY(1,LINENR+1);«, l3=0x17}
0x17d8…1813 Line {l1=0x39, l2=» WRITE(LINENR:5,' ':5,TEKST(TEKSTKODE),BILAG1*10000.0+«, l3=0x39}
0x1813…184f Line {l1=0x3a, l2=» BILAG2:12:-2);«, l3=0x3a}
0x184f…1866 Line {l1=0x15, l2=» CASE TEKSTKODE OF«, l3=0x15}
0x1866…1874 Line {l1=0x0c, l2=»4,6,9: BEGIN«, l3=0x0c}
0x1874…18b3 Line {l1=0x3d, l2=» WRITELN(KONTONR1*10000.0+KONTONR2:10:-2,BELØB/100:12:2,«, l3=0x3d}
0x18b3…18f4 Line {l1=0x3f, l2=» ' ':5,KONTO(KGB));«, l3=0x3f}
0x18f4…191c Line {l1=0x26, l2=» DEBET(5+KGB):=DEBET(5+KGB)-BELØB«, l3=0x26}
0x191c…1926 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1926…1935 Line {l1=0x0d, l2=»3,5,7: BEGIN«, l3=0x0d}
0x1935…1976 Line {l1=0x3f, l2=» WRITELN(' ':5,KONTO(KGB),BELØB/100:12:2,KONTONR1*10000.0+«, l3=0x3f}
0x1976…19b6 Line {l1=0x3e, l2=» KONTONR2:10:-2);«, l3=0x3e}
0x19b6…19da Line {l1=0x22, l2=» DEBET(KGB):=DEBET(KGB)+BELØB«, l3=0x22}
0x19da…19e4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x19e4…19ef Line {l1=0x09, l2=»8: BEGIN«, l3=0x09}
0x19ef…1a36 Line {l1=0x45, l2=» WRITELN(' ':5,KONTO(KGB),BELØB/100:12:2,' ':5,KONTO(KONTONR2));«, l3=0x45}
0x1a36…1a5b Line {l1=0x23, l2=» DEBET(KGB):=DEBET(KGB)+BELØB;«, l3=0x23}
0x1a5b…1a8d Line {l1=0x30, l2=» DEBET(5+KONTONR2):=DEBET(5+KONTONR2)-BELØB«, l3=0x30}
0x1a8d…1a97 Line {l1=0x08, l2=» END;«, l3=0x08}
[…0x1…]
0x1aa1…1aa8 Line {l1=0x05, l2=» END«, l3=0x05}
0x1aa8…1aae Line {l1=0x04, l2=»END;«, l3=0x04}
0x1aae…1ac7 Line {l1=0x17, l2=»PROCEDURE KASSERAPPORT;«, l3=0x17}
0x1ac7…1ad7 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x1ad7…1ade Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1ade…1b00 Line {l1=0x20, l2=» FOR I:=1 TO 10 DO DEBET(I):=0;«, l3=0x20}
0x1b00…1b1c Line {l1=0x1a, l2=» FIL:='JOURKASS:P1:30:I';«, l3=0x1a}
0x1b1c…1b36 Line {l1=0x18, l2=» REWRITE(JOURFILE,FIL);«, l3=0x18}
0x1b36…1b50 Line {l1=0x18, l2=» SEEK(JOURFILE,JOURNR);«, l3=0x18}
0x1b50…1b65 Line {l1=0x13, l2=» SEEK(KASSFILE,1);«, l3=0x13}
0x1b65…1b74 Line {l1=0x0d, l2=» LINIENR:=1;«, l3=0x0d}
0x1b74…1b8f Line {l1=0x19, l2=» WHILE LINIENR<KASSNR DO«, l3=0x19}
0x1b8f…1b98 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1b98…1bb6 Line {l1=0x1c, l2=» IF LINIENR MOD 60=1 THEN«, l3=0x1c}
0x1bb6…1bc1 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1bc1…1bfa Line {l1=0x37, l2=» IF LINIENR>1 THEN FOR I:=1 TO 8 DO WRITELN(LIST);«, l3=0x37}
0x1bfa…1c3b Line {l1=0x3f, l2=» WRITELN(LIST,'K A S S E R A P P O R T',' ':49,KASSSID:5);«, l3=0x3f}
0x1c3b…1c51 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x1c51…1c9f Line {l1=0x4c, l2=» WRITELN(LIST,'Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,«, l3=0x4c}
0x1c9f…1ce5 Line {l1=0x44, l2=» 'Beløb',' ':4,'Kredit',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x44}
0x1ce5…1d12 Line {l1=0x2b, l2=» SYSFIL^.HELTAL(2):8:-2);«, l3=0x2b}
0x1d12…1d28 Line {l1=0x14, l2=» WRITELN(LIST);«, l3=0x14}
0x1d28…1d42 Line {l1=0x18, l2=» KASSSID:=KASSSID+1«, l3=0x18}
0x1d42…1d4c Line {l1=0x08, l2=» END;«, l3=0x08}
0x1d4c…1d60 Line {l1=0x12, l2=» GET(KASSFILE);«, l3=0x12}
0x1d60…1d77 Line {l1=0x15, l2=» WITH KASSFILE^ DO«, l3=0x15}
0x1d77…1d82 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1d82…1dc5 Line {l1=0x41, l2=» WRITE(LIST,LINIENR:5,' ':5,TEKST(TEKSTKODE),BILAG1*10000.0+«, l3=0x41}
0x1dc5…1e07 Line {l1=0x40, l2=» BILAG2:12:-2);«, l3=0x40}
0x1e07…1e20 Line {l1=0x17, l2=» CASE TEKSTKODE OF«, l3=0x17}
0x1e20…1e2d Line {l1=0x0b, l2=»4,6,9:BEGIN«, l3=0x0b}
0x1e2d…1e73 Line {l1=0x44, l2=» WRITELN(LIST,KONTONR1*10000.0+KONTONR2:10:-2,BELØB/100:12:2,«, l3=0x44}
0x1e73…1eb5 Line {l1=0x40, l2=» ' ':4,KONTO(KGB),DATO1*10000.0+DATO2:9:-2);«, l3=0x40}
0x1eb5…1ed4 Line {l1=0x1d, l2=» JOURFILE^:=KASSFILE^;«, l3=0x1d}
0x1ed4…1eec Line {l1=0x16, l2=» PUT(JOURFILE);«, l3=0x16}
0x1eec…1f17 Line {l1=0x29, l2=» DEBET(5+KGB):=DEBET(5+KGB)-BELØB;«, l3=0x29}
0x1f17…1f31 Line {l1=0x18, l2=» JOURNR:=JOURNR+1«, l3=0x18}
0x1f31…1f3d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1f3d…1f4a Line {l1=0x0b, l2=»3,5,7:BEGIN«, l3=0x0b}
0x1f4a…1f92 Line {l1=0x46, l2=» WRITELN(LIST,' ':5,KONTO(KGB),BELØB/100:12:2,KONTONR1*10000.0+«, l3=0x46}
0x1f92…1fd1 Line {l1=0x3d, l2=» KONTONR2:9:-2,DATO1*10000.0+DATO2:9:-2);«, l3=0x3d}
0x1fd1…1ff8 Line {l1=0x25, l2=» DEBET(KGB):=DEBET(KGB)+BELØB;«, l3=0x25}
0x1ff8…2010 Line {l1=0x16, l2=» BELØB:=-BELØB;«, l3=0x16}
0x2010…202f Line {l1=0x1d, l2=» JOURFILE^:=KASSFILE^;«, l3=0x1d}
0x202f…2047 Line {l1=0x16, l2=» PUT(JOURFILE);«, l3=0x16}
0x2047…2061 Line {l1=0x18, l2=» JOURNR:=JOURNR+1«, l3=0x18}
0x2061…206d Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x206d…207a Line {l1=0x0b, l2=»8: BEGIN«, l3=0x0b}
0x207a…20c7 Line {l1=0x4b, l2=» WRITELN(LIST,' ':5,KONTO(KGB),BELØB/100:12:2,' ':4,KONTO(KONTONR2),«, l3=0x4b}
0x20c7…20f8 Line {l1=0x2f, l2=» DATO1*10000.0+DATO2:9:-2);«, l3=0x2f}
0x20f8…211f Line {l1=0x25, l2=» DEBET(KGB):=DEBET(KGB)+BELØB;«, l3=0x25}
0x211f…2153 Line {l1=0x32, l2=» DEBET(5+KONTONR2):=DEBET(5+KONTONR2)-BELØB«, l3=0x32}
0x2153…215f Line {l1=0x0a, l2=» END;«, l3=0x0a}
[…0x1…]
0x216b…2175 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2175…218d Line {l1=0x16, l2=» LINIENR:=LINIENR+1«, l3=0x16}
0x218d…2195 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2195…21a2 Line {l1=0x0b, l2=» DIFFE:=0;«, l3=0x0b}
0x21a2…21b6 Line {l1=0x12, l2=» FOR I:=1 TO 5 DO«, l3=0x12}
0x21b6…21bf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x21bf…21ff Line {l1=0x3e, l2=» WRITELN(LIST,LINIENR:5,' ':5,KONTO(I),KASSSID-1:22,' ':10,«, l3=0x3e}
0x21ff…224a Line {l1=0x49, l2=» (DEBET(I)+DEBET(I+5))/100:12:2);«, l3=0x49}
0x224a…2261 Line {l1=0x15, l2=» WITH JOURFILE^ DO«, l3=0x15}
0x2261…226c Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x226c…2280 Line {l1=0x12, l2=» KONTONR1:=0;«, l3=0x12}
0x2280…2294 Line {l1=0x12, l2=» KONTONR2:=I;«, l3=0x12}
0x2294…22b4 Line {l1=0x1e, l2=» DATO1:=DAT1;DATO2:=DAT2;«, l3=0x1e}
0x22b4…22c9 Line {l1=0x13, l2=» TEKSTKODE:=0;«, l3=0x13}
0x22c9…22ed Line {l1=0x22, l2=» BILAG1:=0;BILAG2:=KASSSID-1;«, l3=0x22}
0x22ed…22fc Line {l1=0x0d, l2=» KGB:=I;«, l3=0x0d}
0x22fc…231f Line {l1=0x21, l2=» BELØB:=DEBET(I)+DEBET(I+5);«, l3=0x21}
0x231f…235e Line {l1=0x3d, l2=» DIFFE:=DIFFE+DEBET(I)+DEBET(I+5)-DEBET1(I)-DEBET1(I+5);«, l3=0x3d}
0x235e…2384 Line {l1=0x24, l2=» DEBET(I):=0.0;DEBET(I+5):=0.0;«, l3=0x24}
0x2384…23ab Line {l1=0x25, l2=» DEBET1(I):=0.0;DEBET1(I+5):=0.0«, l3=0x25}
0x23ab…23b5 Line {l1=0x08, l2=» END;«, l3=0x08}
0x23b5…23c9 Line {l1=0x12, l2=» PUT(JOURFILE);«, l3=0x12}
0x23c9…23e0 Line {l1=0x15, l2=» JOURNR:=JOURNR+1;«, l3=0x15}
0x23e0…23f8 Line {l1=0x16, l2=» LINIENR:=LINIENR+1«, l3=0x16}
0x23f8…2400 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2400…2412 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x2412…2447 Line {l1=0x33, l2=» WRITELN(LIST,'Difference',' ':37,DIFFE/100:12:2);«, l3=0x33}
0x2447…245b Line {l1=0x12, l2=» CLOSE(JOURFILE);«, l3=0x12}
0x245b…2474 Line {l1=0x17, l2=» FIL:='SYSREG:P2:0:I';«, l3=0x17}
0x2474…248c Line {l1=0x16, l2=» REWRITE(SYSFIL,FIL);«, l3=0x16}
0x248c…249f Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x249f…24ad Line {l1=0x0c, l2=» KASSNR:=1;«, l3=0x0c}
0x24ad…24cc Line {l1=0x1d, l2=» SYSFIL^.HELTAL(15):=KASSNR;«, l3=0x1d}
0x24cc…24eb Line {l1=0x1d, l2=» SYSFIL^.HELTAL(16):=JOURNR;«, l3=0x1d}
0x24eb…250b Line {l1=0x1e, l2=» SYSFIL^.HELTAL(17):=KASSSID;«, l3=0x1e}
0x250b…252a Line {l1=0x1d, l2=» SYSFIL^.HELTAL(11):=BILNR1;«, l3=0x1d}
0x252a…2549 Line {l1=0x1d, l2=» SYSFIL^.HELTAL(12):=BILNR2;«, l3=0x1d}
0x2549…255c Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x255c…256c Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x256c…257d Line {l1=0x0f, l2=» CLOSE(SYSFIL)«, l3=0x0f}
0x257d…2583 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2583…2594 Line {l1=0x0f, l2=»PROCEDURE DATO;«, l3=0x0f}
0x2594…25a1 Line {l1=0x0b, l2=»VAR R:REAL;«, l3=0x0b}
0x25a1…25a8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x25a8…25b2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x25b2…25f5 Line {l1=0x41, l2=» GOTOXY(72,1);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(R)«, l3=0x41}
0x25f5…262e Line {l1=0x37, l2=» UNTIL (IORESULT=0) AND (R>800000.0) AND (R<900000.0);«, l3=0x37}
0x262e…2649 Line {l1=0x19, l2=» DAT1:=TRUNC(R/10000.0);«, l3=0x19}
0x2649…2668 Line {l1=0x1d, l2=» DAT2:=TRUNC(R-DAT1*10000.0)«, l3=0x1d}
0x2668…266e Line {l1=0x04, l2=»END;«, l3=0x04}
0x266e…2681 Line {l1=0x11, l2=»PROCEDURE LÆSOPL;«, l3=0x11}
0x2681…2691 Line {l1=0x0e, l2=»VAR R:REAL;«, l3=0x0e}
0x2691…26a6 Line {l1=0x13, l2=» I,J:INTEGER;«, l3=0x13}
0x26a6…26ad Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x26ad…26d8 Line {l1=0x29, l2=» J:=(OPL-1) MOD 5+1;I:=OPL DIV 6*29 +17;«, l3=0x29}
0x26d8…26e2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x26e2…2724 Line {l1=0x40, l2=» GOTOXY(I,J);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(R)«, l3=0x40}
0x2724…275c Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (R<100000000.0) AND (R>=0.0);«, l3=0x36}
0x275c…2774 Line {l1=0x16, l2=» IF OPL>5 THEN R:=-R;«, l3=0x16}
0x2774…278a Line {l1=0x14, l2=» DEBET1(OPL):=R*100«, l3=0x14}
0x278a…2790 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2790…27a6 Line {l1=0x14, l2=»PROCEDURE SKRIVDIFF;«, l3=0x14}
0x27a6…27b9 Line {l1=0x11, l2=»VAR I:INTEGER;«, l3=0x11}
0x27b9…27c0 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x27c0…27e7 Line {l1=0x25, l2=» GOTOXY(1,7);WRITELN('Differencer');«, l3=0x25}
0x27e7…27f7 Line {l1=0x0e, l2=» DIFF:=FALSE;«, l3=0x0e}
0x27f7…280c Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x280c…2815 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2815…283e Line {l1=0x27, l2=» GOTOXY(I DIV 6*29+1,(I-1) MOD 5+8);«, l3=0x27}
0x283e…286a Line {l1=0x2a, l2=» WRITE(' ':2,KONTO((I-1) MOD 5+1),' ');«, l3=0x2a}
0x286a…28a1 Line {l1=0x35, l2=» IF I<6 THEN WRITE('Debet ') ELSE WRITE('Kredit');«, l3=0x35}
0x28a1…28ce Line {l1=0x2b, l2=» WRITELN((DEBET(I)-DEBET1(I))/100:12:2);«, l3=0x2b}
0x28ce…28fe Line {l1=0x2e, l2=» IF DEBET(I)-DEBET1(I)<>0.0 THEN DIFF:=TRUE«, l3=0x2e}
0x28fe…2905 Line {l1=0x05, l2=» END«, l3=0x05}
0x2905…290b Line {l1=0x04, l2=»END;«, l3=0x04}
0x290b…291f Line {l1=0x12, l2=»PROCEDURE SKRIVDK;«, l3=0x12}
0x291f…2932 Line {l1=0x11, l2=»VAR I:INTEGER;«, l3=0x11}
0x2932…2939 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2939…2949 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2949…295e Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x295e…2967 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2967…2990 Line {l1=0x27, l2=» GOTOXY(I DIV 6*29+1,(I-1) MOD 5+1);«, l3=0x27}
0x2990…29be Line {l1=0x2c, l2=» WRITE(I:2,' ',KONTO((I-1) MOD 5+1),' ');«, l3=0x2c}
0x29be…29df Line {l1=0x1f, l2=» IF I<6 THEN WRITE('Debet ')«, l3=0x1f}
0x29df…29fd Line {l1=0x1c, l2=» ELSE WRITE('Kredit');«, l3=0x1c}
0x29fd…2a1e Line {l1=0x1f, l2=» WRITELN(DEBET1(I)/100:12:2)«, l3=0x1f}
0x2a1e…2a25 Line {l1=0x05, l2=» END«, l3=0x05}
0x2a25…2a2b Line {l1=0x04, l2=»END;«, l3=0x04}
0x2a2b…2a3f Line {l1=0x12, l2=»PROCEDURE INDSIDE;«, l3=0x12}
0x2a3f…2a52 Line {l1=0x11, l2=»VAR I:INTEGER;«, l3=0x11}
0x2a52…2a59 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2a59…2a69 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2a69…2ab6 Line {l1=0x4b, l2=» WRITELN('Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,'Beløb',«, l3=0x4b}
0x2ab6…2ae9 Line {l1=0x31, l2=» ' ':4,'Kredit',DAT1*10000.0+DAT2:8:-2);«, l3=0x31}
0x2ae9…2b03 Line {l1=0x18, l2=» SEEK(KASSFILE,POSTNR);«, l3=0x18}
0x2b03…2b18 Line {l1=0x13, l2=» FOR I:=1 TO 18 DO«, l3=0x13}
0x2b18…2b31 Line {l1=0x17, l2=» IF POSTNR<KASSNR THEN«, l3=0x17}
0x2b31…2b3a Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2b3a…2b4e Line {l1=0x12, l2=» GET(KASSFILE);«, l3=0x12}
0x2b4e…2b67 Line {l1=0x17, l2=» LINE(I):=KASSFILE^;«, l3=0x17}
0x2b67…2b7e Line {l1=0x15, l2=» POSTNR:=POSTNR+1;«, l3=0x15}
0x2b7e…2b97 Line {l1=0x17, l2=» LINIENR:=LINIENR+1;«, l3=0x17}
0x2b97…2ba4 Line {l1=0x0b, l2=» PRLINE;«, l3=0x0b}
0x2ba4…2bba Line {l1=0x14, l2=» LINENR:=LINIENR;«, l3=0x14}
0x2bba…2bc1 Line {l1=0x05, l2=» END«, l3=0x05}
0x2bc1…2bc9 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x2bc9…2bd4 Line {l1=0x09, l2=» I:=18«, l3=0x09}
0x2bd4…2bda Line {l1=0x04, l2=»END;«, l3=0x04}
0x2bda…2bec Line {l1=0x10, l2=»PROCEDURE ANNUL;«, l3=0x10}
0x2bec…2bff Line {l1=0x11, l2=»VAR I:INTEGER;«, l3=0x11}
0x2bff…2c06 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2c06…2c2c Line {l1=0x24, l2=» IF (LINENR>1) AND (LINIENR=0) THEN«, l3=0x24}
0x2c2c…2c35 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2c35…2c4c Line {l1=0x15, l2=» LINENR:=LINENR-1;«, l3=0x15}
0x2c4c…2c75 Line {l1=0x27, l2=» GOTOXY(1,LINENR+1);WRITELN(' ':77);«, l3=0x27}
0x2c75…2c8c Line {l1=0x15, l2=» BILNR2:=BILNR2-1;«, l3=0x15}
0x2c8c…2ca3 Line {l1=0x15, l2=» IF BILNR2=-1 THEN«, l3=0x15}
0x2ca3…2cae Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2cae…2cc7 Line {l1=0x17, l2=» BILNR1:=BILNR1-1;«, l3=0x17}
0x2cc7…2cdc Line {l1=0x13, l2=» BILNR2:=9999;«, l3=0x13}
0x2cdc…2ce6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2ce6…2d32 Line {l1=0x4a, l2=» IF (LINE(LINENR).BILAG1<>BILNR1) OR (LINE(LINENR).BILAG2<>BILNR2) THEN«, l3=0x4a}
0x2d32…2d3d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2d3d…2d56 Line {l1=0x17, l2=» BILNR2:=BILNR2+1;«, l3=0x17}
0x2d56…2d72 Line {l1=0x1a, l2=» IF BILNR2=10000 THEN«, l3=0x1a}
0x2d72…2d7f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2d7f…2d9a Line {l1=0x19, l2=» BILNR1:=BILNR1+1;«, l3=0x19}
0x2d9a…2dad Line {l1=0x11, l2=» BILNR2:=0«, l3=0x11}
0x2dad…2db8 Line {l1=0x09, l2=» END«, l3=0x09}
0x2db8…2dc2 Line {l1=0x08, l2=» END;«, l3=0x08}
0x2dc2…2ddc Line {l1=0x18, l2=» WITH LINE(LINENR) DO«, l3=0x18}
0x2ddc…2df3 Line {l1=0x15, l2=» CASE TEKSTKODE OF«, l3=0x15}
0x2df3…2e21 Line {l1=0x2c, l2=» 4,6,9: DEBET(5+KGB):=DEBET(5+KGB)+BELØB;«, l3=0x2c}
0x2e21…2e4b Line {l1=0x28, l2=» 3,5,7: DEBET(KGB):=DEBET(KGB)-BELØB;«, l3=0x28}
0x2e4b…2e5d Line {l1=0x10, l2=» 8: BEGIN«, l3=0x10}
0x2e5d…2e89 Line {l1=0x2a, l2=» DEBET(KGB):=DEBET(KGB)-BELØB;«, l3=0x2a}
0x2e89…2ec2 Line {l1=0x37, l2=» DEBET(5+KONTONR2):=DEBET(5+KONTONR2)+BELØB«, l3=0x37}
0x2ec2…2ed2 Line {l1=0x0e, l2=» END«, l3=0x0e}
0x2ed2…2edc Line {l1=0x08, l2=» END;«, l3=0x08}
0x2edc…2ee4 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2ee4…2eed Line {l1=0x07, l2=» B:=-1«, l3=0x07}
0x2eed…2ef3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2ef3…2f07 Line {l1=0x12, l2=»PROCEDURE INBILAG;«, l3=0x12}
0x2f07…2f0e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2f0e…2f1f Line {l1=0x0f, l2=» GOTOXY(1,22);«, l3=0x0f}
0x2f1f…2f33 Line {l1=0x12, l2=» WRITELN(' ':77);«, l3=0x12}
0x2f33…2f44 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x2f44…2f8c Line {l1=0x46, l2=» WRITELN('Bilag 1 (0:færdig, 1:automatisk, D:dato-ændring',«, l3=0x46}
0x2f8c…2fd4 Line {l1=0x46, l2=» ', A:annuller sidste)');«, l3=0x46}
0x2fd4…2fde Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x2fde…300e Line {l1=0x2e, l2=» GOTOXY(7,23);READLN;GOTOXY(70,23);WRITELN;«, l3=0x2e}
0x300e…3025 Line {l1=0x15, l2=» IF EOLN THEN B:=1«, l3=0x15}
0x3025…302f Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x302f…3059 Line {l1=0x28, l2=» IF (INPUT^='D') OR (INPUT^='d') THEN«, l3=0x28}
0x3059…3064 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3064…3071 Line {l1=0x0b, l2=» DATO;«, l3=0x0b}
0x3071…307e Line {l1=0x0b, l2=» B:=-1«, l3=0x0b}
0x307e…3087 Line {l1=0x07, l2=» END«, l3=0x07}
0x3087…3091 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3091…30ce Line {l1=0x3b, l2=» IF (INPUT^='A') OR (INPUT^='a') THEN ANNUL ELSE READ(B)«, l3=0x3b}
0x30ce…3106 Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (B>=0.0) AND (B<100000000.0);«, l3=0x36}
0x3106…3115 Line {l1=0x0d, l2=» IF B>0 THEN«, l3=0x0d}
0x3115…311e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x311e…312f Line {l1=0x0f, l2=» IF B=1 THEN«, l3=0x0f}
0x312f…313a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x313a…315e Line {l1=0x22, l2=» LINE(LINENR).BILAG1:=BILNR1;«, l3=0x22}
0x315e…3182 Line {l1=0x22, l2=» LINE(LINENR).BILAG2:=BILNR2;«, l3=0x22}
0x3182…319b Line {l1=0x17, l2=» BILNR2:=BILNR2+1;«, l3=0x17}
0x319b…31b7 Line {l1=0x1a, l2=» IF BILNR2=10000 THEN«, l3=0x1a}
0x31b7…31c4 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x31c4…31df Line {l1=0x19, l2=» BILNR1:=BILNR1+1;«, l3=0x19}
0x31df…31f2 Line {l1=0x11, l2=» BILNR2:=0«, l3=0x11}
0x31f2…31fd Line {l1=0x09, l2=» END«, l3=0x09}
0x31fd…3206 Line {l1=0x07, l2=» END«, l3=0x07}
0x3206…3210 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3210…321b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x321b…3249 Line {l1=0x2c, l2=» LINE(LINENR).BILAG1:=TRUNC(B/10000.0);«, l3=0x2c}
0x3249…328a Line {l1=0x3f, l2=» LINE(LINENR).BILAG2:=TRUNC(B-LINE(LINENR).BILAG1*10000.0)«, l3=0x3f}
0x328a…3294 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3294…32ae Line {l1=0x18, l2=» GOTOXY(26,LINENR+1);«, l3=0x18}
0x32ae…32f2 Line {l1=0x42, l2=» WRITELN(LINE(LINENR).BILAG1*10000.0+LINE(LINENR).BILAG2:12:-2)«, l3=0x42}
0x32f2…32f9 Line {l1=0x05, l2=» END«, l3=0x05}
0x32f9…32ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x32ff…3314 Line {l1=0x13, l2=»PROCEDURE INDBELØB;«, l3=0x13}
0x3314…3324 Line {l1=0x0e, l2=»VAR R:REAL;«, l3=0x0e}
0x3324…332b Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x332b…333c Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x333c…3358 Line {l1=0x1a, l2=» WRITELN('Beløb',' ':72);«, l3=0x1a}
0x3358…3362 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3362…33a5 Line {l1=0x41, l2=» GOTOXY(7,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(R)«, l3=0x41}
0x33a5…33dd Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (R<100000000.0) AND (R>=0.0);«, l3=0x36}
0x33dd…33f5 Line {l1=0x16, l2=» GOTOXY(48,LINENR+1);«, l3=0x16}
0x33f5…3409 Line {l1=0x12, l2=» WRITELN(R:12:2);«, l3=0x12}
0x3409…3426 Line {l1=0x1b, l2=» LINE(LINENR).BELØB:=100*R«, l3=0x1b}
0x3426…342c Line {l1=0x04, l2=»END;«, l3=0x04}
0x342c…343f Line {l1=0x11, l2=»PROCEDURE INDKGB;«, l3=0x11}
0x343f…3452 Line {l1=0x11, l2=»VAR I:INTEGER;«, l3=0x11}
0x3452…3459 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3459…3487 Line {l1=0x2c, l2=» IF LINE(LINENR).TEKSTKODE<>4 THEN FINDKUND«, l3=0x2c}
0x3487…348f Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x348f…3498 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3498…34a9 Line {l1=0x0f, l2=» GOTOXY(1,23);«, l3=0x0f}
0x34a9…34f7 Line {l1=0x4c, l2=» WRITELN('Kredit (1:Kasse, 2:Bank, 3:Giro, 4:Rabat, 5:Rente)',' ':22);«, l3=0x4c}
0x34f7…3501 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x3501…3544 Line {l1=0x41, l2=» GOTOXY(8,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(I)«, l3=0x41}
0x3544…356f Line {l1=0x29, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<6);«, l3=0x29}
0x356f…357c Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x357c…35a0 Line {l1=0x22, l2=» 1,2,3:LINE(LINENR).TEKSTKODE:=4;«, l3=0x22}
0x35a0…35c4 Line {l1=0x22, l2=» 4 :LINE(LINENR).TEKSTKODE:=6;«, l3=0x22}
0x35c4…35e7 Line {l1=0x21, l2=» 5 :LINE(LINENR).TEKSTKODE:=9«, l3=0x21}
0x35e7…35ef Line {l1=0x06, l2=» END;«, l3=0x06}
0x35ef…3607 Line {l1=0x16, l2=» GOTOXY(11,LINENR+1);«, l3=0x16}
0x3607…3630 Line {l1=0x27, l2=» WRITE(TEKST(LINE(LINENR).TEKSTKODE));«, l3=0x27}
0x3630…3648 Line {l1=0x16, l2=» GOTOXY(60,LINENR+1);«, l3=0x16}
0x3648…3664 Line {l1=0x1a, l2=» WRITELN(' ':5,KONTO(I));«, l3=0x1a}
0x3664…367b Line {l1=0x15, l2=» LINE(LINENR).KGB:=I«, l3=0x15}
0x367b…3682 Line {l1=0x05, l2=» END«, l3=0x05}
0x3682…3688 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3688…369b Line {l1=0x11, l2=»PROCEDURE INLINE;«, l3=0x11}
0x369b…36a2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x36a2…36b0 Line {l1=0x0c, l2=» LINENR:=1;«, l3=0x0c}
0x36b0…36c0 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x36c0…370d Line {l1=0x4b, l2=» WRITELN('Linie',' ':5,'Tekst',' ':17,'Bilag',' ':5,'Debet',' ':7,'Beløb',«, l3=0x4b}
0x370d…3740 Line {l1=0x31, l2=» ' ':4,'Kredit',DAT1*10000.0+DAT2:8:-2);«, l3=0x31}
0x3740…374c Line {l1=0x0a, l2=» INBILAG;«, l3=0x0a}
0x374c…3770 Line {l1=0x22, l2=» WHILE (B>0.0) AND (LINENR<19) DO«, l3=0x22}
0x3770…3788 Line {l1=0x16, l2=» WITH LINE(LINENR) DO«, l3=0x16}
0x3788…3791 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3791…37bc Line {l1=0x29, l2=» GOTOXY(1,LINENR+1);WRITELN(LINENR:5);«, l3=0x29}
0x37bc…37dc Line {l1=0x1e, l2=» LINE(LINENR).TEKSTKODE:=4;«, l3=0x1e}
0x37dc…37eb Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x37eb…37fa Line {l1=0x0d, l2=» INDBELØB;«, l3=0x0d}
0x37fa…3807 Line {l1=0x0b, l2=» INDKGB;«, l3=0x0b}
0x3807…3814 Line {l1=0x0b, l2=» PRLINE;«, l3=0x0b}
0x3814…3832 Line {l1=0x1c, l2=» DATO1:=DAT1;DATO2:=DAT2;«, l3=0x1c}
0x3832…3849 Line {l1=0x15, l2=» LINENR:=LINENR+1;«, l3=0x15}
0x3849…3860 Line {l1=0x15, l2=» IF LINENR<19 THEN«, l3=0x15}
0x3860…386d Line {l1=0x0b, l2=» INBILAG«, l3=0x0b}
0x386d…3875 Line {l1=0x06, l2=» END;«, l3=0x06}
0x3875…388a Line {l1=0x13, l2=» LINENR:=LINENR-1;«, l3=0x13}
0x388a…389e Line {l1=0x12, l2=» IF LINENR>0 THEN«, l3=0x12}
0x389e…38b7 Line {l1=0x17, l2=» FOR J:=1 TO LINENR DO«, l3=0x17}
0x38b7…38c0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x38c0…38d9 Line {l1=0x17, l2=» KASSFILE^:=LINE(J);«, l3=0x17}
0x38d9…38ed Line {l1=0x12, l2=» PUT(KASSFILE);«, l3=0x12}
0x38ed…3903 Line {l1=0x14, l2=» KASSNR:=KASSNR+1«, l3=0x14}
0x3903…390a Line {l1=0x05, l2=» END«, l3=0x05}
0x390a…3910 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3910…3923 Line {l1=0x11, l2=»PROCEDURE AFSTEM;«, l3=0x11}
0x3923…3938 Line {l1=0x13, l2=»VAR I,J:INTEGER;«, l3=0x13}
0x3938…393f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x393f…394b Line {l1=0x0a, l2=» SKRIVDK;«, l3=0x0a}
0x394b…396a Line {l1=0x1d, l2=» FOR OPL:=1 TO 10 DO LÆSOPL;«, l3=0x1d}
0x396a…3976 Line {l1=0x0a, l2=» SKRIVDK;«, l3=0x0a}
0x3976…3984 Line {l1=0x0c, l2=» SKRIVDIFF;«, l3=0x0c}
0x3984…3995 Line {l1=0x0f, l2=» WHILE DIFF DO«, l3=0x0f}
0x3995…399e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x399e…39b1 Line {l1=0x11, l2=» GOTOXY(1,23);«, l3=0x11}
0x39b1…39f2 Line {l1=0x3f, l2=» WRITELN('Ændring i (1-10, 0 for posteringer)',' ':37);«, l3=0x3f}
0x39f2…39fe Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x39fe…3a46 Line {l1=0x46, l2=» GOTOXY(11,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(OPL)«, l3=0x46}
0x3a46…3a79 Line {l1=0x31, l2=» UNTIL (IORESULT=0) AND (OPL>-1) AND (OPL<11);«, l3=0x31}
0x3a79…3a93 Line {l1=0x18, l2=» IF OPL>0 THEN LÆSOPL«, l3=0x18}
0x3a93…3a9d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x3a9d…3aa8 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x3aa8…3ad0 Line {l1=0x26, l2=» FOR I:=1 TO 10 DO DEBET(I):=0.0;«, l3=0x26}
0x3ad0…3ae2 Line {l1=0x10, l2=» POSTNR:=1;«, l3=0x10}
0x3ae2…3af0 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x3af0…3b0f Line {l1=0x1d, l2=» LINIENR:=1;LINENR:=1;«, l3=0x1d}
0x3b0f…3b21 Line {l1=0x10, l2=» INDSIDE;«, l3=0x10}
0x3b21…3b31 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x3b31…3b4a Line {l1=0x17, l2=» GOTOXY(1,23);«, l3=0x17}
0x3b4a…3b6b Line {l1=0x1f, l2=» IF POSTNR<KASSNR THEN«, l3=0x1f}
0x3b6b…3ba8 Line {l1=0x3b, l2=» WRITELN('Linienr 0 for ny side',' ':48)«, l3=0x3b}
0x3ba8…3bb8 Line {l1=0x0e, l2=» ELSE«, l3=0x0e}
0x3bb8…3bf5 Line {l1=0x3b, l2=» WRITELN('Linienr 0 for færdig',' ':49);«, l3=0x3b}
0x3bf5…3c07 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x3c07…3c52 Line {l1=0x49, l2=» GOTOXY(9,23);READLN;if eoln then setioresult(-1) else READ(I)«, l3=0x49}
0x3c52…3c8c Line {l1=0x38, l2=» UNTIL (IORESULT=0) AND (I>-1) AND (I<LINIENR);«, l3=0x38}
0x3c8c…3ca3 Line {l1=0x15, l2=» IF I>0 THEN«, l3=0x15}
0x3ca3…3cb4 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3cb4…3ccc Line {l1=0x16, l2=» LINENR:=I;«, l3=0x16}
0x3ccc…3cee Line {l1=0x20, l2=» WITH LINE(LINENR) DO«, l3=0x20}
0x3cee…3d0d Line {l1=0x1d, l2=» CASE TEKSTKODE OF«, l3=0x1d}
0x3d0d…3d3f Line {l1=0x30, l2=» 4,6,9: DEBET(5+KGB):=DEBET(5+KGB)+BELØB;«, l3=0x30}
0x3d3f…3d6d Line {l1=0x2c, l2=» 3,5,7: DEBET(KGB):=DEBET(KGB)-BELØB;«, l3=0x2c}
0x3d6d…3d83 Line {l1=0x14, l2=» 8: BEGIN«, l3=0x14}
0x3d83…3db3 Line {l1=0x2e, l2=» DEBET(KGB):=DEBET(KGB)-BELØB;«, l3=0x2e}
0x3db3…3df0 Line {l1=0x3b, l2=» DEBET(5+KONTONR2):=DEBET(5+KONTONR2)+BELØB«, l3=0x3b}
0x3df0…3e04 Line {l1=0x12, l2=» END«, l3=0x12}
0x3e04…3e16 Line {l1=0x10, l2=» END;«, l3=0x10}
0x3e16…3e2a Line {l1=0x12, l2=» REPEAT«, l3=0x12}
0x3e2a…3e47 Line {l1=0x1b, l2=» GOTOXY(1,23);«, l3=0x1b}
0x3e47…3e95 Line {l1=0x4c, l2=» WRITELN('Ændring af 0:færdig, 1:bilag, 2:konti, 3:beløb',«, l3=0x4c}
0x3e95…3eb5 Line {l1=0x1e, l2=» ' ':28);«, l3=0x1e}
0x3eb5…3ecb Line {l1=0x14, l2=» REPEAT«, l3=0x14}
0x3ecb…3f1a Line {l1=0x4d, l2=» GOTOXY(12,23);READLN;IF EOLN THEN SETIORESULT(-1) ELSE READ(J)«, l3=0x4d}
0x3f1a…3f52 Line {l1=0x36, l2=» UNTIL (IORESULT=0) AND (J>-1) AND (J<4);«, l3=0x36}
0x3f52…3f6d Line {l1=0x19, l2=» IF J>0 THEN«, l3=0x19}
0x3f6d…3f91 Line {l1=0x22, l2=» WITH LINE(LINENR) DO«, l3=0x22}
0x3f91…3fa6 Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x3fa6…3fc1 Line {l1=0x19, l2=» CASE J OF«, l3=0x19}
0x3fc1…3fdd Line {l1=0x1a, l2=» 1: INBILAG;«, l3=0x1a}
0x3fdd…4027 Line {l1=0x48, l2=» 2: BEGIN LINE(LINENR).TEKSTKODE:=4; FINDKUND; INDKGB END;«, l3=0x48}
0x4027…4043 Line {l1=0x1a, l2=» 3: INDBELØB«, l3=0x1a}
0x4043…4059 Line {l1=0x14, l2=» END;«, l3=0x14}
0x4059…406c Line {l1=0x11, l2=» END«, l3=0x11}
0x406c…4084 Line {l1=0x16, l2=» UNTIL J=0;«, l3=0x16}
0x4084…4099 Line {l1=0x13, l2=» PRLINE;«, l3=0x13}
0x4099…40cc Line {l1=0x31, l2=» SEEK(KASSFILE,POSTNR-LINIENR+LINENR);«, l3=0x31}
0x40cc…40f2 Line {l1=0x24, l2=» KASSFILE^:=LINE(LINENR);«, l3=0x24}
0x40f2…410d Line {l1=0x19, l2=» PUT(KASSFILE)«, l3=0x19}
0x410d…411c Line {l1=0x0d, l2=» END«, l3=0x0d}
0x411c…412f Line {l1=0x11, l2=» UNTIL I=0«, l3=0x11}
0x412f…414b Line {l1=0x1a, l2=» UNTIL POSTNR=KASSNR;«, l3=0x1a}
0x414b…4159 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x4159…4170 Line {l1=0x15, l2=» GOTOXY(1,23);«, l3=0x15}
0x4170…419f Line {l1=0x2d, l2=» WRITELN('Flere linier J/N',' ':59);«, l3=0x2d}
0x419f…41af Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x41af…41e5 Line {l1=0x34, l2=» GOTOXY(20,23);READLN;GOTOXY(6,23);WRITELN;«, l3=0x34}
0x41e5…421b Line {l1=0x34, l2=» IF EOLN THEN SETIORESULT(-1) ELSE READ(CH)«, l3=0x34}
0x421b…426a Line {l1=0x4d, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR(CH='n'));«, l3=0x4d}
0x426a…4297 Line {l1=0x2b, l2=» IF (CH='J') OR (CH='j') THEN INLINE«, l3=0x2b}
0x4297…42ba Line {l1=0x21, l2=» UNTIL (CH='N') OR (CH='n');«, l3=0x21}
0x42ba…42c4 Line {l1=0x08, l2=» END;«, l3=0x08}
0x42c4…42d2 Line {l1=0x0c, l2=» SKRIVDK;«, l3=0x0c}
0x42d2…42e1 Line {l1=0x0d, l2=» SKRIVDIFF«, l3=0x0d}
0x42e1…42e9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x42e9…42f9 Line {l1=0x0e, l2=» KASSERAPPORT«, l3=0x0e}
0x42f9…42ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x42ff…4306 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4306…4323 Line {l1=0x1b, l2=» FIL:='KUNDERG:P2:0000:I';«, l3=0x1b}
0x4323…4334 Line {l1=0x0f, l2=» RESET(F,FIL);«, l3=0x0f}
0x4334…435f Line {l1=0x29, l2=» IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x29}
0x435f…437b Line {l1=0x1a, l2=» FIL:='KASSRAPP:P1:20:I';«, l3=0x1a}
0x437b…4395 Line {l1=0x18, l2=» REWRITE(KASSFILE,FIL);«, l3=0x18}
0x4395…4398 Line {l1=0x01, l2=» «, l3=0x01}
0x4398…43b1 Line {l1=0x17, l2=» FIL:='SYSREG:P2:0:I';«, l3=0x17}
0x43b1…43c7 Line {l1=0x14, l2=» RESET(SYSFIL,FIL);«, l3=0x14}
0x43c7…43da Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x43da…43ea Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x43ea…43fc Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x43fc…441b Line {l1=0x1d, l2=» KASSNR:=SYSFIL^.HELTAL(15);«, l3=0x1d}
0x441b…443a Line {l1=0x1d, l2=» JOURNR:=SYSFIL^.HELTAL(16);«, l3=0x1d}
0x443a…445a Line {l1=0x1e, l2=» KASSSID:=SYSFIL^.HELTAL(17);«, l3=0x1e}
0x445a…4476 Line {l1=0x1a, l2=» DAT1:=SYSFIL^.HELTAL(1);«, l3=0x1a}
0x4476…4492 Line {l1=0x1a, l2=» DAT2:=SYSFIL^.HELTAL(2);«, l3=0x1a}
0x4492…44b1 Line {l1=0x1d, l2=» BILNR1:=SYSFIL^.HELTAL(11);«, l3=0x1d}
0x44b1…44d0 Line {l1=0x1d, l2=» BILNR2:=SYSFIL^.HELTAL(12);«, l3=0x1d}
0x44d0…44d3 Line {l1=0x01, l2=» «, l3=0x01}
0x44d3…44e9 Line {l1=0x14, l2=» KONTO(1):='Kasse';«, l3=0x14}
0x44e9…44ff Line {l1=0x14, l2=» KONTO(2):='Bank ';«, l3=0x14}
0x44ff…4515 Line {l1=0x14, l2=» KONTO(3):='Giro ';«, l3=0x14}
0x4515…452b Line {l1=0x14, l2=» KONTO(4):='Rabat';«, l3=0x14}
0x452b…4541 Line {l1=0x14, l2=» KONTO(5):='Rente';«, l3=0x14}
0x4541…454c Line {l1=0x09, l2=» B:=0.0;«, l3=0x09}
0x454c…456c Line {l1=0x1e, l2=» TEKST(3):='Indbetaling ';«, l3=0x1e}
0x456c…458c Line {l1=0x1e, l2=» TEKST(4):='Udbetaling ';«, l3=0x1e}
0x458c…45ac Line {l1=0x1e, l2=» TEKST(5):='Kasserabat ';«, l3=0x1e}
0x45ac…45cc Line {l1=0x1e, l2=» TEKST(6):='Rabat-rettelse ';«, l3=0x1e}
0x45cc…45ec Line {l1=0x1e, l2=» TEKST(7):='Rente-rettelse ';«, l3=0x1e}
0x45ec…460c Line {l1=0x1e, l2=» TEKST(8):='Overførsel ';«, l3=0x1e}
0x460c…462c Line {l1=0x1e, l2=» TEKST(9):='Rentenota ';«, l3=0x1e}
0x462c…4640 Line {l1=0x12, l2=» IF KASSNR>1 THEN«, l3=0x12}
0x4640…4649 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4649…4665 Line {l1=0x1a, l2=» SEEK(KASSFILE,KASSNR);«, l3=0x1a}
0x4665…467c Line {l1=0x15, l2=» FOR I:=1 TO 10 DO«, l3=0x15}
0x467c…4687 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4687…469d Line {l1=0x14, l2=» GET(KASSFILE);«, l3=0x14}
0x469d…46b4 Line {l1=0x15, l2=» DEBET1(I):=0.0;«, l3=0x15}
0x46b4…46d5 Line {l1=0x1f, l2=» DEBET(I):=KASSFILE^.BELØB«, l3=0x1f}
0x46d5…46df Line {l1=0x08, l2=» END;«, l3=0x08}
0x46df…46f1 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x46f1…473c Line {l1=0x49, l2=» WRITELN('Sidste kasserapport ikke afstemt, ønskes afstemning (J/N)');«, l3=0x49}
0x473c…4785 Line {l1=0x47, l2=» «, l3=0x47}
0x4785…4791 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x4791…47b5 Line {l1=0x22, l2=» GOTOXY(59,1);READLN;READ(CH)«, l3=0x22}
0x47b5…4801 Line {l1=0x4a, l2=» UNTIL (IORESULT=0) AND ((CH='N') OR (CH='J') OR (CH='n') OR (CH='j'));«, l3=0x4a}
0x4801…482a Line {l1=0x27, l2=» IF (CH='J') OR (CH='j') THEN AFSTEM«, l3=0x27}
0x482a…4831 Line {l1=0x05, l2=» END«, l3=0x05}
0x4831…4839 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x4839…485f Line {l1=0x24, l2=» FOR I:=1 TO 10 DO DEBET(I):=0.0;«, l3=0x24}
0x485f…4862 Line {l1=0x01, l2=» «, l3=0x01}
0x4862…4871 Line {l1=0x0d, l2=» LINIENR:=0;«, l3=0x0d}
0x4871…4896 Line {l1=0x23, l2=» FOR I:=1 TO 10 DO DEBET1(I):=0.0;«, l3=0x23}
0x4896…48b0 Line {l1=0x18, l2=» SEEK(KASSFILE,KASSNR);«, l3=0x18}
0x48b0…48ba Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x48ba…48c7 Line {l1=0x0b, l2=» INLINE;«, l3=0x0b}
0x48c7…48f2 Line {l1=0x29, l2=» IF (B>0) OR (KASSNR=1) THEN LINENR:=1«, l3=0x29}
0x48f2…48fc Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x48fc…4907 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x4907…4946 Line {l1=0x3d, l2=» GOTOXY(1,23);WRITELN('Ønskes afstemning (J/N)',' ':54);«, l3=0x3d}
0x4946…4954 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x4954…497b Line {l1=0x25, l2=» GOTOXY(25,23);READLN;READ(CH)«, l3=0x25}
0x497b…49c9 Line {l1=0x4c, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x4c}
0x49c9…49f4 Line {l1=0x29, l2=» IF (CH='J') OR (CH='j') THEN AFSTEM«, l3=0x29}
0x49f4…4a00 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x4a00…4a19 Line {l1=0x17, l2=» FOR I:=1 TO 10 DO«, l3=0x17}
0x4a19…4a32 Line {l1=0x17, l2=» WITH KASSFILE^ DO«, l3=0x17}
0x4a32…4a3f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x4a3f…4a59 Line {l1=0x18, l2=» BELØB:=DEBET(I);«, l3=0x18}
0x4a59…4a70 Line {l1=0x15, l2=» PUT(KASSFILE)«, l3=0x15}
0x4a70…4a7b Line {l1=0x09, l2=» END«, l3=0x09}
0x4a7b…4a84 Line {l1=0x07, l2=» END«, l3=0x07}
0x4a84…4a92 Line {l1=0x0c, l2=» UNTIL B=0;«, l3=0x0c}
0x4a92…4aa6 Line {l1=0x12, l2=» IF KASSNR>1 THEN«, l3=0x12}
0x4aa6…4aaf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4aaf…4ac9 Line {l1=0x18, l2=» REWRITE(SYSFIL,FIL);«, l3=0x18}
0x4ac9…4ade Line {l1=0x13, l2=» SEEK(SYSFIL,1);«, l3=0x13}
0x4ade…4aff Line {l1=0x1f, l2=» SYSFIL^.HELTAL(15):=KASSNR;«, l3=0x1f}
0x4aff…4b20 Line {l1=0x1f, l2=» SYSFIL^.HELTAL(11):=BILNR1;«, l3=0x1f}
0x4b20…4b41 Line {l1=0x1f, l2=» SYSFIL^.HELTAL(12):=BILNR2;«, l3=0x1f}
0x4b41…4b53 Line {l1=0x10, l2=» PUT(SYSFIL);«, l3=0x10}
0x4b53…4b66 Line {l1=0x11, l2=» CLOSE(SYSFIL)«, l3=0x11}
0x4b66…4b6e Line {l1=0x06, l2=» END;«, l3=0x06}
0x4b6e…4b81 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x4b81…4ba7 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x4ba7…4bad Line {l1=0x04, l2=»END.«, l3=0x04}
0x4bad…4bc0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccc┆
0x4bc0…4be0 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┆
[…0x18…]
0x4ee0…4f00 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 ┆