|
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: 11232 (0x2be0)
Types: TextFile
Notes: Mikados_K
Names: »KONTUDT.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KONTUDT.K«
PROGRAM KONTOUDTOG;
(*$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;
POSTPOST=RECORD
A:AR;
(*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;
(*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL
END;
POSTZONE=RECORD
H:ISFHEAD;
T:ARRAY (1..508) OF INTEGER
END;
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 FPOST,FKUN:ISF;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
KZ:ZONE;
PZ:POSTZONE;
PPOST:POSTPOST;
FILNAVN2:STRING(20);
M,S,J,IER,I:INTEGER;
PTYPE:ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;
KNAVN:STRING(4);
KUNDE:KPOST;
NAME:PACKED ARRAY (1..26) OF CHAR;
R2,R1,R,TOTAL,TTOTAL:REAL;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$IPUTGET*)
(*$R+*)
(*$L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
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('KONTOUDTOG, 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 HEAD;
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,'Kontoudtog',SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):10:-2);
WRITELN;
WRITELN('Art',' ':21,'Bilagsnr',' ':12,'Dato',' ':8,'Beløb',' ':4,
'Restbeløb');
END
END;
PROCEDURE PR1;
BEGIN
WITH KUNDE DO
BEGIN
TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);
WRITELN('____________________________________________________________',
'______________');
WRITELN('Total',' ':43,TTOTAL/100:13:2);
WRITELN;
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('Tryk Return');READLN;
END
END;
PROCEDURE HEADP;
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,'Kontoudtog',SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):10:-2);
WRITELN(LIST);
WRITELN(LIST,'Art',' ':21,'Bilagsnr',' ':12,'Dato',' ':8,'Beløb',' ':4,
'Restbeløb');
END
END;
PROCEDURE PRKUNOPL;
BEGIN
WITH KUNDE DO
BEGIN
TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);
WRITELN(LIST,'__________________________________________________',
'________________________');
WRITELN(LIST,'Total',' ':43,TTOTAL/100:13:2);
WRITELN(LIST);
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);
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:='POSTREG:P2:0000:I';
RESET(FPOST,FILNAVN2);
IOPEN(PZ.H,FPOST,LÆS);
IF IER<>0 THEN ERROR;
FILNAVN2:='SYSREG:P2:1:I';
RESET(SYSFIL,FILNAVN2);
SEEK(SYSFIL,1);
GET(SYSFIL);
CLOSE(SYSFIL);
PTYPE(1):='Faktura ';
PTYPE(2):='Kreditnota ';
PTYPE(3):='Indbetaling ';
PTYPE(4):='Udbetaling ';
PTYPE(5):='Kasserabat ';
PTYPE(6):='Rabatrettelse ';
PTYPE(7):='Renterettelse ';
PTYPE(9):='Rentenota ';
PTYPE(10):='Sidste udtog ';
PTYPE(8) :='Overførsel ';
REPEAT
FINDKUND;
IF R<>0.0 THEN
BEGIN
GOTOXY(1,13);WRITELN('Skærmudskrift ell. liste (1/2) ?');
REPEAT
GOTOXY(37,13);READLN;READ(S)
UNTIL (IORESULT=0) AND (S>0) AND (S<3);
GOTOXY(1,14);WRITELN('Siden sidste udtog, eller alle (1/2) ?');
REPEAT
GOTOXY(40,14);READLN;READ(M)
UNTIL (IORESULT=0) AND (M>0) AND (M<3);
WITH PPOST,KUNDE DO
BEGIN
TTOTAL:=0;
HELTAL(1):=NR(1);
HELTAL(2):=NR(2);
FOR I:=3 TO 7 DO HELTAL(I):=0;
NEXTREC(PZ.H,FPOST,PPOST.A);
IF IER<>-1 THEN ERROR;IER:=0;
IF S=1 THEN HEAD ELSE HEADP;
IF M=1 THEN
WHILE (HELTAL(5)<>10) AND (IER=0) AND (HELTAL(1)=NR(1)) AND
(HELTAL(2)=NR(2)) DO NEXTREC(PZ.H,FPOST,PPOST.A);
IF (IER=0) AND (HELTAL(1)=NR(1)) AND (HELTAL(2)=NR(2)) THEN
BEGIN
REPEAT
IF HELTAL(5)=10 THEN TTOTAL:=0;
TTOTAL:=TTOTAL+REEL(2);
IF S=1 THEN
WRITELN(PTYPE(HELTAL(5)),' ':5,
HELTAL(6)*10000.0+HELTAL(7):12:-2,' ':8,
HELTAL(3)*10000.0+HELTAL(4):8:-2,REEL(1)/100:13:2,
REEL(2)/100:13:2)
ELSE
WRITELN(LIST,PTYPE(HELTAL(5)),' ':5,
HELTAL(6)*10000.0+HELTAL(7):12:-2,' ':8,
HELTAL(3)*10000.0+HELTAL(4):8:-2,REEL(1)/100:13:2,
REEL(2)/100:13:2);
NEXTREC(PZ.H,FPOST,PPOST.A)
UNTIL (IER<>0) OR (NR(1)<>HELTAL(1)) OR (NR(2)<>HELTAL(2));
IF (IER<>-2) AND (IER<>0) THEN ERROR;
END
ELSE
BEGIN
IF (IER=0) OR (IER=-2) THEN WRITELN('Ingen posteringer')
ELSE ERROR
END;
IF S=1 THEN PR1 ELSE PRKUNOPL
END
END
UNTIL R=0.0;
ICLOSE(KZ.H,FKUN);
ICLOSE(PZ.H,FPOST);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0015 Line {l1=0x13, l2=»PROGRAM KONTOUDTOG;«, l3=0x13}
0x0015…0024 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0024…0032 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x0032…0040 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0040…0064 Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x0064…009f Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x009f…00cd Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00cd…00fa Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x00fa…0124 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x0124…014a Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x014a…0150 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0150…015e Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x015e…0171 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0171…0194 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x0194…019b Line {l1=0x05, l2=» END;«, l3=0x05}
0x019b…01ac Line {l1=0x0f, l2=»POSTPOST=RECORD«, l3=0x0f}
0x01ac…01ba Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x01ba…0209 Line {l1=0x4d, l2=» (*KNR1-2,DATO1-2,TEKSTKODE,BILAGSNR1-2*) HELTAL:ARRAY(1..7) OF INTEGER;«, l3=0x4d}
0x0209…023e Line {l1=0x33, l2=» (*BELØB,RESTBELØB*) REEL:ARRAY (1..2) OF REAL«, l3=0x33}
0x023e…0244 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0244…0255 Line {l1=0x0f, l2=»POSTZONE=RECORD«, l3=0x0f}
0x0255…0268 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x0268…028c Line {l1=0x22, l2=» T:ARRAY (1..508) OF INTEGER«, l3=0x22}
0x028c…0292 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0292…02a2 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x02a2…02cb Line {l1=0x27, l2=» HELTAL:ARRAY (1..24) OF INTEGER;«, l3=0x27}
0x02cb…02ed Line {l1=0x20, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x20}
0x02ed…031b Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x031b…0355 Line {l1=0x38, l2=» KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x38}
0x0355…035b Line {l1=0x04, l2=»END;«, l3=0x04}
0x035b…0375 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x0375…038d Line {l1=0x16, l2=»VAR FPOST,FKUN:ISF;«, l3=0x16}
0x038d…03a5 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x03a5…03bb Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x03bb…03cc Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x03cc…03e1 Line {l1=0x13, l2=» PZ:POSTZONE;«, l3=0x13}
0x03e1…03f9 Line {l1=0x16, l2=» PPOST:POSTPOST;«, l3=0x16}
0x03f9…0416 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0416…0430 Line {l1=0x18, l2=» M,S,J,IER,I:INTEGER;«, l3=0x18}
0x0430…046d Line {l1=0x3b, l2=» PTYPE:ARRAY (1..10) OF PACKED ARRAY (1..15) OF CHAR;«, l3=0x3b}
0x046d…0486 Line {l1=0x17, l2=» KNAVN:STRING(4);«, l3=0x17}
0x0486…049a Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x049a…04c5 Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x04c5…04e8 Line {l1=0x21, l2=» R2,R1,R,TOTAL,TTOTAL:REAL;«, l3=0x21}
0x04e8…04f1 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x04f1…0504 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x0504…0511 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x0511…0521 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x0521…0531 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x0531…053f Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x053f…054e Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x054e…055c Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x055c…0565 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0565…056e Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x056e…0580 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0580…0587 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0587…05ab Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x05ab…05c1 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x05c1…05d8 Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x05d8…05f3 Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x05f3…0601 Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x0601…0607 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0607…063b Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x063b…064b Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x064b…0658 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0658…065f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x065f…066a Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x066a…0691 Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0691…06a9 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x06a9…06c2 Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x06c2…06da Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x06da…06f7 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x06f7…06fd Line {l1=0x04, l2=»END;«, l3=0x04}
0x06fd…0712 Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0712…072d Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x072d…0741 Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0741…0748 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0748…0752 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0752…075d Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x075d…076e Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x076e…0780 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0780…07a7 Line {l1=0x25, l2=» WRITELN('KONTOUDTOG, PR. KUNDE');«, l3=0x25}
0x07a7…07b9 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x07b9…07ff Line {l1=0x44, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');«, l3=0x44}
0x07ff…080b Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x080b…081b Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x081b…082f Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x082f…0856 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x0856…0879 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x0879…08b0 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x08b0…08e0 Line {l1=0x2e, l2=» IF (R=0.0) OR (R=2.0) THEN EXIT(FINDKUND);«, l3=0x2e}
0x08e0…08ec Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x08ec…0901 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x0901…0916 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0916…0925 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0925…093d Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x093d…096d Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x096d…097f Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x097f…0998 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x0998…09b6 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x09b6…09d8 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x09d8…09f6 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x09f6…0a12 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x0a12…0a2e Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x0a2e…0a4c Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x0a4c…0a72 Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x0a72…0aa8 Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x0aa8…0ae4 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0ae4…0af4 Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x0af4…0b01 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0b01…0b0f Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0b0f…0b1e Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0b1e…0b45 Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x0b45…0b81 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0b81…0bb1 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x0bb1…0bf2 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x0bf2…0bff Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0bff…0c0b Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0c0b…0c18 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c18…0c40 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x0c40…0c74 Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x0c74…0c97 Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x0c97…0ca3 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0ca3…0cb7 Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x0cb7…0cc6 Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x0cc6…0cdb Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x0cdb…0ce8 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0ce8…0d2f Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x0d2f…0d41 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0d41…0d62 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x0d62…0d83 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x0d83…0da3 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x0da3…0db5 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0db5…0dda Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x0dda…0e0f Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x0e0f…0e57 Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x0e57…0ea4 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x0ea4…0ee5 Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x0ee5…0ef0 Line {l1=0x09, l2=» END«, l3=0x09}
0x0ef0…0efc Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0efc…0f12 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x0f12…0f1f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0f1f…0f30 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x0f30…0f4a Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x0f4a…0f83 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x0f83…0f93 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x0f93…0f9e Line {l1=0x09, l2=» END«, l3=0x09}
0x0f9e…0fb0 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x0fb0…0fc1 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x0fc1…0ff0 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)«, l3=0x2d}
0x0ff0…0ff6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ff6…1007 Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x1007…100e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x100e…101f Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x101f…1028 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1028…103a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x103a…1060 Line {l1=0x24, l2=» WRITE(NR(1)*10000.0+NR(2):5:-2);«, l3=0x24}
0x1060…106e Line {l1=0x0c, l2=» J:=0;«, l3=0x0c}
0x106e…1084 Line {l1=0x14, l2=» REPEAT J:=J+1«, l3=0x14}
0x1084…10ad Line {l1=0x27, l2=» UNTIL (J=4) OR (NAVN(1,J)<>' ');«, l3=0x27}
0x10ad…10cb Line {l1=0x1c, l2=» IF NAVN(1,J)=' ' THEN«, l3=0x1c}
0x10cb…10d9 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x10d9…1100 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x1100…1122 Line {l1=0x20, l2=» WRITE(' ':4,NAME,' ':4)«, l3=0x20}
0x1122…112e Line {l1=0x0a, l2=» END«, l3=0x0a}
0x112e…113b Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x113b…1156 Line {l1=0x19, l2=» WRITE(' ':4,NAVN(1));«, l3=0x19}
0x1156…1192 Line {l1=0x3a, l2=» WRITELN(' ':14,'Kontoudtog',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x3a}
0x1192…11cd Line {l1=0x39, l2=» SYSFIL^.HELTAL(2):10:-2);«, l3=0x39}
0x11cd…11db Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x11db…1223 Line {l1=0x46, l2=» WRITELN('Art',' ':21,'Bilagsnr',' ':12,'Dato',' ':8,'Beløb',' ':4,«, l3=0x46}
0x1223…126a Line {l1=0x45, l2=» 'Restbeløb');«, l3=0x45}
0x126a…1271 Line {l1=0x05, l2=» END«, l3=0x05}
0x1271…1277 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1277…1287 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x1287…128e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x128e…129f Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x129f…12a8 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x12a8…12e1 Line {l1=0x37, l2=»TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);«, l3=0x37}
0x12e1…132e Line {l1=0x4b, l2=» WRITELN('____________________________________________________________',«, l3=0x4b}
0x132e…134e Line {l1=0x1e, l2=» '______________');«, l3=0x1e}
0x134e…137c Line {l1=0x2c, l2=» WRITELN('Total',' ':43,TTOTAL/100:13:2);«, l3=0x2c}
0x137c…138a Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x138a…13c3 Line {l1=0x37, l2=» WRITELN(' ':10,' 0 - 15 dage',SALDOKØB(1)/100:12:2,«, l3=0x37}
0x13c3…1402 Line {l1=0x3d, l2=» ' ':10,'16 - 30 dage',SALDOKØB(2)/100:12:2);«, l3=0x3d}
0x1402…143b Line {l1=0x37, l2=» WRITELN(' ':10,'30 - 45 dage',SALDOKØB(3)/100:12:2,«, l3=0x37}
0x143b…147a Line {l1=0x3d, l2=» ' ':10,'45 - 60 dage',SALDOKØB(4)/100:12:2);«, l3=0x3d}
0x147a…14b3 Line {l1=0x37, l2=» WRITELN(' ':10,'Ældre saldo1',SALDOKØB(5)/100:12:2,«, l3=0x37}
0x14b3…14f2 Line {l1=0x3d, l2=» ' ':10,'Ældre saldo2',SALDOKØB(6)/100:12:2);«, l3=0x3d}
0x14f2…153f Line {l1=0x4b, l2=» WRITELN(' ':10,'Total saldo ',(TOTAL+SALDOKØB(1)+SALDOKØB(2))/100:12:2,«, l3=0x4b}
0x153f…1578 Line {l1=0x37, l2=» ' ':10,'Forfalden ',TOTAL/100:12:2);«, l3=0x37}
0x1578…1586 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1586…15a7 Line {l1=0x1f, l2=» IF NR(12)=0 THEN NR(12):=1;«, l3=0x1f}
0x15a7…15cb Line {l1=0x22, l2=» WRITELN('Tryk Return');READLN;«, l3=0x22}
0x15cb…15d2 Line {l1=0x05, l2=» END«, l3=0x05}
0x15d2…15d8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x15d8…15ea Line {l1=0x10, l2=»PROCEDURE HEADP;«, l3=0x10}
0x15ea…15f1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x15f1…1602 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x1602…160b Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x160b…163f Line {l1=0x32, l2=» WRITELN('Monter papir og tryk RETURN');READLN;«, l3=0x32}
0x163f…166a Line {l1=0x29, l2=» WRITE(LIST,NR(1)*10000.0+NR(2):5:-2);«, l3=0x29}
0x166a…1678 Line {l1=0x0c, l2=» J:=0;«, l3=0x0c}
0x1678…168e Line {l1=0x14, l2=» REPEAT J:=J+1«, l3=0x14}
0x168e…16b7 Line {l1=0x27, l2=» UNTIL (J=4) OR (NAVN(1,J)<>' ');«, l3=0x27}
0x16b7…16d5 Line {l1=0x1c, l2=» IF NAVN(1,J)=' ' THEN«, l3=0x1c}
0x16d5…16e3 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x16e3…170a Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x170a…1731 Line {l1=0x25, l2=» WRITE(LIST,' ':4,NAME,' ':4)«, l3=0x25}
0x1731…173d Line {l1=0x0a, l2=» END«, l3=0x0a}
0x173d…174a Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x174a…176a Line {l1=0x1e, l2=» WRITE(LIST,' ':4,NAVN(1));«, l3=0x1e}
0x176a…17ab Line {l1=0x3f, l2=» WRITELN(LIST,' ':14,'Kontoudtog',SYSFIL^.HELTAL(1)*10000.0+«, l3=0x3f}
0x17ab…17eb Line {l1=0x3e, l2=» SYSFIL^.HELTAL(2):10:-2);«, l3=0x3e}
0x17eb…17ff Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x17ff…184c Line {l1=0x4b, l2=» WRITELN(LIST,'Art',' ':21,'Bilagsnr',' ':12,'Dato',' ':8,'Beløb',' ':4,«, l3=0x4b}
0x184c…1898 Line {l1=0x4a, l2=» 'Restbeløb');«, l3=0x4a}
0x1898…189f Line {l1=0x05, l2=» END«, l3=0x05}
0x189f…18a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x18a5…18ba Line {l1=0x13, l2=»PROCEDURE PRKUNOPL;«, l3=0x13}
0x18ba…18c1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x18c1…18d2 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x18d2…18db Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x18db…1914 Line {l1=0x37, l2=»TOTAL:=SALDOKØB(3)+SALDOKØB(4)+SALDOKØB(5)+SALDOKØB(6);«, l3=0x37}
0x1914…195c Line {l1=0x46, l2=» WRITELN(LIST,'__________________________________________________',«, l3=0x46}
0x195c…198b Line {l1=0x2d, l2=» '________________________');«, l3=0x2d}
0x198b…19be Line {l1=0x31, l2=» WRITELN(LIST,'Total',' ':43,TTOTAL/100:13:2);«, l3=0x31}
0x19be…19d2 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x19d2…1a10 Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,' 0 - 15 dage',SALDOKØB(1)/100:12:2,«, l3=0x3c}
0x1a10…1a4f Line {l1=0x3d, l2=» ' ':10,'16 - 30 dage',SALDOKØB(2)/100:12:2);«, l3=0x3d}
0x1a4f…1a8d Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,'30 - 45 dage',SALDOKØB(3)/100:12:2,«, l3=0x3c}
0x1a8d…1acc Line {l1=0x3d, l2=» ' ':10,'45 - 60 dage',SALDOKØB(4)/100:12:2);«, l3=0x3d}
0x1acc…1b0a Line {l1=0x3c, l2=» WRITELN(LIST,' ':10,'Ældre saldo1',SALDOKØB(5)/100:12:2,«, l3=0x3c}
0x1b0a…1b49 Line {l1=0x3d, l2=» ' ':10,'Ældre saldo2',SALDOKØB(6)/100:12:2);«, l3=0x3d}
0x1b49…1b98 Line {l1=0x4d, l2=» WRITELN(LIST,' ':10,'Total saldo ',(TOTAL+SALDOKØB(1)+SALDOKØB(2))/100:12:2«, l3=0x4d}
0x1b98…1bd1 Line {l1=0x37, l2=» ,' ':10,'Forfalden ',TOTAL/100:12:2);«, l3=0x37}
0x1bd1…1be5 Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
0x1be5…1c06 Line {l1=0x1f, l2=» IF NR(12)=0 THEN NR(12):=1;«, l3=0x1f}
0x1c06…1c1a Line {l1=0x12, l2=» WRITELN(LIST);«, l3=0x12}
[…0x1…]
0x1c2e…1c35 Line {l1=0x05, l2=» END«, l3=0x05}
0x1c35…1c3b Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c3b…1c42 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1c42…1c64 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:0000:I';«, l3=0x20}
0x1c64…1c7d Line {l1=0x17, l2=» RESET(FKUN,FILNAVN2);«, l3=0x17}
0x1c7d…1c96 Line {l1=0x17, l2=» IOPEN(KZ.H,FKUN,LÆS);«, l3=0x17}
0x1c96…1caf Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x1caf…1cd1 Line {l1=0x20, l2=» FILNAVN2:='POSTREG:P2:0000:I';«, l3=0x20}
0x1cd1…1ceb Line {l1=0x18, l2=» RESET(FPOST,FILNAVN2);«, l3=0x18}
0x1ceb…1d05 Line {l1=0x18, l2=» IOPEN(PZ.H,FPOST,LÆS);«, l3=0x18}
0x1d05…1d1e Line {l1=0x17, l2=» IF IER<>0 THEN ERROR;«, l3=0x17}
0x1d1e…1d3c Line {l1=0x1c, l2=» FILNAVN2:='SYSREG:P2:1:I';«, l3=0x1c}
0x1d3c…1d57 Line {l1=0x19, l2=» RESET(SYSFIL,FILNAVN2);«, l3=0x19}
0x1d57…1d6a Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x1d6a…1d7a Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x1d7a…1d8c Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x1d8c…1dac Line {l1=0x1e, l2=» PTYPE(1):='Faktura ';«, l3=0x1e}
0x1dac…1dcc Line {l1=0x1e, l2=» PTYPE(2):='Kreditnota ';«, l3=0x1e}
0x1dcc…1dec Line {l1=0x1e, l2=» PTYPE(3):='Indbetaling ';«, l3=0x1e}
0x1dec…1e0c Line {l1=0x1e, l2=» PTYPE(4):='Udbetaling ';«, l3=0x1e}
0x1e0c…1e2c Line {l1=0x1e, l2=» PTYPE(5):='Kasserabat ';«, l3=0x1e}
0x1e2c…1e4c Line {l1=0x1e, l2=» PTYPE(6):='Rabatrettelse ';«, l3=0x1e}
0x1e4c…1e6c Line {l1=0x1e, l2=» PTYPE(7):='Renterettelse ';«, l3=0x1e}
0x1e6c…1e8c Line {l1=0x1e, l2=» PTYPE(9):='Rentenota ';«, l3=0x1e}
0x1e8c…1ead Line {l1=0x1f, l2=» PTYPE(10):='Sidste udtog ';«, l3=0x1f}
0x1ead…1ece Line {l1=0x1f, l2=» PTYPE(8) :='Overførsel ';«, l3=0x1f}
0x1ece…1ed8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1ed8…1ee7 Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x1ee7…1efb Line {l1=0x12, l2=» IF R<>0.0 THEN«, l3=0x12}
0x1efb…1f06 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1f06…1f47 Line {l1=0x3f, l2=» GOTOXY(1,13);WRITELN('Skærmudskrift ell. liste (1/2) ?');«, l3=0x3f}
0x1f47…1f55 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1f55…1f7b Line {l1=0x24, l2=» GOTOXY(37,13);READLN;READ(S)«, l3=0x24}
0x1f7b…1faa Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (S>0) AND (S<3);«, l3=0x2d}
0x1faa…1ff1 Line {l1=0x45, l2=» GOTOXY(1,14);WRITELN('Siden sidste udtog, eller alle (1/2) ?');«, l3=0x45}
0x1ff1…1fff Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x1fff…2025 Line {l1=0x24, l2=» GOTOXY(40,14);READLN;READ(M)«, l3=0x24}
0x2025…2054 Line {l1=0x2d, l2=» UNTIL (IORESULT=0) AND (M>0) AND (M<3);«, l3=0x2d}
0x2054…206f Line {l1=0x19, l2=» WITH PPOST,KUNDE DO«, l3=0x19}
0x206f…207c Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x207c…2090 Line {l1=0x12, l2=» TTOTAL:=0;«, l3=0x12}
0x2090…20ab Line {l1=0x19, l2=» HELTAL(1):=NR(1);«, l3=0x19}
0x20ab…20c6 Line {l1=0x19, l2=» HELTAL(2):=NR(2);«, l3=0x19}
0x20c6…20ee Line {l1=0x26, l2=» FOR I:=3 TO 7 DO HELTAL(I):=0;«, l3=0x26}
0x20ee…2114 Line {l1=0x24, l2=» NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x24}
0x2114…213b Line {l1=0x25, l2=» IF IER<>-1 THEN ERROR;IER:=0;«, l3=0x25}
0x213b…2161 Line {l1=0x24, l2=» IF S=1 THEN HEAD ELSE HEADP;«, l3=0x24}
0x2161…2176 Line {l1=0x13, l2=» IF M=1 THEN«, l3=0x13}
0x2176…21bd Line {l1=0x45, l2=» WHILE (HELTAL(5)<>10) AND (IER=0) AND (HELTAL(1)=NR(1)) AND«, l3=0x45}
0x21bd…2200 Line {l1=0x41, l2=» (HELTAL(2)=NR(2)) DO NEXTREC(PZ.H,FPOST,PPOST.A);«, l3=0x41}
0x2200…2245 Line {l1=0x43, l2=» IF (IER=0) AND (HELTAL(1)=NR(1)) AND (HELTAL(2)=NR(2)) THEN«, l3=0x43}
0x2245…2254 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x2254…2266 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x2266…2293 Line {l1=0x2b, l2=» IF HELTAL(5)=10 THEN TTOTAL:=0;«, l3=0x2b}
0x2293…22b8 Line {l1=0x23, l2=» TTOTAL:=TTOTAL+REEL(2);«, l3=0x23}
0x22b8…22d1 Line {l1=0x17, l2=» IF S=1 THEN«, l3=0x17}
0x22d1…2301 Line {l1=0x2e, l2=» WRITELN(PTYPE(HELTAL(5)),' ':5,«, l3=0x2e}
0x2301…2342 Line {l1=0x3f, l2=» HELTAL(6)*10000.0+HELTAL(7):12:-2,' ':8,«, l3=0x3f}
0x2342…238d Line {l1=0x49, l2=» HELTAL(3)*10000.0+HELTAL(4):8:-2,REEL(1)/100:13:2,«, l3=0x49}
0x238d…23b7 Line {l1=0x28, l2=» REEL(2)/100:13:2)«, l3=0x28}
0x23b7…23c9 Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x23c9…23fd Line {l1=0x32, l2=» WRITELN(LIST,PTYPE(HELTAL(5)),' ':5,«, l3=0x32}
0x23fd…243e Line {l1=0x3f, l2=» HELTAL(6)*10000.0+HELTAL(7):12:-2,' ':8,«, l3=0x3f}
0x243e…2489 Line {l1=0x49, l2=» HELTAL(3)*10000.0+HELTAL(4):8:-2,REEL(1)/100:13:2,«, l3=0x49}
0x2489…24b4 Line {l1=0x29, l2=» REEL(2)/100:13:2);«, l3=0x29}
0x24b4…24dd Line {l1=0x27, l2=» NEXTREC(PZ.H,FPOST,PPOST.A)«, l3=0x27}
0x24dd…2524 Line {l1=0x45, l2=» UNTIL (IER<>0) OR (NR(1)<>HELTAL(1)) OR (NR(2)<>HELTAL(2));«, l3=0x45}
0x2524…2555 Line {l1=0x2f, l2=» IF (IER<>-2) AND (IER<>0) THEN ERROR;«, l3=0x2f}
0x2555…2562 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x2562…2570 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x2570…257f Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x257f…25c3 Line {l1=0x42, l2=» IF (IER=0) OR (IER=-2) THEN WRITELN('Ingen posteringer')«, l3=0x42}
0x25c3…25d9 Line {l1=0x14, l2=» ELSE ERROR«, l3=0x14}
0x25d9…25e7 Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x25e7…260e Line {l1=0x25, l2=» IF S=1 THEN PR1 ELSE PRKUNOPL«, l3=0x25}
0x260e…2619 Line {l1=0x09, l2=» END«, l3=0x09}
0x2619…2622 Line {l1=0x07, l2=» END«, l3=0x07}
0x2622…2632 Line {l1=0x0e, l2=» UNTIL R=0.0;«, l3=0x0e}
0x2632…2648 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x2648…265f Line {l1=0x15, l2=» ICLOSE(PZ.H,FPOST);«, l3=0x15}
0x265f…266f Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x266f…268a Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x268a…26b0 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x26b0…26b6 Line {l1=0x04, l2=»END.«, l3=0x04}
0x26b6…26c0 00 00 52 52 4f 52 14 0c 20 20 ┆ RROR ┆
0x26c0…26e0 20 20 20 20 20 20 45 4e 44 3b 0c 25 20 20 20 20 20 20 20 20 49 46 20 53 3d 31 20 54 48 45 4e 20 ┆ END; % IF S=1 THEN ┆
0x26e0…2700 50 52 31 20 45 4c 53 45 20 50 52 4b 55 4e 4f 50 4c 25 09 20 20 20 20 20 20 45 4e 44 09 07 20 20 ┆PR1 ELSE PRKUNOPL% END ┆
0x2700…2720 20 20 45 4e 44 07 0e 20 20 55 4e 54 49 4c 20 52 3d 30 2e 30 3b 0e 14 20 20 49 43 4c 4f 53 45 28 ┆ END UNTIL R=0.0; ICLOSE(┆
0x2720…2740 4b 5a 2e 48 2c 46 4b 55 4e 29 3b 14 15 20 20 49 43 4c 4f 53 45 28 50 5a 2e 48 2c 46 50 4f 53 54 ┆KZ.H,FKUN); ICLOSE(PZ.H,FPOST┆
0x2740…2760 29 3b 15 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 19 20 20 57 52 49 54 45 4c 4e 28 27 49 ┆); CLEARSCREEN; WRITELN('I┆
0x2760…2780 43 4c 4f 53 45 20 27 2c 49 45 52 29 3b 19 24 20 20 43 48 41 49 4e 28 27 49 4e 54 52 45 20 20 20 ┆CLOSE ',IER); $ CHAIN('INTRE ┆
0x2780…27a0 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 2e 04 00 00 52 3b 39 2c ┆*1','HOVSA:P1',QUQ)$ END. R;9,┆
0x27a0…27c0 20 20 20 20 20 20 20 4c 41 4e 44 53 42 59 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e ┆ LANDSBY:PACKED ARRAY (1..┆
0x27c0…27e0 32 30 29 20 4f 46 20 43 48 41 52 3b 2c 2b 20 20 20 20 20 20 20 50 4f 53 54 4e 52 3a 50 41 43 4b ┆20) OF CHAR;,+ POSTNR:PACK┆
0x27e0…2800 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┆
[…0x1e…]
0x2bc0…2be0 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 ┆