|
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: »SALDSTAT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »SALDSTAT.K«
PROGRAM SALDOSTATISTIK;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY(1..23) OF INTEGER;
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB:ARRAY (1..9) OF REAL
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
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;
VAR FKUN:ISF;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
KZ:ZONE;
FILNAVN2:STRING(20);
J,IER,I:INTEGER;
KNAVN:STRING(4);
KUNDE:KPOST;
NAME:PACKED ARRAY (1..26) OF CHAR;
R2,R1,R,TOTAL:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,FKUN);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
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 N1,N2,FIN:INTEGER;
SVAR1:CHAR;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('SALDOOVERSIGT, PR. KUNDE');
GOTOXY(1,4);
WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');
REPEAT
R:=-1.0;
GOTOXY(1,3);
WRITELN('INDTAST KUNDENUMMER');
GOTOXY(25,3);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);
IF (R=0.0) OR (R=2.0) THEN EXIT(FINDKUND);
REPEAT
IF R=1.0 THEN
IF I=1 THEN
BEGIN
GOTOXY(1,4);
WRITELN('INDTAST KUNDENAVN',' ':60);
REPEAT
GOTOXY(20,4);
READLN;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,FKUN,KUNDE.A);
IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
I:=0
END
ELSE
BEGIN
NEXTREC(KZ.H,FKUN,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,FKUN,KUNDE.A)
END;
GOTOXY(1,5);
FIN:=1;
IF IER=0 THEN
BEGIN
WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);
WRITELN;
WRITELN(KUNDE.NAVN(1));
WRITELN(KUNDE.NAVN(3));
WRITELN(KUNDE.POSTNR);
WRITELN;
WRITELN('TLF: ',KUNDE.TLF);
GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');
REPEAT GOTOXY(60,6);READLN;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=1.0) THEN FIN:=0
END
ELSE
IF IER=-6 THEN
BEGIN
IER:=0;
WRITELN(' ':80);
WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');
READLN
END
ELSE ERROR
UNTIL FIN=1
UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)
END;
PROCEDURE PR1;
BEGIN
WITH KUNDE DO
BEGIN
CLEARSCREEN;
WRITE(NR(1)*10000.0+NR(2):5:-2);
J:=0;
REPEAT J:=J+1
UNTIL (J=4) OR (NAVN(1,J)<>' ');
IF NAVN(1,J)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITE(' ':4,NAME,' ':4)
END
ELSE
WRITE(' ':4,NAVN(1));
WRITELN(' ':14,'Saldostatistik');
WRITELN;
TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);
WRITELN(' ':10,' 0 - 15 dage',SALDOKØB(1)/100:12:2,
' ':10,'16 - 30 dage',SALDOKØB(2)/100:12:2);
WRITELN(' ':10,'30 - 45 dage',SALDOKØB(3)/100:12:2,
' ':10,'45 - 60 dage',SALDOKØB(4)/100:12:2);
WRITELN(' ':10,'Ældre saldo1',SALDOKØB(5)/100:12:2,
' ':10,'Ældre saldo2',SALDOKØB(6)/100:12:2);
WRITELN(' ':10,'Total saldo ',(TOTAL+SALDOKØB(1)+SALDOKØB(2))/100:12:2,
' ':10,'Forfalden ',TOTAL/100:12:2);
WRITELN;
IF NR(12)=0 THEN NR(12):=1;
WRITELN(' ':10,'Rntfri saldo',NR(19)/100:12:2,
' ':10,'Genn. kreddg',NR(11)/NR(12):12:2);
WRITELN;
WRITELN(' ':10,'Årets køb ',SALDOKØB(7)/100:12:2,
' ':10,'Månedens køb',SALDOKØB(8)/100:12:2);
WRITELN(' ':10,'Sid. års køb',SALDOKØB(9)/100:12:2);
WRITELN('Tryk Return');READLN;
END
END;
PROCEDURE PRKUNOPL;
BEGIN
WITH KUNDE DO
BEGIN
WRITELN('Monter papir og tryk RETURN');READLN;
WRITE(LIST,NR(1)*10000.0+NR(2):5:-2);
J:=0;
REPEAT J:=J+1
UNTIL (J=4) OR (NAVN(1,J)<>' ');
IF NAVN(1,J)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITE(LIST,' ':4,NAME,' ':4)
END
ELSE
WRITE(LIST,' ':4,NAVN(1));
WRITELN(LIST,' ':14,'Saldostatistik');
WRITELN(LIST);
TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);
WRITELN(LIST,' ':10,' 0 - 15 dage',SALDOKØB(1)/100:12:2,
' ':10,'16 - 30 dage',SALDOKØB(2)/100:12:2);
WRITELN(LIST,' ':10,'30 - 45 dage',SALDOKØB(3)/100:12:2,
' ':10,'45 - 60 dage',SALDOKØB(4)/100:12:2);
WRITELN(LIST,' ':10,'Ældre saldo1',SALDOKØB(5)/100:12:2,
' ':10,'Ældre saldo2',SALDOKØB(6)/100:12:2);
WRITELN(LIST,' ':10,'Total saldo ',(TOTAL+SALDOKØB(1)+SALDOKØB(2))/100:12:2
,' ':10,'Forfalden ',TOTAL/100:12:2);
WRITELN(LIST);
IF NR(12)=0 THEN NR(12):=1;
WRITELN(LIST,' ':10,'Rntfri saldo',NR(19)/100:12:2,
' ':10,'Genn. kreddg',NR(11)/NR(12):12:2);
WRITELN(LIST);
WRITELN(LIST,' ':10,'Årets køb ',SALDOKØB(7)/100:12:2,
' ':10,'Månedens køb',SALDOKØB(8)/100:12:2);
WRITELN(LIST,' ':10,'Sid. års køb',SALDOKØB(9)/100:12:2);
WRITELN(LIST);
WRITELN(LIST);
END
END;
BEGIN
FILNAVN2:='KUNDERG:P2:0000:I';
RESET(FKUN,FILNAVN2);
IOPEN(KZ.H,FKUN,LÆS);
IF IER<>0 THEN ERROR;
FILNAVN2:='SYSREG:P2:1:I';
RESET(SYSFIL,FILNAVN2);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
REPEAT
FINDKUND;
IF R<>0.0 THEN
BEGIN
GOTOXY(1,13);WRITELN('Skærmudskrift ell. liste (1/2) ?');
REPEAT
GOTOXY(37,13);READLN;READ(I)
UNTIL (IORESULT=0) AND (I>0) AND (I<3);
IF I=1 THEN
PR1 ELSE PRKUNOPL
END
UNTIL R=0.0;
ICLOSE(KZ.H,FKUN);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0019 Line {l1=0x17, l2=»PROGRAM SALDOSTATISTIK;«, l3=0x17}
0x0019…0028 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0028…0036 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x0036…0044 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0044…0068 Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x0068…00a3 Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x00a3…00d1 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00d1…00fe Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x00fe…0128 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x0128…014e Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x014e…0154 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0154…0162 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x0162…0175 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0175…0198 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x0198…019f Line {l1=0x05, l2=» END;«, l3=0x05}
0x019f…01af Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x01af…01d8 Line {l1=0x27, l2=» HELTAL:ARRAY (1..24) OF INTEGER;«, l3=0x27}
0x01d8…01f9 Line {l1=0x1f, l2=» KGB:ARRAY(1..5) OF REAL;«, l3=0x1f}
0x01f9…0227 Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x0227…0261 Line {l1=0x38, l2=» KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x38}
0x0261…0267 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0267…0281 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0281…0293 Line {l1=0x10, l2=»VAR FKUN:ISF;«, l3=0x10}
0x0293…02ab Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x02ab…02c1 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x02c1…02d2 Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x02d2…02ef Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x02ef…0305 Line {l1=0x14, l2=» J,IER,I:INTEGER;«, l3=0x14}
0x0305…031e Line {l1=0x17, l2=» KNAVN:STRING(4);«, l3=0x17}
0x031e…0332 Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x0332…035d Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x035d…0379 Line {l1=0x1a, l2=» R2,R1,R,TOTAL:REAL;«, l3=0x1a}
0x0379…0382 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0382…0395 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0395…03a2 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x03a2…03b2 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x03b2…03c2 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x03c2…03d0 Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x03d0…03df Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x03df…03ed Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x03ed…03f6 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x03f6…03ff Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x03ff…0411 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0411…0418 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0418…043c Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x043c…0452 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x0452…046d Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x046d…047b Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x047b…0481 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0481…04b5 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x04b5…04c5 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x04c5…04d2 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x04d2…04d9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04d9…04e4 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x04e4…050b Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x050b…0523 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0523…053c Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x053c…0554 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0554…0571 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0571…0577 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0577…058c Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x058c…05a7 Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x05a7…05bb Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x05bb…05c2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05c2…05cc Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x05cc…05d7 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x05d7…05e8 Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x05e8…05fa Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x05fa…0624 Line {l1=0x28, l2=» WRITELN('SALDOOVERSIGT, PR. KUNDE');«, l3=0x28}
0x0624…0636 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x0636…067c Line {l1=0x44, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');«, l3=0x44}
0x067c…0688 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0688…0698 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0698…06ac Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x06ac…06d3 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x06d3…06f6 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x06f6…072d Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x072d…075d Line {l1=0x2e, l2=» IF (R=0.0) OR (R=2.0) THEN EXIT(FINDKUND);«, l3=0x2e}
0x075d…0769 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0769…077e Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x077e…0793 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0793…07a2 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x07a2…07ba Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x07ba…07ea Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x07ea…07fc Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x07fc…0815 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x0815…0833 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x0833…0855 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x0855…0873 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x0873…088f Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x088f…08ab Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x08ab…08c9 Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x08c9…08ef Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x08ef…0925 Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x0925…0961 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0961…0971 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x0971…097e Line {l1=0x0b, l2=» END«, l3=0x0b}
0x097e…098c Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x098c…099b Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x099b…09c2 Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x09c2…09fe Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x09fe…0a2e Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x0a2e…0a6f Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x0a6f…0a7c Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0a7c…0a88 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0a88…0a95 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a95…0abd Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x0abd…0af1 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x0af1…0b14 Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x0b14…0b20 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0b20…0b34 Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x0b34…0b43 Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x0b43…0b58 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x0b58…0b65 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0b65…0bac Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x0bac…0bbe Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0bbe…0bdf Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x0bdf…0c00 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x0c00…0c20 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x0c20…0c32 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0c32…0c57 Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x0c57…0c8c Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x0c8c…0cd4 Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x0cd4…0d21 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x0d21…0d62 Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x0d62…0d6d Line {l1=0x09, l2=» END«, l3=0x09}
0x0d6d…0d79 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0d79…0d8f Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x0d8f…0d9c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d9c…0dad Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x0dad…0dc7 Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x0dc7…0e00 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x0e00…0e10 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x0e10…0e1b Line {l1=0x09, l2=» END«, l3=0x09}
0x0e1b…0e2d Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x0e2d…0e3e Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x0e3e…0e6d Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)«, l3=0x2d}
0x0e6d…0e73 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e73…0e83 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x0e83…0e8a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e8a…0e9b Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x0e9b…0ea4 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0ea4…0eb6 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0eb6…0edc Line {l1=0x24, l2=» WRITE(NR(1)*10000.0+NR(2):5:-2);«, l3=0x24}
0x0edc…0eea Line {l1=0x0c, l2=» J:=0;«, l3=0x0c}
0x0eea…0f00 Line {l1=0x14, l2=» REPEAT J:=J+1«, l3=0x14}
0x0f00…0f29 Line {l1=0x27, l2=» UNTIL (J=4) OR (NAVN(1,J)<>' ');«, l3=0x27}
0x0f29…0f47 Line {l1=0x1c, l2=» IF NAVN(1,J)=' ' THEN«, l3=0x1c}
0x0f47…0f55 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x0f55…0f7c Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x0f7c…0f9e Line {l1=0x20, l2=» WRITE(' ':4,NAME,' ':4)«, l3=0x20}
0x0f9e…0faa Line {l1=0x0a, l2=» END«, l3=0x0a}
0x0faa…0fb7 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x0fb7…0fd2 Line {l1=0x19, l2=» WRITE(' ':4,NAVN(1));«, l3=0x19}
0x0fd2…0ff9 Line {l1=0x25, l2=» WRITELN(' ':14,'Saldostatistik');«, l3=0x25}
0x0ff9…1007 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1007…1040 Line {l1=0x37, l2=»TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);«, l3=0x37}
0x1040…1079 Line {l1=0x37, l2=» WRITELN(' ':10,' 0 - 15 dage',SALDOKØB(1)/100:12:2,«, l3=0x37}
0x1079…10b8 Line {l1=0x3d, l2=» ' ':10,'16 - 30 dage',SALDOKØB(2)/100:12:2);«, l3=0x3d}
0x10b8…10f1 Line {l1=0x37, l2=» WRITELN(' ':10,'30 - 45 dage',SALDOKØB(3)/100:12:2,«, l3=0x37}
0x10f1…1130 Line {l1=0x3d, l2=» ' ':10,'45 - 60 dage',SALDOKØB(4)/100:12:2);«, l3=0x3d}
0x1130…1169 Line {l1=0x37, l2=» WRITELN(' ':10,'Ældre saldo1',SALDOKØB(5)/100:12:2,«, l3=0x37}
0x1169…11a8 Line {l1=0x3d, l2=» ' ':10,'Ældre saldo2',SALDOKØB(6)/100:12:2);«, l3=0x3d}
0x11a8…11f5 Line {l1=0x4b, l2=» WRITELN(' ':10,'Total saldo ',(TOTAL+SALDOKØB(1)+SALDOKØB(2))/100:12:2,«, l3=0x4b}
0x11f5…122e Line {l1=0x37, l2=» ' ':10,'Forfalden ',TOTAL/100:12:2);«, l3=0x37}
0x122e…123c Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x123c…125d Line {l1=0x1f, l2=» IF NR(12)=0 THEN NR(12):=1;«, l3=0x1f}
0x125d…1291 Line {l1=0x32, l2=» WRITELN(' ':10,'Rntfri saldo',NR(19)/100:12:2,«, l3=0x32}
0x1291…12ce Line {l1=0x3b, l2=» ' ':10,'Genn. kreddg',NR(11)/NR(12):12:2);«, l3=0x3b}
0x12ce…12dc Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x12dc…1315 Line {l1=0x37, l2=» WRITELN(' ':10,'Årets køb ',SALDOKØB(7)/100:12:2,«, l3=0x37}
0x1315…1354 Line {l1=0x3d, l2=» ' ':10,'Månedens køb',SALDOKØB(8)/100:12:2);«, l3=0x3d}
0x1354…138e Line {l1=0x38, l2=» WRITELN(' ':10,'Sid. års køb',SALDOKØB(9)/100:12:2);«, l3=0x38}
0x138e…13b2 Line {l1=0x22, l2=» WRITELN('Tryk Return');READLN;«, l3=0x22}
0x13b2…13b9 Line {l1=0x05, l2=» END«, l3=0x05}
0x13b9…13bf Line {l1=0x04, l2=»END;«, l3=0x04}
0x13bf…13d4 Line {l1=0x13, l2=»PROCEDURE PRKUNOPL;«, l3=0x13}
0x13d4…13db Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x13db…13ec Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x13ec…13f5 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x13f5…1429 Line {l1=0x32, l2=» WRITELN('Monter papir og tryk RETURN');READLN;«, l3=0x32}
0x1429…1454 Line {l1=0x29, l2=» WRITE(LIST,NR(1)*10000.0+NR(2):5:-2);«, l3=0x29}
0x1454…1462 Line {l1=0x0c, l2=» J:=0;«, l3=0x0c}
0x1462…1478 Line {l1=0x14, l2=» REPEAT J:=J+1«, l3=0x14}
0x1478…14a1 Line {l1=0x27, l2=» UNTIL (J=4) OR (NAVN(1,J)<>' ');«, l3=0x27}
0x14a1…14bf Line {l1=0x1c, l2=» IF NAVN(1,J)=' ' THEN«, l3=0x1c}
0x14bf…14cd Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x14cd…14f4 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x14f4…151b Line {l1=0x25, l2=» WRITE(LIST,' ':4,NAME,' ':4)«, l3=0x25}
0x151b…1527 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1527…1534 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1534…1554 Line {l1=0x1e, l2=» WRITE(LIST,' ':4,NAVN(1));«, l3=0x1e}
0x1554…1580 Line {l1=0x2a, l2=» WRITELN(LIST,' ':14,'Saldostatistik');«, l3=0x2a}
0x1580…1594 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x1594…15cd Line {l1=0x37, l2=»TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);«, l3=0x37}
0x15cd…160b Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,' 0 - 15 dage',SALDOKØB(1)/100:12:2,«, l3=0x3c}
0x160b…164a Line {l1=0x3d, l2=» ' ':10,'16 - 30 dage',SALDOKØB(2)/100:12:2);«, l3=0x3d}
0x164a…1688 Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,'30 - 45 dage',SALDOKØB(3)/100:12:2,«, l3=0x3c}
0x1688…16c7 Line {l1=0x3d, l2=» ' ':10,'45 - 60 dage',SALDOKØB(4)/100:12:2);«, l3=0x3d}
0x16c7…1705 Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,'Ældre saldo1',SALDOKØB(5)/100:12:2,«, l3=0x3c}
0x1705…1744 Line {l1=0x3d, l2=» ' ':10,'Ældre saldo2',SALDOKØB(6)/100:12:2);«, l3=0x3d}
0x1744…1793 Line {l1=0x4d, l2=» WRITELN(LIST,' ':10,'Total saldo ',(TOTAL+SALDOKØB(1)+SALDOKØB(2))/100:12:2«, l3=0x4d}
0x1793…17cc Line {l1=0x37, l2=» ,' ':10,'Forfalden ',TOTAL/100:12:2);«, l3=0x37}
0x17cc…17e0 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x17e0…1801 Line {l1=0x1f, l2=» IF NR(12)=0 THEN NR(12):=1;«, l3=0x1f}
0x1801…183a Line {l1=0x37, l2=» WRITELN(LIST,' ':10,'Rntfri saldo',NR(19)/100:12:2,«, l3=0x37}
0x183a…1877 Line {l1=0x3b, l2=» ' ':10,'Genn. kreddg',NR(11)/NR(12):12:2);«, l3=0x3b}
0x1877…188b Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x188b…18c9 Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,'Årets køb ',SALDOKØB(7)/100:12:2,«, l3=0x3c}
0x18c9…1908 Line {l1=0x3d, l2=» ' ':10,'Månedens køb',SALDOKØB(8)/100:12:2);«, l3=0x3d}
0x1908…1947 Line {l1=0x3d, l2=» WRITELN(LIST,' ':10,'Sid. års køb',SALDOKØB(9)/100:12:2);«, l3=0x3d}
0x1947…195b Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
[…0x1…]
0x196f…1976 Line {l1=0x05, l2=» END«, l3=0x05}
0x1976…197c Line {l1=0x04, l2=»END;«, l3=0x04}
0x197c…1983 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1983…19a5 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:0000:I';«, l3=0x20}
0x19a5…19be Line {l1=0x17, l2=» RESET(FKUN,FILNAVN2);«, l3=0x17}
0x19be…19d7 Line {l1=0x17, l2=» IOPEN(KZ.H,FKUN,LÆS);«, l3=0x17}
0x19d7…19f0 Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x19f0…1a0e Line {l1=0x1c, l2=» FILNAVN2:='SYSREG:P2:1:I';«, l3=0x1c}
0x1a0e…1a29 Line {l1=0x19, l2=» RESET(SYSFIL,FILNAVN2);«, l3=0x19}
0x1a29…1a3c Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1a3c…1a4c Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1a4c…1a5e Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1a5e…1a68 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1a68…1a77 Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x1a77…1a8b Line {l1=0x12, l2=» IF R<>0.0 THEN«, l3=0x12}
0x1a8b…1a96 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1a96…1ad7 Line {l1=0x3f, l2=» GOTOXY(1,13);WRITELN('Skærmudskrift ell. liste (1/2) ?');«, l3=0x3f}
0x1ad7…1ae5 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1ae5…1b0b Line {l1=0x24, l2=» GOTOXY(37,13);READLN;READ(I)«, l3=0x24}
0x1b0b…1b3a Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (I>0) AND (I<3);«, l3=0x2d}
0x1b3a…1b4d Line {l1=0x11, l2=» IF I=1 THEN«, l3=0x11}
0x1b4d…1b68 Line {l1=0x19, l2=» PR1 ELSE PRKUNOPL«, l3=0x19}
0x1b68…1b71 Line {l1=0x07, l2=» END«, l3=0x07}
0x1b71…1b81 Line {l1=0x0e, l2=» UNTIL R=0.0;«, l3=0x0e}
0x1b81…1b97 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x1b97…1ba7 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1ba7…1bc2 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x1bc2…1be8 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1be8…1bee Line {l1=0x04, l2=»END.«, l3=0x04}
0x1bee…1c00 00 00 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 ┆ UNTIL (IORES┆
0x1c00…1c20 55 4c 54 3d 30 29 20 41 4e 44 20 28 49 3e 30 29 20 41 4e 44 20 28 49 3c 33 29 3b 2d 11 20 20 20 ┆ULT=0) AND (I>0) AND (I<3);- ┆
0x1c20…1c40 20 20 20 49 46 20 49 3d 31 20 54 48 45 4e 11 19 20 20 20 20 20 20 20 20 50 52 31 20 45 4c 53 45 ┆ IF I=1 THEN PR1 ELSE┆
0x1c40…1c60 20 50 52 4b 55 4e 4f 50 4c 19 07 20 20 20 20 45 4e 44 07 0e 20 20 55 4e 54 49 4c 20 52 3d 30 2e ┆ PRKUNOPL END UNTIL R=0.┆
0x1c60…1c80 30 3b 0e 14 20 20 49 43 4c 4f 53 45 28 4b 5a 2e 48 2c 46 4b 55 4e 29 3b 14 0e 20 20 43 4c 45 41 ┆0; ICLOSE(KZ.H,FKUN); CLEA┆
0x1c80…1ca0 52 53 43 52 45 45 4e 3b 0e 19 20 20 57 52 49 54 45 4c 4e 28 27 49 43 4c 4f 53 45 20 27 2c 49 45 ┆RSCREEN; WRITELN('ICLOSE ',IE┆
0x1ca0…1cc0 52 29 3b 19 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 ┆R); $ CHAIN('INTRE *1','HOVSA┆
0x1cc0…1ce0 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 63 63 63 63 63 ┆:P1',QUQ)$ END. cccccccccccccc┆
0x1ce0…1d00 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┆
[…0x1…]
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 ┆