|
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: 4992 (0x1380)
Types: TextFile
Notes: Mikados_K
Names: »RENTEBER.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »RENTEBER.K«
PROGRAM RENTEBEREGNING;
CONST RENTE=0.022;
(*$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;
JOURPOST=RECORD
KONTONR1,KONTONR2,
DATO1,DATO2,
TEKSTKODE,
BILAG1,BILAG2,
KGB :INTEGER;
BELØB :REAL
END;
JOURFILE=FILE OF JOURPOST;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
NRPF,CF:NPFILE;
QUQ:^INTEGER;
CH:CHAR;
LOW,HIGH:REAL;
KZ:ZONE;
FILNAVN2:STRING(20);
LINIE,J,IER,I:INTEGER;
JOURFIL:JOURFILE;
KUNDE:KPOST;
NAME:PACKED ARRAY (1..26) OF CHAR;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
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;
FUNCTION RUND(R:REAL):REAL;
VAR R1:REAL;
BEGIN
R1:=TRUNC(R/10000.0);
R1:=R1*10000.0;
RUND:=ROUND(R-R1)+R1
END;
PROCEDURE BEREGNRENTE;
VAR R,R1:REAL;
BEGIN
WITH KUNDE,JOURFIL^ DO
IF KUNDE.NR(10)=1 THEN
BEGIN
IF NR(20)>0 THEN
BEGIN
NR(20):=NR(20)-1;
IF NR(20)=0 THEN
BEGIN
SALDOKØB(2):=SALDOKØB(2)+NR(19)*100.0;
NR(19):=0
END
END;
R1:=RENTE*(SALDOKØB(3)+SALDOKØB(5));
R1:=RUND(R1);
IF R1<HIGH THEN
IF R1<LOW THEN R1:=0.0 ELSE R1:=HIGH;
IF CH='N' THEN
BEGIN
R:=SALDOKØB(5);
SALDOKØB(5):=SALDOKØB(6)+SALDOKØB(4);
SALDOKØB(6):=R;
SALDOKØB(4):=SALDOKØB(3);
SALDOKØB(3):=SALDOKØB(2);
SALDOKØB(2):=SALDOKØB(1);
SALDOKØB(1):=0.0;
IF SALDOKØB(2)<0.0 THEN
BEGIN
SALDOKØB(1):=SALDOKØB(2);
SALDOKØB(2):=0
END;
END;
IF R1>0.0 THEN
BEGIN
KONTONR1:=NR(1);
KONTONR2:=NR(2);
TEKSTKODE:=9;
KGB:=5;
BELØB:=R1;
PUT(JOURFIL);
WRITELN(LIST,LINIE:5,' ':5,NAVN(1),NR(1)*10000.0+NR(2):10:-2,
BELØB/100:12:2);
LINIE:=LINIE+1
END;
PUTREC(KZ.H,F,KUNDE.A)
END
END;
BEGIN
FILNAVN2:='KUNDERG:P2:1338:I';
REWRITE(F,FILNAVN2);
IOPEN(KZ.H,F,SKRIV);
IF IER<>0 THEN OFEJL;
LINIE:=1;
FILNAVN2:='RENTPOST:P1:50:I';
REWRITE(JOURFIL,FILNAVN2);
SEEK(JOURFIL,1);
CLEARSCREEN;
WRITELN('Sker renteberegning i forbindelse med månedsafslutning (J/N)');
REPEAT
GOTOXY(63,1);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));
IF CH='n' THEN CH:='N';
GOTOXY(1,2);WRITELN('Rentegrænser');
REPEAT
GOTOXY(20,2);READLN;READ(LOW,HIGH)
UNTIL (IORESULT=0) AND (LOW<=HIGH) AND (LOW>=0.0);
LOW:=LOW*100.0;
HIGH:=HIGH*100.0;
WRITELN(LIST,'R E N T E B E R E G N I N G');
WRITELN(LIST);
WRITELN(LIST,'Linie',' ':5,'Kundenavn',' ':24,'Kundenr',' ':7,'Rente');
WITH KUNDE DO
BEGIN
NR(1):=0;NR(2):=0;
I:=0;
NEXTREC(KZ.H,F,A);
IF IER<>-1 THEN ERROR;
REPEAT
BEREGNRENTE;
I:=I+1;
NEXTREC(KZ.H,F,A)
UNTIL IER<>0;
END;
IF IER<>-2 THEN ERROR;
JOURFIL^.TEKSTKODE:=0;
PUT(JOURFIL);
CLOSE(JOURFIL);
ICLOSE(KZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
FILNAVN2:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FILNAVN2);
SEEK(NRPF,1)
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
NRPF^.NP:=1;
SEEK(NRPF,1);
PUT(NRPF);
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C1:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
CLOSE(NRPF);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0019 Line {l1=0x17, l2=»PROGRAM RENTEBEREGNING;«, l3=0x17}
0x0019…002e Line {l1=0x13, l2=»CONST RENTE=0.022;«, l3=0x13}
0x002e…003d Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x003d…004b Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x004b…0059 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0059…007d Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x007d…00b8 Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x00b8…00e6 Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00e6…0113 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x0113…013d Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x013d…0163 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0163…0169 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0169…0177 Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x0177…018a Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x018a…01ad Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x01ad…01b3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x01b3…01c4 Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x01c4…01df Line {l1=0x19, l2=» KONTONR1,KONTONR2,«, l3=0x19}
0x01df…01f4 Line {l1=0x13, l2=» DATO1,DATO2,«, l3=0x13}
0x01f4…0207 Line {l1=0x11, l2=» TEKSTKODE,«, l3=0x11}
0x0207…021e Line {l1=0x15, l2=» BILAG1,BILAG2,«, l3=0x15}
0x021e…0248 Line {l1=0x28, l2=» KGB :INTEGER;«, l3=0x28}
0x0248…026e Line {l1=0x24, l2=» BELØB :REAL«, l3=0x24}
0x026e…0274 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0274…0290 Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x0290…02a1 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x02a1…02bd Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x02bd…02c3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x02c3…02dd Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x02dd…02ec Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x02ec…0304 Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x0304…031a Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x031a…032b Line {l1=0x0f, l2=» CH:CHAR;«, l3=0x0f}
0x032b…0342 Line {l1=0x15, l2=» LOW,HIGH:REAL;«, l3=0x15}
0x0342…0353 Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x0353…0370 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0370…038c Line {l1=0x1a, l2=» LINIE,J,IER,I:INTEGER;«, l3=0x1a}
0x038c…03a3 Line {l1=0x15, l2=» JOURFIL:JOURFILE;«, l3=0x15}
0x03a3…03b7 Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x03b7…03e2 Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x03e2…03e5 Line {l1=0x01, l2=» «, l3=0x01}
0x03e5…03ee Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x03ee…0401 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0401…040e Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x040e…041e Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x041e…042e Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x042e…043c Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x043c…044b Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x044b…0459 Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x0459…0462 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0462…046b Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x046b…047d Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x047d…0484 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0484…04a8 Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x04a8…04bb Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x04bb…04d6 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x04d6…04e4 Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x04e4…04ea Line {l1=0x04, l2=»END;«, l3=0x04}
0x04ea…04fc Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x04fc…0503 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0503…0514 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0514…0559 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0559…0589 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0589…05c2 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x05c2…05d9 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x05d9…05e8 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x05e8…05ee Line {l1=0x04, l2=»END;«, l3=0x04}
0x05ee…060b Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x060b…0619 Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x0619…0620 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0620…0639 Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x0639…064c Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x064c…0664 Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x0664…066a Line {l1=0x04, l2=»END;«, l3=0x04}
0x066a…0682 Line {l1=0x16, l2=»PROCEDURE BEREGNRENTE;«, l3=0x16}
0x0682…0695 Line {l1=0x11, l2=»VAR R,R1:REAL;«, l3=0x11}
0x0695…069c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x069c…06b6 Line {l1=0x18, l2=» WITH KUNDE,JOURFIL^ DO«, l3=0x18}
0x06b6…06d0 Line {l1=0x18, l2=» IF KUNDE.NR(10)=1 THEN«, l3=0x18}
0x06d0…06d9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x06d9…06ef Line {l1=0x14, l2=» IF NR(20)>0 THEN«, l3=0x14}
0x06ef…06fa Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x06fa…0713 Line {l1=0x17, l2=» NR(20):=NR(20)-1;«, l3=0x17}
0x0713…072b Line {l1=0x16, l2=» IF NR(20)=0 THEN«, l3=0x16}
0x072b…0738 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0738…0768 Line {l1=0x2e, l2=» SALDOKØB(2):=SALDOKØB(2)+NR(19)*100.0;«, l3=0x2e}
0x0768…077b Line {l1=0x11, l2=» NR(19):=0«, l3=0x11}
0x077b…0786 Line {l1=0x09, l2=» END«, l3=0x09}
0x0786…0790 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0790…07ba Line {l1=0x28, l2=» R1:=RENTE*(SALDOKØB(3)+SALDOKØB(5));«, l3=0x28}
0x07ba…07cd Line {l1=0x11, l2=» R1:=RUND(R1);«, l3=0x11}
0x07cd…07e2 Line {l1=0x13, l2=» IF R1<HIGH THEN«, l3=0x13}
0x07e2…0810 Line {l1=0x2c, l2=» IF R1<LOW THEN R1:=0.0 ELSE R1:=HIGH;«, l3=0x2c}
0x0810…0824 Line {l1=0x12, l2=» IF CH='N' THEN«, l3=0x12}
0x0824…082f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x082f…0844 Line {l1=0x13, l2=» R:=SALDOKØB(5);«, l3=0x13}
0x0844…086f Line {l1=0x29, l2=» SALDOKØB(5):=SALDOKØB(6)+SALDOKØB(4);«, l3=0x29}
0x086f…0884 Line {l1=0x13, l2=» SALDOKØB(6):=R;«, l3=0x13}
0x0884…08a3 Line {l1=0x1d, l2=» SALDOKØB(4):=SALDOKØB(3);«, l3=0x1d}
0x08a3…08c2 Line {l1=0x1d, l2=» SALDOKØB(3):=SALDOKØB(2);«, l3=0x1d}
0x08c2…08e1 Line {l1=0x1d, l2=» SALDOKØB(2):=SALDOKØB(1);«, l3=0x1d}
0x08e1…08f8 Line {l1=0x15, l2=» SALDOKØB(1):=0.0;«, l3=0x15}
0x08f8…0915 Line {l1=0x1b, l2=» IF SALDOKØB(2)<0.0 THEN«, l3=0x1b}
0x0915…0920 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0920…0941 Line {l1=0x1f, l2=» SALDOKØB(1):=SALDOKØB(2);«, l3=0x1f}
0x0941…0957 Line {l1=0x14, l2=» SALDOKØB(2):=0«, l3=0x14}
0x0957…0961 Line {l1=0x08, l2=» END;«, l3=0x08}
[…0x1…]
0x096b…097f Line {l1=0x12, l2=» IF R1>0.0 THEN«, l3=0x12}
0x097f…098a Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x098a…09a2 Line {l1=0x16, l2=» KONTONR1:=NR(1);«, l3=0x16}
0x09a2…09ba Line {l1=0x16, l2=» KONTONR2:=NR(2);«, l3=0x16}
0x09ba…09cf Line {l1=0x13, l2=» TEKSTKODE:=9;«, l3=0x13}
0x09cf…09de Line {l1=0x0d, l2=» KGB:=5;«, l3=0x0d}
0x09de…09f0 Line {l1=0x10, l2=» BELØB:=R1;«, l3=0x10}
0x09f0…0a05 Line {l1=0x13, l2=» PUT(JOURFIL);«, l3=0x13}
0x0a05…0a4a Line {l1=0x43, l2=» WRITELN(LIST,LINIE:5,' ':5,NAVN(1),NR(1)*10000.0+NR(2):10:-2,«, l3=0x43}
0x0a4a…0a7d Line {l1=0x31, l2=» BELØB/100:12:2);«, l3=0x31}
0x0a7d…0a93 Line {l1=0x14, l2=» LINIE:=LINIE+1«, l3=0x14}
0x0a93…0a9d Line {l1=0x08, l2=» END;«, l3=0x08}
0x0a9d…0ab9 Line {l1=0x1a, l2=» PUTREC(KZ.H,F,KUNDE.A)«, l3=0x1a}
0x0ab9…0ac0 Line {l1=0x05, l2=» END«, l3=0x05}
0x0ac0…0ac6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ac6…0acd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0acd…0aef Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x0aef…0b07 Line {l1=0x16, l2=» REWRITE(F,FILNAVN2);«, l3=0x16}
0x0b07…0b1f Line {l1=0x16, l2=» IOPEN(KZ.H,F,SKRIV);«, l3=0x16}
0x0b1f…0b38 Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x0b38…0b45 Line {l1=0x0b, l2=» LINIE:=1;«, l3=0x0b}
0x0b45…0b66 Line {l1=0x1f, l2=» FILNAVN2:='RENTPOST:P1:50:I';«, l3=0x1f}
0x0b66…0b84 Line {l1=0x1c, l2=» REWRITE(JOURFIL,FILNAVN2);«, l3=0x1c}
0x0b84…0b98 Line {l1=0x12, l2=» SEEK(JOURFIL,1);«, l3=0x12}
0x0b98…0ba8 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0ba8…0bf4 Line {l1=0x4a, l2=» WRITELN('Sker renteberegning i forbindelse med månedsafslutning (J/N)');«, l3=0x4a}
0x0bf4…0bfe Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0bfe…0c20 Line {l1=0x20, l2=» GOTOXY(63,1);READLN;READ(CH)«, l3=0x20}
0x0c20…0c6a Line {l1=0x48, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR (CH='j') OR (CH='n'));«, l3=0x48}
0x0c6a…0c85 Line {l1=0x19, l2=» IF CH='n' THEN CH:='N';«, l3=0x19}
0x0c85…0c88 Line {l1=0x01, l2=» «, l3=0x01}
0x0c88…0cb0 Line {l1=0x26, l2=» GOTOXY(1,2);WRITELN('Rentegrænser');«, l3=0x26}
0x0cb0…0cba Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0cba…0ce2 Line {l1=0x26, l2=» GOTOXY(20,2);READLN;READ(LOW,HIGH)«, l3=0x26}
0x0ce2…0d18 Line {l1=0x34, l2=» UNTIL (IORESULT=0) AND (LOW<=HIGH) AND (LOW>=0.0);«, l3=0x34}
0x0d18…0d2b Line {l1=0x11, l2=» LOW:=LOW*100.0;«, l3=0x11}
0x0d2b…0d40 Line {l1=0x13, l2=» HIGH:=HIGH*100.0;«, l3=0x13}
0x0d40…0d6e Line {l1=0x2c, l2=»WRITELN(LIST,'R E N T E B E R E G N I N G');«, l3=0x2c}
0x0d6e…0d7e Line {l1=0x0e, l2=»WRITELN(LIST);«, l3=0x0e}
0x0d7e…0dc7 Line {l1=0x47, l2=»WRITELN(LIST,'Linie',' ':5,'Kundenavn',' ':24,'Kundenr',' ':7,'Rente');«, l3=0x47}
0x0dc7…0dd8 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x0dd8…0de1 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0de1…0df9 Line {l1=0x16, l2=» NR(1):=0;NR(2):=0;«, l3=0x16}
0x0df9…0e04 Line {l1=0x09, l2=» I:=0;«, l3=0x09}
0x0e04…0e1c Line {l1=0x16, l2=» NEXTREC(KZ.H,F,A);«, l3=0x16}
0x0e1c…0e38 Line {l1=0x1a, l2=» IF IER<>-1 THEN ERROR;«, l3=0x1a}
0x0e38…0e44 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0e44…0e59 Line {l1=0x13, l2=» BEREGNRENTE;«, l3=0x13}
0x0e59…0e69 Line {l1=0x0e, l2=» I:=I+1;«, l3=0x0e}
0x0e69…0e83 Line {l1=0x18, l2=» NEXTREC(KZ.H,F,A)«, l3=0x18}
0x0e83…0e96 Line {l1=0x11, l2=» UNTIL IER<>0;«, l3=0x11}
0x0e96…0e9e Line {l1=0x06, l2=» END;«, l3=0x06}
0x0e9e…0eb8 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x0eb8…0ed2 Line {l1=0x18, l2=» JOURFIL^.TEKSTKODE:=0;«, l3=0x18}
0x0ed2…0ee3 Line {l1=0x0f, l2=» PUT(JOURFIL);«, l3=0x0f}
0x0ee3…0ef6 Line {l1=0x11, l2=» CLOSE(JOURFIL);«, l3=0x11}
0x0ef6…0f09 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x0f09…0f19 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0f19…0f38 Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x0f38…0f58 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x0f58…0f61 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x0f61…0f6b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0f6b…0f88 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x0f88…0f9a Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x0f9a…0faf Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x0faf…0fb8 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x0fb8…0fc6 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x0fc6…0fd6 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x0fd6…0fe7 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x0fe7…0ff5 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x0ff5…0fff Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0fff…1012 Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x1012…1047 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x1047…1054 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x1054…105d Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x105d…107b Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x107b…108b Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x108b…1094 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x1094…10a9 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x10a9…10b7 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x10b7…10c7 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x10c7…10ed Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x10ed…10f3 Line {l1=0x04, l2=»END.«, l3=0x04}
0x10f3…1100 00 00 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccc┆
0x1100…1120 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┆
[…0x12…]
0x1360…1380 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 ┆